1 C00   22:33 JUN 20,'83                                                                          PAGE    1
A      1                     2.000  +2,2                                                                *H01
       2                     2.010  VERSION  EQU      C'H01'                                            *H01
       3                  2839.000  +2839,2839                                                          *H01
       4                  2839.010           Z        84,,,BA(SYNTAX%EXPL)                              *H01
       5                  9999.999  +END
1 C00   22:33 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE    3
A       1         TEXT               CATALOG  EQU      C'0103'
        1*        TEXT               VERSION  EQU      C'H01'                                            *H01
        3                            TITLE    EQU      S:PT('T-SERIES CPU DIAGNOSTIC, FPA ',;
        4         TEXT                                 '960-',CATALOG,'-',VERSION)
        5                                     PCC

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

      552                            *
      553         00000002           #PRINT   CNAME    2,#PRINTER%
      554         00000001           #TYPE    CNAME    1,#TYPER%
      555                                     PROC
      556                            *
      557                            *
      558                                     LOCAL    A
      559                            *
      560                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      561                             '**CF(2) MUST BE POSITIVE INTEGER**'
      562                            *
      563                                     ERROR,0,NUM(CF)>3 ;
      564                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      565                            *
      566                                     ERROR,0,NUM(AF)>NAME(1) ;
      567                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      568                            *
      569                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      570                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      571                            *
      572                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      573                            *
      574                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      575                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      576                            *
      577                                     ERROR,0,A=0  ;
      578                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      579                            *
      580                                     ELSE
      581                            *
      582                            A        SET      0
      583                            *
      584                                     FIN
      585                            *
      586                            *
      587                            *
      588                            *
      589                            LF       BAL,X6   *NAME(2)
      590                            *
      591                            *
      592                                     DO       NUM(CF)=1&NAME(1)=1
      593                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      594                                     ELSE
      595                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      596                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      597                                     ELSE
      598                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      599                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      600                                     ELSE
      601                                     DO       NUM(CF)=2&CF(2)>0
      602                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      603                                     ELSE
      604                                     DO       NUM(CF)=2&CF(2)=0
      605                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      606                                     ELSE
      607                                     DO       NUM(CF)>2&CF(2)>0
      608                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      609                                     ELSE
      610                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      611                                     FIN
      612                                     FIN
      613                                     FIN
      614                                     FIN
      615                                     FIN
      616                                     FIN
      617                            *
      618                            *
      619                                     PEND
      620                            *
      621         000000C0           C0       EQU      X'C0'
      622         000000C1           C1       EQU      X'C1'
      623         000000C2           C2       EQU      X'C2'
      624         000000C3           C3       EQU      X'C3'
      625         000000C4           C4       EQU      X'C4'
      626         000000C5           C5       EQU      X'C5'
      627         000000C6           C6       EQU      X'C6'
      628         000000C7           C7       EQU      X'C7'
      629         000000C8           C8       EQU      X'C8'
      630         000000C9           C9       EQU      X'C9'
      631         000000CA           CA       EQU      X'CA'
      632         000000CB           CB       EQU      X'CB'
      633         000000CC           CC       EQU      X'CC'
      634         000000CD           CD       EQU      X'CD'
      635         000000CE           CE       EQU      X'CE'
      636         000000CF           CF       EQU      X'CF'
      637         000000F0           F0       EQU      X'F0'
      638         000000F1           F1       EQU      X'F1'
      639                            *
      640                            *
      641         00000000           TEXTCS   CNAME
      642                                     PROC
      643                                     DISP     %
      644                                     LIST     0
      645                            LF       TEXTC    AF
      646                                     LIST     1
      647                                     PEND
      648                            *
      649                            *
      650                            *
      651                            *
      652                            *********************************************
      653                                     SYSTEM   SIG9P
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE    5
A     655                            *********************************************
      656                            *
      657                            *
      658   01 00392                 #TABLE1A   ORG     X'392'           THIS TABLE IS USED BY THE USER
            01 00392
      659         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      660         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      661         01 00394           #LOADFLAG  EQU    %+2
      662         01 00395           #MTLFLAG   EQU    %+3
      663         01 00396           #TOADDR    EQU    %+4
      664         01 00397           #PRTADDR   EQU    %+5
      665                            *
      666         01 00399           #OUTPTR    EQU    %+7
      667         01 0039A           #PAKDEX    EQU    %+8
      668         01 0039B           #INDEX     EQU    %+9
      669         01 0039C           #PARAM%H1 EQU     %+10
      670         01 0039D           #PARAM%H2 EQU     %+11
      671         01 0039E           #PARAM%H3 EQU     %+12
      672         01 0039F           #PARAM%H4 EQU     %+13
      673         01 003A0           #TESTINIT EQU     %+14
      674         01 003A1           #STATUS   EQU     %+15
      675         01 003A2           #PARAM1  EQU      %+16
      676         01 003A4           #PARAM2  EQU      %+18
      677         01 003A6           #PARAM3  EQU      %+20
      678         01 003A8           #PARAM4  EQU      %+22
      679         01 003AA           #MAXMEM   EQU     %+24
      680         01 003AB           #SAMPLE% EQU      %+25
      681         01 003AC           #BRKOUT  EQU      %+26
      682         01 003AD           #DM%START EQU     %+27
      683         01 003AE           #DM%END  EQU      %+28
      684                            *
      685                            *
      686                            ************
      687                            *
      688                            *
      689   01 003C2                 #TABLE1B   ORG     X'3C2'           THIS TABLE IS USED BY USER
            01 003C2
      690         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      691         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      692         01 003C4           #BTE%      EQU    %+2
      693         01 003C5           #DISUSER%  EQU    %+3
      694         01 003C6           #ENUSER%   EQU    %+4
      695                            *
      696         01 003C8           #GUIDE%    EQU    %+6
      697         01 003C9           #FIDLE%    EQU    %+7
      698         01 003CA           #RUNADDR%  EQU    %+8
      699         01 003CB           #RETURN%   EQU    %+9
      700         01 003CC           #TYPER%    EQU    %+10
      701         01 003CD           #PRINTER%  EQU    %+11
      702         01 003CE           #ERRTEXT%  EQU    %+12
      703                            *
      704                            *
      705         01 003D0           #ERR1PTR%  EQU    %+14
      706         01 003D2           #VALTAB% EQU      %+16
      707         01 003D3           #DMENTRY% EQU     %+17
      708         01 003D4           #P%MODE% EQU      %+18
      709                            *
      710                            *
      711                            **************:
      712                            *
      713                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      714                            *
      715   01 003E5                          ORG      X'3E5'
            01 003E5
      716                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
      717   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
      718                            *
      719   01 003E7                          ORG      X'3E7'
            01 003E7
      720                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
      721         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
      722   01 003E7    00       A            DATA,1   ,,,-30
            01 003E7 1  00       A
            01 003E7 2  00       A
            01 003E7 3  E2       A
      723                            *
      724   01 003EC                          ORG      X'3EC'
            01 003EC
      725         01 003EC           VALTYPE  EQU      %
      726   01 003EC    1E005708              GEN,8,24  30,BA(ALPHATXT)
      727                            *
      728                            *
      729                            ************
      730                            *
      731   01 003F0                            ORG     X'3F0'
            01 003F0
      732                            *
      733   01 003F0    00000001 A   MST:NUM  DATA     1
      734   01 003F1    0000016E A   MSP:NUM  DATA     LAST:MOD
      735   01 003F2    00000001 A   MCR:NUM  DATA     1
      736   01 003F3    00001ACE     LISTPTR  DATA     LIST
      737                            ************
      738                            *
      739                            *
      740   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
      741   01 01000    00001030     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
      742   01 01001    00001A93     #TABLE3@   DATA   TABLE3
      743   01 01002    00001AB8     #PLINEIN@  DATA   PLINEIN
      744   01 01003    80000000 A   #DIAG@   GEN,1,31 1,0               NO SAMPLING (C4 STILL RUNS)     *G00
      745   01 01004    00000000 A   #LOADER@ DATA     0
      746                            *
      747                            *
      748                            *
      749                            *
      750                            ************
      751                            *
      752                            *
      753                            *                **********
      754         00000000           R0         EQU    0
      755         00000001           R1         EQU    1
      756         00000001           X1         EQU    1
      757         00000002           R2         EQU    2
      758         00000002           X2         EQU    2
      759         00000003           R3         EQU    3
      760         00000003           X3         EQU    3
      761         00000004           R4         EQU    4          **********
      762         00000004           X4         EQU    4          PREFFERED AREA TO BE USED
      763         00000005           R5         EQU    5          FOR USER PROGRAM EQU TABLES.
      764         00000005           X5         EQU    5          NOT MANDATORY BUT DESIRABLE
      765         00000006           R6         EQU    6          FOR CONSISTANTCY.
      766         00000006           X6         EQU    6          **********
      767         00000007           R7         EQU    7
      768         00000007           X7         EQU    7
      769         00000008           R8         EQU    8
      770         00000009           R9         EQU    9
      771         0000000A           R10        EQU    10
      772         0000000B           R11        EQU    11
      773         0000000C           R12        EQU    12
      774         0000000D           R13        EQU    13
      775         0000000E           R14        EQU    14
      776         0000000F           R15        EQU    15
      777                            *
      778                            *
      779                            *
      780                            *
      781                            ************                 **********
      782                            *                            PREFFERED AREA TO BE USED
      783                            *                            FOR USER PROGRAM FORM TABLES.
      784                            *                            NOT MANDATORY BUT DESIRABLE
      785                            *                            FOR CONSISTANTCY.
      786                            **********
      787                            *
      788                            *       FORMS   THE ADDRESS FIELD SPECIFIES HOW THE WORD IS DIVIDED AND
      789                            *              HOW MANY BITS THERE WILL BE IN EACH PART OF THE WORD.
      790                            *              EFFECTIVE AT ASSEMBLY TIME ONLY.
      791                            *
      792                        *S* A        COM,4,4,24 AF(1),AF(2),AF(3)
      793         00000004           D        COM,8,24 AF(1),AF(2)
      794         00000004           E        COM,8,8,16 AF(1),AF(2),AF(3)
      795                        *S* G        COM,16,8,8 AF(1),AF(2),AF(3)
      796         00000004           H        COM,8,8,8,8 AF(1),AF(2),AF(3),AF(4)
      797         00000004           I        COM,4,28 AF(1),AF(2)
      798         00000004           K        COM,4,4,4,20 AF(1),AF(2),AF(3),AF(4)
      799                            L        COM,3,2,3,5,3,1,3,3,3,3,3 AF(1),AF(2),AF(3),AF(4),AF(5),;
      800         00000004                             AF(6),AF(7),AF(8),AF(9),AF(10),AF(11)
      801         00000004           M        COM,4,2,2,2,6,8,8 AF(1),AF(2),AF(3),AF(4),AF(5),AF(6),AF(7)
      802                        *S* N        COM,4,4,4,1,19 AF(1),AF(2),AF(3),AF(4),AF(5)
      803                        *S* F        COM,8,5,19 AF(1),AF(2),AF(3)
      804         00000004           Z        COM,8,2,6,16 AF(1),AF(2),AF(3),AF(4)
      805                            *
      806                            *      PROCS                       EFFECTIVE AT ASSEMBLY TIME ONLY
      807                            *
      808                            *
      809                            *        J        CONVERTS TO BYTE ADDRESS
      810         00000000           J        CNAME
      811                                     PROC
      812                            LF       GEN,8,24 AF(1),BA(AF(2))
      813                                     PEND
      814                            *
      815                            *      R8      ERROR IDENTIFIER AND ADDRESS:
      816                            *              01000000 = INSTRUCTION
      817                            *              02000000 = LOCATION+1 OF THE EXECUTION LOCATION
      818                            *              03000000 = INDIRECT ADDRESS
      819                            *              0400000X = INDEX REGISTER X: X=1(NORMAL) OR 7(ONE)
      820                            *              0500000X = PROGRAM STATUS WORD X: X=1 OR 2
      821                            *              0600000X = REGISTER X: X=C(12)OR D(13)
      822                            *              0700WXYZ = MEMORY WORD IN LOCATION WXYZ (WXYZ=0-FFFF)
      823                            *      R9      EXPECTED  RESULT
      824                            *      R10     OBSERVED RESULT
      825                            *      R11     EXCLUSIVE 'OR' OF R9 AND R10
      826                            *
      827                            *
      828   01 01010                          ORG      X'1010'
            01 01010
      829   01 01010    00000000 A            DATA     0
      830   01 01011    00000000 A            DATA     0
      831   01 01012    00001014              DATA     %+2
      832   01 01013    00000000 A            DATA     0
      833   01 01014    70201010              LC       EXP:TRAP-6
      834   01 01015    0F00102C              XPSD,0   RETURN
      835   01 01016    00000000 A   EXP:TRAP DATA     0
      836   01 01017    00000000 A            DATA     0
      837   01 01018    0000101A              DATA     %+2
      838   01 01019    00000000 A            DATA     0
      839   01 0101A    0F00102C              XPSD,0   RETURN
      840   01 0101B    0F00102C              XPSD,0   RETURN
      841   01 0101C    0F00102C              XPSD,0   RETURN
      842   01 0101D    0F00102C              XPSD,0   RETURN
      843   01 0101E    0F00102C              XPSD,0   RETURN
      844   01 0101F    0F00102C              XPSD,0   RETURN
      845   01 01020    0F00102C              XPSD,0   RETURN
      846   01 01021    0F00102C              XPSD,0   RETURN
      847   01 01022    0F00102C              XPSD,0   RETURN
      848   01 01023    0F00102C              XPSD,0   RETURN
      849   01 01024    0F00102C              XPSD,0   RETURN
      850   01 01025    0F00102C              XPSD,0   RETURN
      851   01 01026    0F00102C              XPSD,0   RETURN
      852   01 01027    0F00102C              XPSD,0   RETURN
      853   01 01028    0F00102C              XPSD,0   RETURN
      854   01 01029    0F00102C              XPSD,0   RETURN
      855   01 0102A    0F00102C              XPSD,0   RETURN
      856                            *
      857   01 0102B    0F80102C     BRANCH   XPSD,8   RETURN
      858                                     BOUND    8
      859   01 0102C    00000000 A   RETURN   DATA     0
      860   01 0102D    00000000 A            DATA     0
      861   01 0102E    00001115              DATA     LOC+2
      862   01 0102F    00000000 A            DATA     0
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE    6
A     864                            *
      865                            ********************************************************************
      866                            ***         CONTROL  PROGRAM  BEGINS  HERE            ***
      867                            ********************************************************************
      868                            *
      869         01 01030           INITIAL  EQU      %
      870   01 01030    35601076              STW,X6   INI:EXIT          YES RECOVERY IF 'LOADFLAG'
      871   01 01031    70200394              LC       #LOADFLAG         IS ZERO.
      872   01 01032    69F0106F              BCS,15   BYPASS
      873                            *
      874   01 01033    32800040 A   PARA:SET LW,R8    X'40'             ONLY REQ'D ONCE PER LOAD.
      875   01 01034    358010E3              STW,R8   TRAP:SAV
      876   01 01035    2280016E A            LI,R8    LAST:MOD          RESTORE 'MODULE STOP' AND LAST
      877   01 01036    35801496              STW,R8   LST:NUM           NUMBER TO THE LAST MODULE #.
      878   01 01037    358003F1              STW,R8   MSP:NUM
      879   01 01038    EA6003C3              #HTECON  R8
            01 01039    00000008 A
      880   01 0103A    328C0001 A            LW,R8    1,X6              INITIALIZE THE VALUES IN THE
      881   01 0103B    4B8015DF              AND,R8   LS:MSK            K-PARAMETER LINE BY FIRST SET-
      882   01 0103C    3580145E              STW,R8   KINIT+1           TING UP THE K-INITIAL LINE &
      883   01 0103D    22800001 A            LI,R8    1                 THEN WRITING IT OVER THE K-
      884   01 0103E    358003F0              STW,R8   MST:NUM           PARAMETER LINE.
      885   01 0103F    358003F2              STW,R8   MCR:NUM
      886   01 01040    3580124E              STW,R8   PASS:CNT
      887                            *
      888   01 01041    7220145D              LB,X2    KINIT
      889   01 01042    7284145D              LB,R8    KINIT,X2
      890   01 01043    75841459              STB,R8   KOUT,X2
      891   01 01044    64201042              BDR,X2   %-2
      892                            *
      893   01 01045    EA6003C3              #HTECON  #PRTADDR
            01 01046    00000397
      894   01 01047    328C0001 A            LW,R8    1,X6              INITIALIZE THE VALUES IN THE
      895   01 01048    358013AF              STW,R8   JINIT+1           J-PARAMETER LINE BY FIRST SET-
      896                            *                                   TING UP THE J-INITIAL LINE &
      897   01 01049    EA6003C3              #HTECON  #TOADDR           THE WRITING IT OVER THE
            01 0104A    00000396
      898   01 0104B    328C0001 A            LW,R8    1,X6              J-PARAMETER LINE.
      899   01 0104C    358013B1              STW,R8   JINIT+3
      900                            *
      901   01 0104D    722013AE              LB,X2    JINIT
      902   01 0104E    728413AE              LB,R8    JINIT,X2
      903   01 0104F    758413A5              STB,R8   JOUT,X2
      904   01 01050    6420104E              BDR,X2   %-2
      905                            *
      906   01 01051    22800000 A            LI,R8    0
      907   01 01052    358015E2              STW,R8   FTFL
      908   01 01053    358015E0              STW,R8   ERR:CNT           FLAGS AND COUNTS THAT MUST BE
      909   01 01054    3580124D              STW,R8   PASS:OK           CLEARED TO ZERO UPON ANY 'YES'
      910   01 01055    35800393              STW,R8   #HDRFLG
      911   01 01056    35801236              STW,R8   EM
      912   01 01057    3580126D              STW,R8   MAR:SET-1
      913   01 01058    3580112C              STW,R8   CI:CNT
      914   01 01059    358014D4              STW,R8   LCNT
      915   01 0105A    358015E3              STW,R8   CK:BIAS
      916   01 0105B    35801077              STW,R8   TOT:ERRS
      917   01 0105C    358015E1              STW,R8   ERR:FLG
      918   01 0105D    35801235              STW,R8   EM:FLG
      919   01 0105E    22800040 A            LI,R8    X'40'
      920   01 0105F    6D801100 A            WD,R8    X'1100'
      921   01 01060    2280E390 A            LI,R8    X'E390'
      922   01 01061    35801430              STW,R8   CI:SAV
      923   01 01062    CF001444              HIO,0    *MI:ADR           TURN OFF MEMORY INTERFERRENCE.
      924   01 01063    328013B6              LW,R8    JINIT+8
      925   01 01064    358013AD              STW,R8   JOUT+8
      926   01 01065    22801ACE              LI,R8    LIST
      927   01 01066    358003F3              STW,R8   LISTPTR           RESET THE LISTPTR BACK TO THE
      928   01 01067    6C800045 A            RD,R8    X'45'             FIRST MODULE IN THE LIST.
      929   01 01068    4B801273              AND,R8   NEW:CM            RESET THE CLOCK MARGINS TO
      930   01 01069    35801278              STW,R8   CM:ON
      931   01 0106A    35801279              STW,R8   CM:OFF
      932   01 0106B    6D800045 A            WD,R8    X'45'             NORMAL.  RESET MAX CLOCK OVER-
      933   01 0106C    228FFFF6 A            LI,R8    -10               SET THE STATUS REPORT INTERVAL
      934   01 0106D    358013F1              STW,R8   SI                BACK TO ITS DEFAULT VALUE(10).
      935   01 0106E    3580107B              STW,R8   INIFLG
      936   01 0106F    22800000 A   BYPASS   LI,R8    0
      937   01 01070    3580112C              STW,R8   CI:CNT
      938   01 01071    702003A0              LC       #TESTINIT
      939   01 01072    EA601076              BAL,X6   *INI:EXIT         BYTE 0 OF #TESTINIT CONTROLS
      940   01 01073    00001074              DATA     GO                THE AUTOMATIC START FEATURE
      941                                     BOUND    8                 OF GUIDE INTERFACED PROGRAMS.
      942   01 01074    0000107C     GO       DATA     START             IF THE CC VALUE FETCHED IS NOT
      943   01 01075    00000000 A            DATA     0                 ZERO, THEN GUIDE WILL GO TO
      944                            *                                   IDLE INSTEAD OF RUN.
      945   01 01076    00000000 A   INI:EXIT DATA     0
      946   01 01077    00000000 A   TOT:ERRS DATA     0
      947   01 01078    02000000 A            NOP
      948   01 01079    00002930     IAM32    DATA     MEMORY-64
      949   01 0107A    0000296F     IAP      DATA     MEMORY-1
      950   01 0107B    00000000 A   INIFLG   DATA     0
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE    7
A     952                            *
      953                            **** NON-INITIALIZED START BEGINS HERE ****
      954                            *
      955         01 0107C           START    EQU      %
      956                            *
      957         01 0107C           AUTOTEST EQU      %
      958   01 0107C    6AF01085              BAL,R15  CLR:AUTO          CLEAR DRIVER FOR TEST MODULE.
      959   01 0107D    22A01187              LI,R10   AUTO:DL           MOVE MODULE DATA INTO DRIVER
      960   01 0107E    6AF0108B              BAL,R15  MOVER             USING DISPERSION LIST(AUTO:DL).
      961   01 0107F    6AF010B7              BAL,R15  TRAP:SW           SET UP FOR TRAP IF ONE IS EXP
      962   01 01080    6AF010F0              BAL,R15  EXU:AUTO          EXECUTE TEST MODULE
      963   01 01081    6AF01123              BAL,R15  SAV:RES           SAVE TEST RESULTS
      964   01 01082    6AF0112E              BAL,R15  CMP:AUTO          COMPARE OBS'D W/EXP'D
      965                            *
      966         01 01083           PTR:ADV  EQU      %
      967   01 01083    6AF011CB              BAL,R15  ADV:PTR           ADVANCE LISTPTR & TEST FOR
      968   01 01084    6800107C              B        AUTOTEST          SUFFIX ENTRY OR LIST END.
      969                            *
      970         01 01085           CLR:AUTO EQU      %
      971   01 01085    221FFFF2 A            LI,X1    AUTO:DL-AUTO:DLE  CLEAR ALL AREAS USED BY DISPERSION
      972   01 01086    22800000 A            LI,R8    0                 ROUTINE (MOVER).
      973   01 01087    32221195              LW,X2    AUTO:DLE,X1
      974   01 01088    35840000 A            STW,R8   0,X2
      975   01 01089    65101087              BIR,X1   CLR:AUTO+2
      976   01 0108A    E800000F A            B        *R15
      977                            *
      978                            *            CALLING SEQUENCE
      979                            *        LI,R10   AUTO:DL
      980                            *        BAL,R15  MOVER
      981                            *
      982         01 0108B           MOVER    EQU      %
      983   01 0108B    F21003F3              LB,X1    *LISTPTR          MOVE MODULE DATA FROM 'LIST' BY
      984   01 0108C    4B101323              AND,X1   MINUS2
      985   01 0108D    201FFFFF A            AI,X1    -1                INDEXING THRU MODULE DISPERSION
      986   01 0108E    B28203F3              LW,R8    *LISTPTR,X1       LIST.  USE MODULE COUNT AS INDEX
      987   01 0108F    B222000A A            LW,X2    *R10,X1           TO LIST & DISPERSION LIST.
      988   01 01090    35840000 A            STW,R8   0,X2
      989   01 01091    6410108E              BDR,X1   MOVER+3
      990   01 01092    351010E2              STW,X1   TRAP:FLG          CLEAR TRAP FLAG.
      991   01 01093    35C01338              STW,R12  RSAV              SAVE MINIMUM OPERATING
      992   01 01094    35D01339              STW,R13  RSAV1             ENVIRONMENT FOR SHORT LOOP.
      993   01 01095    32802970              LW,R8    MEMORY
      994   01 01096    3580133A              STW,R8   MSAV
      995   01 01097    32802971              LW,R8    MEMORY+1
      996   01 01098    3580133B              STW,R8   MSAV1
      997                            *
      998         01 01099           COM:TRAP EQU      %                 ******
      999   01 01099    328015E9     NO:GEN   LW,R8    PSW2              DUMMY DATA IS PUT IN PSW2 TO
     1000   01 0109A    4B8010DB              AND,R8   FILL:MSK          OBSERVE A NON-ZERO DATA FLOW
     1001   01 0109B    488010DC              EOR,R8   FILLER            IN SNAPSHOT OUTPUT.
     1002   01 0109C    358015E9              STW,R8   PSW2
     1003                            *
     1004   01 0109D    22100003 A            LI,X1    3                 LOC1:SW IS USED IN TRAP:SW FOR
     1005   01 0109E    351010E8              STW,X1   LOC1:SW           THOSE MODULES THAT PSW1 EX-
     1006   01 0109F    B28203F3              LW,R8    *LISTPTR,X1       PECTED VALUE IS LOC+1.
     1007   01 010A0    4B8015ED              AND,R8   ADR:MSK           IF PSW1 OUT ADDRESS IS LOC+2
     1008   01 010A1    21801115              CI,R8    LOC+2
     1009   01 010A2    683010B2              BE       INC:RET           INCREMENT THE RETURN ADDRESS
     1010   01 010A3    21801114              CI,R8    LOC+1             IN R15 TO SKIP THE TRAP:SW
     1011   01 010A4    693010A7              BNE      %+3               ROUTINE.
     1012   01 010A5    358010E8              STW,R8   LOC1:SW
     1013   01 010A6    E800000F A            B        *R15
     1014   01 010A7    22901029              LI,R9    EXP:TRAP+19
     1015   01 010A8    31800009 A            CW,R8    R9
     1016   01 010A9    692010AD              BCS,2    %+4
     1017   01 010AA    2290101B              LI,R9    EXP:TRAP+5
     1018   01 010AB    31800009 A            CW,R8    R9
     1019   01 010AC    E810000F A            BCR,1    *R15
     1020   01 010AD    22100002 A            LI,X1    2
     1021   01 010AE    B28203F3              LW,R8    *LISTPTR,X1       IN R15 TO SKIP THE TRAP:SW
     1022   01 010AF    4B8015ED              AND,R8   ADR:MSK           ROUTINE
     1023   01 010B0    21801113              CI,R8    LOC
     1024   01 010B1    E930000F A            BNE      *R15
     1025   01 010B2    20F00001 A   INC:RET  AI,R15   1
     1026   01 010B3    328015E8              LW,R8    PSW1
     1027   01 010B4    30801236              AW,R8    EM
     1028   01 010B5    358015E8              STW,R8   PSW1
     1029   01 010B6    E800000F A            B        *R15
     1030                            *
     1031         01 010B7           TRAP:SW  EQU      %
     1032   01 010B7    22100003 A            LI,X1    3
     1033   01 010B8    3290102B              LW,R9    BRANCH
     1034   01 010B9    328010E8              LW,R8    LOC1:SW
     1035   01 010BA    21800003 A            CI,R8    3
     1036   01 010BB    693010C8              BNE      SET:IDX
     1037   01 010BC    358010E2              STW,R8   TRAP:FLG
     1038   01 010BD    B28203F3              LW,R8    *LISTPTR,X1
     1039   01 010BE    4B8015ED              AND,R8   ADR:MSK           TEST PSW1 OUT ADDRESS TO SELECT
     1040   01 010BF    318010DD              CW,R8    EX:TRP0           APPROPRIATE XPSD FOR EXPECTED
     1041   01 010C0    693010C3              BNE      %+3               TRAP LOCATION.  USE EXTRAP46 IF
     1042   01 010C1    329010E1              LW,R9    EXTRAP46          PSW1 SAYS EXP:TRAP, USE EXTRAP00 IF
     1043   01 010C2    680010C8              B        SET:IDX           PSW1 SAYS EXP:TRAP+5.  IF NEITHER
     1044   01 010C3    318010DE              CW,R8    EX:TRP5           OF ABOVE, USE EXTRAP40 FOR ADD
     1045   01 010C4    693010C7              BNE      %+3               IMMEDIATE TYPES.
     1046   01 010C5    329010DF              LW,R9    EXTRAP00
     1047   01 010C6    680010C8              B        %+2
     1048   01 010C7    329010E0              LW,R9    EXTRAP40
     1049                            *
     1050   01 010C8    325015E8     SET:IDX  LW,X5    PSW1
     1051   01 010C9    32800005 A            LW,R8    X5
     1052   01 010CA    4B801329              AND,R8   FLAG:MSK
     1053   01 010CB    488015EC              EOR,R8   LOCADR            FETCH PSW1 IN, SET ADDRESS TO
     1054   01 010CC    30801236              AW,R8    EM                'LOC' AND ADD THE EXECUTION MODE
     1055   01 010CD    358015E8              STW,R8   PSW1              BIAS.
     1056                            *
     1057   01 010CE    4B8010E5              AND,R8   PRIV:MSK          PLACE EXPECTED FLAGS FROM TEST
     1058   01 010CF    488010E6              EOR,R8   ETP4:ADR          MODULE'S PSW1-IN IN APPROPRIATE
     1059   01 010D0    35801018              STW,R8   EXP:TRAP+2        TRAP LOCATION FOR COMPARATOR
     1060   01 010D1    4B8010E5              AND,R8   PRIV:MSK          VALIDATION AT CMP:AUTO.
     1061   01 010D2    488010E7              EOR,R8   ETM2:ADR
     1062   01 010D3    35801012              STW,R8   EXP:TRAP-4
     1063                            *
     1064   01 010D4    4B5015ED              AND,X5   ADR:MSK           COMPUTE THE LOCATION OF EXPECTED
     1065   01 010D5    205FEEED N            AI,X5    0-LOC             TRAP BY USING THE EXCESS COUNT
     1066   01 010D6    328A0040 A            LW,R8    X'40',X5          AS AN INDEX (X5).
     1067   01 010D7    358010E3              STW,R8   TRAP:SAV          SAVE THE OLD TRAP CONTENTS AND THE
     1068   01 010D8    355010E4              STW,X5   TRAP:IDX          INDEX COUNT TO RESTORE UPON EXIT.
     1069   01 010D9    359A0040 A            STW,R9   X'40',X5
     1070   01 010DA    E800000F A            B        *R15
     1071                            *
     1072   01 010DB    FFC0FFFF A   FILL:MSK DATA     X'FFC0FFFF'
     1073   01 010DC    003F0000 A   FILLER   DATA     X'3F0000'
     1074   01 010DD    00001016     EX:TRP0  DATA     EXP:TRAP
     1075   01 010DE    0000101B     EX:TRP5  DATA     EXP:TRAP+5
     1076   01 010DF    0F001016     EXTRAP00 XPSD,0   EXP:TRAP
     1077   01 010E0    0F401016     EXTRAP40 XPSD,4   EXP:TRAP
     1078   01 010E1    0F401010     EXTRAP46 XPSD,4   EXP:TRAP-6
     1079   01 010E2    00000000 A   TRAP:FLG DATA     0
     1080   01 010E3    00000000 A   TRAP:SAV DATA     0
     1081   01 010E4    00000000 A   TRAP:IDX DATA     0
     1082   01 010E5    FF3E0000 A   PRIV:MSK DATA     X'FF3E0000'
     1083   01 010E6    0000101A     ETP4:ADR DATA     EXP:TRAP+4
     1084   01 010E7    00001014     ETM2:ADR DATA     EXP:TRAP-2
     1085   01 010E8    00000000 A   LOC1:SW  DATA     0
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE    8
A    1088   01 010E9    FFFFFF9C A   SDAT     DATA     -100                                              *G00

     1090         01 010EA           SAMPLE   EQU      %                                                 *G00
     1091   01 010EA    331010E9              MTW,1    SDAT              UPDATE SAMPLE INTERVAL          *G00
     1092   01 010EB    E910000F A            BLZ      *R15               RETURN IF NOT EXPIRED          *G00
     1093   01 010EC    8F0003AB              XPSD,0   *#SAMPLE%           ELSE CALL GUIDE INPUT         *G00
     1094   01 010ED    22CFFF9C A            LI,R12   -100                 AND SENSE SWITCH SAMPLER     *G00
     1095   01 010EE    35C010E9              STW,R12  SDAT                  RESET SAMPLE INTERVAL       *G00
     1096   01 010EF    E800000F A            B        *R15                   AND RETURN                 *G00

     1098         01 010F0           EXU:AUTO EQU      %
     1099   01 010F0    35F01122              STW,R15  EXIT:EXU
     1100   01 010F1    680010F5              B        IISET:UP
     1101                            *
     1102   01 010F2    22A01187     SHORTA   LI,R10   AUTO:DL
     1103   01 010F3    6AF0108B              BAL,R15  MOVER
     1104   01 010F4    6AF010B7              BAL,R15  TRAP:SW
     1105                            *
     1106   01 010F5    22500004 A   IISET:UP LI,X5    4                 INDIRECT ADDRESS AND INDEXING
     1107   01 010F6    B21A03F3              LW,X1    *LISTPTR,X5       PREPARATION CODE.  RESTORE INDX1
     1108   01 010F7    3510117B              STW,X1   LISTEXT           VALUE TO SAME AS R12.
     1109   01 010F8    32701278              LW,X7    CM:ON             TURN SELECTED CLOCK MARGIN ON.
     1110   01 010F9    6D700045 A            WD,X7    X'45'

     1112   01 010FA    6AF010EA              BAL,R15  SAMPLE            CALL MANUAL SAMPLE ROUTINE      *G00

     1114   01 010FB    22200001 A            LI,X2    1                 X2 IS A SPECIAL INDX FOR MODULE
     1115   01 010FC    22700001 A            LI,X7    1                 IX03, A SF MODULE.  X7 IS A
     1116                            *                                   GENERAL INDX AND IS ALWAYS =1.
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE    9
A    1118   01 010FD    32F0102B              LW,R15   BRANCH            RESTORE XPSD IN LOC+1 AND IN
     1119   01 010FE    35F01114              STW,R15  LOC+1             COMPARATOR REFERENCE TABLE.
     1120   01 010FF    35F0117E              STW,R15  LISTEXT+3         RESTORE INDIRECT ADDRESS (IA).
     1121   01 01100    22F02970              LI,R15   MEMORY
     1122   01 01101    35F015EE              STW,R15  IA
     1123   01 01102    32F0112C              LW,R15   CI:CNT            TURN ON COUNTERS AFTER 56TH
     1124   01 01103    6DF01200 A            WD,R15   X'1200'           ERROR FREE PASS.
     1125   01 01104    22FFFFFF A   SHORTL   LI,R15   -1                SET COUNTER ZERO LOCATION TO
     1126   01 01105    35F01239              STW,R15  CICOUNT           -1.  CLEAR LOCATION OF CNTR 0
     1127   01 01106    22F00000 A            LI,R15   0                 STORED  ADDRESS FROM XPSD.
     1128   01 01107    35F01248              STW,R15  CI:PROC           CM
     1129   01 01108    3280133A              LW,R8    MSAV              LOOP BUT INSIDE LONG LOOP.
     1130   01 01109    3290133B              LW,R9    MSAV1
     1131   01 0110A    35802970              STW,R8   MEMORY            SHORT LOOP REFRESHING STARTS
     1132   01 0110B    35902971              STW,R9   MEMORY+1          HERE.
     1133   01 0110C    32C01338              LW,R12   RSAV
     1134   01 0110D    32D01339              LW,R13   RSAV1
     1135                            *
     1136                            ***********************************************************************
     1137   01 0110E    0E0015E8              LPSD,0   PSW1                  SET  TEST  STATUS
     1138   01 0110F    68001113              B        LOC               EM=3   EXECUTION MODE
     1139   01 01110    67001113              EXU      LOC               EM=2     VARIATION
     1140   01 01111    68001114              B        LOC+1                      (SEE J PARAMETER LINE)
     1141   01 01112    6900102C              BCS,0    RETURN            EM=1
     1142   01 01113    00000000 A   LOC      DATA     0                 EXECUTE  TEST  INSTRUCTION
     1143   01 01114    0F80102C              XPSD,8   RETURN               SAVE  TEST  STATUS
     1144                            ***********************************************************************
     1145                            *
     1146   01 01115    70200392              LC       #SENSE            SHORT LOOP.  SENSE SW1.
     1147   01 01116    69801104              BCS,8    SHORTL
     1148   01 01117    35F0296F              STW,R15  RES:SAV+15
     1149   01 01118    22F01000 A            LI,R15   X'1000'           TURN COUNT PULSE 4
     1150   01 01119    6DF01200 A            WD,R15   X'1200'           BACK ON
     1151   01 0111A    32F01430              LW,R15   CI:SAV            TURN OFF COUNTER INTERRUPTS.
     1152   01 0111B    6DF01100 A            WD,R15   X'1100'
     1153   01 0111C    6CF00045 A            RD,R15   X'45'             SAVE STATUS OF CLOCK MARGINS
     1154   01 0111D    35F01278              STW,R15  CM:ON             FOR ERROR AND STATUS REPORT
     1155   01 0111E    32F01279              LW,R15   CM:OFF            ROUTINES.  TURN CM OFF.
     1156   01 0111F    6DF00045 A            WD,R15   X'45'
     1157   01 01120    35002960              STW,R0   RES:SAV
     1158   01 01121    E8001122              B        *EXIT:EXU
     1159                            *
     1160   01 01122    00000000 A   EXIT:EXU DATA     0
     1161                            *
     1162         01 01123           SAV:RES  EQU      %
     1163   01 01123    35102961              STW,X1   RES:SAV+1         SAVE REGISTERS.
     1164   01 01124    221FFFF3 A            LI,X1    -13
     1165   01 01125    3522296F              STW,X2   RES:SAV+15,X1
     1166   01 01126    32220010 A            LW,X2    X'10',X1
     1167   01 01127    65101125              BIR,X1   %-2
     1168   01 01128    325010E4              LW,X5    TRAP:IDX
     1169   01 01129    328010E3              LW,R8    TRAP:SAV          RESTORE GUIDE'S TRAP XPSD'S.
     1170   01 0112A    358A0040 A            STW,R8   X'40',X5
     1171   01 0112B    E800000F A            B        *R15
     1172                            *
     1173   01 0112C    00000000 A   CI:CNT   DATA     0
     1174                            *
     1175   01 0112D    00000000 A            DATA     0
     1176         01 0112E           CMP:AUTO EQU      %
     1177   01 0112E    35F0112D              STW,R15  %-1
     1178   01 0112F    32801236              LW,R8    EM
     1179   01 01130    218FFFFD A            CI,R8    -3
     1180   01 01131    69301146              BCS,3    NOT:EM2           THE RESULTS OF NON-TRAPPING 'EXU'
     1181   01 01132    328010E2              LW,R8    TRAP:FLG          AND 'BAL'S IN EXECUTION MODE 2
     1182   01 01133    69301146              BCS,3    NOT:EM2           NEED TO BE MODIFIED BECAUSE IF THE
     1183   01 01134    72801113              LB,R8    LOC               ACTION OF THE 'EXECUTE' INSTRUCTION.
     1184   01 01135    4B8015DE              AND,R8   CON7F             *
     1185   01 01136    21800067 A            CI,R8    X'67'             FOR EXECUTES THE RETURN ADDRESS
     1186   01 01137    6830113F              BE       %+8               IN 'RETURN' MUST BE INCREMENTED
     1187   01 01138    2180006A A            CI,R8    X'6A'             BY 3.  FOR 'BAL'S THE SPECIFIED
     1188   01 01139    69301146              BCS,3    NOT:EM2           REGISTER CONTENT MUST BE INCREMENTED
     1189   01 0113A    22300001 A            LI,X3    1                 BY 3.
     1190   01 0113B    72961113              LB,R9    LOC,X3            *
     1191   01 0113C    2590007C A            SLS,R9   -4
     1192   01 0113D    20902960              AI,R9    RES:SAV
     1193   01 0113E    68001140              B        %+2
     1194   01 0113F    2290102C              LI,R9    RETURN
     1195   01 01140    32102961              LW,X1    RES:SAV+1
     1196   01 01141    44801113              ANLZ,R8  LOC
     1197   01 01142    C4800008 A            ANLZ,R8  *R8
     1198   01 01143    21800816              CI,R8    DA(RETURN)
     1199   01 01144    69301146              BCS,3    NOT:EM2
     1200   01 01145    B3300009 A            MTW,3    *R9
     1201                            *
     1202   01 01146    F23003F3     NOT:EM2  LB,X3    *LISTPTR          USE REG 2 AS INDEX BY SETTING IT
     1203   01 01147    4B301323              AND,X3   MINUS2
     1204   01 01148    203FFFFF A            AI,X3    -1                EQUAL TO MOD COUNT-1.  THEN INDEX
     1205   01 01149    3286116C              LW,R8    OBS:IDLA,X3       THRU A COMPARISON BETWEEN THE
     1206   01 0114A    B2A00008 A            LW,R10   *R8
     1207   01 0114B    B29603F3              LW,R9    *LISTPTR,X3       THE OBSERVED DATA IN VARIOUS
     1208   01 0114C    32B00009 A            LW,R11   R9                PLACES.  THAT'S WHY OBSERV IS
     1209   01 0114D    48B0000A A            EOR,R11  R10               INDIRECT.
     1210   01 0114E    68301150              BCR,3    %+2
     1211   01 0114F    6AF01198              BAL,R15  FT:ERR
     1212   01 01150    203FFFFE A            AI,X3    -2                NOT:EM2 COMPARES THE TEST RESULTS
     1213   01 01151    68101149              BCR,1    NOT:EM2+3         AND FT:ERR DOES THE REPORTING.
     1214   01 01152    223FFFFC A            LI,X3    -4                ONLY ITEMS SPECIFIED IN MODULE
     1215                            *                                   ARE CHECKED.  (REG & MEM)
     1216   01 01153    32861187     FT:CMP1  LW,R8    ID:EXT+4,X3       EXTENSION ITEMS THAT ARE ALWAYS
     1217   01 01154    32A61183              LW,R10   OBSEXT+4,X3       CHECKED ARE, LOC+1,INDX 1,
     1218   01 01155    B2A0000A A            LW,R10   *R10              INDX 7, AND INDIRECT ADDR.(IA).
     1219   01 01156    3296117F              LW,R9    LISTEXT+4,X3
     1220   01 01157    32B00009 A            LW,R11   R9
     1221   01 01158    48B0000A A            EOR,R11  R10
     1222   01 01159    68301169              BCR,3    EXT:ERR+1
     1223                            *
     1224   01 0115A    213FFFFC A            CI,X3    -4                SPECIAL TEST FOR R1.  USED
     1225   01 0115B    69301168              BCS,3    EXT:ERR            ONLY FOR SEARCHING SHIFT MODULES.
     1226   01 0115C    72201113              LB,X2    LOC               R1 IS DEDICATED FOR SEARCHING
     1227   01 0115D    21200025 A            CI,X2    X'25'             SHIFT.  THE EXP. DATA IS STORED
     1228   01 0115E    69301168              BCS,3    EXT:ERR           IN 'MEMORY' POSITIONS IN THE
     1229   01 0115F    32202970              LW,X2    MEMORY            MODULES.
     1230   01 01160    31202961              CW,X2    RES:SAV+1
     1231   01 01161    68301169              BCR,3    EXT:ERR+1
     1232   01 01162    3280117A              LW,R8    SPEC:R1
     1233   01 01163    32902970              LW,R9    MEMORY
     1234   01 01164    32A02961              LW,R10   RES:SAV+1
     1235   01 01165    32B00009 A            LW,R11   R9
     1236   01 01166    48B0000A A            EOR,R11  R10
     1237   01 01167    68301169              BCR,3    %+2
     1238                            *
     1239   01 01168    6AF01198     EXT:ERR  BAL,R15  FT:ERR
     1240   01 01169    65301153              BIR,X3   FT:CMP1
     1241   01 0116A    70200392              LC       #SENSE            LONG LOOP.   SENSE SW2.
     1242   01 0116B    69C010F2              BCS,12   SHORTA
     1243   01 0116C    E800112D              B        *CMP:AUTO-1
     1244                            *
     1245         01 0116C           OBS:IDLA EQU      %-1
     1246   01 0116D    01001113              D        1,LOC
     1247   01 0116E    01001113              D        1,LOC
     1248   01 0116F    0500102C              D        5,RETURN
     1249   01 01170    0500102C              D        5,RETURN
     1250   01 01171    0600296C              D        6,RES:SAV+12
     1251   01 01172    06002960              D        6,RES:SAV
     1252   01 01173    07002970              D        7,MEMORY
     1253   01 01174    07002970              D        7,MEMORY
     1254   01 01175    0600296D              D        6,RES:SAV+13
     1255   01 01176    FF000000 A            D        -1,0
     1256   01 01177    07002971              D        7,MEMORY+1
     1257   01 01178    08000000 A            D        8,0
     1258   01 01179    0500102D              D        5,RETURN+1
     1259                            *
     1260   01 0117A    06002961     SPEC:R1  D        6,RES:SAV+1
     1261                            *
     1262         01 0117B           LISTEXT  EQU      %
     1263   01 0117B    00000000 A            DATA     0
     1264   01 0117C    00000001 A            DATA     1
     1265   01 0117D    00002970              DATA     MEMORY
     1266   01 0117E    00000000 A            DATA     0
     1267                            *
     1268         01 0117F           OBSEXT   EQU      %
     1269   01 0117F    00002961              DATA     RES:SAV+1
     1270   01 01180    00002967              DATA     RES:SAV+7
     1271   01 01181    000015EE              DATA     IA
     1272   01 01182    00001114              DATA     LOC+1
     1273                            *
     1274         01 01183           ID:EXT   EQU      %
     1275   01 01183    04000001 A            D        4,1
     1276   01 01184    04000007 A            D        4,7
     1277   01 01185    03000000 A            D        3,0               IAID
     1278   01 01186    02000001 A            D        2,1
     1279                            *
     1280   01 01187    00001196     AUTO:DL  DATA     DEAD              MODULE DISPERSION LIST.
     1281   01 01188    00001113              DATA     LOC               DEAD RECEIVES ALL'EXPECTED'WORDS
     1282   01 01189    000015E8              DATA     PSW1              TO SIMPLIFY MOVING FROM MODULE.
     1283   01 0118A    000015EA              DATA     PSW1SAV
     1284   01 0118B    0000000C A            DATA     R12
     1285   01 0118C    00001338              DATA     RSAV
     1286   01 0118D    00002970              DATA     MEMORY
     1287   01 0118E    0000133A              DATA     MSAV
     1288   01 0118F    0000000D A            DATA     R13
     1289   01 01190    00001339              DATA     RSAV1
     1290   01 01191    00002971              DATA     MEMORY+1
     1291   01 01192    0000133B              DATA     MSAV1
     1292   01 01193    000015E9              DATA     PSW2
     1293   01 01194    000015EB              DATA     PSW2SAV
     1294   01 01195    00001196     AUTO:DLE DATA     DEAD
     1295                            *
     1296   01 01196    00000000 A   DEAD     DATA     0
     1297                            *
     1298   01 01197    00000000 A            DATA     0
     1299         01 01198           FT:ERR   EQU      %
     1300   01 01198    35F01197              STW,R15  %-1               THIS CODE IS ENTERED IN THE
     1301   01 01199    222FFFFF A            LI,X2    -1                EVENT OF A FUNCTIONAL TEST
     1302   01 0119A    352015E1              STW,X2   ERR:FLG           ERROR.
     1303   01 0119B    35201326              STW,X2   PASS:ERR

     1305   01 0119C    EA6003C5              BAL,R6   *#DISUSER%        DISABLE INTERRUPTS              *G00

     1307   01 0119D    32201077              LW,X2    TOT:ERRS
     1308   01 0119E    20200001 A            AI,X2    1
     1309   01 0119F    35201077              STW,X2   TOT:ERRS
     1310                            *
     1311   01 011A0    322015E0              LW,X2    ERR:CNT
     1312   01 011A1    20200001 A            AI,X2    1
     1313   01 011A2    352015E0              STW,X2   ERR:CNT
     1314   01 011A3    222F0FFF A            LI,X2    X'F0FFF'
     1315   01 011A4    6D000041 A            WD,0     X'41'
     1316   01 011A5    652011A5              BIR,X2   %
     1317   01 011A6    6D000040 A            WD,0     X'40'
     1318   01 011A7    70200392              LC       #SENSE            BYPASS FT ERROR PRINTOUT IF
     1319   01 011A8    691011BE              BCS,1    FTE:SS3           SENSE SW4 IS SET.
     1320   01 011A9    2220128E              LI,X2    ESM:HEDR
     1321   01 011AA    31200393              CW,X2    #HDRFLG
     1322   01 011AB    683011B0              BCR,3    %+5
     1323   01 011AC    EA6003CD              #PRINT   ESM:HEDR
            01 011AD    C0004A38 A
     1324   01 011AE    693011B0              BCS,3    %+2
     1325   01 011AF    8F9003CA              XPSD,9   *#RUNADDR%
     1326   01 011B0    22E012E7              LI,R14   MSG:LST
     1327   01 011B1    22C00047 A            LI,R12   71                LINKING DATA TO FORM ERROR
     1328   01 011B2    75C012E6              STB,R12  MSG:CNT           STATUS MESSAGE.
     1329   01 011B3    22C00012 A            LI,R12   18
     1330   01 011B4    35C012E5              STW,R12  WRD:CNT
     1331   01 011B5    6AF0127D              BAL,R15  FORM:ESM
     1332   01 011B6    EA6003CD              #PRINT   OUTBUF
            01 011B7    C0005730 A
     1333   01 011B8    693011BA              BCS,3    %+2
     1334   01 011B9    8F9003CA              XPSD,9   *#RUNADDR%
     1335   01 011BA    2220128E              LI,X2    ESM:HEDR
     1336   01 011BB    35200393              STW,X2   #HDRFLG
     1337   01 011BC    322011C5              LW,X2    FTERSTAT
     1338   01 011BD    B52003CE              STW,X2   *#ERRTEXT%
     1339                            *
     1340   01 011BE    70200392     FTE:SS3  LC       #SENSE            DONT HALT ON ERROR IF SENSE
     1341   01 011BF    692011C3              BCS,2    FT:ERR0           SW3 IS SET                      *G00
     1342   01 011C0    EA6003CC              #TYPE    HALT
            01 011C1    00004718 A
     1343   01 011C2    8F9003CA              XPSD,9   *#RUNADDR%
     1344   01 011C3    EA6003C6     FT:ERR0  BAL,R6   *#ENUSER%         ENABLE INTERRUPTS               *G00
     1345   01 011C4    E8001197              B        *FT:ERR-1
     1346                            *
     1347   01 011C5    11026734 N   FTERSTAT Z        17,,2,BA(FTERRMSG)
     1348         01 011C6           HALT     TEXTCS   '***ERROR HALT***'
     1349                            *
     1350         01 011CB           ADV:PTR  EQU      %
     1351   01 011CB    22300000 A            LI,X3    0                 ADV:PTR ADVANCES THE LIST
     1352   01 011CC    353015E1              STW,X3   ERR:FLG           POINTER TO THE NEXT MODULE
     1353   01 011CD    323003F2              LW,X3    MCR:NUM           IN THE LIST.  IF THE
     1354   01 011CE    20300001 A            AI,X3    1                 CURRENT MODULE IS ADVANCED
     1355   01 011CF    313003F1              CW,X3    MSP:NUM           OUT OF SPECIFIED RANGE,
     1356   01 011D0    692011DB              BCS,2    MST:INIT          CONTROL IS PASSED TO
     1357   01 011D1    353003F2              STW,X3   MCR:NUM
     1358   01 011D2    EA6003C3              #HTECON  X3
            01 011D3    00000003 A
     1359   01 011D4    323C0001 A            LW,X3    1,X6
     1360   01 011D5    4B3015DF              AND,X3   LS:MSK            UPDATE K-LINE, MCR.
     1361   01 011D6    3530145B              STW,X3   KOUT+2
     1362   01 011D7    F23003F3              LB,X3    *LISTPTR
     1363   01 011D8    303003F3              AW,X3    LISTPTR
     1364   01 011D9    353003F3              STW,X3   LISTPTR
     1365   01 011DA    E800000F A            B        *R15
     1366                            *
     1367         01 011DB           MST:INIT EQU      %
     1368   01 011DB    323013F1              LW,X3    SI                IF SI, STATUS INTERVAL, IS
     1369   01 011DC    683011E3              BCR,3    %+7
     1370   01 011DD    3230124E              LW,X3    PASS:CNT          PASS:CNT GO TO PRINT A
     1371   01 011DE    303013F1              AW,X3    SI                STATUS MESSAGE.
     1372   01 011DF    683011E2              BCR,3    %+3
     1373   01 011E0    692011DE              BCS,2    %-2
     1374   01 011E1    680011E3              B        %+2
     1375   01 011E2    6A601503              BAL,X6    STATMSGS
     1376                            *
     1377   01 011E3    323003F0              LW,X3    MST:NUM           SET MCR BACK TO MST.
     1378   01 011E4    353003F2              STW,X3   MCR:NUM
     1379   01 011E5    32301459              LW,X3    KOUT
     1380   01 011E6    324015CA              LW,X4    SPACES
     1381   01 011E7    75400003 A            STB,X4   X3
     1382   01 011E8    3530145B              STW,X3   KOUT+2
     1383   01 011E9    6A60123A              BAL,X6   LSTSERVO          SERVO THE LISTPTR BACK TO
     1384   01 011EA    32301326              LW,X3    PASS:ERR
     1385   01 011EB    69301204              BCS,3    ERR:PASS
     1386                            *
     1387   01 011EC    3230124E              LW,X3    PASS:CNT          ENABLE COUNT PULSE 4 INTERUPT
     1388   01 011ED    32C01430              LW,R12   CI:SAV
     1389   01 011EE    683011FC              BCR,3    NOCI
     1390   01 011EF    21300038 A            CI,X3    56
     1391   01 011F0    691011FC              BCS,1    NOCI
     1392   01 011F1    32C01237              LW,R12   CIXPSD            SET UP COUNT PULSE AND
     1393   01 011F2    35C00058 A            STW,R12  X'58'             COUNTER ZERO LOCATIONS.
     1394   01 011F3    35C00059 A            STW,R12  X'59'
     1395   01 011F4    35C0005A A            STW,R12  X'5A'
     1396   01 011F5    35C0005D A            STW,R12  X'5D'
     1397   01 011F6    32C01238              LW,R12   CIMTW
     1398   01 011F7    35C00052 A            STW,R12  X'52'
     1399   01 011F8    35C00053 A            STW,R12  X'53'
     1400   01 011F9    35C00054 A            STW,R12  X'54'
     1401   01 011FA    32C01430              LW,R12   CI:SAV
     1402   01 011FB    35C0112C              STW,R12  CI:CNT
     1403                            *
     1404   01 011FC    3230124D     NOCI     LW,X3    PASS:OK
     1405   01 011FD    20300001 A            AI,X3    1
     1406   01 011FE    3530124D              STW,X3   PASS:OK
     1407   01 011FF    3130124F              CW,X3    PASS:LIM
     1408   01 01200    68201204              BCR,2    ERR:PASS
     1409   01 01201    6A601251              BAL,X6   VM:CM             SEQUENCE CLOCK MARGINS TO
     1410   01 01202    3260127B              LW,X6    CM:SAV
     1411   01 01203    35601278              STW,X6   CM:ON
     1412   01 01204    22300000 A   ERR:PASS LI,X3    0                 NEXT SETTING EVERY 10TH
     1413   01 01205    35301326              STW,X3   PASS:ERR          ERROR FREE PASS.
     1414                            *
     1415   01 01206    323014D4              LW,X3    LCNT
     1416   01 01207    68301210              BCR,3    %+9
     1417   01 01208    3230124E              LW,X3    PASS:CNT
     1418                            *
     1419   01 01209    303014D4              AW,X3    LCNT
     1420   01 0120A    6830120D              BCR,3    %+3               GO TO GUIDE IDLE WHEN LCNT
     1421   01 0120B    69201209              BCS,2    %-2               IS AN EVEN MULTIPLE OF PASS:CNT.
     1422   01 0120C    68001210              B        %+4
     1423   01 0120D    8F9003CA              XPSD,9   *#RUNADDR%
     1424   01 0120E    22300000 A            LI,X3    0
     1425   01 0120F    68001211              B        %+2
     1426   01 01210    3230124E              LW,X3    PASS:CNT
     1427   01 01211    20300001 A            AI,X3    1
     1428   01 01212    3530124E              STW,X3   PASS:CNT
     1429   01 01213    22300000 A            LI,X3    0
     1430   01 01214    353015E0              STW,X3   ERR:CNT
     1431   01 01215    32301235              LW,X3    EM:FLG            EM:FLG IS SET IN EM:C,
     1432   01 01216    6930122A              BCS,3    EXIT:EM           K-LINE INDICATING USER
     1433   01 01217    32301234              LW,X3    EM:CNT            HAS FIXED EM VALUE.
     1434   01 01218    2130000D A            CI,X3    13
     1435   01 01219    6930122C              BCS,3    EXIT:EM+2         SEQUENCE EXECUTION MODE
     1436   01 0121A    32301236              LW,X3    EM                TO NEXT SETTING AFTER
     1437   01 0121B    32361233              LW,X3    EM:LIST,X3        BY FORCING EM TO NEXT STATE.
     1438   01 0121C    35301236              STW,X3   EM
     1439   01 0121D    68301223              BCR,3    %+6
     1440   01 0121E    213FFFFF A            CI,X3    -1
     1441   01 0121F    68301221              BE       %+2
     1442   01 01220    20300001 A            AI,X3    1
     1443   01 01221    483015E4              EOR,X3   ONES
     1444   01 01222    20300001 A            AI,X3    1
     1445   01 01223    EA6003C3              #HTECON  X3
            01 01224    00000003 A
     1446   01 01225    32C015CA              LW,R12   SPACES            UPDATE EM PARAMETER IN J-LINE.
     1447   01 01226    326C0001 A            LW,X6    1,X6
     1448   01 01227    22300002 A            LI,X3    2
     1449   01 01228    7566000C A            STB,X6   R12,X3
     1450   01 01229    35C013AB              STW,R12  JOUT+6
     1451   01 0122A    22300000 A   EXIT:EM  LI,X3    0
     1452   01 0122B    6800122D              B        %+2
     1453   01 0122C    20300001 A            AI,X3    1
     1454   01 0122D    35301234              STW,X3   EM:CNT
     1455   01 0122E    6800107C              B        AUTOTEST
     1456                            *
     1457   01 0122F    00000000 A            DATA     0
     1458   01 01230    FFFFFFFC A            DATA     -4
     1459   01 01231    00000000 A            DATA     0
     1460   01 01232    FFFFFFFD A            DATA     -3
     1461   01 01233    FFFFFFFF A   EM:LIST  DATA     -1
     1462                            *
     1463   01 01234    00000000 A   EM:CNT   DATA     0
     1464   01 01235    00000000 A   EM:FLG   DATA     0
     1465   01 01236    00000000 A   EM       DATA     0
     1466   01 01237    0F001248     CIXPSD   XPSD,0   CI:PROC
     1467   01 01238    33101239     CIMTW    MTW,1    CICOUNT
     1468   01 01239    00000000 A   CICOUNT  DATA     0
     1469                            *
     1470         01 0123A           LSTSERVO EQU      %
     1471   01 0123A    22700001 A            LI,X7    1                 LIST SERVO, SERVOS THE LIST
     1472   01 0123B    22A01ACE              LI,R10   LIST              POINTER TO THE MODULE
     1473   01 0123C    35A003F3              STW,R10  LISTPTR           SPECIFIED BY MCR:NUM.  IT
     1474   01 0123D    317003F2              CW,X7    MCR:NUM           IS USED BY THE ADV:PTR
     1475   01 0123E    68301243              BCR,3    %+5               ROUTINE AND THE DISPLAY
     1476   01 0123F    F290000A A            LB,R9    *R10              LIST ROUTINE(DL).
     1477   01 01240    30A00009 A            AW,R10   R9
     1478   01 01241    20700001 A            AI,X7    1
     1479   01 01242    6800123C              B        LSTSERVO+2        IT IS ALSO USED BY THE
     1480   01 01243    32801250              LW,R8    KL:FLG            K-LINE WHEN A DIFFERENT
     1481   01 01244    E930000F A            BCS,3    *R15              MCR IS SPECIFIED.
     1482   01 01245    22800000 A            LI,R8    0
     1483   01 01246    680C0000 A            B        0,X6
     1484                            *
     1485                                     BOUND    8                 THIS IS THE COUNTER ZERO
     1486   01 01248    00000000 A   CI:PROC  DATA     0                 INTERRUPT PROCESSOR.  THE
     1487   01 01249    00000000 A            DATA     0                 RIGHT HEX DIGTI OF CI:PROC
     1488   01 0124A    0000124C              DATA     %+2               IS OUTPUT ON ERROR AND
     1489   01 0124B    04000000 A            DATA     X'04000000'       STATUS MESSAGES UNDER THE
     1490   01 0124C    0E301248              LPSD,3   CI:PROC           CI HEADER.
     1491                            *
     1492   01 0124D    00000000 A   PASS:OK  DATA     0
     1493   01 0124E    00000001 A   PASS:CNT DATA     1
     1494   01 0124F    0000000A A   PASS:LIM DATA     10
     1495   01 01250    00000000 A   KL:FLG   DATA     0
     1496                            *
     1497         01 01251           VM:CM    EQU      %
     1498   01 01251    328013AA              LW,R8    JOUT+5            EXIT CLOCK MARGIN IF JOUT
     1499   01 01252    31801272              CW,R8    X40C3             INDICATES CM IS FIXED.
     1500   01 01253    682C0000 A            BLE      0,X6              CM IS NOT FIXED - GO SET MARGINS
     1501   01 01254    6C400045 A            RD,X4    X'45'             TEST THE VOLTAGE NOT NORMAL
     1502   01 01255    4B401276              AND,X4   VM:MSK            BIT IN THE MARGIN CONTROL
     1503   01 01256    682C0000 A            BCR,2    0,X6              WORD. IF ANY SUPPLY IS NOT
     1504   01 01257    22400002 A            LI,X4    2                 IN THE NORMAL POSITION BIT 11
     1505   01 01258    7220126D              LB,X2    MAR:SET-1         WILL BE LOW.  THIS INHIBITS
     1506   01 01259    32A4126E              LW,R10   MAR:SET,X2        THE PROGRAM FROM SETTING
     1507   01 0125A    6C800045 A            RD,R8    X'45'             CLOCK MARGINS.
     1508   01 0125B    4B801273              AND,R8   NEW:CM
     1509   01 0125C    35801279              STW,R8   CM:OFF
     1510   01 0125D    75A813AA              STB,R10  JOUT+5,X4         STORE NEW CM IN JOUT
     1511   01 0125E    4BA01275              AND,R10  MSK:CM            REMOVE EBCDIC FROM MAR:SET IN R10
     1512   01 0125F    30801277              AW,R8    LO:MSK
     1513   01 01260    3580127A              STW,R8   CM:LO             SET UP CM:LO FOR USE IN
     1514   01 01261    4B801273              AND,R8   NEW:CM
     1515   01 01262    4880000A A            EOR,R8   R10               SNAPPING ANY MULTIPLY
     1516   01 01263    3580127B              STW,R8   CM:SAV            INSTRUCTION.
     1517   01 01264    22400000 A            LI,X4    0                 SET UP CM:ON WITH LATEST
     1518   01 01265    3540124D              STW,X4   PASS:OK           MARGIN SETTING.  CM:ON IS
     1519   01 01266    35401271              STW,X4   MAR:FLG           USED JUST PRIOR TO LOC.
     1520   01 01267    20200001 A            AI,X2    1                 CM:OFF IS USED JUST AFTER
     1521   01 01268    21200003 A            CI,X2    3                 LOC.
     1522   01 01269    6910126B              BL       %+2
     1523   01 0126A    22200000 A            LI,X2    0
     1524   01 0126B    7520126D              STB,X2   MAR:SET-1
     1525   01 0126C    680C0000 A            B        0,X6
     1526                            *
     1527   01 0126D    00000000 A            DATA     0                 CM
     1528   01 0126E    0000F0F0 A   MAR:SET  M        0,0,0,0,0,X'F0',X'F0'
     1529   01 0126F    0040F0F1 A            M        0,0,0,1,0,X'F0',X'F1'
     1530   01 01270    0480F1F2 A            M        0,1,0,2,0,X'F1',X'F2'
     1531                            *
     1532   01 01271    00000000 A   MAR:FLG  DATA     0
     1533   01 01272    4040C340 A   X40C3    DATA     X'4040C340'
     1534   01 01273    FF3FFFFF A   NEW:CM   DATA     X'FF3FFFFF'
     1535   01 01274    F33FFFFF A   NEW:MSK  DATA     X'F33FFFFF'
     1536   01 01275    00C00000 A   MSK:CM   DATA     X'0C00000'
     1537   01 01276    00100000 A   VM:MSK   DATA     X'100000'
     1538   01 01277    00800000 A   LO:MSK   DATA     X'00800000'
     1539   01 01278    00000000 A   CM:ON    DATA     0
     1540   01 01279    00000000 A   CM:OFF   DATA     0
     1541   01 0127A    00800000 A   CM:LO    DATA     X'00800000'
     1542   01 0127B    00000000 A   CM:SAV   DATA     0
     1543                            *
     1544                            *    THE CALLING SEQUENCE TO USE FORM:ESM IS AS FOLLOWS:
     1545                            *
     1546                            *        LI,R14   MSG:LST
     1547                            *        LI,R12   71
     1548                            *        STB,R12  MSG:CNT
     1549                            *        LI,R12   18
     1550                            *        STW,R12  WRD:CNT
     1551                            *        BAL,R15  FORM:ESM
     1552                            *
     1553   01 0127C    00000000 A            DATA     0
     1554         01 0127D           FORM:ESM EQU      %                 THIS CODE IS ENTERED FROM
     1555   01 0127D    35F0127C              STW,R15  %-1               CONT:FTE, FUNCT. TEST ERR
     1556   01 0127E    22700000 A            LI,X7    0                 EXIT.  A LIST OF CONTROL
     1557   01 0127F    B2CE000E A            LW,R12   *R14,X7           WORDS, MSG:LST, CAUSE
     1558   01 01280    68101286              BCR,1    BALNORM           BALNORM TO BAL OUT TO THE
     1559   01 01281    B2C0000C A            LW,R12   *R12              FETCHING SUBROUTINES TO
     1560   01 01282    6AF01391              BAL,R15  DHEX:CON          SET UP THE ERROR STATUS
     1561   01 01283    35DE15CC              STW,R13  OUTBUF,X7         MESSAGE.  IF THE MSG:LST
     1562   01 01284    20700001 A            AI,X7    1                 WORD IS NEG. IT CONTAINS
     1563   01 01285    68001287              B        %+2               THE WORD TO BE CONVERTED.
     1564   01 01286    EAF0000C A   BALNORM  BAL,R15  *R12
     1565   01 01287    35CE15CC              STW,R12  OUTBUF,X7
     1566   01 01288    20700001 A            AI,X7    1
     1567   01 01289    317012E5              CW,X7    WRD:CNT
     1568   01 0128A    6930127F              BCS,3    FORM:ESM+2
     1569   01 0128B    72C012E6              LB,R12   MSG:CNT
     1570   01 0128C    75C015CC              STB,R12  OUTBUF
     1571   01 0128D    E800127C              B        *FORM:ESM-1
     1572                            *
     1573                            ESM:HEDR TEXTCS   'MOD EL TESTINST E/P PAS EM MNEM FAILED ',;
     1574         01 0128E             'EXPECTED CM OBSERVED CI DIFF=EOR'
     1575                            *
     1576   01 012A0    B2C003F3     ESM:MOD  LW,R12   *LISTPTR          FETCH MODULE NO. FROM MODULE
     1577   01 012A1    EA6003C3              #HTECON  R12
            01 012A2    0000000C A
     1578   01 012A3    32CC0001 A            LW,R12   1,X6
     1579   01 012A4    4BC015DF              AND,R12  LS:MSK
     1580   01 012A5    E800000F A            B        *R15
     1581                            *
     1582         01 012A6           ESM:EL   EQU      %                 FETCH ELEMENT # FROM MODULE
     1583   01 012A6    22200001 A            LI,X2    1
     1584   01 012A7    F2C403F3              LB,R12   *LISTPTR,X2
     1585   01 012A8    222FFFFC A            LI,X2    -4
     1586   01 012A9    30C0000C A            AW,R12   R12
     1587   01 012AA    652012A9              BIR,X2   %-1
     1588   01 012AB    EA6003C3              #HTECON  R12               EBCDIC AND HOLD IN R12.
            01 012AC    0000000C A
     1589   01 012AD    32CC0001 A            LW,R12   1,X6
     1590   01 012AE    4BC0132A              AND,R12  EL:MSK1
     1591   01 012AF    E800000F A            B        *R15
     1592                            *
     1593   01 012B0    22200001 A   ESM:MNEM LI,X2    1                 FETCH MNEMONIC FROM LIST.
     1594   01 012B1    B25403F3              LW,X5    *LISTPTR,X2
     1595   01 012B2    72500005 A            LB,X5    X5
     1596   01 012B3    4B5015DE              AND,X5   CON7F
     1597   01 012B4    32CA1612              LW,R12   MNEMLIST,X5       AND HOLD IN R12.
     1598   01 012B5    E800000F A            B        *R15
     1599                            *
     1600   01 012B6    32C015E0     ESM:ERRS LW,R12   ERR:CNT           FETCH THE ERROR COUNTER, CONVERT
     1601   01 012B7    EA6003C3              #HTECON  R12
            01 012B8    0000000C A
     1602   01 012B9    32CC0001 A            LW,R12   1,X6
     1603   01 012BA    4BC015DF              AND,R12  LS:MSK
     1604   01 012BB    E800000F A            B        *R15
     1605                            *
     1606   01 012BC    32C0124E     ESM:PASS LW,R12   PASS:CNT          FETCH THE PASS COUNTER, CONVERT
     1607   01 012BD    EA6003C3              #HTECON  R12
            01 012BE    0000000C A
     1608   01 012BF    32CC0001 A            LW,R12   1,X6
     1609   01 012C0    4BC015DF              AND,R12  LS:MSK
     1610   01 012C1    E800000F A            B        *R15
     1611                            *
     1612   01 012C2    32201278     ESM:CM   LW,X2    CM:ON             FETCH CLOCK MARGIN THAT
     1613   01 012C3    30200002 A            AW,X2    X2                WAS SAVED AT LOC EXIT.
     1614   01 012C4    30200002 A            AW,X2    X2
     1615   01 012C5    72200002 A            LB,X2    X2
     1616   01 012C6    4B2012D7              AND,X2   THREE             PUT * BEFORE SETTING IF
     1617   01 012C7    32C013AA              LW,R12   JOUT+5            IT DISAGREES WITH EXP.
     1618   01 012C8    31C412D0              CW,R12   CM:TSTA,X2        SETTING.
     1619   01 012C9    E830000F A            BCR,3    *R15
     1620   01 012CA    31C412D4              CW,R12   CM:TSTB,X2
     1621   01 012CB    E830000F A            BCR,3    *R15
     1622   01 012CC    22600002 A            LI,X6    2
     1623   01 012CD    752C000C A            STB,X2   R12,X6
     1624   01 012CE    49C012D3              OR,R12   ASTR:MSK
     1625   01 012CF    E800000F A            B        *R15
     1626                            *
     1627   01 012D0    4040F040 A   CM:TSTA  DATA     X'4040F040'
     1628   01 012D1    4040F140 A            DATA     X'4040F140'
     1629   01 012D2    4040F240 A            DATA     X'4040F240'
     1630   01 012D3    405CF040 A   ASTR:MSK DATA     X'405CF040'
     1631                            *
     1632   01 012D4    4040C140 A   CM:TSTB  DATA     X'4040C140'
     1633   01 012D5    4040C240 A            DATA     X'4040C240'
     1634   01 012D6    4040C340 A            DATA     X'4040C340'
     1635   01 012D7    00000003 A   THREE    DATA     3
     1636                            *
     1637   01 012D8    32C013AB     ESM:EM   LW,R12   JOUT+6
     1638   01 012D9    E800000F A            B        *R15
     1639                            *
     1640   01 012DA    32601248     ESM:CI   LW,X6    CI:PROC
     1641   01 012DB    693012DE              BCS,3    %+3
     1642   01 012DC    22600040 A            LI,X6    X'40'
     1643   01 012DD    680012E1              B        %+4
     1644   01 012DE    EA6003C3              #HTECON  CI:PROC           CONVERT RIGHT HEX DIGIT
            01 012DF    00001248
     1645   01 012E0    326C0001 A            LW,X6    1,X6              OF CI:PROC AND PUT IT
     1646   01 012E1    22200001 A            LI,X2    1                 IN FRONT OF CURRENT
     1647   01 012E2    32C013AC              LW,R12   JOUT+7            SETTING IF CI IN ERROR
     1648   01 012E3    7564000C A            STB,X6   R12,X2            AND STATUS MESSAGES.
     1649   01 012E4    E800000F A            B        *R15
     1650                            *
     1651   01 012E5    00000000 A   WRD:CNT  DATA     0
     1652   01 012E6    00000000 A   MSG:CNT  DATA     0
     1653   01 012E7    000012A0     MSG:LST  DATA     ESM:MOD           0 <<< WORD POSITION IN OUTBUF FOR
     1654   01 012E8    000012A6              DATA     ESM:EL            1
     1655   01 012E9    FF001113              GEN,8,24 -1,LOC            2,3
     1656   01 012EA    00000000 A            DATA     0
     1657   01 012EB    000012B6              DATA     ESM:ERRS          4
     1658   01 012EC    000012BC              DATA     ESM:PASS          5     THESE ARE SUBROUTINE
     1659   01 012ED    000012D8              DATA     ESM:EM            6     ADDRESSES THAT ARE USED BY
     1660   01 012EE    000012B0              DATA     ESM:MNEM          7
     1661   01 012EF    000012F8              DATA     ESM:FAIL          8     FORM:MSG TO STUFF OUTBUF.
     1662   01 012F0    000012FB              DATA     ESM:FAIL1         9
     1663   01 012F1    FF000009 A            GEN,8,24 -1,R9             10,11
     1664   01 012F2    00000000 A            DATA     0
     1665   01 012F3    000012C2              DATA     ESM:CM            12
     1666   01 012F4    FF00000A A            GEN,8,24 -1,R10            13,14
     1667   01 012F5    00000000 A            DATA     0
     1668   01 012F6    000012DA              DATA     ESM:CI            15
     1669   01 012F7    FF00000B A            GEN,8,24 -1,R11            16,17
     1670                            *
     1671   01 012F8    72200008 A   ESM:FAIL LB,X2    R8                FETCH IDENTIFIER FLAG FROM 1ST
     1672   01 012F9    32C41315              LW,R12   FAIL:ID,X2        BYTE OF R8.  USE AS INDEX TO
     1673   01 012FA    E800000F A            B        *R15              FETCH EBCDIC RELATED
     1674                            *                                   TO FAILING ITEM.
     1675   01 012FB    72200008 A   ESM:FAIL1 LB,X2   R8
     1676   01 012FC    4B8015ED              AND,R8   ADR:MSK
     1677   01 012FD    21200005 A            CI,X2    5
     1678   01 012FE    6830130E              BE       CHECK5
     1679   01 012FF    21200007 A            CI,X2    7
     1680   01 01300    6830130E              BE       CHECK5
     1681   01 01301    21200006 A            CI,X2    6
     1682   01 01302    69301304              BNE      %+2
     1683   01 01303    208FD6A0 N            AI,R8    0-RES:SAV
     1684   01 01304    21200001 A            CI,X2    1
     1685   01 01305    69301307              BCS,3    %+2
     1686   01 01306    22800000 A            LI,R8    0
     1687   01 01307    EA6003C3              #HTECON  R8
            01 01308    00000008 A
     1688   01 01309    32C015CA              LW,R12   SPACES
     1689   01 0130A    322C0001 A            LW,X2    1,X6
     1690   01 0130B    22500002 A            LI,X5    2
     1691   01 0130C    752A000C A            STB,X2   R12,X5
     1692   01 0130D    E800000F A            B        *R15
     1693                            *
     1694   01 0130E    32500008 A   CHECK5   LW,X5    R8
     1695   01 0130F    4B5015CB              AND,X5   ONE
     1696   01 01310    21200005 A            CI,X2    5
     1697   01 01311    69301313              BCS,3    %+2
     1698   01 01312    20500001 A            AI,X5    1
     1699   01 01313    32CA131E              LW,R12   ID:EL,X5
     1700   01 01314    E800000F A            B        *R15
     1701                            *
     1702   01 01315    00000000 A   FAIL:ID  DATA     0
     1703   01 01316    40D3D6C3 A            TEXT     ' LOC'
     1704   01 01317    40D7E2C4 A            TEXT     ' PSD'
     1705   01 01318    40C9C140 A            TEXT     ' IA '
     1706   01 01319    40C9C4E7 A            TEXT     ' IDX'
     1707   01 0131A    40D7E2E6 A            TEXT     ' PSW'
     1708   01 0131B    40D9C5C7 A            TEXT     ' REG'
     1709   01 0131C    40D4C5D4 A            TEXT     ' MEM'
     1710   01 0131D    40E2D740 A   TXT:PTR  TEXT     ' SP '
     1711                            *
     1712   01 0131E    4040F040 A   ID:EL    TEXT     '  0 '
     1713   01 0131F    4040F140 A            TEXT     '  1 '
     1714   01 01320    4040F240 A            TEXT     '  2 '
     1715                            *
     1716   01 01321    32C015CA     ESM:NULL LW,R12   SPACES
     1717   01 01322    E800000F A            B        *R15
     1718                            *
     1719   01 01323    FFFFFFFE A   MINUS2   DATA     -2
     1720   01 01324    03000000 A   CNT:P3   DATA     X'03000000'
     1721   01 01325    4040FE40 A   NEG2MSK  DATA     X'4040FE40'
     1722                            *
     1723   01 01326    00000000 A   PASS:ERR DATA     0
     1724   01 01327    00000000 A   IO34IDX  DATA     0
     1725   01 01328    00000000 A   IO78IDX  DATA     0
     1726   01 01329    FFF80000 A   FLAG:MSK DATA     X'FFF80000'
     1727   01 0132A    40FFFF40 A   EL:MSK1  DATA     X'40FFFF40'
     1728                            *
     1729   01 0132B    40D4D6C4 A   MODT     TEXT     ' MOD'
     1730                            *
     1731   01 0132C    4040F140 A            TEXT     '  1 '
     1732   01 0132D    40F1F240 A            TEXT     ' 12 '
     1733   01 0132E    404EF040 A            TEXT     ' +0 '
     1734         01 0132F           LFT:PTR  EQU %
     1735                            *
     1736   01 0132F    4040F240 A            TEXT     '  2 '
     1737   01 01330    40F1F340 A            TEXT     ' 13 '
     1738   01 01331    404EF140 A            TEXT     ' +1 '
     1739         01 01332           RHT:PTR  EQU      %
     1740                            *
     1741   01 01332    00000002 A            DATA     2
     1742   01 01333    00000004 A            DATA     4
     1743   01 01334    00000006 A            DATA     6
     1744         01 01335           IN:0X34  EQU      %
     1745                            *
     1746   01 01335    0000000C A            DATA     12
     1747   01 01336    00000008 A            DATA     8
     1748   01 01337    0000000A A            DATA     10
     1749         01 01338           IN:1X78  EQU      %
     1750                            *
     1751   01 01338    00000000 A   RSAV     DATA     0
     1752   01 01339    00000000 A   RSAV1    DATA     0
     1753   01 0133A    00000000 A   MSAV     DATA     0
     1754   01 0133B    00000000 A   MSAV1    DATA     0
     1755   01 0133C    00000003 A            DATA     3
     1756   01 0133D    00000005 A            DATA     5
     1757   01 0133E    00000007 A            DATA     7
     1758         01 0133F           OUT:0X34 EQU      %
     1759                            *
     1760   01 0133F    0000000D A            DATA     13
     1761   01 01340    00000009 A            DATA     9
     1762   01 01341    0000000B A            DATA     11
     1763         01 01342           OUT:1X78 EQU      %
     1764                            *
     1765   01 01342    C9D54040 A            TEXT     'IN'
     1766   01 01343    D6E4E340 A            TEXT     'OUT'
     1767         01 01344           IO:PTR   EQU      %
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE   10
A    1770                            *
     1771                            *  LABEL MAP FOR        -3        T    ' PSW'          T=TEXT
     1772                            *   MOD:DATA            -2        T    ' REG'          D=DATA
     1773                            *                       -1        T    ' MEM'
     1774                            *                         TXT:PTR EQU  %
     1775                            *
     1776                            * -3        T    '  1 '           D    2                D    3
     1777                            * -2        T    '  C '           D    4                D    5
     1778                            * -1        T    ' +0 '           D    6                D    7
     1779                            *   LFT:PTR EQU  %        IN:0X34 EQU  %        OUT:0X34 EQU %
     1780                            *
     1781                            * -3        T    '  2 '           D    12               D    13
     1782                            * -2        T    '  D '           D    8                D    9
     1783                            * -1        T    ' +1 '           D    10               D    11
     1784                            *   RHT:PTR EQU  %        IN:1X78 EQU  %        OUT:1I78 EQU %
     1785                            *
     1786                            *
     1787                            * 3,4&7,8 ARE WORD      -2        T    'IN  '          OB=OBSERVED
     1788                            * DISPLACEMENTS IN      -1        T    'OUT '          EX=EXPECTED
     1789                            * OUTBUF FOR 'MOD'        IO:PTR  EQU  %
     1790                            *
     1791   01 01344    00000000 A            DATA     0
     1792         01 01345           MOD:HDR  EQU      %                 THE MOD:HDR AND MOD:DATA
     1793   01 01345    35F01344              STW,R15  %-1               ROUTINES ARE USED DURING
     1794   01 01346    22700001 A            LI,X7    1                 OUTPUT OF SNAP DATA AND
     1795   01 01347    32C0132B              LW,R12   MODT              BY THE 'DL' ROUTINE TO
     1796   01 01348    35C015CC              STW,R12  OUTBUF            PRESENT THE MODULE DATA
     1797   01 01349    6AF012A0              BAL,R15  ESM:MOD           IN A SNAP HAEDER FORMAT.
     1798   01 0134A    35C015CD              STW,R12  OUTBUF+1
     1799   01 0134B    6AF012A6              BAL,R15  ESM:EL
     1800   01 0134C    35C015CE              STW,R12  OUTBUF+2
     1801   01 0134D    6AF012B0              BAL,R15  ESM:MNEM
     1802   01 0134E    35C015CF              STW,R12  OUTBUF+3          MOD:HDR OUTPUTS THE FIRST
     1803   01 0134F    32C015CA              LW,R12   SPACES            LINE OF THE SNAP HEADER
     1804   01 01350    35C015D0              STW,R12  OUTBUF+4          BLOCK.
     1805   01 01351    B2CE03F3              LW,R12   *LISTPTR,X7
     1806   01 01352    6AF01391              BAL,R15  DHEX:CON
     1807   01 01353    35D015D1              STW,R13  OUTBUF+5
     1808   01 01354    35C015D2              STW,R12  OUTBUF+6
     1809   01 01355    32D0145D              LW,R13   KOUT+4
     1810   01 01356    32C015CA              LW,R12   SPACES
     1811   01 01357    75D0000C A            STB,R13  R12
     1812   01 01358    35C015D4              STW,R12  OUTBUF+8
     1813   01 01359    22C0001F A            LI,R12   31
     1814   01 0135A    75C015CC              STB,R12  OUTBUF
     1815                            *
     1816   01 0135B    EA6003CD     PRNT:MOD #PRINT   OUTBUF,C2
            01 0135C    C2005730 A
     1817   01 0135D    6930135F              BCS,3    %+2
     1818   01 0135E    8F9003CA              XPSD,9   *#RUNADDR%
     1819   01 0135F    E8001344              B        *MOD:HDR-1
     1820                            *
     1821   01 01360    00000000 A            DATA     0
     1822         01 01361           MOD:DATA EQU      %                 MOD:DATA OUTPUTS THE DATA
     1823   01 01361    35F01360              STW,R15  %-1               PERTAINING TO THE CURRENT
     1824   01 01362    32C015CA              LW,R12   SPACES
     1825   01 01363    35C015D1              STW,R12  OUTBUF+5
     1826   01 01364    224FFFFD A            LI,X4    -3
     1827   01 01365    223FFFFE A            LI,X3    -2
     1828   01 01366    22C01335              LI,R12   IN:0X34
     1829   01 01367    35C01327              STW,R12  IO34IDX
     1830   01 01368    22C01338              LI,R12   IN:1X78
     1831   01 01369    35C01328              STW,R12  IO78IDX
     1832   01 0136A    F2A003F3              LB,R10   *LISTPTR
     1833   01 0136B    31A8133F              CW,R10   OUT:0X34,X4
     1834   01 0136C    E9101360              BCS,1    *MOD:DATA-1
     1835   01 0136D    32C8131D              LW,R12   TXT:PTR,X4
     1836   01 0136E    35C015CC              STW,R12  OUTBUF
     1837   01 0136F    32C8132F              LW,R12   LFT:PTR,X4
     1838   01 01370    35C015CD              STW,R12  OUTBUF+1
     1839   01 01371    32C61344     M2LOOP   LW,R12   IO:PTR,X3
     1840   01 01372    35C015CE              STW,R12  OUTBUF+2
     1841   01 01373    35C015D2              STW,R12  OUTBUF+6
     1842   01 01374    B2581327              LW,X5    *IO34IDX,X4
     1843   01 01375    B2CA03F3              LW,R12   *LISTPTR,X5
     1844   01 01376    6AF01391              BAL,R15  DHEX:CON
     1845   01 01377    35D015CF              STW,R13  OUTBUF+3
     1846   01 01378    35C015D0              STW,R12  OUTBUF+4
     1847   01 01379    22C00013 A            LI,R12   19
     1848   01 0137A    75C015CC              STB,R12  OUTBUF
     1849   01 0137B    31A81342              CW,R10   OUT:1X78,X4
     1850   01 0137C    69101386              BCS,1    OUT:MOD
     1851   01 0137D    32C81332              LW,R12   RHT:PTR,X4
     1852   01 0137E    35C015D1              STW,R12  OUTBUF+5
     1853   01 0137F    B2581328              LW,X5    *IO78IDX,X4
     1854   01 01380    B2CA03F3              LW,R12   *LISTPTR,X5
     1855   01 01381    6AF01391              BAL,R15  DHEX:CON
     1856   01 01382    35D015D3              STW,R13  OUTBUF+7
     1857   01 01383    35C015D4              STW,R12  OUTBUF+8
     1858   01 01384    22C00023 A            LI,R12   35
     1859   01 01385    75C015CC              STB,R12  OUTBUF
     1860   01 01386    EA6003CD     OUT:MOD  #PRINT   OUTBUF
            01 01387    C0005730 A
     1861   01 01388    6930138A              BCS,3    %+2
     1862   01 01389    8F9003CA              XPSD,9   *#RUNADDR%
     1863   01 0138A    22C0133F              LI,R12   OUT:0X34
     1864   01 0138B    35C01327              STW,R12  IO34IDX
     1865   01 0138C    22C01342              LI,R12   OUT:1X78
     1866   01 0138D    35C01328              STW,R12  IO78IDX
     1867   01 0138E    65301371              BIR,X3   M2LOOP
     1868   01 0138F    65401365              BIR,X4   MOD:DATA+4
     1869   01 01390    E8001360              B        *MOD:DATA-1
     1870                            *
     1871         01 01391           DHEX:CON EQU      %                 DHEX:CON CONVERTS A WORD
     1872   01 01391    EA6003C3              #HTECON  R12               OF HEX IN TO 2 WORDS OF
            01 01392    0000000C A
     1873   01 01393    B2D00006 A            LW,R13   *X6               EBCDIC.  R13 HAS HIGH
     1874   01 01394    32CC0001 A            LW,R12   1,X6              SIDE, R12 HAS LOW SIDE.
     1875   01 01395    E800000F A            B        *R15
     1876                            *
     1877         01 01396           MOD:MSG  TEXTCS   'MOD# SEQUENCE ERROR'
     1878                            *
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE   11
A    1880         01 0139B           JH       TEXTCS   ' MSGDEV  COMDEV  SI CM  EM  CI MIDEV'
     1881         01 013A5           JOUT     TEXTCS   '   0002    0001 00A  0   0   1 0000'
     1882         01 013AE           JINIT    TEXTCS   '   0002    0001 00A  0   0   1 0000'
     1883   01 013B7    00004E94              DATA     BA(JOUT)
     1884   01 013B8    00004E6C              DATA     BA(JH)
     1885                            *
     1886         01 013B9           JRTA     EQU      %
     1887   01 013B9    356013C5              STW,X6   JL:EXIT
     1888   01 013BA    70200006 A            LC       X6
     1889   01 013BB    E83003C9              BCR,3    *#FIDLE%          EXIT THIS ROUTINE IF NO
     1890                            *                                   CHANGES WERE MADE
     1891   01 013BC    223FFFF8 A            LI,X3    -8
     1892   01 013BD    328613AE              LW,R8    JOUT+9,X3
     1893   01 013BE    31861AC1              CW,R8    PLINEIN+9,X3      USE JP:LST TO ENTER ONLY
     1894   01 013BF    683013C3              BCR,3    %+4               THOSE SUBROUTINES IN
     1895   01 013C0    B2C613CE              LW,R12   *JP:LST,X3        WHICH PARAMETER CHANGES
     1896   01 013C1    691013C3              BCS,1    %+2               WERE MADE BY THE USER.
     1897   01 013C2    EAF0000C A            BAL,R15  *R12
     1898   01 013C3    653013BD              BIR,X3   %-6
     1899   01 013C4    E80003C9              B        *#FIDLE%
     1900                            *
     1901   01 013C5    00000000 A   JL:EXIT  DATA     0
     1902                            *
     1903   01 013C6    010013CF              D        1,MSG:C           ARRANGED IN A 1 TO 1
     1904   01 013C7    FF000000 A            D        -1,0              CORRESPONDENCE WITH THE
     1905   01 013C8    020013E0              D        2,COM:C           COMPUTER WORDS IN THE
     1906   01 013C9    030013E9              D        3,SI:C            J-PARAMETER LINE.  NEG.
     1907   01 013CA    040013F2              D        4,CM:C            ENTRIES ARE SPACE FIELDS
     1908   01 013CB    05001408              D        5,EM:C            IN THE J-LINE.
     1909   01 013CC    06001421              D        6,CI:C
     1910   01 013CD    07001431              D        7,MI:C
     1911   01 013CE    000013CE     JP:LST   DATA     %
     1912                            *
     1913         01 013CF           MSG:C    EQU      %
     1914   01 013CF    EA6003C2              #ETHCON,4 PLINEIN+1
            01 013D0    04006AE4
     1915   01 013D1    CD000006 A            TIO,0    *X6
     1916   01 013D2    688013D6              BCR,8    MSG:OK
     1917   01 013D3    EA6003CC              #TYPE    NODEV
            01 013D4    00004F68 A
     1918   01 013D5    68001452              B        ERR:RETJ
     1919   01 013D6    35600397     MSG:OK   STW,X6   #PRTADDR
     1920   01 013D7    32601AB9              LW,X6    PLINEIN+1
     1921   01 013D8    356013A6              STW,X6   JOUT+1
     1922   01 013D9    E800000F A            B        *R15
     1923                            *
     1924         01 013DA           NODEV    TEXTCS   'DEVICE NOT AVAILABLE'
     1925                            *
     1926         01 013E0           COM:C    EQU      %
     1927   01 013E0    EA6003C2              #ETHCON,4 PLINEIN+3
            01 013E1    04006AEC
     1928   01 013E2    CD000006 A            TIO,0    *X6
     1929   01 013E3    688013E5              BCR,8    %+2
     1930   01 013E4    68001452              B        ERR:RETJ
     1931   01 013E5    35600396              STW,X6   #TOADDR
     1932   01 013E6    32601ABB              LW,X6    PLINEIN+3
     1933   01 013E7    356013A8              STW,X6   JOUT+3
     1934   01 013E8    E800000F A            B        *R15
     1935                            *
     1936         01 013E9           SI:C     EQU      %
     1937   01 013E9    EA6003C2              #ETHCON,3 PLINEIN+4,1
            01 013EA    03006AF1
     1938   01 013EB    486015E4              EOR,X6   ONES
     1939   01 013EC    20600001 A            AI,X6    1
     1940   01 013ED    356013F1              STW,X6   SI
     1941   01 013EE    32601ABC              LW,X6    PLINEIN+4
     1942   01 013EF    356013A9              STW,X6   JOUT+4
     1943   01 013F0    E800000F A            B        *R15
     1944                            *
     1945   01 013F1    FFFFFFF6 A   SI       DATA     -10
     1946                            *
     1947         01 013F2           CM:C     EQU      %
     1948   01 013F2    EA6003C2              #ETHCON,1 PLINEIN+5,2
            01 013F3    01006AF6
     1949   01 013F4    21600003 A            CI,X6    3
     1950   01 013F5    691013FC              BL       SEQ:MAR
     1951   01 013F6    21600009 A            CI,X6    9
     1952   01 013F7    692013F9              BG       %+2
     1953   01 013F8    68001452              B        ERR:RETJ
     1954   01 013F9    2160000D A            CI,X6    13
     1955   01 013FA    691013FC              BL       %+2
     1956   01 013FB    68001452              B        ERR:RETJ
     1957   01 013FC    6C800045 A   SEQ:MAR  RD,R8    X'45'
     1958   01 013FD    4B801273              AND,R8   NEW:CM
     1959   01 013FE    326C13FB              LW,X6    CM:VALU,X6
     1960   01 013FF    48800006 A            EOR,R8   X6
     1961   01 01400    3580127B              STW,R8   CM:SAV
     1962   01 01401    35801278              STW,R8   CM:ON
     1963   01 01402    32601ABD              LW,X6    PLINEIN+5
     1964   01 01403    356013AA              STW,X6   JOUT+5
     1965   01 01404    E800000F A            B        *R15
     1966                            *
     1967         01 013FB           CM:VALU  EQU      %-10
     1968   01 01405    00000000 A            M        0,0,0,0,0,0,0
     1969   01 01406    00400000 A            M        0,0,0,1,0,0,0
     1970   01 01407    00800000 A            M        0,0,0,2,0,0,0
     1971                            *
     1972         01 01408           EM:C     EQU      %
     1973   01 01408    EA6003C2              #ETHCON,1 PLINEIN+6,2
            01 01409    01006AFA
     1974   01 0140A    22800000 A            LI,R8    0
     1975   01 0140B    21600004 A            CI,X6    4
     1976   01 0140C    69101415              BL       SEQ:EM
     1977   01 0140D    21600009 A            CI,X6    9
     1978   01 0140E    69201410              BG       %+2
     1979   01 0140F    68001452              B        ERR:RETJ
     1980   01 01410    2160000E A            CI,X6    14
     1981   01 01411    69101413              BL       %+2
     1982   01 01412    68001452              B        ERR:RETJ
     1983   01 01413    206FFFF6 A            AI,X6    -10
     1984   01 01414    228FFFFF A            LI,R8    -1
     1985   01 01415    35801235     SEQ:EM   STW,R8   EM:FLG
     1986   01 01416    486015E4              EOR,X6   ONES
     1987   01 01417    20600001 A            AI,X6    1
     1988   01 01418    326C1420              LW,X6    EM:VALU,X6
     1989   01 01419    35601236              STW,X6   EM
     1990   01 0141A    32601ABE              LW,X6    PLINEIN+6
     1991   01 0141B    356013AB              STW,X6   JOUT+6
     1992   01 0141C    E800000F A            B        *R15
     1993                            *
     1994   01 0141D    FFFFFFFC A            DATA     -4
     1995   01 0141E    FFFFFFFD A            DATA     -3
     1996   01 0141F    FFFFFFFF A            DATA     -1
     1997   01 01420    00000000 A   EM:VALU  DATA     0
     1998                            *
     1999         01 01421           CI:C     EQU      %
     2000   01 01421    EA6003C2              #ETHCON,1 PLINEIN+7,2
            01 01422    01006AFE
     2001   01 01423    32600006 A            LW,X6    X6
     2002   01 01424    68301428              BCR,3    %+4
     2003   01 01425    21600001 A            CI,X6    1
     2004   01 01426    6830142B              BCR,3    %+5
     2005   01 01427    68001452              B        ERR:RETJ
     2006   01 01428    22600000 A            LI,X6    0
     2007   01 01429    3560112C              STW,X6   CI:CNT
     2008   01 0142A    6800142C              B        %+2
     2009   01 0142B    2260E390 A            LI,X6    X'E390'
     2010   01 0142C    35601430              STW,X6   CI:SAV
     2011   01 0142D    32601ABF              LW,X6    PLINEIN+7
     2012   01 0142E    356013AC              STW,X6   JOUT+7
     2013   01 0142F    E800000F A            B        *R15
     2014                            *
     2015   01 01430    0000E390 A   CI:SAV   DATA     X'E390'
     2016                            *
     2017         01 01431           MI:C     EQU      %
     2018   01 01431    EA6003C2              #ETHCON,4 PLINEIN+8
            01 01432    04006B00
     2019   01 01433    CF001444              HIO,R0   *MI:ADR
     2020   01 01434    CF000006 A            HIO,0    *X6
     2021   01 01435    CD000006 A            TIO,0    *X6
     2022   01 01436    68C0143A              BCR,12   %+4
     2023   01 01437    EA6003CC              #TYPE    ERMSG8
            01 01438    00005114 A
     2024   01 01439    E800000F A            B        *R15
     2025   01 0143A    22000A20              LI,R0    DA(TIC)
     2026   01 0143B    CC000006 A            SIO,R0   *X6
     2027   01 0143C    35601444              STW,X6   MI:ADR
     2028   01 0143D    32601AC0              LW,X6    PLINEIN+8
     2029   01 0143E    356013AD              STW,X6   JOUT+8
     2030   01 0143F    E800000F A            B        *R15
     2031                            *
     2032                                     BOUND    8
     2033   01 01440    010041F0     TIC      J        1,AUTOTEST
     2034   01 01441    20000A94 A            I        2,(ESM:NULL-AUTOTEST)**2
     2035   01 01442    08000A20              D        8,DA(TIC)
     2036   01 01443    00000000 A            I        0
     2037                            *
     2038   01 01444    00000000 A   MI:ADR   DATA     X'0000'
     2039                            ERMSG8   TEXTCS   ;
     2040         01 01445            'NO RECOGNITION FROM MEMORY INTERFERRENCE ADDRESS'
     2041                            *
     2042   01 01452    B26613CE     ERR:RETJ LW,X6    *JP:LST,X3
     2043   01 01453    72600006 A            LB,X6    X6
     2044   01 01454    E80013C5              B        *JL:EXIT
     2045                            *
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE   12
A    2047                            *
     2048         01 01455           KH       TEXTCS   'MST MSP MCR  LC'
     2049         01 01459           KOUT     TEXTCS   '001 000 001  00'
     2050         01 0145D           KINIT    TEXTCS   '001 000 001  00'
     2051                            *
     2052   01 01461    00005164              DATA     BA(KOUT)
     2053   01 01462    00005154              DATA     BA(KH)
     2054         01 01463           KRTA     EQU      %
     2055   01 01463    356014D5              STW,X6   KL:EXIT
     2056   01 01464    70200006 A            LC       X6
     2057   01 01465    E83003C9              BCR,3    *#FIDLE%
     2058   01 01466    223FFFFC A            LI,X3    -4                  !EXIT!  IF NOT,COMPARE THE ELEMENT
     2059   01 01467    22800010 A            LI,R8    X'10'             OF KOUT AND PLINEIN  TO PROCESS ALL
     2060   01 01468    75801497              STB,R8   NEW:MST           THOSE NOT COMPARING.  RESET NEW:MST.
     2061   01 01469    3286145D              LW,R8    KOUT+4,X3          NEW:MST WILL BE SET IN MST:C IF A
     2062   01 0146A    31861ABC              CW,R8    PLINEIN+4,X3       NEW STARTING ADDRESS HAS BEEN
     2063   01 0146B    6830146E              BCR,3    %+3                REQUESTED.
     2064   01 0146C    32C61484              LW,R12   KP:LST,X3            MOVE PLINEIN  INTO KOUT
     2065   01 0146D    EAF0000C A            BAL,R15  *R12
     2066   01 0146E    65301469              BIR,X3   %-5
     2067   01 0146F    328003F1              LW,R8    MSP:NUM
     2068   01 01470    318003F0              CW,R8    MST:NUM
     2069   01 01471    68101474              BGE      %+3
     2070   01 01472    223FFFF8 A            LI,X3    -8
     2071   01 01473    680014C3              B        ERR:RET
     2072   01 01474    22FFFFFF A            LI,R15   -1
     2073   01 01475    35F01250              STW,R15  KL:FLG
     2074   01 01476    6AF0123A              BAL,R15  LSTSERVO          SERVO LIST POINTER TO
     2075   01 01477    22F00000 A            LI,R15   0                 THE SELECTED MODULE(MCR)
     2076   01 01478    35F01250              STW,R15  KL:FLG
     2077   01 01479    35F015E2              STW,R15  FTFL
     2078   01 0147A    70301497              LCF      NEW:MST
     2079   01 0147B    EA6003C9              BAL,X6   *#FIDLE%           ADDRESS AT RESTART IF REQUESTED.
     2080   01 0147C    0000147E              DATA     RESTART
     2081                            *
     2082                                     BOUND    8
     2083   01 0147E    0000107C     RESTART  DATA     START
     2084   01 0147F    00000000 A            DATA     0
     2085                            *
     2086   01 01480    01001486              D        1,MST:C
     2087   01 01481    02001499              D        2,MSP:C
     2088   01 01482    030014AE              D        3,MCR:C
     2089   01 01483    040014C6              D        4,LC:C
     2090   01 01484    00001484     KP:LST   DATA     %
     2091                            *
     2092   01 01485    00000000 A            DATA     0
     2093         01 01486           MST:C    EQU      %
     2094   01 01486    35F01485              STW,R15  %-1
     2095   01 01487    22600000 A            LI,X6    0
     2096   01 01488    35601497              STW,X6   NEW:MST
     2097   01 01489    EA6003C2              #ETHCON,3 PLINEIN,1
            01 0148A    03006AE1
     2098   01 0148B    4B6015E6              AND,X6   MOD:MSK           VERIFY THAT THE NEW MST IS SMALLER
     2099   01 0148C    683014C3              BCR,3    ERR:RET
     2100   01 0148D    31601496              CW,X6    LST:NUM           THAN THE LAST MODULE NUMBER (+1).
     2101   01 0148E    692014C3              BG       ERR:RET
     2102   01 0148F    356003F2              STW,X6   MCR:NUM
     2103   01 01490    356003F0              STW,X6   MST:NUM            SAVE VALID MST AT MST:NUM.
     2104   01 01491    32901AB8              LW,R9    PLINEIN
     2105   01 01492    35901459              STW,R9   KOUT
     2106   01 01493    309014C2              AW,R9    MSB21
     2107   01 01494    3590145B              STW,R9   KOUT+2
     2108   01 01495    E8001485              B        *MST:C-1
     2109                            *
     2110   01 01496    00000000 A   LST:NUM  DATA     0
     2111   01 01497    FFFFFFFF A   NEW:MST  DATA     -1
     2112                            *
     2113   01 01498    00000000 A            DATA     0
     2114         01 01499           MSP:C    EQU      %
     2115   01 01499    35F01498              STW,R15  %-1
     2116   01 0149A    22600000 A            LI,X6    0
     2117   01 0149B    35601497              STW,X6   NEW:MST
     2118   01 0149C    EA6003C2              #ETHCON,3 PLINEIN+1,1      VERIFY THAT MSP IS SMALLER THAN THE
            01 0149D    03006AE5
     2119   01 0149E    4B6015E6              AND,X6   MOD:MSK           LAST MODULE NUMBER (+1). AND GREATER
     2120   01 0149F    683014A2              BCR,3    %+3
     2121   01 014A0    2160016E A            CI,X6    LAST:MOD
     2122   01 014A1    692014C3              BG       ERR:RET
     2123   01 014A2    316003F0              CW,X6    MST:NUM
     2124   01 014A3    691014C3              BL       ERR:RET
     2125   01 014A4    356003F1              STW,X6   MSP:NUM           SAVE VOLID MSP AT MSP:NUM.
     2126   01 014A5    32901AB9              LW,R9    PLINEIN+1
     2127   01 014A6    3590145A              STW,R9   KOUT+1
     2128   01 014A7    32901459              LW,R9    KOUT
     2129   01 014A8    309014C2              AW,R9    MSB21
     2130   01 014A9    3590145B              STW,R9   KOUT+2
     2131   01 014AA    329003F0              LW,R9    MST:NUM
     2132   01 014AB    359003F2              STW,R9   MCR:NUM
     2133   01 014AC    E8001498              B        *MSP:C-1
     2134                            *
     2135   01 014AD    00000000 A            DATA     0
     2136         01 014AE           MCR:C    EQU      %
     2137   01 014AE    35F014AD              STW,R15  %-1
     2138   01 014AF    22600000 A            LI,X6    0
     2139   01 014B0    35601497              STW,X6   NEW:MST
     2140   01 014B1    EA6003C2              #ETHCON,3 PLINEIN+2,1      IF MCR IS BEYOND THE RANGE OF
            01 014B2    03006AE9
     2141   01 014B3    4B6015E6              AND,X6   MOD:MSK           MST TO MSP SET IT EQUAL TO MST
     2142   01 014B4    316003F0              CW,X6    MST:NUM           AT SET:MCR.
     2143   01 014B5    691014BC              BCS,1    SET:MCR
     2144   01 014B6    316003F1              CW,X6    MSP:NUM
     2145   01 014B7    692014BC              BCS,2    SET:MCR
     2146   01 014B8    356003F2              STW,X6   MCR:NUM
     2147   01 014B9    32901ABA              LW,R9    PLINEIN+2
     2148   01 014BA    3590145B              STW,R9   KOUT+2
     2149   01 014BB    E80014AD              B        *MCR:C-1
     2150   01 014BC    32901459     SET:MCR  LW,R9    KOUT              STARTING POINT.
     2151   01 014BD    309014C2              AW,R9    MSB21             MSB21 IS A CONSTANT THAT ADJUSTS THE
     2152   01 014BE    3590145B              STW,R9   KOUT+2            KOUT BYTE COUNT TO A SPACE CODE X'40
     2153   01 014BF    329003F0              LW,R9    MST:NUM
     2154   01 014C0    359003F2              STW,R9   MCR:NUM
     2155   01 014C1    E80014AD              B        *MCR:C-1
     2156                            *
     2157   01 014C2    31000000 A   MSB21    DATA     X'31000000'       ADJUST X'0F' TO X'40'           *G00
     2158                            *
     2159   01 014C3    B2661484     ERR:RET  LW,X6    *KP:LST,X3
     2160   01 014C4    72600006 A            LB,X6    X6
     2161   01 014C5    E80014D5              B        *KL:EXIT
     2162                            *
     2163         01 014C6           LC:C     EQU      %
     2164   01 014C6    EA6003C2              #ETHCON,2  PLINEIN+3,2
            01 014C7    02006AEE
     2165   01 014C8    4B6014D3              AND,X6   HFF               LOOP COUNT.  THE NUMBER
     2166   01 014C9    486015E4              EOR,X6   ONES              OF TIMES THRU THE MODULE
     2167   01 014CA    20600001 A            AI,X6    1                 RANGE SPECIFIED BY
     2168   01 014CB    356014D4              STW,X6   LCNT              MST/MSP.
     2169   01 014CC    22600001 A            LI,X6    1
     2170   01 014CD    3560124E              STW,X6   PASS:CNT
     2171   01 014CE    22600000 A            LI,X6    0
     2172   01 014CF    356015E0              STW,X6   ERR:CNT
     2173   01 014D0    32601ABB              LW,X6    PLINEIN+3
     2174   01 014D1    3560145C              STW,X6   KOUT+3
     2175   01 014D2    E800000F A            B        *R15
     2176                            *
     2177   01 014D3    000000FF A   HFF      DATA     X'FF'
     2178   01 014D4    00000000 A   LCNT     DATA     0
     2179                            *
     2180   01 014D5    00000000 A   KL:EXIT  DATA     0
     2181                            *
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE   13
A    2184                            *
     2185         01 014D6           DLTA     EQU      %
     2186   01 014D6    3260039C              LW,X6    #PARAM%H1         FIRST PARAMETER ENTERED.
     2187   01 014D7    6830156B              BCR,3    BAD:PAR1
     2188   01 014D8    31601496              CW,X6    LST:NUM
     2189   01 014D9    6920156B              BG       BAD:PAR1
     2190   01 014DA    3260039D              LW,X6    #PARAM%H2         SECOND PARAMETER ENTERED.
     2191   01 014DB    6830156D              BCR,3    BAD:PAR2
     2192   01 014DC    31601496              CW,X6    LST:NUM
     2193   01 014DD    6920156D              BG       BAD:PAR2
     2194   01 014DE    35600001 A            STW,X6   X1
     2195   01 014DF    EA6003CD              #PRINT   MSK:LST+7,F1      TOP OF FORM ONLY.
            01 014E0    F10057DC A
     2196   01 014E1    328003F3              LW,R8    LISTPTR           SAVE CURRENT LIST POINTER
     2197   01 014E2    35801568              STW,R8   LISTSAV           AND MCR SO THAT LISTSERVO
     2198   01 014E3    328003F2              LW,R8    MCR:NUM           ROUTINE CAN BE USED AS
     2199   01 014E4    35801569              STW,R8   MCR:SAV           A SUBROUTINE.
     2200   01 014E5    229FFFFF A            LI,R9    -1
     2201   01 014E6    35901250              STW,R9   KL:FLG
     2202   01 014E7    3280039C              LW,R8    #PARAM%H1
     2203   01 014E8    358003F2              STW,R8   MCR:NUM
     2204   01 014E9    31800001 A            CW,R8    X1
     2205   01 014EA    7400156A              STCF     END:SW
     2206   01 014EB    481015E4              EOR,X1   ONES
     2207   01 014EC    7020156A              LC       END:SW
     2208   01 014ED    682014F0              BCR,2    %+3
     2209   01 014EE    20100001 A            AI,X1    1
     2210   01 014EF    680014F1              B        %+2
     2211   01 014F0    30100008 A            AW,X1    R8
     2212   01 014F1    6AF0123A              BAL,R15  LSTSERVO
     2213   01 014F2    22800000 A            LI,R8    0
     2214   01 014F3    35801250              STW,R8   KL:FLG
     2215   01 014F4    3510156A     NEXT:MOD STW,X1   END:SW
     2216   01 014F5    6AF01345              BAL,R15  MOD:HDR           USE MODULE HEADER ROUTINES
     2217   01 014F6    6AF01361              BAL,R15  MOD:DATA          NORMALLY USED FOR SNAP
     2218   01 014F7    3210156A              LW,X1    END:SW            OUTPUT.
     2219   01 014F8    F28003F3              LB,R8    *LISTPTR
     2220   01 014F9    308003F3              AW,R8    LISTPTR
     2221   01 014FA    358003F3              STW,R8   LISTPTR
     2222   01 014FB    651014F4              BIR,X1   NEXT:MOD
     2223   01 014FC    32801568              LW,R8    LISTSAV           RESTORE LISTPTR AND MCR.
     2224   01 014FD    358003F3              STW,R8   LISTPTR
     2225   01 014FE    32801569              LW,R8    MCR:SAV
     2226   01 014FF    358003F2              STW,R8   MCR:NUM
     2227   01 01500    E80003C9              B        *#FIDLE%
     2228                            *
     2229   01 01501    00000000 A            DATA     0
     2230   01 01502    00000000 A            DATA     0
     2231         01 01503           STATMSGS EQU      %
     2232   01 01503    35601543              STW,X6   STATEXIT          STATUS MESSAGE ROUTINE.
     2233   01 01504    35C01502              STW,R12  STATMSGS-1
     2234   01 01505    35F01501              STW,R15  STATMSGS-2        ENTERED FROM GUIDE IN
     2235                            *                                   RESPONSE TO AMPERSAND
     2236                            *                                   FROM READSTAT.  SEE TABLE3.
     2237   01 01506    EA6003C5              BAL,R6   *#DISUSER%            DISABLE INTERRUPTS          *G00
     2238   01 01507    32C01A9A              LW,R12   AMPER%EXPL
     2239   01 01508    B5C003CE              STW,R12  *#ERRTEXT%
     2240   01 01509    32C00393              LW,R12   #HDRFLG
     2241   01 0150A    21C01556              CI,R12   AMP:HDR
     2242   01 0150B    6830150E              BCR,3    %+3
     2243   01 0150C    EA6003CD              #PRINT   AMP:HDR
            01 0150D    C0005558 A
     2244   01 0150E    6AF012A0              BAL,R15  ESM:MOD           ENTERED FROM MST:INIT IF
     2245   01 0150F    35C01544              STW,R12  AMP:BUF           THE SI PARAMETER IS AN
     2246   01 01510    6AF012A6              BAL,R15  ESM:EL            EVEN MULTIPLE OF THE
     2247   01 01511    35C01545              STW,R12  AMP:BUF+1         PASS COUNT AND NOT =0.
     2248   01 01512    EA6003C3              #HTECON  LOC
            01 01513    00001113
     2249   01 01514    32CC0000 A            LW,R12   0,X6              STATMSGS SHARES MOST OF
     2250   01 01515    35C01546              STW,R12  AMP:BUF+2         THE SUBROUTINES USED BY
     2251   01 01516    32CC0001 A            LW,R12   1,X6              THE FT ERROR MESSAGE.
     2252   01 01517    35C01547              STW,R12  AMP:BUF+3
     2253   01 01518    6AF012B6              BAL,R15  ESM:ERRS
     2254   01 01519    35C01548              STW,R12  AMP:BUF+4
     2255   01 0151A    6AF012BC              BAL,R15  ESM:PASS
     2256   01 0151B    35C01549              STW,R12  AMP:BUF+5
     2257   01 0151C    32C013AB              LW,R12   JOUT+6
     2258   01 0151D    35C0154A              STW,R12  AMP:BUF+6
     2259   01 0151E    6AF012B0              BAL,R15  ESM:MNEM
     2260   01 0151F    35C0154B              STW,R12  AMP:BUF+7
     2261   01 01520    6AF012C2              BAL,R15  ESM:CM
     2262   01 01521    35C0154C              STW,R12  AMP:BUF+8
     2263   01 01522    32C01459              LW,R12   KOUT
     2264   01 01523    30C014C2              AW,R12   MSB21
     2265   01 01524    35C0154D              STW,R12  AMP:BUF+9
     2266   01 01525    32C0145A              LW,R12   KOUT+1
     2267   01 01526    35C0154E              STW,R12  AMP:BUF+10
     2268   01 01527    6AF012DA              BAL,R15  ESM:CI
     2269   01 01528    35C0154F              STW,R12  AMP:BUF+11
     2270   01 01529    EA6003C3              #HTECON  TOT:ERRS
            01 0152A    00001077
     2271   01 0152B    32CC0000 A            LW,R12   0,X6
     2272   01 0152C    35C01550              STW,R12  AMP:BUF+12
     2273   01 0152D    32CC0001 A            LW,R12   1,X6
     2274   01 0152E    35C01551              STW,R12  AMP:BUF+13
     2275   01 0152F    32C015CA              LW,R12   SPACES
     2276   01 01530    35C01552              STW,R12  AMP:BUF+14
     2277   01 01531    35C01553              STW,R12  AMP:BUF+15
     2278   01 01532    B2C003CA              LW,R12   *#RUNADDR%
     2279   01 01533    EA6003C3              #HTECON  R12
            01 01534    0000000C A
     2280   01 01535    32CC0000 A            LW,R12   0,X6
     2281   01 01536    35C01554              STW,R12  AMP:BUF+16
     2282   01 01537    32CC0001 A            LW,R12   1,X6
     2283   01 01538    35C01555              STW,R12  AMP:BUF+17
     2284   01 01539    22C00047 A            LI,R12   71
     2285   01 0153A    75C01544              STB,R12  AMP:BUF
     2286   01 0153B    EA6003CD              #PRINT   AMP:BUF
            01 0153C    C0005510 A
     2287   01 0153D    22C01556              LI,R12   AMP:HDR
     2288   01 0153E    35C00393              STW,R12  #HDRFLG
     2289   01 0153F    EA6003C6              BAL,R6   *#ENUSER%             ENABLE INTERRUPTS           *G00
     2290   01 01540    32C01502              LW,R12   STATMSGS-1
     2291   01 01541    32F01501              LW,R15   STATMSGS-2
     2292   01 01542    E8001543              B        *STATEXIT
     2293                            *
     2294   01 01543    00000000 A   STATEXIT DATA     0
     2295                            *
     2296         01 01544           AMP:BUF  EQU      %
     2302                            *
     2303                            AMP:HDR  TEXTCS  'MOD EL TESTINST E/P PAS EM MNEM ',;
     2304         01 01556                    'CM  MST MSP CI TOT:ERRS        PROGADDR'
     2305                            *
     2306   01 01568    00000000 A   LISTSAV  DATA     0
     2307   01 01569    00000000 A   MCR:SAV  DATA     0
     2308                            *
     2309   01 0156A    00000000 A   END:SW   DATA     0
     2310   01 0156B    32801572     BAD:PAR1 LW,R8    TXTP1
     2311   01 0156C    6800156E              B        %+2
     2312   01 0156D    32801573     BAD:PAR2 LW,R8    TXTP2
     2313   01 0156E    35801576              STW,R8   PAR:ERR+2
     2314   01 0156F    EA6003CD              #PRINT   PAR:ERR
            01 01570    C00055D0 A
     2315   01 01571    E80003C9              B        *#FIDLE%
     2316                            *
     2317   01 01572    40D7F140 A   TXTP1    TEXT     ' P1 '
     2318   01 01573    40D7F240 A   TXTP2    TEXT     ' P2 '
     2319                            *
     2320         01 01574           PAR:ERR  TEXTCS   'INVALID P1 PARAMETER.'
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE   14
A    2322                            *
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE   15
A    2324                            *
     2325         01 0157A           DRTA     EQU      %
     2326   01 0157A    328003A2              LW,R8    #PARAM1
     2327   01 0157B    6930158A              BCS,3    DR:ERET           SEARCH MNEMONIC LIST WITH
     2328   01 0157C    328003A3              LW,R8    #PARAM1+1         INPUT PARAMETER.
     2329   01 0157D    69101584              BCS,1    PAR1:LJ
     2330   01 0157E    222FFFF8 A            LI,X2    -8
     2331   01 0157F    30800008 A            AW,R8    R8
     2332   01 01580    6520157F              BIR,X2   %-1
     2333   01 01581    20800040 A            AI,R8    X'40'
     2334   01 01582    358003A3              STW,R8   #PARAM1+1
     2335   01 01583    6800157C              B        DRTA+2
     2336                            *
     2337   01 01584    221FFF80 A   PAR1:LJ  LI,X1    -128
     2338   01 01585    22200000 A            LI,X2    0
     2339   01 01586    31841612              CW,R8    MNEMLIST,X2
     2340   01 01587    68301592              BCR,3    MNEM:X2
     2341   01 01588    20200001 A            AI,X2    1
     2342   01 01589    65101586              BIR,X1   PAR1:LJ+2
     2343   01 0158A    EA6003CC     DR:ERET  #TYPE    MNEM:MSG
            01 0158B    00005634 A
     2344   01 0158C    E80003C9              B        *#FIDLE%
     2345                            *
     2346   01 0158D    10C9D5E5 A   MNEM:MSG TEXTC    'INVALID MNEMONIC'
            01 0158E    C1D3C9C4 A
            01 0158F    40D4D5C5 A
            01 01590    D4D6D5C9 A
            01 01591    C3404040 A
     2347                            *
     2348   01 01592    22100004 A   MNEM:X2  LI,X1    4
     2349   01 01593    328015CA              LW,R8    SPACES
     2350   01 01594    358015CC              STW,R8   OUTBUF
     2351   01 01595    22801ACE              LI,R8    LIST
     2352   01 01596    F2900008 A            LB,R9    *R8
     2353   01 01597    F2A20008 A            LB,R10   *R8,X1
     2354   01 01598    4BA015DE              AND,R10  CON7F
     2355   01 01599    31A00002 A            CW,R10   X2
     2356   01 0159A    6830159F              BCR,3    %+5
     2357   01 0159B    30800009 A            AW,R8    R9
     2358   01 0159C    21802957              CI,R8    LASTMODULE
     2359   01 0159D    6830158A              BCR,3    DR:ERET
     2360   01 0159E    68001596              B        MNEM:X2+4
     2361                            *
     2362   01 0159F    B2C00008 A            LW,R12   *R8
     2363   01 015A0    EA6003C3              #HTECON  R12
            01 015A1    0000000C A
     2364   01 015A2    32CC0001 A            LW,R12   1,X6
     2365   01 015A3    223FFFF8 A            LI,X3    -8
     2366   01 015A4    30C0000C A            AW,R12   R12
     2367   01 015A5    653015A4              BIR,X3   %-1
     2368   01 015A6    20C00040 A            AI,R12   X'40'
     2369   01 015A7    35C015CD              STW,R12  OUTBUF+1
     2370   01 015A8    32C015C1              LW,R12   THRU:TXT
     2371   01 015A9    35C015CE              STW,R12  OUTBUF+2
     2372   01 015AA    30800009 A            AW,R8    R9
     2373   01 015AB    759015C0              STB,R9   TOO:FAR
     2374   01 015AC    F2900008 A            LB,R9    *R8
     2375   01 015AD    F2A20008 A            LB,R10   *R8,X1
     2376   01 015AE    4BA015DE              AND,R10  CON7F
     2377   01 015AF    31A00002 A            CW,R10   X2
     2378   01 015B0    683015AA              BCR,3    %-6
     2379   01 015B1    729015C0              LB,R9    TOO:FAR
     2380   01 015B2    489015E4              EOR,R9   ONES
     2381   01 015B3    20900001 A            AI,R9    1
     2382   01 015B4    30800009 A            AW,R8    R9
     2383   01 015B5    B2C00008 A            LW,R12   *R8
     2384   01 015B6    EA6003C3              #HTECON  R12
            01 015B7    0000000C A
     2385   01 015B8    32CC0001 A            LW,R12   1,X6
     2386   01 015B9    4BC015DF              AND,R12  LS:MSK
     2387   01 015BA    35C015CF              STW,R12  OUTBUF+3
     2388   01 015BB    22C0000F A            LI,R12   15
     2389   01 015BC    75C015CC              STB,R12  OUTBUF
     2390   01 015BD    EA6003CC              #TYPE    OUTBUF
            01 015BE    00005730 A
     2391   01 015BF    E80003C9              B        *#FIDLE%
     2392                            *
     2393   01 015C0    00000000 A   TOO:FAR  DATA     0
     2394   01 015C1    E3C8D9E4 A   THRU:TXT TEXT     'THRU'
     2395                            *
     2396   01 015C2    F1F2F3F4 A   ALPHATXT TEXT     '1234ABCDEFGHIJKLMNOPQRSTUVWXYZ'
            01 015C3    C1C2C3C4 A
            01 015C4    C5C6C7C8 A
            01 015C5    C9D1D2D3 A
            01 015C6    D4D5D6D7 A
            01 015C7    D8D9E2E3 A
            01 015C8    E4E5E6E7 A
            01 015C9    E8E94040 A
     2397                            *
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE   16
A    2399                            *
     2400   01 015CA    40404040 A   SPACES   DATA     X'40404040'
     2401                            *
     2402   01 015CB    00000001 A   ONE      DATA     1
     2403   01 015CC                 OUTBUF   RES      18
     2404   01 015DE    0000007F A   CON7F    DATA     X'7F'
     2405   01 015DF    40FFFFFF A   LS:MSK   DATA     X'40FFFFFF'
     2406   01 015E0    00000000 A   ERR:CNT  DATA     0
     2407   01 015E1    00000000 A   ERR:FLG  DATA     0
     2408   01 015E2    00000000 A   FTFL     DATA     0
     2409   01 015E3    00000000 A   CK:BIAS  DATA     0
     2410   01 015E4    FFFFFFFF A   ONES     DATA     -1
     2411   01 015E5    00000000 A   CE:PTR   DATA     0
     2412   01 015E6    00000FFF A   MOD:MSK  DATA     X'FFF'
     2413                            *
     2414                                     BOUND    8
     2415   01 015E8    00000000 A   PSW1     PZE                                                            AUTO7400
     2416   01 015E9    00000000 A   PSW2     PZE                                                            AUTO7410
     2417   01 015EA    00000000 A   PSW1SAV  DATA     0
     2418   01 015EB    00000000 A   PSW2SAV  DATA     0
     2419   01 015EC    00001113     LOCADR   DATA     LOC
     2420   01 015ED    0001FFFF A   ADR:MSK  DATA     X'1FFFF'
     2421   01 015EE    00002970     IA       DATA     MEMORY
     2422                            *
     2423                            *
     2424                            *
     2425                            *     ************CONSTANTS AND WORKING STORAGE************
     2426                            *
     2427                            *
     2428                                     BOUND    8
     2429         01 015F0           MSK:LST  EQU      %
     2430   01 015F0    80000000 A            DATA     X'80000000'
     2431   01 015F1    40000000 A            DATA     X'40000000'
     2432   01 015F2    20000000 A            DATA     X'20000000'
     2433   01 015F3    10000000 A            DATA     X'10000000'
     2434   01 015F4    08000000 A            DATA     X'8000000'
     2435   01 015F5    04000000 A            DATA     X'4000000'
     2436   01 015F6    02000000 A            DATA     X'2000000'
     2437   01 015F7    01000000 A            DATA     X'1000000'
     2438   01 015F8    00800000 A            DATA     X'800000'
     2439   01 015F9    00400000 A            DATA     X'400000'
     2440   01 015FA    00200000 A            DATA     X'200000'
     2441   01 015FB    00100000 A            DATA     X'100000'
     2442   01 015FC    00080000 A            DATA     X'80000'
     2443   01 015FD    00040000 A            DATA     X'40000'
     2444   01 015FE    00020000 A            DATA     X'20000'
     2445   01 015FF    00010000 A            DATA     X'10000'
     2446   01 01600    00008000 A            DATA     X'8000'
     2447   01 01601    00004000 A            DATA     X'4000'
     2448   01 01602    00002000 A            DATA     X'2000'
     2449   01 01603    00001000 A            DATA     X'1000'
     2450   01 01604    00000800 A            DATA     X'800'
     2451   01 01605    00000400 A            DATA     X'400'
     2452   01 01606    00000200 A            DATA     X'200'
     2453   01 01607    00000100 A            DATA     X'100'
     2454   01 01608    00000080 A            DATA     X'80'
     2455   01 01609    00000040 A            DATA     X'40'
     2456   01 0160A    00000020 A            DATA     X'20'
     2457   01 0160B    00000010 A            DATA     X'10'
     2458   01 0160C    00000008 A            DATA     X'8'
     2459   01 0160D    00000004 A            DATA     X'4'
     2460   01 0160E    00000002 A            DATA     X'2'
     2461   01 0160F    00000001 A            DATA     X'1'
     2462   01 01610    7FFFFFFF A            DATA     X'7FFFFFFF'
     2463                                     BOUND    8
     2464                            *
     2465         01 01612           MNEMLIST EQU      %
     2597         01 01692           PROGTEXT TEXTCS   TITLE
     2598         01 0169D           STAT%EXPL  TEXTCS 'STATUS REPORT EXPLANATION'
     2599                                     TEXTCS   ;
     2600         01 016A4            '&      CAUSES OUTPUT OF THE CURRENT TESTING STATUS'
     2601                            *
     2602                                     TEXTCS   ;
     2603         01 016B1            'THE ITEMS THAT MAKE-UP THE STATUS MESSAGE ARE TAKEN FROM THE'
     2604                                     TEXTCS   ;
     2605         01 016C1            'FUNCTIONAL TEST ERROR MESSAGE AND THE J AND K PARAMETER LINES.'
     2606                                     TEXTCS   ;
     2607         01 016D1            'TOTAL ERRORS DIFFERS FROM ERRORS PER PASS BY ONLY GETTING'
     2608                                     TEXTCS   ;
     2609         01 016E0            ' RESET ON ABSOLUTE RECOVERY.  PROGADDR IS THE PROGRAM ADDRESS'
     2610                                     TEXTCS   ;
     2611         01 016F0            'AT THE TIME THE &  KEY WAS DEPRESSED.'
     2612                            SYNTAX%EXPL TEXTCS      ;
     2613                             'FOR ASR/KSR HIT ''BREAK'' KEY TO SKIP TO NEXT PARAGRAPH OF',;
     2614         01 016FA            ' EXPLANATION,'
     2615                                     TEXTCS   ;
     2616         01 0170C            'FOR LINE PRINTER,TYPE ''>'' FOR SAME FUNCTION.'
     2617         01 01718                    TEXTCS   ' '
     2618                                     TEXTCS   ;
     2619         01 01719            'INPUT PERMITTED ANY TIME CONTROL DEV. IS SELECTED FOR INPUT.'
     2620         01 01729                    TEXTCS   ' '
     2621                                     TEXTCS   ;
     2622         01 0172A            'INPUTTING FOLLOWING CHAR. THRU CONTROL DEV. WILL EXECUTE'
     2623                                     TEXTCS   ;
     2624         01 01739            'THE SPECIFIED ACTION.'
     2625         01 0173F                    TEXTCS   ' '
     2626                                     TEXTCS   ;
     2627         01 01740            '(1) ''@''-ABSOLUTE RECOVERY,DOES SAME AS''SYSTEM RESET''FROM PCP'
     2628         01 01750                    TEXTCS   ' '
     2629                                     TEXTCS   ;
     2630         01 01751            '(2) ''%''-FORCES PROGRAM TO ''IDLE''STATE,DOES SAME AS MOVING PCP'
     2631                                     TEXTCS   ;
     2632         01 01761            '     ''COMPUTE''SWITCH TO ''IDLE''.  WHEN OUTPUT TO KSR, IT MEANS'
     2633                                     TEXTCS   ;
     2634         01 01771            '     THE PROGRAM IS WAITING FOR INPUT.'
     2635         01 0177B                    TEXTCS   ' '
     2636                                     TEXTCS   ;
     2637         01 0177C            '(3) ''#''- FORCES PROGRAM TO ''RUN'' STATE.  WHEN OUTPUT TO KSR, IT'
     2638                                     TEXTCS   ;
     2639         01 0178C            '     MEANS THE PROGRAM HAS RESUMED TESTING.'
     2640         01 01797                    TEXTCS   ' '
     2641                                     TEXTCS   ;
     2642         01 01798            '(4) ''QUEST. MARK''-OUTPUTS SYNTAX GLOSS. AFTER ''@'' PROMPT,'
     2643                                     TEXTCS   ;
     2644         01 017A7            '     OR CURRENT ''REQUEST'' EXPL. AFTER KEYIN, OR CURRENT ERROR EXPL.'
     2645                                     TEXTCS   ;
     2646         01 017B8            '     AFTER AN ERROR MSG.'
     2647         01 017BF           DM%EXPL  TEXTCS   ' '
     2648                                     TEXTCS   ;
     2649         01 017C0            '(5) ''DM>X,Y''- DUMPS MEMORY CONTENTS BETWEEN HEX. LOCATIONS X AND Y.'
     2650         01 017D1           RM%EXPL  TEXTCS   ' '
     2651                                     TEXTCS   ;
     2652         01 017D2            '(6) ''RM>X,Y'' - DISPLAYS MEMORY AS IN ''DM'' BUT ALSO ALLOWS'
     2653                                     TEXTCS   ;
     2654         01 017E1             '      REPLACEMENT OF WORD DISPLAYED.'
     2655         01 017EB                    TEXTCS   ' '
     2656         01 017EC           S%EXPL   EQU      %
     2657                                     TEXTCS   ;
     2658         01 017EC            '(7)"SS"-SENSE SWITCH OPTIONS DISPLAY TO MSG DEV THE CURRENT'
     2659                                     TEXTCS   ;
     2660         01 017FB            '     SENSE SWITCH (SOFTWARE) STATUS AND ALLOW USER TO MODIFY STATUS'
     2661                                     TEXTCS   ;
     2662         01 0180C            '      SW1=1 SHORT LOOP     SW1  OVERRIDES ALL OTHERS'
     2663                                     TEXTCS   ;
     2664         01 0181A            '      SW2=1 LONG LOOP     REPORTS ERRORS IF SW4=0'
     2665                                     TEXTCS   ;
     2666         01 01827            '      SW3=1 NO HALT ON ERROR'
     2667                                     TEXTCS   ;
     2668         01 0182F            '      SW4=1 SUPPRESS ERROR MESSAGES ONLY - NOT STATUS'
     2669                                     TEXTCS   ;
     2670         01 0183D            '      PCP IF M=1, SOFTWARE SS IF M=0'
     2671         01 01847                    TEXTCS   ' '
     2672                            *
     2673                            ******************************************************************
     2674                            *  DESIGNER INSERTS HIS SYNTAX EXPLANATIONS HERE
     2675                            ******************************************************************
     2676                            DL%EXPL  TEXTCS   ;
     2677         01 01848            '  ''DL'' MEANS DISPLAY MODULE DATA'
     2678                                     TEXTCS   ;
     2679         01 01851            'DL>XXX,YYY,   CAUSES A DISPLAY OF MODULES FROM XXX TO YYY'
     2680                                     TEXTCS   ;
     2681         01 01860            '        IF YYY<XXX IT IS USED AS THE # TO BE DISPLAYED'
     2682                            J%EXPL   TEXTCS   ;
     2683         01 0186E            'J      SELECTS PROGRAM CONTROL PARAMETERS'
     2684                                     TEXTCS   ;
     2685         01 01879            '** PARAMETER LINE J (CONTROL  LINE) EXPLANATION'
     2686                                     TEXTCS   ;
     2687         01 01885            'MSGDEV          MESSAGE OUTPUT DEVICE NUMBER'
     2688                                     TEXTCS   ;
     2689         01 01891            'COMDEV          COMMUNICATION DEVICE NUMBER'
     2690                                     TEXTCS   ;
     2691         01 0189C            'SI              STATUS INTERVAL'
     2692                                     TEXTCS   ;
     2693         01 018A4            '                  THE INTERVAL (TIME OR PASSES) BETWEEN AUTOMATIC'
     2694                                     TEXTCS   ;
     2695         01 018B5            '                      STATUS REPORTS    0=INFINITY'
     2696                                     TEXTCS   ;
     2697         01 018C2            'CM              CLOCK MARGIN'
     2698                                     TEXTCS   ;
     2699         01 018CA            'MARGIN LIMITS:'
     2700                                     TEXTCS   ;
     2701         01 018CE            '     PROGRAM CONTROLLED    USER CONTROLLED (FIXED)'
     2702                                     TEXTCS   ;
     2703         01 018DB            '       0 = NORMAL             A = NORMAL'
     2704                                     TEXTCS   ;
     2705         01 018E6            '       1 = HIGH               B = HIGH'
     2706                                     TEXTCS   ;
     2707         01 018F0            '       2 = LO                 C = LO'
     2708                                     TEXTCS   ;
     2709         01 018FA            'EM         EXECUTION MODE - DEFINES THE ANTICIPATE PATH'
     2710                                     TEXTCS   ;
     2711         01 01908            '           TAKEN TO THE TEST INSTRUCTION AS FOLLOWS:'
     2712                                     TEXTCS   ;
     2713         01 01916            '    PROGRAM CONTROLLED     USER CONTROLLED (FIXED)'
     2714                                     TEXTCS   ;
     2715         01 01923            '       0 = LPSD TO TI       A = SAME (FIXED)'
     2716                                     TEXTCS   ;
     2717         01 0192F            '       1 = BRANCH (NOP)     B = SAME (FIXED)'
     2718                                     TEXTCS   ;
     2719         01 0193B            '       2 = EXECUTE TI       C = SAME (FIXED)'
     2720                                     TEXTCS   ;
     2721         01 01947            '       3 = BRANCH TO TI     D = SAME (FIXED)'
     2722                                     TEXTCS   ;
     2723         01 01953            'CI     COUNT PULSE 4 INTERRUPT; 0 = OFF, 1 = ON'
     2724                                     TEXTCS   ;
     2725         01 0195F            'MIDEV  MEMORY INTERFERENCE DEVICE ADDRESS'
     2726                            K%EXPL   TEXTCS   ;
     2727         01 0196A            'K   SELECTS THE MODULE OPTION PARAMETERS'
     2728                                     TEXTCS   ;
     2729         01 01975            'MST = MODULE START,  MSP = MODULE STOP,  MCR = MODULE CURRENT'
     2730                                     TEXTCS   ;
     2731         01 01985            'LC = LOOP COUNT, # OF ITERATIONS OVER RANGE OF MODULES'
     2732                                     TEXTCS   ;
     2733         01 01993            '     SPECIFIED BY MST THRU MSP'
     2734                            MR%EXPL  TEXTCS   ;
     2735         01 0199B            'MR  FOLLEWED BY AN INSTRUCTION MNEMONIC PRODUCES THE'
     2736                                     TEXTCS   ;
     2737         01 019A9            '     MODULE RANGE, IE, MR>AW,  2AC THRU 2F3'
     2738                                     TEXTCS   ;
     2739         01 019B4             'ENTER INSTRUCTION MNEMONIC AS THE ONLY PARAMETER'
     2740                                     TEXTCS   ;
     2741         01 019C1             ' TO OBTAIN STARTING AND ENDING MODULE NUMBERS.'
     2742                            FTERRMSG TEXTCS   ;
     2743         01 019CD            'MOD =  FAILING MODULE NUMBER'
     2744                                     TEXTCS   ;
     2745         01 019D5            'EL =  ELEMENT #,  WHICH AW OF 47 AW MODULES'
     2746                                     TEXTCS   ;
     2747         01 019E0            'TESTINST =  TEST INSTRUCTION'
     2748                                     TEXTCS   ;
     2749         01 019E8            'E/P =  ERRORS PER PASS'
     2750                                     TEXTCS   ;
     2751         01 019EE            'PAS =  NUMBER OF THE CURRENT PASS'
     2752                                     TEXTCS   ;
     2753         01 019F7            'EM =  EXECUTION MODE, SEE K PARAMETER EXPLANATION'
     2754                                     TEXTCS   ;
     2755         01 01A04            'MNEM =  INSTRUCTION MNEMONIC'
     2756                                     TEXTCS   ;
     2757         01 01A0C            'FAILED =  THE ITEM THAT DID NOT COMPARE'
     2758                                     TEXTCS   ;
     2759         01 01A16            'EXPECTED =  EXPECTED RESULTS FOR FAILING ITEM'
     2760                                     TEXTCS   ;
     2761         01 01A22            'CM =  CLOCK MARGIN  SEE J PARAMETER FO EXPLANATION'
     2762                                     TEXTCS   ;
     2763         01 01A2F            'OBSERVED =  OBSERVED RESULTS FOR FAILING ITEM'
     2764                                     TEXTCS   ;
     2765         01 01A3B            ' CI =  COUNT PULSE INTERRUPT.  RIGHT HEX IS FROM J PARAMETER'
     2766                                     TEXTCS   ;
     2767         01 01A4B            '       LINE.  1 = ACTIVE AFTER 11 ERROR FREE PASSES.'
     2768                                     TEXTCS   ;
     2769         01 01A59            'LEFT HEX INDICATES THE LEAST SIGNIFICANT 4 BITS OF ADDRESS THAT'
     2770                                     TEXTCS   ;
     2771         01 01A69            '      WAS STORED AS A RESULT OF AN INTERRUPT.  INTERRUPT IS'
     2772                                     TEXTCS   ;
     2773         01 01A78            '     ARMED AT LOC-7 AND DISARMED AT LOC+6.'
     2774                                     TEXTCS   ;
     2775         01 01A83            'DIFF=EOR =  DIFFERENCE BETWEEN EXPECTED AND OBSERVED VIA EOR'
     2776                            **********************
     2777                            *        TABLE 3
     2778                            **********************
     2779                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     2780                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     2781                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     2782                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     2783                            *
     2784                            *  FORMAT
     2785                            *        WORD 1 = DIRECTIVE POINTER
     2786                            *         ***********
     2787                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     2788                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     2789                            *            AF(3)   BYTE 2 = SECOND CHAR.
     2790                            *            AF(4)   BYTE 3 = THIRD CHAR.
     2791                            *
     2792                            *
     2793                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     2794                            *         ***********
     2795                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     2796                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     2797                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     2798                            *                                       DIRECTIVE ROUTINE
     2799                            *
     2800                            *        WORD 3 = CONTROL WORD
     2801                            *         ***********
     2802                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
     2803                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     2804                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     2805                            *             AF(4)   BITS 8-12= NOT USED
     2806                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     2807                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     2808                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     2809                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     2810                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     2811                            *                    OR INDEX PARAM #1 (MODE 6)
     2812                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     2813                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     2814                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     2815                            *
     2816                            *                 MODE:  0= UNCONDITIONAL (&)
     2817                            *                        1= IMMEDIATE     (DM)
     2818                            *                        2= PARAMETER LINE (S)
     2819                            *                        6= INDEXED PARAMETER LINE
     2820                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     2821                            *                            0 = HEX, 1 = BIN, AND
     2822                            *                            4-7 = DESIGNER DEFINED
     2823                            *
     2824                            *         WORD 4 = EXPLANATION POINTER
     2825                            *         ***********
     2826                            *  Z          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     2827                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     2828                            *                             = 1 IF TEXT IS COMPRESSED
     2829                            *                             = 2,3   ** NOT ALLOWED **
     2830                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     2831                            *                   TO CHARACTER #1 (REQUEST)
     2832                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     2833                            *
     2834         01 01A93           TABLE3            EQU      %
     2835                            *
     2836   01 01A93    017C0000 A            H        1,'@'
     2837   01 01A94    00000000 A            E        0
     2838   01 01A95    00000000 A            L        0
        1*  01 01A96    54005BE8 N            Z        84,,,BA(SYNTAX%EXPL)                              *H01
     2840                            *
     2841   01 01A97    01500000 A            H        1,'&'
     2842   01 01A98    00001ACB N            E        ,,READSTAT
     2843   01 01A99    00000000 A            L        0
     2844   01 01A9A    07005A74 N   AMPER%EXPL Z      7,,0,BA(STAT%EXPL)
     2845                            *
     2846   01 01A9B    02E2E200 A            H        2,'S','S'
     2847   01 01A9C    00000000 A            E        0
     2848   01 01A9D    00000000 A            L        0
     2849   01 01A9E    08005FB0 N            Z        8,,,BA(S%EXPL)
     2850                            *
     2851   01 01A9F    02C4D400 A            H        2,'D','M'
     2852   01 01AA0    00000000 A            E        0
     2853   01 01AA1    00000000 A            L        0
     2854   01 01AA2    02015EFC N            Z        2,,1,BA(DM%EXPL)
     2855                            *
     2856   01 01AA3    02D9D400 A            H        2,'R','M'
     2857   01 01AA4    00000000 A            E        0
     2858   01 01AA5    00000000 A            L        0
     2859   01 01AA6    04015F44 N            Z        4,,1,BA(RM%EXPL)
     2860                            *
     2861   01 01AA7    02D4D900 A            H        2,'M','R'
     2862   01 01AA8    0000157A N            E        ,,DRTA
     2863   01 01AA9    21000800 A            L        1,,1,,,,,4
     2864   01 01AAA    0400666C N            Z        4,,0,BA(MR%EXPL)
     2865                            *
     2866   01 01AAB    02C4D300 A            H        2,'D','L'
     2867   01 01AAC    000014D6 N            E        ,,DLTA
     2868   01 01AAD    22000000 A            L        1,,2
     2869   01 01AAE    03016120 N            Z        3,,1,BA(DL%EXPL)
     2870                            *
     2871   01 01AAF    01D10000 A            H        1,'J'
     2872   01 01AB0    000013B9 N            E        ,,JRTA
     2873   01 01AB1    40000000 A            L        2
     2874   01 01AB2    160061B8 N            Z        22,,0,BA(J%EXPL)
     2875                            *
     2876   01 01AB3    01D20000 A            H        1,'K'
     2877   01 01AB4    00001463 N            E        ,,KRTA
     2878   01 01AB5    40000000 A            L        2
     2879   01 01AB6    040065A8 N            Z        4,,0,BA(K%EXPL)
     2880                            *
     2881   01 01AB7    FF000000 A   TABLE3END  DATA   X'FF000000'
     2882                            *
     2883                            *
     2884                            ***************
     2885                            *
     2886                            *
     2887   01 01AB8                 PLINEIN  RES      19
     2888                            *
     2889                            *
     2890                            ***************
     2891                            *
     2892   01 01ACB    6A601503     READSTAT BAL,X6   STATMSGS
     2893   01 01ACC    E80003CB              B        *#RETURN%
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE   17
A    2895                                     BOUND    8
     2896   01 01ACE                 LIST     RES      0
     2897                            *'COMMAND PROCEDURE TO GENERATE TEST MODULE CONTROL WORD'
     2898                            *
     2899         00000002           #PASS    SET      S:UFV(#PASS)+1
     2900                            *
     2901         00000000                    DO       #PASS=1           FIRST ASSEMBLER PASS
     2902                        *S* *
     2903                        *S* MODLIST1 SET                        NULL
     2904                        *S* *
     2905                        *S* MODLIST2 SET                        NULL
     2906                        *S* *
     2907                        *S* MODLIST3 SET                        NULL
     2908                        *S* *
     2909                        *S* MODLIST4 SET                        NULL
     2910                        *S* *
     2911                        *S* MODLIST5 SET                        NULL
     2912                        *S* *
     2913                        *S* MODULE@  SET                        NULL
     2914                        *S* *
     2915                                     ELSE                       USE END OF PASS 1 VALUES FOR PASS 2.
     2916                            *
     2917         LIST               MODLIST1 SET      S:UFV(MODLIST1)   TEST MODULES 1-255
     2918                            *
     2919         LIST               MODLIST2 SET      S:UFV(MODLIST2)   TEST MODULES 256-510
     2920                            *
     2921         00000000           MODLIST3 SET      S:UFV(MODLIST3)   TEST MODULES 511-765
     2922                            *
     2923         00000000           MODLIST4 SET      S:UFV(MODLIST4)   TEST MODULES 766-1020
     2924                            *
     2925         00000000           MODLIST5 SET      S:UFV(MODLIST5)   TEST MODULES 1021-1276
     2926                            *
     2927         LIST               MODULE@  SET      S:UFV(MODULE@)
     2928                            *
     2929                                     FIN
     2930                            *
     2931         00000000           MODULE#  SET      0
     2932                            *
     2933         00000000           MODULE%  SET      0
     2934                            *
     2935         00000000           MODULE:  SET      0
     2936                            *
     2937         00000000           MODULE   CNAME
     2938                                     PROC
     2939                            *
     2940                                     LOCAL    I,OC,ML           SYMBOLS LOCALLY DEFINED AND USED
     2941                            *
     2942                                     DO       SCOR(LF(1),LASTMODULE)
     2943                            *
     2944                            MOD%END  EQU      %
     2945                            *
     2946                                     DO       #PASS=1
     2947                            *
     2948                                     RES      NUM(MODULE@)
     2949                            *
     2950                                     ELSE
     2951                            *
     2952                            I        DO       NUM(MODULE@)
     2953                            *
     2954                            OC       SET      MODULE@(I,1)      'OP'-CODE
     2955                            *
     2956                            ML       SET      MODULE@(I,2)      MEMORY LOCATION
     2957                            *
     2958                                     GEN,8,24 OC,ML
     2959                            *
     2960                                     FIN
     2961                            *
     2962                                     FIN
     2963                            *
     2964                                     GOTO     DONE
     2965                            *
     2966                                     FIN
     2967                            *
     2968                                     DO1      NUM(AF)>0
     2969                            MODULE:  SET      0                 RESET ELEMENT COUNTER
     2970                            *
     2971                            MODULE:  SET      MODULE:+1
     2972                            *
     2973                                     DO       #PASS=1           BUILD LISTS
     2974                            *
     2975                                     DO       NUM(AF)>0
     2976                            *
     2977                            OC       SET      AF(1)             'OP'-CODE
     2978                            *
     2979                            ML       SET      ABSVAL(%)         (LISTING) MODULE LOCATION
     2980                            *
     2981                                     DO       NUM(MODULE@)=0
     2982                            *
     2983                            MODULE@  SET      (OC,ML)
     2984                            *
     2985                                     ELSE                       LIST HAS BEEN STARTED
     2986                            *
     2987                            MODULE@  SET      MODULE@,(OC,ML)
     2988                            *
     2989                                     FIN
     2990                            *
     2991                                     FIN
     2992                            *
     2993                            *
     2994                                     DO       MODULE#>0
     2995                            *
     2996                                     DO       MODULE#<256
     2997                            *
     2998                            MODLIST1(MODULE#)   SET   %-MODULE%   SAVE MODULE DISPLACEMENT
     2999                            *
     3000                                     ELSE
     3001                            *
     3002                                     DO       MODULE#<511
     3003                            *
     3004                            MODLIST2(MODULE#-255)   SET   %-MODULE%
     3005                            *
     3006                                     ELSE
     3007                            *
     3008                                     DO       MODULE#<766
     3009                            *
     3010                            MODLIST3(MODULE#-510)   SET   %-MODULE%
     3011                            *
     3012                                     ELSE
     3013                            *
     3014                                     DO       MODULE#<1021
     3015                            *
     3016                            MODLIST4(MODULE#-765)   SET   %-MODULE%
     3017                            *
     3018                                     ELSE
     3019                            *
     3020                            MODLIST5(MODULE#-1020)  SET   %-MODULE%
     3021                            *
     3022                                     FIN                        <1021
     3023                            *
     3024                                     FIN                        <766
     3025                            *
     3026                                     FIN                        <511
     3027                            *
     3028                                     FIN                        <256
     3029                            *
     3030                                     FIN                        >0
     3031                            *
     3032                            MODULE#  SET      MODULE#+1
     3033                            *
     3034                            MODULE%  SET      %
     3035                            *
     3036                                     RES      1                 PUT 'LF' IN COLUMNS 1-2 TO ENTER
     3037                            *                                   LABEL FIELD ON PROC REFERENCE
     3038                            *                                   LINE IN 'SYMBOL' TABLE.  (ASSEMBLER)
     3039                            *
     3040                            *
     3041                                     ELSE                       PASS 2 GENERATES CODE
     3042                            *
     3043                            MODULE#  SET      MODULE#+1
     3044                            *
     3045                            *        ADD 'LF' TO COLUMNS 1-2 FOR EACH OF THE FOLLOWING
     3046                            *        'GEN,8,8,4,12' STATEMENTS TO DEFINE LABEL(S) ON
     3047                            *        THE 'PROC' REFERENCE LINE.
     3048                            *
     3049                                     DO       MODULE#<256
     3050                            *
     3051                                     GEN,8,8,4,12 MODLIST1(MODULE#),MODULE:,CF(2),MODULE#
     3052                            *
     3053                                     ELSE
     3054                            *
     3055                                     DO       MODULE#<511
     3056                            *
     3057                                     GEN,8,8,4,12 MODLIST2(MODULE#-255),MODULE:,CF(2),MODULE#
     3058                            *
     3059                                     ELSE
     3060                            *
     3061                                     DO       MODULE#<766
     3062                            *
     3063                                     GEN,8,8,4,12 MODLIST3(MODULE#-510),MODULE:,CF(2),MODULE#
     3064                            *
     3065                                     ELSE
     3066                            *
     3067                                     DO       MODULE#<1021
     3068                            *
     3069                                     GEN,8,8,4,12 MODLIST4(MODULE#-765),MODULE:,CF(2),MODULE#
     3070                            *
     3071                                     ELSE
     3072                            *
     3073                                     GEN,8,8,4,12 MODLIST5(MODULE#-1020),MODULE:,CF(2),MODULE#
     3074                            *
     3075                                     FIN                        <1021
     3076                            *
     3077                                     FIN                        <766
     3078                            *
     3079                                     FIN                        <511
     3080                            *
     3081                                     FIN                        <256
     3082                            *
     3083                                     FIN                        PASS SWITCH
     3084                            *
     3085                            *
     3086                            DONE     PEND
     3087                            *
     3088                            ** NUMBER ALREADY NORMALIZED
     3089   01 01ACE    06010001 A   SF001    MODULE   X'24'
     3090   01 01ACF    24C0000F A            SF,12    15
     3091   01 01AD0    F7301113              K        15,7,3,LOC
     3092   01 01AD1    A7301115              K        10,7,3,LOC+2
     3093   01 01AD2    0F100000 A            DATA     X'F100000',X'F100000'
            01 01AD3    0F100000 A
     3094                            ** NORMALIZED WHEN COUNT EQUALS ZERO
     3095   01 01AD4    0A020002 A   SF002    MODULE
     3096   01 01AD5    24C00104 A            SF,12    X'104'
     3097   01 01AD6    07301113              K        0,7,3,LOC
     3098   01 01AD7    A7301115              K        10,7,3,LOC+2
     3099   01 01AD8    0F00002F A            DATA     X'F00002F',X'B2FFFFF',0,0,-1,X'FFFF0000'
            01 01AD9    0B2FFFFF A
            01 01ADA    00000000 A
            01 01ADB    00000000 A
            01 01ADC    FFFFFFFF A
            01 01ADD    FFFF0000 A
     3100                            ** NORMALIZED BEFORE COUNT EQUALS ZERO
     3101   01 01ADE    06030003 A   SF003    MODULE
     3102   01 01ADF    24C00104 A            SF,12    X'104'
     3103   01 01AE0    70001113              K        7,0,0,LOC
     3104   01 01AE1    A0001115              K        10,0,0,LOC+2
     3105   01 01AE2    0F004FFF A            DATA     X'0F004FFF',X'D4FFF00'
            01 01AE3    0D4FFF00 A
     3106                            ** UNDERFLOW. NOT NORMALIZED COUNT NOT EQUAL ZERO
     3107   01 01AE4    0A040004 A   SF004    MODULE
     3108   01 01AE5    24C0013F A            SF,12    X'13F'
     3109   01 01AE6    97301113              K        9,7,3,LOC
     3110   01 01AE7    67301115              K        6,7,3,LOC+2
     3111   01 01AE8    04000000 A            DATA     X'4000000',X'7F0F0000',0,0,X'F0000000',0
            01 01AE9    7F0F0000 A
            01 01AEA    00000000 A
            01 01AEB    00000000 A
            01 01AEC    F0000000 A
            01 01AED    00000000 A
     3112                            ** UNDERFLOW. NORMALIZED. COUNT EQUAL ZERO
     3113   01 01AEE    06050005 A   SF005    MODULE
     3114   01 01AEF    24C00005 A            SF,12    5
     3115   01 01AF0    17301113              K        1,7,3,LOC
     3116   01 01AF1    E7301115              K        14,7,3,LOC+2
     3117   01 01AF2    04000008 A            DATA     X'04000008',X'7F800000'
            01 01AF3    7F800000 A
     3118                            ** COUNT EQUALS ZERO. NOT NORMALIZED
     3119   01 01AF4    06060006 A   SF006    MODULE
     3120   01 01AF5    24C00004 A            SF,12    4
     3121   01 01AF6    D7301113              K        13,7,3,LOC
     3122   01 01AF7    27301115              K        2,7,3,LOC+2
     3123   01 01AF8    0F000001 A            DATA     X'F000001',X'0B010000'
            01 01AF9    0B010000 A
     3124                            ** TRUE ZERO
     3125   01 01AFA    0A070007 A   SF007    MODULE
     3126   01 01AFB    24C00004 A            SF,12    4
     3127   01 01AFC    70301113              K        7,0,3,LOC
     3128   01 01AFD    80301115              K        8,0,3,LOC+2
     3129   01 01AFE    03000000 A            DATA     X'3000000',0,0,0,-1,-1
            01 01AFF    00000000 A
            01 01B00    00000000 A
            01 01B01    00000000 A
            01 01B02    FFFFFFFF A
            01 01B03    FFFFFFFF A
     3130                            ** NEGATIVE CHARACTERISTIC
     3131   01 01B04    0A080008 A   SF008    MODULE
     3132   01 01B05    24C00004 A            SF,12    4
     3133   01 01B06    E7001113              K        14,7,0,LOC
     3134   01 01B07    17001115              K        1,7,0,LOC+2
     3135   01 01B08    F0FFFFF1 A            DATA     X'F0FFFFF1',X'F4F10000',0,0,-1,-1
            01 01B09    F4F10000 A
            01 01B0A    00000000 A
            01 01B0B    00000000 A
            01 01B0C    FFFFFFFF A
            01 01B0D    FFFFFFFF A
     3136                            ** NEG CHAR.  UNDERFLOW   ODD REG  NORMALIZED
     3137   01 01B0E    06090009 A   SF009    MODULE
     3138   01 01B0F    24C00004 A            SF,12    4
     3139   01 01B10    27301113              K        2,7,3,LOC
     3140   01 01B11    D7301115              K        13,7,3,LOC+2
     3141   01 01B12    FEFFEFFF A            DATA     X'FEFFEFFF',X'80EFFF00'
            01 01B13    80EFFF00 A
     3142                            ** NEG CHAR
     3143   01 01B14    0A0A000A A   SF010    MODULE
     3144   01 01B15    24C00102 A            SF,12    X'102'
     3145   01 01B16    00001113              K        0,0,0,LOC
     3146   01 01B17    90001115              K        9,0,0,LOC+2
     3147   01 01B18    F0FF4321 A            DATA     X'F0FF4321',X'F24321FF',0,0,-1,X'FFFFFF00'
            01 01B19    F24321FF A
            01 01B1A    00000000 A
            01 01B1B    00000000 A
            01 01B1C    FFFFFFFF A
            01 01B1D    FFFFFF00 A
     3148                            ** NEG CHAR
     3149   01 01B1E    060B000B A   SF011    MODULE
     3150   01 01B1F    24C00102 A            SF,12    X'102'
     3151   01 01B20    63101113              K        6,3,1,LOC
     3152   01 01B21    93101115              K        9,3,1,LOC+2
     3153   01 01B22    F0FF4320 A            DATA     X'F0FF4320',X'F2432000'
            01 01B23    F2432000 A
     3154                            ** TEST THAT MAX COUNT W/O NORMALIZING IS OK
     3155   01 01B24    0A0C000C A   SF012    MODULE
     3156   01 01B25    24C0010C A            SF,12    X'10C'
     3157   01 01B26    55101113              K        5,5,1,LOC
     3158   01 01B27    25101115              K        2,5,1,LOC+2
     3159   01 01B28    7F000000 A            DATA     X'7F000000',X'73010000',0,0,1,0
            01 01B29    73010000 A
            01 01B2A    00000000 A
            01 01B2B    00000000 A
            01 01B2C    00000001 A
            01 01B2D    00000000 A
     3160                            ** RIGHT SHIFT. TRUE ZERO BEFORE COUNT DONE
     3161   01 01B2E    0A0D000D A   SF013    MODULE
     3162   01 01B2F    24D0007B A            SF,13    X'7B'
     3163   01 01B30    F7301113              K        15,7,3,LOC
     3164   01 01B31    07301115              K        0,7,3,LOC+2
     3165   01 01B32    04800000 A            DATA     X'04800000',X'04800000',0,0,X'20000100',0
            01 01B33    04800000 A
            01 01B34    00000000 A
            01 01B35    00000000 A
            01 01B36    20000100 A
            01 01B37    00000000 A
     3166                            ** RIGHT SHIFT OVERFLOW AT COUNT DONE.
     3167   01 01B38    0A0E000E A   SF014    MODULE
     3168   01 01B39    24C0017F A            SF,12    X'17F'
     3169   01 01B3A    07301113              K        0,7,3,LOC
     3170   01 01B3B    67301115              K        6,7,3,LOC+2
     3171   01 01B3C    7F453210 A            DATA     X'7F453210',X'00045321',0,0,-1,X'FFFFFFF'
            01 01B3D    00045321 A
            01 01B3E    00000000 A
            01 01B3F    00000000 A
            01 01B40    FFFFFFFF A
            01 01B41    0FFFFFFF A
     3172                            ** RIGHT SHIFT. OVERFLOW BEFORE COUNT DONE.
     3173   01 01B42    0A0F000F A   SF015    MODULE
     3174   01 01B43    24C00170 A            SF,12    X'170'
     3175   01 01B44    F0001113              K        15,0,0,LOC
     3176   01 01B45    50001115              K        5,0,0,LOC+2
     3177   01 01B46    81FFFFFF A            DATA     X'81FFFFFF',-1,0,0,X'FFFFF222',X'FFFFFFF3'
            01 01B47    FFFFFFFF A
            01 01B48    00000000 A
            01 01B49    00000000 A
            01 01B4A    FFFFF222 A
            01 01B4B    FFFFFFF3 A
     3178                            ** RIGHT SHIFT.  OVERFLOW AND TRUE ZERO. AT COUNT DONE.
     3179   01 01B4C    0A100010 A   SF016    MODULE
     3180   01 01B4D    24C0017F A            SF,12    X'17F'
     3181   01 01B4E    00001113              DATA     LOC,LOC+2,X'7F000000',0,0,0,1,0
            01 01B4F    00001115
            01 01B50    7F000000 A
            01 01B51    00000000 A
            01 01B52    00000000 A
            01 01B53    00000000 A
            01 01B54    00000001 A
            01 01B55    00000000 A
     3182                            ** RIGHT SHIFT COUNT DONE. MAX COUNT W/O OVERFLOW OR TRUE ZERO
     3183   01 01B56    0A110011 A   SF017    MODULE
     3184   01 01B57    24C00173 A            SF,12    X'173'
     3185   01 01B58    00001113              DATA     LOC
     3186   01 01B59    20001115              K        2,0,0,LOC+2
     3187   01 01B5A    0125AC31 A            DATA     X'0125AC31',X'0E000000',0,0,X'95A3C195',2
            01 01B5B    0E000000 A
            01 01B5C    00000000 A
            01 01B5D    00000000 A
            01 01B5E    95A3C195 A
            01 01B5F    00000002 A
     3188                            ** THE NEXT 16 TESTS ARE LEFT SHIFTS WITH THE COUNT GOING TO ZERO
     3189                            ** EACH TEST LEAVES A SINGLE BIT IN REG B TO VERIFY EACH BIT POSITION
     3190                            ** WILL CAUSE B0031Z TO BE FALSE. CHARACTERISTICS ARE CHOSEN TO VERIFY
     3191                            ** THAT THE A DOWN COUNT LOGIC IS FUNCTIONING
     3192   01 01B60    0A120012 A   SF018    MODULE                     B00
     3193   01 01B61    A4C02970              SF,12    *MEMORY
     3194   01 01B62    00001113              DATA     LOC
     3195   01 01B63    20001115              K        2,0,0,LOC+2
     3196   01 01B64    73000000 A            DATA     X'73000000',X'71000000',X'102',X'102',X'800000'
            01 01B65    71000000 A
            01 01B66    00000102 A
            01 01B67    00000102 A
            01 01B68    00800000 A
     3197   01 01B69    80000000 A            DATA     X'80000000'
     3198   01 01B6A    0A130013 A   SF019    MODULE                     B01
     3199   01 01B6B    24CE0100 A            SF,12    X'100',7          IX ADD 1 TO COUNT
     3200   01 01B6C    00001113              DATA     LOC
     3201   01 01B6D    20001115              K        2,0,0,LOC+2
     3202   01 01B6E    70000000 A            DATA     X'70000000',X'6F000000',0,0,X'4000000',X'40000000'
            01 01B6F    6F000000 A
            01 01B70    00000000 A
            01 01B71    00000000 A
            01 01B72    04000000 A
            01 01B73    40000000 A
     3203   01 01B74    0A140014 A   SF020    MODULE                     B02
     3204   01 01B75    A4CE2970              SF,12    *MEMORY,7
     3205   01 01B76    00001113              DATA     LOC
     3206   01 01B77    20001115              K        2,0,0,LOC+2
     3207   01 01B78    60000000 A            DATA     X'60000000',X'5F000000',X'100',X'100',X'2000000'
            01 01B79    5F000000 A
            01 01B7A    00000100 A
            01 01B7B    00000100 A
            01 01B7C    02000000 A
     3208   01 01B7D    20000000 A            DATA     X'20000000'
     3209   01 01B7E    0A150015 A   SF021    MODULE                     B03
     3210   01 01B7F    24C00101 A            SF,12    X'101'
     3211   01 01B80    00001113              DATA     LOC
     3212   01 01B81    20001115              K        2,0,0,LOC+2
     3213   01 01B82    50000000 A            DATA     X'50000000',X'4F000000',0,0,X'1000000',X'10000000'
            01 01B83    4F000000 A
            01 01B84    00000000 A
            01 01B85    00000000 A
            01 01B86    01000000 A
            01 01B87    10000000 A
     3214   01 01B88    0A160016 A   SF022    MODULE                     B04
     3215   01 01B89    24C00101 A            SF,12    X'101'
     3216   01 01B8A    00001113              DATA     LOC
     3217   01 01B8B    20001115              K        2,0,0,LOC+2
     3218   01 01B8C    40000000 A            DATA     X'40000000',X'3F000000',0,0,X'800000',X'8000000'
            01 01B8D    3F000000 A
            01 01B8E    00000000 A
            01 01B8F    00000000 A
            01 01B90    00800000 A
            01 01B91    08000000 A
     3219   01 01B92    0A170017 A   SF023    MODULE                     B05
     3220   01 01B93    24C00101 A            SF,12    X'101'
     3221   01 01B94    00001113              DATA     LOC
     3222   01 01B95    20001115              K        2,0,0,LOC+2
     3223   01 01B96    30000000 A            DATA     X'30000000',X'2F000000',0,0,X'400000',X'4000000'
            01 01B97    2F000000 A
            01 01B98    00000000 A
            01 01B99    00000000 A
            01 01B9A    00400000 A
            01 01B9B    04000000 A
     3224   01 01B9C    0A180018 A   SF024    MODULE                     B06
     3225   01 01B9D    24C00101 A            SF,12    X'101'
     3226   01 01B9E    00001113              DATA     LOC
     3227   01 01B9F    20001115              K        2,0,0,LOC+2
     3228   01 01BA0    20000000 A            DATA     X'20000000',X'1F000000',0,0,X'200000',X'2000000'
            01 01BA1    1F000000 A
            01 01BA2    00000000 A
            01 01BA3    00000000 A
            01 01BA4    00200000 A
            01 01BA5    02000000 A
     3229   01 01BA6    0A190019 A   SF025    MODULE                     B07
     3230   01 01BA7    24C00101 A            SF,12    X'101'
     3231   01 01BA8    00001113              DATA     LOC
     3232   01 01BA9    20001115              K        2,0,0,LOC+2
     3233   01 01BAA    10000000 A            DATA     X'10000000',X'0F000000',0,0,X'100000',X'1000000'
            01 01BAB    0F000000 A
            01 01BAC    00000000 A
            01 01BAD    00000000 A
            01 01BAE    00100000 A
            01 01BAF    01000000 A
     3234   01 01BB0    0A1A001A A   SF026    MODULE                     B08
     3235   01 01BB1    24C00101 A            SF,12    X'101'
     3236   01 01BB2    00001113              DATA     LOC
     3237   01 01BB3    20001115              K        2,0,0,LOC+2
     3238   01 01BB4    71000000 A            DATA     X'71000000',X'70000000',0,0,X'80000',X'800000'
            01 01BB5    70000000 A
            01 01BB6    00000000 A
            01 01BB7    00000000 A
            01 01BB8    00080000 A
            01 01BB9    00800000 A
     3239   01 01BBA    0A1B001B A   SF027    MODULE                     B09
     3240   01 01BBB    24C00101 A            SF,12    X'101'
     3241   01 01BBC    00001113              DATA     LOC
     3242   01 01BBD    20001115              K        2,0,0,LOC+2
     3243   01 01BBE    61000000 A            DATA     X'61000000',X'60000000',0,0,X'40000',X'400000'
            01 01BBF    60000000 A
            01 01BC0    00000000 A
            01 01BC1    00000000 A
            01 01BC2    00040000 A
            01 01BC3    00400000 A
     3244   01 01BC4    0A1C001C A   SF028    MODULE                     B10
     3245   01 01BC5    24C00101 A            SF,12    X'101'
     3246   01 01BC6    00001113              DATA     LOC
     3247   01 01BC7    20001115              K        2,0,0,LOC+2
     3248   01 01BC8    51000000 A            DATA     X'51000000',X'50000000',0,0,X'20000',X'200000'
            01 01BC9    50000000 A
            01 01BCA    00000000 A
            01 01BCB    00000000 A
            01 01BCC    00020000 A
            01 01BCD    00200000 A
     3249   01 01BCE    0A1D001D A   SF029    MODULE                     B11
     3250   01 01BCF    24C00101 A            SF,12    X'101'
     3251   01 01BD0    00001113              DATA     LOC
     3252   01 01BD1    20001115              K        2,0,0,LOC+2
     3253   01 01BD2    41000000 A            DATA     X'41000000',X'40000000',0,0,X'10000',X'100000'
            01 01BD3    40000000 A
            01 01BD4    00000000 A
            01 01BD5    00000000 A
            01 01BD6    00010000 A
            01 01BD7    00100000 A
     3254   01 01BD8    0A1E001E A   SF030    MODULE                     B12
     3255   01 01BD9    24C00101 A            SF,12    X'101'
     3256   01 01BDA    00001113              DATA     LOC
     3257   01 01BDB    20001115              K        2,0,0,LOC+2
     3258   01 01BDC    31000000 A            DATA     X'31000000',X'30000000',0,0,X'8000',X'80000'
            01 01BDD    30000000 A
            01 01BDE    00000000 A
            01 01BDF    00000000 A
            01 01BE0    00008000 A
            01 01BE1    00080000 A
     3259   01 01BE2    0A1F001F A   SF031    MODULE                     B13
     3260   01 01BE3    24C00101 A            SF,12    X'101'
     3261   01 01BE4    00001113              DATA     LOC
     3262   01 01BE5    20001115              K        2,0,0,LOC+2
     3263   01 01BE6    21000000 A            DATA     X'21000000',X'20000000',0,0,X'4000',X'40000'
            01 01BE7    20000000 A
            01 01BE8    00000000 A
            01 01BE9    00000000 A
            01 01BEA    00004000 A
            01 01BEB    00040000 A
     3264   01 01BEC    0A200020 A   SF032    MODULE                     B14
     3265   01 01BED    24C00101 A            SF,12    X'101'
     3266   01 01BEE    00001113              DATA     LOC
     3267   01 01BEF    20001115              K        2,0,0,LOC+2
     3268   01 01BF0    11000000 A            DATA     X'11000000',X'10000000',0,0,X'2000',X'20000'
            01 01BF1    10000000 A
            01 01BF2    00000000 A
            01 01BF3    00000000 A
            01 01BF4    00002000 A
            01 01BF5    00020000 A
     3269   01 01BF6    0A210021 A   SF033    MODULE                     B15
     3270   01 01BF7    24C00101 A            SF,12    X'101'
     3271   01 01BF8    00001113              DATA     LOC
     3272   01 01BF9    20001115              K        2,0,0,LOC+2
     3273   01 01BFA    01000000 A            DATA     X'01000000',0,0,0,X'1000',X'10000'
            01 01BFB    00000000 A
            01 01BFC    00000000 A
            01 01BFD    00000000 A
            01 01BFE    00001000 A
            01 01BFF    00010000 A
     3274                            ** THE NEXT 16 TESTS COMPLETE THE TEST OF B0031Z AND CHECK THE A UP
     3275                            ** COUNT LOGIC.
     3276   01 01C00    0A220022 A   SF034    MODULE                     B31
     3277   01 01C01    24C0017F A            SF,12    X'17F'
     3278   01 01C02    00001113              DATA     LOC
     3279   01 01C03    20001115              K        2,0,0,LOC+2
     3280   01 01C04    0F000000 A            DATA     X'0F000000',X'10000000',0,0,16,1
            01 01C05    10000000 A
            01 01C06    00000000 A
            01 01C07    00000000 A
            01 01C08    00000010 A
            01 01C09    00000001 A
     3281   01 01C0A    0A230023 A   SF035    MODULE                     B30
     3282   01 01C0B    24C0017F A            SF,12    X'17F'
     3283   01 01C0C    00001113              DATA     LOC
     3284   01 01C0D    20001115              K        2,0,0,LOC+2
     3285   01 01C0E    1F000000 A            DATA     X'1F000000',X'20000000',0,0,32,2
            01 01C0F    20000000 A
            01 01C10    00000000 A
            01 01C11    00000000 A
            01 01C12    00000020 A
            01 01C13    00000002 A
     3286   01 01C14    0A240024 A   SF036    MODULE                     B29
     3287   01 01C15    24C0017F A            SF,12    X'17F'
     3288   01 01C16    00001113              DATA     LOC
     3289   01 01C17    20001115              K        2,0,0,LOC+2
     3290   01 01C18    2F000000 A            DATA     X'2F000000',X'30000000',0,0,64,4
            01 01C19    30000000 A
            01 01C1A    00000000 A
            01 01C1B    00000000 A
            01 01C1C    00000040 A
            01 01C1D    00000004 A
     3291   01 01C1E    0A250025 A   SF037    MODULE                     B28
     3292   01 01C1F    24C0017F A            SF,12    X'17F'
     3293   01 01C20    00001113              DATA     LOC
     3294   01 01C21    20001115              K        2,0,0,LOC+2
     3295   01 01C22    3F000000 A            DATA     X'3F000000',X'40000000',0,0,128,8
            01 01C23    40000000 A
            01 01C24    00000000 A
            01 01C25    00000000 A
            01 01C26    00000080 A
            01 01C27    00000008 A
     3296   01 01C28    0A260026 A   SF038    MODULE                     B27
     3297   01 01C29    24C0017F A            SF,12    X'17F'
     3298   01 01C2A    00001113              DATA     LOC
     3299   01 01C2B    20001115              K        2,0,0,LOC+2
     3300   01 01C2C    4F000000 A            DATA     X'4F000000',X'50000000',0,0,256,16
            01 01C2D    50000000 A
            01 01C2E    00000000 A
            01 01C2F    00000000 A
            01 01C30    00000100 A
            01 01C31    00000010 A
     3301   01 01C32    0A270027 A   SF039    MODULE                     B26
     3302   01 01C33    24C0017F A            SF,12    X'17F'
     3303   01 01C34    00001113              DATA     LOC
     3304   01 01C35    20001115              K        2,0,0,LOC+2
     3305   01 01C36    5F000000 A            DATA     X'5F000000',X'60000000',0,0,512,32
            01 01C37    60000000 A
            01 01C38    00000000 A
            01 01C39    00000000 A
            01 01C3A    00000200 A
            01 01C3B    00000020 A
     3306   01 01C3C    0A280028 A   SF040    MODULE                     B25
     3307   01 01C3D    24C0017F A            SF,12    X'17F'
     3308   01 01C3E    00001113              DATA     LOC
     3309   01 01C3F    20001115              K        2,0,0,LOC+2
     3310   01 01C40    6F000000 A            DATA     X'6F000000',X'70000000',0,0,1024,64
            01 01C41    70000000 A
            01 01C42    00000000 A
            01 01C43    00000000 A
            01 01C44    00000400 A
            01 01C45    00000040 A
     3311   01 01C46    0A290029 A   SF041    MODULE                     B24
     3312   01 01C47    24C0017F A            SF,12    X'17F'
     3313   01 01C48    00001113              DATA     LOC
     3314   01 01C49    20001115              K        2,0,0,LOC+2
     3315   01 01C4A    06000000 A            DATA     X'6000000',X'7000000',0,0,2048,128
            01 01C4B    07000000 A
            01 01C4C    00000000 A
            01 01C4D    00000000 A
            01 01C4E    00000800 A
            01 01C4F    00000080 A
     3316   01 01C50    0A2A002A A   SF042    MODULE                     B23
     3317   01 01C51    24C0017F A            SF,12    X'17F'
     3318   01 01C52    00001113              DATA     LOC
     3319   01 01C53    20001115              K        2,0,0,LOC+2
     3320   01 01C54    70000000 A            DATA     X'70000000',X'71000000',0,0,4096,256
            01 01C55    71000000 A
            01 01C56    00000000 A
            01 01C57    00000000 A
            01 01C58    00001000 A
            01 01C59    00000100 A
     3321   01 01C5A    0A2B002B A   SF043    MODULE                     B22
     3322   01 01C5B    24C0017F A            SF,12    X'17F'
     3323   01 01C5C    00001113              DATA     LOC
     3324   01 01C5D    20001115              K        2,0,0,LOC+2
     3325   01 01C5E    60000000 A            DATA     X'60000000',X'61000000',0,0,8192,512
            01 01C5F    61000000 A
            01 01C60    00000000 A
            01 01C61    00000000 A
            01 01C62    00002000 A
            01 01C63    00000200 A
     3326   01 01C64    0A2C002C A   SF044    MODULE                     B21
     3327   01 01C65    24C0017F A            SF,12    X'17F'
     3328   01 01C66    00001113              DATA     LOC
     3329   01 01C67    20001115              K        2,0,0,LOC+2
     3330   01 01C68    50000000 A            DATA     X'50000000',X'51000000',0,0,16384,1024
            01 01C69    51000000 A
            01 01C6A    00000000 A
            01 01C6B    00000000 A
            01 01C6C    00004000 A
            01 01C6D    00000400 A
     3331   01 01C6E    0A2D002D A   SF045    MODULE                     B20
     3332   01 01C6F    24C0017F A            SF,12    X'17F'
     3333   01 01C70    00001113              DATA     LOC
     3334   01 01C71    20001115              K        2,0,0,LOC+2
     3335   01 01C72    40000000 A            DATA     X'40000000',X'41000000',0,0,32768,2048
            01 01C73    41000000 A
            01 01C74    00000000 A
            01 01C75    00000000 A
            01 01C76    00008000 A
            01 01C77    00000800 A
     3336   01 01C78    0A2E002E A   SF046    MODULE                     B19
     3337   01 01C79    24C0017F A            SF,12    X'17F'
     3338   01 01C7A    00001113              DATA     LOC
     3339   01 01C7B    20001115              K        2,0,0,LOC+2
     3340   01 01C7C    30000000 A            DATA     X'30000000',X'31000000',0,0,65536,4096
            01 01C7D    31000000 A
            01 01C7E    00000000 A
            01 01C7F    00000000 A
            01 01C80    00010000 A
            01 01C81    00001000 A
     3341   01 01C82    0A2F002F A   SF047    MODULE                     B18
     3342   01 01C83    24C0017F A            SF,12    X'17F'
     3343   01 01C84    00001113              DATA     LOC
     3344   01 01C85    20001115              K        2,0,0,LOC+2
     3345   01 01C86    20000000 A            DATA     X'20000000',X'21000000',0,0,131072,8192
            01 01C87    21000000 A
            01 01C88    00000000 A
            01 01C89    00000000 A
            01 01C8A    00020000 A
            01 01C8B    00002000 A
     3346   01 01C8C    0A300030 A   SF048    MODULE                     B17
     3347   01 01C8D    24C0017F A            SF,12    X'17F'
     3348   01 01C8E    00001113              DATA     LOC
     3349   01 01C8F    20001115              K        2,0,0,LOC+2
     3350   01 01C90    10000000 A            DATA     X'10000000',X'11000000',0,0,262144,16384
            01 01C91    11000000 A
            01 01C92    00000000 A
            01 01C93    00000000 A
            01 01C94    00040000 A
            01 01C95    00004000 A
     3351   01 01C96    0A310031 A   SF049    MODULE                     B16
     3352   01 01C97    24C0017F A            SF,12    X'17F'
     3353   01 01C98    00001113              DATA     LOC
     3354   01 01C99    20001115              K        2,0,0,LOC+2
     3355   01 01C9A    00000000 A            DATA     0,X'1000000',0,0,524288,32768
            01 01C9B    01000000 A
            01 01C9C    00000000 A
            01 01C9D    00000000 A
            01 01C9E    00080000 A
            01 01C9F    00008000 A
     3356                            ** CHECK THAT UNUSED BITS IN ADDRESS FIELD HAVE NO EFFECT
     3357                            ** ALSO THAT INDEXING WILL CHANGE A - COUNT TO A + COUNT
     3358   01 01CA0    0C320032 A   SF050    MODULE
     3359   01 01CA1    A4C22970              SF,12    *MEMORY,1
     3360   01 01CA2    00001113              K        0,0,0,LOC
     3361   01 01CA3    20001115              K        2,0,0,LOC+2
     3362   01 01CA4    04000011 A            DATA     X'04000011',X'03000110',X'FFFFFEF0',X'FFFFFEF0',-9,-9
            01 01CA5    03000110 A
            01 01CA6    FFFFFEF0 A
            01 01CA7    FFFFFEF0 A
            01 01CA8    FFFFFFF7 A
            01 01CA9    FFFFFFF7 A
     3363   01 01CAA    00000008 A            DATA     8,8
            01 01CAB    00000008 A
     3364   01 01CAC    0C330033 A   SF01     MODULE                     SF
     3365   01 01CAD    24C00101 A            SF,12    X'101'
     3366   01 01CAE    07301113              K        0,7,3,LOC
     3367   01 01CAF    A7301115              K        10,7,3,LOC+2
     3368   01 01CB0    010F0F0F A            DATA     X'010F0F0F'
     3369   01 01CB1    00F0F0F0 A            DATA     X'00F0F0F0'
     3370   01 01CB2    00000000 A            DATA     X'0'
     3371   01 01CB3    00000000 A            DATA     X'0'
     3372   01 01CB4    0F0F0F0F A            DATA     X'0F0F0F0F'
     3373   01 01CB5    F0F0F0F0 A            DATA     X'F0F0F0F0'
     3374   01 01CB6    00000000 A            DATA     X'0'
     3375   01 01CB7    00000000 A            DATA     X'0'
     3376   01 01CB8    0C340034 A   SF02     MODULE                     SF
     3377   01 01CB9    24C00101 A            SF,12    X'101'
     3378   01 01CBA    07301113              K        0,7,3,LOC
     3379   01 01CBB    27301115              K        2,7,3,LOC+2
     3380   01 01CBC    0300F0F0 A            DATA     X'0300F0F0'
     3381   01 01CBD    020F0F0F A            DATA     X'020F0F0F'
     3382   01 01CBE    00000000 A            DATA     X'0'
     3383   01 01CBF    00000000 A            DATA     X'0'
     3384   01 01CC0    F0F0F0F0 A            DATA     X'F0F0F0F0'
     3385   01 01CC1    0F0F0F00 A            DATA     X'0F0F0F00'
     3386   01 01CC2    00000000 A            DATA     X'0'
     3387   01 01CC3    00000000 A            DATA     X'0'
     3388   01 01CC4    0C350035 A   SF03     MODULE                     SF
     3389   01 01CC5    24C0017F A            SF,12    X'17F'
     3390   01 01CC6    07301113              K        0,7,3,LOC
     3391   01 01CC7    27301115              K        2,7,3,LOC+2
     3392   01 01CC8    010F0F0F A            DATA     X'010F0F0F'
     3393   01 01CC9    0200F0F0 A            DATA     X'0200F0F0'
     3394   01 01CCA    00000000 A            DATA     X'0'
     3395   01 01CCB    00000000 A            DATA     X'0'
     3396   01 01CCC    0F0F0F0F A            DATA     X'0F0F0F0F'
     3397   01 01CCD    F0F0F0F0 A            DATA     X'F0F0F0F0'
     3398   01 01CCE    00000000 A            DATA     X'0'
     3399   01 01CCF    00000000 A            DATA     X'0'
     3400   01 01CD0    0C360036 A   SF04     MODULE                     SF
     3401   01 01CD1    24C0017F A            SF,12    X'17F'
     3402   01 01CD2    07301113              K        0,7,3,LOC
     3403   01 01CD3    27301115              K        2,7,3,LOC+2
     3404   01 01CD4    03F0F0F0 A            DATA     X'03F0F0F0'
     3405   01 01CD5    040F0F0F A            DATA     X'040F0F0F'
     3406   01 01CD6    00000000 A            DATA     X'0'
     3407   01 01CD7    00000000 A            DATA     X'0'
     3408   01 01CD8    F0F0F0F0 A            DATA     X'F0F0F0F0'
     3409   01 01CD9    0F0F0F0F A            DATA     X'0F0F0F0F'
     3410   01 01CDA    00000000 A            DATA     X'0'
     3411   01 01CDB    00000000 A            DATA     X'0'
     3412   01 01CDC    0C370037 A   SF05     MODULE                     SF
     3413   01 01CDD    24C00101 A            SF,12    X'101'
     3414   01 01CDE    07301113              K        0,7,3,LOC
     3415   01 01CDF    87301115              K        8,7,3,LOC+2
     3416   01 01CE0    7F000000 A            DATA     X'7F000000'
     3417   01 01CE1    00000000 A            DATA     X'0'
     3418   01 01CE2    00000000 A            DATA     X'0'
     3419   01 01CE3    00000000 A            DATA     X'0'
     3420   01 01CE4    00000000 A            DATA     X'0'
     3421   01 01CE5    00000000 A            DATA     X'0'
     3422   01 01CE6    00000000 A            DATA     X'0'
     3423   01 01CE7    00000000 A            DATA     X'0'
     3424   01 01CE8    0C380038 A   SF06     MODULE                     SF
     3425   01 01CE9    24C00041 A            SF,12    X'041'
     3426   01 01CEA    07301113              K        0,7,3,LOC
     3427   01 01CEB    07301115              K        0,7,3,LOC+2
     3428   01 01CEC    7F000000 A            DATA     X'7F000000'
     3429   01 01CED    00000000 A            DATA     X'0'
     3430   01 01CEE    00000000 A            DATA     X'0'
     3431   01 01CEF    00000000 A            DATA     X'0'
     3432   01 01CF0    00000000 A            DATA     X'0'
     3433   01 01CF1    00000000 A            DATA     X'0'
     3434   01 01CF2    00000000 A            DATA     X'0'
     3435   01 01CF3    00000000 A            DATA     X'0'
     3436   01 01CF4    0C390039 A   SF07     MODULE                     SF
     3437   01 01CF5    24C00101 A            SF,12    X'101'
     3438   01 01CF6    07301113              K        0,7,3,LOC
     3439   01 01CF7    57301115              K        5,7,3,LOC+2
     3440   01 01CF8    FFFFFFFF A            DATA     X'FFFFFFFF'
     3441   01 01CF9    80FFFFF0 A            DATA     X'80FFFFF0'
     3442   01 01CFA    00000000 A            DATA     X'0'
     3443   01 01CFB    00000000 A            DATA     X'0'
     3444   01 01CFC    00000000 A            DATA     X'0'
     3445   01 01CFD    00000000 A            DATA     X'0'
     3446   01 01CFE    00000000 A            DATA     X'0'
     3447   01 01CFF    00000000 A            DATA     X'0'
     3448   01 01D00    0C3A003A A   SF08     MODULE                     SF
     3449   01 01D01    24C00141 A            SF,12    X'141'
     3450   01 01D02    07301113              K        0,7,3,LOC
     3451   01 01D03    07301115              K        0,7,3,LOC+2
     3452   01 01D04    00FFFFFF A            DATA     X'00FFFFFF'
     3453   01 01D05    00000000 A            DATA     X'0'
     3454   01 01D06    00000000 A            DATA     X'0'
     3455   01 01D07    00000000 A            DATA     X'0'
     3456   01 01D08    FFFFFFFF A            DATA     X'FFFFFFFF'
     3457   01 01D09    00000000 A            DATA     X'0'
     3458   01 01D0A    00000000 A            DATA     X'0'
     3459   01 01D0B    00000000 A            DATA     X'0'
     3460   01 01D0C    0C3B003B A   SF09     MODULE                     SF
     3461   01 01D0D    24C00173 A            SF,12    X'173'
     3462   01 01D0E    07301113              K        0,7,3,LOC
     3463   01 01D0F    27301115              K        2,7,3,LOC+2
     3464   01 01D10    72F00000 A            DATA     X'72F00000'
     3465   01 01D11    7F000000 A            DATA     X'7F000000'
     3466   01 01D12    00000000 A            DATA     X'0'
     3467   01 01D13    00000000 A            DATA     X'0'
     3468   01 01D14    00000000 A            DATA     X'0'
     3469   01 01D15    0000000F A            DATA     X'0000000F'
     3470   01 01D16    00000000 A            DATA     X'0'
     3471   01 01D17    00000000 A            DATA     X'0'
     3472   01 01D18    0C3C003C A   SF10     MODULE                     SF
     3473   01 01D19    24C0013F A            SF,12    X'13F'
     3474   01 01D1A    07301113              K        0,7,3,LOC
     3475   01 01D1B    A7301115              K        10,7,3,LOC+2
     3476   01 01D1C    07080000 A            DATA     X'07080000'
     3477   01 01D1D    06800000 A            DATA     X'06800000'
     3478   01 01D1E    00000000 A            DATA     X'0'
     3479   01 01D1F    00000000 A            DATA     X'0'
     3480   01 01D20    00000000 A            DATA     X'0'
     3481   01 01D21    00000000 A            DATA     X'0'
     3482   01 01D22    00000000 A            DATA     X'0'
     3483   01 01D23    00000000 A            DATA     X'0'
     3484   01 01D24    0C3D003D A   SF11     MODULE                     SF
     3485   01 01D25    24C00172 A            SF,12    X'172'
     3486   01 01D26    07301113              K        0,7,3,LOC
     3487   01 01D27    07301115              K        0,7,3,LOC+2
     3488   01 01D28    72FFFFFF A            DATA     X'72FFFFFF'
     3489   01 01D29    00000000 A            DATA     X'0'
     3490   01 01D2A    00000000 A            DATA     X'0'
     3491   01 01D2B    00000000 A            DATA     X'0'
     3492   01 01D2C    FFFFFFFF A            DATA     X'FFFFFFFF'
     3493   01 01D2D    00000000 A            DATA     X'0'
     3494   01 01D2E    00000000 A            DATA     X'0'
     3495   01 01D2F    00000000 A            DATA     X'0'
     3496   01 01D30    0C3E003E A   SF12     MODULE                     SF
     3497   01 01D31    24C0010D A            SF,12    X'10D'
     3498   01 01D32    07301113              K        0,7,3,LOC
     3499   01 01D33    A7301115              K        10,7,3,LOC+2
     3500   01 01D34    73000000 A            DATA     X'73000000'
     3501   01 01D35    66100000 A            DATA     X'66100000'
     3502   01 01D36    00000000 A            DATA     X'0'
     3503   01 01D37    00000000 A            DATA     X'0'
     3504   01 01D38    00000001 A            DATA     X'00000001'
     3505   01 01D39    00000000 A            DATA     X'0'
     3506   01 01D3A    00000000 A            DATA     X'0'
     3507   01 01D3B    00000000 A            DATA     X'0'
     3508   01 01D3C    0C3F003F A   SF13     MODULE                     SF
     3509   01 01D3D    24C0017E A            SF,12    X'17E'
     3510   01 01D3E    07301113              K        0,7,3,LOC
     3511   01 01D3F    67301115              K        6,7,3,LOC+2
     3512   01 01D40    7FF00000 A            DATA     X'7FF00000'
     3513   01 01D41    000F0000 A            DATA     X'000F0000'
     3514   01 01D42    00000000 A            DATA     X'0'
     3515   01 01D43    00000000 A            DATA     X'0'
     3516   01 01D44    0000000F A            DATA     X'0000000F'
     3517   01 01D45    00000000 A            DATA     X'0'
     3518   01 01D46    00000000 A            DATA     X'0'
     3519   01 01D47    00000000 A            DATA     X'0'
     3520   01 01D48    0C400040 A   SF14     MODULE                     SF
     3521   01 01D49    24C00000 A            SF,12    X'000'
     3522   01 01D4A    07301113              K        0,7,3,LOC
     3523   01 01D4B    A7301115              K        10,7,3,LOC+2
     3524   01 01D4C    7F555555 A            DATA     X'7F555555'
     3525   01 01D4D    7F555555 A            DATA     X'7F555555'
     3526   01 01D4E    00000000 A            DATA     X'0'
     3527   01 01D4F    00000000 A            DATA     X'0'
     3528   01 01D50    00000000 A            DATA     X'0'
     3529   01 01D51    00000000 A            DATA     X'0'
     3530   01 01D52    00000000 A            DATA     X'0'
     3531   01 01D53    00000000 A            DATA     X'0'
     3532   01 01D54    0C410041 A   SF15     MODULE                     SF
     3533   01 01D55    24C00101 A            SF,12    X'101'
     3534   01 01D56    07301113              K        0,7,3,LOC
     3535   01 01D57    97301115              K        9,7,3,LOC+2
     3536   01 01D58    FE000000 A            DATA     X'FE000000'
     3537   01 01D59    FE000000 A            DATA     X'FE000000'
     3538   01 01D5A    00000000 A            DATA     X'0'
     3539   01 01D5B    00000000 A            DATA     X'0'
     3540   01 01D5C    FFFFFFFF A            DATA     X'FFFFFFFF'
     3541   01 01D5D    FFFFFFFF A            DATA     X'FFFFFFFF'
     3542   01 01D5E    00000000 A            DATA     X'0'
     3543   01 01D5F    00000000 A            DATA     X'0'
     3544   01 01D60    0C420042 A   SF16     MODULE                     SF
     3545   01 01D61    24D0017E A            SF,13    X'17E'
     3546   01 01D62    07301113              K        0,7,3,LOC
     3547   01 01D63    27301115              K        2,7,3,LOC+2
     3548   01 01D64    7FAAAAAA A            DATA     X'7FAAAAAA'
     3549   01 01D65    7FAAAAAA A            DATA     X'7FAAAAAA'
     3550   01 01D66    00000000 A            DATA     X'0'
     3551   01 01D67    00000000 A            DATA     X'0'
     3552   01 01D68    40555555 A            DATA     X'40555555'
     3553   01 01D69    42005555 A            DATA     X'42005555'
     3554   01 01D6A    00000000 A            DATA     X'0'
     3555   01 01D6B    00000000 A            DATA     X'0'
     3556   01 01D6C    0C430043 A   SF17     MODULE                     SF
     3557   01 01D6D    24D00104 A            SF,13    X'104'
     3558   01 01D6E    07301113              K        0,7,3,LOC
     3559   01 01D6F    A7301115              K        10,7,3,LOC+2
     3560   01 01D70    00000001 A            DATA     X'00000001'
     3561   01 01D71    00000001 A            DATA     X'1'
     3562   01 01D72    00000000 A            DATA     X'0'
     3563   01 01D73    00000000 A            DATA     X'0'
     3564   01 01D74    40000FFF A            DATA     X'40000FFF'
     3565   01 01D75    3DFFF400 A            DATA     X'3DFFF400'
     3566   01 01D76    00000000 A            DATA     X'0'
     3567   01 01D77    00000000 A            DATA     X'0'
     3568   01 01D78    0C440044 A   SF18     MODULE                     SF
     3569   01 01D79    24C0007D A            SF,12    X'07D'
     3570   01 01D7A    07301113              K        0,7,3,LOC
     3571   01 01D7B    07301115              K        0,7,3,LOC+2
     3572   01 01D7C    FF000000 A            DATA     X'FF000000'
     3573   01 01D7D    00000000 A            DATA     X'0'
     3574   01 01D7E    00000000 A            DATA     X'0'
     3575   01 01D7F    00000000 A            DATA     X'0'
     3576   01 01D80    00000000 A            DATA     X'0'
     3577   01 01D81    00000000 A            DATA     X'0'
     3578   01 01D82    00000000 A            DATA     X'0'
     3579   01 01D83    00000000 A            DATA     X'0'
     3580   01 01D84    0C450045 A   SF19     MODULE                     SF
     3581   01 01D85    24D00001 A            SF,13    X'001'
     3582   01 01D86    07301113              K        0,7,3,LOC
     3583   01 01D87    A7301115              K        10,7,3,LOC+2
     3584   01 01D88    00000000 A            DATA     X'0'
     3585   01 01D89    00000000 A            DATA     X'0'
     3586   01 01D8A    00000000 A            DATA     X'0'
     3587   01 01D8B    00000000 A            DATA     X'0'
     3588   01 01D8C    080F0F0F A            DATA     X'080F0F0F'
     3589   01 01D8D    07F0F0F0 A            DATA     X'07F0F0F0'
     3590   01 01D8E    00000000 A            DATA     X'0'
     3591   01 01D8F    00000000 A            DATA     X'0'
     3592   01 01D90    0C460046 A   SF20     MODULE                     SF
     3593   01 01D91    24D0007F A            SF,13    X'07F'
     3594   01 01D92    07301113              K        0,7,3,LOC
     3595   01 01D93    27301115              K        2,7,3,LOC+2
     3596   01 01D94    00000000 A            DATA     X'0'
     3597   01 01D95    00000000 A            DATA     X'0'
     3598   01 01D96    00000000 A            DATA     X'0'
     3599   01 01D97    00000000 A            DATA     X'0'
     3600   01 01D98    07F0F0F0 A            DATA     X'07F0F0F0'
     3601   01 01D99    080F0F0F A            DATA     X'080F0F0F'
     3602   01 01D9A    00000000 A            DATA     X'0'
     3603   01 01D9B    00000000 A            DATA     X'0'
     3604   01 01D9C    0C470047 A   SF21     MODULE                     SF
     3605   01 01D9D    A4C02970              SF,12    *MEMORY
     3606   01 01D9E    07301113              K        0,7,3,LOC
     3607   01 01D9F    A7301115              K        10,7,3,LOC+2
     3608   01 01DA0    010F0F0F A            DATA     X'010F0F0F'
     3609   01 01DA1    00F0F0F0 A            DATA     X'00F0F0F0'
     3610   01 01DA2    00000101 A            DATA     X'101'
     3611   01 01DA3    00000101 A            DATA     X'101'
     3612   01 01DA4    0F0F0F0F A            DATA     X'0F0F0F0F'
     3613   01 01DA5    F0F0F0F0 A            DATA     X'F0F0F0F0'
     3614   01 01DA6    00000000 A            DATA     X'0'
     3615   01 01DA7    00000000 A            DATA     X'0'
     3616   01 01DA8    0C480048 A   SF22     MODULE                     SF
     3617   01 01DA9    24CE0101 A            SF,12    X'101',7
     3618   01 01DAA    07301113              K        0,7,3,LOC
     3619   01 01DAB    A7301115              K        10,7,3,LOC+2
     3620   01 01DAC    010F0F0F A            DATA     X'010F0F0F'
     3621   01 01DAD    00F0F0F0 A            DATA     X'00F0F0F0'
     3622   01 01DAE    00000000 A            DATA     X'0'
     3623   01 01DAF    00000000 A            DATA     X'0'
     3624   01 01DB0    0F0F0F0F A            DATA     X'0F0F0F0F'
     3625   01 01DB1    F0F0F0F0 A            DATA     X'F0F0F0F0'
     3626   01 01DB2    00000000 A            DATA     X'0'
     3627   01 01DB3    00000000 A            DATA     X'0'
     3628   01 01DB4    0C490049 A   SF23     MODULE                     SF
     3629   01 01DB5    A4CE2970              SF,12    *MEMORY,7
     3630   01 01DB6    07301113              K        0,7,3,LOC
     3631   01 01DB7    A7301115              K        10,7,3,LOC+2
     3632   01 01DB8    010F0F0F A            DATA     X'010F0F0F'
     3633   01 01DB9    00F0F0F0 A            DATA     X'00F0F0F0'
     3634   01 01DBA    00000100 A            DATA     X'100'
     3635   01 01DBB    00000100 A            DATA     X'100'
     3636   01 01DBC    0F0F0F0F A            DATA     X'0F0F0F0F'
     3637   01 01DBD    F0F0F0F0 A            DATA     X'F0F0F0F0'
     3638   01 01DBE    00000000 A            DATA     X'0'
     3639   01 01DBF    00000000 A            DATA     0
     3640                            ** CHECK THAT INDX= C5.C13
     3641   01 01DC0    0A4A004A A   IX03     MODULE
     3642   01 01DC1    24C40002 A            SF,12    2,2               IX2 CONTAINS A 1. CAUSING LS OF 3.
     3643   01 01DC2    00001113              K        0,0,0,LOC
     3644   01 01DC3    A0001115              K        10,0,0,LOC+2
     3645   01 01DC4    14000100 A            DATA     X'14000100'
     3646   01 01DC5    11100000 A            DATA     X'11100000'
     3647   01 01DC6    00000000 A            DATA     0
     3648   01 01DC7    00000000 A            DATA     0
     3649   01 01DC8    FFFFFFFF A            DATA     -1
     3650   01 01DC9    FFFFFFFF A            DATA     -1
     3651   01 01DCA    0401004B A   FAS01    MODULE   X'3D'             FAS
     3652   01 01DCB    3DC02970              FAS,12   MEMORY
     3653   01 01DCC    00301113              K        0,0,3,LOC
     3654   01 01DCD    80301115              K        8,0,3,LOC+2
     3655   01 01DCE    0602004C A   FAS02    MODULE                     FAS
     3656   01 01DCF    3DC02970              FAS,12   MEMORY
     3657   01 01DD0    00301113              K        0,0,3,LOC
     3658   01 01DD1    20301115              K        2,0,3,LOC+2
     3659   01 01DD2    00FFFFFF A            DATA     X'00FFFFFF'
     3660   01 01DD3    00FFFFFF A            DATA     X'00FFFFFF'
     3661   01 01DD4    0803004D A   FAS03    MODULE                     FAS
     3662   01 01DD5    3DC02970              FAS,12   MEMORY
     3663   01 01DD6    00301113              K        0,0,3,LOC
     3664   01 01DD7    20301115              K        2,0,3,LOC+2
     3665   01 01DD8    00000000 A            DATA     X'0'
     3666   01 01DD9    00FFFFFF A            DATA     X'00FFFFFF'
     3667   01 01DDA    00FFFFFF A            DATA     X'00FFFFFF'
     3668   01 01DDB    00FFFFFF A            DATA     X'00FFFFFF'
     3669   01 01DDC    0804004E A   FAS04    MODULE                     FAS
     3670   01 01DDD    3DC02970              FAS,12   MEMORY
     3671   01 01DDE    00301113              K        0,0,3,LOC
     3672   01 01DDF    20301115              K        2,0,3,LOC+2
     3673   01 01DE0    40555555 A            DATA     X'40555555'
     3674   01 01DE1    40AAAAAA A            DATA     X'40AAAAAA'
     3675   01 01DE2    40555555 A            DATA     X'40555555'
     3676   01 01DE3    40555555 A            DATA     X'40555555'
     3677   01 01DE4    0805004F A   FAS05    MODULE                     FAS
     3678   01 01DE5    3DC02970              FAS,12   MEMORY
     3679   01 01DE6    00301113              K        0,0,3,LOC
     3680   01 01DE7    20301115              K        2,0,3,LOC+2
     3681   01 01DE8    40AAAAAA A            DATA     X'40AAAAAA'
     3682   01 01DE9    41155555 A            DATA     X'41155555'
     3683   01 01DEA    40AAAAAA A            DATA     X'40AAAAAA'
     3684   01 01DEB    40AAAAAA A            DATA     X'40AAAAAA'
     3685   01 01DEC    08060050 A   FAS06    MODULE                     FAS
     3686   01 01DED    3DC02970              FAS,12   MEMORY
     3687   01 01DEE    00301113              K        0,0,3,LOC
     3688   01 01DEF    20301115              K        2,0,3,LOC+2
     3689   01 01DF0    00FFFFFF A            DATA     X'00FFFFFF'
     3690   01 01DF1    01100000 A            DATA     X'01100000'
     3691   01 01DF2    00000001 A            DATA     X'1'
     3692   01 01DF3    00000001 A            DATA     X'1'
     3693   01 01DF4    08070051 A   FAS07    MODULE
     3694   01 01DF5    3DCE296F              FAS,12   MEMORY-1,7
     3695   01 01DF6    00301113              K        0,0,3,LOC
     3696   01 01DF7    20301115              K        2,0,3,LOC+2
     3697   01 01DF8    00000001 A            DATA     X'1'
     3698   01 01DF9    01100000 A            DATA     X'01100000'
     3699   01 01DFA    00FFFFFF A            DATA     X'00FFFFFF'
     3700   01 01DFB    00FFFFFF A            DATA     X'00FFFFFF'
     3701   01 01DFC    08080052 A   FAS08    MODULE                     FAS
     3702   01 01DFD    3DC02970              FAS,12   MEMORY
     3703   01 01DFE    00301113              K        0,0,3,LOC
     3704   01 01DFF    20301115              K        2,0,3,LOC+2
     3705   01 01E00    40FFFFFF A            DATA     X'40FFFFFF'
     3706   01 01E01    411FFFFF A            DATA     X'411FFFFF'
     3707   01 01E02    40FFFFFF A            DATA     X'40FFFFFF'
     3708   01 01E03    40FFFFFF A            DATA     X'40FFFFFF'
     3709   01 01E04    08090053 A   FAS09    MODULE                     FAS
     3710   01 01E05    3DC02970              FAS,12   MEMORY
     3711   01 01E06    00301113              K        0,0,3,LOC
     3712   01 01E07    20301115              K        2,0,3,LOC+2
     3713   01 01E08    40AAAAAA A            DATA     X'40AAAAAA'
     3714   01 01E09    40FFFFFF A            DATA     X'40FFFFFF'
     3715   01 01E0A    40555555 A            DATA     X'40555555'
     3716   01 01E0B    40555555 A            DATA     X'40555555'
     3717   01 01E0C    080A0054 A   FAS10    MODULE                     FAS
     3718   01 01E0D    3DC02970              FAS,12   MEMORY
     3719   01 01E0E    00301113              K        0,0,3,LOC
     3720   01 01E0F    20301115              K        2,0,3,LOC+2
     3721   01 01E10    40222222 A            DATA     X'40222222'
     3722   01 01E11    40444444 A            DATA     X'40444444'
     3723   01 01E12    40222222 A            DATA     X'40222222'
     3724   01 01E13    40222222 A            DATA     X'40222222'
     3725   01 01E14    080B0055 A   FAS11    MODULE                     FAS
     3726   01 01E15    3DC02970              FAS,12   MEMORY
     3727   01 01E16    00301113              K        0,0,3,LOC
     3728   01 01E17    20301115              K        2,0,3,LOC+2
     3729   01 01E18    40BBBBBB A            DATA     X'40BBBBBB'
     3730   01 01E19    41144444 A            DATA     X'41144444'
     3731   01 01E1A    40888888 A            DATA     X'40888888'
     3732   01 01E1B    40888888 A            DATA     X'40888888'
     3733   01 01E1C    080C0056 A   FAS12    MODULE                     FAS
     3734   01 01E1D    3DC02970              FAS,12   MEMORY
     3735   01 01E1E    00301113              K        0,0,3,LOC
     3736   01 01E1F    20301115              K        2,0,3,LOC+2
     3737   01 01E20    40DDDDDD A            DATA     X'40DDDDDD'
     3738   01 01E21    41166666 A            DATA     X'41166666'
     3739   01 01E22    40888888 A            DATA     X'40888888'
     3740   01 01E23    40888888 A            DATA     X'40888888'
     3741   01 01E24    080D0057 A   FAS13    MODULE                     FAS
     3742   01 01E25    3DC02970              FAS,12   MEMORY
     3743   01 01E26    00301113              K        0,0,3,LOC
     3744   01 01E27    20301115              K        2,0,3,LOC+2
     3745   01 01E28    40CCCCCC A            DATA     X'40CCCCCC'
     3746   01 01E29    41177777 A            DATA     X'41177777'
     3747   01 01E2A    40AAAAAA A            DATA     X'40AAAAAA'
     3748   01 01E2B    40AAAAAA A            DATA     X'40AAAAAA'
     3749   01 01E2C    080E0058 A   FAS14    MODULE                     FAS
     3750   01 01E2D    3DC02970              FAS,12   MEMORY
     3751   01 01E2E    00301113              K        0,0,3,LOC
     3752   01 01E2F    20301115              K        2,0,3,LOC+2
     3753   01 01E30    40222222 A            DATA     X'40222222'
     3754   01 01E31    40777777 A            DATA     X'40777777'
     3755   01 01E32    40555555 A            DATA     X'40555555'
     3756   01 01E33    40555555 A            DATA     X'40555555'
     3757   01 01E34    080F0059 A   FAS15    MODULE                     FAS
     3758   01 01E35    3DC02970              FAS,12   MEMORY
     3759   01 01E36    00301113              K        0,0,3,LOC
     3760   01 01E37    20301115              K        2,0,3,LOC+2
     3761   01 01E38    40333333 A            DATA     X'40333333'
     3762   01 01E39    40444444 A            DATA     X'40444444'
     3763   01 01E3A    40111111 A            DATA     X'40111111'
     3764   01 01E3B    40111111 A            DATA     X'40111111'
     3765   01 01E3C    0810005A A   FAS15B   MODULE
     3766   01 01E3D    3DC02970              FAS,12   MEMORY
     3767   01 01E3E    00301113              K        0,0,3,LOC
     3768   01 01E3F    20301115              K        2,0,3,LOC+2
     3769   01 01E40    40333333 A            DATA     X'40333333'
     3770   01 01E41    40444444 A            DATA     X'40444444'
     3771   01 01E42    40111111 A            DATA     X'40111111'
     3772   01 01E43    40111111 A            DATA     X'40111111'
     3773   01 01E44    0811005B A   FAS15A   MODULE
     3774   01 01E45    3DC02970              FAS,12   MEMORY
     3775   01 01E46    00301113              K        0,0,3,LOC
     3776   01 01E47    20301115              K        2,0,3,LOC+2
     3777   01 01E48    40111111 A            DATA     X'40111111'
     3778   01 01E49    40222222 A            DATA     X'40222222'
     3779   01 01E4A    40111111 A            DATA     X'40111111'
     3780   01 01E4B    40111111 A            DATA     X'40111111'
     3781   01 01E4C    0812005C A   FAS16    MODULE                     FAS
     3782   01 01E4D    3DC02970              FAS,12   MEMORY
     3783   01 01E4E    00301113              K        0,0,3,LOC
     3784   01 01E4F    20301115              K        2,0,3,LOC+2
     3785   01 01E50    40111111 A            DATA     X'40111111'
     3786   01 01E51    40666666 A            DATA     X'40666666'
     3787   01 01E52    40555555 A            DATA     X'40555555'
     3788   01 01E53    40555555 A            DATA     X'40555555'
     3789   01 01E54    0813005D A   FAS17    MODULE                     FAS
     3790   01 01E55    3DC02970              FAS,12   MEMORY
     3791   01 01E56    00301113              K        0,0,3,LOC
     3792   01 01E57    20301115              K        2,0,3,LOC+2
     3793   01 01E58    40DDDDDD A            DATA     X'40DDDDDD'
     3794   01 01E59    41188888 A            DATA     X'41188888'
     3795   01 01E5A    40AAAAAA A            DATA     X'40AAAAAA'
     3796   01 01E5B    40AAAAAA A            DATA     X'40AAAAAA'
     3797   01 01E5C    0814005E A   FAS18    MODULE                     FAS
     3798   01 01E5D    3DC02970              FAS,12   MEMORY
     3799   01 01E5E    00301113              K        0,0,3,LOC
     3800   01 01E5F    20301115              K        2,0,3,LOC+2
     3801   01 01E60    40555555 A            DATA     X'40555555'
     3802   01 01E61    40888888 A            DATA     X'40888888'
     3803   01 01E62    40333333 A            DATA     X'40333333'
     3804   01 01E63    40333333 A            DATA     X'40333333'
     3805   01 01E64    0815005F A   FAS19    MODULE                     FAS
     3806   01 01E65    3DC02970              FAS,12   MEMORY
     3807   01 01E66    00301113              K        0,0,3,LOC
     3808   01 01E67    20301115              K        2,0,3,LOC+2
     3809   01 01E68    40666666 A            DATA     X'40666666'
     3810   01 01E69    40888888 A            DATA     X'40888888'
     3811   01 01E6A    40222222 A            DATA     X'40222222'
     3812   01 01E6B    40222222 A            DATA     X'40222222'
     3813   01 01E6C    08160060 A   FAS20    MODULE                     FAS
     3814   01 01E6D    3DC02970              FAS,12   MEMORY
     3815   01 01E6E    00301113              K        0,0,3,LOC
     3816   01 01E6F    20301115              K        2,0,3,LOC+2
     3817   01 01E70    40444444 A            DATA     X'40444444'
     3818   01 01E71    40888888 A            DATA     X'40888888'
     3819   01 01E72    40444444 A            DATA     X'40444444'
     3820   01 01E73    40444444 A            DATA     X'40444444'
     3821   01 01E74    08170061 A   FAS21    MODULE                     FAS
     3822   01 01E75    3DC02970              FAS,12   MEMORY
     3823   01 01E76    00301113              K        0,0,3,LOC
     3824   01 01E77    20301115              K        2,0,3,LOC+2
     3825   01 01E78    40BBBBBB A            DATA     X'40BBBBBB'
     3826   01 01E79    40CCCCCC A            DATA     X'40CCCCCC'
     3827   01 01E7A    40111111 A            DATA     X'40111111'
     3828   01 01E7B    40111111 A            DATA     X'40111111'
     3829   01 01E7C    08180062 A   FAS22    MODULE                     FAS
     3830   01 01E7D    3DC02970              FAS,12   MEMORY
     3831   01 01E7E    00301113              K        0,0,3,LOC
     3832   01 01E7F    20301115              K        2,0,3,LOC+2
     3833   01 01E80    40DDDDDD A            DATA     X'40DDDDDD'
     3834   01 01E81    40EEEEEE A            DATA     X'40EEEEEE'
     3835   01 01E82    40111111 A            DATA     X'40111111'
     3836   01 01E83    40111111 A            DATA     X'40111111'
     3837   01 01E84    08190063 A   FAS23    MODULE                     FAS
     3838   01 01E85    3DC02970              FAS,12   MEMORY
     3839   01 01E86    00301113              K        0,0,3,LOC
     3840   01 01E87    20301115              K        2,0,3,LOC+2
     3841   01 01E88    40888888 A            DATA     X'40888888'
     3842   01 01E89    40EEEEEE A            DATA     X'40EEEEEE'
     3843   01 01E8A    40666666 A            DATA     X'40666666'
     3844   01 01E8B    40666666 A            DATA     X'40666666'
     3845   01 01E8C    081A0064 A   FAS24    MODULE                     FAS
     3846   01 01E8D    3DC02970              FAS,12   MEMORY
     3847   01 01E8E    00301113              K        0,0,3,LOC
     3848   01 01E8F    20301115              K        2,0,3,LOC+2
     3849   01 01E90    40AAAAAA A            DATA     X'40AAAAAA'
     3850   01 01E91    40CCCCCC A            DATA     X'40CCCCCC'
     3851   01 01E92    40222222 A            DATA     X'40222222'
     3852   01 01E93    40222222 A            DATA     X'40222222'
     3853   01 01E94    081B0065 A   FAS25    MODULE                     FAS
     3854   01 01E95    3DC02970              FAS,12   MEMORY
     3855   01 01E96    00301113              K        0,0,3,LOC
     3856   01 01E97    20301115              K        2,0,3,LOC+2
     3857   01 01E98    40888888 A            DATA     X'40888888'
     3858   01 01E99    40CCCCCC A            DATA     X'40CCCCCC'
     3859   01 01E9A    40444444 A            DATA     X'40444444'
     3860   01 01E9B    40444444 A            DATA     X'40444444'
     3861   01 01E9C    081C0066 A   FAS26    MODULE                     FAS
     3862   01 01E9D    3DC02970              FAS,12   MEMORY
     3863   01 01E9E    00301113              K        0,0,3,LOC
     3864   01 01E9F    20301115              K        2,0,3,LOC+2
     3865   01 01EA0    40FEFFFE A            DATA     X'40FEFFFE'
     3866   01 01EA1    41101000 A            DATA     X'41101000'
     3867   01 01EA2    40020002 A            DATA     X'40020002'
     3868   01 01EA3    40020002 A            DATA     X'40020002'
     3869   01 01EA4    081D0067 A   FAS27    MODULE                     FAS
     3870   01 01EA5    3DC02970              FAS,12   MEMORY
     3871   01 01EA6    00301113              K        0,0,3,LOC
     3872   01 01EA7    20301115              K        2,0,3,LOC+2
     3873   01 01EA8    40FDFFFC A            DATA     X'40FDFFFC'
     3874   01 01EA9    41102000 A            DATA     X'41102000'
     3875   01 01EAA    40040004 A            DATA     X'40040004'
     3876   01 01EAB    40040004 A            DATA     X'40040004'
     3877   01 01EAC    081E0068 A   FAS28    MODULE                     FAS
     3878   01 01EAD    3DC02970              FAS,12   MEMORY
     3879   01 01EAE    00301113              K        0,0,3,LOC
     3880   01 01EAF    20301115              K        2,0,3,LOC+2
     3881   01 01EB0    40FBFFF8 A            DATA     X'40FBFFF8'
     3882   01 01EB1    41104000 A            DATA     X'41104000'
     3883   01 01EB2    40080008 A            DATA     X'40080008'
     3884   01 01EB3    40080008 A            DATA     X'40080008'
     3885   01 01EB4    081F0069 A   FAS29    MODULE                     FAS
     3886   01 01EB5    3DC02970              FAS,12   MEMORY
     3887   01 01EB6    00301113              K        0,0,3,LOC
     3888   01 01EB7    20301115              K        2,0,3,LOC+2
     3889   01 01EB8    40F7FFF0 A            DATA     X'40F7FFF0'
     3890   01 01EB9    41108000 A            DATA     X'41108000'
     3891   01 01EBA    40100010 A            DATA     X'40100010'
     3892   01 01EBB    40100010 A            DATA     X'40100010'
     3893   01 01EBC    0820006A A   FAS30    MODULE                     FAS
     3894   01 01EBD    3DC02970              FAS,12   MEMORY
     3895   01 01EBE    00301113              K        0,0,3,LOC
     3896   01 01EBF    20301115              K        2,0,3,LOC+2
     3897   01 01EC0    40EFFFE0 A            DATA     X'40EFFFE0'
     3898   01 01EC1    41110000 A            DATA     X'41110000'
     3899   01 01EC2    40200020 A            DATA     X'40200020'
     3900   01 01EC3    40200020 A            DATA     X'40200020'
     3901   01 01EC4    0821006B A   FAS31    MODULE                     FAS
     3902   01 01EC5    3DC02970              FAS,12   MEMORY
     3903   01 01EC6    00301113              K        0,0,3,LOC
     3904   01 01EC7    20301115              K        2,0,3,LOC+2
     3905   01 01EC8    40DFFFC0 A            DATA     X'40DFFFC0'
     3906   01 01EC9    41120000 A            DATA     X'41120000'
     3907   01 01ECA    40400040 A            DATA     X'40400040'
     3908   01 01ECB    40400040 A            DATA     X'40400040'
     3909   01 01ECC    0822006C A   FAS32    MODULE                     FAS
     3910   01 01ECD    3DC02970              FAS,12   MEMORY
     3911   01 01ECE    00301113              K        0,0,3,LOC
     3912   01 01ECF    20301115              K        2,0,3,LOC+2
     3913   01 01ED0    40BFFF80 A            DATA     X'40BFFF80'
     3914   01 01ED1    41140000 A            DATA     X'41140000'
     3915   01 01ED2    40800080 A            DATA     X'40800080'
     3916   01 01ED3    40800080 A            DATA     X'40800080'
     3917   01 01ED4    0823006D A   FAS33    MODULE                     FAS
     3918   01 01ED5    3DC02970              FAS,12   MEMORY
     3919   01 01ED6    00301113              K        0,0,3,LOC
     3920   01 01ED7    20301115              K        2,0,3,LOC+2
     3921   01 01ED8    407FFF00 A            DATA     X'407FFF00'
     3922   01 01ED9    40800000 A            DATA     X'40800000'
     3923   01 01EDA    40000100 A            DATA     X'40000100'
     3924   01 01EDB    40000100 A            DATA     X'40000100'
     3925   01 01EDC    0824006E A   FAS34    MODULE                     FAS
     3926   01 01EDD    3DC02970              FAS,12   MEMORY
     3927   01 01EDE    00301113              K        0,0,3,LOC
     3928   01 01EDF    20301115              K        2,0,3,LOC+2
     3929   01 01EE0    40FFFE00 A            DATA     X'40FFFE00'
     3930   01 01EE1    41100000 A            DATA     X'41100000'
     3931   01 01EE2    40000200 A            DATA     X'40000200'
     3932   01 01EE3    40000200 A            DATA     X'40000200'
     3933   01 01EE4    0825006F A   FAS35    MODULE                     FAS
     3934   01 01EE5    3DC02970              FAS,12   MEMORY
     3935   01 01EE6    00301113              K        0,0,3,LOC
     3936   01 01EE7    20301115              K        2,0,3,LOC+2
     3937   01 01EE8    40FFFC00 A            DATA     X'40FFFC00'
     3938   01 01EE9    41100000 A            DATA     X'41100000'
     3939   01 01EEA    40000400 A            DATA     X'40000400'
     3940   01 01EEB    40000400 A            DATA     X'40000400'
     3941   01 01EEC    08260070 A   FAS36    MODULE                     FAS
     3942   01 01EED    3DC02970              FAS,12   MEMORY
     3943   01 01EEE    00301113              K        0,0,3,LOC
     3944   01 01EEF    20301115              K        2,0,3,LOC+2
     3945   01 01EF0    40FFF800 A            DATA     X'40FFF800'
     3946   01 01EF1    41100000 A            DATA     X'41100000'
     3947   01 01EF2    40000800 A            DATA     X'40000800'
     3948   01 01EF3    40000800 A            DATA     X'40000800'
     3949   01 01EF4    08270071 A   FAS37    MODULE                     FAS
     3950   01 01EF5    3DC02970              FAS,12   MEMORY
     3951   01 01EF6    00301113              K        0,0,3,LOC
     3952   01 01EF7    20301115              K        2,0,3,LOC+2
     3953   01 01EF8    4000F000 A            DATA     X'4000F000'
     3954   01 01EF9    3F100000 A            DATA     X'3F100000'
     3955   01 01EFA    40001000 A            DATA     X'40001000'
     3956   01 01EFB    40001000 A            DATA     X'40001000'
     3957   01 01EFC    08280072 A   FAS38    MODULE                     FAS
     3958   01 01EFD    3DC02970              FAS,12   MEMORY
     3959   01 01EFE    00301113              K        0,0,3,LOC
     3960   01 01EFF    20301115              K        2,0,3,LOC+2
     3961   01 01F00    4000E000 A            DATA     X'4000E000'
     3962   01 01F01    3F100000 A            DATA     X'3F100000'
     3963   01 01F02    40002000 A            DATA     X'40002000'
     3964   01 01F03    40002000 A            DATA     X'40002000'
     3965   01 01F04    08290073 A   FAS39    MODULE                     FAS
     3966   01 01F05    3DC02970              FAS,12   MEMORY
     3967   01 01F06    00301113              K        0,0,3,LOC
     3968   01 01F07    20301115              K        2,0,3,LOC+2
     3969   01 01F08    4000C000 A            DATA     X'4000C000'
     3970   01 01F09    3F100000 A            DATA     X'3F100000'
     3971   01 01F0A    40004000 A            DATA     X'40004000'
     3972   01 01F0B    40004000 A            DATA     X'40004000'
     3973   01 01F0C    082A0074 A   FAS40    MODULE                     FAS
     3974   01 01F0D    3DC02970              FAS,12   MEMORY
     3975   01 01F0E    00301113              K        0,0,3,LOC
     3976   01 01F0F    20301115              K        2,0,3,LOC+2
     3977   01 01F10    40FF0000 A            DATA     X'40FF0000'
     3978   01 01F11    41100000 A            DATA     X'41100000'
     3979   01 01F12    40010000 A            DATA     X'40010000'
     3980   01 01F13    40010000 A            DATA     X'40010000'
     3981   01 01F14    082B0075 A   FAS41    MODULE                     FAS
     3982   01 01F15    3DC02970              FAS,12   MEMORY            CHECKS   D TO F  FUNCTION
     3983   01 01F16    00301113              K        0,0,3,LOC
     3984   01 01F17    20301115              K        2,0,3,LOC+2
     3985   01 01F18    00000000 A            DATA     X'00000000'
     3986   01 01F19    3F123456 A            DATA     X'3F123456'      BITS D0207 TO F0207  TRANSFER
     3987   01 01F1A    3F123456 A            DATA     X'3F123456'      B
     3988   01 01F1B    3F123456 A            DATA     X'3F123456'      B
     3989   01 01F1C    082C0076 A   FAS42    MODULE                     FAS
     3990   01 01F1D    3DC02970              FAS,12   MEMORY
     3991   01 01F1E    00301113              K        0,0,3,LOC
     3992   01 01F1F    10301115              K        1,0,3,LOC+2       BITS  D0005 TO  F0005 TRANSFER
     3993   01 01F20    00000000 A            DATA     0
     3994   01 01F21    FCEFFFFF A            DATA     X'FCEFFFFF'
     3995   01 01F22    FCEFFFFF A            DATA     X'FCEFFFFF'
     3996   01 01F23    FCEFFFFF A            DATA     X'FCEFFFFF'
     3997   01 01F24    082D0077 A   FAS43    MODULE                     FAS
     3998   01 01F25    3DC02970              FAS,12   MEMORY
     3999   01 01F26    00301113              K        0,0,3,LOC
     4000   01 01F27    20301115              K        2,0,3,LOC+2
     4001   01 01F28    00000000 A            DATA     0                 CHECKS FOR 0 TRANSFER FROM
     4002   01 01F29    01888888 A            DATA     X'01888888'
     4003   01 01F2A    01888888 A            DATA     X'01888888'       D0006 TO  F0006
     4004   01 01F2B    01888888 A            DATA     X'01888888'
     4005                            * FAS CASE
     4006                            * GUARD DIGIT.    USE  RU1 AND MEMORY
     4007   01 01F2C    0C2E0078 A   FAS44    MODULE
     4008   01 01F2D    3DD02970              FAS,13   MEMORY
     4009   01 01F2E    00001113              DATA     LOC
     4010   01 01F2F    20001115              K        2,0,0,LOC+2
     4011   01 01F30    FFFFFFFF A            DATA     -1,-1,X'C2D00053',X'C2D00053'
            01 01F31    FFFFFFFF A
            01 01F32    C2D00053 A
            01 01F33    C2D00053 A
     4012   01 01F34    3F00F234 A            DATA     X'3F00F234'                                       *G00
     4013   01 01F35    3DC23460 A            DATA     X'3DC23460'       EXPECTED RESULT                 *G00
     4014   01 01F36    00000000 A            DATA     0                                                 *G00
     4015   01 01F37    00000000 A            DATA     0                                                 *G00
     4016                            * FAS CASE
     4017                            * GUARD DIGIT     USE R AND MEMORY +1
     4018   01 01F38    0C2F0079 A   FAS45    MODULE
     4019   01 01F39    3DC02971              FAS,12   MEMORY+1
     4020   01 01F3A    00001113              DATA     LOC
     4021   01 01F3B    20001115              K        2,0,0,LOC+2
     4022   01 01F3C    DDFFF321 A            DATA     X'DDFFF321'                                       *G00
     4023   01 01F3D    20357880 A            DATA     X'20357880'       EXPECTED RESULT                 *G00
     4024   01 01F3E    FFFFFFFF A            DATA     -1                                                *G00
     4025   01 01F3F    FFFFFFFF A            DATA     -1                                                *G00
     4026   01 01F40    000001F4 A            DATA     500                                               *G00
     4027   01 01F41    000001F4 A            DATA     500                                               *G00
     4028   01 01F42    20425784 A            DATA     X'20425784',X'20425784'
            01 01F43    20425784 A
     4029                            * FAS CASE
     4030                            * GUARD DIGIT- TWO POST NORMALIZE SHIFTS. LARGEST EXPONENT IN R
     4031   01 01F44    0830007A A   FAS46    MODULE
     4032   01 01F45    3DC02970              FAS,12   MEMORY
     4033   01 01F46    00001113              DATA     LOC
     4034   01 01F47    20001115              K        2,0,0,LOC+2
     4035   01 01F48    30004567 A            DATA     X'30004567'                                       *G00
     4036   01 01F49    2E69CFA0 A            DATA     X'2E69CFA0'       EXPECTED RESULT                 *G00
     4037   01 01F4A    2E2468AB A            DATA     X'2E2468AB'                                       *G00
     4038   01 01F4B    2E2468AB A            DATA     X'2E2468AB'                                       *G00
     4039                            * FAS CASE
     4040                            * GUARD DITIT  TWO POST NORMALIZE SHIFTS. LARGEST EXPONENT IN MEMORY
     4041   01 01F4C    0831007B A   FAS47    MODULE
     4042   01 01F4D    3DC02970              FAS,12   MEMORY
     4043   01 01F4E    00001113              DATA     LOC
     4044   01 01F4F    20001115              K        2,0,0,LOC+2
     4045   01 01F50    15042279 A            DATA     X'15042279',X'14743B90',X'16003214',X'16003214'
            01 01F51    14743B90 A
            01 01F52    16003214 A
            01 01F53    16003214 A
     4046                            * FAS CASE
     4047                            * >2 POSTNORMALIZE SHIFTS. POSITIVE ANSWER
     4048   01 01F54    0832007C A   FAS48    MODULE
     4049   01 01F55    3DC02970              FAS,12   MEMORY
     4050   01 01F56    00001113              DATA     LOC
     4051   01 01F57    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4052   01 01F58    0F6789AB A            DATA     X'0F6789AB'                                       *G00
     4053   01 01F59    102AC800 A            DATA     X'102AC800'       EXPECTED RESULT                 *G00
     4054   01 01F5A    13000245 A            DATA     X'13000245',X'13000245'
            01 01F5B    13000245 A
     4055                            * FAS CASE
     4056                            * >2 POSTNORMALIZE SHIFTS  NEGATIVE ANSWER
     4057   01 01F5C    0833007D A   FAS49    MODULE
     4058   01 01F5D    3DC02970              FAS,12   MEMORY
     4059   01 01F5E    00001113              DATA     LOC
     4060   01 01F5F    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4061   01 01F60    A0FFF632 A            DATA     X'A0FFF632'
     4062   01 01F61    A3054200 A            DATA     X'A3054200'       EXPECTED RESULT                 *G00
     4063   01 01F62    A3A22111 A            DATA     X'A3A22111'
     4064   01 01F63    A3A22111 A            DATA     X'A3A22111'
     4065                            * FAS CASE
     4066                            * INHIBIT NORMALIZATION
     4067   01 01F64    0834007E A   FAS50    MODULE
     4068   01 01F65    3DC02970              FAS,12   MEMORY
     4069   01 01F66    F1001113              K        15,1,0,LOC
     4070   01 01F67    21001115              K        2,1,0,LOC+2
     4071   01 01F68    13000245 A            DATA     X'13000245',X'130002AC'
            01 01F69    130002AC A
     4072   01 01F6A    0F6789AB A            DATA     X'0F6789AB',X'0F6789AB'
            01 01F6B    0F6789AB A
     4073                            * FAS CASE
     4074                            * INHIBIT NORMALIZATION
     4075   01 01F6C    0835007F A   FAS51    MODULE
     4076   01 01F6D    3DC02970              FAS,12   MEMORY
     4077   01 01F6E    F1001113              K        15,1,0,LOC
     4078   01 01F6F    11001115              K        1,1,0,LOC+2
     4079   01 01F70    A4E22111 A            DATA     X'A4E22111'
     4080   01 01F71    A0FFFF15 A            DATA     X'A0FFFF15'
     4081   01 01F72    A0FFFF32 A            DATA     X'A0FFFF32',X'A0FFFF32'
            01 01F73    A0FFFF32 A
     4082                            * FAS CASE
     4083                            *  EXPONENT OVERFLOW
     4084   01 01F74    08360080 A   FAS52    MODULE
     4085   01 01F75    3DC02970              FAS,12   MEMORY
     4086   01 01F76    00001117              DATA     LOC+4
     4087   01 01F77    60001016              K        6,0,0,EXP:TRAP
     4088   01 01F78    7F811111 A            DATA     X'7F811111'
     4089   01 01F79    7F811111 A            DATA     X'7F811111'
     4090   01 01F7A    7F811111 A            DATA     X'7F811111'
     4091   01 01F7B    7F811111 A            DATA     X'7F811111'
     4092                            * FAS CASE
     4093                            *  EXPONENT OVERFLOW
     4094   01 01F7C    08370081 A   FAS53    MODULE
     4095   01 01F7D    3DC02970              FAS,12   MEMORY
     4096   01 01F7E    00001117              DATA     LOC+4
     4097   01 01F7F    50001016              K        5,0,0,EXP:TRAP
     4098   01 01F80    80111111 A            DATA     X'80111111'
     4099   01 01F81    80111111 A            DATA     X'80111111'
     4100   01 01F82    80111111 A            DATA     X'80111111'
     4101   01 01F83    80111111 A            DATA     X'80111111'
     4102                            * FAS CASE
     4103                            * EW EXPONENT > R EXPONENT. R POS S EW NEG
     4104   01 01F84    08380082 A   FAS54    MODULE
     4105   01 01F85    3DC02970              FAS,12   MEMORY
     4106   01 01F86    00001113              DATA     LOC
     4107   01 01F87    20001115              K        2,0,0,LOC+2
     4108   01 01F88    0F016288 A            DATA     X'0F016288'                                       *G00
     4109   01 01F89    0DE91AE0 A            DATA     X'0DE91AE0'       EXPECTED RESULT                 *G00
     4110   01 01F8A    F28692DE A            DATA     X'F28692DE',X'F28692DE'
            01 01F8B    F28692DE A
     4111                            * FAS CASE
     4112                            * EW EXPONENT > R EXPONENT  R POS S EW NEG
     4113   01 01F8C    08390083 A   FAS55    MODULE
     4114   01 01F8D    3DC02970              FAS,12   MEMORY
     4115   01 01F8E    00001113              DATA     LOC
     4116   01 01F8F    10001115              K        1,0,0,LOC+2
     4117   01 01F90    59864267 A            DATA     X'59864267',X'A401ECA9'
            01 01F91    A401ECA9 A
     4118   01 01F92    A4016666 A            DATA     X'A4016666',X'A4016666'
            01 01F93    A4016666 A
     4119                            * FAS CASE
     4120                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     4121                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4122                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4123   01 01F94    0A3A0084 A   FAS56    MODULE
     4124   01 01F95    3DC02970              FAS,12   MEMORY
     4125   01 01F96    00001113              DATA     LOC
     4126   01 01F97    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4127   01 01F98    46100000 A            DATA     X'46100000',X'46100000',X'4B000000',X'4B000000'
            01 01F99    46100000 A
            01 01F9A    4B000000 A
            01 01F9B    4B000000 A
     4128   01 01F9C    FFFFFFFF A            DATA     -1,-1
            01 01F9D    FFFFFFFF A
     4129                            * FAS CASE
     4130                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     4131                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4132                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4133   01 01F9E    0C3B0085 A   FAS57    MODULE
     4134   01 01F9F    3DC02970              FAS,12   MEMORY
     4135   01 01FA0    00001113              DATA     LOC
     4136   01 01FA1    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4137   01 01FA2    46000001 A            DATA     X'46000001',X'41200000',X'41100000',X'41100000'
            01 01FA3    41200000 A
            01 01FA4    41100000 A
            01 01FA5    41100000 A
     4138   01 01FA6    00000000 A            DATA     0,0,-1,-1
            01 01FA7    00000000 A
            01 01FA8    FFFFFFFF A
            01 01FA9    FFFFFFFF A
     4139                            * FAS CASE
     4140                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     4141                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4142                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4143   01 01FAA    083C0086 A   FAS58    MODULE
     4144   01 01FAB    3DC02970              FAS,12   MEMORY
     4145   01 01FAC    00001113              DATA     LOC
     4146   01 01FAD    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4147   01 01FAE    41000002 A            DATA     X'41000002',X'3C400000',X'3C200000',X'3C200000'
            01 01FAF    3C400000 A
            01 01FB0    3C200000 A
            01 01FB1    3C200000 A
     4148                            * FAS CASE
     4149                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     4150                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4151                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4152   01 01FB2    083D0087 A   FAS59    MODULE
     4153   01 01FB3    3DC02970              FAS,12   MEMORY
     4154   01 01FB4    00001113              DATA     LOC
     4155   01 01FB5    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4156   01 01FB6    37500000 A            DATA     X'37500000',X'37800000',X'3C000003',X'3C000003'
            01 01FB7    37800000 A
            01 01FB8    3C000003 A
            01 01FB9    3C000003 A
     4157   01 01FBA    083E0088 A   FAS60    MODULE                     FAS
     4158   01 01FBB    3DC0000C A            FAS,12   12
     4159   01 01FBC    00301113              K        0,0,3,LOC
     4160   01 01FBD    20301115              K        2,0,3,LOC+2
     4161   01 01FBE    40AAAAAA A            DATA     X'40AAAAAA'
     4162   01 01FBF    41155555 A            DATA     X'41155555'
     4163   01 01FC0    40AAAAAA A            DATA     X'40AAAAAA'
     4164   01 01FC1    40AAAAAA A            DATA     X'40AAAAAA'
     4165   01 01FC2    0C010089 A   FAL01    MODULE   X'1D'             FAL
     4166   01 01FC3    1DC02970              FAL,12   MEMORY
     4167   01 01FC4    00301113              K        0,0,3,LOC
     4168   01 01FC5    10301115              K        1,0,3,LOC+2
     4169   01 01FC6    BFAAAAAA A            DATA     X'BFAAAAAA'
     4170   01 01FC7    BF555555 A            DATA     X'BF555555'
     4171   01 01FC8    BFAAAAAA A            DATA     X'BFAAAAAA'
     4172   01 01FC9    BFAAAAAA A            DATA     X'BFAAAAAA'
     4173   01 01FCA    AAAAAAAA A            DATA     X'AAAAAAAA'
     4174   01 01FCB    55555554 A            DATA     X'55555554'
     4175   01 01FCC    AAAAAAAA A            DATA     X'AAAAAAAA'
     4176   01 01FCD    AAAAAAAA A            DATA     X'AAAAAAAA'
     4177   01 01FCE    0C02008A A   FAL02    MODULE                     FAL
     4178   01 01FCF    1DC02970              FAL,12   MEMORY
     4179   01 01FD0    00301113              K        0,0,3,LOC
     4180   01 01FD1    10301115              K        1,0,3,LOC+2
     4181   01 01FD2    C0555555 A            DATA     X'C0555555'
     4182   01 01FD3    BFEAAAAA A            DATA     X'BFEAAAAA'
     4183   01 01FD4    C0555555 A            DATA     X'C0555555'
     4184   01 01FD5    C0555555 A            DATA     X'C0555555'
     4185   01 01FD6    55555555 A            DATA     X'55555555'
     4186   01 01FD7    AAAAAAAB A            DATA     X'AAAAAAAB'
     4187   01 01FD8    55555555 A            DATA     X'55555555'
     4188   01 01FD9    55555555 A            DATA     X'55555555'
     4189   01 01FDA    0C03008B A   FAL03    MODULE                     FAL            CARRY INTO PRIME ADDE
     4190   01 01FDB    1DC02970              FAL,12   MEMORY
     4191   01 01FDC    00301113              K        0,0,3,LOC
     4192   01 01FDD    20301115              K        2,0,3,LOC+2
     4193   01 01FDE    407FFFFF A            DATA     X'407FFFFF'
     4194   01 01FDF    40800000 A            DATA     X'40800000'
     4195   01 01FE0    40000000 A            DATA     X'40000000'
     4196   01 01FE1    40000000 A            DATA     X'40000000'
     4197   01 01FE2    FFFFFFFF A            DATA     X'FFFFFFFF'
     4198   01 01FE3    00000000 A            DATA     X'0'
     4199   01 01FE4    00000001 A            DATA     X'1'
     4200   01 01FE5    00000001 A            DATA     X'1'
     4201   01 01FE6    0C04008C A   FAL04    MODULE                     FAL            CARRY INTO PRIME ADDE
     4202   01 01FE7    1DC02970              FAL,12   MEMORY
     4203   01 01FE8    00301113              K        0,0,3,LOC
     4204   01 01FE9    20301115              K        2,0,3,LOC+2
     4205   01 01FEA    40000000 A            DATA     X'40000000'
     4206   01 01FEB    41100000 A            DATA     X'41100000'
     4207   01 01FEC    40FFFFFF A            DATA     X'40FFFFFF'
     4208   01 01FED    40FFFFFF A            DATA     X'40FFFFFF'
     4209   01 01FEE    00000001 A            DATA     X'1'
     4210   01 01FEF    00000000 A            DATA     X'0'
     4211   01 01FF0    FFFFFFFF A            DATA     X'FFFFFFFF'
     4212   01 01FF1    FFFFFFFF A            DATA     X'FFFFFFFF'
     4213   01 01FF2    0405008D A   FAL05    MODULE                     FAL       FN=1  ZERO RESULT UNNORM
     4214   01 01FF3    1DC02970              FAL,12   MEMORY
     4215   01 01FF4    07301113              K        0,7,3,LOC
     4216   01 01FF5    07301115              K        0,7,3,LOC+2
     4217   01 01FF6    0C06008E A   FAL06    MODULE                     FN=1  POS RESULT UNNORM
     4218   01 01FF7    9DCE107A              FAL,12   *IAP,7
     4219   01 01FF8    07301113              K        0,7,3,LOC
     4220   01 01FF9    27301115              K        2,7,3,LOC+2
     4221   01 01FFA    4000003F A            DATA     X'4000003F'
     4222   01 01FFB    4000007F A            DATA     X'4000007F'
     4223   01 01FFC    4000003F A            DATA     X'4000003F'
     4224   01 01FFD    4000003F A            DATA     X'4000003F'
     4225   01 01FFE    FFFFFFFF A            DATA     X'FFFFFFFF'
     4226   01 01FFF    FFFFFFFE A            DATA     X'FFFFFFFE'
     4227   01 02000    FFFFFFFF A            DATA     X'FFFFFFFF'
     4228   01 02001    FFFFFFFF A            DATA     X'FFFFFFFF'
     4229   01 02002    0C07008F A   FAL07    MODULE                     FN=1  NEG RESULT UNNORM
     4230   01 02003    9DC015EE              FAL,12   *IA
     4231   01 02004    07301113              K        0,7,3,LOC
     4232   01 02005    17301115              K        1,7,3,LOC+2
     4233   01 02006    4000003F A            DATA     X'4000003F'
     4234   01 02007    BFFFFFD0 A            DATA     X'BFFFFFD0'
     4235   01 02008    BFFFFF90 A            DATA     X'BFFFFF90'
     4236   01 02009    BFFFFF90 A            DATA     X'BFFFFF90'
     4237   01 0200A    FFFFFFFF A            DATA     X'FFFFFFFF'
     4238   01 0200B    00000000 A            DATA     X'0'
     4239   01 0200C    00000001 A            DATA     X'1'
     4240   01 0200D    00000001 A            DATA     X'1'
     4241   01 0200E    0C080090 A   FAL08    MODULE                     FN=0,FZ=0,UNDERFLOW
     4242   01 0200F    1DC02970              FAL,12   MEMORY
     4243   01 02010    04301113              K        0,4,3,LOC
     4244   01 02011    C4301115              K        12,4,3,LOC+2
     4245   01 02012    00010000 A            DATA     X'00010000'
     4246   01 02013    00000000 A            DATA     X'0'
     4247   01 02014    00010000 A            DATA     X'00010000'
     4248   01 02015    00010000 A            DATA     X'00010000'
     4249   01 02016    FFFFFFFF A            DATA     X'FFFFFFFF'
     4250   01 02017    00000000 A            DATA     X'0'
     4251   01 02018    00000001 A            DATA     X'1'
     4252   01 02019    00000001 A            DATA     X'1'
     4253   01 0201A    08090091 A   FAL09    MODULE                     FAL       FN=0,FZ=1,UFLO,+ RES,TRAP
     4254   01 0201B    1DC02970              FAL,12   MEMORY
     4255   01 0201C    02301117              K        0,2,3,LOC+4
     4256   01 0201D    E2301016              K        14,2,3,EXP:TRAP
     4257   01 0201E    00010000 A            DATA     X'00010000'
     4258   01 0201F    00010000 A            DATA     X'00010000'
     4259   01 02020    00010000 A            DATA     X'00010000'
     4260   01 02021    00010000 A            DATA     X'00010000'
     4261   01 02022    080A0092 A   FAL10    MODULE                     FAL       FN=0,FZ=1,UFLO,-RES,TRAP
     4262   01 02023    1DC02970              FAL,12   MEMORY
     4263   01 02024    06301117              K        0,6,3,LOC+4
     4264   01 02025    86301016              K        8,6,3,EXP:TRAP
     4265   01 02026    FFFF0000 A            DATA     X'FFFF0000'
     4266   01 02027    FFFF0000 A            DATA     X'FFFF0000'
     4267   01 02028    00010000 A            DATA     X'00010000'
     4268   01 02029    00010000 A            DATA     X'00010000'
     4269   01 0202A    040B0093 A   FAL11    MODULE                     FAL       FN=0,FS=0,RES=0
     4270   01 0202B    1DC02970              FAL,12   MEMORY
     4271   01 0202C    00301113              K        0,0,3,LOC
     4272   01 0202D    80301115              K        8,0,3,LOC+2
     4273   01 0202E    040C0094 A   FAL12    MODULE                     FAL       FN=0,FS=1,RES=0,TRAP
     4274   01 0202F    1DC02970              FAL,12   MEMORY
     4275   01 02030    04301117              K        0,4,3,LOC+4
     4276   01 02031    84301016              K        8,4,3,EXP:TRAP
     4277   01 02032    080D0095 A   FAL13    MODULE                     FAL       FN=0,FS=0,+RES,>2 SHIFTS
     4278   01 02033    1DC02970              FAL,12   MEMORY
     4279   01 02034    02301113              K        0,2,3,LOC
     4280   01 02035    A2301115              K        10,2,3,LOC+2
     4281   01 02036    40000100 A            DATA     X'40000100'
     4282   01 02037    3D200000 A            DATA     X'3D200000'
     4283   01 02038    40000100 A            DATA     X'40000100'
     4284   01 02039    40000100 A            DATA     X'40000100'
     4285   01 0203A    080E0096 A   FAL14    MODULE                     FAL       FN=0,FS=0,-RES,>2 SHIFTS
     4286   01 0203B    1DC02970              FAL,12   MEMORY
     4287   01 0203C    02301113              K        0,2,3,LOC
     4288   01 0203D    92301115              K        9,2,3,LOC+2
     4289   01 0203E    40000100 A            DATA     X'40000100'
     4290   01 0203F    C2F00000 A            DATA     X'C2F00000'
     4291   01 02040    BFFFFE00 A            DATA     X'BFFFFE00'
     4292   01 02041    BFFFFE00 A            DATA     X'BFFFFE00'
     4293   01 02042    080F0097 A   FAL15    MODULE                     FAL       FN=0,FS=0,UFLO,FZ=0,>2 SH
     4294   01 02043    1DC02970              FAL,12   MEMORY
     4295   01 02044    00301113              K        0,0,3,LOC
     4296   01 02045    C0301115              K        12,0,3,LOC+2
     4297   01 02046    00001000 A            DATA     X'00001000'
     4298   01 02047    00000000 A            DATA     X'0'
     4299   01 02048    00001000 A            DATA     X'00001000'
     4300   01 02049    00001000 A            DATA     X'00001000'
     4301   01 0204A    08100098 A   FAL16    MODULE                     FAL       FN=0,FS=0,UFLO,FZ=1,+RES,
     4302   01 0204B    1DC02970              FAL,12   MEMORY            >2 SHIFTS,TRAP
     4303   01 0204C    02301117              K        0,2,3,LOC+4
     4304   01 0204D    E2301016              K        14,2,3,EXP:TRAP
     4305   01 0204E    00001000 A            DATA     X'00001000'
     4306   01 0204F    00001000 A            DATA     X'1000'
     4307   01 02050    00001000 A            DATA     X'00001000'
     4308   01 02051    00001000 A            DATA     X'1000'
     4309   01 02052    08110099 A   FAL17    MODULE                     FAL       FN=0,FS=0,UFLO,FZ=1,-RES,
     4310   01 02053    1DC02970              FAL,12   MEMORY            >2 DHIFTS, TRAP
     4311   01 02054    02301117              K        0,2,3,LOC+4
     4312   01 02055    D2301016              K        13,2,3,EXP:TRAP
     4313   01 02056    00000100 A            DATA     X'00000100'
     4314   01 02057    00000100 A            DATA     X'100'
     4315   01 02058    FFFFFE00 A            DATA     X'FFFFFE00'
     4316   01 02059    FFFFFE00 A            DATA     X'FFFFFE00'
     4317   01 0205A    0812009A A   FAL18    MODULE                     FAL       FN=0,FS=1,+RES,>2 SHIFTS,
     4318   01 0205B    1DC02970              FAL,12   MEMORY
     4319   01 0205C    06301117              K        0,6,3,LOC+4
     4320   01 0205D    A6301016              K        10,6,3,EXP:TRAP
     4321   01 0205E    40000100 A            DATA     X'40000100'
     4322   01 0205F    40000100 A            DATA     X'40000100'
     4323   01 02060    40000100 A            DATA     X'40000100'
     4324   01 02061    40000100 A            DATA     X'40000100'
     4325   01 02062    0813009B A   FAL19    MODULE                     FAL       FN=0,FS=1,-RES,>2 SHIFTS,
     4326   01 02063    1DC02970              FAL,12   MEMORY            TRAP
     4327   01 02064    04301117              K        0,4,3,LOC+4
     4328   01 02065    94301016              K        9,4,3,EXP:TRAP
     4329   01 02066    40000100 A            DATA     X'40000100'
     4330   01 02067    40000100 A            DATA     X'40000100'
     4331   01 02068    BFFFFE00 A            DATA     X'BFFFFE00'
     4332   01 02069    BFFFFE00 A            DATA     X'BFFFFE00'
     4333                            * FAL CASE
     4334                            *  TEST : G1215= G14.PR12.PR13, G2831= G30.PR28.PR29, G6871=G70.PR68PR69
     4335                            *         K71=PR00-11.G1215, K03=PR04-11.G1215, K07=PR0811.G1215
     4336                            *         K12=PR13.G14,K16=PR17.PR18.PR19.K19, K17=PR18.PR19.K19
     4337                            *         K28=PR29.G30,  G5255= G54.PR52.PR53, K68=PR69.G70
     4338                            *         K47=PR4851.G5255, K52=PR53.G54,K56=PR57.PR58.PR59.K59
     4339                            *  OVERFLOW
     4340   01 0206A    0C14009C A   FAL20    MODULE
     4341   01 0206B    1DC02970              FAL,12   MEMORY
     4342   01 0206C    00001113              DATA     LOC
     4343   01 0206D    20001115              K        2,0,0,LOC+2
     4344   01 0206E    22FEFFFE A            DATA     X'22FEFFFE',X'23101000',X'22020002',X'22020002'
            01 0206F    23101000 A
            01 02070    22020002 A
            01 02071    22020002 A
     4345   01 02072    FFFEFFFE A            DATA     X'FFFEFFFE',X'10001000',X'20002',X'20002'
            01 02073    10001000 A
            01 02074    00020002 A
            01 02075    00020002 A
     4346                            * FAL CASE
     4347                            *  TEST : G1215= G13.PR12 , G2831= G29.PR28
     4348                            *         G5255= G53.PR52 , G6871= G69.PR68
     4349   01 02076    0C15009D A   FAL21    MODULE
     4350   01 02077    1DC02970              FAL,12   MEMORY
     4351   01 02078    00001113              DATA     LOC
     4352   01 02079    20001115              K        2,0,0,LOC+2
     4353   01 0207A    337DFFFD A            DATA     X'337DFFFD',X'33820002',X'33040004',X'33040004'
            01 0207B    33820002 A
            01 0207C    33040004 A
            01 0207D    33040004 A
     4354   01 0207E    FFFDFFFC A            DATA     X'FFFDFFFC',X'20000',X'40004',X'40004'
            01 0207F    00020000 A
            01 02080    00040004 A
            01 02081    00040004 A
     4355                            * FAL CASE
     4356                            *  TEST : G0811= G11.PR08.PR09.PR10, G2427= G27.PR24.PR25.PR26
     4357                            *         G4851= G51.PR48.PR49.PR50, G6467= G67.PR64.PR65.PR66
     4358                            *         K11= PR00-07.G0811, K03= PR0407.G0811,K15=PR1623.G2427
     4359                            *         K08= PR09.PR10.G11, K19=PR2023.G2427, K55=PR5663.G6467
     4360                            *         K48= PR49.PR50.G51, K49=PR6063.G6467, K09=PR10.G11
     4361                            *         K24= PR25.PR26.G27, K25= PR26.G27     K49=PR50.G51
     4362                            *         K64= PR65.PR66.G67, K65= PR66.G67,
     4363                            *  OVERFLOW
     4364   01 02082    0C16009E A   FAL22    MODULE
     4365   01 02083    1DC02970              FAL,12   MEMORY
     4366   01 02084    00001113              DATA     LOC
     4367   01 02085    20001115              K        2,0,0,LOC+2
     4368   01 02086    44F7FFF0 A            DATA     X'44F7FFF0',X'45108000',X'44100010',X'44100010'
            01 02087    45108000 A
            01 02088    44100010 A
            01 02089    44100010 A
     4369   01 0208A    FFF7FFF0 A            DATA     X'FFF7FFF0',X'10008000',X'100010',X'100010'
            01 0208B    10008000 A
            01 0208C    00100010 A
            01 0208D    00100010 A
     4370                            * FAL CASE
     4371                            *  TEST : G0811= G10.PR08.PR09, G2427= G26,PR24.PR25, K24= PR25.G26
     4372                            *         G4851= G50.PR48.PR49, G6467= G66.PR24.PR25, K64= PR65.G66
     4373                            *  OVERFLOW
     4374   01 0208E    0C17009F A   FAL23    MODULE
     4375   01 0208F    1DC02970              FAL,12   MEMORY
     4376   01 02090    00001113              DATA     LOC
     4377   01 02091    20001115              K        2,0,0,LOC+2
     4378   01 02092    55EFFFE0 A            DATA     X'55EFFFE0',X'56110000',X'55200020',X'55200020'
            01 02093    56110000 A
            01 02094    55200020 A
            01 02095    55200020 A
     4379   01 02096    FFEFFFE0 A            DATA     X'FFEFFFE0',X'10010000',X'200020',X'200020'
            01 02097    10010000 A
            01 02098    00200020 A
            01 02099    00200020 A
     4380                            * FAL CASE
     4381                            *  TEST : G0811= G09.PR08, G2427=G25.PR24
     4382                            *         G4851= G49.PR48, G6467=G65.PR64
     4383                            *  OVERFLOW
     4384   01 0209A    0C1800A0 A   FAL24    MODULE
     4385   01 0209B    1DC02970              FAL,12   MEMORY
     4386   01 0209C    00001113              DATA     LOC
     4387   01 0209D    20001115              K        2,0,0,LOC+2
     4388   01 0209E    66DFFFC0 A            DATA     X'66DFFFC0',X'67120000',X'66400040',X'66400040'
            01 0209F    67120000 A
            01 020A0    66400040 A
            01 020A1    66400040 A
     4389   01 020A2    00DFFFC0 A            DATA     X'00DFFFC0',X'00120000',X'400040',X'400040'
            01 020A3    00120000 A
            01 020A4    00400040 A
            01 020A5    00400040 A
     4390                            * FAL CASE
     4391                            *  TEST :G0407= G07.PR04.PR05.PR06, G2023= G23.PR20.PR21.PR22
     4392                            *        K71=PR0003.G0407, K15= PR1619.G2023, K4=PR05.PR06.G07
     4393                            *        K5= PR06.G07, K20 = PR21.PR22.G23, K21=PR22.G23
     4394                            *        K55=PR5659.G6063, K60=PR61.PR62.G63, K61= PR62.G63
     4395                            *        G6063= G63.PR60.PR61.PR62
     4396   01 020A6    0C1900A1 A   FAL25    MODULE
     4397   01 020A7    1DC02970              FAL,12   MEMORY
     4398   01 020A8    00001113              DATA     LOC
     4399   01 020A9    20001115              K        2,0,0,LOC+2
     4400   01 020AA    777FFF00 A            DATA     X'777FFF00',X'77800001',X'77000100',X'77000100'
            01 020AB    77800001 A
            01 020AC    77000100 A
            01 020AD    77000100 A
     4401   01 020AE    FF7FFF00 A            DATA     X'FF7FFF00',X'800000',X'1000100',X'1000100'
            01 020AF    00800000 A
            01 020B0    01000100 A
            01 020B1    01000100 A
     4402                            * FAL CASE
     4403                            *  TEST :G0407= G06.PR04.PR05, G2023=G22.PR20.PR21, K04= PR05.G06
     4404                            *        K20= G22.PR21, K60=G62.PR61, G6063= G62.PR60.PR61
     4405   01 020B2    0C1A00A2 A   FAL26    MODULE
     4406   01 020B3    1DC02970              FAL,12   MEMORY
     4407   01 020B4    00001113              DATA     LOC
     4408   01 020B5    10001115              K        1,0,0,LOC+2
     4409   01 020B6    8800FE00 A            DATA     X'8800FE00',X'87E01000',X'88000200',X'88000200'
            01 020B7    87E01000 A
            01 020B8    88000200 A
            01 020B9    88000200 A
     4410   01 020BA    FEFFFE00 A            DATA     X'FEFFFE00',X'10100000',X'02000200',X'02000200'
            01 020BB    10100000 A
            01 020BC    02000200 A
            01 020BD    02000200 A
     4411                            * FAL CASE
     4412                            *  TESTS: G0407= G05.PR04, G2023=PR20.G21, G6063= PR60.G61
     4413                            *  OVERFLOW
     4414   01 020BE    0C1B00A3 A   FAL27    MODULE
     4415   01 020BF    1DC02970              FAL,12   MEMORY
     4416   01 020C0    00001113              DATA     LOC
     4417   01 020C1    10001115              K        1,0,0,LOC+2
     4418   01 020C2    99000C00 A            DATA     X'99000C00',X'98E00100',X'99000400',X'99000400'
            01 020C3    98E00100 A
            01 020C4    99000400 A
            01 020C5    99000400 A
     4419   01 020C6    FDFFFC00 A            DATA     X'FDFFFC00',X'10200000',X'4000400',X'4000400'
            01 020C7    10200000 A
            01 020C8    04000400 A
            01 020C9    04000400 A
     4420                            * FAL CASE
     4421                            *  TESTS: G1619= G19.PR16.PR17.PR18, K16= PR17.PR18.G19, K17=PR18.G19
     4422                            *         G5659= G59.PR56.PR57.PR58, K56= PR57.PR58.G59, K57=PR58.G59
     4423                            *  OVERFLOW
     4424   01 020CA    0C1C00A4 A   FAL28    MODULE
     4425   01 020CB    1DC02970              FAL,12   MEMORY
     4426   01 020CC    00001113              DATA     LOC
     4427   01 020CD    10001115              K        1,0,0,LOC+2
     4428   01 020CE    AA10F000 A            DATA     X'AA10F000',X'A9E11000',X'AA001000',X'AA001000'
            01 020CF    A9E11000 A
            01 020D0    AA001000 A
            01 020D1    AA001000 A
     4429   01 020D2    0000F000 A            DATA     X'F000',X'01000',X'1000',X'1000'
            01 020D3    00001000 A
            01 020D4    00001000 A
            01 020D5    00001000 A
     4430                            * FAL CASE
     4431                            *  TEST : G1619= G18.PR16.PR17, K16= PR17.G18
     4432                            *         G5659= G58.PR56.PR57, K56= PR57.G58
     4433                            *  OVERFLOW
     4434   01 020D6    0C1D00A5 A   FAL29    MODULE
     4435   01 020D7    1DC02970              FAL,12   MEMORY
     4436   01 020D8    00001113              DATA     LOC
     4437   01 020D9    10001115              K        1,0,0,LOC+2
     4438   01 020DA    BB20E000 A            DATA     X'BB20E000',X'BAE21000',X'BB002000',X'BB002000'
            01 020DB    BAE21000 A
            01 020DC    BB002000 A
            01 020DD    BB002000 A
     4439   01 020DE    0000E000 A            DATA     X'E000',X'01000',X'2000',X'2000'
            01 020DF    00001000 A
            01 020E0    00002000 A
            01 020E1    00002000 A
     4440                            * FAL CASE
     4441                            *  TEST : G1619= PR16.G17, G5659 =G57.PR56
     4442                            *  OVERFLOW
     4443   01 020E2    0C1E00A6 A   FAL30    MODULE
     4444   01 020E3    1DC02970              FAL,12   MEMORY
     4445   01 020E4    00001113              DATA     LOC
     4446   01 020E5    10001115              K        1,0,0,LOC+2
     4447   01 020E6    CC30C000 A            DATA     X'CC30C000',X'CBE31000',X'CC004000',X'CC004000'
            01 020E7    CBE31000 A
            01 020E8    CC004000 A
            01 020E9    CC004000 A
     4448   01 020EA    0000C000 A            DATA     X'C000',X'01000',X'4000',X'4000'
            01 020EB    00001000 A
            01 020EC    00004000 A
            01 020ED    00004000 A
     4449                            * FAL CASE
     4450                            *  TEST : G1215= G15.PR12.PR13.PR14, K12 = G15.PR13.PR14, K13=G15.PR14
     4451                            *         G5255= G55.PR52.PR53.PR54, K52=  G55.PR53.PR54, K53=G55.PR54
     4452                            *  OVERFLOW
     4453   01 020EE    0C1F00A7 A   FAL31    MODULE
     4454   01 020EF    1DC02970              FAL,12   MEMORY
     4455   01 020F0    00001113              DATA     LOC
     4456   01 020F1    10001115              K        1,0,0,LOC+2
     4457   01 020F2    DD0F0000 A            DATA     X'DD0F0000',X'DCE10000',X'DD010000',X'DD010000'
            01 020F3    DCE10000 A
            01 020F4    DD010000 A
            01 020F5    DD010000 A
     4458   01 020F6    0FFF0000 A            DATA     X'FFF0000',X'01000000',X'10000',X'10000'
            01 020F7    01000000 A
            01 020F8    00010000 A
            01 020F9    00010000 A
     4459                            * FAL CASE
     4460                            *  TEST : G0003= G03.PR00.PR01.PR02, K0=PR01.PR02.G3, K1=PR02.G03
     4461                            *  OVERFLOW
     4462   01 020FA    0C2000A8 A   FAL32    MODULE
     4463   01 020FB    1DC02970              FAL,12   MEMORY
     4464   01 020FC    00001113              DATA     LOC
     4465   01 020FD    10001115              K        1,0,0,LOC+2
     4466   01 020FE    EE000000 A            DATA     X'EE000000',X'EDE40000',X'EE400000',X'EE400000'
            01 020FF    EDE40000 A
            01 02100    EE400000 A
            01 02101    EE400000 A
     4467   01 02102    F0000000 A            DATA     X'F0000000',X'10000000',X'10000000',X'10000000'
            01 02103    10000000 A
            01 02104    10000000 A
            01 02105    10000000 A
     4468                            * FAL CASE
     4469                            *  TEST : G0003= G02.PR00.PR01, K0= PR01.G02
     4470                            *  OVERFLOW
     4471   01 02106    0C2100A9 A   FAL33    MODULE
     4472   01 02107    1DC02970              FAL,12   MEMORY
     4473   01 02108    00001113              DATA     LOC
     4474   01 02109    10001115              K        1,0,0,LOC+2
     4475   01 0210A    FF000000 A            DATA     X'FF000000',X'FEE80000',X'FF800000',X'FF800000'
            01 0210B    FEE80000 A
            01 0210C    FF800000 A
            01 0210D    FF800000 A
     4476   01 0210E    E0000000 A            DATA     X'E0000000',X'10000000',X'20000000',X'20000000'
            01 0210F    10000000 A
            01 02110    20000000 A
            01 02111    20000000 A
     4477                            * FAL CASE
     4478                            *  TEST : G0003= G01.PR00
     4479   01 02112    0C2200AA A   FAL34    MODULE
     4480   01 02113    1DC02970              FAL,12   MEMORY
     4481   01 02114    00001113              DATA     LOC
     4482   01 02115    20001115              K        2,0,0,LOC+2
     4483   01 02116    11000000 A            DATA     X'11000000',X'11200001',X'11200000',X'11200000'
            01 02117    11200001 A
            01 02118    11200000 A
            01 02119    11200000 A
     4484   01 0211A    C0000000 A            DATA     X'C0000000',0,X'40000000',X'40000000'
            01 0211B    00000000 A
            01 0211C    40000000 A
            01 0211D    40000000 A
     4485                            * FAL CASE
     4486                            * A EXPONENT - D EXPONENT = 0  LENGTHY NORMALIZE  ADD +3& -2
     4487   01 0211E    0C2300AB A   FAL35    MODULE
     4488   01 0211F    1DC02970              FAL,12   MEMORY
     4489   01 02120    00001113              DATA     LOC
     4490   01 02121    A0001115              K        10,0,0,LOC+2
     4491   01 02122    55000000 A            DATA     X'55000000',X'48100000'
            01 02123    48100000 A
     4492   01 02124    AAFFFFFF A            DATA     X'AAFFFFFF',X'AAFFFFFF'
            01 02125    AAFFFFFF A
     4493   01 02126    00000003 A            DATA     3,0,-2,-2
            01 02127    00000000 A
            01 02128    FFFFFFFE A
            01 02129    FFFFFFFE A
     4494                            * FAL CASE
     4495                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     4496                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4497                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4498   01 0212A    082400AC A   FAL36    MODULE
     4499   01 0212B    1DC02970              FAL,12   MEMORY
     4500   01 0212C    00001113              DATA     LOC
     4501   01 0212D    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4502   01 0212E    7F000000 A            DATA     X'7F000000',X'72100000',X'72100000',X'72100000'
            01 0212F    72100000 A
            01 02130    72100000 A
            01 02131    72100000 A
     4503                            * FAL CASE
     4504                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     4505                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4506                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4507   01 02132    0A2500AD A   FAL37    MODULE
     4508   01 02133    1DC02970              FAL,12   MEMORY
     4509   01 02134    00001113              DATA     LOC
     4510   01 02135    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4511   01 02136    72000000 A            DATA     X'72000000',X'65200000',X'65100000',X'65100000'
            01 02137    65200000 A
            01 02138    65100000 A
            01 02139    65100000 A
     4512   01 0213A    00000001 A            DATA     1,0
            01 0213B    00000000 A
     4513                            * FAL CASE
     4514                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     4515                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4516                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4517   01 0213C    0C2600AE A   FAL38    MODULE
     4518   01 0213D    1DC02970              FAL,12   MEMORY
     4519   01 0213E    00001113              DATA     LOC
     4520   01 0213F    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4521   01 02140    58300000 A            DATA     X'58300000',X'58400000',X'65000000',X'65000000'
            01 02141    58400000 A
            01 02142    65000000 A
            01 02143    65000000 A
     4522   01 02144    00000000 A            DATA     0,0,1,1
            01 02145    00000000 A
            01 02146    00000001 A
            01 02147    00000001 A
     4523                            * FAL CASE
     4524                            * TEST  THAT RTZ IS NOT SET AS LONG AS A SINGLE BIT IS ON
     4525                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4526                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4527   01 02148    0C2700AF A   FAL39    MODULE
     4528   01 02149    1DC02970              FAL,12   MEMORY
     4529   01 0214A    00001113              DATA     LOC
     4530   01 0214B    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4531   01 0214C    4B200000 A            DATA     X'4B200000',X'4B800000',X'58000000',X'58000000'
            01 0214D    4B800000 A
            01 0214E    58000000 A
            01 0214F    58000000 A
     4532   01 02150    00000000 A            DATA     0,0,6,6
            01 02151    00000000 A
            01 02152    00000006 A
            01 02153    00000006 A
     4533                            * FAL CASE
     4534                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4535                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4536   01 02154    0A2800B0 A   FAL40    MODULE
     4537   01 02155    1DC02970              FAL,12   MEMORY
     4538   01 02156    00001113              DATA     LOC
     4539   01 02157    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4540   01 02158    37000000 A            DATA     X'37000000',X'2A800000',X'2A400000',X'2A400000'
            01 02159    2A800000 A
            01 0215A    2A400000 A
            01 0215B    2A400000 A
     4541   01 0215C    00000004 A            DATA     4,0
            01 0215D    00000000 A
     4542                            * FAL CASE
     4543                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4544                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4545   01 0215E    0A2900B1 A   FAL41    MODULE
     4546   01 0215F    1DC02970              FAL,12   MEMORY
     4547   01 02160    00001113              DATA     LOC
     4548   01 02161    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4549   01 02162    2A000000 A            DATA     X'2A000000',X'1D200000',X'1D100000',X'1D100000'
            01 02163    1D200000 A
            01 02164    1D100000 A
            01 02165    1D100000 A
     4550   01 02166    00000001 A            DATA     1,0
            01 02167    00000000 A
     4551                            * FAL CASE
     4552                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4553                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4554   01 02168    0A2A00B2 A   FAL42    MODULE
     4555   01 02169    1DC02970              FAL,12   MEMORY
     4556   01 0216A    00001113              DATA     LOC
     4557   01 0216B    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4558   01 0216C    1D000000 A            DATA     X'1D000000',X'10400000',X'10200000',X'10200000'
            01 0216D    10400000 A
            01 0216E    10200000 A
            01 0216F    10200000 A
     4559   01 02170    00000002 A            DATA     2,0
            01 02171    00000000 A
     4560                            * FAL CASE
     4561                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4562                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4563   01 02172    0A2B00B3 A   FAL43    MODULE
     4564   01 02173    1DC02970              FAL,12   MEMORY
     4565   01 02174    00001113              DATA     LOC
     4566   01 02175    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4567   01 02176    10000000 A            DATA     X'10000000',X'03A00000',X'03800000',X'03800000'
            01 02177    03A00000 A
            01 02178    03800000 A
            01 02179    03800000 A
     4568   01 0217A    00000002 A            DATA     2,0
            01 0217B    00000000 A
     4569                            * FAL CASE
     4570                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4571                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4572   01 0217C    0A2C00B4 A   FAL44    MODULE
     4573   01 0217D    1DC02970              FAL,12   MEMORY
     4574   01 0217E    00001113              DATA     LOC
     4575   01 0217F    A0001115              K        10,0,0,LOC+2      N>0  GREATER THAN 2 POSTNORMAL SHIFT
     4576   01 02180    0D000000 A            DATA     X'0D000000',X'00500000',X'00100000',X'00100000'
            01 02181    00500000 A
            01 02182    00100000 A
            01 02183    00100000 A
     4577   01 02184    00000004 A            DATA     4,0
            01 02185    00000000 A
     4578                            * FAL CASE
     4579                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4580                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4581   01 02186    0C2D00B5 A   FAL45    MODULE
     4582   01 02187    1DC02970              FAL,12   MEMORY
     4583   01 02188    00001113              DATA     LOC
     4584   01 02189    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4585   01 0218A    FF2FFFFF A            DATA     X'FF2FFFFF',X'FF200000'
            01 0218B    FF200000 A
     4586   01 0218C    F2FFFFFF A            DATA     X'F2FFFFFF',X'F2FFFFFF'
            01 0218D    F2FFFFFF A
     4587   01 0218E    FFFFFFFF A            DATA     -1,0,-1,-1
            01 0218F    00000000 A
            01 02190    FFFFFFFF A
            01 02191    FFFFFFFF A
     4588                            * FAL CASE
     4589                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4590                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4591   01 02192    0C2E00B6 A   FAL46    MODULE
     4592   01 02193    1DC02970              FAL,12   MEMORY
     4593   01 02194    00001113              DATA     LOC
     4594   01 02195    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4595   01 02196    F23FFFFF A            DATA     X'F23FFFFF',X'F2200000',X'E5FFFFFF',X'E5FFFFFF'
            01 02197    F2200000 A
            01 02198    E5FFFFFF A
            01 02199    E5FFFFFF A
     4596   01 0219A    00000000 A            DATA     0,0,-2,-2
            01 0219B    00000000 A
            01 0219C    FFFFFFFE A
            01 0219D    FFFFFFFE A
     4597                            * FAL CASE
     4598                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4599                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4600   01 0219E    0C2F00B7 A   FAL47    MODULE
     4601   01 0219F    1DC02970              FAL,12   MEMORY
     4602   01 021A0    00001113              DATA     LOC
     4603   01 021A1    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4604   01 021A2    E54FFFFF A            DATA     X'E54FFFFF',X'E5300000',X'D8FFFFFF',X'D8FFFFFF'
            01 021A3    E5300000 A
            01 021A4    D8FFFFFF A
            01 021A5    D8FFFFFF A
     4605   01 021A6    FFFFFFFF A            DATA     -1,0,-2,-2
            01 021A7    00000000 A
            01 021A8    FFFFFFFE A
            01 021A9    FFFFFFFE A
     4606                            * FAL CASE
     4607                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4608                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4609   01 021AA    0C3000B8 A   FAL48    MODULE
     4610   01 021AB    1DC02970              FAL,12   MEMORY
     4611   01 021AC    00001113              DATA     LOC
     4612   01 021AD    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4613   01 021AE    D85FFFFF A            DATA     X'D85FFFFF',X'D8400000',X'CBFFFFFF',X'CBFFFFFF'
            01 021AF    D8400000 A
            01 021B0    CBFFFFFF A
            01 021B1    CBFFFFFF A
     4614   01 021B2    FFFFFFFF A            DATA     -1,0,-2,-2
            01 021B3    00000000 A
            01 021B4    FFFFFFFE A
            01 021B5    FFFFFFFE A
     4615                            * FAL CASE
     4616                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4617                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4618   01 021B6    0C3100B9 A   FAL49    MODULE
     4619   01 021B7    1DC02970              FAL,12   MEMORY
     4620   01 021B8    00001113              DATA     LOC
     4621   01 021B9    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4622   01 021BA    CB6FFFFF A            DATA     X'CB6FFFFF',X'CB500000',X'BEFFFFFF',X'BEFFFFFF'
            01 021BB    CB500000 A
            01 021BC    BEFFFFFF A
            01 021BD    BEFFFFFF A
     4623   01 021BE    FFFFFFFF A            DATA     -1,0,-2,-2
            01 021BF    00000000 A
            01 021C0    FFFFFFFE A
            01 021C1    FFFFFFFE A
     4624                            * FAL CASE
     4625                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4626                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4627   01 021C2    0C3200BA A   FAL50    MODULE
     4628   01 021C3    1DC02970              FAL,12   MEMORY
     4629   01 021C4    00001113              DATA     LOC
     4630   01 021C5    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4631   01 021C6    BE7FFFFF A            DATA     X'BE7FFFFF',X'BE600000'
            01 021C7    BE600000 A
     4632   01 021C8    B1FFFFFF A            DATA     X'B1FFFFFF'
     4633   01 021C9    B1FFFFFF A            DATA     X'B1FFFFFF'
     4634   01 021CA    FFFFFFFF A            DATA     -1,0,-2,-2
            01 021CB    00000000 A
            01 021CC    FFFFFFFE A
            01 021CD    FFFFFFFE A
     4635                            * FAL CASE
     4636                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4637                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4638   01 021CE    0C3300BB A   FAL51    MODULE
     4639   01 021CF    1DC02970              FAL,12   MEMORY
     4640   01 021D0    00001113              DATA     LOC
     4641   01 021D1    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4642   01 021D2    B18FFFFF A            DATA     X'B18FFFFF',X'B1700000'
            01 021D3    B1700000 A
     4643   01 021D4    A4FFFFFF A            DATA     X'A4FFFFFF'
     4644   01 021D5    A4FFFFFF A            DATA     X'A4FFFFFF'
     4645   01 021D6    FFFFFFFF A            DATA     -1,0,-2,-2
            01 021D7    00000000 A
            01 021D8    FFFFFFFE A
            01 021D9    FFFFFFFE A
     4646                            * FAL CASE
     4647                            * SHIFT TO LSD BEFORE ADD AND THEN TO MOST SIG DIGIT AFTER ADD
     4648                            * USE DIFFERENT CHARACTERISTICS TO VERIFY E COUNTING
     4649   01 021DA    0C3400BC A   FAL52    MODULE
     4650   01 021DB    1DC02970              FAL,12   MEMORY
     4651   01 021DC    00001113              DATA     LOC
     4652   01 021DD    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4653   01 021DE    A49FFFFF A            DATA     X'A49FFFFF',X'A4800000'
            01 021DF    A4800000 A
     4654   01 021E0    97FFFFFF A            DATA     X'97FFFFFF'
     4655   01 021E1    97FFFFFF A            DATA     X'97FFFFFF'
     4656   01 021E2    FFFFFFFF A            DATA     -1,0,-2,-2
            01 021E3    00000000 A
            01 021E4    FFFFFFFE A
            01 021E5    FFFFFFFE A
     4657                            * FAL CASE
     4658   01 021E6    0C3500BD A   FAL53    MODULE
     4659   01 021E7    1DC02970              FAL,12   MEMORY
     4660   01 021E8    00001113              DATA     LOC
     4661   01 021E9    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4662   01 021EA    97AFFFFF A            DATA     X'97AFFFFF',X'97900000'
            01 021EB    97900000 A
     4663   01 021EC    8AFFFFFF A            DATA     X'8AFFFFFF'
     4664   01 021ED    8AFFFFFF A            DATA     X'8AFFFFFF'
     4665   01 021EE    FFFFFFFF A            DATA     -1,0,-2,-2
            01 021EF    00000000 A
            01 021F0    FFFFFFFE A
            01 021F1    FFFFFFFE A
     4666                            * FAL CASE
     4667   01 021F2    0C3600BE A   FAL54    MODULE
     4668   01 021F3    1DC02970              FAL,12   MEMORY
     4669   01 021F4    00001113              DATA     LOC
     4670   01 021F5    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4671   01 021F6    8DBFFFFF A            DATA     X'8DBFFFFF',X'8DA00000'
            01 021F7    8DA00000 A
     4672   01 021F8    80FFFFFF A            DATA     X'80FFFFFF'
     4673   01 021F9    80FFFFFF A            DATA     X'80FFFFFF'
     4674   01 021FA    FFFFFFFF A            DATA     -1,0,-2,-2
            01 021FB    00000000 A
            01 021FC    FFFFFFFE A
            01 021FD    FFFFFFFE A
     4675   01 021FE    0C0100BF A   FAL55    MODULE   X'1D'             FAL
     4676   01 021FF    1DC0000C A            FAL,12   12
     4677   01 02200    00301113              K        0,0,3,LOC
     4678   01 02201    10301115              K        1,0,3,LOC+2
     4679   01 02202    BFAAAAAA A            DATA     X'BFAAAAAA'
     4680   01 02203    BF555555 A            DATA     X'BF555555'
     4681   01 02204    BFAAAAAA A            DATA     X'BFAAAAAA'
     4682   01 02205    BFAAAAAA A            DATA     X'BFAAAAAA'
     4683   01 02206    AAAAAAAA A            DATA     X'AAAAAAAA'
     4684   01 02207    55555554 A            DATA     X'55555554'
     4685   01 02208    AAAAAAAA A            DATA     X'AAAAAAAA'
     4686   01 02209    AAAAAAAA A            DATA     X'AAAAAAAA'
     4687   01 0220A    080100C0 A   FSS01    MODULE   X'3C'             FSS
     4688   01 0220B    3CC02970              FSS,12   MEMORY
     4689   01 0220C    00301113              K        0,0,3,LOC
     4690   01 0220D    20301115              K        2,0,3,LOC+2
     4691   01 0220E    4000FFFF A            DATA     X'4000FFFF'
     4692   01 0220F    3F100000 A            DATA     X'3F100000'
     4693   01 02210    BFFFFFFF A            DATA     X'BFFFFFFF'
     4694   01 02211    BFFFFFFF A            DATA     X'BFFFFFFF'
     4695                            * FSS CASE
     4696                            * GUARD DIGIT TEST.  ALSO INSURE  RU1 AND MEMORY+U ARE NOT AFFECTED
     4697   01 02212    0C0200C1 A   FSS02    MODULE
     4698   01 02213    3CC02970              FSS,12   MEMORY
     4699   01 02214    00001113              DATA     LOC
     4700   01 02215    A0001115              K        10,0,0,LOC+2
     4701   01 02216    40100002 A            DATA     X'40100002',X'3B210000',X'3FFFFFFF',X'3FFFFFFF'
            01 02217    3B210000 A
            01 02218    3FFFFFFF A
            01 02219    3FFFFFFF A
     4702   01 0221A    44444444 A            DATA     X'44444444',X'44444444',X'22222222',X'22222222'
            01 0221B    44444444 A
            01 0221C    22222222 A
            01 0221D    22222222 A
     4703                            * FSS CASE
     4704                            * GUARD DIGIT TEST
     4705   01 0221E    080300C2 A   FSS03    MODULE
     4706   01 0221F    3CC02970              FSS,12   MEMORY
     4707   01 02220    00001113              DATA     LOC
     4708   01 02221    20001115              K        2,0,0,LOC+2
     4709   01 02222    20100002 A            DATA     X'20100002'                                       *G00
     4710   01 02223    1FF0002E A            DATA     X'1FF0002E'       EXPECTED RESULT                 *G00
     4711   01 02224    1EFFFF2F A            DATA     X'1EFFFF2F'                                       *G00
     4712   01 02225    1EFFFF2F A            DATA     X'1EFFFF2F'                                       *G00
     4713                            * FSS CASE
     4714                            * GUARD DIGIT TEST.  USE RU1 AND MEMORY+1.  SIGMA 5 - MOVE
     4715   01 02226    0C0400C3 A   FSS04    MODULE
     4716   01 02227    3CD02971              FSS,13   MEMORY+1
     4717   01 02228    00001113              DATA     LOC
     4718   01 02229    20001115              K        2,0,0,LOC+2
     4719   01 0222A    00000000 A            DATA     0,0,0,0           R AND MEMORY
            01 0222B    00000000 A
            01 0222C    00000000 A
            01 0222D    00000000 A
     4720   01 0222E    5F234567 A            DATA     X'5F234567',X'5F134567',X'60010000',X'60010000'
            01 0222F    5F134567 A
            01 02230    60010000 A
            01 02231    60010000 A
     4721                            * FSS CASE
     4722                            * EW EXPONENT > R EXPONENT  BOTH NEGATIVE
     4723   01 02232    080500C4 A   FSS05    MODULE
     4724   01 02233    3CC02970              FSS,12   MEMORY
     4725   01 02234    00001113              DATA     LOC
     4726   01 02235    20001115              K        2,0,0,LOC+2
     4727   01 02236    DF231860 A            DATA     X'DF231860',X'21F01926'
            01 02237    21F01926 A
     4728   01 02238    DE021860 A            DATA     X'DE021860',X'DE021860'
            01 02239    DE021860 A
     4729                            * FSS CASE
     4730                            * EW EXPONENT < R EXPONENT   EW POS S R NEG
     4731   01 0223A    080600C5 A   FSS06    MODULE
     4732   01 0223B    3CC02970              FSS,12   MEMORY
     4733   01 0223C    00001113              DATA     LOC
     4734   01 0223D    10001115              K        1,0,0,LOC+2
     4735   01 0223E    B2604222 A            DATA     X'B2604222',X'B25A3E00'
            01 0223F    B25A3E00 A
     4736   01 02240    4C604222 A            DATA     X'4C604222',X'4C604222'
            01 02241    4C604222 A
     4737                            * FSS CASE
     4738                            * EW EXPONENT > R EXPONENT   EW POS S R NEG
     4739   01 02242    080700C6 A   FSS07    MODULE
     4740   01 02243    3CC02970              FSS,12   MEMORY
     4741   01 02244    00001113              DATA     LOC
     4742   01 02245    10001115              K        1,0,0,LOC+2
     4743   01 02246    CBAABBCC A            DATA     X'CBAABBCC',X'C9AA6689'
            01 02247    C9AA6689 A
     4744   01 02248    36554433 A            DATA     X'36554433',X'36554433'
            01 02249    36554433 A
     4745                            * FSS CASE
     4746                            *  -A + A WITH FN=1  TO CAUSE CC=0
     4747   01 0224A    080800C7 A   FSS08    MODULE
     4748   01 0224B    3CC02970              FSS,12   MEMORY
     4749   01 0224C    F7001113              K        15,7,0,LOC
     4750   01 0224D    07001115              K        0,7,0,LOC+2
     4751   01 0224E    04234567 A            DATA     X'04234567',0,X'04234567',X'04234567'
            01 0224F    00000000 A
            01 02250    04234567 A
            01 02251    04234567 A
     4752   01 02252    080900C8 A   FSS09    MODULE
     4753   01 02253    3CC02970              FSS,12   MEMORY
     4754   01 02254    01001113              K        0,1,0,LOC
     4755   01 02255    01001115              K        0,1,0,LOC+2
     4756   01 02256    41000001 A            DATA     X'41000001'
     4757   01 02257    00000000 A            DATA     X'0'
     4758   01 02258    40000001 A            DATA     X'40000001'
     4759   01 02259    40000001 A            DATA     X'40000001'
     4760   01 0225A    080A00C9 A   FSS10    MODULE
     4761   01 0225B    3CC02970              FSS,12   MEMORY
     4762   01 0225C    04001117              K        0,4,0,LOC+4
     4763   01 0225D    A4001016              K        10,4,0,EXP:TRAP
     4764   01 0225E    00000003 A            DATA     3
     4765   01 0225F    00000003 A            DATA     3
     4766   01 02260    00000001 A            DATA     1
     4767   01 02261    00000001 A            DATA     1
     4768   01 02262    080B00CA A   FSS11    MODULE
     4769   01 02263    3CC02970              FSS,12   MEMORY
     4770   01 02264    00001113              K        0,0,0,LOC
     4771   01 02265    C0001115              K        12,0,0,LOC+2
     4772   01 02266    00000003 A            DATA     3
     4773   01 02267    00000000 A            DATA     0
     4774   01 02268    00000001 A            DATA     1
     4775   01 02269    00000001 A            DATA     1
     4776   01 0226A    0C0100CB A   FSL01    MODULE   X'1C'             FSL
     4777   01 0226B    1CC02970              FSL,12   MEMORY
     4778   01 0226C    00301113              K        0,0,3,LOC
     4779   01 0226D    20301115              K        2,0,3,LOC+2
     4780   01 0226E    40FFFFFF A            DATA     X'40FFFFFF'
     4781   01 0226F    40FFFFFF A            DATA     X'40FFFFFF'
     4782   01 02270    40000000 A            DATA     X'40000000'
     4783   01 02271    40000000 A            DATA     X'40000000'
     4784   01 02272    FFFFFFFF A            DATA     X'FFFFFFFF'
     4785   01 02273    FFFFFFFE A            DATA     X'FFFFFFFE'
     4786   01 02274    00000001 A            DATA     X'1'
     4787   01 02275    00000001 A            DATA     X'1'
     4788   01 02276    0C0200CC A   FSL02    MODULE                     FSL
     4789   01 02277    1CC02970              FSL,12   MEMORY
     4790   01 02278    00301113              K        0,0,3,LOC
     4791   01 02279    A0301115              K        10,0,3,LOC+2
     4792   01 0227A    40000000 A            DATA     X'40000000'
     4793   01 0227B    33200000 A            DATA     X'33200000'
     4794   01 0227C    BFFFFFFF A            DATA     X'BFFFFFFF'
     4795   01 0227D    BFFFFFFF A            DATA     X'BFFFFFFF'
     4796   01 0227E    00000001 A            DATA     X'1'
     4797   01 0227F    00000000 A            DATA     X'0'
     4798   01 02280    FFFFFFFF A            DATA     X'FFFFFFFF'
     4799   01 02281    FFFFFFFF A            DATA     X'FFFFFFFF'
     4800                            * FSL CASE
     4801                            * TEST: SIGMA 5   ODD PR'S (.NA.ND), EVEN GENERATES (A.ND)
     4802   01 02282    0A0300CD A   FSL03    MODULE
     4803   01 02283    1CC02970              FSL,12   MEMORY
     4804   01 02284    00001113              DATA     LOC
     4805   01 02285    20001115              K        2,0,0,LOC+2
     4806   01 02286    01AAAAAA A            DATA     X'01AAAAAA',X'01AAAAAA',X'01000000',X'01000000'
            01 02287    01AAAAAA A
            01 02288    01000000 A
            01 02289    01000000 A
     4807   01 0228A    AAAAAAAA A            DATA     X'AAAAAAAA',X'AAAAAAAA'
            01 0228B    AAAAAAAA A
     4808                            * FSL CASE
     4809                            * TEST: SIGMA 5   EVEN PR'S (.NA.ND), ODD GENERATES (A.ND)
     4810   01 0228C    0A0400CE A   FSL04    MODULE
     4811   01 0228D    1CC02970              FSL,12   MEMORY
     4812   01 0228E    00001113              DATA     LOC
     4813   01 0228F    20001115              K        2,0,0,LOC+2
     4814   01 02290    02555555 A            DATA     X'02555555',X'02555555',X'02000000',X'02000000'
            01 02291    02555555 A
            01 02292    02000000 A
            01 02293    02000000 A
     4815   01 02294    55555555 A            DATA     X'55555555',X'55555555'
            01 02295    55555555 A
     4816                            * FSL CASE
     4817                            * TEST  SIGMA 5   ODD PR'S (A.D)
     4818   01 02296    0C0500CF A   FSL05    MODULE
     4819   01 02297    1CC02970              FSL,12   MEMORY
     4820   01 02298    F1001113              K        15,1,0,LOC
     4821   01 02299    01001115              K        0,1,0,LOC+2
     4822   01 0229A    04555555 A            DATA     X'04555555',0,X'04555555',X'04555555'
            01 0229B    00000000 A
            01 0229C    04555555 A
            01 0229D    04555555 A
     4823   01 0229E    55555555 A            DATA     X'55555555',0,X'55555555',X'55555555'
            01 0229F    00000000 A
            01 022A0    55555555 A
            01 022A1    55555555 A
     4824                            * FSL CASE
     4825                            * TEST  SIGMA 5   EVEN PR'S (A.D)
     4826   01 022A2    0C0600D0 A   FSL06    MODULE
     4827   01 022A3    1CC02970              FSL,12   MEMORY
     4828   01 022A4    F1001113              K        15,1,0,LOC
     4829   01 022A5    01001115              K        0,1,0,LOC+2
     4830   01 022A6    08AAAAAA A            DATA     X'08AAAAAA',0,X'08AAAAAA',X'08AAAAAA'
            01 022A7    00000000 A
            01 022A8    08AAAAAA A
            01 022A9    08AAAAAA A
     4831   01 022AA    AAAAAAAA A            DATA     X'AAAAAAAA',0,X'AAAAAAAA',X'AAAAAAAA'
            01 022AB    00000000 A
            01 022AC    AAAAAAAA A
            01 022AD    AAAAAAAA A
     4832                            * FSL CASE
     4833                            * TEST  SIGMA 5   K15 = K31.PR1631
     4834   01 022AE    080700D1 A   FSL07    MODULE
     4835   01 022AF    1CC02970              FSL,12   MEMORY
     4836   01 022B0    00001113              DATA     LOC
     4837   01 022B1    20001115              K        2,0,0,LOC+2
     4838   01 022B2    10242424 A            DATA     X'10242424',X'10121212',X'10121212',X'10121212'
            01 022B3    10121212 A
            01 022B4    10121212 A
            01 022B5    10121212 A
     4839                            * FSL CASE
     4840                            * A EXPONENT - D EXPONENT = 0
     4841   01 022B6    0C0800D2 A   FSL08    MODULE
     4842   01 022B7    1CC02970              FSL,12   MEMORY
     4843   01 022B8    00001113              DATA     LOC
     4844   01 022B9    10001115              K        1,0,0,LOC+2
     4845   01 022BA    D7000000 A            DATA     X'D7000000',X'D6E00000',X'28FFFFFF',X'28FFFFFF'
            01 022BB    D6E00000 A
            01 022BC    28FFFFFF A
            01 022BD    28FFFFFF A
     4846   01 022BE    00000003 A            DATA     3,1,-2,-2
            01 022BF    00000001 A
            01 022C0    FFFFFFFE A
            01 022C1    FFFFFFFE A
     4847                            * FSL CASE
     4848                            * EW EXPONENT > R EXPONENT  BOTH POSITIVE
     4849   01 022C2    0C0900D3 A   FSL09    MODULE
     4850   01 022C3    1CC02970              FSL,12   MEMORY
     4851   01 022C4    00001113              DATA     LOC
     4852   01 022C5    90001115              K        9,0,0,LOC+2       N<0  GREATER THAN 2 POSTNORMAL SHIFT
     4853   01 022C6    7A123456 A            DATA     X'7A123456',X'91F00000'
            01 022C7    91F00000 A
     4854   01 022C8    7B012345 A            DATA     X'7B012345',X'7B012345'
            01 022C9    7B012345 A
     4855   01 022CA    22244444 A            DATA     X'22244444',0
            01 022CB    00000000 A
     4856   01 022CC    62224445 A            DATA     X'62224445',X'62224445'
            01 022CD    62224445 A
     4857   01 022CE    080100D4 A   FMS01    MODULE   X'3F'             FMS R EVEN
     4858   01 022CF    3FC02970              FMS,12   MEMORY
     4859   01 022D0    05301113              K        0,5,3,LOC
     4860   01 022D1    15301115              K        1,5,3,LOC+2
     4861   01 022D2    46555555 A            DATA     X'46555555'
     4862   01 022D3    F5C71C72 A            DATA     X'F5C71C72'
     4863   01 022D4    FB555555 A            DATA     X'FB555555'
     4864   01 022D5    FB555555 A            DATA     X'FB555555'
     4865   01 022D6    080200D5 A   FMS02    MODULE                     FMS
     4866   01 022D7    3FC02970              FMS,12   MEMORY
     4867   01 022D8    05301113              K        0,5,3,LOC
     4868   01 022D9    15301115              K        1,5,3,LOC+2
     4869   01 022DA    08AAAAAA A            DATA     X'08AAAAAA'
     4870   01 022DB    F2C71C72 A            DATA     X'F2C71C72'
     4871   01 022DC    BAAAAAAA A            DATA     X'BAAAAAAA'
     4872   01 022DD    BAAAAAAA A            DATA     X'BAAAAAAA'
     4873   01 022DE    080300D6 A   FMS03    MODULE                     FMS
     4874   01 022DF    3FC02970              FMS,12   MEMORY
     4875   01 022E0    05301113              K        0,5,3,LOC
     4876   01 022E1    05301115              K        0,5,3,LOC+2
     4877   01 022E2    80000000 A            DATA     X'80000000'
     4878   01 022E3    00000000 A            DATA     X'0'
     4879   01 022E4    7F000000 A            DATA     X'7F000000'
     4880   01 022E5    7F000000 A            DATA     X'7F000000'
     4881   01 022E6    080400D7 A   FMS04    MODULE                     FMS       FEUF,FZ=0
     4882   01 022E7    3FC02970              FMS,12   MEMORY
     4883   01 022E8    05301113              K        0,5,3,LOC
     4884   01 022E9    C5301115              K        12,5,3,LOC+2
     4885   01 022EA    01100000 A            DATA     X'01100000'
     4886   01 022EB    00000000 A            DATA     X'0'
     4887   01 022EC    3F100000 A            DATA     X'3F100000'
     4888   01 022ED    3F100000 A            DATA     X'3F100000'
     4889   01 022EE    080500D8 A   FMS05    MODULE                     FMS
     4890   01 022EF    3FC02970              FMS,12   MEMORY
     4891   01 022F0    05301113              K        0,5,3,LOC
     4892   01 022F1    25301115              K        2,5,3,LOC+2
     4893   01 022F2    CFF00000 A            DATA     X'CFF00000'
     4894   01 022F3    1F100000 A            DATA     X'1F100000'
     4895   01 022F4    CFF00000 A            DATA     X'CFF00000'
     4896   01 022F5    CFF00000 A            DATA     X'CFF00000'
     4897   01 022F6    080600D9 A   FMS06    MODULE                     FMS       FEUF,FZ=1
     4898   01 022F7    3FC02970              FMS,12   MEMORY
     4899   01 022F8    07301117              K        0,7,3,LOC+4
     4900   01 022F9    E7301016              K        14,7,3,EXP:TRAP
     4901   01 022FA    3F100000 A            DATA     X'3F100000'
     4902   01 022FB    3F100000 A            DATA     X'3F100000'
     4903   01 022FC    01100000 A            DATA     X'01100000'
     4904   01 022FD    01100000 A            DATA     X'01100000'
     4905   01 022FE    080700DA A   FMS07    MODULE                     FMS       FEOF
     4906   01 022FF    3FC02970              FMS,12   MEMORY
     4907   01 02300    05301117              K        0,5,3,LOC+4
     4908   01 02301    65301016              K        6,5,3,EXP:TRAP
     4909   01 02302    61369AD0 A            DATA     X'61369AD0'
     4910   01 02303    61369AD0 A            DATA     X'61369AD0'
     4911   01 02304    60159027 A            DATA     X'60159027'
     4912   01 02305    60159027 A            DATA     X'60159027'
     4913   01 02306    080800DB A   FMS08    MODULE                     FMS
     4914   01 02307    3FC02970              FMS,12   MEMORY
     4915   01 02308    05301113              K        0,5,3,LOC
     4916   01 02309    25301115              K        2,5,3,LOC+2
     4917   01 0230A    61659CC1 A            DATA     X'61659CC1'
     4918   01 0230B    2D144963 A            DATA     X'2D144963'
     4919   01 0230C    0C331C1F A            DATA     X'0C331C1F'
     4920   01 0230D    0C331C1F A            DATA     X'0C331C1F'
     4921   01 0230E    080900DC A   FMS09    MODULE                     FMS
     4922   01 0230F    3FC02970              FMS,12   MEMORY
     4923   01 02310    05301113              K        0,5,3,LOC
     4924   01 02311    25301115              K        2,5,3,LOC+2
     4925   01 02312    C624A394 A            DATA     X'C624A394'
     4926   01 02313    352360E1 A            DATA     X'352360E1'
     4927   01 02314    C3D6B663 A            DATA     X'C3D6B663'
     4928   01 02315    C3D6B663 A            DATA     X'C3D6B663'
     4929   01 02316    0A0A00DD A   FMS10    MODULE                     FMS
     4930   01 02317    3FC02970              FMS,12   MEMORY
     4931   01 02318    05301113              K        0,5,3,LOC
     4932   01 02319    15301115              K        1,5,3,LOC+2
     4933   01 0231A    BCA5A5F3 A            DATA     X'BCA5A5F3'
     4934   01 0231B    F9A698DA A            DATA     X'F9A698DA'
     4935   01 0231C    03FD4FC7 A            DATA     X'03FD4FC7'
     4936   01 0231D    03FD4FC7 A            DATA     X'03FD4FC7'
     4937   01 0231E    C1C2C5D9 A            DATA     X'C1C2C5D9'   CHK IF NON ZERO DATA UNALTRD IN RU1
     4938   01 0231F    C1C2C5D9 A            DATA     X'C1C2C5D9'   CHK IF NON ZERO DATA UNALTRD IN RU1
     4939   01 02320    080B00DE A   FMS11    MODULE                     FMS
     4940   01 02321    3FC02970              FMS,12   MEMORY
     4941   01 02322    05301113              K        0,5,3,LOC
     4942   01 02323    25301115              K        2,5,3,LOC+2
     4943   01 02324    2C6E4866 A            DATA     X'2C6E4866'
     4944   01 02325    2D160489 A            DATA     X'2D160489'
     4945   01 02326    41331C1F A            DATA     X'41331C1F'
     4946   01 02327    41331C1F A            DATA     X'41331C1F'
     4947   01 02328    080C00DF A   FMS12    MODULE                     FMS
     4948   01 02329    3FC02970              FMS,12   MEMORY
     4949   01 0232A    05301113              K        0,5,3,LOC
     4950   01 0232B    25301115              K        2,5,3,LOC+2
     4951   01 0232C    57A63427 A            DATA     X'57A63427'
     4952   01 0232D    1A3C496D A            DATA     X'1A3C496D'
     4953   01 0232E    035CDBC7 A            DATA     X'035CDBC7'
     4954   01 0232F    035CDBC7 A            DATA     X'035CDBC7'
     4955   01 02330    080D00E0 A   FMS13    MODULE                     FMS
     4956   01 02331    3FC02970              FMS,12   MEMORY
     4957   01 02332    05301113              K        0,5,3,LOC
     4958   01 02333    25301115              K        2,5,3,LOC+2
     4959   01 02334    2878C1F3 A            DATA     X'2878C1F3'
     4960   01 02335    04296BD1 A            DATA     X'04296BD1'
     4961   01 02336    1C57CF8E A            DATA     X'1C57CF8E'
     4962   01 02337    1C57CF8E A            DATA     X'1C57CF8E'
     4963   01 02338    080E00E1 A   FMS14    MODULE                     FMS
     4964   01 02339    3FC02970              FMS,12   MEMORY
     4965   01 0233A    05301113              K        0,5,3,LOC
     4966   01 0233B    15301115              K        1,5,3,LOC+2
     4967   01 0233C    3F1301C0 A            DATA     X'3F1301C0'
     4968   01 0233D    D26EC41C A            DATA     X'D26EC41C'
     4969   01 0233E    D085BDE1 A            DATA     X'D085BDE1'
     4970   01 0233F    D085BDE1 A            DATA     X'D085BDE1'
     4971   01 02340    080F00E2 A   FMS15    MODULE                     FMS
     4972   01 02341    3FC02970              FMS,12   MEMORY
     4973   01 02342    05301113              K        0,5,3,LOC
     4974   01 02343    15301115              K        1,5,3,LOC+2
     4975   01 02344    1C3F1C73 A            DATA     X'1C3F1C73'
     4976   01 02345    F5E55810 A            DATA     X'F5E55810'
     4977   01 02346    D193DFCF A            DATA     X'D193DFCF'
     4978   01 02347    D193DFCF A            DATA     X'D193DFCF'
     4979   01 02348    081000E3 A   FMS16    MODULE                     FMS
     4980   01 02349    3FC02970              FMS,12   MEMORY
     4981   01 0234A    05301113              K        0,5,3,LOC
     4982   01 0234B    25301115              K        2,5,3,LOC+2
     4983   01 0234C    41659CC1 A            DATA     X'41659CC1'
     4984   01 0234D    0C294393 A            DATA     X'0C294393'
     4985   01 0234E    0B67F5A8 A            DATA     X'0B67F5A8'
     4986   01 0234F    0B67F5A8 A            DATA     X'0B67F5A8'
     4987   01 02350    081100E4 A   FMS17    MODULE                     FMS
     4988   01 02351    3FC02970              FMS,12   MEMORY
     4989   01 02352    05301113              K        0,5,3,LOC
     4990   01 02353    15301115              K        1,5,3,LOC+2
     4991   01 02354    CFCF7C1C A            DATA     X'CFCF7C1C'
     4992   01 02355    CEE0275E A            DATA     X'CEE0275E'
     4993   01 02356    41A80AFD A            DATA     X'41A80AFD'
     4994   01 02357    41A80AFD A            DATA     X'41A80AFD'
     4995   01 02358    081200E5 A   FMS18    MODULE                     FMS
     4996   01 02359    3FC02970              FMS,12   MEMORY
     4997   01 0235A    05301113              K        0,5,3,LOC
     4998   01 0235B    25301115              K        2,5,3,LOC+2
     4999   01 0235C    D256BCA9 A            DATA     X'D256BCA9'
     5000   01 0235D    3B917C3F A            DATA     X'3B917C3F'
     5001   01 0235E    B123F65A A            DATA     X'B123F65A'
     5002   01 0235F    B123F65A A            DATA     X'B123F65A'
     5003   01 02360    081300E6 A   FMS19    MODULE                     FMS
     5004   01 02361    3FC02970              FMS,12   MEMORY
     5005   01 02362    05301113              K        0,5,3,LOC
     5006   01 02363    25301115              K        2,5,3,LOC+2
     5007   01 02364    34284031 A            DATA     X'34284031'
     5008   01 02365    2BF04045 A            DATA     X'2BF04045'
     5009   01 02366    385F8073 A            DATA     X'385F8073'
     5010   01 02367    385F8073 A            DATA     X'385F8073'
     5011   01 02368    081400E7 A   FMS20    MODULE                     FMS
     5012   01 02369    3FC02970              FMS,12   MEMORY
     5013   01 0236A    05301113              K        0,5,3,LOC
     5014   01 0236B    15301115              K        1,5,3,LOC+2
     5015   01 0236C    AFA041E6 A            DATA     X'AFA041E6'
     5016   01 0236D    C2CAD2AB A            DATA     X'C2CAD2AB'
     5017   01 0236E    2D8E2FD4 A            DATA     X'2D8E2FD4'
     5018   01 0236F    2D8E2FD4 A            DATA     X'2D8E2FD4'
     5019   01 02370    0A1500E8 A   FMS21    MODULE                     FMS       R ODD
     5020   01 02371    3FD02970              FMS,13   MEMORY            FMS ODD R
     5021   01 02372    05301113              K        0,5,3,LOC
     5022   01 02373    15301115              K        1,5,3,LOC+2
     5023   01 02374    00000000 A            DATA     X'0'
     5024   01 02375    00000000 A            DATA     X'0'
     5025   01 02376    AD6950C1 A            DATA     X'AD6950C1'
     5026   01 02377    AD6950C1 A            DATA     X'AD6950C1'
     5027   01 02378    1A963D9E A            DATA     X'1A963D9E'
     5028   01 02379    D3A7910D A            DATA     X'D3A7910D'
     5029   01 0237A    0A1600E9 A   FMS22    MODULE                     FMS
     5030   01 0237B    3FD02970              FMS,13   MEMORY
     5031   01 0237C    05301113              K        0,5,3,LOC
     5032   01 0237D    25301115              K        2,5,3,LOC+2
     5033   01 0237E    00000000 A            DATA     X'0'
     5034   01 0237F    00000000 A            DATA     X'0'
     5035   01 02380    47630A6B A            DATA     X'47630A6B'
     5036   01 02381    47630A6B A            DATA     X'47630A6B'
     5037   01 02382    28741B96 A            DATA     X'28741B96'
     5038   01 02383    2F2CEB64 A            DATA     X'2F2CEB64'
     5039   01 02384    0A1700EA A   FMS23    MODULE                     FMS
     5040   01 02385    3FD02970              FMS,13   MEMORY
     5041   01 02386    05301113              K        0,5,3,LOC
     5042   01 02387    25301115              K        2,5,3,LOC+2
     5043   01 02388    00000000 A            DATA     X'0'
     5044   01 02389    00000000 A            DATA     X'0'
     5045   01 0238A    69A52CBD A            DATA     X'69A52CBD'
     5046   01 0238B    69A52CBD A            DATA     X'69A52CBD'
     5047   01 0238C    035216FB A            DATA     X'035216FB'
     5048   01 0238D    2C34F728 A            DATA     X'2C34F728'
     5049   01 0238E    0A1800EB A   FMS24    MODULE                     FMS
     5050   01 0238F    3FD02970              FMS,13   MEMORY
     5051   01 02390    05301113              K        0,5,3,LOC
     5052   01 02391    25301115              K        2,5,3,LOC+2
     5053   01 02392    00000000 A            DATA     X'0'
     5054   01 02393    00000000 A            DATA     X'0'
     5055   01 02394    43043218 A            DATA     X'43043218'
     5056   01 02395    43043218 A            DATA     X'43043218'
     5057   01 02396    2508753F A            DATA     X'2508753F'
     5058   01 02397    26237CAD A            DATA     X'26237CAD'
     5059   01 02398    0A1900EC A   FMS25    MODULE                     FMS
     5060   01 02399    3FD02970              FMS,13   MEMORY
     5061   01 0239A    05301113              K        0,5,3,LOC
     5062   01 0239B    25301115              K        2,5,3,LOC+2
     5063   01 0239C    00000000 A            DATA     X'0'
     5064   01 0239D    00000000 A            DATA     X'0'
     5065   01 0239E    4A1FEA60 A            DATA     X'4A1FEA60'
     5066   01 0239F    4A1FEA60 A            DATA     X'4A1FEA60'
     5067   01 023A0    2182FDD8 A            DATA     X'2182FDD8'
     5068   01 023A1    2B1054AA A            DATA     X'2B1054AA'
     5069   01 023A2    0A1A00ED A   FMS26    MODULE                     FMS
     5070   01 023A3    3FD02970              FMS,13   MEMORY
     5071   01 023A4    05301113              K        0,5,3,LOC
     5072   01 023A5    25301115              K        2,5,3,LOC+2
     5073   01 023A6    00000000 A            DATA     X'0'
     5074   01 023A7    00000000 A            DATA     X'0'
     5075   01 023A8    5A0DC619 A            DATA     X'5A0DC619'
     5076   01 023A9    5A0DC619 A            DATA     X'5A0DC619'
     5077   01 023AA    17DA99E6 A            DATA     X'17DA99E6'
     5078   01 023AB    30BC2F90 A            DATA     X'30BC2F90'
     5079   01 023AC    0A1B00EE A   FMS27    MODULE                     FMS
     5080   01 023AD    3FD02970              FMS,13   MEMORY
     5081   01 023AE    05301113              K        0,5,3,LOC
     5082   01 023AF    25301115              K        2,5,3,LOC+2
     5083   01 023B0    00000000 A            DATA     X'0'
     5084   01 023B1    00000000 A            DATA     X'0'
     5085   01 023B2    41A766B3 A            DATA     X'41A766B3'
     5086   01 023B3    41A766B3 A            DATA     X'41A766B3'
     5087   01 023B4    15B897C4 A            DATA     X'15B897C4'
     5088   01 023B5    1678B50E A            DATA     X'1678B50E'
     5089   01 023B6    0A1C00EF A   FMS28    MODULE                     FMS
     5090   01 023B7    3FD02970              FMS,13   MEMORY
     5091   01 023B8    05301113              K        0,5,3,LOC
     5092   01 023B9    C5301115              K        12,5,3,LOC+2
     5093   01 023BA    00000000 A            DATA     X'0'
     5094   01 023BB    00000000 A            DATA     X'0'
     5095   01 023BC    26C9BAD5 A            DATA     X'26C9BAD5'
     5096   01 023BD    26C9BAD5 A            DATA     X'26C9BAD5'
     5097   01 023BE    136AF5B2 A            DATA     X'136AF5B2'
     5098   01 023BF    00000000 A            DATA     X'0'
     5099   01 023C0    0A1D00F0 A   FMS29    MODULE                     FMS
     5100   01 023C1    3FD02970              FMS,13   MEMORY
     5101   01 023C2    05301113              K        0,5,3,LOC
     5102   01 023C3    15301115              K        1,5,3,LOC+2
     5103   01 023C4    00000000 A            DATA     X'0'
     5104   01 023C5    00000000 A            DATA     X'0'
     5105   01 023C6    51234034 A            DATA     X'51234034'
     5106   01 023C7    51234034 A            DATA     X'51234034'
     5107   01 023C8    F3578058 A            DATA     X'F3578058'
     5108   01 023C9    E2E8CC4A A            DATA     X'E2E8CC4A'
     5109   01 023CA    0A1E00F1 A   FMS30    MODULE                     FMS
     5110   01 023CB    3FD02970              FMS,13   MEMORY
     5111   01 023CC    05301113              K        0,5,3,LOC
     5112   01 023CD    15301115              K        1,5,3,LOC+2
     5113   01 023CE    00000000 A            DATA     X'0'
     5114   01 023CF    00000000 A            DATA     X'0'
     5115   01 023D0    06AEF1A4 A            DATA     X'06AEF1A4'
     5116   01 023D1    06AEF1A4 A            DATA     X'06AEF1A4'
     5117   01 023D2    C08DDF82 A            DATA     X'C08DDF82'
     5118   01 023D3    FAB20231 A            DATA     X'FAB20231'
     5119   01 023D4    0A1F00F2 A   FMS31    MODULE                     FMS
     5120   01 023D5    3FD02970              FMS,13   MEMORY
     5121   01 023D6    05301113              K        0,5,3,LOC
     5122   01 023D7    15301115              K        1,5,3,LOC+2
     5123   01 023D8    00000000 A            DATA     X'0'
     5124   01 023D9    00000000 A            DATA     X'0'
     5125   01 023DA    3D60D0A5 A            DATA     X'3D60D0A5'
     5126   01 023DB    3D60D0A5 A            DATA     X'3D60D0A5'
     5127   01 023DC    E699AD73 A            DATA     X'E699AD73'
     5128   01 023DD    E9D94DA7 A            DATA     X'E9D94DA7'
     5129   01 023DE    0A2000F3 A   FMS32    MODULE                     FMS
     5130   01 023DF    3FD02970              FMS,13   MEMORY
     5131   01 023E0    05301113              K        0,5,3,LOC
     5132   01 023E1    25301115              K        2,5,3,LOC+2
     5133   01 023E2    00000000 A            DATA     X'0'
     5134   01 023E3    00000000 A            DATA     X'0'
     5135   01 023E4    3B667A40 A            DATA     X'3B667A40'
     5136   01 023E5    3B667A40 A            DATA     X'3B667A40'
     5137   01 023E6    2C798B51 A            DATA     X'2C798B51'
     5138   01 023E7    2730A78D A            DATA     X'2730A78D'
     5139   01 023E8    0A2100F4 A   FMS33    MODULE                     FMS
     5140   01 023E9    3FD02970              FMS,13   MEMORY
     5141   01 023EA    05301113              K        0,5,3,LOC
     5142   01 023EB    25301115              K        2,5,3,LOC+2
     5143   01 023EC    00000000 A            DATA     X'0'
     5144   01 023ED    00000000 A            DATA     X'0'
     5145   01 023EE    5DAA9C62 A            DATA     X'5DAA9C62'
     5146   01 023EF    5DAA9C62 A            DATA     X'5DAA9C62'
     5147   01 023F0    2B5FA631 A            DATA     X'2B5FA631'
     5148   01 023F1    483FBECA A            DATA     X'483FBECA'
     5149   01 023F2    0A2200F5 A   FMS34    MODULE                     FMS
     5150   01 023F3    3FD02970              FMS,13   MEMORY
     5151   01 023F4    05301113              K        0,5,3,LOC
     5152   01 023F5    15301115              K        1,5,3,LOC+2
     5153   01 023F6    00000000 A            DATA     X'0'
     5154   01 023F7    00000000 A            DATA     X'0'
     5155   01 023F8    67F4A1EA A            DATA     X'67F4A1EA'
     5156   01 023F9    67F4A1EA A            DATA     X'67F4A1EA'
     5157   01 023FA    EDD28F48 A            DATA     X'EDD28F48'
     5158   01 023FB    C6D493D4 A            DATA     X'C6D493D4'
     5159   01 023FC    0A2300F6 A   FMS35    MODULE                     FMS
     5160   01 023FD    3FD02970              FMS,13   MEMORY
     5161   01 023FE    05301113              K        0,5,3,LOC
     5162   01 023FF    15301115              K        1,5,3,LOC+2
     5163   01 02400    00000000 A            DATA     X'0'
     5164   01 02401    00000000 A            DATA     X'0'
     5165   01 02402    9CD5A061 A            DATA     X'9CD5A061'
     5166   01 02403    9CD5A061 A            DATA     X'9CD5A061'
     5167   01 02404    09A37D9E A            DATA     X'09A37D9E'
     5168   01 02405    D3E4F053 A            DATA     X'D3E4F053'
     5169   01 02406    0A2400F7 A   FMS36    MODULE                     FMS
     5170   01 02407    3FD02970              FMS,13   MEMORY
     5171   01 02408    05301113              K        0,5,3,LOC
     5172   01 02409    25301115              K        2,5,3,LOC+2
     5173   01 0240A    00000000 A            DATA     X'0'
     5174   01 0240B    00000000 A            DATA     X'0'
     5175   01 0240C    36704AB6 A            DATA     X'36704AB6'
     5176   01 0240D    36704AB6 A            DATA     X'36704AB6'
     5177   01 0240E    29815B7C A            DATA     X'29815B7C'
     5178   01 0240F    1F38BDC6 A            DATA     X'1F38BDC6'
     5179   01 02410    0A2500F8 A   FMS37    MODULE                     FMS
     5180   01 02411    3FD02970              FMS,13   MEMORY
     5181   01 02412    05301113              K        0,5,3,LOC
     5182   01 02413    25301115              K        2,5,3,LOC+2
     5183   01 02414    00000000 A            DATA     X'0'
     5184   01 02415    00000000 A            DATA     X'0'
     5185   01 02416    5A962CAD A            DATA     X'5A962CAD'
     5186   01 02417    5A962CAD A            DATA     X'5A962CAD'
     5187   01 02418    1FA1365B A            DATA     X'1FA1365B'
     5188   01 02419    395E91FB A            DATA     X'395E91FB'
     5189   01 0241A    0A2600F9 A   FMS38    MODULE                     FMS
     5190   01 0241B    3FD02970              FMS,13   MEMORY
     5191   01 0241C    05301113              K        0,5,3,LOC
     5192   01 0241D    15301115              K        1,5,3,LOC+2
     5193   01 0241E    00000000 A            DATA     X'0'
     5194   01 0241F    00000000 A            DATA     X'0'
     5195   01 02420    5A5ACF3B A            DATA     X'5A5ACF3B'
     5196   01 02421    5A5ACF3B A            DATA     X'5A5ACF3B'
     5197   01 02422    FC7CF1CC A            DATA     X'FC7CF1CC'
     5198   01 02423    E2D182EC A            DATA     X'E2D182EC'
     5199   01 02424    0A2700FA A   FMS39    MODULE                     FMS
     5200   01 02425    3FD02970              FMS,13   MEMORY
     5201   01 02426    05301113              K        0,5,3,LOC
     5202   01 02427    15301115              K        1,5,3,LOC+2
     5203   01 02428    00000000 A            DATA     X'0'
     5204   01 02429    00000000 A            DATA     X'0'
     5205   01 0242A    283DB547 A            DATA     X'283DB547'
     5206   01 0242B    283DB547 A            DATA     X'283DB547'
     5207   01 0242C    E486C662 A            DATA     X'E486C662'
     5208   01 0242D    FCE2C76E A            DATA     X'FCE2C76E'
     5209   01 0242E    0A2800FB A   FMS40    MODULE                     FMS
     5210   01 0242F    3FD02970              FMS,13   MEMORY
     5211   01 02430    05301113              K        0,5,3,LOC
     5212   01 02431    25301115              K        2,5,3,LOC+2
     5213   01 02432    00000000 A            DATA     X'0'
     5214   01 02433    00000000 A            DATA     X'0'
     5215   01 02434    2F9D60D8 A            DATA     X'2F9D60D8'
     5216   01 02435    2F9D60D8 A            DATA     X'2F9D60D8'
     5217   01 02436    340982D9 A            DATA     X'340982D9'
     5218   01 02437    225D8D82 A            DATA     X'225D8D82'
     5219                            * FMS CASE CHECK S/G0003/1 IN SIGMA 7
     5220                            * IF THE ANSWER IS X'C0AAAAA4' THEN  AN E.O. FOR FRAME TWO OF THE
     5221                            *  SIGMA 7 CPU MAY NOT BE INSTALLED.  THERE SHOULD BE CONTIMUITY
     5222                            *  BETWEEN  10Q08 AND 16S09
     5223   01 02438    0A2900FC A   FMS41    MODULE
     5224   01 02439    3FD02970              FMS,13   MEMORY
     5225   01 0243A    00001113              DATA     LOC
     5226   01 0243B    10001115              K        1,0,0,LOC+2
     5227   01 0243C    00000000 A            DATA     0,0
            01 0243D    00000000 A
     5228   01 0243E    40100001 A            DATA     X'40100001',X'40100001'
            01 0243F    40100001 A
     5229   01 02440    BFAAAAAA A            DATA     X'BFAAAAAA',X'C0AAAAA5'
            01 02441    C0AAAAA5 A
     5230                            * A X 0   CAUSING  CC=0
     5231   01 02442    0C2A00FD A   FMS42    MODULE
     5232   01 02443    3FC02970              FMS,12   MEMORY
     5233   01 02444    F7001113              K        15,7,0,LOC
     5234   01 02445    07001115              K        0,7,0,LOC+2
     5235   01 02446    60216400 A            DATA     X'60216400',0,X'77000000',X'77000000'
            01 02447    00000000 A
            01 02448    77000000 A
            01 02449    77000000 A
     5236   01 0244A    FFFFFFFF A            DATA     -1,-1,-1,-1
            01 0244B    FFFFFFFF A
            01 0244C    FFFFFFFF A
            01 0244D    FFFFFFFF A
     5237   01 0244E    0C0100FE A   FML01    MODULE   X'1F'             FML
     5238   01 0244F    1FC02970              FML,12   MEMORY
     5239   01 02450    05301113              K        0,5,3,LOC
     5240   01 02451    25301115              K        2,5,3,LOC+2
     5241   01 02452    30555555 A            DATA     X'30555555'
     5242   01 02453    201C71C7 A            DATA     X'201C71C7'
     5243   01 02454    30555555 A            DATA     X'30555555'
     5244   01 02455    30555555 A            DATA     X'30555555'
     5245   01 02456    55555555 A            DATA     X'55555555'
     5246   01 02457    1C71C71C A            DATA     X'1C71C71C'
     5247   01 02458    55555555 A            DATA     X'55555555'
     5248   01 02459    55555555 A            DATA     X'55555555'
     5249   01 0245A    0C0200FF A   FML02    MODULE                     FML
     5250   01 0245B    1FC02970              FML,12   MEMORY
     5251   01 0245C    05301113              K        0,5,3,LOC
     5252   01 0245D    25301115              K        2,5,3,LOC+2
     5253   01 0245E    40AAAAAA A            DATA     X'40AAAAAA'
     5254   01 0245F    4071C71C A            DATA     X'4071C71C'
     5255   01 02460    40AAAAAA A            DATA     X'40AAAAAA'
     5256   01 02461    40AAAAAA A            DATA     X'40AAAAAA'
     5257   01 02462    AAAAAAAA A            DATA     X'AAAAAAAA'
     5258   01 02463    71C71C70 A            DATA     X'71C71C70'
     5259   01 02464    AAAAAAAA A            DATA     X'AAAAAAAA'
     5260   01 02465    AAAAAAAA A            DATA     X'AAAAAAAA'
     5261   01 02466    0C030100 A   FML03    MODULE                     FML
     5262   01 02467    1FC02970              FML,12   MEMORY
     5263   01 02468    05301113              K        0,5,3,LOC
     5264   01 02469    15301115              K        1,5,3,LOC+2
     5265   01 0246A    80FFFDAB A            DATA     X'80FFFDAB'
     5266   01 0246B    C4D2A542 A            DATA     X'C4D2A542'
     5267   01 0246C    00137B2A A            DATA     X'00137B2A'
     5268   01 0246D    00137B2A A            DATA     X'00137B2A'
     5269   01 0246E    FFFFFFFF A            DATA     X'FFFFFFFF'
     5270   01 0246F    2AEE8FC1 A            DATA     X'2AEE8FC1'
     5271   01 02470    059CEF26 A            DATA     X'059CEF26'
     5272   01 02471    059CEF26 A            DATA     X'059CEF26'
     5273   01 02472    0C040101 A   FML04    MODULE                     FML
     5274   01 02473    1FC02970              FML,12   MEMORY
     5275   01 02474    05301113              K        0,5,3,LOC
     5276   01 02475    15301115              K        1,5,3,LOC+2
     5277   01 02476    7FFFFFD8 A            DATA     X'7FFFFFD8'
     5278   01 02477    C0CF37C5 A            DATA     X'C0CF37C5'
     5279   01 02478    FFCF37BE A            DATA     X'FFCF37BE'
     5280   01 02479    FFCF37BE A            DATA     X'FFCF37BE'
     5281   01 0247A    00000000 A            DATA     X'00000000'
     5282   01 0247B    C5F88F7E A            DATA     X'C5F88F7E'
     5283   01 0247C    26AE4589 A            DATA     X'26AE4589'
     5284   01 0247D    26AE4589 A            DATA     X'26AE4589'
     5285   01 0247E    0C050102 A   FML05    MODULE                     FML
     5286   01 0247F    1FC02970              FML,12   MEMORY
     5287   01 02480    05301113              K        0,5,3,LOC
     5288   01 02481    25301115              K        2,5,3,LOC+2
     5289   01 02482    250007BE A            DATA     X'250007BE'
     5290   01 02483    08128785 A            DATA     X'08128785'
     5291   01 02484    26264A8E A            DATA     X'26264A8E'
     5292   01 02485    26264A8E A            DATA     X'26264A8E'
     5293   01 02486    148F26A0 A            DATA     X'148F26A0'
     5294   01 02487    07E34362 A            DATA     X'07E34362'
     5295   01 02488    C1F4286C A            DATA     X'C1F4286C'
     5296   01 02489    C1F4286C A            DATA     X'C1F4286C'
     5297   01 0248A    0C060103 A   FML06    MODULE                     FML
     5298   01 0248B    1FC02970              FML,12   MEMORY
     5299   01 0248C    05301113              K        0,5,3,LOC
     5300   01 0248D    05301115              K        0,5,3,LOC+2
     5301   01 0248E    7F000000 A            DATA     X'7F000000'
     5302   01 0248F    00000000 A            DATA     X'0'
     5303   01 02490    7FFFFFFF A            DATA     X'7FFFFFFF'
     5304   01 02491    7FFFFFFF A            DATA     X'7FFFFFFF'
     5305   01 02492    00000000 A            DATA     X'00000000'
     5306   01 02493    00000000 A            DATA     X'0'
     5307   01 02494    FFFFFFFF A            DATA     X'FFFFFFFF'
     5308   01 02495    FFFFFFFF A            DATA     X'FFFFFFFF'
     5309   01 02496    0C070104 A   FML07    MODULE                     FML
     5310   01 02497    1FC02970              FML,12   MEMORY
     5311   01 02498    05301113              K        0,5,3,LOC
     5312   01 02499    15301115              K        1,5,3,LOC+2
     5313   01 0249A    35027BF3 A            DATA     X'35027BF3'
     5314   01 0249B    CC782A03 A            DATA     X'CC782A03'
     5315   01 0249C    BFC951DA A            DATA     X'BFC951DA'
     5316   01 0249D    BFC951DA A            DATA     X'BFC951DA'
     5317   01 0249E    8C16DE45 A            DATA     X'8C16DE45'
     5318   01 0249F    798B132F A            DATA     X'798B132F'
     5319   01 024A0    62EB840A A            DATA     X'62EB840A'
     5320   01 024A1    62EB840A A            DATA     X'62EB840A'
     5321   01 024A2    0C080105 A   FML08    MODULE                     FML
     5322   01 024A3    1FC02970              FML,12   MEMORY
     5323   01 024A4    05301113              K        0,5,3,LOC
     5324   01 024A5    25301115              K        2,5,3,LOC+2
     5325   01 024A6    BFFFFFFF A            DATA     X'BFFFFFFF'
     5326   01 024A7    25100000 A            DATA     X'25100000'
     5327   01 024A8    BFFFFFFF A            DATA     X'BFFFFFFF'
     5328   01 024A9    BFFFFFFF A            DATA     X'BFFFFFFF'
     5329   01 024AA    FFFFFFFF A            DATA     X'FFFFFFFF'
     5330   01 024AB    00000000 A            DATA     X'0'
     5331   01 024AC    FFFFFFFF A            DATA     X'FFFFFFFF'
     5332   01 024AD    FFFFFFFF A            DATA     X'FFFFFFFF'
     5333   01 024AE    0C090106 A   FML09    MODULE                     FML
     5334   01 024AF    1FC02970              FML,12   MEMORY
     5335   01 024B0    05301113              K        0,5,3,LOC
     5336   01 024B1    25301115              K        2,5,3,LOC+2
     5337   01 024B2    40000000 A            DATA     X'40000000'
     5338   01 024B3    25100000 A            DATA     X'25100000'
     5339   01 024B4    40000000 A            DATA     X'40000000'
     5340   01 024B5    40000000 A            DATA     X'40000000'
     5341   01 024B6    00000001 A            DATA     X'00000001'
     5342   01 024B7    00000000 A            DATA     X'0'
     5343   01 024B8    00000001 A            DATA     X'00000001'
     5344   01 024B9    00000001 A            DATA     X'1'
     5345   01 024BA    0C0A0107 A   FML10    MODULE                     FML
     5346   01 024BB    1FC02970              FML,12   MEMORY
     5347   01 024BC    05301113              K        0,5,3,LOC
     5348   01 024BD    15301115              K        1,5,3,LOC+2
     5349   01 024BE    FC7CF1CC A            DATA     X'FC7CF1CC'
     5350   01 024BF    C5D399C0 A            DATA     X'C5D399C0'
     5351   01 024C0    7756BA80 A            DATA     X'7756BA80'
     5352   01 024C1    7756BA80 A            DATA     X'7756BA80'
     5353   01 024C2    80AA9FD4 A            DATA     X'80AA9FD4'
     5354   01 024C3    ACBFB2BA A            DATA     X'ACBFB2BA'
     5355   01 024C4    59C61C18 A            DATA     X'59C61C18'
     5356   01 024C5    59C61C18 A            DATA     X'59C61C18'
     5357   01 024C6    0C0B0108 A   FML11    MODULE                     FML
     5358   01 024C7    1FC02970              FML,12   MEMORY
     5359   01 024C8    05301113              K        0,5,3,LOC
     5360   01 024C9    15301115              K        1,5,3,LOC+2
     5361   01 024CA    F1C3C731 A            DATA     X'F1C3C731'
     5362   01 024CB    F4887E77 A            DATA     X'F4887E77'
     5363   01 024CC    3F01FC03 A            DATA     X'3F01FC03'
     5364   01 024CD    3F01FC03 A            DATA     X'3F01FC03'
     5365   01 024CE    7F56BA80 A            DATA     X'7F56BA80'
     5366   01 024CF    356A3FD1 A            DATA     X'356A3FD1'
     5367   01 024D0    70000000 A            DATA     X'70000000'
     5368   01 024D1    70000000 A            DATA     X'70000000'
     5369   01 024D2    0C0C0109 A   FML12    MODULE                     FML
     5370   01 024D3    1FC02970              FML,12   MEMORY
     5371   01 024D4    05301113              K        0,5,3,LOC
     5372   01 024D5    15301115              K        1,5,3,LOC+2
     5373   01 024D6    CDB53C70 A            DATA     X'CDB53C70'
     5374   01 024D7    DCC6D465 A            DATA     X'DCC6D465'
     5375   01 024D8    31C3C1F0 A            DATA     X'31C3C1F0'
     5376   01 024D9    31C3C1F0 A            DATA     X'31C3C1F0'
     5377   01 024DA    3DF91CF8 A            DATA     X'3DF91CF8'
     5378   01 024DB    B74535C0 A            DATA     X'B74535C0'
     5379   01 024DC    DF4F3C70 A            DATA     X'DF4F3C70'
     5380   01 024DD    DF4F3C70 A            DATA     X'DF4F3C70'
     5381   01 024DE    0C0D010A A   FML13    MODULE                     FML
     5382   01 024DF    1FC02970              FML,12   MEMORY
     5383   01 024E0    05301113              K        0,5,3,LOC
     5384   01 024E1    25301115              K        2,5,3,LOC+2
     5385   01 024E2    6DB6DB6D A            DATA     X'6DB6DB6D'
     5386   01 024E3    3E8D81C7 A            DATA     X'3E8D81C7'
     5387   01 024E4    11C61C18 A            DATA     X'11C61C18'
     5388   01 024E5    11C61C18 A            DATA     X'11C61C18'
     5389   01 024E6    5BD80E1D A            DATA     X'5BD80E1D'
     5390   01 024E7    BB1093F1 A            DATA     X'BB1093F1'
     5391   01 024E8    021871E7 A            DATA     X'021871E7'
     5392   01 024E9    021871E7 A            DATA     X'021871E7'
     5393   01 024EA    0C0E010B A   FML14    MODULE                     FML
     5394   01 024EB    1FC02970              FML,12   MEMORY
     5395   01 024EC    05301113              K        0,5,3,LOC
     5396   01 024ED    25301115              K        2,5,3,LOC+2
     5397   01 024EE    CD5B3C70 A            DATA     X'CD5B3C70'
     5398   01 024EF    10261D9E A            DATA     X'10261D9E'
     5399   01 024F0    E1C4C737 A            DATA     X'E1C4C737'
     5400   01 024F1    E1C4C737 A            DATA     X'E1C4C737'
     5401   01 024F2    7CF5C8E1 A            DATA     X'7CF5C8E1'
     5402   01 024F3    0D7BE104 A            DATA     X'0D7BE104'
     5403   01 024F4    42468ACE A            DATA     X'42468ACE'
     5404   01 024F5    42468ACE A            DATA     X'42468ACE'
     5405   01 024F6    0C0F010C A   FML15    MODULE                     FML
     5406   01 024F7    1FC02970              FML,12   MEMORY
     5407   01 024F8    05301113              K        0,5,3,LOC
     5408   01 024F9    25301115              K        2,5,3,LOC+2
     5409   01 024FA    50012345 A            DATA     X'50012345'
     5410   01 024FB    1389389C A            DATA     X'1389389C'
     5411   01 024FC    060789AB A            DATA     X'060789AB'
     5412   01 024FD    060789AB A            DATA     X'060789AB'
     5413   01 024FE    8C178F32 A            DATA     X'8C178F32'
     5414   01 024FF    6CA380D7 A            DATA     X'6CA380D7'
     5415   01 02500    258BCDEF A            DATA     X'258BCDEF'
     5416   01 02501    258BCDEF A            DATA     X'258BCDEF'
     5417   01 02502    0C10010D A   FML16    MODULE                     FML
     5418   01 02503    1FC02970              FML,12   MEMORY
     5419   01 02504    05301113              K        0,5,3,LOC
     5420   01 02505    15301115              K        1,5,3,LOC+2
     5421   01 02506    89ABCDEF A            DATA     X'89ABCDEF'
     5422   01 02507    C9E37DE2 A            DATA     X'C9E37DE2'
     5423   01 02508    0056AE37 A            DATA     X'0056AE37'
     5424   01 02509    0056AE37 A            DATA     X'0056AE37'
     5425   01 0250A    634AC271 A            DATA     X'634AC271'
     5426   01 0250B    0E7154D5 A            DATA     X'0E7154D5'
     5427   01 0250C    BF258BE1 A            DATA     X'BF258BE1'
     5428   01 0250D    BF258BE1 A            DATA     X'BF258BE1'
     5429   01 0250E    0C11010E A   FML17    MODULE                     FML
     5430   01 0250F    1FC02970              FML,12   MEMORY
     5431   01 02510    05301113              K        0,5,3,LOC
     5432   01 02511    25301115              K        2,5,3,LOC+2
     5433   01 02512    BF1357BD A            DATA     X'BF1357BD'
     5434   01 02513    02E98078 A            DATA     X'02E98078'
     5435   01 02514    FD0369CF A            DATA     X'FD0369CF'
     5436   01 02515    FD0369CF A            DATA     X'FD0369CF'
     5437   01 02516    E486C662 A            DATA     X'E486C662'
     5438   01 02517    16EF6C2A A            DATA     X'16EF6C2A'
     5439   01 02518    F147AD03 A            DATA     X'F147AD03'
     5440   01 02519    F147AD03 A            DATA     X'F147AD03'
     5441   01 0251A    0C12010F A   FML18    MODULE                     FML
     5442   01 0251B    1FC02970              FML,12   MEMORY
     5443   01 0251C    05301113              K        0,5,3,LOC
     5444   01 0251D    15301115              K        1,5,3,LOC+2
     5445   01 0251E    E2006AE3 A            DATA     X'E2006AE3'
     5446   01 0251F    C37446F3 A            DATA     X'C37446F3'
     5447   01 02520    61008BF3 A            DATA     X'61008BF3'
     5448   01 02521    61008BF3 A            DATA     X'61008BF3'
     5449   01 02522    5A5ACF3B A            DATA     X'5A5ACF3B'
     5450   01 02523    F3887D87 A            DATA     X'F3887D87'
     5451   01 02524    7B27C16B A            DATA     X'7B27C16B'
     5452   01 02525    7B27C16B A            DATA     X'7B27C16B'
     5453   01 02526    0C130110 A   FML19    MODULE                     FML
     5454   01 02527    1FC02970              FML,12   MEMORY
     5455   01 02528    05301113              K        0,5,3,LOC
     5456   01 02529    25301115              K        2,5,3,LOC+2
     5457   01 0252A    AF00049E A            DATA     X'AF00049E'
     5458   01 0252B    2DFFF6C1 A            DATA     X'2DFFF6C1'
     5459   01 0252C    E200049F A            DATA     X'E200049F'
     5460   01 0252D    E200049F A            DATA     X'E200049F'
     5461   01 0252E    F0259E49 A            DATA     X'F0259E49'
     5462   01 0252F    351390DA A            DATA     X'351390DA'
     5463   01 02530    F0259E49 A            DATA     X'F0259E49'
     5464   01 02531    F0259E49 A            DATA     X'F0259E49'
     5465   01 02532    0C140111 A   FML20    MODULE                     FML
     5466   01 02533    1FC02970              FML,12   MEMORY
     5467   01 02534    05301113              K        0,5,3,LOC
     5468   01 02535    15301115              K        1,5,3,LOC+2
     5469   01 02536    670000B2 A            DATA     X'670000B2'
     5470   01 02537    C84D293B A            DATA     X'C84D293B'
     5471   01 02538    EB0000AB A            DATA     X'EB0000AB'
     5472   01 02539    EB0000AB A            DATA     X'EB0000AB'
     5473   01 0253A    D73C2826 A            DATA     X'D73C2826'
     5474   01 0253B    EB0D2F6D A            DATA     X'EB0D2F6D'
     5475   01 0253C    E159F059 A            DATA     X'E159F059'
     5476   01 0253D    E159F059 A            DATA     X'E159F059'
     5477   01 0253E    0C150112 A   FML21    MODULE                     FML
     5478   01 0253F    1FC02970              FML,12   MEMORY
     5479   01 02540    05301113              K        0,5,3,LOC
     5480   01 02541    25301115              K        2,5,3,LOC+2
     5481   01 02542    10000006 A            DATA     X'10000006'
     5482   01 02543    1D1A6590 A            DATA     X'1D1A6590'
     5483   01 02544    57000003 A            DATA     X'57000003'
     5484   01 02545    57000003 A            DATA     X'57000003'
     5485   01 02546    F1A3C842 A            DATA     X'F1A3C842'
     5486   01 02547    C8B4C10E A            DATA     X'C8B4C10E'
     5487   01 02548    CD2A3C71 A            DATA     X'CD2A3C71'
     5488   01 02549    CD2A3C71 A            DATA     X'CD2A3C71'
     5489   01 0254A    0C160113 A   FML22    MODULE                     FML
     5490   01 0254B    1FC02970              FML,12   MEMORY
     5491   01 0254C    05301113              K        0,5,3,LOC
     5492   01 0254D    25301115              K        2,5,3,LOC+2
     5493   01 0254E    42000000 A            DATA     X'42000000'
     5494   01 0254F    3A10AF2B A            DATA     X'3A10AF2B'
     5495   01 02550    3E3AF92C A            DATA     X'3E3AF92C'
     5496   01 02551    3E3AF92C A            DATA     X'3E3AF92C'
     5497   01 02552    486CEA47 A            DATA     X'486CEA47'
     5498   01 02553    9841B130 A            DATA     X'9841B130'
     5499   01 02554    76B15038 A            DATA     X'76B15038'
     5500   01 02555    76B15038 A            DATA     X'76B15038'
     5501   01 02556    0C170114 A   FML23    MODULE                     FML
     5502   01 02557    1FC02970              FML,12   MEMORY
     5503   01 02558    05301113              K        0,5,3,LOC
     5504   01 02559    15301115              K        1,5,3,LOC+2
     5505   01 0255A    D2000000 A            DATA     X'D2000000'
     5506   01 0255B    E2A247F9 A            DATA     X'E2A247F9'
     5507   01 0255C    37000000 A            DATA     X'37000000'
     5508   01 0255D    37000000 A            DATA     X'37000000'
     5509   01 0255E    07C16D1F A            DATA     X'07C16D1F'
     5510   01 0255F    92D6D7DD A            DATA     X'92D6D7DD'
     5511   01 02560    05DB8067 A            DATA     X'05DB8067'
     5512   01 02561    05DB8067 A            DATA     X'05DB8067'
     5513   01 02562    0C180115 A   FML24    MODULE                     FML
     5514   01 02563    1FC02970              FML,12   MEMORY
     5515   01 02564    05301113              K        0,5,3,LOC
     5516   01 02565    25301115              K        2,5,3,LOC+2
     5517   01 02566    CB000000 A            DATA     X'CB000000'
     5518   01 02567    53FFFFFF A            DATA     X'53FFFFFF'
     5519   01 02568    A0000000 A            DATA     X'A0000000'
     5520   01 02569    A0000000 A            DATA     X'A0000000'
     5521   01 0256A    009191BB A            DATA     X'009191BB'
     5522   01 0256B    FE89075C A            DATA     X'FE89075C'
     5523   01 0256C    00E566E9 A            DATA     X'00E566E9'
     5524   01 0256D    00E566E9 A            DATA     X'00E566E9'
     5525   01 0256E    0C190116 A   FML25    MODULE                     FML
     5526   01 0256F    1FC02970              FML,12   MEMORY
     5527   01 02570    05301113              K        0,5,3,LOC
     5528   01 02571    15301115              K        1,5,3,LOC+2
     5529   01 02572    1F000000 A            DATA     X'1F000000'
     5530   01 02573    CCD1B200 A            DATA     X'CCD1B200'
     5531   01 02574    A2000000 A            DATA     X'A2000000'
     5532   01 02575    A2000000 A            DATA     X'A2000000'
     5533   01 02576    0002E4E0 A            DATA     X'0002E4E0'
     5534   01 02577    00025BB4 A            DATA     X'00025BB4'
     5535   01 02578    000D099D A            DATA     X'000D099D'
     5536   01 02579    000D099D A            DATA     X'000D099D'
     5537   01 0257A    0C1A0117 A   FML26    MODULE                     FML
     5538   01 0257B    1FC02970              FML,12   MEMORY
     5539   01 0257C    05301113              K        0,5,3,LOC
     5540   01 0257D    15301115              K        1,5,3,LOC+2
     5541   01 0257E    89000000 A            DATA     X'89000000'
     5542   01 0257F    BFC73000 A            DATA     X'BFC73000'
     5543   01 02580    14000000 A            DATA     X'14000000'
     5544   01 02581    14000000 A            DATA     X'14000000'
     5545   01 02582    0000438D A            DATA     X'0000438D'
     5546   01 02583    00000EFE A            DATA     X'00000EFE'
     5547   01 02584    000038D0 A            DATA     X'000038D0'
     5548   01 02585    000038D0 A            DATA     X'000038D0'
     5549   01 02586    0C1B0118 A   FML27    MODULE                     FML
     5550   01 02587    1FC02970              FML,12   MEMORY
     5551   01 02588    05301113              K        0,5,3,LOC
     5552   01 02589    25301115              K        2,5,3,LOC+2
     5553   01 0258A    6D000000 A            DATA     X'6D000000'
     5554   01 0258B    2D435D2C A            DATA     X'2D435D2C'
     5555   01 0258C    16000000 A            DATA     X'16000000'
     5556   01 0258D    16000000 A            DATA     X'16000000'
     5557   01 0258E    000009F2 A            DATA     X'000009F2'
     5558   01 0258F    00000000 A            DATA     X'0'
     5559   01 02590    000006C6 A            DATA     X'000006C6'
     5560   01 02591    000006C6 A            DATA     X'000006C6'
     5561   01 02592    0C1C0119 A   FML28    MODULE                     FML
     5562   01 02593    1FC02970              FML,12   MEMORY
     5563   01 02594    05301113              K        0,5,3,LOC
     5564   01 02595    25301115              K        2,5,3,LOC+2
     5565   01 02596    C6000000 A            DATA     X'C6000000'
     5566   01 02597    11FFFFFF A            DATA     X'11FFFFFF'
     5567   01 02598    E7000000 A            DATA     X'E7000000'
     5568   01 02599    E7000000 A            DATA     X'E7000000'
     5569   01 0259A    00000084 A            DATA     X'00000084'
     5570   01 0259B    FFFFFF37 A            DATA     X'FFFFFF37'
     5571   01 0259C    00000045 A            DATA     X'00000045'
     5572   01 0259D    00000045 A            DATA     X'00000045'
     5573   01 0259E    0C1D011A A   FML29    MODULE                     FML
     5574   01 0259F    1FC02970              FML,12   MEMORY
     5575   01 025A0    05301113              K        0,5,3,LOC
     5576   01 025A1    25301115              K        2,5,3,LOC+2
     5577   01 025A2    CC1FC7CF A            DATA     X'CC1FC7CF'
     5578   01 025A3    2E2EFCB9 A            DATA     X'2E2EFCB9'
     5579   01 025A4    C3FCA5A5 A            DATA     X'C3FCA5A5'
     5580   01 025A5    C3FCA5A5 A            DATA     X'C3FCA5A5'
     5581   01 025A6    B5631AF2 A            DATA     X'B5631AF2'
     5582   01 025A7    5B724390 A            DATA     X'5B724390'
     5583   01 025A8    7FFFFFFF A            DATA     X'7FFFFFFF'
     5584   01 025A9    7FFFFFFF A            DATA     X'7FFFFFFF'
     5585   01 025AA    0C1E011B A   FML30    MODULE                     FML
     5586   01 025AB    1FC02970              FML,12   MEMORY
     5587   01 025AC    05301113              K        0,5,3,LOC
     5588   01 025AD    25301115              K        2,5,3,LOC+2
     5589   01 025AE    DAC269A5 A            DATA     X'DAC269A5'
     5590   01 025AF    1D120522 A            DATA     X'1D120522'
     5591   01 025B0    C7B51894 A            DATA     X'C7B51894'
     5592   01 025B1    C7B51894 A            DATA     X'C7B51894'
     5593   01 025B2    E9D73A96 A            DATA     X'E9D73A96'
     5594   01 025B3    973A7B74 A            DATA     X'973A7B74'
     5595   01 025B4    6BA40763 A            DATA     X'6BA40763'
     5596   01 025B5    6BA40763 A            DATA     X'6BA40763'
     5597   01 025B6    0C1F011C A   FML31    MODULE                     FML
     5598   01 025B7    1FC02970              FML,12   MEMORY
     5599   01 025B8    05301113              K        0,5,3,LOC
     5600   01 025B9    25301115              K        2,5,3,LOC+2
     5601   01 025BA    160A59C9 A            DATA     X'160A59C9'
     5602   01 025BB    19A08D59 A            DATA     X'19A08D59'
     5603   01 025BC    44F82DDE A            DATA     X'44F82DDE'
     5604   01 025BD    44F82DDE A            DATA     X'44F82DDE'
     5605   01 025BE    136AF5B2 A            DATA     X'136AF5B2'
     5606   01 025BF    40E7DACC A            DATA     X'40E7DACC'
     5607   01 025C0    AE1A4FE0 A            DATA     X'AE1A4FE0'
     5608   01 025C1    AE1A4FE0 A            DATA     X'AE1A4FE0'
     5609   01 025C2    0C20011D A   FML32    MODULE                     FML
     5610   01 025C3    1FC02970              FML,12   MEMORY
     5611   01 025C4    05301113              K        0,5,3,LOC
     5612   01 025C5    25301115              K        2,5,3,LOC+2
     5613   01 025C6    26C9AAD5 A            DATA     X'26C9AAD5'
     5614   01 025C7    1C916A57 A            DATA     X'1C916A57'
     5615   01 025C8    36B897C4 A            DATA     X'36B897C4'
     5616   01 025C9    36B897C4 A            DATA     X'36B897C4'
     5617   01 025CA    37DA99E6 A            DATA     X'37DA99E6'
     5618   01 025CB    6E5ED9FE A            DATA     X'6E5ED9FE'
     5619   01 025CC    04A766B3 A            DATA     X'04A766B3'
     5620   01 025CD    04A766B3 A            DATA     X'04A766B3'
     5621   01 025CE    0C21011E A   FML33    MODULE                     FML
     5622   01 025CF    1FC02970              FML,12   MEMORY
     5623   01 025D0    05301113              K        0,5,3,LOC
     5624   01 025D1    25301115              K        2,5,3,LOC+2
     5625   01 025D2    5A0DC619 A            DATA     X'5A0DC619'
     5626   01 025D3    3995A829 A            DATA     X'3995A829'
     5627   01 025D4    20ADD84E A            DATA     X'20ADD84E'
     5628   01 025D5    20ADD84E A            DATA     X'20ADD84E'
     5629   01 025D6    8508753F A            DATA     X'8508753F'
     5630   01 025D7    AC7B7E0D A            DATA     X'AC7B7E0D'
     5631   01 025D8    4A1FEA60 A            DATA     X'4A1FEA60'
     5632   01 025D9    4A1FEA60 A            DATA     X'4A1FEA60'
     5633   01 025DA    0C22011F A   FML34    MODULE                     FML
     5634   01 025DB    1FC02970              FML,12   MEMORY
     5635   01 025DC    05301113              K        0,5,3,LOC
     5636   01 025DD    25301115              K        2,5,3,LOC+2
     5637   01 025DE    43043218 A            DATA     X'43043218'
     5638   01 025DF    2D191504 A            DATA     X'2D191504'
     5639   01 025E0    2B5FA631 A            DATA     X'2B5FA631'
     5640   01 025E1    2B5FA631 A            DATA     X'2B5FA631'
     5641   01 025E2    4C798B51 A            DATA     X'4C798B51'
     5642   01 025E3    F425B00C A            DATA     X'F425B00C'
     5643   01 025E4    5DAB9C62 A            DATA     X'5DAB9C62'
     5644   01 025E5    5DAB9C62 A            DATA     X'5DAB9C62'
     5645   01 025E6    0C230120 A   FML35    MODULE                     FML
     5646   01 025E7    1FC02970              FML,12   MEMORY
     5647   01 025E8    05301113              K        0,5,3,LOC
     5648   01 025E9    15301115              K        1,5,3,LOC+2
     5649   01 025EA    3B667A40 A            DATA     X'3B667A40'
     5650   01 025EB    EBD70A3E A            DATA     X'EBD70A3E'
     5651   01 025EC    E699AD73 A            DATA     X'E699AD73'
     5652   01 025ED    E699AD73 A            DATA     X'E699AD73'
     5653   01 025EE    E48DDF82 A            DATA     X'E48DDF82'
     5654   01 025EF    C5075379 A            DATA     X'C5075379'
     5655   01 025F0    916CD0A5 A            DATA     X'916CD0A5'
     5656   01 025F1    916CD0A5 A            DATA     X'916CD0A5'
     5657   01 025F2    0C240121 A   FML36    MODULE                     FML
     5658   01 025F3    1FC02970              FML,12   MEMORY
     5659   01 025F4    05301113              K        0,5,3,LOC
     5660   01 025F5    15301115              K        1,5,3,LOC+2
     5661   01 025F6    53AEF1A4 A            DATA     X'53AEF1A4'
     5662   01 025F7    E08CDA2F A            DATA     X'E08CDA2F'
     5663   01 025F8    F3578058 A            DATA     X'F3578058'
     5664   01 025F9    F3578058 A            DATA     X'F3578058'
     5665   01 025FA    BF6125A3 A            DATA     X'BF6125A3'
     5666   01 025FB    8B590B72 A            DATA     X'8B590B72'
     5667   01 025FC    81234034 A            DATA     X'81234034'
     5668   01 025FD    81234034 A            DATA     X'81234034'
     5669   01 025FE    0C250122 A   FML37    MODULE                     FML
     5670   01 025FF    1FC02970              FML,12   MEMORY
     5671   01 02600    05301113              K        0,5,3,LOC
     5672   01 02601    25301115              K        2,5,3,LOC+2
     5673   01 02602    DBC25A96 A            DATA     X'DBC25A96'
     5674   01 02603    1A12F4D2 A            DATA     X'1A12F4D2'
     5675   01 02604    C9B14785 A            DATA     X'C9B14785'
     5676   01 02605    C9B14785 A            DATA     X'C9B14785'
     5677   01 02606    E9D369A7 A            DATA     X'E9D369A7'
     5678   01 02607    5AC8D64E A            DATA     X'5AC8D64E'
     5679   01 02608    B6A03674 A            DATA     X'B6A03674'
     5680   01 02609    B6A03674 A            DATA     X'B6A03674'
     5681   01 0260A    0C260123 A   FML38    MODULE                     FML
     5682   01 0260B    1FC02970              FML,12   MEMORY
     5683   01 0260C    05301113              K        0,5,3,LOC
     5684   01 0260D    25301115              K        2,5,3,LOC+2
     5685   01 0260E    1C0596DA A            DATA     X'1C0596DA'
     5686   01 0260F    2854DAFB A            DATA     X'2854DAFB'
     5687   01 02610    4DF2E8D8 A            DATA     X'4DF2E8D8'
     5688   01 02611    4DF2E8D8 A            DATA     X'4DF2E8D8'
     5689   01 02612    3708F585 A            DATA     X'3708F585'
     5690   01 02613    777B86FD A            DATA     X'777B86FD'
     5691   01 02614    6E140AFA A            DATA     X'6E140AFA'
     5692   01 02615    6E140AFA A            DATA     X'6E140AFA'
     5693   01 02616    0C270124 A   FML39    MODULE                     FML
     5694   01 02617    1FC02970              FML,12   MEMORY
     5695   01 02618    05301113              K        0,5,3,LOC
     5696   01 02619    15301115              K        1,5,3,LOC+2
     5697   01 0261A    13048243 A            DATA     X'13048243'
     5698   01 0261B    D3D73197 A            DATA     X'D3D73197'
     5699   01 0261C    A56F321B A            DATA     X'A56F321B'
     5700   01 0261D    A56F321B A            DATA     X'A56F321B'
     5701   01 0261E    DFA08A94 A            DATA     X'DFA08A94'
     5702   01 0261F    C0ED95BC A            DATA     X'C0ED95BC'
     5703   01 02620    9ACB652D A            DATA     X'9ACB652D'
     5704   01 02621    9ACB652D A            DATA     X'9ACB652D'
     5705   01 02622    0C280125 A   FML40    MODULE                     FML
     5706   01 02623    1FC02970              FML,12   MEMORY
     5707   01 02624    05301113              K        0,5,3,LOC
     5708   01 02625    25301115              K        2,5,3,LOC+2
     5709   01 02626    1CC7FCFC A            DATA     X'1CC7FCFC'
     5710   01 02627    364A9399 A            DATA     X'364A9399'
     5711   01 02628    5A5F76B0 A            DATA     X'5A5F76B0'
     5712   01 02629    5A5F76B0 A            DATA     X'5A5F76B0'
     5713   01 0262A    37C1F3C1 A            DATA     X'37C1F3C1'
     5714   01 0262B    C95D07AA A            DATA     X'C95D07AA'
     5715   01 0262C    1CC95618 A            DATA     X'1CC95618'
     5716   01 0262D    1CC95618 A            DATA     X'1CC95618'
     5717                            **  FML 41 THROUGH 49 ARE SHOWN FIRST BECAUSE THEY ARE
     5718                            **  BASIC NUMBER PATTERNS THAT SHOULD BE EASILY TRACED
     5719                            **  VIA THE FLOATING POINT T-CHARTS
     5720   01 0262E    0A290126 A   FML41    MODULE
     5721   01 0262F    1FC02970              FML,12   MEMORY
     5722   01 02630    00001113              DATA     LOC
     5723   01 02631    20001115              GEN,4,28 2,LOC+2
     5724   01 02632    40100000 A            DATA     X'40100000',X'40100000'
            01 02633    40100000 A
     5725   01 02634    41100000 A            DATA     X'41100000',X'41100000'
            01 02635    41100000 A
     5726   01 02636    00000001 A            DATA     1,1
            01 02637    00000001 A
     5727   01 02638    0A2A0127 A   FML42    MODULE
     5728   01 02639    1FC02970              FML,12   MEMORY
     5729   01 0263A    00001113              DATA     LOC
     5730   01 0263B    20001115              GEN,4,28 2,LOC+2
     5731   01 0263C    40100000 A            DATA     X'40100000',X'40100000'
            01 0263D    40100000 A
     5732   01 0263E    41100000 A            DATA     X'41100000',X'41100000'
            01 0263F    41100000 A
     5733   01 02640    00000002 A            DATA     2,2
            01 02641    00000002 A
     5734   01 02642    0A2B0128 A   FML43    MODULE
     5735   01 02643    1FC02970              FML,12   MEMORY
     5736   01 02644    00001113              DATA     LOC
     5737   01 02645    20001115              GEN,4,28 2,LOC+2
     5738   01 02646    40100000 A            DATA     X'40100000',X'40100000'
            01 02647    40100000 A
     5739   01 02648    41100000 A            DATA     X'41100000',X'41100000'
            01 02649    41100000 A
     5740   01 0264A    00000003 A            DATA     3,3
            01 0264B    00000003 A
     5741   01 0264C    0A2C0129 A   FML44    MODULE
     5742   01 0264D    1FC02970              FML,12   MEMORY
     5743   01 0264E    00001113              DATA     LOC
     5744   01 0264F    20001115              GEN,4,28 2,LOC+2
     5745   01 02650    40100000 A            DATA     X'40100000',X'40100000'
            01 02651    40100000 A
     5746   01 02652    41100000 A            DATA     X'41100000',X'41100000'
            01 02653    41100000 A
     5747   01 02654    00000006 A            DATA     6,6
            01 02655    00000006 A
     5748   01 02656    0C2D012A A   FML45    MODULE
     5749   01 02657    1FC02970              FML,12   MEMORY
     5750   01 02658    00001113              DATA     LOC
     5751   01 02659    20001115              GEN,4,28 2,LOC+2
     5752   01 0265A    40100000 A            DATA     X'40100000',X'40F00000'
            01 0265B    40F00000 A
     5753   01 0265C    41EFFFFF A            DATA     X'41EFFFFF',X'41EFFFFF'
            01 0265D    41EFFFFF A
     5754   01 0265E    00000001 A            DATA     1,13,-1,-1
            01 0265F    0000000D A
            01 02660    FFFFFFFF A
            01 02661    FFFFFFFF A
     5755   01 02662    0C2E012B A   FML46    MODULE
     5756   01 02663    1FC02970              FML,12   MEMORY
     5757   01 02664    00001113              DATA     LOC
     5758   01 02665    20001115              GEN,4,28 2,LOC+2
     5759   01 02666    40100000 A            DATA     X'40100000',X'40F00000'
            01 02667    40F00000 A
     5760   01 02668    41EFFFFF A            DATA     X'41EFFFFF',X'41EFFFFF'
            01 02669    41EFFFFF A
     5761   01 0266A    00000002 A            DATA     2,28,-1,-1
            01 0266B    0000001C A
            01 0266C    FFFFFFFF A
            01 0266D    FFFFFFFF A
     5762   01 0266E    0C2F012C A   FML47    MODULE
     5763   01 0266F    1FC02970              FML,12   MEMORY
     5764   01 02670    00001113              DATA     LOC
     5765   01 02671    20001115              GEN,4,28 2,LOC+2
     5766   01 02672    40100000 A            DATA     X'40100000',X'40F00000'
            01 02673    40F00000 A
     5767   01 02674    41EFFFFF A            DATA     X'41EFFFFF',X'41EFFFFF'
            01 02675    41EFFFFF A
     5768   01 02676    00000003 A            DATA     3,43,-1,-1
            01 02677    0000002B A
            01 02678    FFFFFFFF A
            01 02679    FFFFFFFF A
     5769   01 0267A    0C30012D A   FML48    MODULE
     5770   01 0267B    1FC02970              FML,12   MEMORY
     5771   01 0267C    00001113              DATA     LOC
     5772   01 0267D    20001115              GEN,4,28 2,LOC+2
     5773   01 0267E    40100000 A            DATA     X'40100000',X'40F00000'
            01 0267F    40F00000 A
     5774   01 02680    41EFFFFF A            DATA     X'41EFFFFF',X'41EFFFFF'
            01 02681    41EFFFFF A
     5775   01 02682    00000006 A            DATA     6,88,-1,-1
            01 02683    00000058 A
            01 02684    FFFFFFFF A
            01 02685    FFFFFFFF A
     5776   01 02686    0831012E A   FML49    MODULE
     5777   01 02687    1FC02970              FML,12   MEMORY
     5778   01 02688    00001113              DATA     LOC
     5779   01 02689    20001115              GEN,4,28 2,LOC+2
     5780   01 0268A    BFF00000 A            DATA     X'BFF00000',X'3F100000'
            01 0268B    3F100000 A
     5781   01 0268C    BFF00000 A            DATA     X'BFF00000',X'BFF00000'
            01 0268D    BFF00000 A
     5782   01 0268E    0C32012F A   FML50    MODULE                     FML
     5783   01 0268F    1FC0000C A            FML,12   12
     5784   01 02690    05301113              K        0,5,3,LOC
     5785   01 02691    25301115              K        2,5,3,LOC+2
     5786   01 02692    40AAAAAA A            DATA     X'40AAAAAA'
     5787   01 02693    4071C71C A            DATA     X'4071C71C'
     5788   01 02694    40AAAAAA A            DATA     X'40AAAAAA'
     5789   01 02695    40AAAAAA A            DATA     X'40AAAAAA'
     5790   01 02696    AAAAAAAA A            DATA     X'AAAAAAAA'
     5791   01 02697    71C71C70 A            DATA     X'71C71C70'
     5792   01 02698    AAAAAAAA A            DATA     X'AAAAAAAA'
     5793   01 02699    AAAAAAAA A            DATA     X'AAAAAAAA'
     5794   01 0269A    0C330130 A   FML51    MODULE
     5795   01 0269B    1FC02970              FML,12   MEMORY
     5796   01 0269C    05301113              K        0,5,3,LOC
     5797   01 0269D    25301115              K        2,5,3,LOC+2
     5798   01 0269E    5441D408 A            DATA     X'5441D408'
     5799   01 0269F    67CD4EFF A            DATA     X'67CD4EFF'
     5800   01 026A0    5431E6D1 A            DATA     X'5431E6D1'
     5801   01 026A1    5431E6D1 A            DATA     X'5431E6D1'
     5802   01 026A2    09E13AD9 A            DATA     X'09E13AD9'
     5803   01 026A3    6ADE3F47 A            DATA     X'6ADE3F47'
     5804   01 026A4    B8938EE1 A            DATA     X'B8938EE1'
     5805   01 026A5    B8938EE1 A            DATA     X'B8938EE1'
     5806   01 026A6    08010131 A   FDS01    MODULE   X'3E'             FDS R EVEN
     5807   01 026A7    3EC02970              FDS,12   MEMORY
     5808   01 026A8    05301113              K        0,5,3,LOC
     5809   01 026A9    25301115              K        2,5,3,LOC+2
     5810   01 026AA    2B5FA631 A            DATA     X'2B5FA631'
     5811   01 026AB    4E8F854C A            DATA     X'4E8F854C'
     5812   01 026AC    1DAA9C62 A            DATA     X'1DAA9C62'
     5813   01 026AD    1DAA9C62 A            DATA     X'1DAA9C62'
     5814   01 026AE    08020132 A   FDS02    MODULE                     FDS
     5815   01 026AF    3EC02970              FDS,12   MEMORY
     5816   01 026B0    05301113              K        0,5,3,LOC
     5817   01 026B1    25301115              K        2,5,3,LOC+2
     5818   01 026B2    4C008B51 A            DATA     X'4C008B51'
     5819   01 026B3    52123BCF A            DATA     X'52123BCF'
     5820   01 026B4    3B007A40 A            DATA     X'3B007A40'
     5821   01 026B5    3B007A40 A            DATA     X'3B007A40'
     5822   01 026B6    08030133 A   FDS03    MODULE                     FDS
     5823   01 026B7    3EC02970              FDS,12   MEMORY
     5824   01 026B8    05301113              K        0,5,3,LOC
     5825   01 026B9    15301115              K        1,5,3,LOC+2
     5826   01 026BA    6E0000D7 A            DATA     X'6E0000D7'
     5827   01 026BB    B6E8C1BB A            DATA     X'B6E8C1BB'
     5828   01 026BC    99FFFF6C A            DATA     X'99FFFF6C'
     5829   01 026BD    99FFFF6C A            DATA     X'99FFFF6C'
     5830   01 026BE    08040134 A   FDS04    MODULE                     FDS
     5831   01 026BF    3EC02970              FDS,12   MEMORY
     5832   01 026C0    05301113              K        0,5,3,LOC
     5833   01 026C1    25301115              K        2,5,3,LOC+2
     5834   01 026C2    F1324034 A            DATA     X'F1324034'
     5835   01 026C3    341CD84F A            DATA     X'341CD84F'
     5836   01 026C4    E48DDF82 A            DATA     X'E48DDF82'
     5837   01 026C5    E48DDF82 A            DATA     X'E48DDF82'
     5838   01 026C6    08050135 A   FDS05    MODULE                     FDS
     5839   01 026C7    3EC02970              FDS,12   MEMORY
     5840   01 026C8    05301113              K        0,5,3,LOC
     5841   01 026C9    15301115              K        1,5,3,LOC+2
     5842   01 026CA    136AF5B2 A            DATA     X'136AF5B2'
     5843   01 026CB    B891CFBF A            DATA     X'B891CFBF'
     5844   01 026CC    F3078058 A            DATA     X'F3078058'
     5845   01 026CD    F3078058 A            DATA     X'F3078058'
     5846   01 026CE    08060136 A   FDS06    MODULE                     FDS
     5847   01 026CF    3EC02970              FDS,12   MEMORY
     5848   01 026D0    05301113              K        0,5,3,LOC
     5849   01 026D1    25301115              K        2,5,3,LOC+2
     5850   01 026D2    15B897C4 A            DATA     X'15B897C4'
     5851   01 026D3    5211A4A6 A            DATA     X'5211A4A6'
     5852   01 026D4    04A766B3 A            DATA     X'04A766B3'
     5853   01 026D5    04A766B3 A            DATA     X'04A766B3'
     5854   01 026D6    08070137 A   FDS07    MODULE                     FDS
     5855   01 026D7    3EC02970              FDS,12   MEMORY
     5856   01 026D8    05301113              K        0,5,3,LOC
     5857   01 026D9    25301115              K        2,5,3,LOC+2
     5858   01 026DA    37DA99E6 A            DATA     X'37DA99E6'
     5859   01 026DB    1EFDEEB0 A            DATA     X'1EFDEEB0'
     5860   01 026DC    5A0DC619 A            DATA     X'5A0DC619'
     5861   01 026DD    5A0DC619 A            DATA     X'5A0DC619'
     5862   01 026DE    08080138 A   FDS08    MODULE                     FDS
     5863   01 026DF    3EC02970              FDS,12   MEMORY
     5864   01 026E0    05301113              K        0,5,3,LOC
     5865   01 026E1    25301115              K        2,5,3,LOC+2
     5866   01 026E2    28FDD84E A            DATA     X'28FDD84E'
     5867   01 026E3    4F7F4226 A            DATA     X'4F7F4226'
     5868   01 026E4    1A1FEA60 A            DATA     X'1A1FEA60'
     5869   01 026E5    1A1FEA60 A            DATA     X'1A1FEA60'
     5870   01 026E6    08090139 A   FDS09    MODULE                     FDS
     5871   01 026E7    3EC02970              FDS,12   MEMORY
     5872   01 026E8    05301113              K        0,5,3,LOC
     5873   01 026E9    15301115              K        1,5,3,LOC+2
     5874   01 026EA    8508753F A            DATA     X'8508753F'
     5875   01 026EB    86E514A4 A            DATA     X'86E514A4'
     5876   01 026EC    43093218 A            DATA     X'43093218'
     5877   01 026ED    43093218 A            DATA     X'43093218'
     5878   01 026EE    080A013A A   FDS10    MODULE                     FDS
     5879   01 026EF    3EC02970              FDS,12   MEMORY
     5880   01 026F0    05301113              K        0,5,3,LOC
     5881   01 026F1    25301115              K        2,5,3,LOC+2
     5882   01 026F2    585F8073 A            DATA     X'585F8073'
     5883   01 026F3    6525F675 A            DATA     X'6525F675'
     5884   01 026F4    34284031 A            DATA     X'34284031'
     5885   01 026F5    34284031 A            DATA     X'34284031'
     5886   01 026F6    0C0B013B A   FDS11    MODULE                     FDS R ODD
     5887   01 026F7    3ED02971              FDS,13   MEMORY+1
     5888   01 026F8    05301113              K        0,5,3,LOC
     5889   01 026F9    15301115              K        1,5,3,LOC+2
     5890   01 026FA    00000000 A            DATA     X'0'
     5891   01 026FB    00000000 A            DATA     X'0'
     5892   01 026FC    00000000 A            DATA     X'0'
     5893   01 026FD    00000000 A            DATA     X'0'
     5894   01 026FE    4906BCA8 A            DATA     X'4906BCA8'
     5895   01 026FF    C470BA88 A            DATA     X'C470BA88'
     5896   01 02700    B1F3F65A A            DATA     X'B1F3F65A'
     5897   01 02701    B1F3F65A A            DATA     X'B1F3F65A'
     5898   01 02702    0C0C013C A   FDS12    MODULE                     FDS
     5899   01 02703    3ED02971              FDS,13   MEMORY+1
     5900   01 02704    05301113              K        0,5,3,LOC
     5901   01 02705    15301115              K        1,5,3,LOC+2
     5902   01 02706    00000000 A            DATA     X'0'
     5903   01 02707    00000000 A            DATA     X'0'
     5904   01 02708    00000000 A            DATA     X'0'
     5905   01 02709    00000000 A            DATA     X'0'
     5906   01 0270A    9CFFF53F A            DATA     X'9CFFF53F'
     5907   01 0270B    A50575DB A            DATA     X'A50575DB'
     5908   01 0270C    49000AFD A            DATA     X'49000AFD'
     5909   01 0270D    49000AFD A            DATA     X'49000AFD'
     5910   01 0270E    0C0D013D A   FDS13    MODULE                     FDS
     5911   01 0270F    3ED02971              FDS,13   MEMORY+1
     5912   01 02710    05301113              K        0,5,3,LOC
     5913   01 02711    25301115              K        2,5,3,LOC+2
     5914   01 02712    00000000 A            DATA     X'0'
     5915   01 02713    00000000 A            DATA     X'0'
     5916   01 02714    00000000 A            DATA     X'0'
     5917   01 02715    00000000 A            DATA     X'0'
     5918   01 02716    80FFFFF5 A            DATA     X'80FFFFF5'
     5919   01 02717    54160000 A            DATA     X'54160000'
     5920   01 02718    93FFFFF8 A            DATA     X'93FFFFF8'
     5921   01 02719    93FFFFF8 A            DATA     X'93FFFFF8'
     5922   01 0271A    0C0E013E A   FDS14    MODULE                     FDS
     5923   01 0271B    3ED02971              FDS,13   MEMORY+1
     5924   01 0271C    05301113              K        0,5,3,LOC
     5925   01 0271D    15301115              K        1,5,3,LOC+2
     5926   01 0271E    00000000 A            DATA     X'0'
     5927   01 0271F    00000000 A            DATA     X'0'
     5928   01 02720    00000000 A            DATA     X'0'
     5929   01 02721    00000000 A            DATA     X'0'
     5930   01 02722    AC67F6A8 A            DATA     X'AC67F6A8'
     5931   01 02723    83DCFE0F A            DATA     X'83DCFE0F'
     5932   01 02724    18457CC1 A            DATA     X'18457CC1'
     5933   01 02725    18457CC1 A            DATA     X'18457CC1'
     5934   01 02726    0C0F013F A   FDS15    MODULE                     FDS
     5935   01 02727    3ED02971              FDS,13   MEMORY+1
     5936   01 02728    05301113              K        0,5,3,LOC
     5937   01 02729    25301115              K        2,5,3,LOC+2
     5938   01 0272A    00000000 A            DATA     X'0'
     5939   01 0272B    00000000 A            DATA     X'0'
     5940   01 0272C    00000000 A            DATA     X'0'
     5941   01 0272D    00000000 A            DATA     X'0'
     5942   01 0272E    72963D9E A            DATA     X'72963D9E'
     5943   01 0272F    522C3ED1 A            DATA     X'522C3ED1'
     5944   01 02730    6136547A A            DATA     X'6136547A'
     5945   01 02731    6136547A A            DATA     X'6136547A'
     5946   01 02732    0C100140 A   FDS16    MODULE                     FDS
     5947   01 02733    3ED02971              FDS,13   MEMORY+1
     5948   01 02734    05301113              K        0,5,3,LOC
     5949   01 02735    25301115              K        2,5,3,LOC+2
     5950   01 02736    00000000 A            DATA     X'0'
     5951   01 02737    00000000 A            DATA     X'0'
     5952   01 02738    00000000 A            DATA     X'0'
     5953   01 02739    00000000 A            DATA     X'0'
     5954   01 0273A    8D8E2FD4 A            DATA     X'8D8E2FD4'
     5955   01 0273B    63130515 A            DATA     X'63130515'
     5956   01 0273C    AFA041E6 A            DATA     X'AFA041E6'
     5957   01 0273D    AFA041E6 A            DATA     X'AFA041E6'
     5958   01 0273E    0C110141 A   FDS17    MODULE                     FDS
     5959   01 0273F    3ED02971              FDS,13   MEMORY+1
     5960   01 02740    05301113              K        0,5,3,LOC
     5961   01 02741    25301115              K        2,5,3,LOC+2
     5962   01 02742    00000000 A            DATA     X'0'
     5963   01 02743    00000000 A            DATA     X'0'
     5964   01 02744    00000000 A            DATA     X'0'
     5965   01 02745    00000000 A            DATA     X'0'
     5966   01 02746    67284031 A            DATA     X'67284031'
     5967   01 02747    4F29F8D2 A            DATA     X'4F29F8D2'
     5968   01 02748    58F58073 A            DATA     X'58F58073'
     5969   01 02749    58F58073 A            DATA     X'58F58073'
     5970   01 0274A    0C120142 A   FDS18    MODULE                     FDS
     5971   01 0274B    3ED02971              FDS,13   MEMORY+1
     5972   01 0274C    05301113              K        0,5,3,LOC
     5973   01 0274D    25301115              K        2,5,3,LOC+2
     5974   01 0274E    00000000 A            DATA     X'0'
     5975   01 0274F    00000000 A            DATA     X'0'
     5976   01 02750    00000000 A            DATA     X'0'
     5977   01 02751    00000000 A            DATA     X'0'
     5978   01 02752    B132F65A A            DATA     X'B132F65A'
     5979   01 02753    6215442B A            DATA     X'6215442B'
     5980   01 02754    D265BCA9 A            DATA     X'D265BCA9'
     5981   01 02755    D265BCA9 A            DATA     X'D265BCA9'
     5982   01 02756    0C130143 A   FDS19    MODULE                     FDS
     5983   01 02757    3ED02971              FDS,13   MEMORY+1
     5984   01 02758    05301113              K        0,5,3,LOC
     5985   01 02759    15301115              K        1,5,3,LOC+2
     5986   01 0275A    00000000 A            DATA     X'0'
     5987   01 0275B    00000000 A            DATA     X'0'
     5988   01 0275C    00000000 A            DATA     X'0'
     5989   01 0275D    00000000 A            DATA     X'0'
     5990   01 0275E    49A80AFD A            DATA     X'49A80AFD'
     5991   01 0275F    A5C8949E A            DATA     X'A5C8949E'
     5992   01 02760    CFCF7C1C A            DATA     X'CFCF7C1C'
     5993   01 02761    CFCF7C1C A            DATA     X'CFCF7C1C'
     5994   01 02762    0C140144 A   FDS20    MODULE                     FDS
     5995   01 02763    3ED02971              FDS,13   MEMORY+1
     5996   01 02764    05301113              K        0,5,3,LOC
     5997   01 02765    15301115              K        1,5,3,LOC+2
     5998   01 02766    00000000 A            DATA     X'0'
     5999   01 02767    00000000 A            DATA     X'0'
     6000   01 02768    00000000 A            DATA     X'0'
     6001   01 02769    00000000 A            DATA     X'0'
     6002   01 0276A    81659CC1 A            DATA     X'81659CC1'
     6003   01 0276B    8BE83D24 A            DATA     X'8BE83D24'
     6004   01 0276C    4B67F5A8 A            DATA     X'4B67F5A8'
     6005   01 0276D    4B67F5A8 A            DATA     X'4B67F5A8'
     6006   01 0276E    08150145 A   FDS21    MODULE
     6007   01 0276F    3EC02970              FDS,12   MEMORY
     6008   01 02770    F7001113              K        15,7,0,LOC
     6009   01 02771    07001115              K        0,7,0,LOC+2
     6010   01 02772    17000000 A            DATA     X'17000000',0,X'35642100',X'35642100'
            01 02773    00000000 A
            01 02774    35642100 A
            01 02775    35642100 A
     6011   01 02776    08160146 A   FDS22    MODULE
     6012   01 02777    3EC02970              FDS,12   MEMORY
     6013   01 02778    02001117              K        0,2,0,LOC+4
     6014   01 02779    E2001016              K        14,2,0,EXP:TRAP
     6015   01 0277A    00000001 A            DATA     1
     6016   01 0277B    00000001 A            DATA     1
     6017   01 0277C    7F100000 A            DATA     X'7F100000'
     6018   01 0277D    7F100000 A            DATA     X'7F100000'
     6019   01 0277E    0C010147 A   FDL01    MODULE   X'1E'
     6020   01 0277F    1EC02970              FDL,12   MEMORY
     6021   01 02780    05301113              K        0,5,3,LOC
     6022   01 02781    25301115              K        2,5,3,LOC+2
     6023   01 02782    BBAAAAAA A            DATA     X'BBAAAAAA'
     6024   01 02783    62800000 A            DATA     X'62800000'
     6025   01 02784    DD555555 A            DATA     X'DD555555'
     6026   01 02785    DD555555 A            DATA     X'DD555555'
     6027   01 02786    AAAAAAAA A            DATA     X'AAAAAAAA'
     6028   01 02787    00000000 A            DATA     0                 EXPECTED RESULT (R13)           *G00
     6029   01 02788    55555555 A            DATA     X'55555555'
     6030   01 02789    55555555 A            DATA     X'55555555'
     6031   01 0278A    0C020148 A   FDL02    MODULE                     FDL
     6032   01 0278B    1EC02970              FDL,12   MEMORY
     6033   01 0278C    05301113              K        0,5,3,LOC
     6034   01 0278D    25301115              K        2,5,3,LOC+2
     6035   01 0278E    10555555 A            DATA     X'10555555'
     6036   01 0278F    4D800000 A            DATA     X'4D800000'
     6037   01 02790    03AAAAAA A            DATA     X'03AAAAAA'
     6038   01 02791    03AAAAAA A            DATA     X'03AAAAAA'
     6039   01 02792    55555555 A            DATA     X'55555555'
     6040   01 02793    00000000 A            DATA     X'0'
     6041   01 02794    AAAAAAAA A            DATA     X'AAAAAAAA'
     6042   01 02795    AAAAAAAA A            DATA     X'AAAAAAAA'
     6043   01 02796    0C030149 A   FDL03    MODULE                     FDL
     6044   01 02797    1EC02970              FDL,12   MEMORY
     6045   01 02798    05301113              K        0,5,3,LOC
     6046   01 02799    25301115              K        2,5,3,LOC+2
     6047   01 0279A    66AAAAAA A            DATA     X'66AAAAAA'
     6048   01 0279B    74200000 A            DATA     X'74200000'
     6049   01 0279C    33555555 A            DATA     X'33555555'
     6050   01 0279D    33555555 A            DATA     X'33555555'
     6051   01 0279E    AAAAAAAA A            DATA     X'AAAAAAAA'
     6052   01 0279F    00000000 A            DATA     X'0'
     6053   01 027A0    55555555 A            DATA     X'55555555'
     6054   01 027A1    55555555 A            DATA     X'55555555'
     6055   01 027A2    0C04014A A   FDL04    MODULE                     FDL
     6056   01 027A3    1EC02970              FDL,12   MEMORY
     6057   01 027A4    05301113              K        0,5,3,LOC
     6058   01 027A5    25301115              K        2,5,3,LOC+2
     6059   01 027A6    EE555555 A            DATA     X'EE555555'
     6060   01 027A7    2E1FFFFF A            DATA     X'2E1FFFFF'
     6061   01 027A8    DBAAAAAA A            DATA     X'DBAAAAAA'
     6062   01 027A9    DBAAAAAA A            DATA     X'DBAAAAAA'
     6063   01 027AA    55555555 A            DATA     X'55555555'
     6064   01 027AB    FFFFFFFF A            DATA     X'FFFFFFFF'
     6065   01 027AC    AAAAAAAA A            DATA     X'AAAAAAAA'
     6066   01 027AD    AAAAAAAA A            DATA     X'AAAAAAAA'
     6067   01 027AE    0C05014B A   FDL05    MODULE                     FDL
     6068   01 027AF    1EC02970              FDL,12   MEMORY
     6069   01 027B0    05301113              K        0,5,3,LOC
     6070   01 027B1    05301115              K        0,5,3,LOC+2
     6071   01 027B2    20000000 A            DATA     X'20000000'
     6072   01 027B3    00000000 A            DATA     X'0'
     6073   01 027B4    436BD23B A            DATA     X'436BD23B'
     6074   01 027B5    436BD23B A            DATA     X'436BD23B'
     6075   01 027B6    00000000 A            DATA     X'00000000'
     6076   01 027B7    00000000 A            DATA     X'0'
     6077   01 027B8    6869210F A            DATA     X'6869210F'
     6078   01 027B9    6869210F A            DATA     X'6869210F'
     6079   01 027BA    0A06014C A   FDL06    MODULE                     FDL      DIVISOR IS 0, TRAP
     6080   01 027BB    1EC02970              FDL,12   MEMORY
     6081   01 027BC    05301117              K        0,5,3,LOC+4
     6082   01 027BD    45301016              K        4,5,3,EXP:TRAP
     6083   01 027BE    1F501355 A            DATA     X'1F501355'
     6084   01 027BF    1F501355 A            DATA     X'1F501355'
     6085   01 027C0    10000000 A            DATA     X'10000000'
     6086   01 027C1    10000000 A            DATA     X'10000000'
     6087   01 027C2    9960101A A            DATA     X'9960101A'
     6088   01 027C3    9960101A A            DATA     X'9960101A'
     6089   01 027C4    0C07014D A   FDL07    MODULE                     FDL
     6090   01 027C5    1EC02970              FDL,12   MEMORY
     6091   01 027C6    05301113              K        0,5,3,LOC
     6092   01 027C7    15301115              K        1,5,3,LOC+2
     6093   01 027C8    30100000 A            DATA     X'30100000'
     6094   01 027C9    AFB50001 A            DATA     X'AFB50001'
     6095   01 027CA    DFC962FB A            DATA     X'DFC962FB'
     6096   01 027CB    DFC962FB A            DATA     X'DFC962FB'
     6097   01 027CC    00000000 A            DATA     X'00000000'
     6098   01 027CD    8A99A95E A            DATA     X'8A99A95E'
     6099   01 027CE    76D8F280 A            DATA     X'76D8F280'
     6100   01 027CF    76D8F280 A            DATA     X'76D8F280'
     6101   01 027D0    0A08014E A   FDL08    MODULE                     FDL
     6102   01 027D1    1EC02970              FDL,12   MEMORY
     6103   01 027D2    05301113              K        0,5,3,LOC
     6104   01 027D3    25301115              K        2,5,3,LOC+2
     6105   01 027D4    36361BA7 A            DATA     X'36361BA7'
     6106   01 027D5    6F361BA7 A            DATA     X'6F361BA7'
     6107   01 027D6    08100000 A            DATA     X'08100000'
     6108   01 027D7    08100000 A            DATA     X'08100000'
     6109   01 027D8    6568A665 A            DATA     X'6568A665'
     6110   01 027D9    6568A665 A            DATA     X'6568A665'
     6111   01 027DA    0C09014F A   FDL09    MODULE                     FDL - FEUF - FZ=0
     6112   01 027DB    1EC02970              FDL,12   MEMORY
     6113   01 027DC    05301113              K        0,5,3,LOC
     6114   01 027DD    C5301115              K        12,5,3,LOC+2
     6115   01 027DE    1059AE26 A            DATA     X'1059AE26'
     6116   01 027DF    00000000 A            DATA     X'0'
     6117   01 027E0    5527C16B A            DATA     X'5527C16B'
     6118   01 027E1    5527C16B A            DATA     X'5527C16B'
     6119   01 027E2    C16B05AF A            DATA     X'C16B05AF'
     6120   01 027E3    00000000 A            DATA     X'0'
     6121   01 027E4    05B16C28 A            DATA     X'05B16C28'
     6122   01 027E5    05B16C28 A            DATA     X'05B16C28'
     6123   01 027E6    0C0A0150 A   FDL10    MODULE                     FDL - FEUF - FZ=1
     6124   01 027E7    1EC02970              FDL,12   MEMORY
     6125   01 027E8    07301117              K        0,7,3,LOC+4
     6126   01 027E9    E7301016              K        14,7,3,EXP:TRAP
     6127   01 027EA    1059AE26 A            DATA     X'1059AE26'
     6128   01 027EB    1059AE26 A            DATA     X'1059AE26'
     6129   01 027EC    5527C16B A            DATA     X'5527C16B'
     6130   01 027ED    5527C16B A            DATA     X'5527C16B'
     6131   01 027EE    C16B05AF A            DATA     X'C16B05AF'
     6132   01 027EF    C16B05AF A            DATA     X'C16B05AF'
     6133   01 027F0    05B16C28 A            DATA     X'05B16C28'
     6134   01 027F1    05B16C28 A            DATA     X'05B16C28'
     6135   01 027F2    0C0B0151 A   FDL11    MODULE                     FDL - FEOF
     6136   01 027F3    1EC02970              FDL,12   MEMORY
     6137   01 027F4    05301117              K        0,5,3,LOC+4
     6138   01 027F5    65301016              K        6,5,3,EXP:TRAP
     6139   01 027F6    7FA22676 A            DATA     X'7FA22676'
     6140   01 027F7    7FA22676 A            DATA     X'7FA22676'
     6141   01 027F8    3F212707 A            DATA     X'3F212707'
     6142   01 027F9    3F212707 A            DATA     X'3F212707'
     6143   01 027FA    C6C5116B A            DATA     X'C6C5116B'
     6144   01 027FB    C6C5116B A            DATA     X'C6C5116B'
     6145   01 027FC    92B682F0 A            DATA     X'92B682F0'
     6146   01 027FD    92B682F0 A            DATA     X'92B682F0'
     6147   01 027FE    080C0152 A   FDL12    MODULE                     FDL
     6148   01 027FF    1EC02970              FDL,12   MEMORY
     6149   01 02800    05301113              K        0,5,3,LOC
     6150   01 02801    25301115              K        2,5,3,LOC+2
     6151   01 02802    BFF00000 A            DATA     X'BFF00000'
     6152   01 02803    61100000 A            DATA     X'61100000'
     6153   01 02804    DFF00000 A            DATA     X'DFF00000'
     6154   01 02805    DFF00000 A            DATA     X'DFF00000'
     6155   01 02806    0C0D0153 A   FDL13    MODULE                     FDL
     6156   01 02807    1EC02970              FDL,12   MEMORY
     6157   01 02808    05301113              K        0,5,3,LOC
     6158   01 02809    15301115              K        1,5,3,LOC+2
     6159   01 0280A    258BE147 A            DATA     X'258BE147'
     6160   01 0280B    AC723AD0 A            DATA     X'AC723AD0'
     6161   01 0280C    ED0369CF A            DATA     X'ED0369CF'
     6162   01 0280D    ED0369CF A            DATA     X'ED0369CF'
     6163   01 0280E    56AE37BF A            DATA     X'56AE37BF'
     6164   01 0280F    1B02AF4F A            DATA     X'1B02AF4F'       EXPECTED RESULT (R13)           *G00
     6165   01 02810    DF1357BD A            DATA     X'DF1357BD'
     6166   01 02811    DF1357BD A            DATA     X'DF1357BD'
     6167   01 02812    0C0E0154 A   FDL14    MODULE                     FDL
     6168   01 02813    1EC02970              FDL,12   MEMORY
     6169   01 02814    05301113              K        0,5,3,LOC
     6170   01 02815    25301115              K        2,5,3,LOC+2
     6171   01 02816    E13579BD A            DATA     X'E13579BD'
     6172   01 02817    521178EE A            DATA     X'521178EE'
     6173   01 02818    F2468ACE A            DATA     X'F2468ACE'
     6174   01 02819    F2468ACE A            DATA     X'F2468ACE'
     6175   01 0281A    8147AD03 A            DATA     X'8147AD03'
     6176   01 0281B    BFD83D40 A            DATA     X'BFD83D40'
     6177   01 0281C    E26AE38D A            DATA     X'E26AE38D'
     6178   01 0281D    E26AE38D A            DATA     X'E26AE38D'
     6179   01 0281E    0C0F0155 A   FDL15    MODULE                     FDL
     6180   01 0281F    1EC02970              FDL,12   MEMORY
     6181   01 02820    05301113              K        0,5,3,LOC
     6182   01 02821    25301115              K        2,5,3,LOC+2
     6183   01 02822    27C16B05 A            DATA     X'27C16B05'
     6184   01 02823    54161CD6 A            DATA     X'54161CD6'
     6185   01 02824    148BF37B A            DATA     X'148BF37B'
     6186   01 02825    148BF37B A            DATA     X'148BF37B'
     6187   01 02826    F37BF49E A            DATA     X'F37BF49E'
     6188   01 02827    30CA4568 A            DATA     X'30CA4568'
     6189   01 02828    E26AF49F A            DATA     X'E26AF49F'
     6190   01 02829    E26AF49F A            DATA     X'E26AF49F'
     6191   01 0282A    0C100156 A   FDL16    MODULE                     FDL
     6192   01 0282B    1EC02970              FDL,12   MEMORY
     6193   01 0282C    05301113              K        0,5,3,LOC
     6194   01 0282D    25301115              K        2,5,3,LOC+2
     6195   01 0282E    F0259E49 A            DATA     X'F0259E49'
     6196   01 0282F    4C720151 A            DATA     X'4C720151'
     6197   01 02830    FBE159F0 A            DATA     X'FBE159F0'
     6198   01 02831    FBE159F0 A            DATA     X'FBE159F0'
     6199   01 02832    45AE739F A            DATA     X'45AE739F'
     6200   01 02833    2B87B0D3 A            DATA     X'2B87B0D3'
     6201   01 02834    28CE5BDF A            DATA     X'28CE5BDF'
     6202   01 02835    28CE5BDF A            DATA     X'28CE5BDF'
     6203   01 02836    0C110157 A   FDL17    MODULE                     FDL
     6204   01 02837    1EC02970              FDL,12   MEMORY
     6205   01 02838    05301113              K        0,5,3,LOC
     6206   01 02839    15301115              K        1,5,3,LOC+2
     6207   01 0283A    8ACE9FBD A            DATA     X'8ACE9FBD'
     6208   01 0283B    A43588CC A            DATA     X'A43588CC'
     6209   01 0283C    5A3E6E7F A            DATA     X'5A3E6E7F'
     6210   01 0283D    5A3E6E7F A            DATA     X'5A3E6E7F'
     6211   01 0283E    A13BF37D A            DATA     X'A13BF37D'
     6212   01 0283F    0C867B1A A            DATA     X'0C867B1A'
     6213   01 02840    28E45B17 A            DATA     X'28E45B17'
     6214   01 02841    28E45B17 A            DATA     X'28E45B17'
     6215   01 02842    0C120158 A   FDL18    MODULE                     FDL
     6216   01 02843    1EC02970              FDL,12   MEMORY
     6217   01 02844    05301113              K        0,5,3,LOC
     6218   01 02845    25301115              K        2,5,3,LOC+2
     6219   01 02846    A09CD39F A            DATA     X'A09CD39F'
     6220   01 02847    6EDB268E A            DATA     X'6EDB268E'
     6221   01 02848    CE8C26A8 A            DATA     X'CE8C26A8'
     6222   01 02849    CE8C26A8 A            DATA     X'CE8C26A8'
     6223   01 0284A    F4A017D3 A            DATA     X'F4A017D3'
     6224   01 0284B    2506D884 A            DATA     X'2506D884'       EXPECTED RESULT (R13)           *G00
     6225   01 0284C    F67B159D A            DATA     X'F67B159D'
     6226   01 0284D    F67B159D A            DATA     X'F67B159D'
     6227   01 0284E    0C130159 A   FDL19    MODULE                     FDL
     6228   01 0284F    1EC02970              FDL,12   MEMORY
     6229   01 02850    05301113              K        0,5,3,LOC
     6230   01 02851    15301115              K        1,5,3,LOC+2
     6231   01 02852    E6E28A3D A            DATA     X'E6E28A3D'
     6232   01 02853    AEE180BA A            DATA     X'AEE180BA'
     6233   01 02854    08F74B3B A            DATA     X'08F74B3B'
     6234   01 02855    08F74B3B A            DATA     X'08F74B3B'
     6235   01 02856    F7F93B4E A            DATA     X'F7F93B4E'
     6236   01 02857    DFB55D0A A            DATA     X'DFB55D0A'
     6237   01 02858    2C6071B5 A            DATA     X'2C6071B5'
     6238   01 02859    2C6071B5 A            DATA     X'2C6071B5'
     6239   01 0285A    0C14015A A   FDL20    MODULE                     FDL
     6240   01 0285B    1EC02970              FDL,12   MEMORY
     6241   01 0285C    05301113              K        0,5,3,LOC
     6242   01 0285D    15301115              K        1,5,3,LOC+2
     6243   01 0285E    47E95A3F A            DATA     X'47E95A3F'
     6244   01 0285F    8FEF2201 A            DATA     X'8FEF2201'
     6245   01 02860    E6F22A4F A            DATA     X'E6F22A4F'
     6246   01 02861    E6F22A4F A            DATA     X'E6F22A4F'
     6247   01 02862    690B7C52 A            DATA     X'690B7C52'
     6248   01 02863    29E60A24 A            DATA     X'29E60A24'
     6249   01 02864    F29405E9 A            DATA     X'F29405E9'
     6250   01 02865    F29405E9 A            DATA     X'F29405E9'
     6251   01 02866    0C15015B A   FDL21    MODULE                     FDL
     6252   01 02867    1EC02970              FDL,12   MEMORY
     6253   01 02868    05301113              K        0,5,3,LOC
     6254   01 02869    15301115              K        1,5,3,LOC+2
     6255   01 0286A    AE58B190 A            DATA     X'AE58B190'
     6256   01 0286B    9ACB16E1 A            DATA     X'9ACB16E1'
     6257   01 0286C    2D3297C8 A            DATA     X'2D3297C8'
     6258   01 0286D    2D3297C8 A            DATA     X'2D3297C8'
     6259   01 0286E    C237DAC1 A            DATA     X'C237DAC1'
     6260   01 0286F    33AC21AA A            DATA     X'33AC21AA'
     6261   01 02870    77532167 A            DATA     X'77532167'
     6262   01 02871    77532167 A            DATA     X'77532167'
     6263   01 02872    0C16015C A   FDL22    MODULE                     FDL
     6264   01 02873    1EC02970              FDL,12   MEMORY
     6265   01 02874    05301113              K        0,5,3,LOC
     6266   01 02875    25301115              K        2,5,3,LOC+2
     6267   01 02876    E0FC7F1C A            DATA     X'E0FC7F1C'
     6268   01 02877    59EF798F A            DATA     X'59EF798F'
     6269   01 02878    FAC41382 A            DATA     X'FAC41382'
     6270   01 02879    FAC41382 A            DATA     X'FAC41382'
     6271   01 0287A    253F7EA9 A            DATA     X'253F7EA9'
     6272   01 0287B    281A009F A            DATA     X'281A009F'
     6273   01 0287C    446E28CA A            DATA     X'446E28CA'
     6274   01 0287D    446E28CA A            DATA     X'446E28CA'
     6275   01 0287E    0C17015D A   FDL23    MODULE                     FDL
     6276   01 0287F    1EC02970              FDL,12   MEMORY
     6277   01 02880    05301113              K        0,5,3,LOC
     6278   01 02881    25301115              K        2,5,3,LOC+2
     6279   01 02882    67B5C610 A            DATA     X'67B5C610'
     6280   01 02883    6B199F3D A            DATA     X'6B199F3D'
     6281   01 02884    3D7182C6 A            DATA     X'3D7182C6'
     6282   01 02885    3D7182C6 A            DATA     X'3D7182C6'
     6283   01 02886    67B980C1 A            DATA     X'67B980C1'
     6284   01 02887    EDB9AF2A A            DATA     X'EDB9AF2A'
     6285   01 02888    135BDF7D A            DATA     X'135BDF7D'
     6286   01 02889    135BDF7D A            DATA     X'135BDF7D'
     6287   01 0288A    0C18015E A   FDL24    MODULE                     FDL
     6288   01 0288B    1EC02970              FDL,12   MEMORY
     6289   01 0288C    05301113              K        0,5,3,LOC
     6290   01 0288D    15301115              K        1,5,3,LOC+2
     6291   01 0288E    9BAE1B05 A            DATA     X'9BAE1B05'
     6292   01 0288F    80B015BC A            DATA     X'80B015BC'
     6293   01 02890    26106573 A            DATA     X'26106573'
     6294   01 02891    26106573 A            DATA     X'26106573'
     6295   01 02892    F1A3C842 A            DATA     X'F1A3C842'
     6296   01 02893    DDE7A4DB A            DATA     X'DDE7A4DB'       EXPECTED RESULT (R13)           *G00
     6297   01 02894    59D73C28 A            DATA     X'59D73C28'
     6298   01 02895    59D73C28 A            DATA     X'59D73C28'
     6299   01 02896    0C19015F A   FDL25    MODULE                     FDL
     6300   01 02897    1EC02970              FDL,12   MEMORY
     6301   01 02898    05301113              K        0,5,3,LOC
     6302   01 02899    15301115              K        1,5,3,LOC+2
     6303   01 0289A    42486CEA A            DATA     X'42486CEA'
     6304   01 0289B    AFA943B7 A            DATA     X'AFA943B7'
     6305   01 0289C    CD2A3C71 A            DATA     X'CD2A3C71'
     6306   01 0289D    CD2A3C71 A            DATA     X'CD2A3C71'
     6307   01 0289E    2C76B150 A            DATA     X'2C76B150'
     6308   01 0289F    1EDCF1EC A            DATA     X'1EDCF1EC'
     6309   01 028A0    FC7CF1CC A            DATA     X'FC7CF1CC'
     6310   01 028A1    FC7CF1CC A            DATA     X'FC7CF1CC'
     6311   01 028A2    0C1A0160 A   FDL26    MODULE                     FDL
     6312   01 028A3    1EC02970              FDL,12   MEMORY
     6313   01 028A4    05301113              K        0,5,3,LOC
     6314   01 028A5    15301115              K        1,5,3,LOC+2
     6315   01 028A6    475E3AF9 A            DATA     X'475E3AF9'
     6316   01 028A7    A587C421 A            DATA     X'A587C421'
     6317   01 028A8    D1F375DB A            DATA     X'D1F375DB'
     6318   01 028A9    D1F375DB A            DATA     X'D1F375DB'
     6319   01 028AA    FEDCBA98 A            DATA     X'FEDCBA98'
     6320   01 028AB    F09C1D54 A            DATA     X'F09C1D54'       EXPECTED RESULT (R13)           *G00
     6321   01 028AC    ECA86424 A            DATA     X'ECA86424'
     6322   01 028AD    ECA86424 A            DATA     X'ECA86424'
     6323   01 028AE    0C1B0161 A   FDL27    MODULE                     FDL
     6324   01 028AF    1EC02970              FDL,12   MEMORY
     6325   01 028B0    05301113              K        0,5,3,LOC
     6326   01 028B1    25301115              K        2,5,3,LOC+2
     6327   01 028B2    741EB852 A            DATA     X'741EB852'
     6328   01 028B3    5943D862 A            DATA     X'5943D862'
     6329   01 028B4    5B73EA65 A            DATA     X'5B73EA65'
     6330   01 028B5    5B73EA65 A            DATA     X'5B73EA65'
     6331   01 028B6    DB7531FD A            DATA     X'DB7531FD'
     6332   01 028B7    0A1757C5 A            DATA     X'0A1757C5'
     6333   01 028B8    FC9630DA A            DATA     X'FC9630DA'
     6334   01 028B9    FC9630DA A            DATA     X'FC9630DA'
     6335   01 028BA    0C1C0162 A   FDL28    MODULE                     FDL
     6336   01 028BB    1EC02970              FDL,12   MEMORY
     6337   01 028BC    05301113              K        0,5,3,LOC
     6338   01 028BD    25301115              K        2,5,3,LOC+2
     6339   01 028BE    DB97531E A            DATA     X'DB97531E'
     6340   01 028BF    52131DEC A            DATA     X'52131DEC'
     6341   01 028C0    ECA8642F A            DATA     X'ECA8642F'
     6342   01 028C1    ECA8642F A            DATA     X'ECA8642F'
     6343   01 028C2    50B61C72 A            DATA     X'50B61C72'
     6344   01 028C3    B48A4230 A            DATA     X'B48A4230'
     6345   01 028C4    D83EA62E A            DATA     X'D83EA62E'
     6346   01 028C5    D83EA62E A            DATA     X'D83EA62E'
     6347   01 028C6    0C1D0163 A   FDL29    MODULE                     FDL
     6348   01 028C7    1EC02970              FDL,12   MEMORY
     6349   01 028C8    05301113              K        0,5,3,LOC
     6350   01 028C9    25301115              K        2,5,3,LOC+2
     6351   01 028CA    B73FB841 A            DATA     X'B73FB841'
     6352   01 028CB    261171FB A            DATA     X'261171FB'
     6353   01 028CC    9C4FA62E A            DATA     X'9C4FA62E'
     6354   01 028CD    9C4FA62E A            DATA     X'9C4FA62E'
     6355   01 028CE    F93EA754 A            DATA     X'F93EA754'
     6356   01 028CF    9B0C7B5B A            DATA     X'9B0C7B5B'
     6357   01 028D0    94E9520F A            DATA     X'94E9520F'
     6358   01 028D1    94E9520F A            DATA     X'94E9520F'
     6359   01 028D2    0C1E0164 A   FDL30    MODULE                     FDL
     6360   01 028D3    1EC02970              FDL,12   MEMORY
     6361   01 028D4    05301113              K        0,5,3,LOC
     6362   01 028D5    15301115              K        1,5,3,LOC+2
     6363   01 028D6    FDB5EC82 A            DATA     X'FDB5EC82'
     6364   01 028D7    CC80D4A9 A            DATA     X'CC80D4A9'
     6365   01 028D8    0F951EBA A            DATA     X'0F951EBA'
     6366   01 028D9    0F951EBA A            DATA     X'0F951EBA'
     6367   01 028DA    F7E6E3A5 A            DATA     X'F7E6E3A5'
     6368   01 028DB    DEEFCAAB A            DATA     X'DEEFCAAB'
     6369   01 028DC    DBF9ECA8 A            DATA     X'DBF9ECA8'
     6370   01 028DD    DBF9ECA8 A            DATA     X'DBF9ECA8'
     6371   01 028DE    0C1F0165 A   FDL31    MODULE                     FDL
     6372   01 028DF    1EC02970              FDL,12   MEMORY
     6373   01 028E0    05301113              K        0,5,3,LOC
     6374   01 028E1    15301115              K        1,5,3,LOC+2
     6375   01 028E2    61B54E82 A            DATA     X'61B54E82'
     6376   01 028E3    860EA2A6 A            DATA     X'860EA2A6'
     6377   01 028E4    D73FB31A A            DATA     X'D73FB31A'
     6378   01 028E5    D73FB31A A            DATA     X'D73FB31A'
     6379   01 028E6    EA62C8EF A            DATA     X'EA62C8EF'
     6380   01 028E7    4ED320B9 A            DATA     X'4ED320B9'       EXPECTED RESULT (R13)           *G00
     6381   01 028E8    F93DC90A A            DATA     X'F93DC90A'
     6382   01 028E9    F93DC90A A            DATA     X'F93DC90A'
     6383   01 028EA    0C200166 A   FDL32    MODULE                     FDL
     6384   01 028EB    1EC02970              FDL,12   MEMORY
     6385   01 028EC    05301113              K        0,5,3,LOC
     6386   01 028ED    15301115              K        1,5,3,LOC+2
     6387   01 028EE    3D710AF4 A            DATA     X'3D710AF4'
     6388   01 028EF    A859F464 A            DATA     X'A859F464'
     6389   01 028F0    D951B76F A            DATA     X'D951B76F'
     6390   01 028F1    D951B76F A            DATA     X'D951B76F'
     6391   01 028F2    B3B47F87 A            DATA     X'B3B47F87'
     6392   01 028F3    285BD4C3 A            DATA     X'285BD4C3'       EXPECTED RESULT (R13)           *G00
     6393   01 028F4    D3A28E6E A            DATA     X'D3A28E6E'
     6394   01 028F5    D3A28E6E A            DATA     X'D3A28E6E'
     6395   01 028F6    0C210167 A   FDL33    MODULE                     FDL
     6396   01 028F7    1EC02970              FDL,12   MEMORY
     6397   01 028F8    05301113              K        0,5,3,LOC
     6398   01 028F9    15301115              K        1,5,3,LOC+2
     6399   01 028FA    511706C2 A            DATA     X'511706C2'
     6400   01 028FB    89B2D1F5 A            DATA     X'89B2D1F5'
     6401   01 028FC    E4B39F7F A            DATA     X'E4B39F7F'
     6402   01 028FD    E4B39F7F A            DATA     X'E4B39F7F'
     6403   01 028FE    F3A59E74 A            DATA     X'F3A59E74'
     6404   01 028FF    9D499C22 A            DATA     X'9D499C22'
     6405   01 02900    F4A22F6E A            DATA     X'F4A22F6E'
     6406   01 02901    F4A22F6E A            DATA     X'F4A22F6E'
     6407   01 02902    0C220168 A   FDL34    MODULE                     FDL
     6408   01 02903    1EC02970              FDL,12   MEMORY
     6409   01 02904    05301113              K        0,5,3,LOC
     6410   01 02905    15301115              K        1,5,3,LOC+2
     6411   01 02906    9E50492F A            DATA     X'9E50492F'
     6412   01 02907    831EBC8D A            DATA     X'831EBC8D'
     6413   01 02908    25C7B096 A            DATA     X'25C7B096'
     6414   01 02909    25C7B096 A            DATA     X'25C7B096'
     6415   01 0290A    8C7923D2 A            DATA     X'8C7923D2'
     6416   01 0290B    6E577A38 A            DATA     X'6E577A38'
     6417   01 0290C    091B85EA A            DATA     X'091B85EA'
     6418   01 0290D    091B85EA A            DATA     X'091B85EA'
     6419   01 0290E    0C230169 A   FDL35    MODULE                     FDL
     6420   01 0290F    1EC02970              FDL,12   MEMORY
     6421   01 02910    05301113              K        0,5,3,LOC
     6422   01 02911    25301115              K        2,5,3,LOC+2
     6423   01 02912    43123577 A            DATA     X'43123577'
     6424   01 02913    671AE000 A            DATA     X'671AE000'
     6425   01 02914    1CAD732C A            DATA     X'1CAD732C'
     6426   01 02915    1CAD732C A            DATA     X'1CAD732C'
     6427   01 02916    C1F7CF0E A            DATA     X'C1F7CF0E'
     6428   01 02917    BBCF5F8F A            DATA     X'BBCF5F8F'
     6429   01 02918    28314CAF A            DATA     X'28314CAF'
     6430   01 02919    28314CAF A            DATA     X'28314CAF'
     6431   01 0291A    0C24016A A   FDL36    MODULE                     FDL
     6432   01 0291B    1EC02970              FDL,12   MEMORY
     6433   01 0291C    05301113              K        0,5,3,LOC
     6434   01 0291D    25301115              K        2,5,3,LOC+2
     6435   01 0291E    AC82E644 A            DATA     X'AC82E644'
     6436   01 0291F    6F533A84 A            DATA     X'6F533A84'
     6437   01 02920    DAE7F352 A            DATA     X'DAE7F352'
     6438   01 02921    DAE7F352 A            DATA     X'DAE7F352'
     6439   01 02922    6C2817D3 A            DATA     X'6C2817D3'
     6440   01 02923    67B7912D A            DATA     X'67B7912D'
     6441   01 02924    016CB576 A            DATA     X'016CB576'
     6442   01 02925    016CB576 A            DATA     X'016CB576'
     6443   01 02926    0C25016B A   FDL37    MODULE                     FDL
     6444   01 02927    1EC02970              FDL,12   MEMORY
     6445   01 02928    05301113              K        0,5,3,LOC
     6446   01 02929    15301115              K        1,5,3,LOC+2
     6447   01 0292A    D7FDB531 A            DATA     X'D7FDB531'
     6448   01 0292B    B3BBD2FF A            DATA     X'B3BBD2FF'
     6449   01 0292C    1C089B76 A            DATA     X'1C089B76'
     6450   01 0292D    1C089B76 A            DATA     X'1C089B76'
     6451   01 0292E    37560162 A            DATA     X'37560162'
     6452   01 0292F    22F5CAFD A            DATA     X'22F5CAFD'       EXPECTED RESULT (R13)           *G00
     6453   01 02930    50B1EAB9 A            DATA     X'50B1EAB9'
     6454   01 02931    50B1EAB9 A            DATA     X'50B1EAB9'
     6455   01 02932    0C26016C A   FDL38    MODULE                     FDL
     6456   01 02933    1EC02970              FDL,12   MEMORY
     6457   01 02934    05301113              K        0,5,3,LOC
     6458   01 02935    15301115              K        1,5,3,LOC+2
     6459   01 02936    B2C379D5 A            DATA     X'B2C379D5'
     6460   01 02937    969181AF A            DATA     X'969181AF'
     6461   01 02938    248C3A1F A            DATA     X'248C3A1F'
     6462   01 02939    248C3A1F A            DATA     X'248C3A1F'
     6463   01 0293A    AEC68424 A            DATA     X'AEC68424'
     6464   01 0293B    0820E9D3 A            DATA     X'0820E9D3'
     6465   01 0293C    173CA2DC A            DATA     X'173CA2DC'
     6466   01 0293D    173CA2DC A            DATA     X'173CA2DC'
     6467   01 0293E    0C27016D A   FDL39    MODULE                     FDL
     6468   01 0293F    1EC02970              FDL,12   MEMORY
     6469   01 02940    05301113              K        0,5,3,LOC
     6470   01 02941    15301115              K        1,5,3,LOC+2
     6471   01 02942    9FA3E574 A            DATA     X'9FA3E574'
     6472   01 02943    B9CA3A2D A            DATA     X'B9CA3A2D'
     6473   01 02944    5B1B67C2 A            DATA     X'5B1B67C2'
     6474   01 02945    5B1B67C2 A            DATA     X'5B1B67C2'
     6475   01 02946    239CD278 A            DATA     X'239CD278'
     6476   01 02947    1A33BA89 A            DATA     X'1A33BA89'
     6477   01 02948    BD573F1D A            DATA     X'BD573F1D'
     6478   01 02949    BD573F1D A            DATA     X'BD573F1D'
     6479   01 0294A    0C28016E A   FDL40    MODULE                     FDL
     6480   01 0294B    1EC02970              FDL,12   MEMORY
     6481   01 0294C    05301113              K        0,5,3,LOC
     6482   01 0294D    25301115              K        2,5,3,LOC+2
     6483   01 0294E    C3DC27A1 A            DATA     X'C3DC27A1'
     6484   01 0294F    7927A9B8 A            DATA     X'7927A9B8'
     6485   01 02950    FC18A432 A            DATA     X'FC18A432'
     6486   01 02951    FC18A432 A            DATA     X'FC18A432'
     6487   01 02952    462C4E8A A            DATA     X'462C4E8A'
     6488   01 02953    A821951D A            DATA     X'A821951D'
     6489   01 02954    EF710CFC A            DATA     X'EF710CFC'
     6490   01 02955    EF710CFC A            DATA     X'EF710CFC'
     6491         0000016E           LAST:MOD SET      MODULE#
     6492   01 02956    0129016F A            MODULE
     6493         0000016F           CON:WORD SET      MODULE#
     6494         01 02957           LASTMODULE EQU    %
     6495   01 02957    002A0170 A            MODULE
     6496                            *
     6497   01 02958    22100000 A            LI,X1    0                 DATA CHAINING LOADER ENTRANCE
     6498   01 02959    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
     6499   01 0295A    EA6003C8              BAL,X6   *#GUIDE%
     6500   01 0295B    01205A48              GEN,8,3,21 1,1,BA(PROGTEXT)
     6501   01 0295C    00000000 A            DATA       0
     6502                            *
     6503                            *
     6504   01 0295D    00000000 A            DATA     0
     6505   01 0295E    00000000 A            DATA     0
     6506                            *
     6507                                     BOUND    64
     6508                            *
     6509         01 02960           ENDE     EQU      %
     6510                            *
     6511         01 02960           RES:SAV  EQU      ENDE
     6512         01 02970           MEMORY   EQU      ENDE+16
     6513         01 02959           ENDADDR  END      GUIDE             GO TO GUIDE

  CONTROL SECTION SUMMARY: 01 02960   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   22:33 JUN 20,'83    T-SERIES CPU DIAGNOSTIC, FPA 960-0103-H01                             PAGE   18
A  A                792-COM
   ADR:MSK         1007/AND     1022/AND     1039/AND     1064/AND     1676/AND     2420-DATA
   ADV:PTR          967/BAL     1350-EQU
   ALPHATXT         726/GEN     2396-TEXT
   AMP:BUF         2245/STW     2247/STW     2250/STW     2252/STW     2254/STW     2256/STW     2258/STW
      2260/STW     2262/STW     2265/STW     2267/STW     2269/STW     2272/STW     2274/STW     2276/STW
      2277/STW     2281/STW     2283/STW     2285/STB     2286/#PRINT  2296-EQU
   AMP:HDR         2241/CI      2243/#PRINT  2287/LI      2303-TEXTCS
   AMPER%EXPL      2238/LW      2844-Z
   ASTR:MSK        1624/OR      1630-DATA
   AUTO:DL          959/LI       971/LI      1102/LI      1280-DATA
   AUTO:DLE         971/LI       973/LW      1294-DATA
   AUTOTEST         957-EQU      968/B       1455/B       2033/J       2034/I
   BAD:PAR1        2187/BCR     2189/BG      2310-LW
   BAD:PAR2        2191/BCR     2193/BG      2312-LW
   BALNORM         1558/BCR     1564-BAL
   BRANCH           857-XPSD    1033/LW      1118/LW
   BYPASS           872/BCS      936-LI
   CA               574/SET      631-EQU
   CATALOG            1-EQU        3/EQU
   CB               574/SET      632-EQU
   CC               574/SET      633-EQU
   CD               574/SET      634-EQU
   CE               574/SET      635-EQU
   CE:PTR          2411-DATA
   CHECK5          1678/BE      1680/BE      1694-LW
   CI:C            1909/D       1999-EQU
   CI:CNT           913/STW      937/STW     1123/LW      1173-DATA    1402/STW     2007/STW
   CI:PROC         1128/STW     1466/XPSD    1486-DATA    1490/LPSD    1640/LW      1644/#HTECON
   CI:SAV           922/STW     1151/LW      1388/LW      1401/LW      2010/STW     2015-DATA
   CICOUNT         1126/STW     1467/MTW     1468-DATA
   CIMTW           1397/LW      1467-MTW
   CIXPSD          1392/LW      1466-XPSD
   CK:BIAS          915/STW     2409-DATA
   CLR:AUTO         958/BAL      970-EQU      975/BIR
   CM:C            1907/D       1947-EQU
   CM:LO           1513/STW     1541-DATA
   CM:OFF           931/STW     1155/LW      1509/STW     1540-DATA
   CM:ON            930/STW     1109/LW      1154/STW     1411/STW     1539-DATA    1612/LW      1962/STW
   CM:SAV          1410/LW      1516/STW     1542-DATA    1961/STW
   CM:TSTA         1618/CW      1627-DATA
   CM:TSTB         1620/CW      1632-DATA
   CM:VALU         1959/LW      1967-EQU
   CMP:AUTO         964/BAL     1176-EQU     1243/B*
   CNT:P3          1720-DATA
   COM:C           1905/D       1926-EQU
   COM:TRAP         998-EQU
   CON:WORD        6493-SET
   CON7F           1184/AND     1596/AND     2354/AND     2376/AND     2404-DATA
   C0               599/GEN      621-EQU
   C1               574/SET      622-EQU
   C2               574/SET      623-EQU     1816/#PRINT
   C3               574/SET      624-EQU
   C4               574/SET      625-EQU
   C5               574/SET      626-EQU
   C6               574/SET      627-EQU
   C7               574/SET      628-EQU
   C8               574/SET      629-EQU
   C9               574/SET      630-EQU
   D                793-COM
   DEAD            1280/DATA    1294/DATA    1296-DATA
   DHEX:CON        1560/BAL     1806/BAL     1844/BAL     1855/BAL     1871-EQU
   DL%EXPL         2676-TEXTCS  2869/Z
   DLTA            2185-EQU     2867/E
   DM%EXPL         2647-TEXTCS  2854/Z
   DONE            2964/GOTO    3086-PEND
   DR:ERET         2327/BCS     2343-#TYPE   2359/BCR
   DRTA            2325-EQU     2335/B       2862/E
   E                794-COM
   EL:MSK1         1590/AND     1727-DATA
   EM               911/STW     1027/AW      1054/AW      1178/LW      1436/LW      1438/STW     1465-DATA
      1989/STW
   EM:C            1908/D       1972-EQU
   EM:CNT          1433/LW      1454/STW     1463-DATA
   EM:FLG           918/STW     1431/LW      1464-DATA    1985/STW
   EM:LIST         1437/LW      1461-DATA
   EM:VALU         1988/LW      1997-DATA
   END:SW          2205/STCF    2207/LC      2215/STW     2218/LW      2309-DATA
   ENDADDR         6513-END
   ENDE            6509-EQU     6511/EQU     6512/EQU
   ERMSG8          2023/#TYPE   2039-TEXTCS
   ERR:CNT          908/STW     1311/LW      1313/STW     1430/STW     1600/LW      2172/STW     2406-DATA
   ERR:FLG          917/STW     1302/STW     1352/STW     2407-DATA
   ERR:PASS        1385/BCS     1408/BCR     1412-LI
   ERR:RET         2071/B       2099/BCR     2101/BG      2122/BG      2124/BL      2159-LW
   ERR:RETJ        1918/B       1930/B       1953/B       1956/B       1979/B       1982/B       2005/B
      2042-LW
   ESM:CI          1640-LW      1668/DATA    2268/BAL
   ESM:CM          1612-LW      1665/DATA    2261/BAL
   ESM:EL          1582-EQU     1654/DATA    1799/BAL     2246/BAL
   ESM:EM          1637-LW      1659/DATA
   ESM:ERRS        1600-LW      1657/DATA    2253/BAL
   ESM:FAIL        1661/DATA    1671-LB
   ESM:FAIL1       1662/DATA    1675-LB
   ESM:HEDR        1320/LI      1323/#PRINT  1335/LI      1573-TEXTCS
   ESM:MNEM        1593-LI      1660/DATA    1801/BAL     2259/BAL
   ESM:MOD         1576-LW      1653/DATA    1797/BAL     2244/BAL
   ESM:NULL        1716-LW      2034/I
   ESM:PASS        1606-LW      1658/DATA    2255/BAL
   ETM2:ADR        1061/EOR     1084-DATA
   ETP4:ADR        1058/EOR     1083-DATA
   EX:TRP0         1040/CW      1074-DATA
   EX:TRP5         1044/CW      1075-DATA
   EXIT:EM         1432/BCS     1435/BCS     1451-LI
   EXIT:EXU        1099/STW     1158/B*      1160-DATA
   EXP:TRAP         833/LC       835-DATA    1014/LI      1017/LI      1059/STW     1062/STW     1074/DATA
      1075/DATA    1076/XPSD    1077/XPSD    1078/XPSD    1083/DATA    1084/DATA    4087/K       4097/K
      4256/K       4264/K       4276/K       4304/K       4312/K       4320/K       4328/K       4763/K
      4900/K       4908/K       6014/K       6082/K       6126/K       6138/K
   EXT:ERR         1222/BCR     1225/BCS     1228/BCS     1231/BCR     1239-BAL
   EXTRAP00        1046/LW      1076-XPSD
   EXTRAP40        1048/LW      1077-XPSD
   EXTRAP46        1042/LW      1078-XPSD
   EXU:AUTO         962/BAL     1098-EQU
   F                803-COM
   FAIL:ID         1672/LW      1702-DATA
   FAL01           4165-MODULE
   FAL02           4177-MODULE
   FAL03           4189-MODULE
   FAL04           4201-MODULE
   FAL05           4213-MODULE
   FAL06           4217-MODULE
   FAL07           4229-MODULE
   FAL08           4241-MODULE
   FAL09           4253-MODULE
   FAL10           4261-MODULE
   FAL11           4269-MODULE
   FAL12           4273-MODULE
   FAL13           4277-MODULE
   FAL14           4285-MODULE
   FAL15           4293-MODULE
   FAL16           4301-MODULE
   FAL17           4309-MODULE
   FAL18           4317-MODULE
   FAL19           4325-MODULE
   FAL20           4340-MODULE
   FAL21           4349-MODULE
   FAL22           4364-MODULE
   FAL23           4374-MODULE
   FAL24           4384-MODULE
   FAL25           4396-MODULE
   FAL26           4405-MODULE
   FAL27           4414-MODULE
   FAL28           4424-MODULE
   FAL29           4434-MODULE
   FAL30           4443-MODULE
   FAL31           4453-MODULE
   FAL32           4462-MODULE
   FAL33           4471-MODULE
   FAL34           4479-MODULE
   FAL35           4487-MODULE
   FAL36           4498-MODULE
   FAL37           4507-MODULE
   FAL38           4517-MODULE
   FAL39           4527-MODULE
   FAL40           4536-MODULE
   FAL41           4545-MODULE
   FAL42           4554-MODULE
   FAL43           4563-MODULE
   FAL44           4572-MODULE
   FAL45           4581-MODULE
   FAL46           4591-MODULE
   FAL47           4600-MODULE
   FAL48           4609-MODULE
   FAL49           4618-MODULE
   FAL50           4627-MODULE
   FAL51           4638-MODULE
   FAL52           4649-MODULE
   FAL53           4658-MODULE
   FAL54           4667-MODULE
   FAL55           4675-MODULE
   FAS01           3651-MODULE
   FAS02           3655-MODULE
   FAS03           3661-MODULE
   FAS04           3669-MODULE
   FAS05           3677-MODULE
   FAS06           3685-MODULE
   FAS07           3693-MODULE
   FAS08           3701-MODULE
   FAS09           3709-MODULE
   FAS10           3717-MODULE
   FAS11           3725-MODULE
   FAS12           3733-MODULE
   FAS13           3741-MODULE
   FAS14           3749-MODULE
   FAS15           3757-MODULE
   FAS15A          3773-MODULE
   FAS15B          3765-MODULE
   FAS16           3781-MODULE
   FAS17           3789-MODULE
   FAS18           3797-MODULE
   FAS19           3805-MODULE
   FAS20           3813-MODULE
   FAS21           3821-MODULE
   FAS22           3829-MODULE
   FAS23           3837-MODULE
   FAS24           3845-MODULE
   FAS25           3853-MODULE
   FAS26           3861-MODULE
   FAS27           3869-MODULE
   FAS28           3877-MODULE
   FAS29           3885-MODULE
   FAS30           3893-MODULE
   FAS31           3901-MODULE
   FAS32           3909-MODULE
   FAS33           3917-MODULE
   FAS34           3925-MODULE
   FAS35           3933-MODULE
   FAS36           3941-MODULE
   FAS37           3949-MODULE
   FAS38           3957-MODULE
   FAS39           3965-MODULE
   FAS40           3973-MODULE
   FAS41           3981-MODULE
   FAS42           3989-MODULE
   FAS43           3997-MODULE
   FAS44           4007-MODULE
   FAS45           4018-MODULE
   FAS46           4031-MODULE
   FAS47           4041-MODULE
   FAS48           4048-MODULE
   FAS49           4057-MODULE
   FAS50           4067-MODULE
   FAS51           4075-MODULE
   FAS52           4084-MODULE
   FAS53           4094-MODULE
   FAS54           4104-MODULE
   FAS55           4113-MODULE
   FAS56           4123-MODULE
   FAS57           4133-MODULE
   FAS58           4143-MODULE
   FAS59           4152-MODULE
   FAS60           4157-MODULE
   FDL01           6019-MODULE
   FDL02           6031-MODULE
   FDL03           6043-MODULE
   FDL04           6055-MODULE
   FDL05           6067-MODULE
   FDL06           6079-MODULE
   FDL07           6089-MODULE
   FDL08           6101-MODULE
   FDL09           6111-MODULE
   FDL10           6123-MODULE
   FDL11           6135-MODULE
   FDL12           6147-MODULE
   FDL13           6155-MODULE
   FDL14           6167-MODULE
   FDL15           6179-MODULE
   FDL16           6191-MODULE
   FDL17           6203-MODULE
   FDL18           6215-MODULE
   FDL19           6227-MODULE
   FDL20           6239-MODULE
   FDL21           6251-MODULE
   FDL22           6263-MODULE
   FDL23           6275-MODULE
   FDL24           6287-MODULE
   FDL25           6299-MODULE
   FDL26           6311-MODULE
   FDL27           6323-MODULE
   FDL28           6335-MODULE
   FDL29           6347-MODULE
   FDL30           6359-MODULE
   FDL31           6371-MODULE
   FDL32           6383-MODULE
   FDL33           6395-MODULE
   FDL34           6407-MODULE
   FDL35           6419-MODULE
   FDL36           6431-MODULE
   FDL37           6443-MODULE
   FDL38           6455-MODULE
   FDL39           6467-MODULE
   FDL40           6479-MODULE
   FDS01           5806-MODULE
   FDS02           5814-MODULE
   FDS03           5822-MODULE
   FDS04           5830-MODULE
   FDS05           5838-MODULE
   FDS06           5846-MODULE
   FDS07           5854-MODULE
   FDS08           5862-MODULE
   FDS09           5870-MODULE
   FDS10           5878-MODULE
   FDS11           5886-MODULE
   FDS12           5898-MODULE
   FDS13           5910-MODULE
   FDS14           5922-MODULE
   FDS15           5934-MODULE
   FDS16           5946-MODULE
   FDS17           5958-MODULE
   FDS18           5970-MODULE
   FDS19           5982-MODULE
   FDS20           5994-MODULE
   FDS21           6006-MODULE
   FDS22           6011-MODULE
   FILL:MSK        1000/AND     1072-DATA
   FILLER          1001/EOR     1073-DATA
   FLAG:MSK        1052/AND     1726-DATA
   FML01           5237-MODULE
   FML02           5249-MODULE
   FML03           5261-MODULE
   FML04           5273-MODULE
   FML05           5285-MODULE
   FML06           5297-MODULE
   FML07           5309-MODULE
   FML08           5321-MODULE
   FML09           5333-MODULE
   FML10           5345-MODULE
   FML11           5357-MODULE
   FML12           5369-MODULE
   FML13           5381-MODULE
   FML14           5393-MODULE
   FML15           5405-MODULE
   FML16           5417-MODULE
   FML17           5429-MODULE
   FML18           5441-MODULE
   FML19           5453-MODULE
   FML20           5465-MODULE
   FML21           5477-MODULE
   FML22           5489-MODULE
   FML23           5501-MODULE
   FML24           5513-MODULE
   FML25           5525-MODULE
   FML26           5537-MODULE
   FML27           5549-MODULE
   FML28           5561-MODULE
   FML29           5573-MODULE
   FML30           5585-MODULE
   FML31           5597-MODULE
   FML32           5609-MODULE
   FML33           5621-MODULE
   FML34           5633-MODULE
   FML35           5645-MODULE
   FML36           5657-MODULE
   FML37           5669-MODULE
   FML38           5681-MODULE
   FML39           5693-MODULE
   FML40           5705-MODULE
   FML41           5720-MODULE
   FML42           5727-MODULE
   FML43           5734-MODULE
   FML44           5741-MODULE
   FML45           5748-MODULE
   FML46           5755-MODULE
   FML47           5762-MODULE
   FML48           5769-MODULE
   FML49           5776-MODULE
   FML50           5782-MODULE
   FML51           5794-MODULE
   FMS01           4857-MODULE
   FMS02           4865-MODULE
   FMS03           4873-MODULE
   FMS04           4881-MODULE
   FMS05           4889-MODULE
   FMS06           4897-MODULE
   FMS07           4905-MODULE
   FMS08           4913-MODULE
   FMS09           4921-MODULE
   FMS10           4929-MODULE
   FMS11           4939-MODULE
   FMS12           4947-MODULE
   FMS13           4955-MODULE
   FMS14           4963-MODULE
   FMS15           4971-MODULE
   FMS16           4979-MODULE
   FMS17           4987-MODULE
   FMS18           4995-MODULE
   FMS19           5003-MODULE
   FMS20           5011-MODULE
   FMS21           5019-MODULE
   FMS22           5029-MODULE
   FMS23           5039-MODULE
   FMS24           5049-MODULE
   FMS25           5059-MODULE
   FMS26           5069-MODULE
   FMS27           5079-MODULE
   FMS28           5089-MODULE
   FMS29           5099-MODULE
   FMS30           5109-MODULE
   FMS31           5119-MODULE
   FMS32           5129-MODULE
   FMS33           5139-MODULE
   FMS34           5149-MODULE
   FMS35           5159-MODULE
   FMS36           5169-MODULE
   FMS37           5179-MODULE
   FMS38           5189-MODULE
   FMS39           5199-MODULE
   FMS40           5209-MODULE
   FMS41           5223-MODULE
   FMS42           5231-MODULE
   FORM:ESM        1331/BAL     1554-EQU     1568/BCS     1571/B*
   FSL01           4776-MODULE
   FSL02           4788-MODULE
   FSL03           4802-MODULE
   FSL04           4810-MODULE
   FSL05           4818-MODULE
   FSL06           4826-MODULE
   FSL07           4834-MODULE
   FSL08           4841-MODULE
   FSL09           4849-MODULE
   FSS01           4687-MODULE
   FSS02           4697-MODULE
   FSS03           4705-MODULE
   FSS04           4715-MODULE
   FSS05           4723-MODULE
   FSS06           4731-MODULE
   FSS07           4739-MODULE
   FSS08           4747-MODULE
   FSS09           4752-MODULE
   FSS10           4760-MODULE
   FSS11           4768-MODULE
   FT:CMP1         1216-LW      1240/BIR
   FT:ERR          1211/BAL     1239/BAL     1299-EQU     1345/B*
   FT:ERR0         1341/BCS     1344-BAL
   FTE:SS3         1319/BCS     1340-LC
   FTERRMSG        1347/Z       2742-TEXTCS
   FTERSTAT        1337/LW      1347-Z
   FTFL             907/STW     2077/STW     2408-DATA
   F0               574/SET      637-EQU
   F1               574/SET      638-EQU     2195/#PRINT
   G                795-COM
   GO               940/DATA     942-DATA
   GUIDE           6498-STW     6513/END
   H                796-COM
   HALT            1342/#TYPE   1348-TEXTCS
   HFF             2165/AND     2177-DATA
   I                797-COM
   IA              1122/STW     1271/DATA    2421-DATA    4230/FAL*
   IAM32            948-DATA
   IAP              949-DATA    4218/FAL*
   ID:EL           1699/LW      1712-TEXT
   ID:EXT          1216/LW      1274-EQU
   IISET:UP        1100/B       1106-LI
   IN:0X34         1744-EQU     1828/LI
   IN:1X78         1749-EQU     1830/LI
   INC:RET         1009/BE      1025-AI
   INI:EXIT         870/STW      939/BAL*     945-DATA
   INIFLG           935/STW      950-DATA
   INITIAL          741/DATA     869-EQU
   IO:PTR          1767-EQU     1839/LW
   IO34IDX         1724-DATA    1829/STW     1842/LW*     1864/STW
   IO78IDX         1725-DATA    1831/STW     1853/LW*     1866/STW
   IX03            3641-MODULE
   J                810-CNAME
   J%EXPL          2682-TEXTCS  2874/Z
   JH              1880-TEXTCS  1884/DATA
   JINIT            895/STW      899/STW      901/LB       902/LB       924/LW      1882-TEXTCS
   JL:EXIT         1887/STW     1901-DATA    2044/B*
   JOUT             903/STB      925/STW     1450/STW     1498/LW      1510/STB     1617/LW      1637/LW
      1647/LW      1881-TEXTCS  1883/DATA    1892/LW      1921/STW     1933/STW     1942/STW     1964/STW
      1991/STW     2012/STW     2029/STW     2257/LW
   JP:LST          1895/LW*     1911-DATA    2042/LW*
   JRTA            1886-EQU     2872/E
   K                798-COM
   K%EXPL          2726-TEXTCS  2879/Z
   KH              2048-TEXTCS  2053/DATA
   KINIT            882/STW      888/LB       889/LB      2050-TEXTCS
   KL:EXIT         2055/STW     2161/B*      2180-DATA
   KL:FLG          1480/LW      1495-DATA    2073/STW     2076/STW     2201/STW     2214/STW
   KOUT             890/STB     1361/STW     1379/LW      1382/STW     1809/LW      2049-TEXTCS  2052/DATA
      2061/LW      2105/STW     2107/STW     2127/STW     2128/LW      2130/STW     2148/STW     2150/LW
      2152/STW     2174/STW     2263/LW      2266/LW
   KP:LST          2064/LW      2090-DATA    2159/LW*
   KRTA            2054-EQU     2877/E
   L                799-COM
   LAST:MOD         734/DATA     876/LI      2121/CI      6491-SET
   LASTMODULE      2358/CI      2942/DO      6494-EQU
   LC:C            2089/D       2163-EQU
   LCNT             914/STW     1415/LW      1419/AW      2168/STW     2178-DATA
   LFT:PTR         1734-EQU     1837/LW
   LIST             736/DATA     926/LI      1472/LI      2351/LI      2896-RES
   LISTEXT         1108/STW     1120/STW     1219/LW      1262-EQU
   LISTPTR          736-DATA     927/STW      983/LB*      986/LW*     1006/LW*     1021/LW*     1038/LW*
      1107/LW*     1202/LB*     1207/LW*     1362/LB*     1363/AW      1364/STW     1473/STW     1576/LW*
      1584/LB*     1594/LW*     1805/LW*     1832/LB*     1843/LW*     1854/LW*     2196/LW      2219/LB*
      2220/AW      2221/STW     2224/STW
   LISTSAV         2197/STW     2223/LW      2306-DATA
   LO:MSK          1512/AW      1538-DATA
   LOC              861/DATA    1008/CI      1010/CI      1023/CI      1065/AI      1119/STW     1138/B
      1139/EXU     1140/B       1142-DATA    1183/LB      1190/LB      1196/ANLZ    1226/LB      1246/D
      1247/D       1272/DATA    1281/DATA    1655/GEN     2248/#HTECON 2419/DATA    3091/K       3092/K
      3097/K       3098/K       3103/K       3104/K       3109/K       3110/K       3115/K       3116/K
      3121/K       3122/K       3127/K       3128/K       3133/K       3134/K       3139/K       3140/K
      3145/K       3146/K       3151/K       3152/K       3157/K       3158/K       3163/K       3164/K
      3169/K       3170/K       3175/K       3176/K       3181/DATA    3181/DATA    3185/DATA    3186/K
      3194/DATA    3195/K       3200/DATA    3201/K       3205/DATA    3206/K       3211/DATA    3212/K
      3216/DATA    3217/K       3221/DATA    3222/K       3226/DATA    3227/K       3231/DATA    3232/K
      3236/DATA    3237/K       3241/DATA    3242/K       3246/DATA    3247/K       3251/DATA    3252/K
      3256/DATA    3257/K       3261/DATA    3262/K       3266/DATA    3267/K       3271/DATA    3272/K
      3278/DATA    3279/K       3283/DATA    3284/K       3288/DATA    3289/K       3293/DATA    3294/K
      3298/DATA    3299/K       3303/DATA    3304/K       3308/DATA    3309/K       3313/DATA    3314/K
      3318/DATA    3319/K       3323/DATA    3324/K       3328/DATA    3329/K       3333/DATA    3334/K
      3338/DATA    3339/K       3343/DATA    3344/K       3348/DATA    3349/K       3353/DATA    3354/K
      3360/K       3361/K       3366/K       3367/K       3378/K       3379/K       3390/K       3391/K
      3402/K       3403/K       3414/K       3415/K       3426/K       3427/K       3438/K       3439/K
      3450/K       3451/K       3462/K       3463/K       3474/K       3475/K       3486/K       3487/K
      3498/K       3499/K       3510/K       3511/K       3522/K       3523/K       3534/K       3535/K
      3546/K       3547/K       3558/K       3559/K       3570/K       3571/K       3582/K       3583/K
      3594/K       3595/K       3606/K       3607/K       3618/K       3619/K       3630/K       3631/K
      3643/K       3644/K       3653/K       3654/K       3657/K       3658/K       3663/K       3664/K
      3671/K       3672/K       3679/K       3680/K       3687/K       3688/K       3695/K       3696/K
      3703/K       3704/K       3711/K       3712/K       3719/K       3720/K       3727/K       3728/K
      3735/K       3736/K       3743/K       3744/K       3751/K       3752/K       3759/K       3760/K
      3767/K       3768/K       3775/K       3776/K       3783/K       3784/K       3791/K       3792/K
      3799/K       3800/K       3807/K       3808/K       3815/K       3816/K       3823/K       3824/K
      3831/K       3832/K       3839/K       3840/K       3847/K       3848/K       3855/K       3856/K
      3863/K       3864/K       3871/K       3872/K       3879/K       3880/K       3887/K       3888/K
      3895/K       3896/K       3903/K       3904/K       3911/K       3912/K       3919/K       3920/K
      3927/K       3928/K       3935/K       3936/K       3943/K       3944/K       3951/K       3952/K
      3959/K       3960/K       3967/K       3968/K       3975/K       3976/K       3983/K       3984/K
      3991/K       3992/K       3999/K       4000/K       4009/DATA    4010/K       4020/DATA    4021/K
      4033/DATA    4034/K       4043/DATA    4044/K       4050/DATA    4051/K       4059/DATA    4060/K
      4069/K       4070/K       4077/K       4078/K       4086/DATA    4096/DATA    4106/DATA    4107/K
      4115/DATA    4116/K       4125/DATA    4126/K       4135/DATA    4136/K       4145/DATA    4146/K
      4154/DATA    4155/K       4159/K       4160/K       4167/K       4168/K       4179/K       4180/K
      4191/K       4192/K       4203/K       4204/K       4215/K       4216/K       4219/K       4220/K
      4231/K       4232/K       4243/K       4244/K       4255/K       4263/K       4271/K       4272/K
      4275/K       4279/K       4280/K       4287/K       4288/K       4295/K       4296/K       4303/K
      4311/K       4319/K       4327/K       4342/DATA    4343/K       4351/DATA    4352/K       4366/DATA
      4367/K       4376/DATA    4377/K       4386/DATA    4387/K       4398/DATA    4399/K       4407/DATA
      4408/K       4416/DATA    4417/K       4426/DATA    4427/K       4436/DATA    4437/K       4445/DATA
      4446/K       4455/DATA    4456/K       4464/DATA    4465/K       4473/DATA    4474/K       4481/DATA
      4482/K       4489/DATA    4490/K       4500/DATA    4501/K       4509/DATA    4510/K       4519/DATA
      4520/K       4529/DATA    4530/K       4538/DATA    4539/K       4547/DATA    4548/K       4556/DATA
      4557/K       4565/DATA    4566/K       4574/DATA    4575/K       4583/DATA    4584/K       4593/DATA
      4594/K       4602/DATA    4603/K       4611/DATA    4612/K       4620/DATA    4621/K       4629/DATA
      4630/K       4640/DATA    4641/K       4651/DATA    4652/K       4660/DATA    4661/K       4669/DATA
      4670/K       4677/K       4678/K       4689/K       4690/K       4699/DATA    4700/K       4707/DATA
      4708/K       4717/DATA    4718/K       4725/DATA    4726/K       4733/DATA    4734/K       4741/DATA
      4742/K       4749/K       4750/K       4754/K       4755/K       4762/K       4770/K       4771/K
      4778/K       4779/K       4790/K       4791/K       4804/DATA    4805/K       4812/DATA    4813/K
      4820/K       4821/K       4828/K       4829/K       4836/DATA    4837/K       4843/DATA    4844/K
      4851/DATA    4852/K       4859/K       4860/K       4867/K       4868/K       4875/K       4876/K
      4883/K       4884/K       4891/K       4892/K       4899/K       4907/K       4915/K       4916/K
      4923/K       4924/K       4931/K       4932/K       4941/K       4942/K       4949/K       4950/K
      4957/K       4958/K       4965/K       4966/K       4973/K       4974/K       4981/K       4982/K
      4989/K       4990/K       4997/K       4998/K       5005/K       5006/K       5013/K       5014/K
      5021/K       5022/K       5031/K       5032/K       5041/K       5042/K       5051/K       5052/K
      5061/K       5062/K       5071/K       5072/K       5081/K       5082/K       5091/K       5092/K
      5101/K       5102/K       5111/K       5112/K       5121/K       5122/K       5131/K       5132/K
      5141/K       5142/K       5151/K       5152/K       5161/K       5162/K       5171/K       5172/K
      5181/K       5182/K       5191/K       5192/K       5201/K       5202/K       5211/K       5212/K
      5225/DATA    5226/K       5233/K       5234/K       5239/K       5240/K       5251/K       5252/K
      5263/K       5264/K       5275/K       5276/K       5287/K       5288/K       5299/K       5300/K
      5311/K       5312/K       5323/K       5324/K       5335/K       5336/K       5347/K       5348/K
      5359/K       5360/K       5371/K       5372/K       5383/K       5384/K       5395/K       5396/K
      5407/K       5408/K       5419/K       5420/K       5431/K       5432/K       5443/K       5444/K
      5455/K       5456/K       5467/K       5468/K       5479/K       5480/K       5491/K       5492/K
      5503/K       5504/K       5515/K       5516/K       5527/K       5528/K       5539/K       5540/K
      5551/K       5552/K       5563/K       5564/K       5575/K       5576/K       5587/K       5588/K
      5599/K       5600/K       5611/K       5612/K       5623/K       5624/K       5635/K       5636/K
      5647/K       5648/K       5659/K       5660/K       5671/K       5672/K       5683/K       5684/K
      5695/K       5696/K       5707/K       5708/K       5722/DATA    5723/GEN     5729/DATA    5730/GEN
      5736/DATA    5737/GEN     5743/DATA    5744/GEN     5750/DATA    5751/GEN     5757/DATA    5758/GEN
      5764/DATA    5765/GEN     5771/DATA    5772/GEN     5778/DATA    5779/GEN     5784/K       5785/K
      5796/K       5797/K       5808/K       5809/K       5816/K       5817/K       5824/K       5825/K
      5832/K       5833/K       5840/K       5841/K       5848/K       5849/K       5856/K       5857/K
      5864/K       5865/K       5872/K       5873/K       5880/K       5881/K       5888/K       5889/K
      5900/K       5901/K       5912/K       5913/K       5924/K       5925/K       5936/K       5937/K
      5948/K       5949/K       5960/K       5961/K       5972/K       5973/K       5984/K       5985/K
      5996/K       5997/K       6008/K       6009/K       6013/K       6021/K       6022/K       6033/K
      6034/K       6045/K       6046/K       6057/K       6058/K       6069/K       6070/K       6081/K
      6091/K       6092/K       6103/K       6104/K       6113/K       6114/K       6125/K       6137/K
      6149/K       6150/K       6157/K       6158/K       6169/K       6170/K       6181/K       6182/K
      6193/K       6194/K       6205/K       6206/K       6217/K       6218/K       6229/K       6230/K
      6241/K       6242/K       6253/K       6254/K       6265/K       6266/K       6277/K       6278/K
      6289/K       6290/K       6301/K       6302/K       6313/K       6314/K       6325/K       6326/K
      6337/K       6338/K       6349/K       6350/K       6361/K       6362/K       6373/K       6374/K
      6385/K       6386/K       6397/K       6398/K       6409/K       6410/K       6421/K       6422/K
      6433/K       6434/K       6445/K       6446/K       6457/K       6458/K       6469/K       6470/K
      6481/K       6482/K
   LOCADR          1053/EOR     2419-DATA
   LOC1:SW         1005/STW     1012/STW     1034/LW      1085-DATA
   LS:MSK           881/AND     1360/AND     1579/AND     1603/AND     1609/AND     2386/AND     2405-DATA
   LST:NUM          877/STW     2100/CW      2110-DATA    2188/CW      2192/CW
   LSTSERVO        1383/BAL     1470-EQU     1479/B       2074/BAL     2212/BAL
   M                801-COM
   MAR:FLG         1519/STW     1532-DATA
   MAR:SET          912/STW     1505/LB      1506/LW      1524/STB     1528-M
   MCR:C           2088/D       2136-EQU     2149/B*      2155/B*
   MCR:NUM          735-DATA     885/STW     1353/LW      1357/STW     1378/STW     1474/CW      2102/STW
      2132/STW     2146/STW     2154/STW     2198/LW      2203/STW     2226/STW
   MCR:SAV         2199/STW     2225/LW      2307-DATA
   MEMORY           948/DATA     949/DATA     993/LW       995/LW      1121/LI      1131/STW     1132/STW
      1229/LW      1233/LW      1252/D       1253/D       1256/D       1265/DATA    1286/DATA    1290/DATA
      2421/DATA    3193/SF*     3204/SF*     3359/SF*     3605/SF*     3629/SF*     3652/FAS     3656/FAS
      3662/FAS     3670/FAS     3678/FAS     3686/FAS     3694/FAS     3702/FAS     3710/FAS     3718/FAS
      3726/FAS     3734/FAS     3742/FAS     3750/FAS     3758/FAS     3766/FAS     3774/FAS     3782/FAS
      3790/FAS     3798/FAS     3806/FAS     3814/FAS     3822/FAS     3830/FAS     3838/FAS     3846/FAS
      3854/FAS     3862/FAS     3870/FAS     3878/FAS     3886/FAS     3894/FAS     3902/FAS     3910/FAS
      3918/FAS     3926/FAS     3934/FAS     3942/FAS     3950/FAS     3958/FAS     3966/FAS     3974/FAS
      3982/FAS     3990/FAS     3998/FAS     4008/FAS     4019/FAS     4032/FAS     4042/FAS     4049/FAS
      4058/FAS     4068/FAS     4076/FAS     4085/FAS     4095/FAS     4105/FAS     4114/FAS     4124/FAS
      4134/FAS     4144/FAS     4153/FAS     4166/FAL     4178/FAL     4190/FAL     4202/FAL     4214/FAL
      4242/FAL     4254/FAL     4262/FAL     4270/FAL     4274/FAL     4278/FAL     4286/FAL     4294/FAL
      4302/FAL     4310/FAL     4318/FAL     4326/FAL     4341/FAL     4350/FAL     4365/FAL     4375/FAL
      4385/FAL     4397/FAL     4406/FAL     4415/FAL     4425/FAL     4435/FAL     4444/FAL     4454/FAL
      4463/FAL     4472/FAL     4480/FAL     4488/FAL     4499/FAL     4508/FAL     4518/FAL     4528/FAL
      4537/FAL     4546/FAL     4555/FAL     4564/FAL     4573/FAL     4582/FAL     4592/FAL     4601/FAL
      4610/FAL     4619/FAL     4628/FAL     4639/FAL     4650/FAL     4659/FAL     4668/FAL     4688/FSS
      4698/FSS     4706/FSS     4716/FSS     4724/FSS     4732/FSS     4740/FSS     4748/FSS     4753/FSS
      4761/FSS     4769/FSS     4777/FSL     4789/FSL     4803/FSL     4811/FSL     4819/FSL     4827/FSL
      4835/FSL     4842/FSL     4850/FSL     4858/FMS     4866/FMS     4874/FMS     4882/FMS     4890/FMS
      4898/FMS     4906/FMS     4914/FMS     4922/FMS     4930/FMS     4940/FMS     4948/FMS     4956/FMS
      4964/FMS     4972/FMS     4980/FMS     4988/FMS     4996/FMS     5004/FMS     5012/FMS     5020/FMS
      5030/FMS     5040/FMS     5050/FMS     5060/FMS     5070/FMS     5080/FMS     5090/FMS     5100/FMS
      5110/FMS     5120/FMS     5130/FMS     5140/FMS     5150/FMS     5160/FMS     5170/FMS     5180/FMS
      5190/FMS     5200/FMS     5210/FMS     5224/FMS     5232/FMS     5238/FML     5250/FML     5262/FML
      5274/FML     5286/FML     5298/FML     5310/FML     5322/FML     5334/FML     5346/FML     5358/FML
      5370/FML     5382/FML     5394/FML     5406/FML     5418/FML     5430/FML     5442/FML     5454/FML
      5466/FML     5478/FML     5490/FML     5502/FML     5514/FML     5526/FML     5538/FML     5550/FML
      5562/FML     5574/FML     5586/FML     5598/FML     5610/FML     5622/FML     5634/FML     5646/FML
      5658/FML     5670/FML     5682/FML     5694/FML     5706/FML     5721/FML     5728/FML     5735/FML
      5742/FML     5749/FML     5756/FML     5763/FML     5770/FML     5777/FML     5795/FML     5807/FDS
      5815/FDS     5823/FDS     5831/FDS     5839/FDS     5847/FDS     5855/FDS     5863/FDS     5871/FDS
      5879/FDS     5887/FDS     5899/FDS     5911/FDS     5923/FDS     5935/FDS     5947/FDS     5959/FDS
      5971/FDS     5983/FDS     5995/FDS     6007/FDS     6012/FDS     6020/FDL     6032/FDL     6044/FDL
      6056/FDL     6068/FDL     6080/FDL     6090/FDL     6102/FDL     6112/FDL     6124/FDL     6136/FDL
      6148/FDL     6156/FDL     6168/FDL     6180/FDL     6192/FDL     6204/FDL     6216/FDL     6228/FDL
      6240/FDL     6252/FDL     6264/FDL     6276/FDL     6288/FDL     6300/FDL     6312/FDL     6324/FDL
      6336/FDL     6348/FDL     6360/FDL     6372/FDL     6384/FDL     6396/FDL     6408/FDL     6420/FDL
      6432/FDL     6444/FDL     6456/FDL     6468/FDL     6480/FDL     6512-EQU
   MI:ADR           923/HIO*    2019/HIO*    2027/STW     2038-DATA
   MI:C            1910/D       2017-EQU
   MINUS2           984/AND     1203/AND     1719-DATA
   MNEM:MSG        2343/#TYPE   2346-TEXTC
   MNEM:X2         2340/BCR     2348-LI      2360/B
   MNEMEND         2595-EQU
   MNEMLIST        1597/LW      2339/CW      2465-EQU
   MOD%END         2944-EQU
   MOD:DATA        1822-EQU     1834/BCS*    1868/BIR     1869/B*      2217/BAL
   MOD:HDR         1792-EQU     1819/B*      2216/BAL
   MOD:MSG         1877-TEXTCS
   MOD:MSK         2098/AND     2119/AND     2141/AND     2412-DATA
   MODLIST1        2903-SET     2917-SET     2917/SET     2998-SET     3051/GEN
   MODLIST2        2905-SET     2919-SET     2919/SET     3004-SET     3057/GEN
   MODLIST3        2907-SET     2921-SET     2921/SET     3010-SET     3063/GEN
   MODLIST4        2909-SET     2923-SET     2923/SET     3016-SET     3069/GEN
   MODLIST5        2911-SET     2925-SET     2925/SET     3020-SET     3073/GEN
   MODT            1729-TEXT    1795/LW
   MODULE          2937-CNAME
   MODULE%         2933-SET     2998/SET     3004/SET     3010/SET     3016/SET     3020/SET     3034-SET
   MODULE:         2935-SET     2969-SET     2971-SET     2971/SET     3051/GEN     3057/GEN     3063/GEN
      3069/GEN     3073/GEN
   MODULE#         2931-SET     2994/DO      2996/DO      2998-SET     3002/DO      3004-SET     3008/DO
      3010-SET     3014/DO      3016-SET     3020-SET     3032-SET     3032/SET     3043-SET     3043/SET
      3049/DO      3051/GEN     3051/GEN     3055/DO      3057/GEN     3057/GEN     3061/DO      3063/GEN
      3063/GEN     3067/DO      3069/GEN     3069/GEN     3073/GEN     3073/GEN     6491/SET     6493/SET
   MODULE@         2913-SET     2927-SET     2927/SET     2948/RES     2952/DO      2954/SET     2956/SET
      2981/DO      2983-SET     2987-SET     2987/SET
   MOVER            960/BAL      982-EQU      989/BDR     1103/BAL
   MR%EXPL         2734-TEXTCS  2864/Z
   MSAV             994/STW     1129/LW      1287/DATA    1753-DATA
   MSAV1            996/STW     1130/LW      1291/DATA    1754-DATA
   MSB21           2106/AW      2129/AW      2151/AW      2157-DATA    2264/AW
   MSG:C           1903/D       1913-EQU
   MSG:CNT         1328/STB     1569/LB      1652-DATA
   MSG:LST         1326/LI      1653-DATA
   MSG:OK          1916/BCR     1919-STW
   MSK:CM          1511/AND     1536-DATA
   MSK:LST         2195/#PRINT  2429-EQU
   MSP:C           2087/D       2114-EQU     2133/B*
   MSP:NUM          734-DATA     878/STW     1355/CW      2067/LW      2125/STW     2144/CW
   MST:C           2086/D       2093-EQU     2108/B*
   MST:INIT        1356/BCS     1367-EQU
   MST:NUM          733-DATA     884/STW     1377/LW      2068/CW      2103/STW     2123/CW      2131/LW
      2142/CW      2153/LW
   M2LOOP          1839-LW      1867/BIR
   N                802-COM
   NEG2MSK         1721-DATA
   NEW:CM           929/AND     1508/AND     1514/AND     1534-DATA    1958/AND
   NEW:MSK         1535-DATA
   NEW:MST         2060/STB     2078/LCF     2096/STW     2111-DATA    2117/STW     2139/STW
   NEXT:MOD        2215-STW     2222/BIR
   NO:GEN           999-LW
   NOCI            1389/BCR     1391/BCS     1404-LW
   NODEV           1917/#TYPE   1924-TEXTCS
   NOT:EM2         1180/BCS     1182/BCS     1188/BCS     1199/BCS     1202-LB      1213/BCR
   OBS:IDLA        1205/LW      1245-EQU
   OBSEXT          1217/LW      1268-EQU
   ONE             1695/AND     2402-DATA
   ONES            1443/EOR     1938/EOR     1986/EOR     2166/EOR     2206/EOR     2380/EOR     2410-DATA
   OUT:MOD         1850/BCS     1860-#PRINT
   OUT:0X34        1758-EQU     1833/CW      1863/LI
   OUT:1X78        1763-EQU     1849/CW      1865/LI
   OUTBUF          1332/#PRINT  1561/STW     1565/STW     1570/STB     1796/STW     1798/STW     1800/STW
      1802/STW     1804/STW     1807/STW     1808/STW     1812/STW     1814/STB     1816/#PRINT  1825/STW
      1836/STW     1838/STW     1840/STW     1841/STW     1845/STW     1846/STW     1848/STB     1852/STW
      1856/STW     1857/STW     1859/STB     1860/#PRINT  2350/STW     2369/STW     2371/STW     2387/STW
      2389/STB     2390/#TYPE   2403-RES
   PAR:ERR         2313/STW     2314/#PRINT  2320-TEXTCS
   PARA:SET         874-LW
   PAR1:LJ         2329/BCS     2337-LI      2342/BIR
   PASS:CNT         886/STW     1370/LW      1387/LW      1417/LW      1426/LW      1428/STW     1493-DATA
      1606/LW      2170/STW
   PASS:ERR        1303/STW     1384/LW      1413/STW     1723-DATA
   PASS:LIM        1407/CW      1494-DATA
   PASS:OK          909/STW     1404/LW      1406/STW     1492-DATA    1518/STW
   PLINEIN          743/DATA    1893/CW      1914/#ETHCON 1920/LW      1927/#ETHCON 1932/LW
      1937/#ETHCON 1941/LW      1948/#ETHCON 1963/LW      1973/#ETHCON 1990/LW      2000/#ETHCON 2011/LW
      2018/#ETHCON 2028/LW      2062/CW      2097/#ETHCON 2104/LW      2118/#ETHCON 2126/LW
      2140/#ETHCON 2147/LW      2164/#ETHCON 2173/LW      2887-RES
   PRIV:MSK        1057/AND     1060/AND     1082-DATA
   PRNT:MOD        1816-#PRINT
   PROGTEXT        2597-TEXTCS  6500/GEN
   PSW1            1026/LW      1028/STW     1050/LW      1055/STW     1137/LPSD    1282/DATA    2415-PZE
   PSW1SAV         1283/DATA    2417-DATA
   PSW2             999/LW      1002/STW     1292/DATA    2416-PZE
   PSW2SAV         1293/DATA    2418-DATA
   PTR:ADV          966-EQU
   READSTAT        2842/E       2892-BAL
   RES:SAV         1148/STW     1157/STW     1163/STW     1165/STW     1192/AI      1195/LW      1230/CW
      1234/LW      1250/D       1251/D       1254/D       1260/D       1269/DATA    1270/DATA    1683/AI
      6511-EQU
   RESTART         2080/DATA    2083-DATA
   RETURN           834/XPSD     839/XPSD     840/XPSD     841/XPSD     842/XPSD     843/XPSD     844/XPSD
       845/XPSD     846/XPSD     847/XPSD     848/XPSD     849/XPSD     850/XPSD     851/XPSD     852/XPSD
       853/XPSD     854/XPSD     855/XPSD     857/XPSD     859-DATA    1141/BCS     1143/XPSD    1194/LI
      1198/CI      1248/D       1249/D       1258/D
   RHT:PTR         1739-EQU     1851/LW
   RM%EXPL         2650-TEXTCS  2859/Z
   RSAV             991/STW     1133/LW      1285/DATA    1751-DATA
   RSAV1            992/STW     1134/LW      1289/DATA    1752-DATA
   S%EXPL          2656-EQU     2849/Z
   S:INT            459/ERROR    506/SET      515/SET      524/ERROR    527/ERROR    531/SET      533/SET
       541/DO
   S:PT               3/EQU
   S:RAD            524/ERROR    531/SET      569/ERROR
   S:UFV            524/ERROR    569/ERROR   2899/SET     2917/SET     2919/SET     2921/SET     2923/SET
      2925/SET     2927/SET
   SAMPLE          1090-EQU     1112/BAL
   SAV:RES          963/BAL     1162-EQU
   SDAT            1088-DATA    1091/MTW     1095/STW
   SEQ:EM          1976/BL      1985-STW
   SEQ:MAR         1950/BL      1957-RD
   SET:IDX         1036/BNE     1043/B       1050-LW
   SET:MCR         2143/BCS     2145/BCS     2150-LW
   SF001           3089-MODULE
   SF002           3095-MODULE
   SF003           3101-MODULE
   SF004           3107-MODULE
   SF005           3113-MODULE
   SF006           3119-MODULE
   SF007           3125-MODULE
   SF008           3131-MODULE
   SF009           3137-MODULE
   SF01            3364-MODULE
   SF010           3143-MODULE
   SF011           3149-MODULE
   SF012           3155-MODULE
   SF013           3161-MODULE
   SF014           3167-MODULE
   SF015           3173-MODULE
   SF016           3179-MODULE
   SF017           3183-MODULE
   SF018           3192-MODULE
   SF019           3198-MODULE
   SF02            3376-MODULE
   SF020           3203-MODULE
   SF021           3209-MODULE
   SF022           3214-MODULE
   SF023           3219-MODULE
   SF024           3224-MODULE
   SF025           3229-MODULE
   SF026           3234-MODULE
   SF027           3239-MODULE
   SF028           3244-MODULE
   SF029           3249-MODULE
   SF03            3388-MODULE
   SF030           3254-MODULE
   SF031           3259-MODULE
   SF032           3264-MODULE
   SF033           3269-MODULE
   SF034           3276-MODULE
   SF035           3281-MODULE
   SF036           3286-MODULE
   SF037           3291-MODULE
   SF038           3296-MODULE
   SF039           3301-MODULE
   SF04            3400-MODULE
   SF040           3306-MODULE
   SF041           3311-MODULE
   SF042           3316-MODULE
   SF043           3321-MODULE
   SF044           3326-MODULE
   SF045           3331-MODULE
   SF046           3336-MODULE
   SF047           3341-MODULE
   SF048           3346-MODULE
   SF049           3351-MODULE
   SF05            3412-MODULE
   SF050           3358-MODULE
   SF06            3424-MODULE
   SF07            3436-MODULE
   SF08            3448-MODULE
   SF09            3460-MODULE
   SF10            3472-MODULE
   SF11            3484-MODULE
   SF12            3496-MODULE
   SF13            3508-MODULE
   SF14            3520-MODULE
   SF15            3532-MODULE
   SF16            3544-MODULE
   SF17            3556-MODULE
   SF18            3568-MODULE
   SF19            3580-MODULE
   SF20            3592-MODULE
   SF21            3604-MODULE
   SF22            3616-MODULE
   SF23            3628-MODULE
   SHORTA          1102-LI      1242/BCS
   SHORTL          1125-LI      1147/BCS
   SI               934/STW     1368/LW      1371/AW      1940/STW     1945-DATA
   SI:C            1906/D       1936-EQU
   SPACES          1380/LW      1446/LW      1688/LW      1716/LW      1803/LW      1810/LW      1824/LW
      2275/LW      2349/LW      2400-DATA
   SPEC:R1         1232/LW      1260-D
   START            942/DATA     955-EQU     2083/DATA
   STAT%EXPL       2598-TEXTCS  2844/Z
   STATEXIT        2232/STW     2292/B*      2294-DATA
   STATMSGS        1375/BAL     2231-EQU     2233/STW     2234/STW     2290/LW      2291/LW      2892/BAL
   SYNTAX%EXPL     2612-TEXTCS             2838.1/Z
   TABLE3           742/DATA    2834-EQU
   TABLE3END       2881-DATA
   TEXTCS           641-CNAME
   THREE           1616/AND     1635-DATA
   THRU:TXT        2370/LW      2394-TEXT
   TIC             2025/LI      2033-J       2035/D
   TITLE              3-EQU      435/TITLE   2597/TEXTCS
   TOO:FAR         2373/STB     2379/LB      2393-DATA
   TOT:ERRS         916/STW      946-DATA    1307/LW      1309/STW     2270/#HTECON
   TRAP:FLG         990/STW     1037/STW     1079-DATA    1181/LW
   TRAP:IDX        1068/STW     1081-DATA    1168/LW
   TRAP:SAV         875/STW     1067/STW     1080-DATA    1169/LW
   TRAP:SW          961/BAL     1031-EQU     1104/BAL
   TXT:PTR         1710-TEXT    1835/LW
   TXTP1           2310/LW      2317-TEXT
   TXTP2           2312/LW      2318-TEXT
   VALBIT           717-DATA
   VALDEX           721-EQU
   VALTYPE          725-EQU
   VERSION          1.1-EQU        3/EQU
   VM:CM           1409/BAL     1497-EQU
   VM:MSK          1502/AND     1537-DATA
   WRD:CNT         1330/STW     1567/CW      1651-DATA
   X40C3           1499/CW      1533-DATA
   Z                804-COM
   #BRKOUT          681-EQU
   #BTE%            692-EQU
   #DIAG@           744-GEN
   #DISUSER%        693-EQU     1305/BAL*    2237/BAL*
   #DM%END          683-EQU
   #DM%START        682-EQU
   #DMENTRY%        707-EQU
   #ENUSER%         694-EQU     1344/BAL*    2289/BAL*
   #ERRTEXT%        702-EQU     1338/STW*    2239/STW*
   #ERR1PTR%        705-EQU
   #ETH%            540/BAL*     690-EQU
   #ETHCON          503-CNAME
   #FIDLE%          697-EQU     1889/BCR*    1899/B*      2057/BCR*    2079/BAL*    2227/B*      2315/B*
      2344/B*      2391/B*
   #GUIDE%          696-EQU     6499/BAL*
   #HDRFLG          660-EQU      910/STW     1321/CW      1336/STW     2240/LW      2288/STW
   #HTE%            466/BAL*     691-EQU
   #HTECON          456-CNAME
   #INDEX           668-EQU
   #INITIAL@        741-DATA
   #LOADER@         745-DATA    6498/STW
   #LOADFLAG        661-EQU      871/LC
   #MAXMEM          679-EQU
   #MTLFLAG         662-EQU
   #OUTPTR          666-EQU
   #P%MODE%         708-EQU
   #PAKDEX          667-EQU
   #PARAM%H1        669-EQU     2186/LW      2202/LW
   #PARAM%H2        670-EQU     2190/LW
   #PARAM%H3        671-EQU
   #PARAM%H4        672-EQU
   #PARAM1          675-EQU     2326/LW      2328/LW      2334/STW
   #PARAM2          676-EQU
   #PARAM3          677-EQU
   #PARAM4          678-EQU
   #PASS           2899-SET     2899/SET     2901/DO      2946/DO      2973/DO
   #PLINEIN@        743-DATA
   #PRINT           553-CNAME
   #PRINTER%        553/CNAME    701-EQU
   #PRTADDR         664-EQU      893/#HTECON 1919/STW
   #RETURN%         699-EQU     2893/B*
   #RUNADDR%        698-EQU     1325/XPSD*   1334/XPSD*   1343/XPSD*   1423/XPSD*   1818/XPSD*   1862/XPSD*
      2278/LW*
   #SAMPLE%         680-EQU     1093/XPSD*
   #SENSE           659-EQU     1146/LC      1241/LC      1318/LC      1340/LC
   #STATUS          674-EQU
   #TABLE1A         658-ORG
   #TABLE1B         689-ORG
   #TABLE2@         740-ORG
   #TABLE3@         742-DATA
   #TESTINIT        673-EQU      938/LC
   #TOADDR          663-EQU      897/#HTECON 1931/STW
   #TYPE            554-CNAME
   #TYPER%          554/CNAME    700-EQU
   #VALTAB%         706-EQU
