1 C00   21:58 JUN 20,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   21:58 JUN 20,'83    SIGMA 5/7 REAL-TIME CLOCK TEST   704017-11/51F00   AUG. 11,70         PAGE    2
A       1                             TITLE 'SIGMA 5/7 REAL-TIME CLOCK TEST   704017-11/51F00   AUG. 11,70'
        2                            *
        3                            *
        4                            *
        5                            * PROGRAM NUMBER 704017             MANUAL NUMBER 901136
        6                            *
        7                            *
        8                                     SYSTEM   SIG7FDP
        9                            *****
       10                            *****
       11                            *****
       12                            * PROGRAM OBJECTIVES:
       13                            *
       14                            *  RTC IS DESIGNED TO REPORT THE STATUS OF THE COUNTER PULSE INTERRUPT
       15                            * (CPI) AND COUNTER EQUAL ZERO INTERRUPT (CEZI) LEVELS WITHOUT ANY
       16                            *  MANUAL INTERVENTION.
       17                            *****
       18                            *****
       19                            *****
       20                            *****
       21                            * PROGRAM MODIFICATIONS:
       22                            *
       23                            * REVISION F00 (7/28/70) CHANGES INDICATED IN COLUMNS 69 - 72 BY -- *F00
       24                            *  PROGRAM UPDATED BY THE ADDITION OF TESTS TO CHECK THE MAPPING    *F00
       25                            *  FEATURE OF COUNT PULSE 4 INTERRUPT (LOCATION X'55').  THIS       *F00
       26                            *  CHANGE IS EFFECTIVE FOR REVISION 'Y' OF SIGMA 7 CPU FRAME 1 AND  *F00
       27                            *  REVISIONS 'T' AND 'U' OF SIGMA 7 FRAME 3.  (THESE CHANGES ARE    *F00
       28                            *  INCORPORATED IN FIELD MOD KIT NO. 181254)                        *F00
       29                            *                                                                   *F00
       30                            * NOTES: 1. SIGMA 5 COMPUTER - NO FUNCTIONAL CHANGE IN PROGRAM      *F00
       31                            *           OPERATION.                                              *F00
       32                            *                                                                   *F00
       33                            *        2. SIGMA 7 COMPUTER WITHOUT MAP OPTION - NO FUNCTIONAL     *F00
       34                            *           CHANGE IN PROGRAM OPERATION.  PROGRAM WILL PRINT THE    *F00
       35                            *           MESSAGE 'MACHINE HAS NO MAPPING  MAP TEST OF CPI4       *F00
       36                            *           ABORTED'.                                               *F00
       37                            *                                                                   *F00
       38                            *        3. SIGMA 7 COMPUTER WITH MAP BUT WITHOUT FIELD MOD KIT     *F00
       39                            *           NO. 181254 - WILL PRINT MESSAGE ' CP4 INTERRUPT MAP     *F00
       40                            *           FEATURE NOT INSTALLED  IND. ADDRS MAPPING NOT OPERA-    *F00
       41                            *           TIONAL IN CPI4'.                                        *F00
       42                            *                                                                   *F00
       43                            *        4. SIGMA 7 COMPUTER WITH MAP AND FIELD MOD KIT NO. 181254 -*F00
       44                            *           SHOULD PRINT THE MESSAGES: 'CP4 INTERRUPT MAP FEATURE   *F00
       45                            *           INSTALLED  IND. ADDRS MAPPING OPERATIONAL IN CPI4';     *F00
       46                            *           'CPI4 MAP REPETITIVE TEST COMPLETE'.  ANY FAILURES WILL *F00
       47                            *           BE NOTED BY FAILURE MESSAGE.                            *F00
       48                            *
       49                            *
       50                            * REVISION E00 (11/07/69) CORRECTED ERROR IN SWITCH SETTINGS FOR      *E
       51                            * CONTROL OF FREQUENCY. COMPATIBILITY WITH 50 CPS LINE FREQUENCY.     *E
       52                            *
       53                            *
       54                            * REVISION D00 (7/03/69) DOCUMENTATION REFORMATTING CHANGE ONLY       *D
       55                            *
       56                            *
       57                            * REVISION C00 (4/16/69) PROGRAM CHANGES INDICATED IN COLS. 71+72 BY  *C
       58                            * PROGRAM REVISED TO CORRECT CLOCK FREQUENCY CONSTANTS AND REFERENCES *C
       59                            * FROM 512,2048 AND 8192CPS TO 500,2000 AND 8000CPS.                  *C
       60                            *
       61                            *
       62                            *  REVISION B :  COMPLETE REVISION OF THE PROGRAM. REMOVED FROM DCP
       63                            *   CONTROL AND AUTOMATED THE COMPUTATION OF IMPLEMENTED LEVELS AND
       64                            *   THEIR RESPECTIVE CLOCK FREQUENCIES.
       65                            *
       66                            *****
       67                            *****
       68                            *****
       69                            *****
       70                            * OPERATING REQUIREMENTS AND SPECIFICATIONS
       71                            *
       72                            *  REQUIRED EQUIPMENT:  SIGMA 5 (8201) OR 7 (8401)  COMPUTER  ANY EO LVL
       73                            *                       4K OF MEMORY  8251/ 8451       ANY EO LEVEL
       74                            *                       ASR OR KSR
       75                            *  OPTIONAL EQUIPMENT:  HIGH SPEED LINE PRINTER (7440/45)
       76                            *
       77                            *  PROGRAM PREREQUISTES:  THE FOLLOWING PROGRAM SHOULD HAVE RUN SUCCESS-
       78                            *                         FULLY - AUTO AND SUFFIX
       79                            *
       80                            *  CORE STORAGE - LOCATIONS X'26' THROUGH X'9FF'                    *F00
       81                            *
       82                                     OPEN     PAGE              THIS INHIBITS
       83         00000000           PAGE     CNAME                       PAGE
       84                                     PROC                         DIRECTIVE
       85                                     PEND                          TO PERMIT MAX. LINAGE/PAGE
       86                            *
       87                                     PAGE
       88                            *
       89                            *  RUN TIME - LESS THAN 2 MINUTES
       90                            *
       91                            *  PROGRAM MEDIA -  SELF-LOADING CARDS OR PAPER TAPE
       92                            *
       93                            *  SOURCE LANGUAGE- SIGMA 5/7 META-SYMBOL   PUBLICATION NO. 900952
       94                            *****
       95                            *****
       96                            *****
       97                            ****
       98                            * LOADING PROCEDURE :  ALL SENSE SWITCHES TO OFF. OTHER CONTROL PANEL
       99                            *    SWITCHES TO NORMAL POSITIONS. PERFORM A STANDARD LOAD - REFERENCE
      100                            *    SIGMA 5/7 RELOCATABLE LOADER  PUBLICATION NO. 900972 FOR INFOR-
      101                            *    MATION ON WAITS OR PROGRAM LOOPS.
      102                            *
      103                            *****
      104                            *****
      105                            *****
      106                            * OPERATING PROCEDURE:
      107                            *
      108                            *  CONTROL OPTIONS :
      109                            *     SWITCH      FUNTION                        EXERCISEABLE  OVERRIDES
      110                            *      SS1       LOOP ON CURRENT TEST SELECTION  / ANYTIME   /    -
      111                            *      SS2       NOT USED                        /    -      /    -
      112                            *      SS3       NOT USED                        /    -      /    -
      113                            *      SS 4       SUPPRESS PRINTING              / ANYTINE   /    -
      114                            *
      115                            *      CP INTR    SELECT MANUAL MODE OR AN       / ANYTIME-  / ALL
      116                            *                INDIVIDUAL TEST. DESCRIPTION    /    -
      117                            *                 CAN BE FOUND AT THE WAIT LOCA- /
      118                            *                 TION OF THE INTERRUPT          /
      119                                     PAGE
      120                            *****
      121                            *****
      122                            *****
      123                            *****
      124                            * TEST DIRECTIVES: NONE
      125                            *****
      126                            *****
      127                            *****
      128                            *****
      129                            * START-RESTART PROCEDURE:  IDLE - SYSTEM RESET AND RUN
      130                            *****
      131                            *****
      132                            *****
      133                            ****
      134                            * TERMINATION PROCEDURE:  IDLE AND CLEAR MEMORY
      135                                     PAGE
      136                            *****
      137                            *****
      138                            *****
      139                            ****
      140                            * SUCCESS/FAILURE INDICATIONS
      141                            *
      142                            *  WAITS: SIGNIFICANCE OF EACH WAIT AND ACTION TO BE TAKEN IS EXPLAINED
      143                            *         AT THE WAIT LOCATION IN THE LISTING
      144                            *****
      145                            *****
      146                            *****
      147                            *
      148                            *  MESSAGE PRINTOUTS: THERE ARE A NUMBER OF ERROR MESSAGES THAT ARE
      149                            *    SELF-EXPLANATORY. ALSO THERE IS THE FOLLOWING PRINTOUT FORMAT.
      150                            *
      151                            *    SIGMA 5/7 REAL TIME CLOCK TEST 704017-(*) MANUAL 901136-(*)      *E
      152                            *     LEVEL  WD -TRIGGER- CLK/=0   FREQUENCY
      153                            *     CPI1    NO              NO        0
      154                            *     CPI2    NO              NO        0
      155                            *     CPI3   YES             YES      2000                            *C
      156                            *     CPI4   YES             YES       512                            *C
      157                            *     CEZ1    NO              NO
      158                            *     CEZ2    NO              NO
      159                            *     CEZ3   YES             YES
      160                            *     CEZ4   YES             YES
      161                            *
      162                            *  EXPLANATION OF ABOVE : LEVEL = SPECIFIC INTERRUPT LEVEL
      163                            *                       : (*)   = LATEST REVISION LEVEL               *E
      164                            *
      165                            *   (WD - TRIGGER - CLK/=0 )  WD: WRITE DIRECT INST TRIGGERED THE LEVEL
      166                            *                                  (ANSWERED 'YES' OR 'NO')
      167                            *                             CLK/=0 : RTC TRIGGERED THE CPI'S OR
      168                            *                               COUNTER INTERRUPT LOCATION GOING TO
      169                            *                               ZERO TRIGGERED THE CEZI. (ANSWERED 'YES'
      170                            *                                OR 'NO')
      171                            *  FREQUENCY- MEASUREMENT IN RESPECT TO 500 CPS IF CPI4 IS FUNCTIONING*C
      172                                     PAGE
      173                            *****
      174                            ** SUCCESS INDICATIONS: NO PROGRAM WAITS
      175                            *                       NO ERROR MESSAGES
      176                            *                       PRINTOUT OF INTERRUPT LEVEL STATUS (WITHOUT ANY
      177                            *                       ERROR FLAGS-*-). USER SHOULD VERIFY THAT EACH
      178                            *                       FREQUENCY IS EXACT (REF ERROR CONDITION AND
      179                            *                       INDICATION NO. 8 ) AND EQUAL TO THE DESIRE
      180                            *                       SETTING. (REF. FAULT DICTIONARY FOR FREQUENCY
      181                            *                       SELECTION)
      182                            *
      183                            *****
      184                            *  ERROR CONDITIONS AND INDICATIONS :
      185                            *
      186                            * 1 / 500 CPS < 425 = 15 % VARIATION            / SPECIAL ERROR MSG   *E
      187                            * 2 / 500 CPS > 575 = 15 % VARIATION            / SPECIAL ERROR MSG   *E
      188                            * 3 / CPI1 (  3 IF 1 IS NOT IMPLEMENTED ) INTER-/ SPECIAL ERROR MSG
      189                            *   /   RUPTED WHEN NO ENABLED OR DID NOT INTER-/
      190                            *   /   RUPT AFTER ENABLE                       /
      191                            * 4 / CEZI TRIGGERED BEFORE COUNT =0 OR BY WRONG/ SPECIAL ERROR MSG
      192                            *   /   CPI LOCATION REACHING 0                 /
      193                            * 5 / CLOCK AND WD AFFECT SAME LEVEL DIFFERENTLY/ * ERROR - FOR LEVEL
      194                            * 6 / PAIR OF LEVELS AFFECTED DIFFERENTLY       / * ERROR - BOTH LEVELS
      195                            * 7 / FREQUENCY ON FIRST PASS NOT EQUAL TO SUB- / * ERROR - FOR LEVEL
      196                            *   /   SEQUENT COMPUTATIONS                    /
      197                            * 8 / FREQUENCIES 500, 2000 AND 8000 CPS SHOULD/ USER MUST VERIFY     *C
      198                            *   /  BE PLUS OR MINUS ZERO. ANY DEVIATION IS  / PRINTED FREQUENCY.
      199                            *   /  AN ERROR. THE 60 CPS (50 CPS) MUST BE    / NOTE THAT 500, 2000 *E
      200                            *   /  +3,-3 FROM THE ACTUAL LINE FREQUENCY     / AND 8000 ARE ALL DE-*E
      201                            *                                               / RIVED FROM THE 1MC
      202                            *                                               / CLOCK (1.024 MC)
      203                                     PAGE
      204                            **  SAMPLE ERROR PRINTOUT AND ANALYSIS
      205                            * ------------------------------------------------------LINE NO.
      206                            * /--------------------------------------------------/   1
      207                            * / SIGMA 5/7 REAL TIME CLOCK TEST..... 901136-B     /   2
      208                            * /  LEVEL  WD -TRIGGER- CLK/=0   FREQUENCY          /   3
      209                            * /  CPI1   YES              NO        0 * ERROR     /   4
      210                            * /  CPI2   YES             YES     2000 * ERROR     /   5            *C
      211                            * /  CPI3   YES             YES      500             /   6            *C
      212                            * /  CPI4   YES             YES      500             /   7            *C
      213                            * /  CEZ1   YES              NO          * ERROR     /   8
      214                            * /  CEZ2   YES             YES          * ERROR     /   9
      215                            * /  CEZ3   YES             YES                      /  10
      216                            * /  CEZ4   YES             YES                      /  11
      217                            * ----------------------------------------------------
      218                            *
      219                            *   LINE 4 IS IN ERROR BECAUSE THE WRITE DIRECT INST TRIGGERED AN
      220                            *         INTERRUT AND THE CLOCK DID NOT. THEREFORE FREQUENCY =0
      221                            *
      222                            *   LINE 5 INDICATES AN ERROR BECAUSE CPI1 AND CPI2 REACTED DIFFERENTLY
      223                            *         TO THE CLOCK  TRIGGER. IN THIS CASE CPI1 IS IN ERROR CPI2= OK
      224                            *
      225                            *   LINE 8 INDICATES AN ERROR BECAUSE THE WD INST AND THE COUNTER LOCA-
      226                            *         TION EQUAL 0 REACTED DIFFERENTLY, DUE TO ERROR ON LINE 4
      227                            *
      228                            *   LINE 9 INDICATES AN ERROR BECAUSE CEZ1 AND CEZ2 REACTED DIFFERENTLY
      229                            *         TO THE =0 INPUT. AGAIN DUE TO LINE 4 BEING IN ERROR.
      230                            *
      231                            *   ANALYSIS: SINCE ALL ERROR LINES CAN BE TRACED BACK TO LINE 4
      232                            *         THE INVESTIGATION SHOULD CENTER ON WHETHER OR NOT CPI1
      233                            *         HAS A CLOCK INPUT (CHECK SWITCH SETTINGS - SWITCH TO A KNOWN
      234                            *         GOOD FREQUENCY - SEE FAULT DICTIONARY FOR SWITCH ASSIGNMENTS).
      235                            *         IF CLOCK INPUT IS AVAILABLE FAULT COULD BE CPUL1 FLIP FLOP
      236                            *         OR INTERRUPT MODULE.
      237                                     PAGE
      238                            *** FAULT DICTIONARY:
      239                            **   THE FOLLOWING LOGIC SIGNALS AND MODULE LOCATIONS AND CHART SHOULD
      240                            *   BE OF AID IN RAPIDLY FINDING FAULTS
      241                            ***
      242                            ***
      243                            **   SWITCH ASSIGNMENTS FOR  CLOCK INPUT SELECTION
      244                            **
      245                            **   CPI4 (S/CPUL4) IS ALWAYS 500 CPS - HARDWIRED                     *C
      246                            **
      247                            **   SWITCH MODULE:  SIGMA 5 - 03K
      248                            **                   SIGMA 7 - 24W
      249                            ** ///////////////////////////////////////
      250                            ** / CPI1 (S/CPUL1) / S12--S13--S14--S15 / << CPI1 SWS
      251                            ** / CPI2 (S/CPUL2) / S7---S8---S9---S10 / << CPI2 SWS
      252                            ** / CPI3 (S/CPUL3) / S2---S3---S4---S5  / << CPI3 SWS
      253                            ** / ------------------------------------/          OTHER SWITCH SETT-
      254                            ** /        LINE    /  1 -- 0 -- 0 --  0 /  **      INGS ARE POSS. BUT*E
      255                            ** /        500     /  0 -- 1 -- 0 --  0 /    *     THESE SETTINGS IN-*E
      256                            ** /        2KC     /  0 -- 0 -- 1 --  0 /     **>> SURE THAT THE ONLY*E
      257                            ** /        8KC     /  0 -- 0 -- 0 --  1 /     **   INTERFERENCE WITHA*E
      258                            ** /        EXT.    /  0 -- 0 -- 0 --  0 /    *     CLOCK WOULD BE FROM
      259                            ** /-------------------------------------/  **      THE EXTERNAL FREQ.
      260                            **   0= OFF  1= ON
      261                            ** EXAMPLE: SET FREQUENCY FOR CPI2 TO 2KC.
      262                            **            CPI2 INPUT IS CONTROLLED BY  S7, S8, S9 AND S10
      263                            **            2KC  INDICATES S7=0, S8=1, S9=0 AND S10 =0
      264                                     PAGE
      265                            *       SIGNAL / MODULE LOCATION AND PIN /     FUNCTION
      266                            *              /  SIGMA 5  /  SIGMA 7    /
      267                            *       CPUL1  /  02K46    /  30W46      / CPI1 LATCH FOR CLOCK INPUT
      268                            *       CPUL2  /  02K29    /  30W29      / CPI2 LATCH FOR CLOCK INPUT
      269                            *       CPUL3  /  02K20    /  30W20      / CPI3 LATCH FOR CLOCK INPUT
      270                            *       CPUL4  /  02K01    /  30W01      / CPI4 LATCH FOR CLOCK INPUT
      271                            *       IS2    /  26R10    /  15W10      / CPI1  TRIGGER FF
      272                            *       IN2    /  26R30    /  15W30      / CPI1  ENABLE  FF
      273                            *       IP2    /  26R02    /  15W02      / CPI1  ARM     FF
      274                            *       IS3    /  26R13    /  15W13      / CPI2  TRIGGER FF
      275                            *       IN3    /  26R31    /  15W31      / CPI2  ENABLE  FF
      276                            *       IP3    /  26R21    /  15W21      / CPI2  ARM     FF
      277                            *       IS4    /  27R10    /  16W10      / CPI3  TRIGGER FF
      278                            *       IN4    /  27R30    /  16W30      / CPI3  ENABLE  FF
      279                            *       IP4    /  27R02    /  16W02      / CPI3  ARM     FF
      280                            *       IS5    /  27R13    /  16W13      / CPI4  TRIGGER FF
      281                            *       IN5    /  27R31    /  16W31      / CPI4  ENABLE  FF
      282                            *       IP5    /  27R21    /  16W21      / CPI4  ARM     FF
      283                            *       IS8    /  29R10    /  20W10      / CEZ1  TRIGGER FF
      284                            *       IN8    /  29R30    /  20W30      / CEZ1  ENABLE  FF
      285                            *       IP8    /  29R02    /  20W02      / CEZ1  ARM     FF
      286                            *       IS9    /  29R13    /  20W13      / CEZ2  TRIGGER FF
      287                            *       IN9    /  29R31    /  20W31      / CEZ2  ENABLE  FF
      288                            *       IP9    /  29R21    /  20W21      / CEZ2  ARM     FF
      289                            *       IS10   /  30R10    /  21W10      / CEZ3  TRIGGER FF
      290                            *       IN10   /  30R30    /  21W30      / CEZ3  ENABLE  FF
      291                            *       IP10   /  30R02    /  21W02      / CEZ3  ARM     FF
      292                            *       IS11   /  30R13    /  21W13      / CEZ4  TRIGGER FF
      293                            *       IN11   /  30R31    /  21W31      / CEZ4  ENABLE  FF
      294                            *       IP11   /  30R21    /  21W21      / CEZ4  ARM     FF
      295                            **
      296                            ** SEE NEXT PAGE FOR SIGNALS COMMON TO THE CLOCK LOGIC
      297                                     PAGE
      298                            *       SIGNAL / MODULE LOCATION AND PIN /     FUNCTION
      299                            *              /  SIGMA 5  /  SIGMA 7    /
      300                            *       1MC    /  01K36    /  05W36      / 1.024 MC CLOCK
      301                            *       500CPS /  02K02    /  30W02      / 500 CPS CLOCK              *C
      302                            *       2KC    /  02K18    /  30W18      /2000 CPS CLOCK              *C
      303                            *       8KC    /  02K42    /  30W42      /8000 CPS CLOCK              *C
      304                            *                          /             /
      305                            *       SR8    /  25S33    /  19W45      / INPUT TO CEZ1 WHEN CNTR =0
      306                            *       SR9    /  25S34    /  19W44      / INPUT TO CEZ2 WHEN CNTR =0
      307                            *       SR10   /  25S14    /  19W46      / INPUT TO CEZ3 WHEN CNTR =0
      308                            *       SR11   /  25S15    /  19W47      / INPUT TO CEZ4 WHEN CNTR =0
      309                            *                          /             /
      310                            *   CNTZREQ    /  07R35 &  /  32U30 -NS  / CNTR =0 AND FAMT.INTRAP
      311                            *              /  10S11       18B12      /
      312                            *   CNTZREQ/1  /  12C36        ---       / FAMT.PH2.INTRAP
      313                            *       OF     /   -----   /  11W03      / CNTR S0
      314                            *       IJ8    /   ----    /  11W18      / SR8  = IJ8 . OF
      315                            *       IJ9    /   ----    /  11W30      / SR9  = IJ9 . OF
      316                            *       IJ10   /   ----    /  11W24      / SR10 = IJ10. OF
      317                            *       IJ11   /   -----   /  11W42      / SR11 = IJ11. OF
      318                                     PAGE
      319   01 00040                          ORG      X'40'
            01 00040
      320                            * TRAP LOCATIONS WILL GO TO AN ERROR WAIT IF TRAP IS UNEXPECTED
      321   01 00040    0F000170              XPSD,0   TRAP
      322   01 00041    0F000170              XPSD,0   TRAP
      323   01 00042    0F000170              XPSD,0   TRAP
      324   01 00043    0F000170              XPSD,0   TRAP
      325   01 00044    0F000170              XPSD,0   TRAP
      326   01 00045    0F000170              XPSD,0   TRAP
      327   01 00046    0F000170              XPSD,0   TRAP
      328   01 00047    0F000170              XPSD,0   TRAP
      329   01 00048    0F000170              XPSD,0   TRAP
      330   01 00049    0F000170              XPSD,0   TRAP
      331   01 0004A    0F000170              XPSD,0   TRAP
      332   01 0004B    0F000170              XPSD,0   TRAP
      333   01 00052                          ORG      X'52'
            01 00052
      334                            * COUNTER PULSE INTERRUPT LOCATIONS
      335   01 00052    33100198              MTW,1    CPI1
      336   01 00053    33100199              MTW,1    CPI2
      337   01 00054    3310019A              MTW,1    CPI3
      338   01 00055    3310019B              MTW,1    CPI4
      339                            * MEMORY PARITY INTERRUPT
      340   01 00056    0F0003B0              XPSD,0   PARITY
      341   01 00057    0F000170              XPSD,0   TRAP
      342                            * COUNTER EQUAL ZERO INTERRUPT LOCATIONS
      343   01 00058    0F0001DA              XPSD,0   CEZI1
      344   01 00059    0F0001E8              XPSD,0   CEZI2
      345   01 0005A    0F0001F6              XPSD,0   CEZI3
      346   01 0005B    0F000204              XPSD,0   CEZI4
      347   01 0005C    0F000170              XPSD,0   TRAP
      348   01 0005D    0F0003BA              XPSD,0   CPINTA
      349   01 000FF                          ORG      X'FF'
            01 000FF
      350                                     PAGE
      351   01 000FF    68000100     REPLAY   B        START
      352   01 00100    321000FF     START    LW,1     REPLAY            RESTART INSTRUCTION TO BE STORED-
      353   01 00101    35100026 A            STW,1    X'26'               TO ENABLE CPU RESET AND RUN
      354   01 00102    22000000 A            LI,0     0
      355   01 00103    35000422              STW,0    PASS              INITIALIZE PASS COUNT
      356   01 00104    22200064 A            LI,2     100               LOAD REGISTERS FOR EXECUTING A -
      357   01 00105    32300588              LW,3     =X'01000100'       CBS INSTRUCTION
      358                            * DETERMINE THE COMPUTER TYPE
      359   01 00106    60200000 A   CBSTRAP  CBS,2    0                 SHOULD TRAP ON A SIGMA 5
      360   01 00107    3220017F              LW,2     SIG7VAL           DATA USED FOR SIGMA 7 TIMING
      361   01 00108    6800010A              B        %+2
      362   01 00109    3220017E     CBSRET   LW,2     SIG5VAL           DATA USED FOR SIGMA 5 TIMING
      363   01 0010A    35200180              STW,2    VALUE             UTILIZED IN VERIFYING 500 HZ CLOCK
      364   01 0010B    6AF004AD              BAL,15   MAPTST            DETERMINE IF MACHINE HAS MAP    *F00
      365   01 0010C    6800010E              B        %+2                 NO MAP                        *F00
      366   01 0010D    6AF00438              BAL,15   CNT4:T              COUNTER 4 INTERRUPT TEST      *F00
      367                            * INITIALIZE CONSTANTS
      368   01 0010E    02300000 A   NEWPASS  LCFI     0                 CLEAR CONDITION CODE
      369   01 0010F    2A000181              LM,0     ZEROTAB           LOAD ALL REGISTERS WITH ZEROES
      370   01 00110    2B000198              STM,0    TABLE1            CLEAR ENTRIES IN TABLE
      371   01 00111    2B0001A8              STM,0    TABLE2            CLEAR ENTRIES IN TABLE
      372   01 00112    2B0001B8              STM,0    TABLE3            CLEAR ERROR TABLE
      373   01 00113    22500810 A            LI,5     X'0810'           BITS FOR MEMORY PARITY AND CP INTR
      374   01 00114    ED500192              WD,5     *ARMENAB          ARM AND ENABLE SELECTED INTERRUPTS
      375                                     PAGE
      376                            * CLEAR PENDING INTERRUPTS DUE TO CPUL1-4 BEING SET
      377   01 00115    2250F000 A   TEST1    LI,5     X'F000'           CPI 1-4 INTERRUPT LEVELS
      378   01 00116    ED500193              WD,5     *ARMDISAB         ARM AND DISABLE CPI 1-4
      379   01 00117    ED500191              WD,5     *DISARM           CLEARS TRIGGER
      380                            * DETERMINE IMPLEMENTED INTERRUPTS.
      381   01 00118    22603A98 A            LI,6     15000             DELAY CONSTANT                    *E
      382   01 00119    ED500192              WD,5     *ARMENAB
      383   01 0011A    6460011A              BDR,6    %                 DELAY IN CASE OF 60 CPS
      384   01 0011B    ED500195              WD,5     *DISABLE          PREVENT FURTHER INTERRUPTS
      385   01 0011C    22E00000 A            LI,14    0
      386   01 0011D    22600004 A            LI,6     4
      387   01 0011E    31EC0197     CHKCNTRT CW,14    CPI1-1,6          CHECK FOR TRIGGER BY COUNTER
      388   01 0011F    683001C8              BE       NOTRIGP           GO IF INTERRUPT DID NOT OCCUR
      389   01 00120    6460011E     RECHK    BDR,6    CHKCNTRT
      390   01 00121    6C000000 A            RD,0     0
      391   01 00122    69800115              BCS,8    TEST1             LOOP IF SS 1
      392                            * INSURE THAT CEZI 1-4 CAN BE TRIGGERED.
      393                            * INTERRUPT ROUTINE WILL UPDATE TABLE
      394   01 00123    228003C0 A   TEST2    LI,8     X'3C0'            CEZI REGISTER BITS
      395   01 00124    ED800192              WD,8     *ARMENAB
      396   01 00125    ED800197              WD,8     *TRIGGER
      397   01 00126    02000000 A            NOP                        ALLOW INTERRUPT TO OCCUR
      398   01 00127    6C000000 A            RD,0     0
      399   01 00128    69800123              BCS,8    TEST2             LOOP IF SS 1
      400                                     PAGE
      401                            * UTILIZE CPI LOCATION GOING TO ZERO TO CHECK CEZI TRIGGER INPUT
      402                            * INTERRUPT ROUTINE WILL UPDATE TABLE
      403                            * A TEST IS ALSO MADE TO INSURE THE CPI LOCATION ACTUALLY WENT TO ZERO
      404   01 00129    22CFFFFD A   TEST3    LI,12    -3
      405   01 0012A    228003C0 A            LI,8     X'3C0'            CEZI LEVELS
      406   01 0012B    ED800192              WD,8     *ARMENAB
      407   01 0012C    22600004 A            LI,6     4                 ITERATIONS
      408   01 0012D    35CC0197              STW,12   CPI1-1,6          NEGATIVE NUMBER INTO CPI  LOCS
      409   01 0012E    6460012D              BDR,6    %-1
      410   01 0012F    22400004 A            LI,4     4                 INDEX
      411   01 00130    22501000 A   LOOPH    LI,5     X'1000'           CPI4
      412   01 00131    ED500194              WD,5     *ENABLE           ENABLE CPI 1-4
      413   01 00132    2260AFC8 A            LI,6     45000             DELAY FOR THREE 60 (50) CPS INTRP *E
      414   01 00133    64600133              BDR,6    %                 ALLOW INTERRUPTS
      415   01 00134    ED500195              WD,5     *DISABLE
      416   01 00135    25500001 A            SLS,5    1                 NEXT CPI LEVEL
      417   01 00136    33880197              MTW,8    CPI1-1,4          INSURE LOCATION IS NOT ZERO
      418   01 00137    64400131              BDR,4    LOOPH+1           DO NEXT LEVEL
      419   01 00138    ED800195              WD,8     *DISABLE          CEZI 1-4
      420   01 00139    6C000000 A            RD,0     0
      421   01 0013A    69800129              BCS,8    TEST3             LOOP IF SS 1
      422                                     PAGE
      423                            * CHECK THAT CPI 1-4 CAN BE TRIGGERED BY A WD INSTRUCTION
      424                            * +3' WD'S ARE ISSUED. COUNTER LOCATIONS MUST BE INCREMENTED A MINUMUM
      425                            * OF 3 TIMES TO INSURE AT LEAST ONE WD TO TRIGGER CAUSED AN INTERRUPT
      426                            * FOUR INTERRUPTS COULD OCCUR
      427                            * CHECK ONE LEVEL AT A TIME
      428   01 0013B    228003C0 A   TEST4    LI,8     X'3C0'            CEZI LEVELS
      429   01 0013C    ED800192              WD,8     *ARMENAB
      430   01 0013D    22600004 A            LI,6     4
      431   01 0013E    22C00000 A            LI,12    0
      432   01 0013F    35CC0197              STW,12   CPI1-1,6          CLEAR CPI 1-4
      433   01 00140    6460013F              BDR,6    %-1
      434   01 00141    22501000 A            LI,5     X'1000'
      435   01 00142    ED500194     AGAIN    WD,5     *ENABLE           CURRENT CPI SELECTED BY R5
      436   01 00143    ED500197              WD,5     *TRIGGER
      437   01 00144    ED500197              WD,5     *TRIGGER
      438   01 00145    ED500197              WD,5     *TRIGGER
      439   01 00146    ED500195              WD,5     *DISABLE
      440   01 00147    25500001 A            SLS,5    1                 POSITION TO NEXT INTERRUPT LEVEL
      441   01 00148    21510000 A            CI,5     X'10000'
      442   01 00149    69300142              BNE      AGAIN             TEST THE NEXT LEVEL
      443   01 0014A    ED800191              WD,8     *DISARM           CEZI'S
      444   01 0014B    22600004 A            LI,6     4
      445   01 0014C    22CFFFFD A   TESTIT   LI,12    -3
      446   01 0014D    30CC0197              AW,12    CPI1-1,6
      447   01 0014E    691001CB              BLZ      NOTRIGWD          DID NOT TRIGGER THREE TIMES
      448   01 0014F    6460014C     REIT     BDR,6    TESTIT            CHECK THE NEXT LEVEL
      449   01 00150    6C000000 A            RD,0     0
      450   01 00151    6980013B              BCS,8    TEST4             LOOP IF SS 1
      451                                     PAGE
      452                            * CLEAR COUNTER LOCATIONS
      453   01 00152    22400004 A   TEST5    LI,4     4                 INDEX
      454   01 00153    22C00000 A            LI,12    0                 DATA
      455   01 00154    35C80197              STW,12   CPI1-1,4          CLEAR COUNTER LOCATIONS
      456   01 00155    64400154              BDR,4    %-1               REDUCE INDEX
      457                            * CHECK THAT THE CPI1,OR CPI3 IF CPI1 IS NOT THERE, WILL NOT INTERRUPT
      458                            * UNTIL IT IS ENABLED.
      459   01 00156    22508000 A            LI,5     X'8000'           CPI1
      460   01 00157    22400001 A            LI,4     1                 INDEX FOR CPI1
      461   01 00158    326001A8              LW,6     NIMPCPW1          0= INSTALLED IN RESPECT TO WD
      462   01 00159    6830015E              BEZ      NINTRDIS          CPI4 IS
      463   01 0015A    326001AA              LW,6     NIMPCPW3          0= INSTALLED
      464   01 0015B    6930016B              BNEZ     FREQAVAL          NEITHER CPI1 NOR CPI3 IS WORKING
      465   01 0015C    22400003 A            LI,4     3                 INDEX FOR CPI3
      466   01 0015D    22502000 A            LI,5     X'2000'           CPI3
      467   01 0015E    ED500193     NINTRDIS WD,5     *ARMDISAB
      468   01 0015F    ED500197              WD,5     *TRIGGER
      469   01 00160    02000000 A            NOP
      470   01 00161    32680197              LW,6     CPI1-1,4          CHECK COUNTER LOCATION
      471   01 00162    69300169              BNEZ     ARMDISER          ERROR - INTERRUPTED WHEN NOT ENABLED
      472   01 00163    ED500194              WD,5     *ENABLE           INTERRUPT SHOULD OCCUR
      473   01 00164    ED500195              WD,5     *DISABLE          BLOCK FURTHER INTERRUPTS
      474   01 00165    32680197              LW,6     CPI1-1,4          CHECK THAT INTERRUPT OCCURRED
      475   01 00166    6930016B              BNEZ     FREQAVAL          INTERRUPT OCCURRED AS EXPECTED
      476   01 00167    32000590              LW,0     =DA(CDWNINTR)     MESSAGE THAT INTR DID NOT OCCUR -
      477   01 00168    6800016A              B        %+2                  WHEN EXPECTED
      478   01 00169    32000591     ARMDISER LW,0     =DA(CDWINTR)      MESSAGE THAT INTR OCCURRED WHEN NOT
      479   01 0016A    0F00030E              XPSD,0   PRINT             EXPECTED
      480   01 0016B    6C000000 A   FREQAVAL RD,0     0                 READ SENSE SWITCHES
      481   01 0016C    69800152              BCS,8    TEST5             LOOP IF SS 1
      482                                     PAGE
      483                            * IF COUNTER 4 INTERRUPT IS OPERATIONAL VERIFY THE FREQUENCY
      484                            * IF FREQUENCY IS OUT OF SPEC OR CP4 IS NOT OPERATIONAL REPORT IMPLEMEN-
      485                            * TED INTERRUPTS ETC.
      486   01 0016D    324001B3              LW,4     NIMPCPC4           0 IF OPERATIONAL, -1 IF NOT
      487   01 0016E    68300212              BEZ      FREQ500           CHECK FOR 500 CPS
      488   01 0016F    6800025C              B        NINSPEC           COUNTER 4 NOT OPERATIONAL. USE
      489                            *                                   ONE SEC DELAY TO GET APPROX FREQ
      490                            *                                   OF OTHER COUNTERS
      491                                     BOUND    8
      492   01 00170    00000000 A   TRAP     DATA     0,0,TRAP+4,0
            01 00171    00000000 A
            01 00172    00000174
            01 00173    00000000 A
      493                            * SPURIOUS TRAPS WILL ENTER HERE AND CAUSE A WAIT
      494   01 00174    32E00589              LW,14    =CBSTRAP          GET THE ADDRESS OF THE CBS INSTRUC-
      495   01 00175    22F1FFFF A            LI,15    X'1FFFF'          TION. MASK TO CHECK ONLY THE ADDR
      496   01 00176    45E00170              CS,14    TRAP              FIELD. IF EQUAL TO TRAP THEN THIS
      497                            *                                   IS A SIGMA 5. OTHERWISE A UNEXPECTED
      498                            *                                   INTERRUPT OR TRAP HAS OCCURRED.
      499   01 00177    68300109              BE       CBSRET            RETURN TO PROGRAM
      500   01 00178    22E00001 A            LI,14    1                 CHECK FOR MAP TEST LOCATION     *F00
      501   01 00179    45E00170              CS,14    TRAP                (GENERAL REGISTER 1)          *F00
      502   01 0017A    683004B8              BE       NOMAP               NO MAP INSTALLED              *F00
      503   01 0017B    ED500191              WD,5     *DISARM           INHIBIT CURRENT CPI'S
      504   01 0017C    2E000000 A   SPURIOUS WAIT                       PSDW AT LOCATION 'TRAP' IDENTIFIES
      505                            *                                   THE ADDRESS OF THE FAULTY INST
      506                            * CLEARING THE WAIT INITIALIZES THE PROGRAM
      507   01 0017D    68000100              B        START
      508   01 0017E                 SIG5VAL  RES      0                 APPROXIMATES ONE SECOND DELAY- SIG5
      509   01 0017E    0007B61B A            DATA     505371            EXECUTION RATE OF BDR = 1.92 USEC.*C
      510   01 0017F                 SIG7VAL  RES      0                 APPROXIMATES ONE SECOND DELAY  SIG7
      511   01 0017F    0005949A A            DATA     365722            EXECUTION RATE OF BDR = 2.65 USEC *C
      512   01 00180    00000000 A   VALUE    DATA     0
      513                                     PAGE
      514   01 00181    00000000 A   ZEROTAB  DATA     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0      FIELD OF ZEROES
            01 00182    00000000 A
            01 00183    00000000 A
            01 00184    00000000 A
            01 00185    00000000 A
            01 00186    00000000 A
            01 00187    00000000 A
            01 00188    00000000 A
            01 00189    00000000 A
            01 0018A    00000000 A
            01 0018B    00000000 A
            01 0018C    00000000 A
            01 0018D    00000000 A
            01 0018E    00000000 A
            01 0018F    00000000 A
            01 00190    00000000 A
      515                            *                                   USED TO CLEAR ALL REGISTERS WITH LM
      516   01 00191    00001100 A   DISARM   DATA     X'1100'           CODE FOR WD TO DISARM INTERRUPTS
      517   01 00192    00001200 A   ARMENAB  DATA     X'1200'           CODE FOR WD TO ARM AND ENABLE INTRS
      518   01 00193    00001300 A   ARMDISAB DATA     X'1300'           CODE FOR WD TO ARMA ND DISABLE INTRS
      519   01 00194    00001400 A   ENABLE   DATA     X'1400'           CODE FOR WD TO ENABLE         INTRS
      520   01 00195    00001500 A   DISABLE  DATA     X'1500'           CODE FOR WD TO DISABLE        INTRS
      521   01 00196    00001600 A   EN1DIS0  DATA     X'1600'           CODE FOR WD TO ENABLE/DISABLE=1/0 S
      522   01 00197    00001700 A   TRIGGER  DATA     X'1700'           CODE FOR WD TO TRIGGER            S
      523                                     PAGE
      524                            * TABLE1  CONTAINS DATA CONCERNING THE INTERRUPT LEVEL RESPONSE
      525                            * THE TABLE IS 16  WORDS IN LENGTH
      526                                     BOUND    8
      527   01 00198                 TABLE1   RES      0
      528   01 00198    00000000 A   CPI1     DATA     0                 LOCATION INCREMENTED BY CPI #1
      529   01 00199    00000000 A   CPI2     DATA     0                 LOCATION INCREMENTED BY CPI #2
      530   01 0019A    00000000 A   CPI3     DATA     0                 LOCATION INCREMENTED BY CPI #3
      531   01 0019B    00000000 A   CPI4     DATA     0                 LOCATION INCREMENTED BY CPI #4
      532   01 0019C    00000000 A   ERRFLAG  DATA     0,0,0,0           CPI1-4 ERROR INDICATORS  -1= ERROR
            01 0019D    00000000 A
            01 0019E    00000000 A
            01 0019F    00000000 A
      533   01 001A0    00000000 A            DATA     0,0,0,0           CEZI 1-4  ERROR INDICATORS -1=ERROR
            01 001A1    00000000 A
            01 001A2    00000000 A
            01 001A3    00000000 A
      534   01 001A4                 MANUALM  RES      4                 TABLE BOUNDARY
      535                                     PAGE
      536                                     BOUND    8
      537                            * TABLE2 CONTAINS DATA ON IMPLEMENTED INTERRUPTS
      538   01 001A8                 TABLE2   RES      0
      539   01 001A8    00000000 A   NIMPCPW1 DATA     0                 IF -1,CPI1 WAS NOT TRIGGERED BY WD
      540   01 001A9    00000000 A   NIMPCPW2 DATA     0                 IF -1,CPI2 WAS NOT TRIGGERED BY WD
      541   01 001AA    00000000 A   NIMPCPW3 DATA     0                 IF -1,CPI3 WAS NOT TRIGGERED BY WD
      542   01 001AB    00000000 A   NIMPCPW4 DATA     0                 IF -1,CPI4 WAS NOT TRIGGERED BY WD
      543   01 001AC    00000000 A   IMPCEZW1 DATA     0                 IF 0,CEZI1 WAS NOT TRIGGERED BY WD
      544   01 001AD    00000000 A   IMPCEZW2 DATA     0                 IF 0,CEZI2 WAS NOT TRIGGERED BY WD
      545   01 001AE    00000000 A   IMPCEZW3 DATA     0                 IF 0,CEZI3 WAS NOT TRIGGERED BY WD
      546   01 001AF    00000000 A   IMPCEZW4 DATA     0                 IF 0,CEZI4 WAS NOT TRIGGERED BY WD
      547   01 001B0    00000000 A   NIMPCPC1 DATA     0                 IF -1,CPI1 WAS NOT TRIGGERED BY CLK
      548   01 001B1    00000000 A   NIMPCPC2 DATA     0                 IF -1,CPI2 WAS NOT TRIGGERED BY CLK
      549   01 001B2    00000000 A   NIMPCPC3 DATA     0                 IF -1,CPI3 WAS NOT TRIGGERED BY CLK
      550   01 001B3    00000000 A   NIMPCPC4 DATA     0                 IF -1,CPI4 WAS NOT TRIGGERED BY CLK
      551   01 001B4    00000000 A   IMPCEZP1 DATA     0                 IF 0,CEZI1 WAS NOT TRIGGERED BYCPI=0
      552   01 001B5    00000000 A   IMPCEZP2 DATA     0                 IF 0,CEZI2 WAS NOT TRIGGERED BYCPI=0
      553   01 001B6    00000000 A   IMPCEZP3 DATA     0                 IF 0,CEZI3 WAS NOT TRIGGERED BYCPI=0
      554   01 001B7    00000000 A   IMPCEZP4 DATA     0                 IF 0,CEZI4 WAS NOT TRIGGERED BYCPI=0
      555                            * TABLE 3  HAS THE ERROR INDICATORS
      556   01 001B8                 TABLE3   RES      0
      557   01 001B8    00000000 A   TESTSEL  DATA     0                 TEST SELECTION
      558   01 001B9    00000000 A   ZERO1    DATA     0                 NEGATIVE IF CEZI1 TRIG BEFORE CNT=0
      559   01 001BA    00000000 A   ZERO2    DATA     0                 NEGATIVE IF CEZI2 TRIG BEFORE CNT=0
      560   01 001BB    00000000 A   ZERO3    DATA     0                 NEGATIVE IF CEZI3 TRIG BEFORE CNT=0
      561   01 001BC    00000000 A   ZERO4    DATA     0                 NEGATIVE IF CEZI4 TRIG BEFORE CNT=0
      562   01 001BD    00000000 A   CPIMAN   DATA     0                 MANUAL MODE CPI SELECTION
      563   01 001BE    00000000 A   CEZMAN   DATA     0,0               MANUAL MODE CEZ SELECTION
            01 001BF    00000000 A
      564                            * FORMATTED FREQUENCIES
      565                                     BOUND    8
      566   01 001C0                 FRQ      RES      8                 IN EBCDIC. WILL BE MOBED TO PRINT
      567                                     PAGE
      568                            * ENTRY HERE INDICATES THAT A CPI WAS NOT TRIGGERED BY A CLOCK
      569   01 001C8    22DFFFFF A   NOTRIGP  LI,13    -1                STORE -1 INTO THE TABLE LOCATION
      570   01 001C9    35DC01AF              STW,13   NIMPCPC1-1,6      INDICATING THE COUNTER IS NOT IMP-
      571                            *                                   LEMENTED IN RESPECT TO CLOCKS
      572   01 001CA    68000120              B        RECHK             RETURN TO CHECK REMAINING LEVELS
      573                            * CPI WAS NOT TRIGGERED BY A WD INSTRUCTION
      574   01 001CB    22DFFFFF A   NOTRIGWD LI,13    -1                STORE -1 INTO THE TABLE LOCATION
      575   01 001CC    35DC01A7              STW,13   NIMPCPW1-1,6      INDICATING THE CPI IS NOT IMPLEMENT-
      576                            *                                   ED IN RESPECT TO WD TRIGGERS
      577   01 001CD    6800014F              B        REIT              TEST NEXT LEVEL
      578   01 001CE    35B001A0     ERRCNT1  STW,11   ERRFLAG+4         INDICATE ERROR
      579   01 001CF    35B001B9              STW,11   ZERO1             SPECIAL MESSAGE
      580   01 001D0    680001E7              B        MCEZ1             RETURN
      581   01 001D1    35B001A1     ERRCNT2  STW,11   ERRFLAG+5         INDICATE ERROR
      582   01 001D2    35B001BA              STW,11   ZERO2             SPECIAL MESSAGE
      583   01 001D3    680001F5              B        MCEZ2             RETURN
      584   01 001D4    35B001A2     ERRCNT3  STW,11   ERRFLAG+6         INDICATE ERROR
      585   01 001D5    35B001BB              STW,11   ZERO3             SPECIAL MESSAGE
      586   01 001D6    68000203              B        MCEZ3             RETURN
      587   01 001D7    35B001A3     ERRCNT4  STW,11   ERRFLAG+7         INDICATE ERROR
      588   01 001D8    35B001BC              STW,11   ZERO4             SPECIAL MESSAGE
      589   01 001D9    68000211              B        MCEZ4             RETURN
      590                                     PAGE
      591                                     BOUND    8
      592   01 001DA    00000000 A   CEZI1    DATA     0,0,CEZI1+4,0     INTERRUPT FROM CEZI 1
            01 001DB    00000000 A
            01 001DC    000001DE
            01 001DD    00000000 A
      593   01 001DE    320001A4              LW,0     MANUALM            NEG NUMBER IF MANUAL
      594   01 001DF    691001E7              BLZ      MCEZ1             GO IF MANUAL
      595   01 001E0    32C0000C A            LW,12    12                TEST WORD 12
      596   01 001E1    683001E6              BEZ      WDCEZ1             ZERO INDICATES WD TEST
      597                            *                                    NOT ZERO INDICATES CPI LOC = 0
      598   01 001E2    358001B4              STW,8    IMPCEZP1          INDICATE INTERRUPT OCCURRED
      599   01 001E3    32B00198              LW,11    CPI1              CHECK THAT COUNTER WAS AT ZERO
      600   01 001E4    693001CE              BNEZ     ERRCNT1           ENTER ERROR
      601   01 001E5    0E3001DA              LPSD,3   CEZI1             RETURN TO PROGRAM
      602   01 001E6    358001AC     WDCEZ1   STW,8    IMPCEZW1          INDICATE INTERRUPT OCCURRED
      603   01 001E7    0E3001DA     MCEZ1    LPSD,3   CEZI1             RETURN TO PROGRAM
      604                                     BOUND    8
      605   01 001E8    00000000 A   CEZI2    DATA     0,0,CEZI2+4,0     INTERRUPT FROM CEZI 2
            01 001E9    00000000 A
            01 001EA    000001EC
            01 001EB    00000000 A
      606   01 001EC    320001A4              LW,0     MANUALM            NEG NUMBER IF MANUAL
      607   01 001ED    691001F5              BLZ      MCEZ2             GO IF MANUAL
      608   01 001EE    32C0000C A            LW,12    12                TEST WORD 12 - ZERO = WD TEST -
      609   01 001EF    683001F4              BEZ      WDCEZ2             NOT ZERO = CPI LOC WENT TO 0
      610   01 001F0    358001B5              STW,8    IMPCEZP2          INDICATE INTERRUPT OCCURRED
      611   01 001F1    32B00199              LW,11    CPI2              CHECK THAT COUNTER WAS AT ZERO
      612   01 001F2    693001D1              BNEZ     ERRCNT2           ENTER ERROR
      613   01 001F3    0E3001E8              LPSD,3   CEZI2             RETURN TO PROGRAM
      614   01 001F4    358001AD     WDCEZ2   STW,8    IMPCEZW2          INDICATE INTERRUPT OCCURRED
      615   01 001F5    0E3001E8     MCEZ2    LPSD,3   CEZI2             RETURN TO PROGRAM
      616                                     PAGE
      617                                     BOUND    8
      618   01 001F6    00000000 A   CEZI3    DATA     0,0,CEZI3+4,0     INTERRUPT FROM CEZI 3
            01 001F7    00000000 A
            01 001F8    000001FA
            01 001F9    00000000 A
      619   01 001FA    320001A4              LW,0     MANUALM            NEG NUMBER IF MANUAL
      620   01 001FB    69100203              BLZ      MCEZ3             GO IF MANUAL
      621   01 001FC    32C0000C A            LW,12    12                TEST WORD 12 - ZERO = WD TEST --
      622   01 001FD    68300202              BEZ      WDCEZ3             NOT ZERO = CPI LOC WENT TO 0
      623   01 001FE    358001B6              STW,8    IMPCEZP3          INDICATE INTERRUPT OCCURRED
      624   01 001FF    32B0019A              LW,11    CPI3              CHECK THAT COUNTER WAS AT ZERO
      625   01 00200    693001D4              BNEZ     ERRCNT3           ENTER ERROR
      626   01 00201    0E3001F6              LPSD,3   CEZI3             RETURN TO PROGRAM
      627   01 00202    358001AE     WDCEZ3   STW,8    IMPCEZW3          INDICATE INTERRUPT OCCURRED
      628   01 00203    0E3001F6     MCEZ3    LPSD,3   CEZI3             RETURN TO PROGRAM
      629                                     BOUND    8
      630   01 00204    00000000 A   CEZI4    DATA     0,0,CEZI4+4,0     INTERRUPT FROM CEZI 4
            01 00205    00000000 A
            01 00206    00000208
            01 00207    00000000 A
      631   01 00208    320001A4              LW,0     MANUALM            NEG NUMBER IF MANUAL
      632   01 00209    69100211              BLZ      MCEZ4             GO IF MANUAL
      633   01 0020A    32C0000C A            LW,12    12                TEST WORD 12 - ZERO = WD TEST --
      634   01 0020B    68300210              BEZ      WDCEZ4             NOT ZERO = CPI LOC WENT TO 0
      635   01 0020C    358001B7              STW,8    IMPCEZP4          INDICATE INTERRUPT OCCURRED
      636   01 0020D    32B0019B              LW,11    CPI4              CHECK THAT COUNTER WAS AT ZERO
      637   01 0020E    693001D7              BNEZ     ERRCNT4           ENTER ERROR
      638   01 0020F    0E300204              LPSD,3   CEZI4             RETURN TO PROGRAM
      639   01 00210    358001AF     WDCEZ4   STW,8    IMPCEZW4          INDICATE THAT INTERRUPT OCCURRED
      640   01 00211    0E300204     MCEZ4    LPSD,3   CEZI4             RETURN TO PROGRAM
      641                                     PAGE
      642                            ***
      643                            * TEST 6 --  CHECK ACCURACY OF 500 CPS. 425 TO 575 IS ACCEPTABLE      *C
      644                            *
      645   01 00212    32100180     FREQ500  LW,1     VALUE             ONE SECOND INEEX
      646   01 00213    22C00000 A            LI,12    0
      647   01 00214    35C0019B              STW,12   CPI4              RESET CPI LOC
      648   01 00215    22501000 A            LI,5     X'1000'           CPI 4 REGISTER BIT
      649   01 00216    3260021B              LW,6     BDRINST           BDR TO USE UP ONE SECOND. EXECUTE -
      650   01 00217    3270021C              LW,7     BRET              IN SCRATCHPAD FOR STABLE TIMING
      651   01 00218    ED500193              WD,5     *ARMDISAB         CLEAR PENDING INTERRUPT
      652   01 00219    ED500191              WD,5     *DISARM
      653   01 0021A    ED500192              WD,5     *ARMENAB          ARM AND ENABLE CPI 4
      654   01 0021B    64100006 A   BDRINST  BDR,1    6                 GO TO SCRATCHPAD
      655   01 0021C    6800021D     BRET     B        %+1               RELOCATED TO REG 7 FOR RETURN AFTER
      656                            *                                   DELAY HAS EXPIRED
      657                            **
      658                            * EXECUTION TIME FOR A BDR IN SCRATHPAD IS AS FOLLOWS:
      659                            *   SIGMA 5 = 1.92 MICROSECONDS
      660                            *   SIGMA 7 = 2.65 MICROSECONDS
      661                            **
      662   01 0021D    ED500191              WD,5     *DISARM
      663   01 0021E    222001A9 A            LI,2     425               MINIMUM SPEC                      *C
      664   01 0021F    2230023F A            LI,3     575               MAXIMUM SPEC                      *E
      665   01 00220    3920019B              CLR,2    CPI4              CHECK NUMBER OF INTERRUPTS
      666   01 00221    68600240              BCR,6    INSPEC            GO IF WITHIN SPEC
      667   01 00222    69100225              BCS,1    TOOHIGH           FREQUENCY > MAXIMUM SPEC
      668   01 00223    32000592     TOOLOW   LW,0     =DA(CDW500L)      UNDER SPEC
      669   01 00224    68000226              B        %+2               STORE IN CDW
      670   01 00225    32000593     TOOHIGH  LW,0     =DA(CDW500H)      OUT OF SPEC MESSAGE
      671   01 00226    0F00030E              XPSD,0   PRINT             OUTPUT MESSAGE
      672   01 00227    6AA0026E              BAL,10   NUM-1             CONVERT FREQUENCY
      673                            * FREQUENCY WILL BE IN  LOCATION  FRQ+6 WHICH WILL BE USED AS A PRINT
      674                            * IMAGE BY THE HIGH/LOW MESSAGE
      675   01 00228    32000594              LW,0     =DA(HILO)         TO PRINT FREQUENCY
      676   01 00229    0F00030E              XPSD,0   PRINT
      677   01 0022A    68000240              B        INSPEC            UTILIZE SAME ROUTINE AS IF 500 CPS*C
      678                            *                                   WAS WITHIN SPECIFICATION
      679                                     PAGE
      680                                     BOUND    8
      681   01 0022C    05000C79     HILO     GEN,8,24 5,BA(HDG)+1
      682   01 0022D    80000002 A            GEN,4,28 8,2               DATA CHAIN
      683   01 0022E    00000718              DATA     BA(FRQ+6)         FORMATTED FREQUENCY
      684   01 0022F    80000008 A            GEN,4,28 8,8               BYTE COUNT & DATA CHAIN
      685   01 00230    000008C8              DATA     BA(RESTM)
      686   01 00231    00000037 A            DATA     55
      687   01 00232                 RESTM    RES      0
      688                                     TEXT     ' CPS. COMPUTER TIMING OR 1MC CLOCK COULD BE',;
      689   01 00232    40C3D7E2 A                     ' RESPONSIBLE'
            01 00233    4B40C3D6 A
            01 00234    D4D7E4E3 A
            01 00235    C5D940E3 A
            01 00236    C9D4C9D5 A
            01 00237    C740D6D9 A
            01 00238    40F1D4C3 A
            01 00239    40C3D3D6 A
            01 0023A    C3D240C3 A
            01 0023B    D6E4D3C4 A
            01 0023C    40C2C540 A
            01 0023D    D9C5E2D7 A
            01 0023E    D6D5E2C9 A
            01 0023F    C2D3C540 A
      690                                     PAGE
      691   01 00240    6C000000 A   INSPEC   RD,0     0
      692   01 00241    69800212              BCS,8    FREQ500           LOOP IF SS 1
      693                            * TEST 7 --  DETERMINE CLOCK INPUT FOR EACH CPI.
      694   01 00242    22400003 A            LI,4     3                 INDEX
      695   01 00243    22200000 A            LI,2     0                 DATA
      696   01 00244    22501000 A            LI,5     X'1000'           COUNTER FOUR SELECTED
      697                            * CLEAR COUNT PULSSE LOCATIONS 1-3
      698   01 00245    35280197              STW,2    CPI1-1,4          STORE ZEROS
      699   01 00246    64400245              BDR,4    %-1
      700   01 00247    226FFFFF A            LI,6     -1                SET UP FOR ONE COUNT
      701   01 00248    3560019B              STW,6    CPI4
      702   01 00249    2260F000 A            LI,6     X'F000'           ALL FOUR COUNTERS
      703                            * DESTROY PENDING INTERRUPTS FOR CNTR 4
      704   01 0024A    ED500193              WD,5     *ARMDISAB
      705   01 0024B    ED500191              WD,5     *DISARM
      706                            * SYNC WITH COUNTER FOUR
      707   01 0024C    ED500192              WD,5     *ARMENAB
      708   01 0024D    32A0019B              LW,10    CPI4              CHECK FOR COUNTER LOCATION BEING
      709   01 0024E    6930024D              BNEZ     %-1                STEPPED TO ZERO
      710   01 0024F    22BFFE0C A            LI,11    -500              SET UP COUNTER 4                  *C
      711   01 00250    35B0019B              STW,11   CPI4
      712                            * DESTROY PENDING INTERRUPTS FOR ALL COUNTERS
      713   01 00251    ED600193              WD,6     *ARMDISAB
      714   01 00252    ED600191              WD,6     *DISARM
      715   01 00253    ED600192              WD,6     *ARMENAB
      716   01 00254    32A0019B              LW,10    CPI4              CHECK FOR COUNTER 4 GOING TO ZERO
      717   01 00255    69300254              BNEZ     %-1               GO IF NOT ZERO
      718   01 00256    ED600195              WD,6     *DISABLE          INHIBIT ALL LEVELS
      719                            * THE FREQUENCIES MEASURED ARE RELATIVE TO 500 COUNTS FOR COUNTER     *C
      720                            * PULSE FOUR. IF THE 500 CPS WAS WITHIN SPECIFICATION, THE OTHER FRE- *C
      721                            * QUENCIES SHOULD BE EXACT (EXCEPT 60 CPS). POSSIBLE FREQUENCIES ARE; *C
      722                            * 500, 2000, 8000 AND 60 (PLUS OR MINUS ONE).                         *C
      723                            * A SLOW OR FAST 500 CPS CLOCK CAN BE CAUSED BY                       *C
      724                            *  (1) 1 MC CLOCK OUT OF TOLERANCE
      725                            *  (2) 500 CPS OR CPI 4 MALFUNCTIONING                                *C
      726                            *  (3) MACHINE TIMING OUT OF TOLERANCE
      727                                     PAGE
      728   01 00257    22A001F4 A            LI,10    500                                                 *C
      729   01 00258    35A0019B              STW,10   CPI4              TO REPORT
      730   01 00259    6C000000 A            RD,0     0
      731   01 0025A    69800242              BCS,8    INSPEC+2          LOOP IF SS 1
      732   01 0025B    6800026C              B        COMPFREQ          CONVERT FREQUENCIES TO DECIMAL
      733                            * TEST 8
      734                            * ENTER HERE IF CNTR 4 NOT TRIGGERED BY 500 CPS.                      *C
      735                            * MAKE A ROUGH CALCULATION OF COUNTER FREQUENCIES.
      736   01 0025C    32100180     NINSPEC  LW,1     VALUE             FOR  1 SECOND DELAY
      737   01 0025D    2250F000 A            LI,5     X'F000'           FOUR CPI LEVELS
      738   01 0025E    22400004 A            LI,4     4                 INDEX
      739   01 0025F    22200000 A            LI,2     0                 DATA
      740   01 00260    35280197              STW,2    CPI1-1,4          CLEAR COUNTER LOCATION
      741   01 00261    64400260              BDR,4    %-1
      742   01 00262    3260021B              LW,6     BDRINST           WILL BE EXECUTED TO DELAY APPROX 1-
      743   01 00263    32700268              LW,7     BDRRET            - SECOND. R7 GETS RETURN INST
      744   01 00264    ED500193              WD,5     *ARMDISAB         CLEAR PENDING INTERRUPTS
      745   01 00265    ED500191              WD,5     *DISARM           CLEAR PENDING INTERRUPTS
      746   01 00266    ED500192              WD,5     *ARMENAB          ALLOW INTERRUPTS
      747   01 00267    64100006 A            BDR,1    6                 GO TO REGISTER FOR DELAY = 1 SEC
      748   01 00268    68000269     BDRRET   B        %+1               STORED IN R7
      749   01 00269    ED500195              WD,5     *DISABLE          INHIBIT INTERRUPTS
      750   01 0026A    6C000000 A            RD,0     0
      751   01 0026B    6980025C              BCS,8    NINSPEC           LOOP IF SS 1
      752                                     PAGE
      753                            * FREQUENCIES ARE NOW IN HEX AT LOCATIONS CPI1 THRU CPI4
      754   01 0026C    6AA0026E     COMPFREQ BAL,10   NUM-1             CONVERT FREQUENCY
      755   01 0026D    68000285              B        COMPIMP           CONTINUE TESTS
      756   01 0026E    22400004 A            LI,4     4                 INDEX FOR CONVERTING FOUR NUMBERS
      757   01 0026F    227FFFD8 A   NUM      LI,7     -40               USED FOR SINIFICANCE
      758   01 00270    32D80197              LW,13    CPI1-1,4          GET A NUMBER TO CONVERT
      759   01 00271    35D802C1              STW,13   HEX-1,4              SAVE HEX VALUE
      760   01 00272    22300005 A            LI,3     5                 DIVISOR INDEX
      761   01 00273    12E00338              LD,14    CLM               WORDS OF SPACES
      762   01 00274    22C00000 A   DVD      LI,12    0                 CLEAR REMAINDER
      763   01 00275    36C603A7              DW,12    TENS-1,3          CURRENT DIVISOR
      764   01 00276    68700282              BCR,7    SIG               ZERO QUOTIENT CHECK SIGNIFICANCE
      765   01 00277    22700064 A            LI,7     100               INDICATOR THAT SIGNIFICANCE OCCURRED
      766   01 00278    49F0000D A   ACCUM    OR,15    13                DIVIDEND INTO ACCUMULATOR
      767   01 00279    49F0058A              OR,15    =X'F0'            DECIMAL TO EBCDIC
      768   01 0027A    25E00108 A            SLD,14   8                 POSITION TO NEXT CHARACTER
      769   01 0027B    32D0000C A            LW,13    12                REMAINDER BECOMES NEXT DIVIDENT
      770   01 0027C    64300274              BDR,3    DVD               USE A NEW DIVISOR
      771   01 0027D    49F0000D A            OR,15    13                UNITS POSITION
      772   01 0027E    49F0058A              OR,15    =X'F0'            EBCDIC
      773   01 0027F    15E801BE              STD,14   FRQ-2,4           STORE FREQUENCY FOR PRINTOUT LATER
      774   01 00280    6440026F              BDR,4    NUM               CONVERT NEXT FREQUENCY
      775   01 00281    E800000A A            B        *10               RETURN VIA REGISTER
      776   01 00282    64700278     SIG      BDR,7    ACCUM             ALREADY HAVE SIGNIFICANCE
      777   01 00283    49F0058B              OR,15    =X'40'            SPACE SINCE NON-SIG ZERO
      778   01 00284    6800027A              B        ACCUM+2           COMPLETE DVD OPERATION
      779                                     PAGE
      780                            * TEST FOR WD'S AND CLOCKS AFFECTING INTERRUPT IN THE SAME MANNER
      781   01 00285    22400008 A   COMPIMP  LI,4     8                 INDEX
      782   01 00286    22AFFFFF A            LI,10    -1                INDICATOR
      783   01 00287    22BFFFFF A            LI,11    -1                INDICATOR
      784   01 00288    327801AF     CONT     LW,7     NIMPCPC1-1,4      CLOCK TRIGGER INDICATOR
      785   01 00289    317801A7              CW,7     NIMPCPW1-1,4      WD TRIGGER INDICATOR
      786   01 0028A    6830028C              BE       %+2
      787   01 0028B    35A8019B              STW,10   ERRFLAG-1,4       SET ERROR FLAG
      788   01 0028C    64400288              BDR,4    CONT
      789                            * CHECK THAT PAIRS OF INTERRUPTS AGREE
      790   01 0028D    22400008 A            LI,4     8
      791   01 0028E    327801AE     PRSAME   LW,7     NIMPCPC1-2,4      ODD LEVEL AS AFFECTED BY RTC'S /=0
      792   01 0028F    317801AF              CW,7     NIMPCPC2-2,4      EVENLEVEL AS AFFECTED BY RTC'S /=0
      793   01 00290    69300294              BNE      %+4               SET ERROR INDICATOR
      794   01 00291    327801A6              LW,7     NIMPCPW1-2,4      ODD LEVEL AS AFFECTED BY WD INST
      795   01 00292    317801A7              CW,7     NIMPCPW2-2,4      EVENLEVEL AS AFFECTED BY WD INST
      796   01 00293    68300298              BE       DECR
      797   01 00294    35A8019B              STW,10   ERRFLAG-1,4       SET ERROR INDICATOR FOR EVEN LEVEL
      798   01 00295    64400296              BDR,4    %+1               REDUCE TO ODD INDEX
      799   01 00296    35A8019B              STW,10   ERRFLAG-1,4       SET ERROR INDICATOR FOR ODD  LEVEL
      800   01 00297    6440028E              BDR,4    PRSAME            NEXT SET
      801   01 00298    64400297     DECR     BDR,4    %-1               REDUCE TO ODD INDEX
      802                            * FIRST PASS ?
      803   01 00299    32700422              LW,7     PASS              PASS COUNT
      804   01 0029A    683002A7              BEZ      SAVEFREQ
      805   01 0029B    22400004 A            LI,4     4                 INDEX
      806   01 0029C    12A802B0     VARIFREQ LD,10    FIRSTFRQ-2,4      FIRST COMPUTATION OF FREQUENCIES
      807   01 0029D    11A801BE              CD,10    FRQ-2,4           CURRENT COMPUTATION
      808   01 0029E    69300302              BNE      MAYERR            GO IF DIFF. MAY BE AN ERROR
      809   01 0029F    6440029C     FRTRY    BDR,4    VARIFREQ          NEXT LEVEL
      810                            * ANY ERRORS ?
      811   01 002A0    22400008 A            LI,4     8                 INDEX
      812   01 002A1    3278019B              LW,7     ERRFLAG-1,4       ERROR INDICATORS
      813   01 002A2    693002CC              BNEZ     OUTPUT            GO IF ERROR
      814   01 002A3    644002A1              BDR,4    %-2               TEST NEXT FLAG
      815                                     PAGE
      816   01 002A4    680002EB              B        SPECTEST          CHECK FOR SPECIAL MSG
      817   01 002A5    33100422     RETPASS  MTW,1    PASS              INCR PASS COUNT
      818   01 002A6    6800010E              B        NEWPASS           START ANOTHER PASS
      819   01 002A7    22400004 A   SAVEFREQ LI,4     4                 INDEX
      820   01 002A8    12A801BE              LD,10    FRQ-2,4           FIRST FREQUENCY COMPUTATION
      821   01 002A9    15A802B0              STD,10   FIRSTFRQ-2,4      SAVE FOR COMPARE ON SUBSEQUENT PASS
      822   01 002AA    32A802C1              LW,10    HEX-1,4           ACTUAL FREQUENCY ON FIRST PASS (HEX)
      823   01 002AB    20AFFFFD A            AI,10    -3                LOW ACCEPTABLE LIMIT
      824   01 002AC    32B802C1              LW,11    HEX-1,4           ACTUAL FREQUENCY ON FIRST PASS (HEX)
      825   01 002AD    20B00003 A            AI,11    3                 ACCEPTABLE HIGH LIMIT
      826   01 002AE    15A802B8              STD,10   SAVEHEX-2,4       SAVE LIMITS
      827   01 002AF    644002A8              BDR,4    SAVEFREQ+1        NEXT LEVEL
      828   01 002B0    680002CC              B        OUTPUT
      829                                     BOUND    8
      830   01 002B2                 FIRSTFRQ RES      8
      831   01 002BA                 SAVEHEX  RES      8                 FIRST PASS FREQUENCY LIMITS IN HEX.
      832   01 002C2                 HEX      RES      4                 SURRENT FREQ IN HEXADECIMAL
      833   01 002C6    40404040 A   F8192    TEXT     '    8000'                                          *C
            01 002C7    F8F0F0F0 A
      834   01 002C8    40404040 A   F2048    TEXT     '    2000'                                          *C
            01 002C9    F2F0F0F0 A
      835   01 002CA    40404040 A   F512     TEXT     '     500'                                          *C
            01 002CB    40F5F0F0 A
      836                                     PAGE
      837                            * OUTPUT THE CURRENT STATUS OF ALL LEVELS
      838   01 002CC    32000595     OUTPUT   LW,0     =DA(CDWHDG)       CDW ADDRESS FOR HEADING
      839   01 002CD    0F00030E              XPSD,0   PRINT
      840                            * ENTER AN ERROR FLAG IF REQUIRED, OTHERWISE ENTER SPACES.            *C
      841   01 002CE    224FFFF8 A            LI,4     -8                INDEX
      842   01 002CF    32C801A4     NEXTM    LW,12    ERRFLAG+8,4       ERROR SET BY UNLIKE LEVELS
      843   01 002D0    683002D3              BEZ      ENTSP             ENTER SPACES
      844   01 002D1    12C00340              LD,12    MSGERR            ERROR MSG
      845   01 002D2    680002D4              B        %+2
      846   01 002D3    12C00338     ENTSP    LD,12    CLM               SPACES
      847   01 002D4    15C0033E              STD,12   FERR              STORE INTO OUTPUT MESSAGE
      848                            * ENTER YES OR NO INTO    TRIGGER PORITION OF MESSAGE
      849   01 002D5    32200342              LW,2     YES1               'ESH ' FOR OUTPUT
      850   01 002D6    32600343              LW,6     YES2               ' YES' FOR OUTPUT
      851   01 002D7    32800344              LW,8     NO                'NO' FOR MESSAGE OUT
      852   01 002D8    12E00338              LD,14    CLM               BLANKS
      853   01 002D9    214FFFFC A            CI,4     -4
      854   01 002DA    691002F0              BL       CP                ENTER FOR CPI MESSAGES
      855                            * CEZI MESSAGE FORMAT
      856   01 002DB    32C801B0              LW,12    NIMPCPW1+8,4      CHECK FOR WD TRIGGER
      857   01 002DC    693002DF              BNEZ     YESW
      858   01 002DD    35800337              STW,8    WDT               NO INTO WD TRIGGER MSG
      859   01 002DE    680002E0              B        %+2
      860   01 002DF    35200337     YESW     STW,2    WDT               'YES 'INTO WD TRIGGER MSG
      861   01 002E0    32C801B8              LW,12    NIMPCPC1+8,4      CHECK FOR  CNTR =0  TRIGGER
      862   01 002E1    693002E4              BNEZ     YESW0
      863   01 002E2    3580033B              STW,8    CLM+3             NO INTO CLK/=0 MSG
      864   01 002E3    680002E5              B        %+2
      865   01 002E4    3520033B     YESW0    STW,2    CLM+3             'YES ' INTO CLK/=0 MSG
      866   01 002E5    15E0033C              STD,14   FREQ              BLANKS INTO FREQUENCY WHEN CEZI
      867   01 002E6    3288034D     LEVELOUT LW,8     CPM1+8,4          GET INTERRUPT LEVEL IDENTIFIER
      868   01 002E7    35800335              STW,8    LEVELM+1
      869   01 002E8    32000596              LW,0     =DA(CDWMSG)       FOR OUTPUT MSG
      870   01 002E9    0F00030E              XPSD,0   PRINT
      871   01 002EA    654002CF              BIR,4    NEXTM             FORMAT THE NEXT MESSAGE
      872                                     PAGE
      873                            * PRINT ANY SPECIAL ERROR MESSAGES
      874   01 002EB    224FFFFC A   SPECTEST LI,4     -4
      875   01 002EC    326801BD              LW,6     ZERO4+1,4         CHECK FOR CEZI BEFORE CNT =0
      876   01 002ED    693002FD              BNEZ     PSPEC             PRINT SPECIAL MESSAGE
      877   01 002EE    654002EC     PSRET    BIR,4    SPECTEST+1        CHECK ALL COUNTERS
      878   01 002EF    680002A5              B        RETPASS
      879                                     PAGE
      880                            * FORMAT FOR THE CPI'S. ENTER ONLY IF R4 >4
      881   01 002F0    32C801B0     CP       LW,12    NIMPCPW1+8,4      CHECK FOR WD TRIGGER
      882   01 002F1    683002F4              BEZ      YESWCP
      883   01 002F2    35800337              STW,8    WDT               NO INTO WD TRIGGER MSG
      884   01 002F3    680002F5              B        %+2
      885   01 002F4    35200337     YESWCP   STW,2    WDT               YES INTO WD TRIGGER MSG
      886   01 002F5    32C801B8              LW,12    NIMPCPC1+8,4      CHECK FOR CLOCK TRIGGER
      887   01 002F6    683002F9              BEZ      YESWCPC
      888   01 002F7    3580033B              STW,8    CLM+3             NO INTO CLK/=0 MESSAGE
      889   01 002F8    680002FA              B        %+2
      890   01 002F9    3520033B     YESWCPC  STW,2    CLM+3             YES INTO CLK/=0 MESSAGE
      891                            *ENTER FREQUENCY
      892   01 002FA    12C801D0              LD,12    FRQ+16,4          COMPUTED FREQUENCY
      893   01 002FB    15C0033C              STD,12   FREQ              OUTPUT MSG
      894   01 002FC    680002E6              B        LEVELOUT          FINAL FORMAT BEFORE PRINT
      895   01 002FD    3268034D     PSPEC    LW,6     CPM1+8,4          COUNTER IDENTITY
      896   01 002FE    35600397              STW,6    MSGSPEC+1         PUT IN PRINT IMAGE
      897   01 002FF    32000597              LW,0     =DA(MSPEC)
      898   01 00300    0F00030E              XPSD,0   PRINT
      899   01 00301    680002EE              B        PSRET
      900                                     PAGE
      901                            ** ENTER IF FREQ ON CURRENT PASS IS DIFFERENT FROM FIRST PASS.
      902                            ** ONLY INDICATE ERROR IF-1-ORIGINAL FREQ IS 500, 2000 OR 8000 CPS    *C
      903                            **                     OR-2-ORIGINAL FREQ IS DIFFERENT BY 3 COUNTS
      904   01 00302    11A002C6     MAYERR   CD,10    F8192
      905   01 00303    6830030B              BE       FRQERR            GO IF 8000 CPS ON FIRST PASS      *C
      906   01 00304    11A002C8              CD,10    F2048
      907   01 00305    6830030B              BE       FRQERR            GO IF 2000 CPS ON FIRST PASS      *C
      908   01 00306    11A002CA              CD,10    F512
      909   01 00307    6830030B              BE       FRQERR            GO IF  500 CPS ON FIRST PASS      *C
      910                            ** ABOVE WILL NOT INDICATE AN ERROR IF FIRST PASS IS FOR EXAMPLE
      911                            **  1999 CPS AND SUBSEQUENT PASS IS 2000. THE OPERATOR SHOULD REALIZE *C
      912                            **  THAT 1999 IS OUT OF SPEC.SS3 ON WILL FORCE AN OUTPUT FOR EACH PASS*C
      913                            ***
      914                            *** CHECK FOR A VARIATION OF 3 CPS FROM ORIGINAL VALUE
      915   01 00308    12A802B8              LD,10    SAVEHEX-2,4       ACCEPTABLE LIMITS IN R10 AND 11
      916   01 00309    39A802C1              CLR,10   HEX-1,4           COMPARE CURRENT FREQ TO LIMIT
      917   01 0030A    6860029F              BCR,6    FRTRY             GO IF IN LIMITS
      918   01 0030B    35A8019B     FRQERR   STW,10   ERRFLAG-1,4       INDICATE AN ERROR
      919   01 0030C    6800029F              B        FRTRY             NEXT LEVEL TO TEST
      920                            * PRINT MESSAGE POINTED TO BY DOUBLEWORD ADDRESS IN R0
      921                                     BOUND    8
      922   01 0030E    00000000 A   PRINT    DATA     0,0,PRINT+4,0
            01 0030F    00000000 A
            01 00310    00000312
            01 00311    00000000 A
      923   01 00312    6C000000 A            RD,0     0                 CHECK FOR PRINT SUPPRESS
      924   01 00313    69100319              BCS,1    MAYREP            GO IF SS4 IS ON
      925   01 00314    CD00031A     PRREQ    TIO,0    *DEVICE           CHECK FOR ON LINE AND READY
      926   01 00315    69C00314              BCS,12   %-1
      927   01 00316    CC00031A              SIO,0    *DEVICE
      928   01 00317    CD00031A              TIO,0    *DEVICE
      929   01 00318    69C00317              BCS,12   %-1               LOOP TILL DONE
      930   01 00319    0E00030E     MAYREP   LPSD,0   PRINT             EXIT TO CALLING ROUTINE
      931                                     PAGE
      932   01 0031A    00000001 A   DEVICE   DATA     1                 SET TO KSR
      933                                     BOUND    8
      934   01 0031C    05000C79     CDWHDG   GEN,8,24 5,BA(HDG)+1
      935   01 0031D    0000002C A            DATA     44
      936   01 0031E    32154040 A   HDG      TEXTC    '
  LEVEL   WD -TRIGGER- CLK/=0   FREQUENCY        '
            01 0031F    D3C5E5C5 A
            01 00320    D3404040 A
            01 00321    E6C44060 A
            01 00322    E3D9C9C7 A
            01 00323    C7C5D960 A
            01 00324    40C3D3D2 A
            01 00325    617EF040 A
            01 00326    4040C6D9 A
            01 00327    C5D8E4C5 A
            01 00328    D5C3E840 A
            01 00329    40404040 A
            01 0032A    40404040 A
      937                                     BOUND    8
      938   01 0032C    05000CD1     CDWMSG   GEN,8,24 5,BA(LEVELM)+1
      939   01 0032D    8000000B A            GEN,4,28 8,11
      940   01 0032E    00000CDC              DATA     BA(WDT)
      941   01 0032F    80000004 A            GEN,4,28 8,4
      942   01 00330    00000CE0              DATA     BA(CLM)
      943   01 00331    80000010 A            GEN,4,28 8,16
      944   01 00332    00000CF0              DATA     BA(FREQ)
      945   01 00333    00000010 A            DATA     16
      946   01 00334    40154040 A   LEVELM   TEXT     ' 
  CPI1    '    OUTPUT AREA
            01 00335    C3D7C9F1 A
            01 00336    40404040 A
      947   01 00337    E8C5E240 A   WDT      TEXT     'YES '            OUTPUT AREA
      948                                     BOUND    8
      949   01 00338    40404040 A   CLM      TEXT     '            YES '    OUTPUT AREA
            01 00339    40404040 A
            01 0033A    40404040 A
            01 0033B    E8C5E240 A
      950                                     PAGE
      951                                     BOUND    8
      952   01 0033C    4040F0F0 A   FREQ     TEXT     '  000000'        OUTPUT AREA
            01 0033D    F0F0F0F0 A
      953   01 0033E    405C40C5 A   FERR     TEXT     ' * ERROR'        OUTPUT AREA
            01 0033F    D9D9D6D9 A
      954   01 00340    405C40C5 A   MSGERR   TEXT     ' * ERROR'        CONSTANT
            01 00341    D9D9D6D9 A
      955                                     BOUND    8
      956   01 00342    E8C5E240 A   YES1     TEXT     'YES '            CONSTANT
      957   01 00343    40E8C5E2 A   YES2     TEXT     ' YES'            CONSTANT
      958   01 00344    40D5D640 A   NO       TEXT     ' NO '
      959   01 00345    C3D7C9F1 A   CPM1     TEXT     'CPI1CPI2CPI3CPI4CEZ1CEZ2CEZ3CEZ4'  CONSTANT
            01 00346    C3D7C9F2 A
            01 00347    C3D7C9F3 A
            01 00348    C3D7C9F4 A
            01 00349    C3C5E9F1 A
            01 0034A    C3C5E9F2 A
            01 0034B    C3C5E9F3 A
            01 0034C    C3C5E9F4 A
      960                                     BOUND    8
      961   01 0034E    05000D41     CDW500L  GEN,8,24 5,BA(ERR500L)+1
      962   01 0034F    00000034 A            DATA     52
      963                                     PAGE
      964   01 00350    341540F5 A   ERR500L  TEXTC    '
 500 CPS IS SLOW. CALCULATED BY AN INSTRUCTION LOOP'
            01 00351    F0F040C3 A
            01 00352    D7E240C9 A
            01 00353    E240E2D3 A
            01 00354    D6E64B40 A
            01 00355    C3C1D3C3 A
            01 00356    E4D3C1E3 A
            01 00357    C5C440C2 A
            01 00358    E840C1D5 A
            01 00359    40C9D5E2 A
            01 0035A    E3D9E4C3 A
            01 0035B    E3C9D6D5 A
            01 0035C    40D3D6D6 A
            01 0035D    D7404040 A
      965                                     BOUND    8
      966   01 0035E    05000D80     CDW500H  GEN,8,24 5,BA(ERR500H)
      967   01 0035F    00000034 A            DATA     52
      968   01 00360    1540F5F0 A   ERR500H  TEXT     '
 500 CPS IS FAST. CALCULATED BY AN INSTRUCTION LOOP'
            01 00361    F040C3D7 A
            01 00362    E240C9E2 A
            01 00363    40C6C1E2 A
            01 00364    E34B40C3 A
            01 00365    C1D3C3E4 A
            01 00366    D3C1E3C5 A
            01 00367    C440C2E8 A
            01 00368    40C1D540 A
            01 00369    C9D5E2E3 A
            01 0036A    D9E4C3E3 A
            01 0036B    C9D6D540 A
            01 0036C    D3D6D6D7 A
      969                                     PAGE
      970                                     BOUND    8
      971   01 0036E    05000DC8     CDWNINTR GEN,8,24 5,BA(NINTRT)
      972   01 0036F    00000040 A            DATA     64
      973   01 00370    05000E08     CDWINTR  GEN,8,24 5,BA(INTRNE)
      974   01 00371    00000046 A            DATA     70
      975                            NINTRT   TEXT     '
 INTERRUPT FOR HIGHEST PRIORITY COUNTER DID NOT ',;
      976   01 00372    1540C9D5 A                     'OCCUR - TEST 5'
            01 00373    E3C5D9D9 A
            01 00374    E4D7E340 A
            01 00375    C6D6D940 A
            01 00376    C8C9C7C8 A
            01 00377    C5E2E340 A
            01 00378    D7D9C9D6 A
            01 00379    D9C9E3E8 A
            01 0037A    40C3D6E4 A
            01 0037B    D5E3C5D9 A
            01 0037C    40C4C9C4 A
            01 0037D    40D5D6E3 A
            01 0037E    40D6C3C3 A
            01 0037F    E4D94060 A
            01 00380    40E3C5E2 A
            01 00381    E340F540 A
      977                                     PAGE
      978                            INTRNE   TEXT     '
 INTERRUPT FOR HIGHEST PRIORITY COUNTER OCCURRED ',;
      979   01 00382    1540C9D5 A                     'WHEN DISABLED-TEST 5'
            01 00383    E3C5D9D9 A
            01 00384    E4D7E340 A
            01 00385    C6D6D940 A
            01 00386    C8C9C7C8 A
            01 00387    C5E2E340 A
            01 00388    D7D9C9D6 A
            01 00389    D9C9E3E8 A
            01 0038A    40C3D6E4 A
            01 0038B    D5E3C5D9 A
            01 0038C    40D6C3C3 A
            01 0038D    E4D9D9C5 A
            01 0038E    C440E6C8 A
            01 0038F    C5D540C4 A
            01 00390    C9E2C1C2 A
            01 00391    D3C5C460 A
            01 00392    E3C5E2E3 A
            01 00393    40F54040 A
      980                                     PAGE
      981                                     BOUND    8
      982   01 00394    05000E58     MSPEC    GEN,8,24 5,BA(MSGSPEC)
      983   01 00395    00000045 A            DATA     69
      984                            MSGSPEC  TEXT     '
 * CEZ1 WAS TRIGGERED BEFORE COUNT REACHED ZERO,',;
      985   01 00396    15405C40 A                     'OR BY THE WRONG CPI '
            01 00397    C3C5E9F1 A
            01 00398    40E6C1E2 A
            01 00399    40E3D9C9 A
            01 0039A    C7C7C5D9 A
            01 0039B    C5C440C2 A
            01 0039C    C5C6D6D9 A
            01 0039D    C540C3D6 A
            01 0039E    E4D5E340 A
            01 0039F    D9C5C1C3 A
            01 003A0    C8C5C440 A
            01 003A1    E9C5D9D6 A
            01 003A2    6BD6D940 A
            01 003A3    C2E840E3 A
            01 003A4    C8C540E6 A
            01 003A5    D9D6D5C7 A
            01 003A6    40C3D7C9 A
            01 003A7    40404040 A
      986                                     BOUND    4
      987                            * CONSTANTS USED FOR HEX TO DECIMAL CONVERSION
      988   01 003A8    0000000A A   TENS     DATA     10
      989   01 003A9    00000064 A   HUND     DATA     100
      990   01 003AA    000003E8 A   THOU     DATA     1000
      991   01 003AB    00002710 A   TENTHOU  DATA     10000
      992   01 003AC    000186A0 A   HUNDTHOU DATA     100000
      993                                     PAGE
      994                                     BOUND    8
      995   01 003AE    00000100     STARTOVR DATA     START,0           INITIALIZE
            01 003AF    00000000 A
      996                            * ENTER HERE IF A MEMORY PARITY
      997                                     BOUND    8
      998   01 003B0    00000000 A   PARITY   DATA     0,0,PARITY+4,0    TRAP ADDRESS IN LOCATION 'PARITY'
            01 003B1    00000000 A
            01 003B2    000003B4
            01 003B3    00000000 A
      999   01 003B4    ED500191              WD,5     *DISARM           CURRENT CPI'S
     1000   01 003B5    ED800191              WD,8     *DISARM           CURRENT CEZI
     1001   01 003B6    2E000000 A            WAIT     0
     1002                            ** THE ADDRESS OF THE INSTRUCTION ENCOUNTERING THE MEMORY PARITY IS
     1003                            ** IN LOCATION 'PARITY'. THE FAULT LIGHT INDICATES THE MEMORY DOOR
     1004                            *  CLEARING THE WAIT WILL TURN OFF THE MF LIGHT AND RESTART
     1005   01 003B7    6CF00010 A            RD,15    X'10'             RD MF LIGHTS
     1006   01 003B8    0E3003AE              LPSD,3   STARTOVR          COMPLETE INITIALIZATION
     1007                                     BOUND    8
     1008                            * CONTROL PANEL INTERRUPT
     1009   01 003BA    00000000 A   CPINTA   DATA     0,0,CPINTA+4,0
            01 003BB    00000000 A
            01 003BC    000003BE
            01 003BD    00000000 A
     1010   01 003BE    2230F3C0 A            LI,3     X'F3C0'           CPI AND CEZI LEVELS
     1011   01 003BF    ED300191              WD,3     *DISARM           PREVENT INTR OUT OF THIS ROUTINE
     1012   01 003C0    ED300195              WD,3     *DISABLE          IN CASE DISARM NOT FULLY OPERATIONAL
     1013   01 003C1    32300422              LW,3     PASS              PASS COUNT
     1014   01 003C2    3200031A              LW,0     DEVICE            OUTPUT DEVICE
     1015   01 003C3    321001BD              LW,1     CPIMAN            LAST ENTRY FOR CPI'S- MANUAL MODE
     1016   01 003C4    322001BE              LW,2     CEZMAN            LAST ENTRY FOR CEZI'S MANUAL MODE
     1017   01 003C5    324001A4              LW,4     MANUALM           -# IF MANUAL MODE
     1018   01 003C6    32F001B8              LW,15    TESTSEL
     1019                                     PAGE
     1020   01 003C7    2E000000 A            WAIT     0
     1021                            *****   REGISTER CONTENTS AT THIS WAIT ARE AS FOLLOWS
     1022                            *
     1023                            *
     1024                            *
     1025                            *       R0  IO DEVICE ADDRESS
     1026                            *       R1  MANUAL PATTERN ENTRY FOR CPI'S
     1027                            *       R2  MANUAL PATTERN ENTRY FOR CEZI'S
     1028                            *       R3  PROGRAM PASS COUNT
     1029                            *       R15 INDIVIDUAL TEST SELECTION
     1030                            *****
     1031                            *****
     1032                            ****    THE FOLLOWING PROCEDURES   APPLY TO THE OPTIONS THAT MAY BE
     1033                            ****    CHOSEN : (1) THE MANUAL MODE SELECTION OVERRIDES THE INDIVIDUAL
     1034                            *                     TEST SELECTION
     1035                            *                (2) THE DEVICE ADDRESS MAY BE CHAGED IN CONJUNCTION
     1036                            *                    WITH ANOTHER OPTION
     1037                            *                (3) DISPLAY IA AND CLEAR THE WAIT TO IMPLEMENT CHOSEN
     1038                            *                    OPTIONS
     1039                            *
     1040                                     PAGE
     1041                            *
     1042                            * OPTIONS AVAILABLE AT THIS WAIT ARE:
     1043                            ***
     1044                            * 1. CHANGE I/O ADDR BY MODIFYING R0.
     1045                            ***
     1046                            * 2. ENTER A MANUAL MODE OF OPERATION BY ENTERING AT LEAST ONE BIT IN
     1047                            *    EITHER R1 OR R2. THE FOLLOWING FORMAT IS UTILIZED
     1048                            ***      BITS /  REGISTER 1  / REGISTER 2 /  MEANING
     1049                            *        0-3  / CPI1-4       /   CEZI 1-4 /  ARM LEVEL SELECTED BY A ONE
     1050                            *                                            DISARM IF = 0
     1051                            *        4-7  / CPI1-4       /   CEZI 1-4 /  ENABLE LEVELS =1
     1052                            *                                            DISABLE IF = 0
     1053                            *        8-11 / CPI1-4       /   CEZI 1-4 /  TRIGGER LEVELS= 1
     1054                            *        12-31/  DELAY       /   DELAY    /  BOTH=0 :WAIT AFTER INITIA-
     1055                            *                                                    TING INTERRUPTS
     1056                            *                                          EITHER NOT EQUAL 0 : INITIAL-
     1057                            *  IZE INTERRUPTS THEN DELAY FOR THE LARGER COUNT IN R1/2 BEFORE RE-
     1058                            *  PEATING THE INTERRUPT SEQUENCE.
     1059                            ********
     1060                            *****     TO EXIT THE MANUAL MODE EITHER  (1) CPU RESET AND RUN
     1061                            *****                                 OR  (2) CP INTR AND CLEAR R1 & R2
     1062                            ********
     1063                            * 3. SELECT A SPECIFIC TEST BY STORING A VALID SELECTION IN R15
     1064                            ****
     1065                            ****    TURN SS 1 TO ON
     1066                            ****
     1067                            ****  THERE SHOULD BE ONLY ONE TEST NUMBER SELECTED AT ANY ONE TIME
     1068                            ****
     1069                                     PAGE
     1070                            ****  TEST # / BIT POSITION /          TEST  DESCRIPTION
     1071                            **********   /   IN R15     /            ***     ***
     1072                            ****    1    /       1      / CHECK FOR CPI'S BEING TRIGGERED BY A CLOCK
     1073                            *       2    /       2      / CHECK FOR CEZI'S TRIGGERED BY A WD INST
     1074                            *       3    /       3      / CHECK FOR CEZI'S TRIGGERED BY CPI = 0
     1075                            *       4    /       4      / CHECK FOR CPI'S TRIGGERED BY A WD INST
     1076                            *       5    /       5      / CHECK FOR HIGH PRIORITY CPI OPERATION WHEN
     1077                            *       -    /       -      /     NOT ENABLED AND THEN ENABLED.
     1078                            *       6    /       6      / FREQUENCY COMPUTATION OF 512 CPS WHEN
     1079                            *       -    /       -      / CPI 4 IS OPERATIONAL
     1080                            *       7    /       7      / COMPARISON OF 512 CPS TO OTHER FREQUENCIES
     1081                            *       -    /       -      /(WHEN CPI 4 IS OPERATIONAL)
     1082                            *       8    /       8      / APPROXIMATION OF OTHER FREQUENCIES WHEN
     1083                            *                           / EITHER 512 CPS OR CPI 4 IS NOT OPERATIONAL
     1084                            *****
     1085                            ****    TO EXIT THE INDIVIDUAL TEST MODE, EITHER CP INTR OR TURN OFF SS1
     1086                            *****
     1087                                     PAGE
     1088   01 003C8    3500031A              STW,0    DEVICE            IO DEVICE SELECTED
     1089   01 003C9    227FFFFF A            LI,7     -1                INDICATOR
     1090   01 003CA    351001BD              STW,1    CPIMAN            SAVE SETTINGS FOR CPI'S
     1091   01 003CB    352001BE              STW,2    CEZMAN            SAVE SETTINGS FOR CEZI'S
     1092   01 003CC    32100001 A            LW,1     1                 CHECK FOR ENTRY
     1093   01 003CD    693003E8              BNEZ     MANUALR           MANUAL MODE REQUESTED
     1094   01 003CE    32200002 A            LW,2     2                 CHECK FOR ENTRY
     1095   01 003CF    693003E8              BNEZ     MANUALR           MANUAL MODE REQUESTED
     1096   01 003D0    32F0000F A            LW,15    15                CHECK FOR TEST SELECTION
     1097   01 003D1    693003D3              BNEZ     TESTN
     1098   01 003D2    0E3003AE              LPSD,3   STARTOVR          REINITIALIZE PROGRAM
     1099   01 003D3    22100010 A   TESTN    LI,1     X'10'             CONTROL PANEL BIT
     1100   01 003D4    ED100192              WD,1     *ARMENAB          ALLOW CP INTR
     1101   01 003D5    224FFFF8 A            LI,4     -8                INDEX
     1102   01 003D6    35F001B8              STW,15   TESTSEL           SAVE SELECTION
     1103   01 003D7    25F00001 A   TESTBIT  SLS,15   1                 MOVE NEXT BIT TO SIGN POSITION
     1104   01 003D8    B2A803DF              LW,10    *TESTADDR,4       STARTING ADDR OF NEXT TEST
     1105   01 003D9    32F0000F A            LW,15    15
     1106   01 003DA    E910000A A            BLZ      *10               GO TO TEST
     1107   01 003DB    654003D7              BIR,4    TESTBIT           TRY NEXT BIT
     1108   01 003DC    32F001B8              LW,15    TESTSEL           DISPLAY SELECTION
     1109   01 003DD    2E000000 A            WAIT     0
     1110                            * INVALID TEST SELECTION. LEGAL SELECTIONS ARE BITS 1 THRU 8 OF R15
     1111                            * TO RESTART,ENTER A VALID TEST SELECTION IN R15 AND CLEAR THE WAIT
     1112   01 003DE    680003D3              B        TESTN
     1113   01 003DF    000003E8     TESTADDR DATA     TESTADR+8
     1114   01 003E0    00000115     TESTADR  DATA     TEST1,TEST2,TEST3,TEST4,TEST5,FREQ500,INSPEC+2,NINSPEC
            01 003E1    00000123
            01 003E2    00000129
            01 003E3    0000013B
            01 003E4    00000152
            01 003E5    00000212
            01 003E6    00000242
            01 003E7    0000025C
     1115                                     PAGE
     1116   01 003E8    357001A4     MANUALR  STW,7    MANUALM           INDICATE MANUAL MODE
     1117   01 003E9    22100010 A            LI,1     X'10'             CONTROL PANEL BIT
     1118   01 003EA    ED100192              WD,1     *ARMENAB          ALLOW CP INTR
     1119                            * SET UP LEVELS AND PERFORM TASKS AS INDICATED
     1120   01 003EB    32D0058C     IMPMAN   LW,13    =X'F000'          MASK
     1121   01 003EC    22200002 A            LI,2     2                 INDEX
     1122   01 003ED    32C001BD              LW,12    CPIMAN            GET MANUAL SELECTIONS
     1123   01 003EE    25C00070 A            SLS,12   -16               POSITION ARM BITS
     1124   01 003EF    47C00414     SEAREND  STS,12   ARMM              SAVE
     1125   01 003F0    48C0000D A            EOR,12   13                ONES COMPLEMENT OF ARM BITS
     1126   01 003F1    47C00417              STS,12   DISARMAN          LEVELS TO DISARM
     1127   01 003F2    25C00204 A            SCS,12   4                 POSITION ENABLE BITS
     1128   01 003F3    47C00415              STS,12   ENABM             SAVE
     1129   01 003F4    48C0000D A            EOR,12   13                ONES COMPLEMENT OF ENABLE BITS
     1130   01 003F5    47C00416              STS,12   DISABM            LEVELS TO DISABLE
     1131   01 003F6    25C00004 A            SLS,12   4                 POSITION TRIGGER BITS
     1132   01 003F7    47C00418              STS,12   TRIGM             SAVE
     1133   01 003F8    64200410              BDR,2    SEARCH
     1134                            * IS A DELAY SPECIFIED ?
     1135   01 003F9    22A00000 A            LI,10    0
     1136   01 003FA    32B0058D              LW,11    =X'FFFFF'         DELAY MASK
     1137   01 003FB    45A001BD              CS,10    CPIMAN
     1138   01 003FC    69100419              BL       SETDLY            GO IF DATA IN BITS 12-31
     1139   01 003FD    45A001BE              CS,10    CEZMAN
     1140   01 003FE    69100419              BL       SETDLY            GO IF DATA IN BITS 12-31
     1141                            * NO DELAY;THEREFORE,WAIT AFTER PERFORMING OPERATIONS
     1142   01 003FF    22300000 A            LI,3     0                 SPECIFY NO DLY
     1143                                     PAGE
     1144   01 00400    32800414     INTRMAN  LW,8     ARMM              ARM BITS
     1145   01 00401    32500415              LW,5     ENABM             ENABLE BITS
     1146   01 00402    32600418              LW,6     TRIGM             TRIGGER BITS
     1147   01 00403    32900416              LW,9     DISABM            LEVELS TO DIABLE
     1148   01 00404    32A00417              LW,10    DISARMAN          LEVELS TO DISARM
     1149   01 00405    ED900195              WD,9     *DISABLE          LEVELS NOT TO BE ARMED, ENAB OR TRIG
     1150   01 00406    EDA00191              WD,10    *DISARM           LEVELS NOT TO BE ARMED, ENAB OR TRIG
     1151   01 00407    ED800193              WD,8     *ARMDISAB         ARM AND DISABLE
     1152   01 00408    ED500194              WD,5     *ENABLE           ENABLE
     1153   01 00409    ED600197              WD,6     *TRIGGER          TRIGGER
     1154   01 0040A    6430040D              BDR,3    %+3
     1155   01 0040B    2E000000 A            WAIT
     1156   01 0040C    680003FF              B        INTRMAN-1         INITIATE INTERRUPT SEQUENCE
     1157   01 0040D    6430040D              BDR,3    %                 DELAY
     1158   01 0040E    32300421              LW,3     DLYMAN            RESET DELAY
     1159   01 0040F    68000400              B        INTRMAN           INITIATE INTERRUPT SEQUENCE
     1160   01 00410    32C001BE     SEARCH   LW,12    CEZMAN
     1161   01 00411    25C0026A A            SCS,12   -22
     1162   01 00412    32D0058E              LW,13    =X'3C0'           MASK FOR CEZI
     1163   01 00413    680003EF              B        SEAREND           CONTINUE FORMATION OF INTERRUPT BITS
     1164   01 00414    00000000 A   ARMM     DATA     0
     1165   01 00415    00000000 A   ENABM    DATA     0
     1166   01 00416    00000000 A   DISABM   DATA     0
     1167   01 00417    00000000 A   DISARMAN DATA     0
     1168   01 00418    00000000 A   TRIGM    DATA     0
     1169                                     PAGE
     1170                            *FIND THE LONGEST DELAY SPECIFIED AND ASSUME IT IS CORRECT
     1171   01 00419    4AA001BD     SETDLY   LS,10    CPIMAN            DELAY SPECIFIED IN R1
     1172   01 0041A    45A001BE              CS,10    CEZMAN            DELAY SPECIFIED IN R2
     1173   01 0041B    6910041F              BL       CEZL              LARGEST DELAY IS IN CEZMAN
     1174   01 0041C                 CPL      RES      0
     1175   01 0041C    47A00421              STS,10   DLYMAN            LARGEST DELAY TO STORAGE
     1176   01 0041D    32300421              LW,3     DLYMAN
     1177   01 0041E    68000400              B        INTRMAN           INITIATE INTERRUPT SEQUENCE
     1178   01 0041F    4AA001BE     CEZL     LS,10    CEZMAN            GET LARGEST DELAY
     1179   01 00420    6800041C              B        CPL
     1180   01 00421    00000000 A   DLYMAN   DATA     0                 DELAY BETWEEN INITIATING INTERRUPTS
     1181   01 00422    00000000 A   PASS     DATA     0                 PASS COUNT
     1182   01 00423    32000598     TITLE    LW,0     =DA(CDWTLE)       TITLE MESSAGE
     1183   01 00424    0F00030E              XPSD,0   PRINT
     1184   01 00425    68000100              B        START             BEGIN PROGRAM
     1185                                     BOUND    8
     1186   01 00426    050010A0     CDWTLE   GEN,8,24 5,BA(TITLEMSG)
     1187   01 00427    0000003C A            DATA     60                BYTE COUNT
     1188                            TITLEMSG TEXT     '

SIGMA 5/7 REAL-TIME CLOCK TEST',;              *F00
     1189   01 00428    1515E2C9 A                     '
704017-F00  MANUAL 901136 F    '                *F00
            01 00429    C7D4C140 A
            01 0042A    F561F740 A
            01 0042B    D9C5C1D3 A
            01 0042C    60E3C9D4 A
            01 0042D    C540C3D3 A
            01 0042E    D6C3D240 A
            01 0042F    E3C5E2E3 A
            01 00430    15F7F0F4 A
            01 00431    F0F1F760 A
            01 00432    C6F0F040 A
            01 00433    40D4C1D5 A
            01 00434    E4C1D340 A
            01 00435    F9F0F1F1 A
            01 00436    F3F640C6 A
            01 00437    40404040 A
     1190                            *
     1191                            * COUNT PULSE INTERRUPT MAP TEST.                                   *F00
     1192                            * THIS TEST IS DESIGNED TO TEST THE MAPPING FEATURE OF COUNT PULSE  *F00
     1193                            * 4 INTERRUPT (X'55') EFFECTIVE FOR REVISION 'Y' OF SIGMA 7 FRAME 1 *F00
     1194                            * AND REVISIONS 'T' AND 'U' OF SIGMA 7 FRAME 3 (MAP OPTION ON       *F00
     1195                            * SIGMA 7 CPU).                                                     *F00
     1196                            *                                                                   *F00
     1197   01 00438    22100001 A   CNT4:T   LI,1     1                 SET INDEX 1                     *F00
     1198   01 00439    22000000 A            LI,0     0                 CLEAR MAP FLAG                  *F00
     1199   01 0043A    350004C2              STW,0    :MAPFLG                                           *F00
     1200   01 0043B    3500019B              STW,0    CPI4                AND CP4                       *F00
     1201   01 0043C    6AE0049D              BAL,14   TRIGCLK           TRIGGER COUNT PULSE 4           *F00
     1202   01 0043D    3300019B              MTW,0    CPI4              CPI4 OPERATIONAL CHECK          *F00
     1203   01 0043E    69300442              BNEZ     %+4                 YES, CONTINUE                 *F00
     1204   01 0043F    2200026F              LI,0     DA(BADCPI4)         NO, PRINT MESSAGE & EXIT      *F00
     1205   01 00440    0F00030E              XPSD,0   PRINT                                             *F00
     1206   01 00441    6800049A              B        EXIT                                              *F00
     1207                            *                                                                   *F00
     1208   01 00442    6AE004A7              BAL,14   SETZERO           CLEAR EXPECTED LOCATIONS        *F00
     1209   01 00443    3500019B              STW,0    CPI4                AND CP4                       *F00
     1210   01 00444    32200055 A            LW,2     X'55'             SAVE INSTRUCTION IN LOC X'55'   *F00
     1211   01 00445    352004CB              STW,2    SAVE:4                                            *F00
     1212   01 00446    22200700 A            LI,2     X'700'            ALTER INSTRUCTION IN LOC X'55'  *F00
     1213   01 00447    55220055 A            STH,2    X'55',1                                           *F00
     1214   01 00448    6AE004A4              BAL,14   SETMAP            SET MAP MODE X'00010204'        *F00
     1215   01 00449    0E0004D2              LPSD,0   LPSD1               MAP MODE ON                   *F00
     1216   01 0044A    6AE0049D     LP1      BAL,14   TRIGCLK           TRIGGER RTC4                    *F00
     1217   01 0044B    0E0004D4              LPSD,0   LPSD2             MAP MODE OFF                    *F00
     1218   01 0044C    33000900 A   LPS1     MTW,0    X'900'            TEST FOR RTC4 MAPPED            *F00
     1219   01 0044D    68300451              BEZ      %+4                 NO MAP                        *F00
     1220   01 0044E    22001440              LI,0     BA(MAPONE)          MAP, PRINT MAP MESSAGE        *F00
     1221   01 0044F    331004C2              MTW,1    :MAPFLG           SET MAP FLAG                    *F00
     1222   01 00450    68000452              B        %+2                                               *F00
     1223   01 00451    22001410              LI,0     BA(MAPZR)           PRINT NO MAP MESSAGE          *F00
     1224   01 00452    6AE004BD              BAL,14   :PRINT                                            *F00
     1225   01 00453    6AE004A7              BAL,14   SETZERO           CLEAR EXPECTED LOCATIONS        *F00
     1226   01 00454    222007E0 A            LI,2     X'7E0'            SET INDIRECT ADDRESS            *F00
     1227   01 00455    35200900 A            STW,2    X'900'                                            *F00
     1228   01 00456    3220058F              LW,2     =X'80000000'      SET INDIRECT ADDR. IN INSTRUC.  *F00
     1229   01 00457    30200055 A            AW,2     X'55'                                             *F00
     1230   01 00458    35200055 A            STW,2    X'55'                                             *F00
     1231   01 00459    6AE004A4              BAL,14   SETMAP            SET MAP MODE X'00010204'        *F00
     1232   01 0045A    0E0004D6              LPSD,0   LPSD3               MAP MODE ON                   *F00
     1233   01 0045B    6AE0049D     LP3      BAL,14   TRIGCLK           TRIGGER RTC4                    *F00
     1234   01 0045C    0E0004D8              LPSD,0   LPSD4             MAP MODE OFF                    *F00
     1235   01 0045D    330009E0 A   LPS3     MTW,0    X'9E0'            TEST RTC4 IND. ADDR. MAPPED     *F00
     1236   01 0045E    68300462              BEZ      %+4                 NO MAP                        *F00
     1237   01 0045F    22001470              LI,0     BA(INDONE)          MAP, PRINT MESSAGE            *F00
     1238   01 00460    331004C2              MTW,1    :MAPFLG           SET MAP FLAG                    *F00
     1239   01 00461    68000463              B        %+2                                               *F00
     1240   01 00462    220014A0              LI,0     BA(INDZR)           PRINT NO MAP MESSAGE          *F00
     1241   01 00463    6AE004BD              BAL,14   :PRINT                                            *F00
     1242   01 00464    330004C2              MTW,0    :MAPFLG           CHECK FOR RTC4 MAPPED           *F00
     1243   01 00465    68300498              BEZ      EXIT1               NO MAP, SKIP REPETITIVE TEST  *F00
     1244                            *                                                                   *F00
     1245                            * REPETITIVE TEST OF COUNT PULSE 4 INTERRUPT WITH MAPPING.          *F00
     1246                            * THIS TEST IS DESIGNED TO TRIGGER COUNT PULSE 4 INTERRUPT APROX.   *F00
     1247                            * 1000 TIME USING MAP AND INDIRRECT ADDRESSING.  THE RESULTS IN ALL *F00
     1248                            * NORMALLY POSSIBLE MEMORY LOCATIONS ARE THEN CHECKED AND THE       *F00
     1249                            * RESULTS PRINTED OUT.                                              *F00
     1250                            *                                                                   *F00
     1251   01 00466    6AE004A7              BAL,14   SETZERO           CLEAR EXSPECTED LOCATIONS       *F00
     1252   01 00467    35000740 A            STW,0    X'740'                                            *F00
     1253   01 00468    35000940 A            STW,0    X'940'                                            *F00
     1254   01 00469    350004C3              STW,0    :ERRCNT             AND ERROR COUNT               *F00
     1255   01 0046A    22300740 A            LI,3     X'740'            SET INDIRECT ADDRESSES          *F00
     1256   01 0046B    35300700 A            STW,3    X'700'                                            *F00
     1257   01 0046C    223007E0 A            LI,3     X'7E0'                                            *F00
     1258   01 0046D    35300900 A            STW,3    X'900'                                            *F00
     1259   01 0046E    222FFC18 A            LI,2     -1000             SET LOOP COUNT                  *F00
     1260   01 0046F    6AE004A4              BAL,14   SETMAP            SET MAP MODE X'00010204'        *F00
     1261   01 00470    0E0004DA              LPSD,0   LPSD5               MAP MODE ON                   *F00
     1262   01 00471    6AE0049D     LP5      BAL,14   TRIGCLK           TRIGGER RTC4                    *F00
     1263   01 00472    65200471              BIR,2    LP5                 TEST LOOP COUNT               *F00
     1264   01 00473    0E0004DC              LPSD,0   LPSD6             MAP MODE OFF                    *F00
     1265                            *                                                                   *F00
     1266                            *        CHECK FOR MAP FAILURE AND INDIRECT ADDRESS LOCATION        *F00
     1267                            *        INCREMENTED. (CONTENTS OF X'700'>X'740')                   *F00
     1268                            *                                                                   *F00
     1269   01 00474    32300700 A   LPS5     LW,3     X'700'            CHECK LOC X'700'                *F00
     1270   01 00475    21300740 A            CI,3     X'740'                                            *F00
     1271   01 00476    6830047A              BE       %+4                 CHECK OK                      *F00
     1272   01 00477    220014D0              LI,0     BA(:ERR1)           FAILURE, PRINT MESSAGE 1      *F00
     1273   01 00478    6AE004BD              BAL,14   :PRINT                                            *F00
     1274   01 00479    331004C3              MTW,1    :ERRCNT             SET ERROR IND.                *F00
     1275                            *                                                                   *F00
     1276                            *        CHECK FOR MAP OK AND INDIRECT ADDRESS LOCATION INCREMENTED *F00
     1277                            *        (CONTENTS OF X'900'>X'7E0')                                *F00
     1278                            *                                                                   *F00
     1279   01 0047A    32300900 A            LW,3     X'900'            CHECK LOC X'900'                *F00
     1280   01 0047B    213007E0 A            CI,3     X'7E0'                                            *F00
     1281   01 0047C    68300480              BE       %+4                 CHECK OK                      *F00
     1282   01 0047D    22001500              LI,0     BA(:ERR2)           FAILURE, PRINT MESSAGE 2      *F00
     1283   01 0047E    6AE004BD              BAL,14   :PRINT                                            *F00
     1284   01 0047F    331004C3              MTW,1    :ERRCNT           SET ERROR IND.                  *F00
     1285                            *                                                                   *F00
     1286                            *        CHECK FOR MAP FAILURE ON INDIRECT REFERENCE AND MAP FAILURE*F00
     1287                            *        ON INCREMENT REFERENCE.  (CONTENTS OF X'740'>0)            *F00
     1288                            *                                                                   *F00
     1289   01 00480    33000740 A            MTW,0    X'740'            CHECK LOC X'740'                *F00
     1290   01 00481    68300485              BEZ      %+4                 CHECK OK                      *F00
     1291   01 00482    22001530              LI,0     BA(:ERR3)           FAILURE, PRINT MESSAGE 3      *F00
     1292   01 00483    6AE004BD              BAL,14   :PRINT                                            *F00
     1293   01 00484    331004C3              MTW,1    :ERRCNT           SET ERROR IND.                  *F00
     1294                            *                                                                   *F00
     1295                            *        CHECK FOR MAP FAILURE ON INDIRECT REFERENCE AND MAP OK     *F00
     1296                            *        ON INCREMENT REFERENCE.  (CONTENTS OF X'940'>0)            *F00
     1297                            *                                                                   *F00
     1298   01 00485    33000940 A            MTW,0    X'940'            CHECK LOC X'940'                *F00
     1299   01 00486    6830048A              BEZ      %+4                 CHECK OK                      *F00
     1300   01 00487    22001560              LI,0     BA(:ERR4)           FAILURE, PRINT MESSAGE 4      *F00
     1301   01 00488    6AE004BD              BAL,14   :PRINT                                            *F00
     1302   01 00489    331004C3              MTW,1    :ERRCNT           SET ERROR IND.                  *F00
     1303                            *                                                                   *F00
     1304                            *        CHECK FOR MAP OK ON INDIRECT REFERENCE AND MAP FAILURE ON  *F00
     1305                            *        INCREMENT REFERENCE.  (CONTENTS OF X'7E0'>0)               *F00
     1306                            *                                                                   *F00
     1307   01 0048A    330007E0 A            MTW,0    X'7E0'            CHECK LOC X'7E0'                *F00
     1308   01 0048B    6830048F              BEZ      %+4                 CHECK OK                      *F00
     1309   01 0048C    22001590              LI,0     BA(:ERR5)           FAILURE, PRINT MESSAGE 5      *F00
     1310   01 0048D    6AE004BD              BAL,14   :PRINT                                            *F00
     1311   01 0048E    331004C3              MTW,1    :ERRCNT           SET ERROR IND.                  *F00
     1312                            *                                                                   *F00
     1313                            *        CHECK FOR MAP OK ON INDIRECT REFERENCE AND MAP OK ON       *F00
     1314                            *        INCREMENT REFERENCE.  (CONTENTS OF X'9E0'=0)               *F00
     1315                            *                                                                   *F00
     1316   01 0048F    330009E0 A            MTW,0    X'9E0'            CHECK LOC X'9E0'                *F00
     1317   01 00490    69300494              BNEZ     %+4                 CHECK OK                      *F00
     1318   01 00491    220015C0              LI,0     BA(:ERR6)           FAILURE, PRINT MESSAGE 6      *F00
     1319   01 00492    6AE004BD              BAL,14   :PRINT                                            *F00
     1320   01 00493    331004C3              MTW,1    :ERRCNT           SET ERROR IND.                  *F00
     1321                            *                                                                   *F00
     1322   01 00494    330004C3              MTW,0    :ERRCNT           TEST FOR ERRORS OCCURED         *F00
     1323   01 00495    69300498              BNEZ     EXIT1               ERRORS, EXIT                  *F00
     1324   01 00496    220015F0              LI,0     BA(:ERR7)           TEST OK, PRINT SUCCESS MESS.  *F00
     1325   01 00497    6AE004BD              BAL,14   :PRINT                                            *F00
     1326   01 00498    322004CB     EXIT1    LW,2     SAVE:4            RESTORE INSTRUCTION TO X'55'    *F00
     1327   01 00499    35200055 A            STW,2    X'55'                                             *F00
     1328   01 0049A    22000000 A   EXIT     LI,0     0                 CLEAR CPI4                      *F00
     1329   01 0049B    3500019B              STW,0    CPI4                                              *F00
     1330   01 0049C    E800000F A            B        *15               RETURN                          *F00
     1331                            *                                                                   *F00
     1332                            *  TRIGGER COUNT PULSE 4 INTERRUPT SUBROUTINE.                      *F00
     1333                            *                                                                   *F00
     1334   01 0049D    22501000 A   TRIGCLK  LI,5     X'1000'           ADDRESS CPI4 FOR WD             *F00
     1335   01 0049E    ED500191              WD,5     *DISARM           DISARM-CLEAR PEND. INT.         *F00
     1336   01 0049F    ED500193              WD,5     *ARMDISAB         ARM/DISABLE-ALLOW INT. TO BE    *F00
     1337                            *                                     RECOGNIZED                    *F00
     1338   01 004A0    ED500197              WD,5     *TRIGGER          TRIGGER-TRIGGER INT.            *F00
     1339   01 004A1    ED500194              WD,5     *ENABLE           ENABLE-ALLOW INT. TO BE         *F00
     1340                            *                                     PROCESSED                     *F00
     1341   01 004A2    ED500191              WD,5     *DISARM           DISARM-HALT CLOCK               *F00
     1342   01 004A3    E800000E A            B        *14               EXIT SUBROUTINE                 *F00
     1343                            *                                                                   *F00
     1344                            *  SET UP MAP WITH MMC COMMAND ROUTINE.                             *F00
     1345                            *    (X'00010204')                                                  *F00
     1346                            *                                                                   *F00
     1347   01 004A4    124004CE     SETMAP   LD,4     MAPSET            LOAD DOUBLEWORD                 *F00
     1348   01 004A5    6F480000 A            MMC,4    4                                                 *F00
     1349   01 004A6    E800000E A            B        *14               EXIT SUBROUTINE                 *F00
     1350                            *                                                                   *F00
     1351                            *  CLEAR COUNT PULSE 4 INTERRUPT COUNT LOCATIONS SUBROUTINE.        *F00
     1352                            *                                                                   *F00
     1353   01 004A7    22000000 A   SETZERO  LI,0     0                 CLEAR LOCATIONS:                *F00
     1354   01 004A8    35000700 A            STW,0    X'700'              X'700'                        *F00
     1355   01 004A9    35000900 A            STW,0    X'900'              X'900'                        *F00
     1356   01 004AA    350007E0 A            STW,0    X'7E0'              X'7E0'                        *F00
     1357   01 004AB    350009E0 A            STW,0    X'9E0'              X'9E0'                        *F00
     1358   01 004AC    E800000E A            B        *14               EXIT                            *F00
     1359                            *                                                                   *F00
     1360                            *  MAPPING TEST TO DETERMINE IF MACHINE HAS MAP.                    *F00
     1361                            *                                                                   *F00
     1362   01 004AD    3210017E     MAPTST   LW,1     SIG5VAL           FETCH SIGMA 5 CONSTANT          *F00
     1363   01 004AE    35F004CA              STW,15   SAVERET           SAVE RETURN ADDRESS             *F00
     1364   01 004AF    31200001 A            CW,2     1                 TEST FOR SIGMA 5                *F00
     1365   01 004B0    683004BC              BE       SAFE+1              SIGMA 5, EXIT - NO MAP        *F00
     1366   01 004B1    6AE004A4              BAL,14   SETMAP            SET MAP REGISTERS X'00010204'   *F00
     1367   01 004B2    6AE004A7              BAL,14   SETZERO           CLEAR TEST LOCATIONS            *F00
     1368   01 004B3    02200060 A            LCI      6                 SET TEST INSTRUCTIONS TO REG.   *F00
     1369   01 004B4    2A0004C4              LM,0     :MAPTST                                           *F00
     1370   01 004B5    0E0004D0              LPSD,0   LPSDMAP           SET MAP MODE ON                 *F00
     1371   01 004B6    33000900 A   LPSDC12  MTW,0    X'900'            TEST FOR 128K MEMORY AND NO MAP *F00
     1372   01 004B7    693004BB              BNEZ     SAFE                MAP INSTALLED                 *F00
     1373   01 004B8    22000270     NOMAP    LI,0     DA(TEXTC2)        PRINT NO MAP INSTALLED MESS.    *F00
     1374   01 004B9    0F00030E              XPSD,0   PRINT                                             *F00
     1375   01 004BA    680004BC              B        %+2                                               *F00
     1376   01 004BB    331004CA     SAFE     MTW,1    SAVERET           MAP EXIT                        *F00
     1377   01 004BC    E80004CA              B        *SAVERET           NO MAP EXIT                    *F00
     1378                            *                                                                   *F00
     1379                            *  PRINT FORMATTED ERROR MESSAGE SUBROUTINE.                        *F00
     1380                            *                                                                   *F00
     1381   01 004BD    22100001 A   :PRINT   LI,1     1                 SET INDEX                       *F00
     1382   01 004BE    550204E2              STH,0    TEXTCI,1          SET CDW FOR PRINTING            *F00
     1383   01 004BF    22000271              LI,0     DA(TEXTCI)        LOAD CDW                        *F00
     1384   01 004C0    0F00030E              XPSD,0   PRINT             PRINT MESSAGE                   *F00
     1385   01 004C1    E800000E A            B        *14               EXIT                            *F00
     1386                            *                                                                   *F00
     1387                            *  DATA/MESSAGE TABLES FOR MAP TESTS.                               *F00
     1388                            *                                                                   *F00
     1389   01 004C2    00000000 A   :MAPFLG  DATA     0                                                 *F00
     1390   01 004C3    00000000 A   :ERRCNT  DATA     0                                                 *F00
     1391   01 004C4    00000001 A   :MAPTST  DATA     1                 INSTRUCTIONS TO BE RUN          *F00
     1392   01 004C5    35100700 A            STW,1    X'700'             FROM THE GENERAL REGISTERS     *F00
     1393   01 004C6    0E000004 A            LPSD,0   4                   WHEN DETERMINING IF           *F00
     1394   01 004C7    00000000 A            DATA     0                    MAP IS IMPLEMENTED           *F00
     1395   01 004C8    000004B6              DATA     LPSDC12,0             IN THIS SIGMA 7 CPU.        *F00
            01 004C9    00000000 A
     1396   01 004CA    00000000 A   SAVERET  DATA     0                                                 *F00
     1397   01 004CB    00000000 A   SAVE:4   DATA     0                                                 *F00
     1398   01 004CC    00010204 A   MAP      DATA     X'00010204'       DATA FOR SETTING MAP REGISTERS  *F00
     1399                                     BOUND    8                                                 *F00
     1400   01 004CE    000004CC     MAPSET   DATA     MAP,X'01000000'   DOUBLEWORD FOR SETTING MAP      *F00
            01 004CF    01000000 A
     1401   01 004D0    0040     A   LPSDMAP  DATA,2   X'40',1,0,0       MAP ON                          *F00
            01 004D0 2  0001     A
            01 004D1    0000     A
            01 004D1 2  0000     A
     1402   01 004D2    0040     A   LPSD1    DATA,2   X'40',LP1,0,0     MAP ON                          *F00
            01 004D2 2  044A     N
            01 004D3    0000     A
            01 004D3 2  0000     A
     1403   01 004D4    0000044C     LPSD2    DATA     LPS1,0            MAP OFF                         *F00
            01 004D5    00000000 A
     1404   01 004D6    0040     A   LPSD3    DATA,2   X'40',LP3,0,0     MAP ON                          *F00
            01 004D6 2  045B     N
            01 004D7    0000     A
            01 004D7 2  0000     A
     1405   01 004D8    0000045D     LPSD4    DATA     LPS3,0            MAP OFF                         *F00
            01 004D9    00000000 A
     1406   01 004DA    0040     A   LPSD5    DATA,2   X'40',LP5,0,0     MAP ON                          *F00
            01 004DA 2  0471     N
            01 004DB    0000     A
            01 004DB 2  0000     A
     1407   01 004DC    00000474     LPSD6    DATA     LPS5,0            MAP OFF                         *F00
            01 004DD    00000000 A
     1408   01 004DE    05001390     BADCPI4  GEN,8,24 5,BA(MSGT41)      CPI4 NOT OPER. MESS.            *F00
     1409   01 004DF    00000043 A            DATA     67                                                *F00
     1410   01 004E0    050013D4     TEXTC2   GEN,8,24 5,BA(TEXT42)      NO MAP MESS.                    *F00
     1411   01 004E1    0000003C A            DATA     60                                                *F00
     1412   01 004E2    05000000 A   TEXTCI   GEN,8,24 5,0               ERROR MESSAGES CDW              *F00
     1413   01 004E3    0000002F A            DATA     47                                                *F00
     1414                            MSGT41   TEXT     '
 COUNT PULSE 4 INTERRUPT NOT OPERATIONAL',;     *F00
     1415   01 004E4    1540C3D6 A                     '
 MAP TEST OF CPI4 ABORTED'                      *F00
            01 004E5    E4D5E340 A
            01 004E6    D7E4D3E2 A
            01 004E7    C540F440 A
            01 004E8    C9D5E3C5 A
            01 004E9    D9D9E4D7 A
            01 004EA    E340D5D6 A
            01 004EB    E340D6D7 A
            01 004EC    C5D9C1E3 A
            01 004ED    C9D6D5C1 A
            01 004EE    D31540D4 A
            01 004EF    C1D740E3 A
            01 004F0    C5E2E340 A
            01 004F1    D6C640C3 A
            01 004F2    D7C9F440 A
            01 004F3    C1C2D6D9 A
            01 004F4    E3C5C440 A
     1416                            TEXT42   TEXT     '
 MACHINE DOES NOT HAVE MAP OPTION',;            *F00
     1417   01 004F5    1540D4C1 A                     '
 MAP TEST OF CPI4 ABORTED'                      *F00
            01 004F6    C3C8C9D5 A
            01 004F7    C540C4D6 A
            01 004F8    C5E240D5 A
            01 004F9    D6E340C8 A
            01 004FA    C1E5C540 A
            01 004FB    D4C1D740 A
            01 004FC    D6D7E3C9 A
            01 004FD    D6D51540 A
            01 004FE    D4C1D740 A
            01 004FF    E3C5E2E3 A
            01 00500    40D6C640 A
            01 00501    C3D7C9F4 A
            01 00502    40C1C2D6 A
            01 00503    D9E3C5C4 A
     1418   01 00504    1540C3D7 A   MAPZR    TEXT     '
 CP4 INTERRUPT MAP FEATURE NOT INSTALLED.     ' *F00
            01 00505    F440C9D5 A
            01 00506    E3C5D9D9 A
            01 00507    E4D7E340 A
            01 00508    D4C1D740 A
            01 00509    C6C5C1E3 A
            01 0050A    E4D9C540 A
            01 0050B    D5D6E340 A
            01 0050C    C9D5E2E3 A
            01 0050D    C1D3D3C5 A
            01 0050E    C44B4040 A
            01 0050F    40404040 A
     1419   01 00510    1540C3D7 A   MAPONE   TEXT     '
 CP4 INTERRUPT MAP FEATURE INSTALLED.         ' *F00
            01 00511    F440C9D5 A
            01 00512    E3C5D9D9 A
            01 00513    E4D7E340 A
            01 00514    D4C1D740 A
            01 00515    C6C5C1E3 A
            01 00516    E4D9C540 A
            01 00517    C9D5E2E3 A
            01 00518    C1D3D3C5 A
            01 00519    C44B4040 A
            01 0051A    40404040 A
            01 0051B    40404040 A
     1420   01 0051C    1540C9D5 A   INDONE   TEXT     '
 IND. ADDRS MAPPING OPERATIONAL IN CPI4.      ' *F00
            01 0051D    C44B40C1 A
            01 0051E    C4C4D9E2 A
            01 0051F    40D4C1D7 A
            01 00520    D7C9D5C7 A
            01 00521    40D6D7C5 A
            01 00522    D9C1E3C9 A
            01 00523    D6D5C1D3 A
            01 00524    40C9D540 A
            01 00525    C3D7C9F4 A
            01 00526    4B404040 A
            01 00527    40404040 A
     1421   01 00528    1540C9D5 A   INDZR    TEXT     '
 IND. ADDRS MAPPING NOT OPERATIONAL IN CPI4.  ' *F00
            01 00529    C44B40C1 A
            01 0052A    C4C4D9E2 A
            01 0052B    40D4C1D7 A
            01 0052C    D7C9D5C7 A
            01 0052D    40D5D6E3 A
            01 0052E    40D6D7C5 A
            01 0052F    D9C1E3C9 A
            01 00530    D6D5C1D3 A
            01 00531    40C9D540 A
            01 00532    C3D7C9F4 A
            01 00533    4B404040 A
     1422   01 00534    1540D4C1 A   :ERR1    TEXT     '
 MAP BAD ON IND. ADDRS & IND. LOC CHANGED.    ' *F00
            01 00535    D740C2C1 A
            01 00536    C440D6D5 A
            01 00537    40C9D5C4 A
            01 00538    4B40C1C4 A
            01 00539    C4D9E240 A
            01 0053A    5040C9D5 A
            01 0053B    C44B40D3 A
            01 0053C    D6C340C3 A
            01 0053D    C8C1D5C7 A
            01 0053E    C5C44B40 A
            01 0053F    40404040 A
     1423   01 00540    1540D4C1 A   :ERR2    TEXT     '
 MAP OK ON IND. ADDRS & IND. LOC CHANGED.     ' *F00
            01 00541    D740D6D2 A
            01 00542    40D6D540 A
            01 00543    C9D5C44B A
            01 00544    40C1C4C4 A
            01 00545    D9E24050 A
            01 00546    40C9D5C4 A
            01 00547    4B40D3D6 A
            01 00548    C340C3C8 A
            01 00549    C1D5C7C5 A
            01 0054A    C44B4040 A
            01 0054B    40404040 A
     1424   01 0054C    1540D4C1 A   :ERR3    TEXT     '
 MAP BAD ON IND. ADDRS & MAP BAD ON INCREMENT.' *F00
            01 0054D    D740C2C1 A
            01 0054E    C440D6D5 A
            01 0054F    40C9D5C4 A
            01 00550    4B40C1C4 A
            01 00551    C4D9E240 A
            01 00552    5040D4C1 A
            01 00553    D740C2C1 A
            01 00554    C440D6D5 A
            01 00555    40C9D5C3 A
            01 00556    D9C5D4C5 A
            01 00557    D5E34B40 A
     1425   01 00558    1540D4C1 A   :ERR4    TEXT     '
 MAP BAD ON IND. ADDRS & MAP OK ON INCREMENT. ' *F00
            01 00559    D740C2C1 A
            01 0055A    C440D6D5 A
            01 0055B    40C9D5C4 A
            01 0055C    4B40C1C4 A
            01 0055D    C4D9E240 A
            01 0055E    5040D4C1 A
            01 0055F    D740D6D2 A
            01 00560    40D6D540 A
            01 00561    C9D5C3D9 A
            01 00562    C5D4C5D5 A
            01 00563    E34B4040 A
     1426   01 00564    1540D4C1 A   :ERR5    TEXT     '
 MAP OK ON IND. ADDRS & MAP BAD ON INCREMENT. ' *F00
            01 00565    D740D6D2 A
            01 00566    40D6D540 A
            01 00567    C9D5C44B A
            01 00568    40C1C4C4 A
            01 00569    D9E24050 A
            01 0056A    40D4C1D7 A
            01 0056B    40C2C1C4 A
            01 0056C    40D6D540 A
            01 0056D    C9D5C3D9 A
            01 0056E    C5D4C5D5 A
            01 0056F    E34B4040 A
     1427   01 00570    1540D4C1 A   :ERR6    TEXT     '
 MAP DID NOT INCREMENT CORRECT LOCATION.      ' *F00
            01 00571    D740C4C9 A
            01 00572    C440D5D6 A
            01 00573    E340C9D5 A
            01 00574    C3D9C5D4 A
            01 00575    C5D5E340 A
            01 00576    C3D6D9D9 A
            01 00577    C5C3E340 A
            01 00578    D3D6C3C1 A
            01 00579    E3C9D6D5 A
            01 0057A    4B404040 A
            01 0057B    40404040 A
     1428   01 0057C    1540C3D7 A   :ERR7    TEXT     '
 CPI4 MAP REPETITIVE TEST COMPLETE, SUCCESS.  ' *F00
            01 0057D    C9F440D4 A
            01 0057E    C1D740D9 A
            01 0057F    C5D7C5E3 A
            01 00580    C9E3C9E5 A
            01 00581    C540E3C5 A
            01 00582    E2E340C3 A
            01 00583    D6D4D7D3 A
            01 00584    C5E3C56B A
            01 00585    40E2E4C3 A
            01 00586    C3C5E2E2 A
            01 00587    4B404040 A
     1429                            *                                                                   *F00
     1430         01 00423                    END      TITLE                                             *F00
            01 00588    01000100 A
            01 00589    00000106
            01 0058A    000000F0 A
            01 0058B    00000040 A
            01 0058C    0000F000 A
            01 0058D    000FFFFF A
            01 0058E    000003C0 A
            01 0058F    80000000 A
            01 00590    000001B7
            01 00591    000001B8
            01 00592    000001A7
            01 00593    000001AF
            01 00594    00000116
            01 00595    0000018E
            01 00596    00000196
            01 00597    000001CA
            01 00598    00000213

  CONTROL SECTION SUMMARY: 01 00599   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   21:58 JUN 20,'83    SIGMA 5/7 REAL-TIME CLOCK TEST   704017-11/51F00   AUG. 11,70         PAGE    3
A  ACCUM            766-OR       776/BDR      778/B
   AGAIN            435-WD       442/BNE
   ARMDISAB         378/WD*      467/WD*      518-DATA     651/WD*      704/WD*      713/WD*      744/WD*
      1151/WD*     1336/WD*
   ARMDISER         471/BNEZ     478-LW
   ARMENAB          374/WD*      382/WD*      395/WD*      406/WD*      429/WD*      517-DATA     653/WD*
       707/WD*      715/WD*      746/WD*     1100/WD*     1118/WD*
   ARMM            1124/STS     1144/LW      1164-DATA
   BADCPI4         1204/LI      1408-GEN
   BDRINST          649/LW       654-BDR      742/LW
   BDRRET           743/LW       748-B
   BRET             650/LW       655-B
   CBSRET           362-LW       499/BE
   CBSTRAP          359-CBS      494/LW
   CDWHDG           838/LW       934-GEN
   CDWINTR          478/LW       973-GEN
   CDWMSG           869/LW       938-GEN
   CDWNINTR         476/LW       971-GEN
   CDWTLE          1182/LW      1186-GEN
   CDW500H          670/LW       966-GEN
   CDW500L          668/LW       961-GEN
   CEZI1            343/XPSD     592-DATA     592/DATA     601/LPSD     603/LPSD
   CEZI2            344/XPSD     605-DATA     605/DATA     613/LPSD     615/LPSD
   CEZI3            345/XPSD     618-DATA     618/DATA     626/LPSD     628/LPSD
   CEZI4            346/XPSD     630-DATA     630/DATA     638/LPSD     640/LPSD
   CEZL            1173/BL      1178-LS
   CEZMAN           563-DATA    1016/LW      1091/STW     1139/CS      1160/LW      1172/CS      1178/LS
   CHKCNTRT         387-CW       389/BDR
   CLM              761/LD       846/LD       852/LD       863/STW      865/STW      888/STW      890/STW
       942/DATA     949-TEXT
   CNT4:T           366/BAL     1197-LI
   COMPFREQ         732/B        754-BAL
   COMPIMP          755/B        781-LI
   CONT             784-LW       788/BDR
   CP               854/BL       881-LW
   CPIMAN           562-DATA    1015/LW      1090/STW     1122/LW      1137/CS      1171/LS
   CPINTA           348/XPSD    1009-DATA    1009/DATA
   CPI1             335/MTW      387/CW       408/STW      417/MTW      432/STW      446/AW       455/STW
       470/LW       474/LW       528-DATA     599/LW       698/STW      740/STW      758/LW
   CPI2             336/MTW      529-DATA     611/LW
   CPI3             337/MTW      530-DATA     624/LW
   CPI4             338/MTW      531-DATA     636/LW       647/STW      665/CLR      701/STW      708/LW
       711/STW      716/LW       729/STW     1200/STW     1202/MTW     1209/STW     1329/STW
   CPL             1174-RES     1179/B
   CPM1             867/LW       895/LW       959-TEXT
   DECR             796/BE       801-BDR
   DEVICE           925/TIO*     927/SIO*     928/TIO*     932-DATA    1014/LW      1088/STW
   DISABLE          384/WD*      415/WD*      419/WD*      439/WD*      473/WD*      520-DATA     718/WD*
       749/WD*     1012/WD*     1149/WD*
   DISABM          1130/STS     1147/LW      1166-DATA
   DISARM           379/WD*      443/WD*      503/WD*      516-DATA     652/WD*      662/WD*      705/WD*
       714/WD*      745/WD*      999/WD*     1000/WD*     1011/WD*     1150/WD*     1335/WD*     1341/WD*
   DISARMAN        1126/STS     1148/LW      1167-DATA
   DLYMAN          1158/LW      1175/STS     1176/LW      1180-DATA
   DVD              762-LI       770/BDR
   ENABLE           412/WD*      435/WD*      472/WD*      519-DATA    1152/WD*     1339/WD*
   ENABM           1128/STS     1145/LW      1165-DATA
   ENTSP            843/BEZ      846-LD
   EN1DIS0          521-DATA
   ERRCNT1          578-STW      600/BNEZ
   ERRCNT2          581-STW      612/BNEZ
   ERRCNT3          584-STW      625/BNEZ
   ERRCNT4          587-STW      637/BNEZ
   ERRFLAG          532-DATA     578/STW      581/STW      584/STW      587/STW      787/STW      797/STW
       799/STW      812/LW       842/LW       918/STW
   ERR500H          966/GEN      968-TEXT
   ERR500L          961/GEN      964-TEXTC
   EXIT            1206/B       1328-LI
   EXIT1           1243/BEZ     1323/BNEZ    1326-LW
   FERR             847/STD      953-TEXT
   FIRSTFRQ         806/LD       821/STD      830-RES
   FREQ             866/STD      893/STD      944/DATA     952-TEXT
   FREQAVAL         464/BNEZ     475/BNEZ     480-RD
   FREQ500          487/BEZ      645-LW       692/BCS     1114/DATA
   FRQ              566-RES      683/DATA     773/STD      807/CD       820/LD       892/LD
   FRQERR           905/BE       907/BE       909/BE       918-STW
   FRTRY            809-BDR      917/BCR      919/B
   F2048            834-TEXT     906/CD
   F512             835-TEXT     908/CD
   F8192            833-TEXT     904/CD
   HDG              681/GEN      934/GEN      936-TEXTC
   HEX              759/STW      822/LW       824/LW       832-RES      916/CLR
   HILO             675/LW       681-GEN
   HUND             989-DATA
   HUNDTHOU         992-DATA
   IMPCEZP1         551-DATA     598/STW
   IMPCEZP2         552-DATA     610/STW
   IMPCEZP3         553-DATA     623/STW
   IMPCEZP4         554-DATA     635/STW
   IMPCEZW1         543-DATA     602/STW
   IMPCEZW2         544-DATA     614/STW
   IMPCEZW3         545-DATA     627/STW
   IMPCEZW4         546-DATA     639/STW
   IMPMAN          1120-LW
   INDONE          1237/LI      1420-TEXT
   INDZR           1240/LI      1421-TEXT
   INSPEC           666/BCR      677/B        691-RD       731/BCS     1114/DATA
   INTRMAN         1144-LW      1156/B       1159/B       1177/B
   INTRNE           973/GEN      978-TEXT
   LEVELM           868/STW      938/GEN      946-TEXT
   LEVELOUT         867-LW       894/B
   LOOPH            411-LI       418/BDR
   LPSDC12         1371-MTW     1395/DATA
   LPSDMAP         1370/LPSD    1401-DATA
   LPSD1           1215/LPSD    1402-DATA
   LPSD2           1217/LPSD    1403-DATA
   LPSD3           1232/LPSD    1404-DATA
   LPSD4           1234/LPSD    1405-DATA
   LPSD5           1261/LPSD    1406-DATA
   LPSD6           1264/LPSD    1407-DATA
   LPS1            1218-MTW     1403/DATA
   LPS3            1235-MTW     1405/DATA
   LPS5            1269-LW      1407/DATA
   LP1             1216-BAL     1402/DATA
   LP3             1233-BAL     1404/DATA
   LP5             1262-BAL     1263/BIR     1406/DATA
   MANUALM          534-RES      593/LW       606/LW       619/LW       631/LW      1017/LW      1116/STW
   MANUALR         1093/BNEZ    1095/BNEZ    1116-STW
   MAP             1398-DATA    1400/DATA
   MAPONE          1220/LI      1419-TEXT
   MAPSET          1347/LD      1400-DATA
   MAPTST           364/BAL     1362-LW
   MAPZR           1223/LI      1418-TEXT
   MAYERR           808/BNE      904-CD
   MAYREP           924/BCS      930-LPSD
   MCEZ1            580/B        594/BLZ      603-LPSD
   MCEZ2            583/B        607/BLZ      615-LPSD
   MCEZ3            586/B        620/BLZ      628-LPSD
   MCEZ4            589/B        632/BLZ      640-LPSD
   MSGERR           844/LD       954-TEXT
   MSGSPEC          896/STW      982/GEN      984-TEXT
   MSGT41          1408/GEN     1414-TEXT
   MSPEC            897/LW       982-GEN
   NEWPASS          368-LCFI     818/B
   NEXTM            842-LW       871/BIR
   NIMPCPC1         547-DATA     570/STW      784/LW       791/LW       861/LW       886/LW
   NIMPCPC2         548-DATA     792/CW
   NIMPCPC3         549-DATA
   NIMPCPC4         486/LW       550-DATA
   NIMPCPW1         461/LW       539-DATA     575/STW      785/CW       794/LW       856/LW       881/LW
   NIMPCPW2         540-DATA     795/CW
   NIMPCPW3         463/LW       541-DATA
   NIMPCPW4         542-DATA
   NINSPEC          488/B        736-LW       751/BCS     1114/DATA
   NINTRDIS         462/BEZ      467-WD
   NINTRT           971/GEN      975-TEXT
   NO               851/LW       958-TEXT
   NOMAP            502/BE      1373-LI
   NOTRIGP          388/BE       569-LI
   NOTRIGWD         447/BLZ      574-LI
   OUTPUT           813/BNEZ     828/B        838-LW
   PAGE              82/OPEN      83-CNAME
   PARITY           340/XPSD     998-DATA     998/DATA
   PASS             355/STW      803/LW       817/MTW     1013/LW      1181-DATA
   PRINT            479/XPSD     671/XPSD     676/XPSD     839/XPSD     870/XPSD     898/XPSD     922-DATA
       922/DATA     930/LPSD    1183/XPSD    1205/XPSD    1374/XPSD    1384/XPSD
   PRREQ            925-TIO
   PRSAME           791-LW       800/BDR
   PSPEC            876/BNEZ     895-LW
   PSRET            877-BIR      899/B
   RECHK            389-BDR      572/B
   REIT             448-BDR      577/B
   REPLAY           351-B        352/LW
   RESTM            685/DATA     687-RES
   RETPASS          817-MTW      878/B
   SAFE            1365/BE      1372/BNEZ    1376-MTW
   SAVE:4          1211/STW     1326/LW      1397-DATA
   SAVEFREQ         804/BEZ      819-LI       827/BDR
   SAVEHEX          826/STD      831-RES      915/LD
   SAVERET         1363/STW     1376/MTW     1377/B*      1396-DATA
   SEARCH          1133/BDR     1160-LW
   SEAREND         1124-STS     1163/B
   SETDLY          1138/BL      1140/BL      1171-LS
   SETMAP          1214/BAL     1231/BAL     1260/BAL     1347-LD      1366/BAL
   SETZERO         1208/BAL     1225/BAL     1251/BAL     1353-LI      1367/BAL
   SIG              764/BCR      776-BDR
   SIG5VAL          362/LW       508-RES     1362/LW
   SIG7VAL          360/LW       510-RES
   SPECTEST         816/B        874-LI       877/BIR
   SPURIOUS         504-WAIT
   START            351/B        352-LW       507/B        995/DATA    1184/B
   STARTOVR         995-DATA    1006/LPSD    1098/LPSD
   TABLE1           370/STM      527-RES
   TABLE2           371/STM      538-RES
   TABLE3           372/STM      556-RES
   TENS             763/DW       988-DATA
   TENTHOU          991-DATA
   TESTADDR        1104/LW*     1113-DATA
   TESTADR         1113/DATA    1114-DATA
   TESTBIT         1103-SLS     1107/BIR
   TESTIT           445-LI       448/BDR
   TESTN           1097/BNEZ    1099-LI      1112/B
   TESTSEL          557-DATA    1018/LW      1102/STW     1108/LW
   TEST1            377-LI       391/BCS     1114/DATA
   TEST2            394-LI       399/BCS     1114/DATA
   TEST3            404-LI       421/BCS     1114/DATA
   TEST4            428-LI       450/BCS     1114/DATA
   TEST5            453-LI       481/BCS     1114/DATA
   TEXTCI          1382/STH     1383/LI      1412-GEN
   TEXTC2          1373/LI      1410-GEN
   TEXT42          1410/GEN     1416-TEXT
   THOU             990-DATA
   TITLE           1182-LW      1430/END
   TITLEMSG        1186/GEN     1188-TEXT
   TOOHIGH          667/BCS      670-LW
   TOOLOW           668-LW
   TRAP             321/XPSD     322/XPSD     323/XPSD     324/XPSD     325/XPSD     326/XPSD     327/XPSD
       328/XPSD     329/XPSD     330/XPSD     331/XPSD     332/XPSD     341/XPSD     347/XPSD     492-DATA
       492/DATA     496/CS       501/CS
   TRIGCLK         1201/BAL     1216/BAL     1233/BAL     1262/BAL     1334-LI
   TRIGGER          396/WD*      436/WD*      437/WD*      438/WD*      468/WD*      522-DATA    1153/WD*
      1338/WD*
   TRIGM           1132/STS     1146/LW      1168-DATA
   VALUE            363/STW      512-DATA     645/LW       736/LW
   VARIFREQ         806-LD       809/BDR
   WDCEZ1           596/BEZ      602-STW
   WDCEZ2           609/BEZ      614-STW
   WDCEZ3           622/BEZ      627-STW
   WDCEZ4           634/BEZ      639-STW
   WDT              858/STW      860/STW      883/STW      885/STW      940/DATA     947-TEXT
   YESW             857/BNEZ     860-STW
   YESWCP           882/BEZ      885-STW
   YESWCPC          887/BEZ      890-STW
   YESW0            862/BNEZ     865-STW
   YES1             849/LW       956-TEXT
   YES2             850/LW       957-TEXT
   ZEROTAB          369/LM       514-DATA
   ZERO1            558-DATA     579/STW
   ZERO2            559-DATA     582/STW
   ZERO3            560-DATA     585/STW
   ZERO4            561-DATA     588/STW      875/LW
   :ERRCNT         1254/STW     1274/MTW     1284/MTW     1293/MTW     1302/MTW     1311/MTW     1320/MTW
      1322/MTW     1390-DATA
   :ERR1           1272/LI      1422-TEXT
   :ERR2           1282/LI      1423-TEXT
   :ERR3           1291/LI      1424-TEXT
   :ERR4           1300/LI      1425-TEXT
   :ERR5           1309/LI      1426-TEXT
   :ERR6           1318/LI      1427-TEXT
   :ERR7           1324/LI      1428-TEXT
   :MAPFLG         1199/STW     1221/MTW     1238/MTW     1242/MTW     1389-DATA
   :MAPTST         1369/LM      1391-DATA
   :PRINT          1224/BAL     1241/BAL     1273/BAL     1283/BAL     1292/BAL     1301/BAL     1310/BAL
      1319/BAL     1325/BAL     1381-LI
