1 C00   00:35 JUN 21,'83                                                                          PAGE    1
A      1                     1.000  +1,37                                                               *H02
       2                     1.010  CATALOG  EQU      C'0206'                                           *H02
       3                     1.020  VERSION  EQU      C'H02'                                            *H02
       4                     1.030  TITLE    EQU      S:PT('T-SERIES POWER FAIL-SAVE DIAGNOSTIC ',;     *H02
       5                     1.040                    '960-',CATALOG,'-',VERSION)                       *H02
       6                     1.050           PCC                                                        *H02
       7                     1.060           SPACE                                                      *H02
       8                     1.070           SYSTEM   SIG9P                                             *H02
       9                     1.080           SPACE                                                      *H02
      10                   389.000  +389,396                                                            *H02
      11                   389.010           SPACE                                                      *H02
      12                   404.000  +404,413                                                            *H02
      13                   404.010           SPACE                                                      *H02
      14                   601.000  +601,602                                                            *H02
      15                   601.010           LW,X7    #MAXMEM           GET LWA MEMORY FROM GUIDE       *H02
      16                   601.030           SPACE                                                      *H02
      17                   602.020           CI,X7    X'1FFFF'          GUARD AGAINST                   *H02
      18                   602.030           BLE      %+2                128K OVERFLOW                  *H02
      19                   602.040           LI,X7    X'1FFFF'                                          *H02
      20                   602.050           SPACE                                                      *H02
      21                   605.000  +605                                                                *H02
      22                   605.010           SPACE                                                      *H02
      23                  1903.000  +1903,1903                                                          *H02
      24                  1903.010  HISTORY% DATA     0                 ENTRIES IN THE TABLE            *H02
      25                  2336.000  +2336,2387                                                          *H02
      26                  2336.010           GEN,8,3,21 1,1,ABSVAL(BA(PROGTEXT))                        *H02
      27                  2336.020           DATA       0                                               *H02
      28                  2336.030           SPACE                                                      *H02
      29                  2336.040  PROGTEXT TEXTCS   TITLE                                             *H02
      30                  2336.050           SPACE                                                      *H02
      31                  9999.999  +END                                                                *H02
1 C00   00:35 JUN 21,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   00:35 JUN 21,'83                                                                          PAGE    3
A       1*        TEXT               CATALOG  EQU      C'0206'                                           *H02
        2*        TEXT               VERSION  EQU      C'H02'                                            *H02
        3*                           TITLE    EQU      S:PT('T-SERIES POWER FAIL-SAVE DIAGNOSTIC ',;     *H02
        4*        TEXT                                 '960-',CATALOG,'-',VERSION)                       *H02
        5*                                    PCC                                                        *H02

        7*                                    SYSTEM   SIG9P                                             *H02

       38                            * PROGRAM OBJECTIVE:
       39                            *                   TO DETECT MALFUNCTIONS ASSOCIATED WITH THE POWER
       40                            *                   FAIL SAFE OPTION AND TO DISPLAY THE TIME INTERVAL
       41                            *                   BETWEEN THE POWER OFF INTERRUPT (IOFF) AND THE
       42                            *                   RESET SIGNAL (ST) FOR A CHECK OF IOFF PULSE
       43                            *                   WIDTH ADJUSTMENT.
       44                            ****
       45                            ****
       46                            * OPERATING REQUIREMENTS AND SPECIFICATIONS
       47                            *
       48                            *  REQUIRED EQUIPMENT:  SIGMA 5,6,7,8, OR 9 CPU
       49                            *                       POWER FAIL SAFE OPTION  8213/8413
       50                            *                       KSR OR ASR FOR OUTPUT MESSAGES
       51                            *                       CARD READER OR 9T MAG TAPE
       52                            *  OPTIONAL EQUIPMENT:  LINE PRINTER
       53                            *  PROGRAM PREREQUISITES: AUTO AND REAL TIME CLOCK DIAGNOSTICS
       54                            *                           (SIGMA 5 THRU 7)
       55                            *                         PREP AND INTERRUPT DIAGNOSTICS
       56                            *                           (SIGMA 8 OR 9)
       57                            *  CORE STORAGE: APPROXIMATELY 10000 DECIMAL LOCATIONS
       58                            *  PROGRAM MEDIA: SELF LOADING CARDS OR MAGNETIC TAPE
       59                            *  SOURCE LANGUAGE: METASYMBOL
       60                            ****
       61                            ****
       62                            * LOADING PROCEDURE: STANDARD FILL. REFERENCE SIGMA 5/7 RELOCATABLE
       63                            *                      LOADER 900972 FOR MEANING OF WAITS.
       64                            ****
       65                            ****
       66                            * OPERATING PROCEDURE
       67                            *  CONTROL OPTIONS: SENSE SWITCHES AND CONTROL PANEL INTERRUPT NOT USED.
       68                            *  TEST DIRECTIVES: NONE.
       69                            *  RESTART PROCEDURE:  KEYIN AN @ CHARACTER.
       70                            *  TERMINATION PROCEDURE: CPU TO IDLE.
1 C00   00:35 JUN 21,'83                                                                          PAGE    4
A      72                            ****
       73                            ****
       74                            * SUCCESS / FAILURE INDICATIONS:
       75                            *
       76                            *  SUCCESS: OUTPUT OF THE FOLLOWING MESSAGE WHEN POWER IS REMOVED
       77                            *                 AND RESTORED BY THE CIRCUIT BREAKER ON THE
       78                            *                 POWER SUPPLY CONTAINING EACH POWER MONITOR
       79                            *                 OR (PASS 1) BY THE PCP POWER SWITCH
       80                            *
       81                            *   SUCCESS MESSAGES
       82                            *****
       83                            *        TEST 1:
       84                            *
       85                            *        (PASS 1 ONLY)
       86                            *                 POWER ON INT. ROUTINE NEEDS A DELAY OF XX.X SECONDS
       87                            *
       88                            *                 IOFF PULSE WIDTH MEASURED AT XX.X MILLISEC.
       89                            *               NO ERROR
       90                            *
       91                            *        TEST 2 (AND UP):
       92                            *
       93                            *               NO ERROR
       94                            *
       95                            *
       96                            *
       97                            *  WAITS: NONE
       98                            *
       99                            *     POSSIBLE ERROR MESSAGES:
      100                            *      (1) XX.X MILLISECONDS FROM IOFF TO ST
      101                            *      (2) MEMORY FAULT INDICATORS SET  XXXXXXXX
      102                            *      (3) TEST WORD DESTROYED BY POWER OFF
      103                            *      (4) INVALID INTERVAL MEASUREMENT
      104                            *      (5)  TRAP= 40  TCC=X PSW1= XXXXXXXX  PSW2= XXXXXXXX
      105                            *      (6) ****INTERRUPT SEQUENCE ERROR****
      106                            *      (7) PERIPHERAL DELAY TOO LONG TO DISPLAY. (OVER 100SEC)
      107                            *          DEVICE AT ADDRESS XXXX IS STILL INOPERABLE
1 C00   00:35 JUN 21,'83                                                                          PAGE    5
A     109                            *****
      110                            *  FAILURE DICTIONARY
      111                            *
      112                            *     MESSAGE (1)
      113                            *     THIS ERROR MESSAGE INDICATES ST OCCURRED BEFORE THE MINIMUM
      114                            *     TIME ALLOTTED FOR MEMORY PRESERVATION HAD EXPIRED OR WAS BEYOND
      115                            *    THE MAXIMUM TIME POWER CAN BE EXPECTED TO BE MAINTAINED.
      116                            *
      117                            *     MESSAGE (2)
      118                            *     A MEMORY FAULT INDICATOR MAY BE SET BY ST OCCURRING DURING
      119                            *     THE TIMEOUT (SEE ERROR 1). THIS FAULT IS IGNORED IF IT
      120                            *     IS FOR ONE OF THE MEMORY LOCATIONS ACCESSED IN THE TIMEOUT LOOP.
      121                            *      ANY OTHER MEMORY FAULTS ARE TREATED AS FAILURES
      122                            *     AND WILL CAUSE MESSAGE (2) TO BE PRINTED. THE X'S WILL BE
      123                            *     ONES AND ZEROES, CORRESPONDING TO THE MEMORY FAULT INDICATOR
      124                            *     SETTINGS.
      125                            *
      126                            *     MESSAGE (3)
      127                            *     A SITUATION CLOSELY RESEMBLING A NORMAL POWER OFF INTERRUPT
      128                            *     HANDLING ROUTINE IS CREATED, TO VERIFY MEMORY PRESERVATION.
      129                            *     A 4.5 MILLISECOND TIME-OUT OCCURS, FOLLOWED BY A WAIT. ALTHOUGH
      130                            *     ALL OF MEMORY IS SCANNED FOR MEMORY FAULTS WHEN POWER IS
      131                            *     RESTORED, A SPECIFIC TEST OF THE WORD FOLLOWING THE WAIT
      132                            *     INSTRUCTION IS MADE, SINCE THIS IS THE ADDRESS TO WHICH THE
      133                            *     CPU ADDRESSING LINES WILL BE SET WHEN ST OCCURS. IF THE CONTENTS
      134                            *     OF THIS WORD ARE OTHER THAN EXPECTED, AND THE PRECEDING POWER
      135                            *     OFF INTERRUPT WAS TRIGGERED AND TAKEN, MESSAGE (3) WILL BE
      136                            *     PRINTED.
1 C00   00:35 JUN 21,'83                                                                          PAGE    6
A     138                            *
      139                            *     MESSAGE (4)
      140                            *     THIS MESSAGE IS INCLUDED ONLY TO PRECLUDE THE POSSIBILITY
      141                            *     OF AN ILLOGICAL CPU OR MEMORY FAILURE CAUSING AN ERRONEOUS
      142                            *     INTERVAL LENGTH INDICATION. IN ESSENCE IT MEANS THAT NO TWO
      143                            *     WORDS OF THE THREE-WORD INTERVAL TIMER WERE WITHIN ONE COUNT
      144                            *     OF EACH OTHER WHEN POWER WAS RESTORED. NO SINGLE MEMORY FAILURE
      145                            *     OR CPU FAILURE OR POWER INTERRUPT FAILURE SHOULD BE ABLE TO
      146                            *     DESTROY MORE THAN ONE WORD OF THE TIMER.
      147                            *
      148                            *     MESSAGE (5)
      149                            *     THIS MESSAGE INDICATES THAT AT SOME POINT AFTER THE
      150                            *     'TURN PWR OFF' MESSAGE WAS PRINTED, A TRAP CONDITION
      151                            *     OCCURRED. NOTHING MAY BE ASSUMED REGARDING THE LOCATION
      152                            *     FROM WHICH THE TRAP OCCURRED, BUT IF EITHER POWER INTERRUPT
      153                            *     PRESENTS ADDRESS X'40' AND THIS MESSAGE DOES NOT APPEAR,
      154                            *     THE ERROR ADDRESS INDICATION IS VALID.
      155                            *
      156                            *     MESSAGE (6)
      157                            *     THIS MESSAGE INDICATES AN INTERRUPT SEQUENCE OF SOMETHING
      158                            *     OTHER THAN A PWR OFF INT. FOLLOWED BY A PWR ON INT.(EXPECTED
      159                            *     CASE).   FOLLOWING THIS MESSAGE IS A DISPLAY OF ALL
      160                            *     INTERRUPTS AND TRAPS THAT HAVE OCCURRED SINCE THE LAST
      161                            *     'TURN POWER OFF' MESSAGE.
      162                            *
      163                            *     MESSAGE (7)
      164                            *     THIS MESSAGE INDICATES THE PERIPHERAL DEVICE AT THE ADDRESS
      165                            *     SPECIFIED, HAD NOT RECOVERED ENOUGH TO BE ABLE TO ACCEPT
      166                            *     A TIO (ADDRESSES RECOGNIZED) BEFORE 100 SEC TIMEOUT           *A01
      167                            *
      168                            *
1 C00   00:35 JUN 21,'83                                                                          PAGE    7
A     170                            *
      171                            *
      172                            *
      173                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      174                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#HTE',
      175                            *        WHICH CONVERTS ONE MACHINE WORD INTO THE
      176                            *        'EBCDIC' FOR THE EIGHT HEXADECIMAL DIGITS
      177                            *        IN THE MACHINE WORD.
      178                            *
      179                            *        THE PROCEDURE REFERENCE LINE IS AS FOLLOWS:
      180                            *
      181                            * LABELOPT  #HTECON  LABELADDR       OPTIONAL COMMENTS
      182                            *
      183                            *                 WHERE 'LABELOPT' IS AN OPTIONAL LABEL
      184                            *                  WHICH WILL HAVE THE CURRENT VALUE OF THE
      185                            *                  EXECUTION LOCATION COUNTER;
      186                            *
      187                            *                  #HTECON IS THE PROCEDURE REFERENCE;
      188                            *
      189                            *                  AND 'LABELADDR' IS THE ADDRESS OF THE
      190                            *                  HEXADECIMAL WORD TO BE CONVERTED TO
      191                            *                  'EBCDIC'.
      192                            *
      193         00000000           #HTECON  CNAME
      194                                     PROC
      195                            *
      196                             ERROR,0,TCOR(AF,S:INT)&(AF=X6)    ;
      197                             '**AF VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      198                            *
      199                                     ERROR,0,NUM(AF)~=1 ;
      200                             '**SINGLE ARGUMENT FIELD ENTRY REQUIRED**'
      201                            *
      202                            *
      203                            LF       BAL,X6     *#HTE%
      204                                     GEN,10,22  0,AF(1)
      205                            *
      206                                     PEND
      207                            *
      208                            *        REGISTERS USED BY THE CONVERSION ROUTINE
      209                            *        ARE RESTORED PRIOR TO RETURN; HOWEVER, THE
      210                            *        SETTINGS OF THE CONDITION CODES ARE DESTROYED.
      211                            *
      212                            *        RETURN IS TO THE PROCEDURE REFERENCE
      213                            *        PLUS TWO.  AT THIS TIME THE LINK REGISTER
      214                            *        POINTS TO THE FIRST OF TWO MEMORY LOCATIONS
      215                            *        WHICH CONTAIN THE CONVERTED VALUES; CONDITION
      216                            *        CODE 2 IS SET AT THIS TIME, FACILITATING USE
      217                            *        OF THE LOAD MULTIPLE INSTRUCTION.  TO FETCH ONLY
      218                            *
      219                            *
      220                            ********************************************************
      221                            *
      222                            *        THE FOLLOWING PROCEDURE IS USED TO GENERATE THE
      223                            *        CODE WHICH CALLS THE CONVERSION ROUTINE '#ETH',
      224                            *        WHICH MAY BE USED TO CONVERT UP TO EIGHT 'EBCDIC'
      225                            *        CHARACTERS STARTING ON ANY BYTE BOUNDARY.
      226                            *        IF THE CHARACTER STRING TO BE CONVERTED
      227                            *        IS TO BE HELD IN THE GENERAL REGISTERS,
      228                            *        THE REGISTERS USED MUST NOT
      229                            *        INCLUDE THE LINK REGISTER.
      230                            *
      231                            *
      232                            *                 #ETHCON,CHAR   LABEL,DISP,ERRETN
      233                            *
      234                            *                CHAR =   THE NUMBER OF CHARACTERS TO BE CONVERTED
      235                            *                          ( MUST BE BETWEEN 0 AND 8.  0 EQUALS 8.)
      236                            *                LABEL=   THE WORD ADDRESS OF THE EBCDIC CHARACTERS
      237                            *                DISP =   THE BYTE DISPLACEMENT OF THE FIRST CHAR.
      238                            *                          ( MUST BE BETWEEN 0 AND 3 )
      239                            *
      240         00000000           #ETHCON  CNAME
      241                                     PROC
      242                                     LOCAL    A,B,C,D,E         SYMBOLS LOCALLY USED AND DEFINED.
      243                            A        SET      (TCOR(CF(2),S:INT)*7)&CF(2)
      244                            *
      245                                     DO1      A~=CF(2)          DO IF NOT EQUAL
      246                            A        SET      0
      247                            *
      248                            *
      249                                     ERROR,0,A~=CF(2) ;
      250                             '**CF(2) NOT AN INTEGER BETWEEN 0 AND 7; ZERO USED (CONV. 8 CHAR.)**'
      251                            *
      252                            B        SET      (TCOR(AF(2),S:INT)*3)&AF(2)
      253                            *
      254                                     DO1      B~=AF(2)          DO IF NOT EQUAL
      255                            B        SET      0
      256                            *
      257                            *
      258                                     ERROR,0,B~=AF(2) ;         ERROR IF NOT EQUAL
      259                             '**AF(2) NOT AN INTEGER BETWEEN 0 AND 3; ZERO USED (NO BYTE INDEX)**'
      260                            *
      261                            *
      262                             ERROR,0,TCOR(AF(1),S:INT)&((AF(1)=X6)|(AF(1)=X4)|(AF(1)=X5)|;
      263                             (AF(1)=X3))     ;
      264                             '**AF(1) VALUE IS A REGISTER USED BY GUIDE IN THE CONVERSION ROUTINE**'
      265                            *
      266                            C        SET      TCOR(AF(3),S:RAD,S:INT)=0
      267                            *
      268                            D SET TCOR(AF(3),S:INT)&((AF(3)=X6)|(AF(3)=X4)|(AF(3)=X5);
      269                             |(AF(3)=X3))&NUM(AF)>2
      270                            *
      271                                     ERROR,0,D ;                ERROR IF REGISTER CONFLICT
      272                             '**AF(3) CONFLICTS WITH REGISTERS USED BY CONVERSION ROUTINE**'
      273                            *
      274                            E        SET      C|D               'OR' THE RESULTS
      275                            LF       WD,0     X'32'
      276                                     BAL,X6    *#ETH%           GO TO CONVERSION ROUTINE
      277                                     DO       TCOR(AF(1),S:INT)   DO IF REGISTER
      278                            *
      279                                     GEN,8,22,2  A,AF(1),B
      280                            *
      281                                     ELSE                       RELOCATABLE ADDRESS
      282                            *
      283                                     GEN,8,24     A,BA(AF(1))+B
      284                            *
      285                                     FIN
      286                                     WD,0     X'22'
      287                            *
      288                                     PEND
      289                            *
      290                            *
      291                            *
      292                            *
      293                            ********************************************************
      294                            *
      295                            *
      296                            *
      297                            *
      298                            *
      299                            *
      300                            *
      301         00000002           #PRINT   CNAME    2,#PRINTER%
      302         00000001           #TYPE    CNAME    1,#TYPER%
      303                                     PROC
      304                            *
      305                            *
      306                                     LOCAL    A
      307                            *
      308                                     ERROR,0,NUM(CF)>2&CF(2)=0 ;
      309                             '**CF(2) MUST BE POSITIVE INTEGER**'
      310                            *
      311                                     ERROR,0,NUM(CF)>3 ;
      312                             '**EXCESSIVE COMMAND FIELD ENTRIES IGNORED**'
      313                            *
      314                                     ERROR,0,NUM(AF)>NAME(1) ;
      315                             '**EXCESSIVE ARGUMENT FIELD ENTRIES IGNORED**'
      316                            *
      317                                     ERROR,0,TCOR(S:UFV(AF(1)),S:RAD)=0 ;
      318                             '**AF(1) NOT A RELOCATABLE ADDRESS; ERROR TEXT SUBSTITUTED**'
      319                            *
      320                                     DO       (NAME(1)=2)&(NUM(AF)>1)
      321                            *
      322                            A        SET      SCOR(AF(2),C1,C2,C3,C4,C5,C6,C7,C8,C9,;
      323                                                   CA,CB,CC,CD,CE,CF,F0,F1)     FORMAT CODES
      324                            *
      325                                     ERROR,0,A=0  ;
      326                             '**ILLEGAL FORMAT CODE; FORMAT CODE X''C0'' USED**'
      327                            *
      328                                     ELSE
      329                            *
      330                            A        SET      0
      331                            *
      332                                     FIN
      333                            *
      334                            *
      335                            *
      336                            *
      337                            LF       BAL,X6   *#DISUSER%
      338                                     BAL,X6   *NAME(2)
      339                            *
      340                            *
      341                                     DO       NUM(CF)=1&NAME(1)=1
      342                                     GEN,8,24   0,ABSVAL(BA(AF(1)))
      343                                     ELSE
      344                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)>1
      345                                     GEN,8,24   AF(2),ABSVAL(BA(AF(1)))
      346                                     ELSE
      347                                     DO       NUM(CF)=1&NAME(1)=2&NUM(AF)=1
      348                                     GEN,8,24   C0,ABSVAL(BA(AF(1)))
      349                                     ELSE
      350                                     DO       NUM(CF)=2&CF(2)>0
      351                                     GEN,8,3,5,16 CF(2),1,0,ABSVAL(BA(AF(1)))
      352                                     ELSE
      353                                     DO       NUM(CF)=2&CF(2)=0
      354                                     GEN,8,3,5,16 1,1,0,ABSVAL(BA(AF(1)))
      355                                     ELSE
      356                                     DO       NUM(CF)>2&CF(2)>0
      357                                     GEN,8,3,21  CF(2),3,ABSVAL(BA(AF(1)))
      358                                     ELSE
      359                                     GEN,8,3,21  1,3,ABSVAL(BA(AF(1)))
      360                                     FIN
      361                                     FIN
      362                                     FIN
      363                                     FIN
      364                                     FIN
      365                                     FIN
      366                            *
      367                                     BAL,X6   *#ENUSER%
      368                            *
      369                                     PEND
      370                            *
      371         000000C0           C0       EQU      X'C0'
      372         000000C1           C1       EQU      X'C1'
      373         000000C2           C2       EQU      X'C2'
      374         000000C3           C3       EQU      X'C3'
      375         000000C4           C4       EQU      X'C4'
      376         000000C5           C5       EQU      X'C5'
      377         000000C6           C6       EQU      X'C6'
      378         000000C7           C7       EQU      X'C7'
      379         000000C8           C8       EQU      X'C8'
      380         000000C9           C9       EQU      X'C9'
      381         000000CA           CA       EQU      X'CA'
      382         000000CB           CB       EQU      X'CB'
      383         000000CC           CC       EQU      X'CC'
      384         000000CD           CD       EQU      X'CD'
      385         000000CE           CE       EQU      X'CE'
      386         000000CF           CF       EQU      X'CF'
      387         000000F0           F0       EQU      X'F0'
      388         000000F1           F1       EQU      X'F1'

      397         00000000           TEXTCS   CNAME
      398                                     PROC
      399                                     DISP     %
      400                                     LIST     0
      401                            LF       TEXTC    AF
      402                                     LIST     1
      403                                     PEND

      414   01 00392                 #TABLE1A   ORG    X'392'          THIS TABLE IS USED BY THE USER
            01 00392
      415         01 00392           #SENSE     EQU    %                 PROGRAM TO LINK TO VALUES
      416         01 00393           #HDRFLG    EQU    %+1               (CONSTANTS) IN 'GUIDE'.
      417         01 00396           #TOADDR    EQU    %+4
      418         01 00397           #PRTADDR   EQU    %+5
      419         01 003A0           #TESTINIT EQU     %+14
      420         01 003AA           #MAXMEM   EQU     %+24
      421         01 003AB           #SAMPLE% EQU      %+25                                              *A03
      422         01 003B4           #TTYBC   EQU      %+34              BYTE COUNT OF LAST TTY INPUT    *A03
      423                            *
      424                            *
      425                            ************
      426                            *
      427                            *
      428   01 003C2                 #TABLE1B   ORG    X'3C2'            THIS TABLE IS USED BY USER
            01 003C2
      429         01 003C2           #ETH%      EQU    %                 PROGRAM TO LINK TO ADDRESSES
      430         01 003C3           #HTE%      EQU    %+1               (SUB-ROUTINES) IN 'GUIDE'.
      431         01 003C5           #DISUSER%  EQU    %+3
      432         01 003C6           #ENUSER%   EQU    %+4
      433         01 003C7           #ARMUSER% EQU     %+5
      434         01 003C8           #GUIDE%    EQU    %+6
      435         01 003C9           #FIDLE%    EQU    %+7
      436         01 003CA           #RUNADDR%  EQU    %+8
      437         01 003CC           #TYPER%    EQU    %+10
      438         01 003CD           #PRINTER%  EQU    %+11
      439         01 003CE           #ERRTEXT%  EQU    %+12
      440                            *
      441                            *
      442                            **************:
      443                            *
      444                            *  THE FOLLOWING AREA IS RESERVED FOR USER VALIDATION REFERENCE
      445                            *
      446   01 003E5                          ORG      X'3E5'
            01 003E5
      447                            *                                   # OF BITS IN VAL. FIELDS 4,5,6,7
      448   01 003E5    00       A   VALBIT   DATA,1   0                      (1 BYTE EACH)
      449                            *
      450   01 003E7                          ORG      X'3E7'
            01 003E7
      451                            *                                   NEG. OF # OF CHAR. IN FIELDS 4,5,6,7
      452         01 003E7           VALDEX   EQU      %                      (1 BYTE EACH)
      453   01 003E7    00       A            DATA,1   0
      454                            *
      455   01 003EC                          ORG      X'3EC'
            01 003EC
      456         01 003EC           VALTYPE  EQU      %
      457                            *
      458   01 003EC    00000000 A            GEN,8,24  0
      459                            *
      460                            *
      461                            ************
      462                            *
      463   01 003F0                 DCA        ORG    X'3F0'
            01 003F0
      464                            *                 **********
      465                            *
      466                            *
      467                            *
      468                            *                **********
      469                            *
      470                            ************
      471                            *
      472                            *
      473   01 01000                 #TABLE2@   ORG    X'1000'           THIS TABLE IS USED BY 'GUIDE'
            01 01000
      474   01 01000    00001010     #INITIAL@  DATA   INITIAL           TO LINK TO USER PROGRAM LABELS.
      475   01 01001    000026BF     #TABLE3@   DATA   TABLE3
      476   01 01002    000026AC     #PLINEIN@  DATA   PLINEIN
      477   01 01003    40000000 A   #DIAG@   GEN,4,28 4,0                                               *A03
      478   01 01004    00000000 A   #LOADER@ DATA     0
      479   01 01005    00000000 A   #OUTBUF@ DATA     0
      480                            *
      481                            *
      482                            *
      483                            *
      484                            ************
      485                            *
      486                            *
      487                            *                **********
      488         00000000           R0         EQU    0
      489         00000001           R1         EQU    1
      490         00000001           X1         EQU    1
      491         00000002           R2         EQU    2
      492         00000002           X2         EQU    2
      493         00000003           R3         EQU    3
      494         00000003           X3         EQU    3
      495         00000004           R4         EQU    4
      496         00000004           X4         EQU    4
      497         00000005           R5         EQU    5
      498         00000005           X5         EQU    5
      499         00000006           R6         EQU    6
      500         00000006           X6         EQU    6
      501         00000006           LINK       EQU    6
      502         00000007           R7         EQU    7
      503         00000007           X7         EQU    7
      504         00000008           R8         EQU    8
      505         00000009           R9         EQU    9
      506         0000000A           RA         EQU    10
      507         0000000B           RB         EQU    11
      508         0000000C           RC         EQU    12
      509         0000000D           RD         EQU    13
      510         0000000E           RE         EQU    14
      511         0000000F           RF         EQU    15
      512                            *
      513                            *
      514   01 01010                        ORG      X'1010'
            01 01010
1 C00   00:35 JUN 21,'83                                                                          PAGE    8
A     516                            *
      517                            ************                 **********
      518   01 01010    356013F6     INITIAL  STW,LINK   LINKSAVE
      519   01 01011    22000000 A            LI,R0    0
      520   01 01012    3500151C              STW,R0   PASSCNT
      521   01 01013    3500150A              STW,R0   TESTNO
      522   01 01014    120020E4              LD,R0    STP2RESTORE
      523   01 01015    150020E0              STD,R0   STP2              RESET PERIPHERAL DEVICE STACK P.
      524                            *
      525   01 01016    02200030 A            LCI      3
      526   01 01017    2A001553              LM,R0    EBC%ONE
      527   01 01018    2B001550              STM,R0   MONITOR
      528   01 01019    22100200 A            LI,X1    512
      529   01 0101A    32001511              LW,R0    BAL%HAND          BUILD THE ACCESS TABLE
      530   01 0101B    35021DAF              STW,R0   ACCESS-1,X1
      531   01 0101C    6410101B              BDR,X1   %-1
      532   01 0101D    EA6003C5              BAL,LINK   *#DISUSER%      DISABLE USER KEYIN
      533   01 0101E    3500151E              STW,R0   ERR%TOTAL
      534   01 0101F    32801509              LW,R8    LRATRAP           SET UP TRAP
      535   01 01020    46800040 A            XW,R8    X'40'
      536   01 01021    2C0026F3              LRA,R0   ENDADDR+1         DOES IT TRAP
      537   01 01022    33F01508              MTW,-1   SIG8%9FLG         NO TRAP- THIS MUST BE AN  8 OR 9
      538   01 01023    6800102F              B        SIGMA5UP
      539                            *
      540   01 01024    32001040     SIGMA5%7 LW,R0    FIRST%TIME        SKIP MSG IF NOT FIRST PASS
      541   01 01025    6920102F              BGZ      SIGMA5UP
      542   01 01026    EA6003C5              #PRINT   SIG5%7MSG
            01 01027    EA6003CD
            01 01028    C0005680 A
            01 01029    EA6003C6
      543   01 0102A    2200000F A            LI,R0    15                DELETE CM FROM J LINE
      544   01 0102B    7500145D              STB,R0   PL#JHDR
      545   01 0102C    75001463              STB,R0   PLINE#J
      546   01 0102D    2200000A A            LI,R0    10
      547   01 0102E    7500156E              STB,R0   TEST#MSG
      548                            *
      549   01 0102F    33101040     SIGMA5UP MTW,1    FIRST%TIME                                        *A03
      550   01 01030    69201033              BGZ      %+3                                               *A03
      551   01 01031    32000055 A            LW,R0    X'55'                                             *A03
      552   01 01032    35001041              STW,R0   GUIDE55           SAVE GUIDE CNTR. 4 MTW          *A03
      553                            *                                                                   *A03
      554   01 01033    46800040 A            XW,R8    X'40'                                             *A03
      555   01 01034    32800396              LW,R8    #TOADDR                                           *A01
      556   01 01035    35800397              STW,R8   #PRTADDR                                          *A01
      557   01 01036    EA6003C3              #HTECON  #TOADDR                                           *A01
            01 01037    00000396
      558   01 01038    328C0001 A            LW,R8    1,LINK                                            *A01
      559   01 01039    35801464              STW,R8   PLINE#J+1                                         *A01
      560   01 0103A    35801466              STW,R8   PLINE#J+3                                         *A01
      561   01 0103B    702003A0              LC       #TESTINIT
      562   01 0103C    EA6013F6              BAL,LINK   *LINKSAVE
      563   01 0103D    0000103E              DATA     INITIAL#A
      564                                     BOUND    8
      565   01 0103E    00001042     INITIAL#A   DATA  GO,X'7000000'                                     *A03
            01 0103F    07000000 A
      566                            *
      567   01 01040    FFFFFFFF A   FIRST%TIME DATA   -1                                                *A03
      568                            *
      569   01 01041    00000000 A   GUIDE55  DATA     0                 GUIDE'S CNTR.4 MTW INSTR.       *A03
      570                            *
      571                            *
      572                            *
1 C00   00:35 JUN 21,'83                                                                          PAGE    9
A     574                            *
      575                            *  THE FOLLOWING ROUTINE READS ALL POSSIBLE I/O ADDRESSES AND
      576                            *        RECORDS THE ADDRESSES OF ALL DEVICES THAT ARE OPERABLE
      577                            *        FOR LATER USE.
      578                            *
      579   01 01042    224007FF A   GO       LI,X4    X'7FF'            HIGHEST POSSIBLE I/O ADDRESS
      580   01 01043    32801508              LW,R8    SIG8%9FLG
      581   01 01044    68301046              BEZ      %+2               BRANCH IF NOT A SIGMA 8 OR 9
      582   01 01045    20401400 A            AI,X4    X'1400'
      583   01 01046    35401504              STW,X4   MAXDEV            SAVE MAXIMUM DEVICE ADDRESS
      584   01 01047    CD000004 A   TEST%IO  TIO,0    *X4               TEST ONE DEVICE FOR OPERABILITY
      585   01 01048    6880104B              BCR,8    %+3                                               *A01
      586   01 01049    6840104B              BCR,4    %+2                                               *A01
      587   01 0104A    6800104C              B        %+2               BRANCH IF NO RECOGNITION        *A01
      588   01 0104B    094020E0              PSW,X4   STP2              SAVE OK ADDRESS
      589   01 0104C    64401047              BDR,X4   TEST%IO           BRANCH IF NOT ALL CHECKED
      590                            *
      591   01 0104D    324026EA              LW,X4    =X'FFFF8000'
      592   01 0104E    4B4010E3              AND,X4   RESTORE1+1        ALTER THE SCAN RANGE            *A03
      593   01 0104F    304020E0              AW,X4    STP2                 *
      594   01 01050    354010E3              STW,X4   RESTORE1+1           *                            *A03
      595                            *
      596   01 01051    3310151C     GO1      MTW,1    PASSCNT
      597   01 01052    EA6003C3              #HTECON  PASSCNT           FIND PASS COUNT
            01 01053    0000151C
      598   01 01054    328C0001 A            LW,R8    1,LINK
      599   01 01055    7580156D              STB,R8   TESTSTART+3          AND DISPLAY IT
      600   01 01056    EA6003C5              #TYPE    TESTSTART
            01 01057    EA6003CC
            01 01058    000055A8 A
            01 01059    EA6003C6
        1*  01 0105A    327003AA              LW,X7    #MAXMEM           GET LWA MEMORY FROM GUIDE       *H02

        3*  01 0105B    2171FFFF A            CI,X7    X'1FFFF'          GUARD AGAINST                   *H02
        4*  01 0105C    6820105E              BLE      %+2                128K OVERFLOW                  *H02
        5*  01 0105D    2271FFFF A            LI,X7    X'1FFFF'                                          *H02

      603   01 0105E    387020E0              SW,X7    STP2              FIND # OF UNUSED MEM. LOC'NS
      604   01 0105F    35701505              STW,X7   SCNCNT
      605   01 01060    35701506              STW,X7   SCNCNT1

      606   01 01061    32801507              LW,R8    MTW            ROUT TO COMPUTE 1/10 MS STANDARD.
      607                            *                                THIS ROUT IS USED SO THAT A HIGH
      608                            *                                RESOLUTION STANDARD MAY BE
      609                            *                                DERIVED FROM THE STANDARD CNT
      610                            *                                PULSE 4 INT, INDEPENDANT OF MACH
      611                            *                                TYPE (SIGMA 5,6,7,8, OR 9).
      612   01 01062    35800055 A            STW,R8   X'55'          SETUP CNT PULSE 4 INT.
      613   01 01063    22601000 A            LI,X6    4096           SETUP WD REG BIT FOR CNT PULSE 4.
      614   01 01064    227FFFFF A            LI,X7    -1
      615   01 01065    22F00000 A            LI,RF    0              CLEAR TIMER.
      616   01 01066    15F014E2              STD,RF   HOLD
      617   01 01067    15F014E4              STD,RF   HOLD+2
      618   01 01068    35F0150A              STW,RF   TESTNO            CLEAR TEST NUMBER
      619   01 01069    22F00001 A            LI,RF    1
      620   01 0106A    22AFFFFE A            LI,RA    -2             SECOND INT DETECT.
      621   01 0106B    22BFFFFD A            LI,RB    -3             THIRD INT DETECT.
      622   01 0106C    35701503              STW,X7   CNTRB          SET UP CNTR.
      623   01 0106D    6D601200 A            WD,X6    X'1200'        ARM AND ENABLE CNTR PULSE 4 INT.
      624   01 0106E    31701503              CW,X7    CNTRB          TEST FOR CNTR MODIFICATION.
      625   01 0106F    6830106E              BE       %-1            BR IF CNTR VALUE UNCHANGED.
      626   01 01070    31A01503              CW,RA    CNTRB          HAS    COUNTER 4 TICKED
      627   01 01071    68301070              BE       %-1                 BRANCH IF NO
      628   01 01072    68001074              B        TIMERLOOP                                         *A01
      629                            *
      630                            *  THE FOLLOWING LOOP IS ENTERED TO MEASURE THE MACHINE SPEED OF
      631                            *        THE PARTICULAR COMPUTER UNDER TEST
      632                            *
      633                            *
      634                                     BOUND    16                                                *A01
      635   01 01074    66F014E2     TIMERLOOP AWM,RF  HOLD
      636   01 01075    32A014E2              LW,RA    HOLD
      637   01 01076    66F014E3              AWM,RF   HOLD+1
      638   01 01077    35A014E4              STW,RA   HOLD+2
      639   01 01078    31B01503              CW,RB    CNTRB             HAS COUNTER 4 TICKED
      640   01 01079    68301074              BE       TIMERLOOP         BRANCH IF NO
      641                            *
      642                            *****
      643   01 0107A    32B01041     COMPTIME LW,RB    GUIDE55                                           *A03
      644   01 0107B    35B00055 A            STW,RB   X'55'             RESTORE GUIDE'S CNTR. 4 MTW     *A03
      645   01 0107C    32B014E2              LW,RB    HOLD           PICK UP MACH SPEED TIMER VALUE.
      646   01 0107D    22A00000 A            LI,RA    0
      647   01 0107E    36A01501              DW,RA    TWENTY         DIVIDE MACH SPEED TIME BY 20.
      648   01 0107F    21A0000A A            CI,RA    10                                                *A01
      649   01 01080    69101082              BL       %+2               BRANCH IF REMAINDER LESS THAN 10*AO1
      650   01 01081    20B00001 A            AI,RB    1                                                 *A01
      651   01 01082    35B014DD              STW,RB   MILLSTAN       STORE 1/10 MILLISECOND STANDARD.
      652                            *
      653                            *  COMPUTE IOFF PULSE WIDTH LIMITS
      654                            *
      655   01 01083    23B0002D A            MI,RB    45                COMPUTE 4.5 MS DELAY
      656   01 01084    35B0150E              STW,RB   LOWLIMIT
      657   01 01085    32B014DD              LW,RB    MILLSTAN          COMPUTE 101 MS. COUNT
      658   01 01086    23B00065 A            MI,RB    101
      659   01 01087    35B0150F              STW,RB   HILIMIT
1 C00   00:35 JUN 21,'83                                                                          PAGE   10
A     661                            *
      662                            *                                                                   *A03
      663         01 01088           GO2      EQU      %                                                 *A03
      664   01 01088    6D000027 A            WD,0     X'27'                                             *A03
      665   01 01089    3310150A              MTW,1    TESTNO                                            *A03
      666   01 0108A    6A6014A0              BAL,LINK   JAMXPSDS        SET UP FOR SPURIOUS INTERRUPTS
      667   01 0108B    6A6014C6              BAL,LINK   INITPSD
      668   01 0108C    22F00000 A            LI,RF    0              CLEAR PWR OFF TIMER.
      669   01 0108D    15F014E2              STD,RF   HOLD
      670   01 0108E    15F014E4              STD,RF   HOLD+2         *
      671   01 0108F    35F012FE              STW,RF   UEFLAG                                            *A01
      672   01 01090    22F00001 A            LI,RF    1
      673   01 01091    128014FE              LD,R8    ONXPSD
      674   01 01092    15800050 A            STD,R8   X'50'          SETUP FOR PWR INTERRUPTS.
      675   01 01093    22B00000 A            LI,RB    0
      676   01 01094    35B01503              STW,RB   CNTRB
      677   01 01095    02200070 A            LCI      7                                                 *A02
      678   01 01096    2A0010FC              LM,0     RESTORE           RESTORE LOOP INSTRUCTIONS       *A02
      679   01 01097    2B0010F4              STM,0    TIMEOUT                                           *A02
      680   01 01098    EA6003C3              #HTECON    TESTNO          DISPLAY TEST NUMBER
            01 01099    0000150A
      681   01 0109A    328C0001 A            LW,R8    1,LINK            FIND TEST NO. IN EBCDIC
      682   01 0109B    75801570              STB,R8   TEST#MSG+2        IMBED IN MESSAGE
      683   01 0109C    33001508              MTW,0    SIG8%9FLG
      684   01 0109D    683010A3              BEZ      %+6               BRANCH IF NOT 8 OR 9
      685   01 0109E    6C100045 A            RD,X1    X'45'             FIND MARGIN
      686   01 0109F    4B1026EB              AND,X1   =X'C00000'                                        *A02
      687   01 010A0    2510006A A            SLS,X1   -22
      688   01 010A1    32821589              LW,R8    MARGIN,X1
      689   01 010A2    35801573              STW,R8   TEST#MSG+5        READY MARGIN FOR DISPLAY
      690   01 010A3    EA6003C5              #TYPE    TEST#MSG
            01 010A4    EA6003CC
            01 010A5    000055B8 A
            01 010A6    EA6003C6
      691   01 010A7    22800000 A            LI,R8    0                                                 *A02
      692   01 010A8    35801FB0              STW,R8   HISTORY%                                          *A02
      693   01 010A9    128020E2              LD,R8    STP1RESTORE                                       *A02
      694   01 010AA    158020DE              STD,R8   STP1                                              *A02
      695   01 010AB    22800000 A            LI,R8    0
      696   01 010AC    3580151D              STW,R8   ERRORFLAG
      697   01 010AD    3580120F              STW,R8   MFIND
      698   01 010AE    3580150B              STW,R8   TRFL              CLEAN TRAP INDICATOR.
      699   01 010AF    02200070 A            LCI      7                                                 *A03
      700   01 010B0    2A0010E2              LM,0     RESTORE1
      701   01 010B1    2B0010D9              STM,0    RESET
      702   01 010B2    328014DE              LW,R8    TRPDET
      703   01 010B3    35800040 A            STW,R8   X'40'
      704   01 010B4    32801506              LW,R8    SCNCNT1
      705   01 010B5    35801505              STW,R8   SCNCNT
      706   01 010B6    3280151C              LW,R8    PASSCNT           TELL WHICH MONITOR TO TEST
      707   01 010B7    3290150A              LW,R9    TESTNO
      708   01 010B8    21800001 A            CI,R8    1
      709   01 010B9    683010C8              BE       OFFMSG
      710   01 010BA    21800002 A            CI,R8    2
      711   01 010BB    693010C1              BNE      %+6
      712   01 010BC    21900001 A            CI,R9    1
      713   01 010BD    693010C6              BNE      OFFMSG-2
      714                            *
      715   01 010BE    02200030 A            LCI      3
      716   01 010BF    2A801556              LM,R8    EBC%ANY
      717   01 010C0    680010C7              B        OFFMSG-1
      718                            *
      719   01 010C1    21900001 A            CI,R9    1
      720   01 010C2    693010C6              BNE      OFFMSG-2
      721   01 010C3    02200030 A            LCI      3
      722   01 010C4    2A80155C              LM,R8    EBC%NEXT
      723   01 010C5    680010C7              B        OFFMSG-1
      724                            *
      725   01 010C6    2A801559              LM,R8    EBC%SAME
      726   01 010C7    2B801550              STM,R8   MONITOR
      727                            *
      728   01 010C8    EA6003C5     OFFMSG   #TYPE    TURNOFF           TELL USER TO 'TURN OFF PWR'
            01 010C9    EA6003CC
            01 010CA    00005524 A
            01 010CB    EA6003C6
      729   01 010CC    32801512              LW,R8    EXPMSG1           FIND EXPLANATION                *A03
      730   01 010CD    B58003CE              STW,R8   *#ERRTEXT%                                        *A03
      731   01 010CE    EA6003C5              #TYPE    UPSPACE
            01 010CF    EA6003CC
            01 010D0    00004D5C A
            01 010D1    EA6003C6
      732   01 010D2    8F0003AB              XPSD,0   *#SAMPLE%                                         *A03
      733   01 010D3    328012FC              LW,R8    XPSD5C
      734   01 010D4    3580005C A            STW,R8   X'5C'             SET UP SPECIAL I/O INT. ENTRY
      735   01 010D5    6D000027 A            WD,0     X'27'                                             *A02
      736   01 010D6    02200070 A            LCI      7                 SET UP TO INDICATE ADDRESS OF ZERO
      737   01 010D7    2A0014B2              LM,0     XPSD#0            THROUGH 6 ON POWER OFF INTERRUPT.
      738   01 010D8    3580150C              STW,R8   TESTFLAG          SET RECOVERY FLAG TO NONZERO
      739                            *
      740                            *  LOOP IN THE FOLLOWING ROUTINE UNTIL THE POWER OFF INTERRUPT
      741                            *    OCCURS.   PROGRAM CONTROL THEN GOES TO 'TIME OFF'
      742                            *
      743         01 010D9           RESET    EQU      %                                                 *A03
      744   01 010D9    32701505              LW,X7    SCNCNT            STORE A UNIQUE NUMBER IN
      745   01 010DA    357E26F2              STW,X7   ENDADDR,X7          EACH UNUSED MEMORY LOCATION
      746   01 010DB    647010DA              BDR,X7   %-1
      747   01 010DC    CDA00396              TIO,RA   *#TOADDR                                          *A03
      748   01 010DD    4BB026EC              AND,RB   =X'FF'                                            *A03
      749   01 010DE    71B003B4              CB,RB    #TTYBC                                            *A03
      750   01 010DF    683010D9              BE       RESET             BRANCH IF NO KEYIN              *A03
      751   01 010E0    8F0003AB              XPSD,0   *#SAMPLE%                                         *A03
      752                            *                                                                   *A03
      753                            *   FALL THRU IF USER WANTS CONTROL                                 *A03
      754                            *                                                                   *A03
      755   01 010E1    680010C8              B        OFFMSG                                            *A03
      756                            *
      757                            *
      758                            *
      759                            *
      760                            *
      761         01 010E2           RESTORE1 EQU      %                                                 *A03
      762   01 010E2    32701505              LW,X7    SCNCNT            INSTRUCTIONS TO RESTORE RESET
      763   01 010E3    357E26F2              STW,X7   ENDADDR,X7        LOOP ABOVE IN CASE IT IS
      764   01 010E4    647010DA              BDR,X7   RESET+1           DESTROYED                       *A03
      765   01 010E5    CDA00396              TIO,RA   *#TOADDR                                          *A03
      766   01 010E6    4BB026EC              AND,RB   =X'FF'                                            *A03
      767   01 010E7    71B003B4              CB,RB    #TTYBC                                            *A03
      768   01 010E8    683010D9              BE       RESET             BRANCH IF NO KEYIN              *A03










      770                            *****
      771   01 010E9    22900051 A   TIMEOFF  LI,R9    X'51'
      772   01 010EA    6A6012D9              BAL,LINK   LOGINTERRUPT
      773   01 010EB    22AFFFFF A            LI,RA    -1
      774   01 010EC    35A010FB              STW,RA   TESTWORD
      775   01 010ED    32B0150A              LW,RB    TESTNO            IS TEST # = 1
      776   01 010EE    21B00001 A            CI,RB    1
      777   01 010EF    693010F2              BNE      %+3               BRANCH IF NOT TEST #1           *A01
      778   01 010F0    32B026ED              LW,RB    =X'7FFFFFFF'      SET UP 'INFINITE' LOOP
      779   01 010F1    680010F4              B        TIMEOUT           START TIMING LOOP               *A01
      780                            *                                                                   *A01
      781   01 010F2    32B0150E              LW,RB    LOWLIMIT
      782   01 010F3    680010F4              B        TIMEOUT           START TIMING LOOP               *A01
      783                                     BOUND    16                                                *A01
      784                            *
      785   01 010F4    66F014E2     TIMEOUT  AWM,RF   HOLD              DELAY UNTIL ST OCCURS (TO MEASURE
      786   01 010F5    32A014E2              LW,RA    HOLD              IOFF PULSE WIDTH - TEST #1) OR FOR
      787   01 010F6    66F014E3              AWM,RF   HOLD+1            4.5 MILLISEC. (LATER TESTS)
      788   01 010F7    35A014E4              STW,RA   HOLD+2
      789   01 010F8    31B01503              CW,RB    CNTRB
      790   01 010F9    64B010F4              BDR,RB   TIMEOUT
      791                            *
      792   01 010FA    2E000000 A            WAIT                       WAIT HERE FOR ST. SIGNAL
      793                            *
      794                            *  THE FOLLOWING LOCATION IS THE ONE POINTED TO BY THE PROGRAM
      795                            *     COUNTER AT THE TIME OF THE RESET SIGNAL (TEST 2 ONLY)         *A01
      796                            *
      797   01 010FB    FFFFFFFF A   TESTWORD DATA     -1
      798                            *
      799                            *******************
      800                            *
      801   01 010FC    66F014E2     RESTORE  AWM,RF   HOLD              THESE INSTRUCTIONS REPLACE THE
      802   01 010FD    32A014E2              LW,RA    HOLD                TIMEOUT ROUTINE IN CASE IT IS
      803   01 010FE    66F014E3              AWM,RF   HOLD+1              DESTROYED BY THE ST SIGNAL
      804   01 010FF    35A014E4              STW,RA   HOLD+2
      805   01 01100    31B01503              CW,RB    CNTRB
      806   01 01101    64B010F4              BDR,RB   TIMEOUT
      807   01 01102    2E000000 A            WAIT                                                       *A02










      809                            *
      810   01 01103    22900050 A   TIMEON   LI,R9    X'50'
      811   01 01104    6A6012D9              BAL,LINK   LOGINTERRUPT
      812   01 01105    32B014DD              LW,RB    MILLSTAN          100 MICROSEC. DELAY
      813   01 01106    660014E5              AWM,R0   HOLD+3                     *
      814   01 01107    32A014E5              LW,RA    HOLD+3                     *
      815   01 01108    660014E5              AWM,R0   HOLD+3                     *
      816   01 01109    35A014E5              STW,RA   HOLD+3                     *
      817   01 0110A    31B01503              CW,RB    CNTRB                      *
      818   01 0110B    64B01106              BDR,RB   %-5                        *
      819   01 0110C    22300000 A            LI,X3    0
      820   01 0110D    22400000 A            LI,X4    0
      821   01 0110E    3540150C              STW,X4   TESTFLAG          RESET RECOVERY FLAG
      822   01 0110F    0E201114     TIMEON1  LPSD,2   CLRPWRON       CLEAR PWR ON INT FROM ACTIVE STATE.
      823                            *****
      824         01 01110           CLEAR%PDF EQU     %                                                 *A01
      825   01 01110    3260000D A            LW,LINK  RD                                                *A01
      826   01 01111    20604000 A            AI,LINK  X'4000'                                           *A01
      827   01 01112    CF000006 A            RIO,0    *LINK             RESET THE DEVICE THAT CAUSED THE*A01
      828   01 01113    0E101116              LPSD,1   CLRPWRON+2        TRAP AND CLEAR PDF              *A01
      829                            *****
      830                                     BOUND    8
      831   01 01114    0000111C     CLRPWRON DATA     CHKDELAY,0
            01 01115    00000000 A
      832   01 01116    0000112A              DATA     CHKDEL#1,0
            01 01117    00000000 A
      833                            *
      834                            *
      835   01 01118    223FFFFF A   RECOVER  LI,X3    -1
      836   01 01119    3530111B              STW,X3   RECOVERY%FLAG     SET FLAG TO INDICATE SYSTEM
      837                            *                                      RESET WAS NEEDED TO RECOVER
      838   01 0111A    6800110D              B        TIMEON1-2
      839                            *
      840   01 0111B    00000000 A   RECOVERY%FLAG  DATA  0              SET TO -1 IF RECOVERY WAS MANUAL
      841                            *
      842                            *
      843                            *  CHECK EACH I/O DEVICE USED IN THE SYSTEM AND DELAY UNTIL
      844                            *        ALL ARE OPERATIONAL
      845                            *
      846         01 0111C           CHKDELAY EQU      %
      847   01 0111C    323014DF              LW,X3    WDOGTRAP          SET UP TO IGNORE WDT TRAP
      848   01 0111D    46300046 A            XW,X3    X'46'
      849   01 0111E    22401040 A            LI,X4    X'1040'           SET UP COUNTER 4 TO RECORD DELAY
      850   01 0111F    32501507              LW,X5    MTW                  AND CNTR 4 ZERO TO EXIT IF
      851   01 01120    35500055 A            STW,X5   X'55'                DELAY IS OVER 100 SEC.       *A03
      852   01 01121    326014E0              LW,X6    CNTRZERO             *
      853   01 01122    3560005B A            STW,X6   X'5B'                *
      854   01 01123    2260C350 A            LI,X6    50000                *
      855   01 01124    35601503              STW,X6   CNTRB                *
      856   01 01125    22707FFF A            LI,X7    X'7FFF'              *
      857   01 01126    4A7020E1              LS,X7    STP2+1               *  FIND # OF DEVICES
      858   01 01127    207FFFFF A            AI,X7    -1                                                *A01
      859   01 01128    6D401200 A            WD,X4    X'1200'           *     ARM AND ENABLE CNTR 4 AND
      860                            *                                      *    CNTR 4 ZERO INTERRUPTS
      861   01 01129    32DE26F3              LW,RD    ENDADDR+1,X7         *  FIND DEVICE ADDR.
      862   01 0112A    CD00000D A   CHKDEL#1 TIO,0    *RD                  *  DELAY UNTIL OPERABLE
      863   01 0112B    6880112E              BCR,8    %+3               BRANCH IF ADDRESS RECOGNIZED    *A01
      864   01 0112C    6840112E              BCR,4    %+2                      *                        *A01
      865   01 0112D    6800112A              B        %-3               TRY AGAIN IF NO RECOG.          *A01
      866                            *                                                                   *A01
      867   01 0112E    64701129              BDR,X7   CHKDEL#1-1        TEST NEXT ADDRESS FOR RECOG.    *A01
      868                            *                                                                   *A01
      869   01 0112F    CD000396              TIO,0    *#TOADDR                                          *A01
      870   01 01130    68C01136              BCR,12   CHKDEL#2          BRANCH IF KSR OPERABLE          *A01
      871   01 01131    32600396              LW,LINK  #TOADDR                                           *A01
      872   01 01132    20604000 A            AI,LINK  X'4000'                                           *A01
      873   01 01133    CF000006 A            RIO,0    *LINK             RESET KSR                       *A01
      874   01 01134    68C01136              BCR,12   %+2               BRANCH IF READY                 *A01
      875                            *                                                                   *A01
      876   01 01135    2E001135              WAIT     %                 *                               *A01
      877                            *                                   WAIT HERE INDICATES I/O HANGUP  *A01
      878                            *                                                                   *A01
      879                            *   CONTINUE ON WHEN ALL DEVICES ARE RECOGNIZED                     *A01
      880                            *
      881         01 01136           CHKDEL#2 EQU      %                                                 *A03
      882   01 01136    22400040 A            LI,X4    X'40'             CNTR. 4 ZERO INT.               *A03
      883   01 01137    6D401100 A            WD,X4    X'1100'           DISARM THE INTERRUPTS           *A03
      884   01 01138    46300046 A            XW,X3    X'46'
      885   01 01139    32501041              LW,X5    GUIDE55           RESTORE GUIDE'S CNTR. 4 MTW     *A03
      886   01 0113A    35500055 A            STW,X5   X'55'                                             *A03
      887   01 0113B    6800115A              B        CMPRTMS                                           *A01
      888                            *                                                                   *A01
      889         01 0113C           CHKDEL#E EQU   %                                                    *A01
      890   01 0113C    22400040 A            LI,X4    X'40'             CNTR. 4 ZERO INT.               *A03
      891   01 0113D    6D401100 A            WD,X4    X'1100'                                           *A01
      892   01 0113E    46300046 A            XW,X3    X'46'                                             *A01
      893   01 0113F    32501041              LW,X5    GUIDE55           RESTORE GUIDE'S CNTR. 4 MTW     *A03
      894   01 01140    35500055 A            STW,X5   X'55'                                             *A03
      895   01 01141    3230111B              LW,X3    RECOVERY%FLAG                                     *A01
      896   01 01142    6910115A              BLZ      CMPRTMS                                           *A01
      897   01 01143    EA6003C5              #TYPE    LONGDEL                                           *A01
            01 01144    EA6003CC
            01 01145    000055D0 A
            01 01146    EA6003C6
      898   01 01147    EA6003C5              #TYPE    UPSPACE
            01 01148    EA6003CC
            01 01149    00004D5C A
            01 0114A    EA6003C6
      899   01 0114B    EA6003C3              #HTECON  RD                *
            01 0114C    0000000D A
      900   01 0114D    328C0001 A            LW,R8    1,LINK            *
      901   01 0114E    35801582              STW,R8   INOPDEV+5         *
      902   01 0114F    EA6003C5              #TYPE    INOPDEV           *
            01 01150    EA6003CC
            01 01151    000055F4 A
            01 01152    EA6003C6
      903   01 01153    EA6003C5              #TYPE    UPSPACE           *
            01 01154    EA6003CC
            01 01155    00004D5C A
            01 01156    EA6003C6
      904   01 01157    3280151B              LW,R8    EXPMSG10          *
      905   01 01158    B58003CE              STW,R8   *#ERRTEXT%        *
      906   01 01159    6A60148D              BAL,LINK  HALTONERR        *
      907                            *
      908                            *
      909                            *  LOOK FOR 2 TIMER WORDS WITH THE SAME VALUE
      910                            *
      911   01 0115A    328014E2     CMPRTMS  LW,R8    HOLD
      912   01 0115B    329014E3              LW,R9    HOLD+1
      913   01 0115C    32A014E4              LW,RA    HOLD+2
      914   01 0115D    389014E2              SW,R9    HOLD              TEST HOLD+1 AND HOLD.
      915   01 0115E    32B014E2              LW,11    HOLD              *
      916   01 0115F    3B900009 A            LAW,R9   R9                *
      917   01 01160    21900001 A            CI,R9    1                 *
      918   01 01161    68201178              BLE      GDTIME            *  BR IF WITHIN 1 COUNT
      919   01 01162    388014E4              SW,R8    HOLD+2            TEST HOLD AND HOLD+2.
      920   01 01163    32B014E4              LW,11    HOLD+2            *
      921   01 01164    3B900008 A            LAW,R9   R8                *
      922   01 01165    21900001 A            CI,R9    1                 *
      923   01 01166    68201178              BLE      GDTIME            *  BR IF WITHIN 1 COUNT
      924   01 01167    38A014E3              SW,RA    HOLD+1            TEST HOLD&1 AND HOLD&2.
      925   01 01168    32B014E3              LW,11    HOLD+1            *
      926   01 01169    3B90000A A            LAW,R9   RA                *
      927   01 0116A    21900001 A            CI,R9    1                 *
      928   01 0116B    68201178              BLE      GDTIME            *  BR IF WITHIN 1 COUNT
      929                            *
      930                            *  ENTER HERE IF NO MATCH
      931                            *
      932   01 0116C    32801518              LW,R8    EXPMSG7
      933   01 0116D    B58003CE              STW,R8   *#ERRTEXT%        BAD INTERVAL EXPLANATION
      934   01 0116E    EA6003C5              #TYPE    TMMSG             OUTPUT 'INVALID INTERVAL MEASUREMENT'
            01 0116F    EA6003CC
            01 01170    00005630 A
            01 01171    EA6003C6
      935   01 01172    6A60148D              BAL,LINK   HALTONERR
      936   01 01173    227FFFFD A            LI,X7    -3
      937   01 01174    22800000 A            LI,R8    0
      938   01 01175    358E14E5              STW,R8   HOLD+3,7
      939   01 01176    65701175              BIR,X7   %-1
      940   01 01177    680011BF              B        TESTMF
      941                            *****
      942   01 01178    22800000 A   GDTIME   LI,R8    0
      943   01 01179    3290000B A            LW,R9    11                LOAD TIMER WORD TO BE USED INTO R9
      944   01 0117A    3190150E              CW,R9    LOWLIMIT
      945   01 0117B    68101185              BGE      GDTIME2           OK IF OVER LOW LIMIT
      946                            *
      947   01 0117C    EA6003C5     GDTIME1  #TYPE    TIMERR            ERROR IF NOT BETWEEN LIMITS
            01 0117D    EA6003CC
            01 0117E    00005510 A
            01 0117F    EA6003C6
      948   01 01180    EA6003C5              #TYPE    UPSPACE
            01 01181    EA6003CC
            01 01182    00004D5C A
            01 01183    EA6003C6
      949   01 01184    6800119B              B        BADTIME           DISPLAY TIMING ERROR
      950                            *
      951   01 01185    3190150F     GDTIME2  CW,R9    HILIMIT           IS IT OVER UPPER LIMIT
      952   01 01186    6920117C              BG       GDTIME1           BRANCH IF YES
      953   01 01187    3200150A              LW,R0    TESTNO
      954   01 01188    21000001 A            CI,R0    1
      955   01 01189    693011CE              BNE      CHKTESTWORD       SKIP TIMING DISPLAY IF NOT TEST 1
      956   01 0118A    6A6011A5     DISTIME  BAL,LINK   HTD             COMPUTE AND DISPLAY TIMING
      957   01 0118B    35801533              STW,R8   DECCNT+8            (THAT IS WITHIN RANGE)
      958   01 0118C    32801514              LW,R8    EXPMSG3
      959   01 0118D    B58003CE              STW,R8   *#ERRTEXT%
      960   01 0118E    EA6003C5              #TYPE    DECCNT
            01 0118F    EA6003CC
            01 01190    000054AC A
            01 01191    EA6003C6
      961   01 01192    68301198              BCR,3    %+6               BYPASS DELAY
      962   01 01193    EA6003C5              #TYPE    UPSPACE
            01 01194    EA6003CC
            01 01195    00004D5C A
            01 01196    EA6003C6
      963   01 01197    22000006 A            LI,R0    6                 DELAY 6 SEC. FOR KEYIN
      964   01 01198    6A6014B9              BAL,LINK   DELAY1SEC       *
      965   01 01199    64001198              BDR,R0   %-1
      966   01 0119A    680011CE              B        CHKTESTWORD
      967                            *
      968   01 0119B    6A6011A5     BADTIME  BAL,LINK   HTD             COMPUTE AND DISPLAY TIMING
      969   01 0119C    35801533              STW,R8   DECCNT+8       STORE RESULT IN ERROR MESSAGE.
      970   01 0119D    32801515              LW,R8    EXPMSG4
      971   01 0119E    B58003CE              STW,R8   *#ERRTEXT%        DECIMAL TIMING EXPLANATION
      972   01 0119F    EA6003C5              #TYPE    DECCNT            DISPLAY THE IOFF TO ST TIMING
            01 011A0    EA6003CC
            01 011A1    000054AC A
            01 011A2    EA6003C6
      973   01 011A3    6A60148D              BAL,LINK   HALTONERR
      974   01 011A4    680011BF              B        TESTMF
      975                            *
      976                            *  ENTER WITH  R8=0, AND R9 = # OF TIMEOUT LOOPS (IN HEX)
      977                            *
      978   01 011A5    368014DD     HTD      DW,R8    MILLSTAN       COMPUTE INTERVAL IN TENTHS
      979                            *                                OF MILLESECONDS.
      980                            *  DISPLAY TIMING IN DECIMAL (.1 TO 99.9)
      981                            *
      982   01 011A6    219003E8 A            CI,R9    1000              CAN IT BE DISPLAYED
      983   01 011A7    691011B0              BL       HTD#1             BRANCH IF YES
      984   01 011A8    EA6003C5              #TYPE    TOOBIG            DISPLAY IOFF TOO LARGE MSG
            01 011A9    EA6003CC
            01 011AA    000054DC A
            01 011AB    EA6003C6
      985   01 011AC    32801515              LW,R8    EXPMSG4
      986   01 011AD    B58003CE              STW,R8   *#ERRTEXT%
      987   01 011AE    6A60148D              BAL,LINK   HALTONERR
      988   01 011AF    680011BF              B        TESTMF
      989                            *
      990   01 011B0    22800000 A   HTD#1    LI,R8    0
      991   01 011B1    36801500              DW,R8    HUNDRED        QUOTIENT IS TENS DIGIT.
      992   01 011B2    32A00009 A            LW,RA    R9             HOLD TENS DIGIT.
      993   01 011B3    32900008 A            LW,R9    R8
      994   01 011B4    22800000 A            LI,R8    0
      995   01 011B5    36801502              DW,R8    TEN            QUOTIENT IS MILLESECOND DIGIT,
      996                            *                                REMAINDER IS TENTHS DIGIT.
      997   01 011B6    208000F0 A            AI,R8    240            ZONE TENTHS DIGIT.
      998   01 011B7    209000F0 A            AI,R9    240            ZONE MILLESECOND DIGIT.
      999   01 011B8    20A000F0 A            AI,RA    240            ZONE TENS DIGIT.
     1000   01 011B9    4980151F              OR,R8    POINT          INSERT DECIMAL POINT.
     1001   01 011BA    25900010 A            SLS,R9   16             ALIGN MILLESECOND DIGIT.
     1002   01 011BB    25A00018 A            SLS,RA   24             ALIGN TENS DIGIT.
     1003   01 011BC    49800009 A            OR,R8    R9             COMBINE DIGITS.
     1004   01 011BD    4980000A A            OR,R8    RA             *
     1005   01 011BE    E8000006 A            B        *LINK
     1006                            *
     1007         01 011BF           TESTMF   EQU      %                 TEST FOR MEMORY FAULTS
     1008   01 011BF    02200070 A            LCI      7
     1009   01 011C0    2A0010FC              LM,R0    RESTORE           RESTORE TIMEOUT LOOP
     1010   01 011C1    2B0010F4              STM,R0   TIMEOUT
     1011   01 011C2    22000000 A            LI,R0    0
     1012   01 011C3    35001503              STW,R0   CNTRB
     1013   01 011C4    02200010 A            LCI      1                                                 *A02
     1014   01 011C5    2D0014E2              LMS,R0   HOLD              CLEAR PE'S IN COUNT LOCATIONS   *A02
     1015   01 011C6    350014E2              STW,R0   HOLD                 (IF THERE ARE ANY)           *A02
     1016   01 011C7    02200010 A            LCI      1                                                 *A02
     1017   01 011C8    2D0014E3              LMS,R0   HOLD+1                                            *A02
     1018   01 011C9    350014E3              STW,R0   HOLD+1                                            *A02
     1019   01 011CA    02200010 A            LCI      1                                                 *A02
     1020   01 011CB    2D0014E4              LMS,R0   HOLD+2                                            *A02
     1021   01 011CC    350014E4              STW,R0   HOLD+2                                            *A02
     1022   01 011CD    680011D8              B        TESTMF2
     1023                            *
     1024   01 011CE    328010FB     CHKTESTWORD LW,R8 TESTWORD          IS THE TEST WORD UNCHANGED
     1025   01 011CF    218FFFFF A            CI,R8    -1
     1026   01 011D0    683011D8              BE       TESTMF2           BRANCH IF YES
     1027   01 011D1    22701517              LI,X7    EXPMSG6           FIND EXPLANATION
     1028   01 011D2    B57003CE              STW,X7   *#ERRTEXT%
     1029   01 011D3    EA6003C5              #TYPE WIPEDOUT             ERROR MSG.
            01 011D4    EA6003CC
            01 011D5    0000557C A
            01 011D6    EA6003C6
     1030   01 011D7    6A60148D              BAL,LINK   HALTONERR
     1031         01 011D8           TESTMF2  EQU      %
     1032   01 011D8    33001508              MTW,0    SIG8%9FLG                                         *A01
     1033   01 011D9    69301218              BNEZ     TEST9MF           BRANCH IF SIGMA 8 OR 9          *A01
     1034   01 011DA    6C600010 A            RD,LINK  X'10'                                             *A01
     1035   01 011DB    326011ED              LW,X6    SCANXPSD
     1036   01 011DC    35600040 A            STW,X6   X'40'          SET UP TO READ ALL OF CORE ABOVE
     1037                            *                                PROGRAM TO TEST FOR MEM FAILURE.
     1038   01 011DD    2281FFFF A            LI,R8    X'1FFFF'
     1039   01 011DE    22700000 A            LI,X7    0
     1040   01 011DF    3570120F              STW,X7   MFIND             ZERO MEM FAULT IND.
     1041   01 011E0    B2600007 A   TESTMF3  LW,X6    *X7            READ EACH WORD IN CORE.
     1042   01 011E1    B5600007 A            STW,X6   *X7
     1043   01 011E2    6CA00010 A            RD,RA    X'10'             READ MEM FAULT IND.
     1044   01 011E3    21A00000 A            CI,RA    0
     1045   01 011E4    683011EA              BE       %+6
     1046   01 011E5    32B0120F              LW,RB    MFIND             IS IT THE FIRST FAULT
     1047   01 011E6    693011E8              BNEZ     %+2               BRANCH IF NO
     1048   01 011E7    35701210              STW,X7   BADADDR
     1049   01 011E8    49A0000B A            OR,RA    RB                SAVE MEMORY FAULT
     1050   01 011E9    35A0120F              STW,RA   MFIND
     1051   01 011EA    20700001 A            AI,X7    1
     1052   01 011EB    648011E0              BDR,R8   TESTMF3
     1053   01 011EC    680011F2              B        MFSCNBCK
     1054                            *
     1055   01 011ED    0F0011EE     SCANXPSD XPSD,0   FAULTBCK
     1056                                     BOUND    8
     1057   01 011EE    00000000 A   FAULTBCK DATA     0,0,MFSCNBCK,0
            01 011EF    00000000 A
            01 011F0    000011F2
            01 011F1    00000000 A
     1058   01 011F2    3260120F     MFSCNBCK LW,X6    MFIND          READ MEM FAULT INDICATORS.
     1059   01 011F3    21600000 A            CI,X6    0              TEST FOR FAULT IND SET.
     1060   01 011F4    6830128B              BE       PHASE2
     1061   01 011F5    22500008 A            LI,X5    8
     1062   01 011F6    2560017F A            SLD,X6   -1             MEM FAULT IND BIT TO REG 7.
     1063   01 011F7    25700061 A            SLS,X7   -31            ALIGN BIT.
     1064   01 011F8    207000F0 A            AI,X7    X'F0'          ADD ZONE.
     1065   01 011F9    757A1528              STB,X7   HOLDMF,X5      STORE IN OUTPUT FIELD.
     1066   01 011FA    645011F6              BDR,X5   %-4            CONTINUE FOR ALL 8 BITS.
     1067   01 011FB    7270146A              LB,X7    EBCBLNKS
     1068   01 011FC    75701528              STB,X7   HOLDMF
     1069   01 011FD    32701516              LW,X7    EXPMSG5           FIND EXPLANATION
     1070   01 011FE    B57003CE              STW,X7   *#ERRTEXT%
     1071   01 011FF    EA6003C5              #TYPE    INDMSG            DISPLAY FAULT INDICATORS
            01 01200    EA6003CC
            01 01201    00005480 A
            01 01202    EA6003C6
     1072   01 01203    EA6003C3              #HTECON  BADADDR           FIND FIRST MEM FAULT ADDRESS
            01 01204    00001210
     1073   01 01205    328C0000 A            LW,R8    0,LINK
     1074   01 01206    35801216              STW,R8   BADADDMSG+5       PUT IT IN DISPLAY MSG
     1075   01 01207    328C0001 A            LW,R8    1,LINK
     1076   01 01208    35801217              STW,R8   BADADDMSG+6
     1077   01 01209    EA6003C5              #TYPE    BADADDMSG
            01 0120A    EA6003CC
            01 0120B    00004844 A
            01 0120C    EA6003C6
     1078   01 0120D    6A60148D              BAL,LINK   HALTONERR
     1079   01 0120E    6800128B              B        PHASE2
     1080                            *
     1081   01 0120F    00000000 A   MFIND    DATA     0                 MEMORY FAULT INDICATORS
     1082   01 01210    00000000 A   BADADDR  DATA     0                 FIRST BAD MEMORY LOCATION
     1083                            *
     1084         01 01211           BADADDMSG TEXTCS  'FIRST BAD ADDRESS= XXXXXXXX'
     1085                            *                                                                   *A01
     1086         01 01218           TEST9MF EQU       %                                                 *A01
     1087   01 01218    22100400 A            LI,R1    X'400'                                            *A01
     1088   01 01219    6D101100 A            WD,R1    X'1100'           ARM AND ENABLE MFI              *A01
     1089   01 0121A    32801221              LW,R8    XPSD4C                                            *A01
     1090   01 0121B    3580004C A            STW,R8   X'4C'                                             *A01
     1091   01 0121C    B2800001 A   READMEM  LW,R8    *R1               TRAP IF FAULT DETECTED          *A01
     1092                            *                                                                   *A01
     1093   01 0121D    311003AA              CW,R1    #MAXMEM                                           *A01
     1094   01 0121E    6810128B              BGE      PHASE2            EXIT IF NO FAULT DETECTED       *A01
     1095   01 0121F    20100001 A            AI,R1    1                 TRY NEXT ADDRESS                *A01
     1096   01 01220    6800121C              B        %-4                                               *A01
     1097                            *                                                                   *A01
     1098   01 01221    0F001222     XPSD4C   XPSD,0   MFTRAP                                            *A01
     1099                            *                                                                   *A01
     1100                                     BOUND    8                                                 *A01
     1101   01 01222    00000000 A   MFTRAP   DATA     0,0,%+2,0         ENTER HERE IF PE OR MFI         *A01
            01 01223    00000000 A
            01 01224    00001226
            01 01225    00000000 A
     1102   01 01226    02200010 A            LCI      1                                                 *A02
     1103   01 01227    AD800001 A            LMS,R8   *R1                                               *A02
     1104   01 01228    B5800001 A            STW,R8   *R1               CLEAR THE PE                    *A01
     1105   01 01229    22800400 A            LI,R8    X'400'                                            *A01
     1106   01 0122A    6D801100 A            WD,R8    X'1100'           CLEAR MFI                       *A01
     1107   01 0122B    0E10122C              LPSD,1   READMF            CLEAR PDF                       *A01
     1108                                     BOUND    8                                                 *A01
     1109   01 0122C    0000122E     READMF   DATA     %+2,0                                             *A01
            01 0122D    00000000 A
     1110   01 0122E    02200080 A            LCI      8                                                 *A01
     1111   01 0122F    AD800001 A            LMS,R8   *R1               READ MSW0                       *A01
     1112                            *                                                                   *A01
     1113   01 01230    02200090 A            LCI      9                                                 *A01
     1114   01 01231    AD900001 A            LMS,R9   *R1               READ MSW1                       *A01
     1115                            *                                                                   *A01
     1116   01 01232    022000E0 A            LCI      14                                                *A01
     1117   01 01233    ADA00001 A            LMS,RA   *R1               READ MSW2                       *A01
     1118                            *                                                                   *A01
     1119   01 01234    318026EE              CW,R8    =X'FF100000'                                      *A01
     1120   01 01235    69401238              BCS,4    DISPLAYMF         BRANCH IF ERROR DETECTED        *A01
     1121   01 01236    2E001236              WAIT     %                 DOUBLE FAULT CONDITION          *A01
     1122                            *                                                                   *A01
     1123                            *        THE PREVIOUS WAIT INDICATES A FAULT WAS DETECTED           *A01
     1124                            *        BY A PE OR AN MFI BUT THE SNAPSHOT DID NOT RECORD IT       *A01
     1125                            *                                                                   *A01
     1126   01 01237    6510121C              BIR,1    READMEM           CONTINUE SCANNING               *A01
     1127                            *                                                                   *A01
     1128         01 01238           DISPLAYMF EQU     %                                                 *A01
     1129   01 01238    EA6003C3              #HTECON  R8                CONVERT MSW0                    *A01
            01 01239    00000008 A
     1130   01 0123A    320C0000 A            LW,R0    0,LINK                                            *A01
     1131   01 0123B    35001281              STW,R0   MP%MSG+2                                          *A01
     1132   01 0123C    320C0001 A            LW,R0    1,LINK                                            *A01
     1133   01 0123D    35001282              STW,R0   MP%MSG+3                                          *A01
     1134   01 0123E    EA6003C3              #HTECON  R9                CONVERT MSW1                    *A01
            01 0123F    00000009 A
     1135   01 01240    320C0000 A            LW,R0    0,LINK                                            *A01
     1136   01 01241    35001285              STW,R0   MP%MSG+6                                          *A01
     1137   01 01242    320C0001 A            LW,R0    1,LINK                                            *A01
     1138   01 01243    35001286              STW,R0   MP%MSG+7                                          *A01
     1139   01 01244    EA6003C3              #HTECON  RA                CONVERT MSW2                    *A01
            01 01245    0000000A A
     1140   01 01246    320C0000 A            LW,R0    0,LINK                                            *A01
     1141   01 01247    35001289              STW,R0   MP%MSG+10                                         *A01
     1142   01 01248    320C0001 A            LW,R0    1,LINK                                            *A01
     1143   01 01249    3500128A              STW,R0   MP%MSG+11                                         *A01
     1144   01 0124A    2200000C A            LI,R0    12                                                *A01
     1145   01 0124B    75001520              STB,R0   INDMSG                                            *A01
     1146   01 0124C    EA6003C5              #TYPE    INDMSG            TYPE 'MEMORY FAULT'             *A01
            01 0124D    EA6003CC
            01 0124E    00005480 A
            01 0124F    EA6003C6
     1147   01 01250    32001516              LW,R0    EXPMSG5                                           *A01
     1148   01 01251    B50003CE              STW,R0   *#ERRTEXT%        GIVE EXPLANATION                *A01
     1149   01 01252    70300008 A            LCF      R8                                                *A01
     1150   01 01253    68601279              BCR,6    DISPLAYMF#1       SKIP NEXT LINE IF NOT PE        *A01
     1151                            *                                                                   *A01
     1152                            *        BUILD A LINE OF OUTPUT TEXT THAT DISPLAYS THE              *A01
     1153                            *           ADDRESS OF THE FIRST PARITY ERROR                       *A01
     1154                            *                                                                   *A01
     1155   01 01254    3210000A A            LW,R1    RA                FETCH FAULT ADDRESS             *A01
     1156   01 01255    22004001 A            LI,R0    X'4001'                                           *A01
     1157   01 01256    70300009 A            LCF      R9                READ MSW1                       *A01
     1158   01 01257    68C01266              BCR,12   %+15              BRANCH IF NO INTERLEAVING       *A01
     1159                            *                                                                   *A01
     1160   01 01258    68801260              BCR,8    %+8               BRANCH IF 2 WAY                 *A01
     1161                            *                                                                   *A01
     1162   01 01259    311026EF              CW,R1    =X'8001'                                          *A01
     1163   01 0125A    6840125F              BCR,4    %+5               BRANCH IF BOTH BITS (16&31)=0   *A01
     1164   01 0125B    481026EF              EOR,R1   =X'8001'                                          *A01
     1165   01 0125C    311026EF              CW,R1    =X'8001'                                          *A01
     1166   01 0125D    6940125F              BCS,4    %+2               BRANCH IF ONLY ONE BIT WAS '1'  *A01
     1167   01 0125E    481026EF              EOR,R1   =X'8001'                                          *A01
     1168                            *                                                                   *A01
     1169   01 0125F    20000001 A            AI,R0    1                 CHANGE X'4001' TO X'4002'       *A01
     1170                            *                                                                   *A01
     1171                            *        BIT (30) APPLIES TO 4 WAY INTERLEAVING                     *A01
     1172                            *                                                                   *A01
     1173   01 01260    31100000 A            CW,R1    R0                                                *A01
     1174   01 01261    68401266              BCR,4    %+5                                               *A01
     1175   01 01262    48100000 A            EOR,R1   R0                                                *A01
     1176   01 01263    31100000 A            CW,R1    R0                                                *A02
     1177   01 01264    69401266              BCS,4    %+2                                               *A02
     1178   01 01265    48100000 A            EOR,R1   R0                                                *A02
     1179                            *                                                                   *A01
     1180   01 01266    02200010 A            LCI      1                                                 *A01
     1181   01 01267    2D820000 A            LMS,R8   0,R1              READ AND INHIBIT PARITY         *A01
     1182   01 01268    35820000 A            STW,R8   0,R1              CLEAR THE ERROR                 *A01
     1183                            *                                                                   *A01
     1184   01 01269    EA6003C3              #HTECON  R1                CONVERT THE ADDRESS             *A01
            01 0126A    00000001 A
     1185   01 0126B    320C0000 A            LW,R0    0,LINK                                            *A01
     1186   01 0126C    35001216              STW,R0   BADADDMSG+5                                       *A01
     1187   01 0126D    320C0001 A            LW,R0    1,LINK                                            *A01
     1188   01 0126E    35001217              STW,R0   BADADDMSG+6                                       *A01
     1189   01 0126F    EA6003C5              #TYPE    MP%MSG            DISPLAY STATUS WORDS            *A01
            01 01270    EA6003CC
            01 01271    000049FC A
            01 01272    EA6003C6
     1190   01 01273    EA6003C5              #TYPE    BADADDMSG         DISPLAY ADDRESS                 *A01
            01 01274    EA6003CC
            01 01275    00004844 A
            01 01276    EA6003C6
     1191   01 01277    6A60148D              BAL,LINK HALTONERR                                         *A01
     1192   01 01278    6800128B              B        PHASE2                                            *A01
     1193         01 01279           DISPLAYMF#1 EQU   %                                                 *A01
     1194   01 01279    EA6003C5              #TYPE    MP%MSG            DISPLAY STATUS WORDS            *A01
            01 0127A    EA6003CC
            01 0127B    000049FC A
            01 0127C    EA6003C6
     1195   01 0127D    6A60148D              BAL,LINK HALTONERR                                         *A01
     1196   01 0127E    6800128B              B        PHASE2                                            *A01
     1197                            *                                                                   *A01
     1198                            *                                                                   *A01
     1199                            MP%MSG   TEXTCS   ;                                                 *A01
     1200         01 0127F            'MSW0 = XXXXXXXX MSW1 = XXXXXXXX MSW2 = XXXXXXXX'                  *A01
1 C00   00:35 JUN 21,'83                                                                          PAGE   11
A    1202                            *****
     1203   01 0128B    6A601312     PHASE2   BAL,LINK   CHKERRORS       CHECK FOR SEQUENCE ERRORS
     1204   01 0128C    3300151D              MTW,0    ERRORFLAG         ANY ERRORS
     1205   01 0128D    6930129C              BNEZ     PHASE2A           BRANCH IF YES
     1206   01 0128E    32001513              LW,R0    EXPMSG2
     1207   01 0128F    B50003CE              STW,R0   *#ERRTEXT%
     1208   01 01290    EA6003C5              #TYPE    GOOD              DISPLAY SUCCESS MESSAGE
            01 01291    EA6003CC
            01 01292    0000559C A
            01 01293    EA6003C6
     1209   01 01294    6830129C              BCR,3    PHASE2A           BYPASS DELAY ON 'BREAK'
     1210   01 01295    EA6003C5              #TYPE    UPSPACE
            01 01296    EA6003CC
            01 01297    00004D5C A
            01 01298    EA6003C6
     1211   01 01299    22000006 A            LI,R0    6                 DELAY 6 SEC. FOR KEYIN
     1212   01 0129A    6A6014B9              BAL,LINK   DELAY1SEC       *
     1213   01 0129B    6400129A              BDR,R0   %-1
     1214                            *
     1215   01 0129C    32001508     PHASE2A  LW,R0    SIG8%9FLG         IS AN 8 OR 9
     1216   01 0129D    683012B4              BEZ      PHASE2B           BRANCH IF NO
     1217   01 0129E    3200150A              LW,R0    TESTNO
     1218   01 0129F    21000001 A            CI,R0    1
     1219   01 012A0    68301088              BE       GO2               IF TEST WAS #1 START #2
     1220   01 012A1    32801468              LW,R8    CLKMAR            FIND MARGIN
     1221   01 012A2    2180F000 A            CI,R8    X'F000'           IS IT FIXED
     1222   01 012A3    69101051              BL       GO1               BRANCH IF YES
     1223   01 012A4    4B0026F0              AND,R0   =X'300'
     1224   01 012A5    20000010 A            AI,R0    X'10'             SELECT NEXT MARGIN
     1225   01 012A6    21000020 A            CI,R0    X'20'
     1226   01 012A7    682012A9              BLE      %+2
     1227   01 012A8    22000000 A            LI,R0    0
     1228   01 012A9    6C800045 A            RD,R8    X'45'             FIND EXISTING STATUS
     1229   01 012AA    4B801469              AND,R8   MARGINMASK        CLEAR MARGIN FIELDS
     1230   01 012AB    22100002 A            LI,X1    2
     1231   01 012AC    32900008 A            LW,R9    R8
     1232   01 012AD    2590006A A            SLS,R9   -22
     1233   01 012AE    209000F0 A            AI,R9    X'F0'
     1234   01 012AF    75921468              STB,R9   CLKMAR,X1         UPDATE LINE J CLOCK MARGIN
     1235   01 012B0    2500000E A            SLS,R0   14
     1236   01 012B1    49000008 A            OR,R0    R8
     1237   01 012B2    6D000045 A            WD,R0    X'45'             SET MARGIN
     1238   01 012B3    68001051              B        GO1               START NEXT PASS
     1239                            *
     1240                            *  ENTER HERE IF A SIGMA 5,6, OR 7
     1241                            *
     1242   01 012B4    3200150A     PHASE2B  LW,R0    TESTNO
     1243   01 012B5    21000001 A            CI,R0    1                 END OF TEST #1
     1244   01 012B6    68301088              BE       GO2               START TEST #2 IF YES
     1245   01 012B7    68001051              B        GO1               START NEW PASS
     1246                            *
1 C00   00:35 JUN 21,'83                                                                          PAGE   12
A    1248                            *****
     1249                            *
     1250                            *  INTERRUPT HANDLER - PROCESSES AN INTERRUPT FROM ANY LOCATION BETWEEN
     1251                            *        0 AND 1FF EXCEPT 50,51, AND 5C
     1252                            *
     1253         01 012B8           COMPADDR EQU      %                                                 *A01
     1254   01 012B8    02200000 A            LCI      0                                                 *A01
     1255   01 012B9    2B001302              STM,0    INTSAVE                                           *A01
     1256   01 012BA    32900006 A            LW,R9    LINK              FIND INTERRUPT ADDRESS          *A01
     1257   01 012BB    38901DAE              SW,R9    ACCESS%
     1258   01 012BC    21900026 A            CI,R9    X'26'             WAS IT A SYSTEM RESET
     1259   01 012BD    693012C5              BNE      COMPADD2          BRANCH IF NO                    *A01
     1260                            *
     1261   01 012BE    2231FFFF A            LI,X3    X'1FFFF'
     1262   01 012BF    4A301646              LS,X3    PSDS+X'98'
     1263   01 012C0    21300027 A            CI,X3    X'27'
     1264   01 012C1    693012C5              BNE      COMPADD2          BRANCH IF NO                    *A01
     1265   01 012C2    3240150C     COMPADD1 LW,X4    TESTFLAG          WAS SYSTEM RESET NEEDED FOR RECOVERY
     1266   01 012C3    69301118              BNEZ     RECOVER           BRANCH IF YES
     1267   01 012C4    68000400 A            B        X'400'            EXECUTE ABSOLUTE RECOVERY
     1268                            *
     1269         01 012C5           COMPADD2  EQU     %                                                 *A01
     1270   01 012C5    6A6012D9              BAL,LINK LOGINTERRUPT                                      *A01
     1271   01 012C6    2190004F A            CI,R9    X'4F'                                             *A01
     1272   01 012C7    692012CA              BG       %+3                                               *A01
     1273   01 012C8    21900040 A            CI,R9    X'40'                                             *A01
     1274   01 012C9    692012CD              BG       COMPADD3                                          *A01
     1275   01 012CA    02200000 A            LCI      0                                                 *A01
     1276   01 012CB    2A001302              LM,0     INTSAVE                                           *A01
     1277   01 012CC    0E301300              LPSD,3   RET%PSD                                           *A01
     1278                            *                                                                   *A01
     1279         01 012CD           COMPADD3 EQU      %                 TRAP EXIT                       *A01
     1280   01 012CD    2190004C A            CI,R9    X'4C'                                             *A01
     1281   01 012CE    693012D6              BNE      COMPADDX          BRANCH IF NOT PE                *A02
     1282   01 012CF    B280004C A            LW,R8    *X'4C'            FIND TRAP ADDR.                 *A02
     1283   01 012D0    4B8026F1              AND,R8   =X'1FFFF'                                         *A02
     1284                            *                                                                   *A02
     1285   01 012D1    02200010 A            LCI      1                                                 *A01
     1286   01 012D2    ADE00008 A            LMS,RE   *R8                                               *A02
     1287   01 012D3    B5E00008 A            STW,RE   *R8               RESTORE GOOD PARITY             *A02
     1288   01 012D4    022000C0 A            LCI      12                                                *A02
     1289   01 012D5    ADE00008 A            LMS,RE   *R8               CLEAR MEM FAULT                 *A02
     1290                            *                                                                   *A01
     1291   01 012D6    02200000 A   COMPADDX LCI      0                                                 *A02
     1292   01 012D7    2A001302              LM,0     INTSAVE                                           *A01
     1293   01 012D8    0E101300              LPSD,1   RET%PSD                                           *A01
     1294                            *                                                                   *A02
     1295                            ****
     1296         01 012D9           LOGINTERRUPT  EQU   %
     1297   01 012D9    33101FB0              MTW,1    HISTORY%          BUMP COUNT OF ENTRIES           *A02
     1298   01 012DA    32A01FB0              LW,RA    HISTORY%                                          *A02
     1299   01 012DB    21A00064 A            CI,RA    100                                               *A02
     1300   01 012DC    E9200006 A            BG       *LINK             EXIT IF TABLE FULL              *A02
     1301   01 012DD    21900050 A            CI,R9    X'50'                                             *A02
     1302   01 012DE    693012E1              BNE      %+3                                               *A02
     1303   01 012DF    12A014F2              LD,RA    ONPSD             FETCH PWR ON INT. PSD           *A02
     1304   01 012E0    680012EC              B        LOG%I#1                                           *A02
     1305                            *                                                                   *A02
     1306   01 012E1    21900051 A            CI,R9    X'51'                                             *A02
     1307   01 012E2    693012E5              BNE      %+3                                               *A02
     1308   01 012E3    12A014F6              LD,RA    OFFPSD            FETCH PWR OFF PSD               *A02
     1309   01 012E4    680012EC              B        LOG%I#1                                           *A02
     1310                            *                                                                   *A02
     1311   01 012E5    2190005C A            CI,R9    X'5C'                                             *A02
     1312   01 012E6    693012E9              BNE      %+3                                               *A02
     1313   01 012E7    12A012F0              LD,RA    IOINT-4           FETCH I/O INT. PSD              *A02
     1314   01 012E8    680012EC              B        LOG%I#1                                           *A02
     1315                            *                                                                   *A02
     1316   01 012E9    35900003 A            STW,R9   X3                SAVE INT. LOC'N AND PSD         *A02
     1317   01 012EA    25300001 A            SLS,X3   1                                                 *A02
     1318   01 012EB    12A615AE              LD,RA    PSDS,X3                                           *A02
     1319   01 012EC    15A01300     LOG%I#1  STD,RA   RET%PSD                                           *A02
     1320   01 012ED    02200030 A            LCI      3                                                 *A02
     1321   01 012EE    0B9020DE              PSM,R9   STP1                                              *A02
     1322   01 012EF    E8000006 A            B        *LINK
1 C00   00:35 JUN 21,'83                                                                          PAGE   13
A    1324                            *
     1325                            *
     1326                            *        ENTER HERE IF I/O INTERRUPT OCCURS DURING THE WAIT FOR
     1327                            *           POWER OFF
     1328                            *
     1329                                     BOUND    8
     1330                            *
     1331   01 012F0    00000000 A            DATA     0,0,IOINT,0
            01 012F1    00000000 A
            01 012F2    000012F4
            01 012F3    00000000 A
     1332         01 012F4           IOINT    EQU      %
     1333   01 012F4    CD900396              TIO,R9   *#TOADDR
     1334   01 012F5    4B9012FD              AND,R9   UEMASK            CHECK FOR UNUSUAL END
     1335   01 012F6    693012FA              BCS,3    %+4               BRANCH IF YES                   *A03
     1336   01 012F7    229FFFFF A            LI,R9    -1                                                *A01
     1337   01 012F8    359012FE              STW,R9   UEFLAG                                            *A01
     1338   01 012F9    2290005C A            LI,R9    X'5C'                                             *A01
     1339   01 012FA    6A6012D9              BAL,LINK LOGINTERRUPT                                      *A01
     1340                            *
     1341   01 012FB    0E0012F0              LPSD,0   IOINT-4           RETURN TO INTERRUPTED TEST
     1342                            *
     1343                            *
     1344   01 012FC    0F9012F0     XPSD5C   XPSD,9   IOINT-4
     1345   01 012FD    08000000 A   UEMASK   DATA     X'8000000'        UNUSUAL END MASK
     1346   01 012FE    00000000 A   UEFLAG   DATA     0                 SET TO -1 IF UNUSUAL END        *A01
     1347                                     BOUND    8                                                 *A01
     1348   01 01300    00000000 A   RET%PSD  DATA     0,0                                               *A01
            01 01301    00000000 A
     1349   01 01302                 INTSAVE  RES      16                REGISTER SAVE BUFFER            *A01
     1350                            *
     1351                            *
1 C00   00:35 JUN 21,'83                                                                          PAGE   14
A    1353                            *
     1354                            *  THIS ROUTINE CHECKS FOR ERRORS AND CALLS FOR AN ERROR
     1355                            *        DISPLAY IF ANY WERE DETECTED DURING THE TEST
     1356                            *
     1357   01 01312    02200000 A   CHKERRORS LCI     0
     1358   01 01313    2B001347              STM,0    SAVE#1
     1359   01 01314    32801FB0              LW,R8    HISTORY%                                          *A02
     1360   01 01315    21800002 A            CI,R8    2                                                 *A02
     1361   01 01316    69201339              BG       CHKERR2           BRANCH IF MORE THAN 2 INTS.     *A02
     1362   01 01317    6910131E              BL       DISPLAY           BRANCH IF LESS THAN TWO         *A02
     1363   01 01318    32801FB2     CHKERR1  LW,R8    HISTORY           FETCH FIRST INT. LOC'N          *A02
     1364   01 01319    21800051 A            CI,R8    X'51'                                             *A02
     1365   01 0131A    6930131E              BNE      DISPLAY           BRANCH IF NOT PWR OFF           *A02
     1366                            *                                                                   *A02
     1367   01 0131B    32801FB5              LW,R8    HISTORY+3         FETCH 2ND INT. LOC'N            *A02
     1368   01 0131C    21800050 A            CI,R8    X'50'                                             *A02
     1369   01 0131D    6830132D              BE       CHKTRAP           OK IF PWR ON
     1370                            *
     1371   01 0131E    EA6003C5     DISPLAY  #TYPE    UPSPACE
            01 0131F    EA6003CC
            01 01320    00004D5C A
            01 01321    EA6003C6
     1372   01 01322    EA6003C5              #TYPE    ERRDISPLAY
            01 01323    EA6003CC
            01 01324    00004D60 A
            01 01325    EA6003C6
     1373   01 01326    EA6003C5              #TYPE  UPSPACE
            01 01327    EA6003CC
            01 01328    00004D5C A
            01 01329    EA6003C6
     1374   01 0132A    3280151A              LW,R8    EXPMSG9
     1375   01 0132B    B58003CE              STW,R8   *#ERRTEXT%
     1376   01 0132C    6A60148D              BAL,LINK   HALTONERR
     1377   01 0132D    3280150B     CHKTRAP  LW,R8    TRFL              WAS THERE AN UNEXP. TRAP
     1378   01 0132E    68301336              BEZ      CHKERR#X          BRANCH IF NO ERROR
     1379   01 0132F    32801519              LW,R8    EXPMSG8
     1380   01 01330    B58003CE              STW,R8   *#ERRTEXT%        TRAP ERROR EXPLANATION
     1381   01 01331    EA6003C5              #TYPE    TRAP              DISPLAY LAST TRAP
            01 01332    EA6003CC
            01 01333    00005650 A
            01 01334    EA6003C6
     1382   01 01335    6A60148D              BAL,LINK   HALTONERR
     1383                            *
     1384   01 01336    02200000 A   CHKERR#X LCI      0
     1385   01 01337    2A001347              LM,0     SAVE#1            RESTORE REGISTERS
     1386   01 01338    E8000006 A            B        *LINK
     1387                            *
     1388         01 01339           CHKERR2 EQU       %                                                 *A01
     1389   01 01339    330012FE              MTW,0    UEFLAG                                            *A01
     1390   01 0133A    6930131E              BNEZ     DISPLAY                                           *A01
     1391   01 0133B    21800003 A            CI,R8    3                                                 *A02
     1392   01 0133C    6920131E              BG       DISPLAY           BRANCH IF MORE THAN 3 INTS.     *A02
     1393   01 0133D    32801FB8              LW,R8    HISTORY+6                                         *A02
     1394   01 0133E    21800050 A            CI,R8    X'50'                                             *A01
     1395   01 0133F    6930131E              BNE      DISPLAY           BR. IF LAST NOT PWR. ON         *A01
     1396   01 01340    32801FB2              LW,R8    HISTORY                                           *A02
     1397   01 01341    2180005C A            CI,R8    X'5C'                                             *A01
     1398   01 01342    6930131E              BNE      DISPLAY           BR. IF FIRST NOT A I/O INT.     *A01
     1399   01 01343    32801FB5              LW,R8    HISTORY+3                                         *A02
     1400   01 01344    21800051 A            CI,R8    X'51'                                             *A02
     1401   01 01345    6930131E              BNE      DISPLAY           BRANCH IF 2ND NOT PWR OFF       *A02
     1402   01 01346    6800132D              B        CHKTRAP                                           *A01
     1403                            *                                                                   *A01
     1404   01 01347                 SAVE#1   RES      16
     1405                            *
     1406         01 01357           UPSPACE  TEXTCS   ' '
     1407                            ERRDISPLAY TEXTCS   ;
     1408         01 01358            '**** SEQUENCE ERROR - USE  DH DIRECTIVE TO DISPLAY ****'
     1409                            *****
     1410                            *
     1411                            *  ENTER HERE IF LOC'N X'40' WAS ADDRESSED
     1412                            *
     1413   01 01366    7400000C A   TSTTR    STCF     RC                SAVE TRAP CONDITION CODES
     1414   01 01367    32901371              LW,R9    PCPTST            THIS ROUTINE MAY BE ENTERED BY THE
     1415   01 01368    4690005D A            XW,R9    X'5D'             OCCURENCE OF A TRAP TO X'40', OR
     1416   01 01369    22800010 A            LI,R8    X'10'             BY A POWER INTERRUPT PRESENTING
     1417   01 0136A    6D801200 A            WD,R8    X'1200'           ADDRESS X'40'. THE PCP INTERRUPT
     1418   01 0136B    6D801700 A            WD,R8    X'1700'           IS TRIGGERED, AND IF IT OCCURS, A
     1419   01 0136C    02000000 A            NOP                        TRAP CAUSED ENTRY, IF THE PCP INT
     1420   01 0136D    6D801100 A            WD,R8    X'1100'           DOES NOT OCCUR (PWR INT STILL
     1421   01 0136E    3590005D A            STW,R9   X'5D'             ACTIVE) A WRONG ADDRESS CAUSED
     1422   01 0136F    22900040 A            LI,R9    X'40'             ENTRY.
     1423   01 01370    E800150D              B       *ADDRCODE
     1424                            *
     1425   01 01371    0F001372     PCPTST   XPSD,0   PCPPSD
     1426                                     BOUND    8
     1427   01 01372    00000000 A   PCPPSD   DATA     0,0,NTPINT,0
            01 01373    00000000 A
            01 01374    00001376
            01 01375    00000000 A
     1428                            *
     1429                            *****
     1430                            *
     1431                            *  ENTRY HERE INDICATES ENTRY TO 'TSTTR' WAS FROM A TRAP
     1432                            *     (PCP INT. OCCURRED WHEN TRIGGERED)
     1433                            *
     1434   01 01376    3590005D A   NTPINT   STW,R9   X'5D'             RESTORE PCP LOCATION.
     1435   01 01377    229FFFFF A            LI,R9    -1                SET TRAP INDICATOR.
     1436   01 01378    3590150B              STW,R9   TRFL              *
     1437   01 01379    329014E6              LW,R9    TRAP40            FIND PSW1 AND SAVE FOR DISPLAY
     1438   01 0137A    EA6003C3              #HTECON  R9                     *
            01 0137B    00000009 A
     1439   01 0137C    328C0000 A            LW,R8    0,LINK                 *
     1440   01 0137D    329C0001 A            LW,R9    1,LINK                 *
     1441   01 0137E    1580159A              STD,R8   TRAP+6                 *
     1442                            *
     1443   01 0137F    329014E7              LW,R9    TRAP40+1          FIND PSW2 AND SAVE FOR DISPLAY
     1444   01 01380    EA6003C3              #HTECON  R9                     *
            01 01381    00000009 A
     1445   01 01382    328C0000 A            LW,R8    0,LINK                 *
     1446   01 01383    329C0001 A            LW,R9    1,LINK                 *
     1447   01 01384    1580159E              STD,R8   TRAP+10                *
     1448                            *
     1449   01 01385    EA6003C3              #HTECON  RC                FIND TRAP CC'S AND CONVERT FOR
            01 01386    0000000C A
     1450   01 01387    329C0000 A            LW,R9    0,LINK               DISPLAY
     1451   01 01388    25900208 A            SCS,R9   8                      *
     1452   01 01389    75901598              STB,R9   TRAP+4                 *
     1453                            *
     1454   01 0138A    22910040 A            LI,R9    X'10040'          LOG TRAP
     1455   01 0138B    6A6012D9              BAL,LINK  LOGINTERRUPT
     1456                            *
     1457   01 0138C    B3100040 A            MTW,1   *X'40'             INCREMENT TRAP ADDRESS.
     1458   01 0138D    8E000040 A            LPSD,0  *X'40'             RETURN TO TRAP+1.
     1459                            *****
1 C00   00:35 JUN 21,'83                                                                          PAGE   15
A    1461                            *
     1462                            *
     1463                            *************************************
     1464                            *  D I S P L A Y   H I S T O R Y   T A B L E
     1465                            *************************************
     1466                            *
     1467                            *************************************
     1468                            *  THIS ROUTINE DISPLAYS THE CURRENT CONTENTS OF THE INTERRUPT
     1469                            *      HISTORY TABLE ON USER REQUEST.  (DH)
     1470                            *  INT. SEQUENCES OTHER THAN 51,50 OR                               *A01
     1471                            *     5C,51,50 ARE FLAGGED AS ERRORS                                *A01
     1472                            *                                                                   *A01
     1473                            *************************************
     1474                            *
     1475                            *
     1476   01 0138E    6A601391     DISP%HIST BAL,LINK  DISHIS
     1477   01 0138F    02200010 A            LCI      1
     1478   01 01390    E80003C9              B        *#FIDLE%
     1479                            *
     1480                            *  THIS ROUTINE DISPLAYS THE INTERRUPTS THAT HAVE OCCURRED SINCE THE
     1481                            *     START OF THE CURRENT PASS
     1482                            *
     1483   01 01391    02200000 A   DISHIS   LCI      0
     1484   01 01392    2B001475              STM,0    SAVE
     1485   01 01393    22800000 A            LI,R8    0
     1486   01 01394    35801414              STW,R8   TYPE2FLG                                          *A01
     1487   01 01395    22A00000 A            LI,RA    0
     1488   01 01396    223FFFFF A            LI,X3    -1
     1489   01 01397    EA6003C5              #TYPE    UPSPACE
            01 01398    EA6003CC
            01 01399    00004D5C A
            01 0139A    EA6003C6
     1490   01 0139B    32101FB0              LW,X1    HISTORY%          FIND TABLE SIZE                 *A02
     1491   01 0139C    693013A2              BNEZ     DISHIS#A          BRANCH IF ANY ENTRIES
     1492   01 0139D    EA6003C5              #PRINT   NOENTRY
            01 0139E    EA6003CD
            01 0139F    C0004FDC A
            01 013A0    EA6003C6
     1493   01 013A1    680013F3              B        DISHIS#X
     1494                            *
     1495   01 013A2    EA6003C5     DISHIS#A #PRINT   HISHDR            PRINT HEADER
            01 013A3    EA6003CD
            01 013A4    C0004FF4 A
            01 013A5    EA6003C6
     1496   01 013A6    EA6003C5              #PRINT   UPSPACE
            01 013A7    EA6003CD
            01 013A8    C0004D5C A
            01 013A9    EA6003C6
     1497                            *
     1498   01 013AA    6A6013AC     DISHIS#B BAL,LINK   DISHIS#C
     1499   01 013AB    680013F3              B        DISHIS#X
     1500                            *
     1501   01 013AC    356013F6     DISHIS#C STW,LINK   LINKSAVE
     1502   01 013AD    20800001 A            AI,R8    1                 INCREMENT SEQUENCE #
     1503   01 013AE    20300001 A            AI,X3    1                 INCREMENT LOAD INDEX
     1504   01 013AF    EA6003C3              #HTECON  R8                FIND SEQUENCE # IN EBCDIC
            01 013B0    00000008 A
     1505   01 013B1    329C0001 A            LW,R9    1,LINK
     1506   01 013B2    55901407              STH,R9   HISDISPLAY+1
     1507   01 013B3    32961FB2              LW,R9    HISTORY,X3        FIND LOCATION OF INT.           *A02
     1508   01 013B4    3590000F A            STW,R9   RF                                                *A02
     1509   01 013B5    EA6003C3              #HTECON  R9                CONVERT TO EBCDIC
            01 013B6    00000009 A
     1510   01 013B7    329C0001 A            LW,R9    1,LINK
     1511   01 013B8    35901408              STW,R9   HISDISPLAY+2
     1512   01 013B9    20300001 A            AI,X3    1                                                 *A02
     1513   01 013BA    32961FB2              LW,R9    HISTORY,X3        FIND PSW1                       *A02
     1514   01 013BB    EA6003C3              #HTECON  R9                                                *A02
            01 013BC    00000009 A
     1515   01 013BD    329C0000 A            LW,R9    0,LINK            AND PLACE IN MESSAGE            *A02
     1516   01 013BE    3590140A              STW,R9   HISDISPLAY+4                                      *A02
     1517   01 013BF    329C0001 A            LW,R9    1,LINK                                            *A02
     1518   01 013C0    3590140B              STW,R9   HISDISPLAY+5                                      *A02
     1519                            *                                                                   *A02
     1520   01 013C1    20300001 A            AI,X3    1                                                 *A02
     1521   01 013C2    32961FB2              LW,R9    HISTORY,X3        FIND PSW2                       *A02
     1522   01 013C3    EA6003C3              #HTECON  R9                                                *A02
            01 013C4    00000009 A
     1523   01 013C5    329C0000 A            LW,R9    0,LINK            AND PLACE IN MESSAGE            *A02
     1524   01 013C6    3590140D              STW,R9   HISDISPLAY+7                                      *A02
     1525   01 013C7    329C0001 A            LW,R9    1,LINK                                            *A02
     1526   01 013C8    3590140E              STW,R9   HISDISPLAY+8                                      *A02
     1527                            *                                                                   *A02
     1528   01 013C9    21300002 A            CI,X3    2                 IS IT FIRST ENTRY               *A02
     1529   01 013CA    693013D1              BNE      %+7               BRANCH IF NO                    *A02
     1530   01 013CB    21F0005C A            CI,RF    X'5C'             WAS FIRST INT I/O               *A02
     1531   01 013CC    693013DC              BNE      DISHIS#CA         BRANCH IF NO                    *A02
     1532   01 013CD    330012FE              MTW,0    UEFLAG            DID INT CAUSE UNUSUAL END       *A02
     1533   01 013CE    693013E2              BNEZ     DISHIS#C1         DISPLAY ERROR IF NO             *A02
     1534   01 013CF    33F01414              MTW,-1   TYPE2FLG          SAY 5C,51,50 SEQ. EXPECTED      *A02
     1535   01 013D0    680013DE              B        DISHIS#CB         DISPLAY THE 5C INTERRUPT        *A02
     1536                            *                                        (WITHOUT ERROR FLAG)       *A02
     1537   01 013D1    33001414              MTW,0    TYPE2FLG          IS IT A 3 INT. SEQ.             *A02
     1538   01 013D2    683013D7              BEZ      %+5               BRANCH IF NO                    *A02
     1539   01 013D3    21300005 A            CI,X3    5                 IS IT THE SECOND INT.           *A02
     1540   01 013D4    683013DC              BE       DISHIS#CA         BRANCH IF YES                   *A02
     1541   01 013D5    21300008 A            CI,X3    8                 IS IT THE THIRD INT.            *A02
     1542   01 013D6    680013D8              B        %+2                                               *A02
     1543                            *                                                                   *A02
     1544   01 013D7    21300005 A            CI,X3    5                 IS IT THE SECOND INT.           *A02
     1545                            *                                                                   *A02
     1546   01 013D8    693013E2              BNE      DISHIS#C1         DISPLAY ERROR IF NO             *A02
     1547                            *                                                                   *A02
     1548                            *        ENTER HERE IF PWR ON INT. (X'50') EXPECTED                 *A02
     1549                            *                                                                   *A02
     1550   01 013D9    21F00050 A            CI,RF    X'50'                                             *A02/
     1551   01 013DA    693013E2              BNE      DISHIS#C1         ERROR IF NO
     1552   01 013DB    680013DE              B        DISHIS#CB         DISPLAY INT. (NO ERROR)         *A02
     1553                            *                                                                   *A02
     1554                            *        ENTER HERE IF PWR OFF INT. EXPECTED (X'51')                *A02
     1555                            *                                                                   *A02
     1556         01 013DC           DISHIS#CA EQU     %                                                 *A02
     1557   01 013DC    21F00051 A            CI,RF    X'51'             WAS IT A PWR OFF INT.           *A02
     1558   01 013DD    693013E2              BNE      DISHIS#C1         DISPLAY ERROR IF NO             *A02
     1559                            *                                                                   *A02
     1560                            *        ENTER HERE IF INT WAS NOT AN ERROR                         *A02
     1561                            *                                                                   *A02
     1562   01 013DE    3290146A     DISHIS#CB LW,R9   EBCBLNKS                                          *A01
     1563   01 013DF    35901410              STW,R9   HISDISPLAY+10     BLANK OLD ERROR MSG             *A02
     1564   01 013E0    35901411              STW,R9   HISDISPLAY+11                                     *A02
     1565   01 013E1    680013EC              B        DISHIS#C2
     1566                            *
     1567         01 013E2           DISHIS#C1  EQU    %
     1568   01 013E2    21A00040 A            CI,RA    X'40'             CHECK FOR TRAP                  *A02
     1569   01 013E3    691013E9              BL       %+6                                               *A02
     1570   01 013E4    21A0004F A            CI,RA    X'4F'                                             *A02
     1571   01 013E5    692013E9              BG       %+4               BRANCH IF NOT                   *A02
     1572                            *
     1573   01 013E6    02200020 A            LCI      2
     1574   01 013E7    2A901412              LM,R9    TRAPERR           FLAG ENTRY AS TRAP
     1575   01 013E8    680013EB              B        %+3
     1576                            *
     1577   01 013E9    02200020 A            LCI      2
     1578   01 013EA    2A901415              LM,R9    ERRMSG            FLAG ENTRY AS ERROR
     1579   01 013EB    2B901410              STM,R9   HISDISPLAY+10                                     *A02
     1580                            *
     1581   01 013EC    EA6003C5     DISHIS#C2 #PRINT  HISDISPLAY        DISPLAY ONE ENTRY
            01 013ED    EA6003CD
            01 013EE    C0005018 A
            01 013EF    EA6003C6
     1582   01 013F0    683013F3              BCR,3    DISHIS#X          EXIT ON 'BREAK'
     1583   01 013F1    641013AD              BDR,X1   DISHIS#C+1        LOOP IF MORE ENTRIES
     1584   01 013F2    E80013F6              B        *LINKSAVE
     1585                            *
     1586   01 013F3    02200000 A   DISHIS#X LCI      0
     1587   01 013F4    2A001475              LM,0     SAVE
     1588   01 013F5    E8000006 A            B        *LINK
     1589                            *
     1590   01 013F6                 LINKSAVE  RES     1
     1591                            *
     1592         01 013F7           NOENTRY  TEXTCS   'NO INTERRUPTS OCCURRED'
     1593         01 013FD           HISHDR   TEXTCS   '  SEQ# LOCN      PSW1        PSW2'               *A02
     1594         01 01406           HISDISPLAY TEXTCS '   XX  XXXX    XXXXXXXX    XXXXXXXX    XXXXXXXX' *A02
     1595   01 01412    5C5C5CE3 A   TRAPERR  TEXT     '***TRAP '
            01 01413    D9C1D740 A
     1596   01 01414    00000000 A   TYPE2FLG DATA     0                 SET NEG. IF 5C WAS FIRST INT.   *A01
     1597   01 01415    5C5C5CC5 A   ERRMSG   TEXT     '***ERROR'
            01 01416    D9D9D6D9 A
     1598                            *
     1599                            ****
     1600                            *
     1601                            *PARAMETER LINE J
     1602                            *
     1603                            *
     1604   01 01417    0000518C              DATA     BA(PLINE#J),BA(PL#JHDR)
            01 01418    00005174
     1605                            *
     1606   01 01419    70200006 A   PARAMJ   LC       LINK              CHECK IF ANY CHANGES
     1607   01 0141A    68301451              BEZ      PARAMJ#Y+2        EXIT IF NONE
     1608   01 0141B    02200000 A            LCI      0
     1609   01 0141C    2B001475              STM,0    SAVE              SAVE REGISTERS
     1610   01 0141D    22800000 A            LI,R8    0
     1611   01 0141E    35801474              STW,R8   PARAM%RET         ZERO RETURN STORE
     1612   01 0141F    328026AF              LW,R8    PLINEIN+3         IS MSGDEV=COMDEV
     1613   01 01420    31801464              CW,R8    PLINE#J+1
     1614   01 01421    6830142E              BE       PARAMJ#A-2        BRANCH IF YES
     1615   01 01422    6D000032 A            #ETHCON,4 R8               IS DEVICE RECOG. AND AVAIL.
            01 01423    EA6003C2
            01 01424    04000020 A
            01 01425    6D000022 A
     1616   01 01426    CD000006 A            TIO,0    *LINK
     1617   01 01427    68C0142E              BCR,12   PARAMJ#A-2        BRANCH IF YES
     1618   01 01428    EA6003C5              #TYPE    NOTAVAIL
            01 01429    EA6003CC
            01 0142A    00005214 A
            01 0142B    EA6003C6
     1619   01 0142C    33101474              MTW,1    PARAM%RET         SET PARAM FIELD 1 AS ERROR
     1620   01 0142D    68001459              B        PARAMJ#F
     1621                            *
     1622   01 0142E    32801508              LW,R8    SIG8%9FLG         IS IT SIGMA 8 OR 9
     1623   01 0142F    68301446              BEZ      PARAMJ#X          BRANCH IF NO
     1624                            *
     1625   01 01430    6D000032 A   PARAMJ#A #ETHCON,1 PLINEIN+5,2      FIND CM
            01 01431    EA6003C2
            01 01432    01009AC6
            01 01433    6D000022 A
     1626   01 01434    21600002 A            CI,LINK  2
     1627   01 01435    6820143E              BLE      PARAMJ#W          BRANCH IF 0 THRU 2 (OK)
     1628   01 01436    21600009 A            CI,LINK  9
     1629   01 01437    6920143B              BG       %+4               BRANCH IF A THRU F
     1630   01 01438    33301474              MTW,3    PARAM%RET         SET PARAM FIELD 3 AS ERROR
     1631   01 01439    328026B1              LW,R8    PLINEIN+5         FIND BAD KEYIN
     1632   01 0143A    68001453              B        PARAMJ#E
     1633                            *
     1634   01 0143B    2160000D A            CI,LINK   X'D'
     1635   01 0143C    68101438              BGE      %-4               BRANCH IF D THRU F (ERROR)
     1636   01 0143D    32A00006 A            LW,RA    LINK              SAVE CM IN RA  REGISTER
     1637                            *
     1638         01 0143E           PARAMJ#W EQU      %
     1639   01 0143E    6C800045 A            RD,R8    X'45'             FIND EXISTING STATUS
     1640   01 0143F    4B801469              AND,R8   MARGINMASK        CLEAR MARGIN FIELDS
     1641   01 01440    21A00002 A            CI,RA    2                 IS CM A FIXED MARGIN
     1642   01 01441    68201443              BLE      %+2               BRANCH IF YES
     1643   01 01442    20AFFFF6 A            AI,RA    -10               CONVERT A,B,C TO 0,1,2 RESP.
     1644   01 01443    25A00016 A            SLS,RA   22                ALIGN CM
     1645   01 01444    49A00008 A            OR,RA    R8                NEW CM TO CONTROL LINE
     1646   01 01445    6DA00045 A            WD,RA    X'45'             SET MARGINS
     1647   01 01446    72601463     PARAMJ#X LB,LINK  PLINE#J           COPY UPDATED LINE
     1648   01 01447    728C26AC              LB,R8    PLINEIN,LINK
     1649   01 01448    758C1463              STB,R8   PLINE#J,LINK
     1650   01 01449    64601447              BDR,LINK   %-2
     1651   01 0144A    6D000032 A            #ETHCON,4  PLINE#J+3       FIND NEW MSGDEV
            01 0144B    EA6003C2
            01 0144C    04005198
            01 0144D    6D000022 A
     1652   01 0144E    35600397              STW,LINK   #PRTADDR
     1653   01 0144F    02200000 A   PARAMJ#Y LCI      0
     1654   01 01450    2A001475              LM,0     SAVE
     1655   01 01451    02200010 A            LCI      1                 RETURN TO SAME GO-TO ADDRESS
     1656   01 01452    E80003C9              B        *#FIDLE%
     1657                            *
     1658   01 01453    3290146A     PARAMJ#E LW,R9    EBCBLNKS
     1659   01 01454    15801472              STD,R8   PARAMERR+6
     1660   01 01455    EA6003C5              #TYPE    PARAMERR
            01 01456    EA6003CC
            01 01457    000051B0 A
            01 01458    EA6003C6
     1661   01 01459    02200000 A   PARAMJ#F LCI      0
     1662   01 0145A    2A001475              LM,0     SAVE              RESTORE REGISTERS
     1663   01 0145B    46601474              XW,LINK   PARAM%RET        ERROR FIELD NO. TO #LINK
     1664   01 0145C    E8001474              B        *PARAM%RET
     1665                            *
     1666                            *
     1667                            **********************************************************************
     1668                            *   THE FOLLOWING LOCATIONS CONTAIN THE CONTROL OPTIONS IN EBCDIC
     1669                            *       FORMAT READY FOR DISPLAY AT USERS REQUEST ( PARAMETER LINE J)
     1670                            **********************************************************************
     1671         01 0145D           PL#JHDR  TEXTCS   '  COMDEV MSGDEV     CM'
     1672                            *
     1673         01 01463           PLINE#J  TEXTCS   '*J*0001    0002      0'
     1674         01 01468           CLKMAR   EQU      PLINE#J+5
     1675                            *
     1676   01 01469    FF3FFFFF A   MARGINMASK  DATA  X'FF3FFFFF'       MASK FOR CLEARING CM
     1677   01 0146A    40404040 A   EBCBLNKS TEXT     '        '        8 BLANKS
            01 0146B    40404040 A
     1678         01 0146C           PARAMERR TEXTCS   '****PARAMETER ERROR****        '
     1679   01 01474    00000000 A   PARAM%RET  DATA   0
     1680   01 01475                 SAVE     RES      16
     1681         01 01485           NOTAVAIL TEXTCS   '****DEVICE NOT AVAILABLE****'
     1682                            *
1 C00   00:35 JUN 21,'83                                                                          PAGE   16
A    1684                            *****
     1685   01 0148D    3560149A     HALTONERR  STW,LINK   HALT%RET      SAVE RETURN ADDRESS
     1686   01 0148E    3310151E              MTW,1    ERR%TOTAL         INCREMENT ERROR COUNTER
     1687   01 0148F    33F0151D              MTW,-1   ERRORFLAG
     1688   01 01490    70200392              LC       #SENSE
     1689   01 01491    E9200006 A            BCS,2    *LINK
     1690   01 01492    EA6003C6              BAL,LINK   *#ENUSER%       ENABLE USER KEYIN
     1691   01 01493    EA6003C5              #TYPE    HALTMSG
            01 01494    EA6003CC
            01 01495    0000526C A
            01 01496    EA6003C6
     1692   01 01497    8F9003CA              XPSD,9   *#RUNADDR%      GO TO GUIDE 'IDLE'
     1693   01 01498    EA6003C5              BAL,LINK   *#DISUSER%      DISABLE USER KEYIN
     1694   01 01499    E800149A              B        *HALT%RET
     1695                            *
     1696   01 0149A    00000000 A   HALT%RET DATA     0
     1697         01 0149B           HALTMSG  TEXTCS   '****ERROR HALT****'
     1698                            *
1 C00   00:35 JUN 21,'83                                                                          PAGE   17
A    1700                            *
     1701                            *************************************************************
     1702                            *  ROUTINE TO REFRESH FIRST PAGE OF MEMORY WITH XPSD'S
     1703                            *************************************************************
     1704                            *
     1705                            *  ENTER WITH RETURN ADDRESS IN #LINK REGISTER
     1706                            *
     1707                            * EXIT WITH XPSD'S IN LOCATIONS X'10' THRU X'1FF'
     1708                            *
     1709                            ************************************************************
     1710                            *
     1711   01 014A0                 JAMXPSDS RES      0
     1712   01 014A0    02200000 A            LCI      0                 SAVE REGISTERS
     1713   01 014A1    2B001475              STM,0    SAVE
     1714   01 014A2    22100010 A            LI,X1    X'10'             SET INDEX FOR FIRST LOCATION
     1715   01 014A3    223001EF A            LI,X3    495               SET LOOP INDEX FOR NO. OF LOOPS *A03
     1716   01 014A4    328014B0              LW,R8    XPSD#10           FIND FIRST XPSD
     1717                            *                                                                   *A03
     1718         01 014A5           JAMX%A   EQU      %                                                 *A03
     1719   01 014A5    35820000 A            STW,R8   0,X1              JAM XPSD INTO POSSIBLE INT. LOC.
     1720   01 014A6    20800004 A            AI,R8    4                 INCREMENT XPSD REF. ADDRESS
     1721   01 014A7    318014B1              CW,R8    XPSD#55                                           *A03
     1722   01 014A8    693014AB              BNE      %+3               BRANCH IF NOT LOCATION X'55'    *A03
     1723                            *                                                                   *A03
     1724   01 014A9    20800004 A            AI,R8    4                 DO NOT ALTER LOCATION X'55'     *A03
     1725   01 014AA    20100001 A            AI,X1    1                                                 *A03
     1726                            *                                                                   *A03
     1727   01 014AB    20100001 A            AI,X1    1                 INCREMENT STORE ADDRESS
     1728   01 014AC    643014A5              BDR,X3   JAMX%A            LOOP IF NOT FINISHED            *A03
     1729   01 014AD    02200000 A            LCI      0                 RESTORE REGISTERS
     1730   01 014AE    2A001475              LM,0     SAVE
     1731   01 014AF    E8000006 A            B        *LINK             EXIT
     1732                            *
     1733   01 014B0    0F0015EE     XPSD#10  GEN,8,24 X'F',PSDS+64      XPSD FOR LOCATION X'10'
     1734                            *
     1735   01 014B1    0F001702     XPSD#55  GEN,8,24 X'F',PSDS+340     XPSD FOR LOCATION X'55'         *A03
     1736                            *
     1737         01 014B2           XPSD#0   EQU      %
     1738         00000007           X        DO       7                 GENERATE XPSDS FOR REG. 0-6
     1739   01 014B2    0F0015AE              GEN,8,24  X'F',PSDS+4*(X-1)
     1740                                     FIN
            01 014B3    0F0015B2
            01 014B4    0F0015B6
            01 014B5    0F0015BA
            01 014B6    0F0015BE
            01 014B7    0F0015C2
            01 014B8    0F0015C6
     1741                            *
     1742                            *
     1743                            *  ONE SECOND DELAY ROUTINE
     1744                            ****************************
     1745                            *
     1746         01 014B9           DELAY1SEC EQU     %
     1747   01 014B9    02200030 A            LCI      3                                                 *A03
     1748   01 014BA    2B701475              STM,R7   SAVE                                              *A03
     1749   01 014BB    2270000A A            LI,R7    10                SET UP 10 COUNTS (100 MS.)      *A03
     1750   01 014BC    B2800055 A   DELAY#A  LW,R8    *X'55'            FIND CURRENT COUNT OF CNTR. 4   *A03
     1751   01 014BD    20800032 A            AI,R8    50                INCREMENT BY 100 MS.            *A03
     1752   01 014BE    B2900055 A            LW,R9    *X'55'                                            *A03
     1753   01 014BF    31900008 A            CW,R9    R8                                                *A03
     1754   01 014C0    692014BE              BG       %-2               DELAY FOR 100 MS.               *A03
     1755   01 014C1    8F0003AB              XPSD,0   *#SAMPLE%         CHECK FOR KEYIN                 *A03
     1756   01 014C2    647014BC              BDR,R7   DELAY#A           LOOP IF NOT 1 SEC.              *A03
     1757   01 014C3    02200030 A            LCI      3                                                 *A03
     1758   01 014C4    2A701475              LM,R7    SAVE                                              *A03
     1759   01 014C5    E8000006 A            B        *LINK             RETURN
     1760                            *
1 C00   00:35 JUN 21,'83                                                                          PAGE   18
A    1762                            *
     1763                            *
     1764                            *      INITIALIZE PROGRAM STATUS DOUBLEWORD TABLE
     1765                            *
     1766                            *  ENTER WITH RETURN ADDRESS IN THE #LINK REGISTER
     1767                            *
     1768                            *  EXIT WITH EACH STORED PSD LOCATION SET TO ZERO
     1769                            *
     1770                            *
     1771   01 014C6    02200000 A   INITPSD  LCI      0                 SAVE REGISTERS
     1772   01 014C7    2B001475              STM,0    SAVE
     1773   01 014C8    22300000 A            LI,X3    0                 SET INDEX TO START OF TABLE
     1774   01 014C9    22400200 A            LI,X4    512               SET COUNTER FOR 512 QUAD WORDS
     1775   01 014CA    22500000 A            LI,X5    0
     1776   01 014CB    22800000 A   INITP#A  LI,R8    0
     1777   01 014CC    22900000 A            LI,R9    0
     1778   01 014CD    158615AE              STD,R8   PSDS,X3           STORE ZEROS IN FIRST DOUBLEWORD
     1779   01 014CE    22801DB0              LI,R8    ACCESS            POINT PSD TO ACCESS TABLE
     1780   01 014CF    30800005 A            AW,R8    X5
     1781   01 014D0    158615B0              STD,R8   PSDS+2,X3
     1782   01 014D1    20300002 A            AI,X3    2                 INCREMENT INDEX TO NEXT QUAD WORD
     1783   01 014D2    20500001 A            AI,X5    1
     1784   01 014D3    644014CB              BDR,X4   INITP#A           LOOP IF NOT THRU
     1785                            *
     1786   01 014D4    2230000A A            LI,X3    10                CLEAR SPECIAL PSDS              *A01
     1787   01 014D5    22800000 A            LI,R8    0                         *                       *A01
     1788   01 014D6    158614E6              STD,R8   TRAP40,X3                 *                       *A01
     1789   01 014D7    203FFFFF A            AI,X3    -1                        *                       *A01
     1790   01 014D8    643014D6              BDR,X3   %-2                       *                       *A01
     1791   01 014D9    15801222              STD,R8   MFTRAP                    *                       *A01
     1792                            *                                                                   *A01
     1793   01 014DA    02200000 A            LCI      0                 RESTORE REGISTERS
     1794   01 014DB    2B001475              STM,0    SAVE
     1795   01 014DC    E8000006 A            B        *LINK             RETURN
     1796                            *
1 C00   00:35 JUN 21,'83                                                                          PAGE   19
A    1798   01 014DD                 MILLSTAN RES      1
     1799   01 014DE    0F0014E6     TRPDET   XPSD,0   TRAP40
     1800   01 014DF    0F0014EA     WDOGTRAP XPSD,0   TRAP46
     1801   01 014E0    0F0014EE     CNTRZERO XPSD,0   CNTR4Z            PERIPHERAL DELAY TIMEOUT
     1802                                     BOUND    8
     1803   01 014E2                 HOLD     RES      4
     1804   01 014E6    00000000 A   TRAP40   DATA     0,0,TSTTR,0
            01 014E7    00000000 A
            01 014E8    00001366
            01 014E9    00000000 A
     1805   01 014EA    00000000 A   TRAP46   DATA     0,0,CLEAR%PDF,0   WDT TRAP OVERRIDE
            01 014EB    00000000 A
            01 014EC    00001110
            01 014ED    00000000 A
     1806   01 014EE    00000000 A   CNTR4Z   DATA     0,0,CHKDEL#E,0    PERPHERAL TIMEOUT               *A01
            01 014EF    00000000 A
            01 014F0    0000113C
            01 014F1    00000000 A
     1807   01 014F2    00000000 A   ONPSD    DATA     0,0,TIMEON,0
            01 014F3    00000000 A
            01 014F4    00001103
            01 014F5    00000000 A
     1808   01 014F6    00000000 A   OFFPSD   DATA     0,0,TIMEOFF,0
            01 014F7    00000000 A
            01 014F8    000010E9
            01 014F9    00000000 A
     1809   01 014FA    00000000 A   SIG5PSD  DATA     0,0,SIGMA5%7,0
            01 014FB    00000000 A
            01 014FC    00001024
            01 014FD    00000000 A
     1810   01 014FE    0F0014F2     ONXPSD   XPSD,0   ONPSD
     1811   01 014FF    0F0014F6              XPSD,0   OFFPSD
     1812                            *
     1813   01 01500    00000064 A   HUNDRED  DATA     100
     1814   01 01501    00000014 A   TWENTY   DATA     20
     1815   01 01502    0000000A A   TEN      DATA     10
     1816   01 01503                 CNTRB    RES      1                 COUNTER 4 PULSE COUNT
     1817   01 01504    00000000 A   MAXDEV   DATA     0
     1818   01 01505                 SCNCNT   RES      1
     1819   01 01506                 SCNCNT1  RES      1
     1820   01 01507    33F01503     MTW      MTW,-1   CNTRB
     1821   01 01508    00000000 A   SIG8%9FLG DATA    0                 SET TO NONZERO IF SIGMA 8 OR 9
     1822   01 01509    0F0014FA     LRATRAP  XPSD,0   SIG5PSD
     1823   01 0150A    00000000 A   TESTNO   DATA     0
     1824   01 0150B    00000000 A   TRFL     DATA     0
     1825   01 0150C    00000000 A   TESTFLAG DATA     0                 SET TO NONZERO AFTER PWR OFF
     1826                            *                                   MSG. AND UNTIL PWR ON INTERRUPT
     1827   01 0150D                 ADDRCODE RES      1
     1828   01 0150E    00000000 A   LOWLIMIT DATA     0                 MIN. # OF TIMER LOOPS ALLOWED
     1829   01 0150F    00000000 A   HILIMIT  DATA     0                 MAX. # OF TIMER LOOPS ALLOWED
     1830   01 01510    F0F0F0F0 A   EBCZEROS DATA     X'F0F0F0F0'
     1831   01 01511    6A6012B8     BAL%HAND BAL,LINK   COMPADDR        INSTR. FOR ACCESS TABLE
     1832                            *
     1833                            *  EXPLANATION MESSAGE POINTERS
     1834                            *
     1835   01 01512    0A009778 A   EXPMSG1  GEN,8,24 10,ABSVAL(BA(GOODMSG1)) EXPL. FOR: TURNOFF
     1836   01 01513    03009978 A   EXPMSG2  GEN,8,24  3,ABSVAL(BA(GOODMSG2))       GOOD
     1837   01 01514    060099D0 A   EXPMSG3  GEN,8,24  6,ABSVAL(BA(GOODMSG3))       DECCNT(GOOD)        *A01
     1838   01 01515    05008CB0 A   EXPMSG4  GEN,8,24  5,ABSVAL(BA(BADMSG1))        DECCNT(BAD)
     1839   01 01516    09008D6C A   EXPMSG5  GEN,8,24  9,ABSVAL(BA(BADMSG2))        INDMSG              *A01
     1840   01 01517    0C008F14 A   EXPMSG6  GEN,8,24  12,ABSVAL(BA(BADMSG3))       WIPEDOUT
     1841   01 01518    090091AC A   EXPMSG7  GEN,8,24  9,ABSVAL(BA(BADMSG4))        TMMSG
     1842   01 01519    0800938C A   EXPMSG8  GEN,8,24  8,ABSVAL(BA(BADMSG5))        TRAP
     1843   01 0151A    07009514 A   EXPMSG9  GEN,8,24  7,ABSVAL(BA(BADMSG6))        ERRDISPLAY
     1844   01 0151B    07009648 A   EXPMSG10 GEN,8,24  7,ABSVAL(BA(BADMSG7))        PDELAY              *A01
     1845                            *
     1846   01 0151C    00000000 A   PASSCNT  DATA     0
     1847   01 0151D    00000000 A   ERRORFLAG DATA    0
     1848   01 0151E    00000000 A   ERR%TOTAL  DATA   0
     1849   01 0151F    00004B00 A   POINT    DATA     X'00004B00'
     1850         01 01520           INDMSG   TEXTCS   'MEMORY FAULT INDICATORS SET =           '
     1851         01 01528           HOLDMF   EQU      INDMSG+8
     1852         01 0152B           DECCNT   TEXTCS   '  IOFF PULSE WIDTH MEASURED AT XX.X MILLISEC.'
     1853         01 01537           TOOBIG   TEXTCS   'IOFF PULSE WIDTH IS TOO LONG TO DISPLAY (>100 MS.)'
     1854         01 01544           TIMERR   TEXTCS   '**** TIMING ERROR'
     1855         01 01549           TURNOFF  TEXTCS   'TURN POWER OFF MOMENTARILY-     MONITOR'
     1856         01 01550           MONITOR  EQU      TURNOFF+7
     1857   01 01553    40D7C3D7 A   EBC%ONE  TEXT     ' PCP PANEL  '
            01 01554    40D7C1D5 A
            01 01555    C5D34040 A
     1858   01 01556    40C1D5E8 A   EBC%ANY  TEXT     ' ANY MONITOR'
            01 01557    40D4D6D5 A
            01 01558    C9E3D6D9 A
     1859   01 01559    E2C1D4C5 A   EBC%SAME TEXT     'SAME MONITOR'
            01 0155A    40D4D6D5 A
            01 0155B    C9E3D6D9 A
     1860   01 0155C    D5C5E7E3 A   EBC%NEXT TEXT     'NEXT MONITOR'
            01 0155D    40D4D6D5 A
            01 0155E    C9E3D6D9 A
     1861         01 0155F           WIPEDOUT TEXTCS   'TEST WORD DESTROYED BY PWR. OFF'
     1862         01 01567           GOOD     TEXTCS   'NO ERROR'
     1863         01 0156A           TESTSTART TEXTCS  'START PASS X'
     1864         01 0156E           TEST#MSG TEXTCS   'TEST # X    CLOCK= XXXX'
     1865                            LONGDEL  TEXTCS   ;                 PERIPHERAL DELAY TOO  LONG
     1866         01 01574            'PERIPHERAL DELAY OVER 100 SECONDS'                                *A01
     1867                            INOPDEV  TEXTCS   ;
     1868         01 0157D            ' DEVICE AT ADDRESS XXXX IS STILL UNRECOGNIZED'                    *A01
     1869   01 01589    D5D6D9D4 A   MARGIN   TEXT     'NORM'
     1870   01 0158A    C6C1E2E3 A            TEXT     'FAST'
     1871   01 0158B    E2D3D6E6 A            TEXT     'SLOW'
     1872                            *
     1873         01 0158C           TMMSG    TEXTCS   'INVALID INTERVAL MEASUREMENT'
     1874                                     BOUND    8
     1875         01 01594           TRAP     TEXTCS   ' TRAP= 40  TCC=X PSW1= XXXXXXXX  PSW2= XXXXXXXX'
     1876                            SIG5%7MSG TEXTCS  ;
     1877         01 015A0            ' WT-22 IN PWR MONITOR MUST BE AT E.O. LEVEL K'
     1878   01 015AC    02404040 A            TEXTC    '  '
     1879                            *
     1880                            *
     1881                            *
1 C00   00:35 JUN 21,'83                                                                          PAGE   20
A    1883                            *
     1884                            *
     1885                            *  THE FOLLOWING TABLE CONTAINS OLD AND NEW PSD'S FOR ANY
     1886                            *    SPURIOUS INTERRUPT BETWEEN LOCATION 0 AND 1FF IN CASE
     1887                            *    EXPECTED INTERRUPT GAVE THE WRONG ADDRESS
     1888                            *  EACH PSD POINTS TO A UNIQUE BAL INSTRUCTION IN THE ACCESS
     1889                            *    TABLE.
     1890                            *
     1891                                     BOUND    8
     1892   01 015AE                 PSDS     RES      2048
     1893                            *
     1894                            *  THE FOLLOWING TABLE CONTAINS A BAL INSTR. TO THE INTERRUPT HANDLER
     1895                            *    (COMPADDR) WHERE ITS RELATIVE POSITION IN THE TABLE
     1896                            *    ALLOWS THE HANDLER TO DETERMINE WHICH ADDRESS WAS PRESENTED
     1897                            *
     1898   01 01DAE    00001DB1     ACCESS%   DATA    ACCESS+1
     1899                            *
     1900                                     BOUND    8
     1901   01 01DB0                 ACCESS   RES      512
     1902                            *
        1*  01 01FB0    00000000 A   HISTORY% DATA     0                 ENTRIES IN THE TABLE            *H02
     1904                            *
     1905                                     BOUND    8
     1906   01 01FB2                 HISTORY  RES      300                                               *A02
     1907                            *
     1908                            *
     1909                            *
     1910                                     BOUND    8
     1911   01 020DE    00001FB1     STP1     DATA     HISTORY-1         HISTORY TABLE STACK POINTER
     1912   01 020DF    812C8000 A            GEN,1,15,1,15  1,300,1,0                                   *A02
     1913   01 020E0    000026F2     STP2     DATA     ENDADDR           PERIPHERAL DEVICE STACK POINTER
     1914   01 020E1    80648000 A            GEN,1,15,1,15  1,100,1,0
     1915                            *
     1916   01 020E2    00001FB1     STP1RESTORE  DATA HISTORY-1
     1917   01 020E3    812C8000 A            GEN,1,15,1,15  1,300,1,0                                   *A02
     1918   01 020E4    000026F2     STP2RESTORE  DATA ENDADDR
     1919   01 020E5    80648000 A            GEN,1,15,1,15  1,100,1,0
     1920                            *
     1921                            *
     1922   01 020E6    000026F2     ENDADDR%  DATA    ENDADDR
     1923                            *
     1924                            *
     1925                            *
     1926                            *
     1927                            *
     1928                            *
     1929                            *
     1930                            *
     1931                            *
     1932                            *
     1933                            *
     1934                            SYNTAX%EXPL TEXTCS      ;
     1935                             'FOR ASR/KSR HIT ''BREAK'' KEY TO SKIP TO NEXT PARAGRAPH OF',;
     1936         01 020E7            ' EXPLANATION,'
     1937                                     TEXTCS   ;
     1938         01 020F9            'FOR LINE PRINTER,TYPE ''>'' FOR SAME FUNCTION.'
     1939         01 02105                    TEXTCS   ' '
     1940                                     TEXTCS   ;
     1941         01 02106            'INPUT PERMITTED ANY TIME CONTROL DEV. IS SELECTED FOR INPUT.'
     1942         01 02116                    TEXTCS   ' '
     1943                                     TEXTCS   ;
     1944         01 02117            'INPUTTING FOLLOWING CHAR. THRU CONTROL DEV. WILL EXECUTE'
     1945                                     TEXTCS   ;
     1946         01 02126            'THE SPECIFIED ACTION.'
     1947         01 0212C                    TEXTCS   ' '
     1948                                     TEXTCS   ;
     1949         01 0212D            '(1) ''@''-ABSOLUTE RECOVERY,DOES SAME AS ''SYSTEM RESET'' FROM PCP'
     1950         01 0213D                    TEXTCS   ' '
     1951                                     TEXTCS   ;
     1952         01 0213E            '(2) ''%''-FORCES PROGRAM TO ''IDLE''STATE,DOES SAME AS MOVING PCP'
     1953                                     TEXTCS   ;
     1954         01 0214E            '     ''COMPUTE'' SWITCH TO ''IDLE''. WHEN OUTPUT TO KSR, IT MEANS'
     1955                                     TEXTCS   ;
     1956         01 0215E            '     THE PROGRAM IS WAITING FOR INPUT.'
     1957         01 02168                    TEXTCS   ' '
     1958                                     TEXTCS   ;
     1959         01 02169            '(3) ''#''-FORCES PROGRAM TO ''RUN'' STATE.  WHEN OUTPUT TO KSR, IT'
     1960                                     TEXTCS   ;
     1961         01 02179            '     MEANS THE PROGRAM HAS RESUMED TESTING.'
     1962         01 02184                    TEXTCS   ' '
     1963                                     TEXTCS   ;
     1964         01 02185            '(4) ''QUEST. MARK''-OUTPUTS A) SYNTAX GLOSS.  (AFTER ''@'' PROMPT),'
     1965                                     TEXTCS   ;
     1966         01 02195            '          OR  B) CURRENT DIRECTIVE EXPL. (AFTER DIRECT. KEYIN),'
     1967                                     TEXTCS   ;
     1968         01 021A5            '          OR  C) ERROR MSG EXPL. (AFTER ERROR MSG OUTPUT)'
     1969         01 021B4                    TEXTCS   ' '
     1970                                     TEXTCS   ;
     1971         01 021B5            '(5) '',''-TERMINATES PARAMETER FIELD'
     1972         01 021BE                    TEXTCS   ' '
     1973                                     TEXTCS   ;
     1974         01 021BF            '(6) ''NEW LINE''-TERMINATES PARAMETER LINE'
     1975         01 021CA           DM%EXPL  TEXTCS   ' '
     1976                                     TEXTCS   ;
     1977         01 021CB            '(7) ''DM>X,Y''-DUMPS MEMORY CONTENTS BETWEEN HEX. LOCATIONS X AND Y.'
     1978         01 021DC           RM%EXPL  TEXTCS   ' '
     1979                                     TEXTCS   ;
     1980         01 021DD            '(8) ''RM>X,Y''-DISPLAYS MEMORY AS IN ''DM'' BUT ALSO ALLOWS'
     1981                                     TEXTCS   ;
     1982         01 021EB             '      REPLACEMENT OF WORD DISPLAYED.'
     1983         01 021F5                    TEXTCS   ' '
     1984         01 021F6           S%EXPL   EQU      %
     1985                                     TEXTCS   ;
     1986         01 021F6            '(9) ''SS''- SENSE SWITCH OPTIONS. DISPLAY TO MSG. DEV. THE'       *A03
     1987                                     TEXTCS   ;
     1988         01 02205            '     CURRENT SENSE SWITCH STATUS AND ALLOW USER TO MODIFY STATUS' *A03
     1989                                     TEXTCS   ;                                                 *A03
     1990         01 02216            '         IF SOFTWARE SWITCHES ARE IN USE (M FIELD = 0)'           *A03
     1991                                     TEXTCS   ;
     1992         01 02224            '      SW1 -   NOT USED IN THIS PROGRAM'
     1993                                     TEXTCS   ;
     1994         01 0222E            '      SW2 -   NOT USED IN THIS PROGRAM'
     1995                                     TEXTCS   ;
     1996         01 02238            '      SW3=1 NO HALT ON ERROR'
     1997                                     TEXTCS   ;
     1998         01 02240            '      SW3=0 HALT ON ERROR'
     1999                                     TEXTCS   ;
     2000         01 02247            '      SW4 -   NOT USED IN THIS PROGRAM'
     2001         01 02251                    TEXTCS   ' '
     2002                            *
     2003         01 02252                    TEXTCS   ' '
     2004                                     TEXTCS   ;
     2005         01 02253            '(10) ''DH''- DISPLAY HISTORY (INTS. AND TRAPS SINCE PWR. OFF)'
     2006         01 02262                    TEXTCS   '  '
     2007                                     TEXTCS   ;
     2008         01 02263            '(11) ''J''- CONTROL PARAMETER LINE (SELECT OUTPUT DEVICE)'
     2009                            *
     2010                            *
     2011                            *
     2012                            *
     2013                            ********************************
     2014                            *  REQUEST CHARACTER DH EXPLANATION
     2015                            *********************************
     2016         01 02271           DH%EXPL  TEXTCS             '  '    UPSPACE ONE LINE
     2017                                     TEXTCS             ;
     2018         01 02272            'DH     CAUSES A DISPLAY OF ALL THE INTERRUPTS AND ALL'
     2019                                     TEXTCS             ;
     2020         01 02280            '       UNEXPECTED TRAPS THAT HAVE OCCURRED SINCE THE LAST ''TURN'
     2021                                     TEXTCS             ;
     2022         01 02290            '       POWER ON'' MESSAGE.'
     2023         01 02297                    TEXTCS             '  '    UPSPACE ON E LINE
     2024                                     TEXTCS             ;
     2025         01 02298            'SEQ#   ORDER IN WHICH INTERRUPTS OCCURRED'
     2026                                     TEXTCS             ;
     2027         01 022A3            'LOCN   LOCATION (HEX) OF XPSD POINTING TO INTERRUPT HANDLER'
     2028         01 022B2                    TEXTCS             '  '    UPSPACE ON E LINE
     2029                            *
     2030                            *
     2031                            *
     2032                            ************************************
     2033                            *
     2034                            *  REQUEST CHARACTER  'J'  EXPLANATION
     2035                            *
     2036                            *
     2037                            ************************************
     2038                            *
     2039         01 022B3           J%EXPL   TEXTCS        '  '
     2040                                     TEXTCS        ;
     2041         01 022B4            '**PARAMETER LINE ''J'' (CONTROL LINE) EXPLANATION'
     2042         01 022C0                    TEXTCS        '  '
     2043         01 022C1                    TEXTCS        '  '
     2044         01 022C2                    TEXTCS        '  '
     2045                                     TEXTCS        ;
     2046         01 022C3            'MSGDEV          MESSAGE OUTPUT DEVICE NUMBER'
     2047                                     TEXTCS        ;
     2048         01 022CF            'COMDEV          COMMUNICATION DEVICE NUMBER'
     2049                                     TEXTCS        ;
     2050         01 022DA            '       NOTE:  THE COMDEV NUMBER IS FOR INFO ONLY (NOT ALTERABLE)'
     2051         01 022EB                    TEXTCS        '  '
     2052                                     TEXTCS        ;
     2053         01 022EC            'CM              CLOCK MARGIN'
     2054         01 022F4                    TEXTCS        '  '
     2055                                     TEXTCS        ;
     2056         01 022F5            '       MARGIN LIMITS:'
     2057                                     TEXTCS        ;
     2058         01 022FB            '       PROGRAM CONTROLLED    USER CONTROLLED (FIXED)'
     2059                                     TEXTCS        ;
     2060         01 02309            '           0 = NORMAL             A = NORMAL'
     2061                                     TEXTCS        ;
     2062         01 02315            '           1 = HIGH               B = HIGH'
     2063                                     TEXTCS        ;
     2064         01 02320            '           2 = LOW                C = LOW'
     2065         01 0232B                    TEXTCS        '  '
     2066                            *
     2067                            *
     2068                            ****************************
     2069                            *
     2070                            *    MESSAGE EXPLANATIONS
     2071                            *
     2072                            *****************************
     2073                            *
     2074         01 0232C           BADMSG1  TEXTCS   '  '
     2075                                     TEXTCS   ;
     2076         01 0232D            '** EXPLANATION - IOFF PW MSG. **'
     2077                                     TEXTCS   ;
     2078         01 02336            '  THIS MESSAGE INDICATES THE TIME BETWEEN THE IOFF AND ST WAS OUT OF'
     2079                                     TEXTCS   ;
     2080         01 02348            '  THE EXPECTED RANGE OF THE POWER MONITOR IOFF PULSE WIDTH '
     2081                                     TEXTCS   ;
     2082         01 02357            '  ADJUSTMENT.'
     2083         01 0235B           BADMSG2  TEXTCS   '  '
     2084                                     TEXTCS   ;
     2085         01 0235C            '**EXPLANATION - MEM. FAULT MSG.**'
     2086                                     TEXTCS   ;
     2087         01 02365            '    A MEMORY FAULT INDICATOR MAY BE SET BY AN ST OCCURRING DURING'
     2088                                     TEXTCS   ;
     2089         01 02376            '    ''TIMEOUT''.  THIS FAULT IS IGNORED IF IT IS FOR ONE OF THE '
     2090                                     TEXTCS   ;
     2091         01 02386            '    THE MEMORY LOCATIONS ACCESSED IN THE TIMEOUT LOOP'
     2092                                     TEXTCS   ;
     2093         01 02394            '    ANY OTHER MEMORY FAULTS ARE TREATED AS FAILURES'
     2094                                     TEXTCS   ;
     2095         01 023A1            '    AND WILL CAUSE THIS MESSAGE TO BE PRINTED.'                   *A01
     2096                                     TEXTCS   ;
     2097         01 023AD            '    ONLY ONE BAD ADDRESS IS DISPLAYED.  THIS IS THE ONE'
     2098                                     TEXTCS   ;
     2099         01 023BB            '    THAT IS CLOSEST TO ADDRESS ZERO.'
     2100                            BADMSG3  TEXTCS   ;
     2101         01 023C5             ' '
     2102                                     TEXTCS   ;
     2103         01 023C6            '** EXPLANATION ** - TEST WORD MSG.'
     2104                                     TEXTCS   ;
     2105         01 023CF            '    A SITUATION CLOSELY RESEMBLING A NORMAL POWER OFF INTERRUPT'
     2106                                     TEXTCS   ;
     2107         01 023DF            '    HANDLING ROUTINE IS CREATED, TO VERIFY MEMORY PRESERVATION.'
     2108                                     TEXTCS   ;
     2109         01 023EF            '    A 4.5 MILLISECOND TIME-OUT OCCURS, FOLLOWED BY A WAIT. ALTHOUGH'
     2110                                     TEXTCS   ;
     2111         01 02400            '    ALL OF MEMORY IS SCANNED FOR MEMORY FAULTS WHEN POWER IS '
     2112                                     TEXTCS   ;
     2113         01 02410            '    RESTORED, A SPECIFIC TEST OF THE WORD FOLLOWING THE WAIT'
     2114                                     TEXTCS   ;
     2115         01 02420            '    INSTRUCTION IS MADE, SINCE THIS IS THE ADDRESS TO WHICH THE'
     2116                                     TEXTCS   ;
     2117         01 02430            '    CPU ADDRESSING LINES WILL BE SET WHEN THE ST OCCURS.  IF THE'
     2118                                     TEXTCS   ;
     2119         01 02441            '    CONTENTS OF THIS WORD ARE OTHER THAN EXPECTED,AND THE PRECEDING'
     2120                                     TEXTCS   ;
     2121         01 02452            '    POWER OFF INTERRUPT WAS TRIGGERED AND TAKEN, THE TEST WORD '
     2122                                     TEXTCS   ;
     2123         01 02462            '    ERROR MESSAGE WILL BE PRINTED.'
     2124         01 0246B           BADMSG4  TEXTCS   '  '
     2125                                     TEXTCS   ;
     2126         01 0246C            '** EXPLANATION - INVALID MSG. **'
     2127                                     TEXTCS   ;
     2128         01 02475            '    THIS MESSAGE IS INCLUDED ONLY TO PRECLUDE THE POSSIBILITY'
     2129                                     TEXTCS   ;
     2130         01 02485            '    OF AN ILLOGICAL CPU OR MEMORY FAILURE CAUSING AN ERRONEOUS'
     2131                                     TEXTCS   ;
     2132         01 02495            '    INTERVAL LENGTH INDICATION.  IN ESSENCE IT MEANS THAT AT NO TWO'
     2133                                     TEXTCS   ;
     2134         01 024A6            '    WORD OF THE THREE-WORD INTERVAL TIMER WERE WITHIN ONE COUNT'
     2135                                     TEXTCS   ;
     2136         01 024B6            '    OF EACH OTHER WHEN POWER WAS RESTORED.  NO SINGLE MEMORY FAILURE'
     2137                                     TEXTCS   ;
     2138         01 024C8            '    POWER FAILURE, OR POWER INTERRUPT FAILURE SHOULD BE ABLE TO'
     2139                                     TEXTCS   ;
     2140         01 024D8            '    DESTROY MORE THAN ONE OF THE LOCATIONS.'
     2141         01 024E3           BADMSG5  TEXTCS   '  '
     2142                                     TEXTCS   ;
     2143         01 024E4            '** EXPLANATION ---- TRAP MSG. **'
     2144                                     TEXTCS   ;
     2145         01 024ED            '    THIS MESSAGE INDICATES THAT AT SOME POINT AFTER THE'
     2146                                     TEXTCS   ;
     2147         01 024FB            '''TURN PWR OFF'' MESSAGE WAS PRINTED, A TRAP CONDITION'
     2148                                     TEXTCS   ;
     2149         01 02509            '    OCCURRED.   NOTHING MAY BE ASSUMED REGARDING THE LOCATION'
     2150                                     TEXTCS   ;
     2151         01 02519            '    FROM WHICH THE TRAP OCCURRED, BUT IF EITHER POWER INTERRUPT'
     2152                                     TEXTCS   ;
     2153         01 02529            '    PRESENTS ADDRESS ''40'' (HEX) AND THIS MESSAGE DOES NOT APPEAR,'
     2154                                     TEXTCS   ;
     2155         01 0253A            '    THE ERROR ADDRESS INDICATION IS VALID.'
     2156         01 02545           BADMSG6  TEXTCS   '  '
     2157                                     TEXTCS   ;
     2158         01 02546            ' ** EXPLANATION ---- SEQUENCE ERROR MESSAGE'
     2159                                     TEXTCS   ;
     2160         01 02551            '    THIS MESSAGE INDICATES AS INTERRUPT SEQUENCE OF SOMETHING'
     2161                                     TEXTCS   ;
     2162         01 02561            '    OTHER THAN A PWR. OFF INT. FOLLOWED BY A PWR. ON INT.'
     2163                                     TEXTCS   ;
     2164         01 02570            '    ALL INTERRUPTS AND UNEXPECTED TRAPS THAT HAVE OCCURRED'
     2165                                     TEXTCS   ;
     2166         01 0257F            '    SINCE THE LAST ''TURN PWR OFF'' MESSAGE ARE AUTOMATICALLY'
     2167                                     TEXTCS   ;
     2168         01 0258E            '    DISPLAYED.'
     2169         01 02592           BADMSG7  TEXTCS   '  '
     2170                                     TEXTCS   ;
     2171         01 02593            ' ** EXPLANATION ----  DELAY MESSAGE **'
     2172                                     TEXTCS   ;
     2173         01 0259D            '    THIS MESSAGE INDICATES SOME PERIPHERAL ADDRESS IS NO LONGER'  *A01
     2174                                     TEXTCS   ;                                                 *A01
     2175         01 025AD            '       RECOGNIZED.    THAT IS:    SOME'                           *A01
     2176                                     TEXTCS   ;
     2177         01 025B7            '    DEVICE TOOK OVER 100 SECONDS TO RECOVER AND RECOVERY HAD TO'
     2178                                     TEXTCS   ;
     2179         01 025C7            '    BE EFFECTED BY A REAL TIME CLOCK INTERRUPT BEFORE ALL DEVICES'
     2180                                     TEXTCS   ;
     2181         01 025D8            '    WERE OPERATONAL.'
     2182                            *
     2183         01 025DE           GOODMSG1 TEXTCS   '  '
     2184                                     TEXTCS   ;
     2185         01 025DF            ' ** EXPLANATION ----  TURN OFF PWR MESSAGE **'
     2186                                     TEXTCS   ;
     2187         01 025EB            '    MOMENTARILY TURN OFF THE CIRCUIT BREAKER ON A PT15 POWER SUPPLY'
     2188                                     TEXTCS   ;
     2189         01 025FC            '    OR THE ''POWER'' SWITCH ON THE CONTROL PANEL,( WHICHEVER IS'
     2190                                     TEXTCS   ;
     2191         01 0260C            '    SPECIFIED).  THIS GENERATES A PWR OFF INTERRUPT FOLLOWED BY A PWR'
     2192                                     TEXTCS   ;
     2193         01 0261E            '    ON INT.   AFTER PWR IS RE-APPLIED, PROGRAM RECOVERY SHOULD BE'
     2194                                     TEXTCS   ;
     2195         01 0262F            '    OBTAINED WITHOUT FURTHER MANUAL ACTION.   IF THE SYSTEM'
     2196                                     TEXTCS   ;
     2197         01 0263E            '    DOES NOT RECOVER, USE THE PCP ''SYSTEM RESET'' SWITCH.'
     2198         01 0264D                    TEXTCS   ' '
     2199                                     TEXTCS   ;
     2200         01 0264E            '***  CONTINUE TESTING UNTIL ALL MONITORS HAVE BEEN CHECKED ***'
     2201                            *
     2202         01 0265E           GOODMSG2 TEXTCS   '  '
     2203                                     TEXTCS   ;
     2204         01 0265F            ' ** EXPLANATION ---- NO ERROR   MESSAGE **'
     2205                                     TEXTCS   ;
     2206         01 0266A            '    SUCCESSFUL COMPLETION OF TEST'
     2207         01 02673                    TEXTCS   ' '
     2208                            *
     2209         01 02674           GOODMSG3 TEXTCS   '  '
     2210                                     TEXTCS   ;
     2211         01 02675            ' ** EXPLANATION ---- IOFF PW   MESSAGE **'
     2212                                     TEXTCS   ;
     2213         01 02680            '    THE MEASURED VALUE OF THE PULSE WIDTH OF THE IOFF SIGNAL'
     2214                                     TEXTCS   ;
     2215         01 02690            '    IS WITHIN THE ADJUSTMENT RANGE.    CHECK THE POWER MONITOR'
     2216                                     TEXTCS   ;
     2217         01 026A0            '    ADJUSTMENT PROCEDURE FOR EXACT VALUES.'
     2218         01 026AB                    TEXTCS   ' '
     2219                            *
     2220                            *
     2221                            *
     2222                            *
     2223                            *
     2224   01 026AC                 PLINEIN  RES      19
     2225                            *
     2226                            *
1 C00   00:35 JUN 21,'83                                                                          PAGE   21
A    2228                            *************
     2229                            *
     2230         00000004           H        COM,8,8,8,8 AF(1),AF(2),AF(3),AF(4)
     2231         00000004           E        COM,8,8,16  AF(1),AF(2),AF(3)
     2232                            L        COM,3,2,3,5,3,1,3,3,3,3,3 AF(1),AF(2),AF(3),AF(4),AF(5),AF(6),;
     2233         00000004                             AF(7),AF(8),AF(9),AF(10),AF(11)
     2234         00000004           P        COM,8,2,6,16 AF(1),AF(2),AF(3),AF(4)
     2235                            **********************
     2236                            *        TABLE 3
     2237                            **********************
     2238                            *        THIS TABLE CONTAINS INFORMATION FOR OPERATOR
     2239                            *        SUPPLIED DIRECTIVES, PROVIDING THE DIRECTIVE NAME,
     2240                            *        THE TYPE (MODE), THE ADDRESS OF THE ROUTINE THAT
     2241                            *        HANDLES THE DIRECTIVE, AND THE EXPLANATION POINTER
     2242                            *
     2243                            *        WORD 1 = DIRECTIVE POINTER
     2244                            * FORMAT  ***********
     2245                            *  H         AF(1)   BYTE 0 = # OF CHARACTERS IN DIR.
     2246                            *            AF(2)   BYTE 1 = FIRST CHAR. (EBCDIC)
     2247                            *            AF(3)   BYTE 2 = SECOND CHAR.
     2248                            *            AF(4)   BYTE 3 = THIRD CHAR.
     2249                            *
     2250                            *
     2251                            *        WORD 2 = DIRECTIVE POINTER (CONT.)
     2252                            * FORMAT  ***********
     2253                            *  E         AF(1)   BYTE 0 = FOURTH CHAR.
     2254                            *            AF(2)   BYTE 1 = FIFTH CHAR.
     2255                            *            AF(3)   BYTES 2&3 = ADDRESS OF
     2256                            *                                       DIRECTIVE ROUTINE
1 C00   00:35 JUN 21,'83                                                                          PAGE   22
A    2258                            *
     2259                            *        WORD 3 = CONTROL WORD
     2260                            * FORMAT  ***********
     2261                            *  L          AF(1) BITS 0-2 = MODE (TYPE)
     2262                            *             AF(2)   BITS 3-4 = # OF SUPP. HDRS.
     2263                            *             AF(3)   BITS 5-7 = # OF IMMED. PARAMETER FIELDS (MODE 1)
     2264                            *             AF(4)   BITS 8-12= NOT USED
     2265                            *             AF(5)   BITS 13-15 = # OF INDEX CHAR. (MODE 6 ONLY)
     2266                            *             AF(6)   BIT 16 = RUN CONTROL FLAG
     2267                            *             AF(7)   BITS 17-19= VALIDATION FOR PARAMS.
     2268                            *                     IN PARAM. LINE (MODE 2 OR MODE 6)
     2269                            *             AF(8)   BITS 20-22= VAL. FOR IMMED. PARAM. (MODE 1)
     2270                            *                    OR INDEX PARAM #1 (MODE 6)
     2271                            *             AF(9)   BITS 23-25= VAL. FOR PARAM#2
     2272                            *             AF(10)  BITS 26-28= VAL. FOR PARAM#3
     2273                            *             AF(11)  BITS 29-31= VAL. FOR PARAM #4
     2274                            *
     2275                            *                 MODE:  0= UNCONDITIONAL (&)
     2276                            *                        1= IMMEDIATE     (DM)
     2277                            *                        2= PARAMETER LINE (S)
     2278                            *                        6= INDEXED PARAMETER LINE
     2279                            *                 VALIDATION = POSITION IN VALTYPE TABLE
     2280                            *                            0 = HEX, 1 = BIN, AND
     2281                            *                            4-7 = DESIGNER DEFINED
     2282                            *
     2283                            *         WORD 4 = EXPLANATION POINTER
     2284                            * FORMAT  ***********
     2285                            *  P          AF(1)   BYTE 0 = TOTAL # OF TEXTC'S
     2286                            *             AF(2)  BITS 8,9 = 0 IF TEXT NOT COMPRESSED
     2287                            *                             = 1 IF TEXT IS COMPRESSED
     2288                            *                             = 2,3   ** NOT ALLOWED **
     2289                            *             AF(3)  BITS 10-15 = # OF TEXTC'S RELATED ONLY
     2290                            *                   TO CHARACTER #1 (REQUEST)
     2291                            *             AF(4)   BYTES 2-3= BYTE ADDRESS OF FIRST EXPL.
     2292                            *
1 C00   00:35 JUN 21,'83                                                                          PAGE   23
A    2294         01 026BF           TABLE3            EQU      %
     2295                            *
     2296   01 026BF    017C0000 A            H        1,'@'
     2297   01 026C0    00000000 A            E        0
     2298   01 026C1    00000000 A            L        0
     2299   01 026C2    2B00839C A            P        43,,0,ABSVAL(BA(SYNTAX%EXPL))                     *A03
     2300                            *
     2301   01 026C3    02C4D400 A            H        2,'D','M'
     2302   01 026C4    00000000 A            E        0
     2303   01 026C5    00000000 A            L        0
     2304   01 026C6    02018728 A            P        2,,1,ABSVAL(BA(DM%EXPL))
     2305                            *
     2306   01 026C7    02D9D400 A            H        2,'R','M'
     2307   01 026C8    00000000 A            E        0
     2308   01 026C9    00000000 A            L        0
     2309   01 026CA    02018770 A            P        2,,1,ABSVAL(BA(RM%EXPL))
     2310                            *
     2311   01 026CB    01D10000 A            H        1,'J'
     2312   01 026CC    00001419 N            E        ,,PARAMJ
     2313   01 026CD    40000000 A            L        2
     2314   01 026CE    11008ACC A            P        17,,,ABSVAL(BA(J%EXPL))
     2315                            *
     2316   01 026CF    02C4C800 A            H        2,'D','H'
     2317   01 026D0    0000138E N            E        ,,DISP%HIST
     2318   01 026D1    00000000 A            L        0
     2319   01 026D2    090189C4 A            P        9,,1,ABSVAL(BA(DH%EXPL))
     2320                            *
     2321   01 026D3    01E20000 A            H        1,'S'
     2322   01 026D4    00000000 A            E        0
     2323   01 026D5    00000000 A            L        0
     2324   01 026D6    0A0087D8 A            P        10,,,ABSVAL(BA(S%EXPL))                           *A03
     2325                            *
     2326                            *
     2327   01 026D7    FF000000 A   TABLE3END DATA  X'FF000000'
     2328                            *
     2329                            ************
     2330                            *
     2331                            *
     2332                            *
     2333   01 026D8    22100000 A            LI,X1    0                 DATA CHAINING LOADER ENTRANCE
     2334   01 026D9    35101004     GUIDE    STW,X1   #LOADER@          SAVE LOADER ADDRESS
     2335   01 026DA    EA6003C8              BAL,X6   *#GUIDE%
        1*  01 026DB    01209B74 A            GEN,8,3,21 1,1,ABSVAL(BA(PROGTEXT))                        *H02
        2*  01 026DC    00000000 A            DATA       0                                               *H02

        4*        01 026DD           PROGTEXT TEXTCS   TITLE                                             *H02

     2388         01 026D9           ENDADDR  END      GUIDE             GO TO GUIDE
            01 026EA    FFFF8000 A
            01 026EB    00C00000 A
            01 026EC    000000FF A
            01 026ED    7FFFFFFF A
            01 026EE    FF100000 A
            01 026EF    00008001 A
            01 026F0    00000300 A
            01 026F1    0001FFFF A

  CONTROL SECTION SUMMARY: 01 026F2   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   00:35 JUN 21,'83                                                                          PAGE   24
A  ACCESS           530/STW     1779/LI      1898/DATA    1901-RES
   ACCESS%         1257/SW      1898-DATA
   ADDRCODE        1423/B*      1827-RES
   BADADDMSG       1074/STW     1076/STW     1077/#TYPE   1084-TEXTCS  1186/STW     1188/STW     1190/#TYPE
   BADADDR         1048/STW     1072/#HTECON 1082-DATA
   BADMSG1         1838/GEN     2074-TEXTCS
   BADMSG2         1839/GEN     2083-TEXTCS
   BADMSG3         1840/GEN     2100-TEXTCS
   BADMSG4         1841/GEN     2124-TEXTCS
   BADMSG5         1842/GEN     2141-TEXTCS
   BADMSG6         1843/GEN     2156-TEXTCS
   BADMSG7         1844/GEN     2169-TEXTCS
   BADTIME          949/B        968-BAL
   BAL%HAND         529/LW      1831-BAL
   CA               322/SET      381-EQU
   CATALOG          0.1-EQU      0.3/EQU
   CB               322/SET      382-EQU
   CC               322/SET      383-EQU
   CD               322/SET      384-EQU
   CE               322/SET      385-EQU
   CHKDEL#E         889-EQU     1806/DATA
   CHKDEL#1         832/DATA     862-TIO      867/BDR
   CHKDEL#2         870/BCR      881-EQU
   CHKDELAY         831/DATA     846-EQU
   CHKERR#X        1378/BEZ     1384-LCI
   CHKERRORS       1203/BAL     1357-LCI
   CHKERR1         1363-LW
   CHKERR2         1361/BG      1388-EQU
   CHKTESTWORD      955/BNE      966/B       1024-LW
   CHKTRAP         1369/BE      1377-LW      1402/B
   CLEAR%PDF        824-EQU     1805/DATA
   CLKMAR          1220/LW      1234/STB     1674-EQU
   CLRPWRON         822/LPSD     828/LPSD     831-DATA
   CMPRTMS          887/B        896/BLZ      911-LW
   CNTRB            622/STW      624/CW       626/CW       639/CW       676/STW      789/CW       805/CW
       817/CW       855/STW     1012/STW     1816-RES     1820/MTW
   CNTRZERO         852/LW      1801-XPSD
   CNTR4Z          1801/XPSD    1806-DATA
   COMPADDR        1253-EQU     1831/BAL
   COMPADDX        1281/BNE     1291-LCI
   COMPADD1        1265-LW
   COMPADD2        1259/BNE     1264/BNE     1269-EQU
   COMPADD3        1274/BG      1279-EQU
   COMPTIME         643-LW
   C0               348/GEN      371-EQU
   C1               322/SET      372-EQU
   C2               322/SET      373-EQU
   C3               322/SET      374-EQU
   C4               322/SET      375-EQU
   C5               322/SET      376-EQU
   C6               322/SET      377-EQU
   C7               322/SET      378-EQU
   C8               322/SET      379-EQU
   C9               322/SET      380-EQU
   DCA              463-ORG
   DECCNT           957/STW      960/#TYPE    969/STW      972/#TYPE   1852-TEXTCS
   DELAY#A         1750-LW      1756/BDR
   DELAY1SEC        964/BAL     1212/BAL     1746-EQU
   DH%EXPL         2016-TEXTCS  2319/P
   DISHIS          1476/BAL     1483-LCI
   DISHIS#A        1491/BNEZ    1495-#PRINT
   DISHIS#B        1498-BAL
   DISHIS#C        1498/BAL     1501-STW     1583/BDR
   DISHIS#CA       1531/BNE     1540/BE      1556-EQU
   DISHIS#CB       1535/B       1552/B       1562-LW
   DISHIS#C1       1533/BNEZ    1546/BNE     1551/BNE     1558/BNE     1567-EQU
   DISHIS#C2       1565/B       1581-#PRINT
   DISHIS#X        1493/B       1499/B       1582/BCR     1586-LCI
   DISP%HIST       1476-BAL     2317/E
   DISPLAY         1362/BL      1365/BNE     1371-#TYPE   1390/BNEZ    1392/BG      1395/BNE     1398/BNE
      1401/BNE
   DISPLAYMF       1120/BCS     1128-EQU
   DISPLAYMF#1     1150/BCR     1193-EQU
   DISTIME          956-BAL
   DM%EXPL         1975-TEXTCS  2304/P
   E               2231-COM
   EBC%ANY          716/LM      1858-TEXT
   EBC%NEXT         722/LM      1860-TEXT
   EBC%ONE          526/LM      1857-TEXT
   EBC%SAME         725/LM      1859-TEXT
   EBCBLNKS        1067/LB      1562/LW      1658/LW      1677-TEXT
   EBCZEROS        1830-DATA
   ENDADDR          536/LRA      745/STW      763/STW      861/LW      1913/DATA    1918/DATA    1922/DATA
      2388-END
   ENDADDR%        1922-DATA
   ERR%TOTAL        533/STW     1686/MTW     1848-DATA
   ERRDISPLAY      1372/#TYPE   1407-TEXTCS
   ERRMSG          1578/LM      1597-TEXT
   ERRORFLAG        696/STW     1204/MTW     1687/MTW     1847-DATA
   EXPMSG1          729/LW      1835-GEN
   EXPMSG10         904/LW      1844-GEN
   EXPMSG2         1206/LW      1836-GEN
   EXPMSG3          958/LW      1837-GEN
   EXPMSG4          970/LW       985/LW      1838-GEN
   EXPMSG5         1069/LW      1147/LW      1839-GEN
   EXPMSG6         1027/LI      1840-GEN
   EXPMSG7          932/LW      1841-GEN
   EXPMSG8         1379/LW      1842-GEN
   EXPMSG9         1374/LW      1843-GEN
   FAULTBCK        1055/XPSD    1057-DATA
   FIRST%TIME       540/LW       549/MTW      567-DATA
   F0               322/SET      387-EQU
   F1               322/SET      388-EQU
   GDTIME           918/BLE      923/BLE      928/BLE      942-LI
   GDTIME1          947-#TYPE    952/BG
   GDTIME2          945/BGE      951-CW
   GO               565/DATA     579-LI
   GOOD            1208/#TYPE   1862-TEXTCS
   GOODMSG1        1835/GEN     2183-TEXTCS
   GOODMSG2        1836/GEN     2202-TEXTCS
   GOODMSG3        1837/GEN     2209-TEXTCS
   GO1              596-MTW     1222/BL      1238/B       1245/B
   GO2              663-EQU     1219/BE      1244/BE
   GUIDE           2334-STW     2388/END
   GUIDE55          552/STW      569-DATA     643/LW       885/LW       893/LW
   H               2230-COM
   HALT%RET        1685/STW     1694/B*      1696-DATA
   HALTMSG         1691/#TYPE   1697-TEXTCS
   HALTONERR        906/BAL      935/BAL      973/BAL      987/BAL     1030/BAL     1078/BAL     1191/BAL
      1195/BAL     1376/BAL     1382/BAL     1685-STW
   HILIMIT          659/STW      951/CW      1829-DATA
   HISDISPLAY      1506/STH     1511/STW     1516/STW     1518/STW     1524/STW     1526/STW     1563/STW
      1564/STW     1579/STM     1581/#PRINT  1594-TEXTCS
   HISHDR          1495/#PRINT  1593-TEXTCS
   HISTORY         1363/LW      1367/LW      1393/LW      1396/LW      1399/LW      1507/LW      1513/LW
      1521/LW      1906-RES     1911/DATA    1916/DATA
   HISTORY%         692/STW     1297/MTW     1298/LW      1359/LW      1490/LW    1902.1-DATA
   HOLD             616/STD      617/STD      635/AWM      636/LW       637/AWM      638/STW      645/LW
       669/STD      670/STD      785/AWM      786/LW       787/AWM      788/STW      801/AWM      802/LW
       803/AWM      804/STW      813/AWM      814/LW       815/AWM      816/STW      911/LW       912/LW
       913/LW       914/SW       915/LW       919/SW       920/LW       924/SW       925/LW       938/STW
      1014/LMS     1015/STW     1017/LMS     1018/STW     1020/LMS     1021/STW     1803-RES
   HOLDMF          1065/STB     1068/STB     1851-EQU
   HTD              956/BAL      968/BAL      978-DW
   HTD#1            983/BL       990-LI
   HUNDRED          991/DW      1813-DATA
   INDMSG          1071/#TYPE   1145/STB     1146/#TYPE   1850-TEXTCS  1851/EQU
   INITIAL          474/DATA     518-STW
   INITIAL#A        563/DATA     565-DATA
   INITP#A         1776-LI      1784/BDR
   INITPSD          667/BAL     1771-LCI
   INOPDEV          901/STW      902/#TYPE   1867-TEXTCS
   INTSAVE         1255/STM     1276/LM      1292/LM      1349-RES
   IOINT           1313/LD      1331/DATA    1332-EQU     1341/LPSD    1344/XPSD
   J%EXPL          2039-TEXTCS  2314/P
   JAMX%A          1718-EQU     1728/BDR
   JAMXPSDS         666/BAL     1711-RES
   L               2232-COM
   LINK             501-EQU      518/STW      532/BAL      558/LW       562/BAL      598/LW       666/BAL
       667/BAL      681/LW       772/BAL      811/BAL      825/LW       826/AI       827/RIO*     871/LW
       872/AI       873/RIO*     900/LW       906/BAL      935/BAL      956/BAL      964/BAL      968/BAL
       973/BAL      987/BAL     1005/B*      1030/BAL     1034/RD      1073/LW      1075/LW      1078/BAL
      1130/LW      1132/LW      1135/LW      1137/LW      1140/LW      1142/LW      1185/LW      1187/LW
      1191/BAL     1195/BAL     1203/BAL     1212/BAL     1256/LW      1270/BAL     1300/BG*     1322/B*
      1339/BAL     1376/BAL     1382/BAL     1386/B*      1439/LW      1440/LW      1445/LW      1446/LW
      1450/LW      1455/BAL     1476/BAL     1498/BAL     1501/STW     1505/LW      1510/LW      1515/LW
      1517/LW      1523/LW      1525/LW      1588/B*      1606/LC      1616/TIO*    1626/CI      1628/CI
      1634/CI      1636/LW      1647/LB      1648/LB      1649/STB     1650/BDR     1652/STW     1663/XW
      1685/STW     1689/BCS*    1690/BAL     1693/BAL     1731/B*      1759/B*      1795/B*      1831/BAL
   LINKSAVE         518/STW      562/BAL*    1501/STW     1584/B*      1590-RES
   LOG%I#1         1304/B       1309/B       1314/B       1319-STD
   LOGINTERRUPT     772/BAL      811/BAL     1270/BAL     1296-EQU     1339/BAL     1455/BAL
   LONGDEL          897/#TYPE   1865-TEXTCS
   LOWLIMIT         656/STW      781/LW       944/CW      1828-DATA
   LRATRAP          534/LW      1822-XPSD
   MARGIN           688/LW      1869-TEXT
   MARGINMASK      1229/AND     1640/AND     1676-DATA
   MAXDEV           583/STW     1817-DATA
   MFIND            697/STW     1040/STW     1046/LW      1050/STW     1058/LW      1081-DATA
   MFSCNBCK        1053/B       1057/DATA    1058-LW
   MFTRAP          1098/XPSD    1101-DATA    1791/STD
   MILLSTAN         651/STW      657/LW       812/LW       978/DW      1798-RES
   MONITOR          527/STM      726/STM     1856-EQU
   MP%MSG          1131/STW     1133/STW     1136/STW     1138/STW     1141/STW     1143/STW     1189/#TYPE
      1194/#TYPE   1199-TEXTCS
   MTW              606/LW       850/LW      1820-MTW
   NOENTRY         1492/#PRINT  1592-TEXTCS
   NOTAVAIL        1618/#TYPE   1681-TEXTCS
   NTPINT          1427/DATA    1434-STW
   OFFMSG           709/BE       713/BNE      717/B        720/BNE      723/B        728-#TYPE    755/B
   OFFPSD          1308/LD      1808-DATA    1811/XPSD
   ONPSD           1303/LD      1807-DATA    1810/XPSD
   ONXPSD           673/LD      1810-XPSD
   P               2234-COM
   PARAM%RET       1611/STW     1619/MTW     1630/MTW     1663/XW      1664/B*      1679-DATA
   PARAMERR        1659/STD     1660/#TYPE   1678-TEXTCS
   PARAMJ          1606-LC      2312/E
   PARAMJ#A        1614/BE      1617/BCR     1625-#ETHCON
   PARAMJ#E        1632/B       1658-LW
   PARAMJ#F        1620/B       1661-LCI
   PARAMJ#W        1627/BLE     1638-EQU
   PARAMJ#X        1623/BEZ     1647-LB
   PARAMJ#Y        1607/BEZ     1653-LCI
   PASSCNT          520/STW      596/MTW      597/#HTECON  706/LW      1846-DATA
   PCPPSD          1425/XPSD    1427-DATA
   PCPTST          1414/LW      1425-XPSD
   PHASE2          1060/BE      1079/B       1094/BGE     1192/B       1196/B       1203-BAL
   PHASE2A         1205/BNEZ    1209/BCR     1215-LW
   PHASE2B         1216/BEZ     1242-LW
   PL#JHDR          544/STB     1604/DATA    1671-TEXTCS
   PLINE#J          545/STB      559/STW      560/STW     1604/DATA    1613/CW      1647/LB      1649/STB
      1651/#ETHCON 1673-TEXTCS  1674/EQU
   PLINEIN          476/DATA    1612/LW      1625/#ETHCON 1631/LW      1648/LB      2224-RES
   POINT           1000/OR      1849-DATA
   PROGTEXT      2335.1/GEN   2335.4-TEXTCS
   PSDS            1262/LS      1318/LD      1733/GEN     1735/GEN     1739/GEN     1778/STD     1781/STD
      1892-RES
   RA               506-EQU      620/LI       626/CW       636/LW       638/STW      646/LI       647/DW
       648/CI       747/TIO      765/TIO      773/LI       774/STW      786/LW       788/STW      802/LW
       804/STW      814/LW       816/STW      913/LW       924/SW       926/LAW      992/LW       999/AI
      1002/SLS     1004/OR      1043/RD      1044/CI      1049/OR      1050/STW     1117/LMS
      1139/#HTECON 1155/LW      1298/LW      1299/CI      1303/LD      1308/LD      1313/LD      1318/LD
      1319/STD     1487/LI      1568/CI      1570/CI      1636/LW      1641/CI      1643/AI      1644/SLS
      1645/OR      1646/WD
   RB               507-EQU      621/LI       639/CW       643/LW       644/STW      645/LW       650/AI
       651/STW      655/MI       656/STW      657/LW       658/MI       659/STW      675/LI       676/STW
       748/AND      749/CB       766/AND      767/CB       775/LW       776/CI       778/LW       781/LW
       789/CW       790/BDR      805/CW       806/BDR      812/LW       817/CW       818/BDR     1046/LW
      1049/OR
   RC               508-EQU     1413/STCF    1449/#HTECON
   RD               509-EQU      825/LW       861/LW       862/TIO*     899/#HTECON
   RE               510-EQU     1286/LMS     1287/STW     1289/LMS
   READMEM         1091-LW      1126/BIR
   READMF          1107/LPSD    1109-DATA
   RECOVER          835-LI      1266/BNEZ
   RECOVERY%FLAG    836/STW      840-DATA     895/LW
   RESET            701/STM      743-EQU      750/BE       764/BDR      768/BE
   RESTORE          678/LM       801-AWM     1009/LM
   RESTORE1         592/AND      594/STW      700/LM       761-EQU
   RET%PSD         1277/LPSD    1293/LPSD    1319/STD     1348-DATA
   RF               511-EQU      615/LI       616/STD      617/STD      618/STW      619/LI       635/AWM
       637/AWM      668/LI       669/STD      670/STD      671/STW      672/LI       785/AWM      787/AWM
       801/AWM      803/AWM     1508/STW     1530/CI      1550/CI      1557/CI
   RM%EXPL         1978-TEXTCS  2309/P
   S%EXPL          1984-EQU     2324/P
   S:INT            196/ERROR    243/SET      252/SET      262/ERROR    266/SET      268/SET      277/DO
   S:PT             0.3/EQU
   S:RAD            266/SET      317/ERROR
   S:UFV            317/ERROR
   SAVE            1484/STM     1587/LM      1609/STM     1654/LM      1662/LM      1680-RES     1713/STM
      1730/LM      1748/STM     1758/LM      1772/STM     1794/STM
   SAVE#1          1358/STM     1385/LM      1404-RES
   SCANXPSD        1035/LW      1055-XPSD
   SCNCNT           604/STW      705/STW      744/LW       762/LW      1818-RES
   SCNCNT1          605/STW      704/LW      1819-RES
   SIGMA5%7         540-LW      1809/DATA
   SIGMA5UP         538/B        541/BGZ      549-MTW
   SIG5%7MSG        542/#PRINT  1876-TEXTCS
   SIG5PSD         1809-DATA    1822/XPSD
   SIG8%9FLG        537/MTW      580/LW       683/MTW     1032/MTW     1215/LW      1622/LW      1821-DATA
   STP1             694/STD     1321/PSM     1911-DATA
   STP1RESTORE      693/LD      1916-DATA
   STP2             523/STD      588/PSW      593/AW       603/SW       857/LS      1913-DATA
   STP2RESTORE      522/LD      1918-DATA
   SYNTAX%EXPL     1934-TEXTCS  2299/P
   TABLE3           475/DATA    2294-EQU
   TABLE3END       2327-DATA
   TEN              995/DW      1815-DATA
   TEST%IO          584-TIO      589/BDR
   TEST#MSG         547/STB      682/STB      689/STW      690/#TYPE   1864-TEXTCS
   TESTFLAG         738/STW      821/STW     1265/LW      1825-DATA
   TESTMF           940/B        974/B        988/B       1007-EQU
   TESTMF2         1022/B       1026/BE      1031-EQU
   TESTMF3         1041-LW      1052/BDR
   TESTNO           521/STW      618/STW      665/MTW      680/#HTECON  707/LW       775/LW       953/LW
      1217/LW      1242/LW      1823-DATA
   TESTSTART        599/STB      600/#TYPE   1863-TEXTCS
   TESTWORD         774/STW      797-DATA    1024/LW
   TEST9MF         1033/BNEZ    1086-EQU
   TEXTCS           397-CNAME
   TIMEOFF          771-LI      1808/DATA
   TIMEON           810-LI      1807/DATA
   TIMEON1          822-LPSD     838/B
   TIMEOUT          679/STM      779/B        782/B        785-AWM      790/BDR      806/BDR     1010/STM
   TIMERLOOP        628/B        635-AWM      640/BE
   TIMERR           947/#TYPE   1854-TEXTCS
   TITLE            0.3-EQU   2335.4/TEXTCS
   TMMSG            934/#TYPE   1873-TEXTCS
   TOOBIG           984/#TYPE   1853-TEXTCS
   TRAP            1381/#TYPE   1441/STD     1447/STD     1452/STB     1875-TEXTCS
   TRAPERR         1574/LM      1595-TEXT
   TRAP40          1437/LW      1443/LW      1788/STD     1799/XPSD    1804-DATA
   TRAP46          1800/XPSD    1805-DATA
   TRFL             698/STW     1377/LW      1436/STW     1824-DATA
   TRPDET           702/LW      1799-XPSD
   TSTTR           1413-STCF    1804/DATA
   TURNOFF          728/#TYPE   1855-TEXTCS  1856/EQU
   TWENTY           647/DW      1814-DATA
   TYPE2FLG        1486/STW     1534/MTW     1537/MTW     1596-DATA
   UEFLAG           671/STW     1337/STW     1346-DATA    1389/MTW     1532/MTW
   UEMASK          1334/AND     1345-DATA
   UPSPACE          731/#TYPE    898/#TYPE    903/#TYPE    948/#TYPE    962/#TYPE   1210/#TYPE   1371/#TYPE
      1373/#TYPE   1406-TEXTCS  1489/#TYPE   1496/#PRINT
   VALBIT           448-DATA
   VALDEX           452-EQU
   VALTYPE          456-EQU
   VERSION          0.2-EQU      0.3/EQU
   WDOGTRAP         847/LW      1800-XPSD
   WIPEDOUT        1029/#TYPE   1861-TEXTCS
   X               1738-DO      1739/GEN
   XPSD#0           737/LM      1737-EQU
   XPSD#10         1716/LW      1733-GEN
   XPSD#55         1721/CW      1735-GEN
   XPSD4C          1089/LW      1098-XPSD
   XPSD5C           733/LW      1344-XPSD
   #ARMUSER%        433-EQU
   #DIAG@           477-GEN
   #DISUSER%        337/BAL*     431-EQU      532/BAL*    1693/BAL*
   #ENUSER%         367/BAL*     432-EQU     1690/BAL*
   #ERRTEXT%        439-EQU      730/STW*     905/STW*     933/STW*     959/STW*     971/STW*     986/STW*
      1028/STW*    1070/STW*    1148/STW*    1207/STW*    1375/STW*    1380/STW*
   #ETH%            276/BAL*     429-EQU
   #ETHCON          240-CNAME
   #FIDLE%          435-EQU     1478/B*      1656/B*
   #GUIDE%          434-EQU     2335/BAL*
   #HDRFLG          416-EQU
   #HTE%            203/BAL*     430-EQU
   #HTECON          193-CNAME
   #INITIAL@        474-DATA
   #LOADER@         478-DATA    2334/STW
   #MAXMEM          420-EQU    600.1/LW      1093/CW
   #OUTBUF@         479-DATA
   #PLINEIN@        476-DATA
   #PRINT           301-CNAME
   #PRINTER%        301/CNAME    438-EQU
   #PRTADDR         418-EQU      556/STW     1652/STW
   #RUNADDR%        436-EQU     1692/XPSD*
   #SAMPLE%         421-EQU      732/XPSD*    751/XPSD*   1755/XPSD*
   #SENSE           415-EQU     1688/LC
   #TABLE1A         414-ORG
   #TABLE1B         428-ORG
   #TABLE2@         473-ORG
   #TABLE3@         475-DATA
   #TESTINIT        419-EQU      561/LC
   #TOADDR          417-EQU      555/LW       557/#HTECON  747/TIO*     765/TIO*     869/TIO*     871/LW
      1333/TIO*
   #TTYBC           422-EQU      749/CB       767/CB
   #TYPE            302-CNAME
   #TYPER%          302/CNAME    437-EQU
