1 C00   20:22 JUN 20,'83                                                                          PAGE    1
A      1                  9999.999  +END
1 C00   20:22 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE    3
A       1                                     PCC
        2         TEXT               CATALOG  EQU      C'0616'
        3         TEXT               VERSION  EQU      C'H02'
        4                            TITLE    EQU      S:PT('TELEFILE ETHERNET CONTROLLER DIAGNOSTIC',;
        5         TEXT                                 ' 960-',CATALOG,'-',VERSION)

        7                                     SYSTEM   SIG9P

        9         00000000           R0       EQU      0
       10         00000001           R1       EQU      1
       11         00000002           R2       EQU      2
       12         00000003           R3       EQU      3
       13         00000004           R4       EQU      4
       14         00000005           R5       EQU      5
       15         00000006           R6       EQU      6
       16         00000007           R7       EQU      7
       17         00000008           R8       EQU      8
       18         00000009           R9       EQU      9
       19         0000000A           R10      EQU      X'A'
       20         0000000B           R11      EQU      X'B'
       21         0000000C           R12      EQU      X'C'
       22         0000000D           R13      EQU      X'D'
       23         0000000E           R14      EQU      X'E'
       24         0000000F           R15      EQU      X'F'
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE    4
A      27                            * PROCEDURES FOR GENERATING I/O ERROR BIT TEST PATTERNS

       29         00000000           :TSEQ    CNAME
       30                                     PROC
       31                                     DISP     %
       32                            LF       EQU      %
       33                                     LIST     0
       34                                     LOCAL    INDEX
       35                            INDEX    DO       NUM(AF)
       36                                     DO       TCOR(AF(INDEX),S:LIST)
       37                                     :TSEQDEF AF(INDEX)
       38                                     ELSE
       39                                     DATA,1   AF(INDEX)
       40                                     FIN
       41                                     FIN
       42                                     DATA,1   0
       43                                     BOUND    4
       44                                     LIST     1
       45                                     PEND

       47         00000000           :TSEQDEF CNAME
       48                                     PROC
       49                                     LOCAL    INDEX
       50                            INDEX    DO       NUM(AF)
       51                                     DATA,1   AF(INDEX)
       52                                     FIN
       53                                     PEND

       55         00000000           :TSEQEQU CNAME
       56                                     PROC
       57                            LF(1)    EQU      AF(1)
       58                            LF(2)    EQU      AF(1)+1
       59                            LF(3)    EQU      AF(1)+2
       60                            LF(4)    EQU      AF(1)+3
       61                            LF(5)    EQU      AF(1)+4
       62                            LF(6)    EQU      AF(1)+5
       63                            LF(7)    EQU      AF(1)+6
       64                            LF(8)    EQU      AF(1)+7
       65                                     PEND

       67                            *  PROCEDURE  FOR GENERATING DICTIONARY DOUBLE WORDS

       69         00000000           :PROCDIC CNAME
       70                                     PROC
       71                            LF       GEN,32,3,3,3,3,4,16  AF(1),ABSVAL(AF(2)),ABSVAL(AF(3)),;
       72                                                          ABSVAL(AF(4)),ABSVAL(AF(5)),;
       73                                                          ABSVAL(AF(6)),ABSVAL(AF(7))
       74                                     PEND

       76                            * PROCEDURE TO DEFINE VARIOUS HIGHER-LEVEL INSTRUCTIONS
       77                                     OPEN     ERROR

       79         00000000           ENTER    CNAME                      PUSH R15 INTO
       80                                     PROC                        THE LINK STACK
       81                            LF       PSW,R15  DPM:STK
       82                                     PEND

       84         00000000           EXIT     CNAME                      POP LINK STACK
       85                                     PROC                        AND EXIT VIA R15
       86                            LF       PLW,R15  DPM:STK
       87                                     B        *R15
       88                                     PEND

       90         00000000           DELAY    CNAME                      DELAY SPECIFIED
       91                                     PROC                        PERIOD IN MILLISECONDS
       92                                     DO       NUM(AF)=1
       93                            LF       LI,R14   AF(1)
       94                                     BAL,R15  GENDELAY
       95                                     ELSE
       96                            LF       BAL,R15  GENDELAY
       97                                     FIN
       98                                     PEND
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE    5
A     100         00000000           ERROR    CNAME                      ISSUE ERROR IDENTIFIER
      101                                     PROC                        SAMPLE THE SWITCHES
      102                            LF       BAL,R15  GENERROR            AND PROCEED ACCORDINGLY
      103                                     DATA     AF(1)
      104                                     DO       NUM(AF)>1
      105                                     B        AF(2)
      106                                     ELSE
      107                                     B        %+1
      108                                     FIN
      109                                     PEND

      111         00000000           RESET    CNAME                      CLEAR NM-10 AND CONTROLLER
      112                                     PROC                        VIA HIO WITH OPTIONAL WAIT
      113                                     DO       NUM(AF)=1           FOR RETURN TO THE
      114                            LF       LI,R14   AF(1)                READY CONDITION (THIS
      115                                     ELSE                           DEFAULTS TO 650 MS)
      116                            LF       LI,R14   650
      117                                     FIN
      118                                     BAL,R15  GENRESET
      119                                     PEND

      121         00000000           FAIL     CNAME                      TEST CURRENT I/O STATUS
      122                                     PROC                        ISSUE APPROPRIATE ERROR
      123                            LF       LI,R0    BA(AF(1))           MESSAGE, LOOP EXIT SPECIFIED
      124                                     BAL,R15  GENFAIL
      125                                     DATA     AF(2)
      126                                     DO       NUM(AF)>2
      127                                     B        AF(3)
      128                                     ELSE
      129                                     B        %+1
      130                                     FIN
      131                                     PEND

      133         00000000           IOXEQ    CNAME                      EXECUTE CHANNEL PROGRAM
      134                                     PROC                        (WAIT FOR COMPLETION)
      135                            LF       EQU      %
      136                                     DO       NUM(AF)=1
      137                                     LI,R0    DA(AF(1))
      138                                     FIN
      139                                     BAL,R15  GENIOXEQ
      140                                     PEND

      142         01 00F23           TSTAIO   CNAME    GENAIO            VERIFY AIO STATUS
      143         01 00F59           ARS      CNAME    GENARS            VERIFY ACTUAL RECORD SIZE
      144         01 00F3D           FRM      CNAME    GENFRM            VERIFY FRAME HEADER
      145                                     PROC
      146                            LF       LI,R0    AF(1)
      147                                     BAL,R15  NAME
      148                                     DO       NUM(AF)>1
      149                                     B        %+4
      150                                     DO       NUM(AF)>2
      151                                     ERROR    AF(2),AF(3)
      152                                     ELSE
      153                                     ERROR    AF(2)
      154                                     FIN
      155                                     FIN
      156                                     PEND

      158         01 00F3D           REFRM    CNAME    GENFRM            VERIFY FRAME HEADER
      159                                     PROC                        FOR RANDOM EXERCISER
      160                            LF       LW,R0    AF(1)
      161                                     BAL,R15  NAME
      162                                     DO       NUM(AF)>1
      163                                     B        %+4
      164                                     DO       NUM(AF)>2
      165                                     ERROR    AF(2),AF(3)
      166                                     ELSE
      167                                     ERROR    AF(2)
      168                                     FIN
      169                                     FIN
      170                                     PEND

      172         00000000           LOOP     CNAME                      EXECUTE A CHANNEL
      173                                     PROC                        PROGRAM PAIR
      174                            LF       EQU      %                   (USUALLY WRITE/READ)
      175                                     DO       NUM(AF)=2
      176                                     LI,R4    DA(AF(1))
      177                                     LI,R5    DA(AF(2))
      178                                     FIN
      179                                     BAL,R15  GENLOOP
      180                                     PEND

      182         00000000           IOTST    CNAME                      EXECUTE CHANNEL PROGRAM
      183                                     PROC                        AND TEST RESULTS AT
      184                                     LOCAL    LOOP                COMPLETION
      185                            LOOP     EQU      %
      186                            LF       EQU      %
      187                                     IOXEQ    AF(1)
      188                                     FAIL     AF(2),AF(3),LOOP
      189                                     PEND

      191         01 016E6           :SIO     CNAME    :SIO              LINK TO ROUTINE TO
      192         01 016F0           :TIO     CNAME    :TIO               ISSUE CORRESPONDING
      193         01 01702           :TDV     CNAME    :TDV                I/O INSTRUCTION AND
      194         01 016F9           :HIO     CNAME    :HIO                 CHECK FOR NON-ZERO BITS
      195         01 0170B           :AIO     CNAME    :AIO                  (ASSUMED ERRORS)
      196                                     PROC
      197                                     LOCAL    LABEL
      198                            LABEL    EQU      %
      199                            LF       LW,R14   L(AF(1))
      200                                     BAL,R15  NAME
      201                                     DO       NUM(AF)>1
      202                                     B        %+4
      203                                     DO       NUM(AF)>2
      204                                     ERROR    AF(2),AF(3)
      205                                     ELSE
      206                                     ERROR    AF(2),LABEL
      207                                     FIN
      208                                     FIN
      209                                     PEND

      211         00000000           IOCD     CNAME                      COMPOSE CHANNEL PROGRAM
      212                                     PROC
      213                                     BOUND    8
      214                            LF       GEN,8,24 AF(1),AF(2)
      215                                     GEN,8,24 AF(3),AF(4)
      216                                     PEND

      218                            * VARIOUS PROCEDURES FOR DEFINING AND POPULATING TABLES

      220         00000000           SUBTST   CNAME
      221                                     PROC
      222                                     DO       NUM(AF)=1
      223                            LF       GEN,8,24 -1,AF(1)
      224                                     ELSE
      225                            LF       GEN,8,24 AF(2),AF(1)
      226                                     FIN
      227                                     PEND

      229         00000000           TABLE    CNAME
      230                                     PROC
      231                                     BOUND    4
      232                                     DISP     %
      233                                     LIST     0
      234                            LF       DATA,1   0
      235                            INDEX    DO       255
      236                                     DATA,1   AF(INDEX)
      237                                     FIN
      238                                     LIST     1
      239                                     PEND
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE    6
A     241                            *  MONITOR LINK TABLE
      242                            *  ------------------
      243                            *                     THIS TABLE IS LOADED BY THE MONITOR FOR THE
      244                            *  PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE TEST PROGRAM AND
      245                            *  THE MONITOR (DPM).

      247   01 00200                          ORG      X'200'
            01 00200
      248         01 00200           :MLT     EQU      %                 ABSOLUTE RECOVERY LOCATION
      249         01 00201           :P1      EQU      :MLT+1            DIRECTIVE PARAMETER 1
      250         01 00202           :P2      EQU      :MLT+2            DIRECTIVE PARAMETER 2
      251         01 00203           :P3      EQU      :MLT+3            DIRECTIVE PARAMETER 3
      252         01 00204           :P4      EQU      :MLT+4            DIRECTIVE PARAMETER 4
      253         01 0020F           :DUMP    EQU      :MLT+15           ADDR OF MEMORY DUMP ROUTINE
      254         01 00211           :PSW     EQU      :MLT+17           PARAMETER STATUS WORD
      255         01 00213           :BCDC    EQU      :MLT+19           ADDR OF BCD FORMAT CONVERSION
      256         01 00214           :MONITOR EQU      :MLT+20           DIRECTIVE RETURN ADDRESS
      257         01 00216           :BINC    EQU      :MLT+22           ADDR OF BINARY FORMAT CONVERSION
      258         01 00217           :DECC    EQU      :MLT+23           ADDR OF DECIMAL FORMAT CONVERSION
      259         01 00218           :HEXC    EQU      :MLT+24           ADDR OF HEXADEC FORMAT CONVERSION
      260         01 00219           :1BYTEIN EQU      :MLT+25           ADDR OF 1 BYTE INPUT ROUTINE
      261         01 0021A           :CURBCNT EQU      :MLT+26           CURRENT BYTE COUNT
      262         01 0021B           :ERROR   EQU      :MLT+27           ADDR OF ERROR REPORT ROUTINE
      263         01 0021C           :PRINT   EQU      :MLT+28           ADDR OF MESSAGE PRINT ROUTINE
      264         01 0021D           :SENSE   EQU      :MLT+29           ADDR OF SENSE SWITCH 1,3 TESTS
      265         01 0021E           :MONWAIT EQU      :MLT+30           MONITOR WAIT
      266         01 0021F           :MRECOVR EQU      :MLT+31           BRANCH TO ABSOLUTE RECOVERY LOCATION
      267         01 00220           :MSGOUT  EQU      :MLT+32           MSG OUTPUT DEVICE, TYPE AND ADDR
      268         01 00221           :MSGIN   EQU      :MLT+33           MSG INPUT DEVICE, TYPE AND ADDR
      269         01 00222           :LOADIN  EQU      :MLT+34           ADDR OF INITIAL LOADING DEVICE
      270         01 00223           :ERRORC  EQU      :MLT+35           PROGRAM ERROR COUNT
      271         01 00224           :KSRADR  EQU      :MLT+36           KEYBOARD/PRINTER DEVICE ADDR
      272         01 00225           :MACHINE EQU      :MLT+37           MACHINE TYPE CODE
      273         01 00226           :RELBIAS EQU      :MLT+38           RELOCATION BIAS
      274         01 00227           :RLOADER EQU      :MLT+39           ADDR OF RESIDENT LOADER
      275         01 00228           :DTLFLAG EQU      :MLT+40           DIAGNOSTIC TAPE LIBRARY FLAG
      276         01 00229           :PREPORT EQU      :MLT+41           ADDR OF PARAMETER ERROR REPORT
      277         01 0022A           :QSENSE  EQU      :MLT+42           QUICK SENSE ROUTINE
      278         01 0022B           :WAIT    EQU      :MLT+43           WAIT SUBROUTINE
      279         01 0022C           :DICINDX EQU      :MLT+44           ADDR OF DICTIONARY INDEX
      280         01 0022D           :DICILEN EQU      :MLT+45           LENGTH OF DICTIONARY INDEX
      281         01 0022E           :MEMSIZE EQU      :MLT+46           SYSTEM MEMORY SIZE
      282         01 0022F           :MEMLAST EQU      :MLT+47           LAST USABLE MEMORY LOCATION
      283         01 00230           :MONIOBF EQU      :MLT+48           ADDR OF MONITOR IO BUFFER
      284         01 00231           :MONPBF  EQU      :MLT+49           ADDR OF ABSOLUTE RECOVERY ROUTINE
      285         01 00237           :REMOTE  EQU      :MLT+55           REMOTE CONNECT ROUTINE
      286         01 00238           :CLOCK3  EQU      :MLT+56           10HZ CLOCK (FROM COUNTER 3)
      287         01 00240           :MLTEND  EQU      :MLT+64           LWA MONITOR LINK TABLE
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE    7
A     289                            *  PROGRAM INTERFACE TABLE
      290                            *  -----------------------
      291                            *                          THIS TABLE IS LOADED BY THE TEST PROGRAM FOR
      292                            *  THE PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE MONITOR (DPM)
      293                            *  AND THE USER PROGRAM.

      295   01 00300                          ORG      X'300'
            01 00300
      296   01 00300    00000339     :PIT0    DATA     :CATALOG          ADDR OF CATALOG NUMBER
      297   01 00301    0000033A     :PIT1    DATA     :PROGID           ADDR OF PROGRAM ID MESSAGE
      298   01 00302    00000320     :PIT2    DATA     :DIC              ADDR OF DIRECTIVE DICTIONARY
      299   01 00303    0000000C A   :PIT3    DATA     :DICEND-:DIC      LENGTH OF DIRECTIVE DICTIONARY
      300   01 00304    00000599     :PIT4    DATA     :RECOVER          ADDR OF ABSOLUTE RECOVERY ROUTINE
      301   01 00305    0000032C     :PIT5    DATA     :CDT              ADDR OF CONTEXT DESCRIPTION TABLE
      302   01 00306    00000002 A   :PIT6    DATA     :CDTEND-:CDT      LENGTH OF CONTEXT DESCRIPTION TABLE
      303   01 00307    00000000 A   :PIT7    DATA     0                 CURRENT DIRECTIVE (TEXT)
      304   01 00308    00000494     :PIT8    DATA     :INITIAL          ADDR OF INITIALIZER ROUTINE
      305   01 00309    00000000 A   :PIT9    DATA     0                 LAST MODEL NUMBER STORED IN CDB
      306   01 0030A    00000000 A   :PIT10   DATA     0                 PARAMETER NUMBER IN ERROR
      307   01 0030B    00000000 A   :PIT11   DATA     0                 ADDR OF MSG TO BE PRINTED AFTER INIT
      308   01 0030C    00000000 A   :PIT12   DATA     0                 RUNFLAG, RUN PROG IF FLAG = -1
      309   01 0030D    00000000 A   :PIT13   DATA     0
      310   01 0030E    00000000 A   :PIT14   DATA     0
      311   01 0030F    00000000 A   :PIT15   DATA     0                 USER TRAP AND FAULT HANDLER
      312   01 00310    00000000 A   :PIT16   DATA     0                 LINK FOR INITIAL, ITHLDR

      314         0000000F                    DO       :PIT0+32-%
      315   01 00311    00000000 A            DATA     0
      316                                     FIN
            01 00312    00000000 A
            01 00313    00000000 A
            01 00314    00000000 A
            01 00315    00000000 A
            01 00316    00000000 A
            01 00317    00000000 A
            01 00318    00000000 A
            01 00319    00000000 A
            01 0031A    00000000 A
            01 0031B    00000000 A
            01 0031C    00000000 A
            01 0031D    00000000 A
            01 0031E    00000000 A
            01 0031F    00000000 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE    8
A     318                            *  DIRECTIVE DICTIONARY
      319                            *  --------------------
      320                            *                        THIS TABLE SUPPLIES THE MONITOR WITH
      321                            *  INFORMATION ABOUT EACH DIRECTIVE AVAILABLE IN THE TEST PROGRAM.
      322                            *  EACH DICTIONARY ENTRY CONSISTS OF 2 WORDS (64 BITS) WHICH ARE
      323                            *  DEFINED AS FOLLOWS:
      324                            *
      325                            *  BITS 00 THRU 31  4 BYTE MNEMONIC IDENTIFIER IN EBCDIC
      326                            *  BITS 32 THRU 34  TYPE OF CONVERSION FOR PARAMETER 1.
      327                            *  BITS 35 THRU 37  TYPE OF CONVERSION FOR PARAMETER 2.
      328                            *  BITS 38 THRU 40  TYPE OF CONVERSION FOR PARAMETER 3.
      329                            *  BITS 41 THRU 43  TYPE OF CONVERSION FOR PARAMETER 4.
      330                            *  BITS 44 THRU 47  NOT ASSIGNED; MUST BE EQUAL TO ZERO
      331                            *  BITS 48 THRU 63  ROUTINE ADDRESS
      332                            *
      333                            *  TYPE OF PARAMETER CONVERSION
      334                            *
      335                            *  000   HEXADECIMAL
      336                            *  001   DECIMAL
      337                            *  002   ALPHANUMERIC

      339   01 00320                          ORG      X'320'
            01 00320
      340         01 00320           :DIC     EQU      %
      341   01 00320    E3E2E3F0 A            :PROCDIC 'TST0',1,1,0,7,0,TEST     COMPREHENSIVE TEST
                        247003A2
      342   01 00322    E3E2E3F1 A            :PROCDIC 'TST1',1,1,7,7,0,TEST     FUNCTIONAL TEST
                        27F003A2
      343   01 00324    E3E2E3F2 A            :PROCDIC 'TST2',1,1,0,7,0,TEST     RANDOM EXERCISER
                        247003A2
      344   01 00326    E3E2E3F3 A            :PROCDIC 'TST3',1,1,1,1,0,TEST     UTILITY TESTS
                        249003A2
      345   01 00328    E3E2E3F4 A            :PROCDIC 'TST4',0,0,0,0,0,TEST     RANDOM FUNCTIONAL
                        000003A2
      346   01 0032A    D3C9D4E3 A            :PROCDIC 'LIMT',1,1,0,0,0,TEST     LIMIT (PARAMETER SET)
                        240003A2
      347         01 0032C           :DICEND  EQU      %
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE    9
A     349                            *  CONTEXT DESCRIPTION TABLE
      350                            *  -------------------------
      351                            *                             THE CONTEXT DESCRIPTION TABLE ALLOWS
      352                            *  THE MONITOR TO PASS-ON ENVIRONMENTAL INFORMATION FROM THE 'SYST'
      353                            *  DIRECTIVE TO THE TEST PROGRAM. NORMALLY ONLY ONE ENTRY WILL BE
      354                            *  REQUIRED. EACH CONTEXT DESCRIPTION TABLE ENTRY CONSISTS OF 2 WORDS
      355                            *  (64 BITS) WHICH ARE DEFINED AS FOLLOWS:
      356                            *
      357                            *  BITS 00 THRU 08  LENGTH OF CONTEXT DATA BLOCK
      358                            *  BITS 09 THRU 27  NOT ASSIGNED; MUST BE EQUAL TO ZERO
      359                            *  BITS 28 THRU 31  NUMBER OF DEVICE MODEL NUMBERS
      360                            *  BITS 32 THRU 61  ADDR OF CONTEXT DATA BLOCK

      362         01 0032C           :CDT     EQU      :DICEND
      363   01 0032C    05000001 N            GEN,9,19,4,32 :CDBEND-:CDB,0,:CDBMEND-:CDBM,:CDB
                        0000032F
      364         01 0032E           :CDTEND  EQU      %

      366                            *  CONTEXT DATA BLOCK
      367                            *  ------------------
      368                            *                      THE CONTEXT DATA BLOCK CONTAINS ENVIRONMENTAL
      369                            *  INFORMATION FOR THE TEST PROGRAM.

      371         01 0032E           :CDBM    EQU      %
      372   01 0032E    00001DB6 A            DATA     7606
      373         01 0032F           :CDBMEND EQU      %

      375         01 0032F           :CDB     EQU      %
      376   01 0032F    0003     A            DATA,2   3,0               PARAMETER COUNT, MODEL NUMBER
            01 0032F 2  0000     A
      377   01 00330    00000000 A            DATA     0                  SELECTION MASK

      379   01 00331    00000000 A            DATA     0                 DEVICE ADDRESS OF FIRST UNIT
      380   01 00332    00000000 A            DATA     0                 DEVICE ADDRESS OF SECOND UNIT
      381   01 00333    00000000 A            DATA     0                 DEVICE ADDRESS OF THIRD UNIT
      382   01 00334    00000000 A            DATA     0                 DEVICE ADDRESS OF FOURTH UNIT
      383   01 00335    00000000 A            DATA     0                 DEVICE ADDRESS OF FIFTH UNIT
      384   01 00336    00000000 A            DATA     0                 DEVICE ADDRESS OF SIXTH UNIT
      385   01 00337    00000000 A            DATA     0                 DEVICE ADDRESS OF SEVENTH UNIT
      386   01 00338    00000000 A            DATA     0                 DEVICE ADDRESS OF EIGHTH UNIT

      388         01 00339           :CDBEND  EQU      %
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   10
A     390         01 00339           :CATALOG EQU      %                 PROGRAM CATALOG NUMBER
      391   01 00339    00000000 A            DATA     0

      393         01 0033A           :PROGID  EQU      %                 PROGRAM IDENTIFICATION MESSAGE
      394   01 0033A    34E3C5D3 A            TEXTC    TITLE
            01 0033B    C5C6C9D3 A
            01 0033C    C540C5E3 A
            01 0033D    C8C5D9D5 A
            01 0033E    C5E340C3 A
            01 0033F    D6D5E3D9 A
            01 00340    D6D3D3C5 A
            01 00341    D940C4C9 A
            01 00342    C1C7D5D6 A
            01 00343    E2E3C9C3 A
            01 00344    40F9F6F0 A
            01 00345    60F0F6F1 A
            01 00346    F660C8F0 A
            01 00347    F2404040 A
      395   01 00348    01404040 A   :MSGBEG  TEXTC    ' '
      396   01 00349    19E2E8E2 A            TEXTC    'SYST,MODEL,MASK,P1,...,P8'
            01 0034A    E36BD4D6 A
            01 0034B    C4C5D36B A
            01 0034C    D4C1E2D2 A
            01 0034D    6BD7F16B A
            01 0034E    4B4B4B6B A
            01 0034F    D7F84040 A
      397   01 00350    01404040 A            TEXTC    ' '
      398   01 00351    0B40D4D6 A            TEXTC    ' MODEL=7606'
            01 00352    C4C5D37E A
            01 00353    F7F6F0F6 A
      399   01 00354    01404040 A            TEXTC    ' '
      400   01 00355    2340D4C1 A            TEXTC    ' MASK = MODIFIES SUBTEST SELECTION:'
            01 00356    E2D2407E A
            01 00357    40D4D6C4 A
            01 00358    C9C6C9C5 A
            01 00359    E240E2E4 A
            01 0035A    C2E3C5E2 A
            01 0035B    E340E2C5 A
            01 0035C    D3C5C3E3 A
            01 0035D    C9D6D57A A
      401   01 0035E    01404040 A            TEXTC    ' '
      402   01 0035F    1940F07E A            TEXTC    ' 0=> EXECUTE ALL SUBTESTS'
            01 00360    6E40C5E7 A
            01 00361    C5C3E4E3 A
            01 00362    C540C1D3 A
            01 00363    D340E2E4 A
            01 00364    C2E3C5E2 A
            01 00365    E3E24040 A
      403   01 00366    2F40F17E A            TEXTC    ' 1=> SKIP SUBTESTS REQUIRING NETWORK CONNECTION'
            01 00367    6E40E2D2 A
            01 00368    C9D740E2 A
            01 00369    E4C2E3C5 A
            01 0036A    E2E3E240 A
            01 0036B    D9C5D8E4 A
            01 0036C    C9D9C9D5 A
            01 0036D    C740D5C5 A
            01 0036E    E3E6D6D9 A
            01 0036F    D240C3D6 A
            01 00370    D5D5C5C3 A
            01 00371    E3C9D6D5 A
      404   01 00372    01404040 A            TEXTC    ' '
      405   01 00373    1D40D7F1 A            TEXTC    ' P1,...,P8 = DEVICE ADDRESSES'
            01 00374    6B4B4B4B A
            01 00375    6BD7F840 A
            01 00376    7E40C4C5 A
            01 00377    E5C9C3C5 A
            01 00378    40C1C4C4 A
            01 00379    D9C5E2E2 A
            01 0037A    C5E24040 A
      406   01 0037B    01404040 A   :MSGEND  TEXTC    ' '
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   11
A     408                            *  SUBTEST LINK TABLE

      410         01 0037B           :T1SLT   EQU      %-1
      411   01 0037C    FF0005A9              SUBTST   :T1ST01
      412   01 0037D    FF0005CB              SUBTST   :T1ST02
      413   01 0037E    FF0005EB              SUBTST   :T1ST03
      414   01 0037F    FF000611              SUBTST   :T1ST04
      415   01 00380    FF000634              SUBTST   :T1ST05
      416   01 00381    FF000661              SUBTST   :T1ST06
      417   01 00382    FF00068D              SUBTST   :T1ST07
      418   01 00383    FF0006A7              SUBTST   :T1ST08
      419   01 00384    FF0006C5              SUBTST   :T1ST09
      420   01 00385    FF0006E6              SUBTST   :T1ST10
      421   01 00386    FF0006FC              SUBTST   :T1ST11
      422   01 00387    FF000714              SUBTST   :T1ST12
      423   01 00388    FF00072C              SUBTST   :T1ST13
      424   01 00389    FF000786              SUBTST   :T1ST14
      425   01 0038A    FF0007C0              SUBTST   :T1ST15
      426   01 0038B    FF0007E6              SUBTST   :T1ST16
      427   01 0038C    FF00081A              SUBTST   :T1ST17
      428   01 0038D    FF00086D              SUBTST   :T1ST18
      429   01 0038E    FF0008A2              SUBTST   :T1ST19
      430   01 0038F    FF0008BE              SUBTST   :T1ST20
      431   01 00390    FF000911              SUBTST   :T1ST21
      432   01 00391    FF000938              SUBTST   :T1ST22
      433   01 00392    FF000954              SUBTST   :T1ST23
      434   01 00393    FF0009CE              SUBTST   :T1ST24
      435   01 00394    FF000B09              SUBTST   :T1ST25
      436   01 00395    FF000B0F              SUBTST   :T1ST26
      437   01 00396    FF000B15              SUBTST   :T1ST27
      438   01 00397    FF000B1B              SUBTST   :T1ST28
      439   01 00398    FF000B21              SUBTST   :T1ST29
      440   01 00399    FF000B29              SUBTST   :T1ST30
      441   01 0039A    01000BA0              SUBTST   :T1ST31,X'01'     SKIP IF NO NETWORK
      442   01 0039B    01000BB8              SUBTST   :T1ST32,X'01'     SKIP IF NO NETWORK
      443   01 0039C    FF000C19              SUBTST   :T1ST33
      444   01 0039D    00000CB0              SUBTST   :T1ST34,X'00'     SKIP UNLESS EXPLICIT
      445   01 0039E    01000D9B              SUBTST   :T1ST35,X'01'     SKIP IF NO NETWORK
      446   01 0039F    00000E0B              SUBTST   :T1ST36,X'00'     SKIP UNLESS EXPLICIT
      447   01 003A0    00000E5B              SUBTST   :T1ST37,X'00'     SKIP UNLESS EXPLICIT
      448   01 003A1    00000EC8              SUBTST   :T1ST38,X'00'     SKIP UNLESS EXPLICIT
      449         01 003A2           :T1SLX   EQU      %

      451                            *           *** PRE-EXECUTION CONTROL FOR ALL DIRECTIVES
      452                            *               ----------------------------------------
      453                            *
      454                            * CONTROL IS TRANSFERED HERE BEFORE EXECUTING ANY DIRECTIVE.
      455                            * :RECOVER IS CALLED TO RESET THE STACK AND BASIC REGISTERS.

      457         01 003A2           TEST     EQU      %
      458   01 003A2    6AF00599              BAL,R15  :RECOVER          RESET STACK

      460   01 003A3    32400303              LW,R4    :PIT3             RECOVER POINTER TO DIRECTIVE
      461   01 003A4    2540007F A            SLS,R4   -1                 (SCAN DIRECTORY AS DPM DID)
      462   01 003A5    680003A9              B        MUXEND

      464   01 003A6    92680302     MUXBEG   LD,R6    *:PIT2,R4
      465   01 003A7    31600307              CW,R6    :PIT7             GET DIRECTORY ENTRY, LOOK
      466   01 003A8    683803AB              BE       DIRMUX,R4          FOR LAST DIRECTIVE ENTERED
      467   01 003A9    644003A6     MUXEND   BDR,R4   MUXBEG               MUST MATCH EVENTUALLY
      468   01 003AA    680803AB              B        DIRMUX,R4

      470         01 003AB           DIRMUX   EQU      %
      471   01 003AB    680004AC              B        TST0              GENERAL FUNCTIONAL
      472   01 003AC    680004C0              B        TST1              SPECIFIC FUNCTIONAL
      473   01 003AD    680004FC              B        TST2              RANDOM EXERCISER
      474   01 003AE    6800052C              B        TST3              UTILITIES
      475   01 003AF    68000553              B        TST4              RANDOM FUNCTIONAL
      476   01 003B0    6800055D              B        LIMT              ALTER GLOBAL PARAMETER

      478                            *           ***  INTERRUPT/TRAP HANDLER  ***
      479                            *
      480                            * PARAMETERS REQUIRED:
      481                            * ---------- --------
      482                            *   ITHTEST - TEST BEING PERFORMED (0=TST0,1=TST1,2=TST2,3=TST3,4=TST4)
      483                            *   ITHSUBT - SUBTEST BEING PERFORMED
      484                            *   ITHRST  - RESTART ADDRESS

      486   01 003B1    35F00310     ITHDLR   STW,R15  :PIT16            SAVE RETURN ADDRESS

      488   01 003B2    32C003CB              LW,12    ITHTEST           TEST NUMBER
      489   01 003B3    EAF00218              BAL,15   *:HEXC              CONVERT TO EBCDIC
      490   01 003B4    75F203D6              STB,15   ITHM2+1,1           PLACE IN MSG
      491   01 003B5    EAF0021C              BAL,15   *:PRINT
      492   01 003B6    000003D5              DATA     ITHM2             'TSTX WILL BE RESTARTED'

      494   01 003B7    312003CB              CW,2     ITHTEST           SKIP IF TST2 OR TST3
      495   01 003B8    683003BC              BE       %+4
      496   01 003B9    313003CB              CW,3     ITHTEST
      497   01 003BA    683003BC              BE       %+2
      498   01 003BB    6AF003C3              BAL,R15  ITHDIS              ELSE DISPLAY SUBTEST NUMBER

      500   01 003BC    32C00459              LW,12    :DEVADDR          DEVICE ADDRESS
      501   01 003BD    EAF00218              BAL,15   *:HEXC              CONVERT TO EBCDIC
      502   01 003BE    35F003E0              STW,15   ITHM4+2
      503   01 003BF    EAF0021C              BAL,15   *:PRINT
      504   01 003C0    000003DE              DATA     ITHM4             'DEVICE NO.XXXX'

      506   01 003C1    32F003CD              LW,15    ITHRST            (R15)=RESTART ADDRESS

      508   01 003C2    E8000310              B        *:PIT16           RETURN TO MONITOR

      510   01 003C3    09F00412     ITHDIS   ENTER                      SAVE RETURN ADDRESS

      512   01 003C4    32C003CC              LW,12    ITHSUBT           SUBTEST NUMBER
      513   01 003C5    EAF00217              BAL,15   *:DECC              CONVERT TO EBCDIC
      514   01 003C6    55F203DD              STH,15   ITHM3+2,1           PLACE IN MSG
      515   01 003C7    EAF0021C              BAL,15   *:PRINT
      516   01 003C8    000003DB              DATA     ITHM3             'SUBTEST NO. XX'

      518   01 003C9    08F00412              EXIT
            01 003CA    E800000F A

      520   01 003CB    00000000 A   ITHTEST  DATA     0
      521   01 003CC    00000000 A   ITHSUBT  DATA     0
      522   01 003CD    00000000 A   ITHRST   DATA     0
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   12
A     524   01 003CE    1BE3C9D4 A   TIMEOUT  TEXTC    'TIMEOUT: TST1,XX   LOC:XXXX'
            01 003CF    C5D6E4E3 A
            01 003D0    7A40E3E2 A
            01 003D1    E3F16BE7 A
            01 003D2    E7404040 A
            01 003D3    D3D6C37A A
            01 003D4    E7E7E7E7 A
      525   01 003D5    1740E3E2 A   ITHM2    TEXTC    ' TSTX WILL BE RESTARTED'
            01 003D6    E3E740E6 A
            01 003D7    C9D3D340 A
            01 003D8    C2C540D9 A
            01 003D9    C5E2E3C1 A
            01 003DA    D9E3C5C4 A
      526   01 003DB    0BE2E4C2 A   ITHM3    TEXTC    'SUBTEST: XX'
            01 003DC    E3C5E2E3 A
            01 003DD    7A40E7E7 A
      527   01 003DE    0BC4C5E5 A   ITHM4    TEXTC    'DEVICE XXXX'
            01 003DF    C9C3C540 A
            01 003E0    E7E7E7E7 A
      528   01 003E1    10C1C9D6 A   GAIOMSG0 TEXTC    'AIO STATUS ERROR'
            01 003E2    40E2E3C1 A
            01 003E3    E3E4E240 A
            01 003E4    C5D9D9D6 A
            01 003E5    D9404040 A
      529   01 003E6    12C6D9C1 A   GFRMMSG0 TEXTC    'FRAME HEADER ERROR'
            01 003E7    D4C540C8 A
            01 003E8    C5C1C4C5 A
            01 003E9    D940C5D9 A
            01 003EA    D9D6D940 A
      530   01 003EB    18C1C3E3 A   GARSMSG0 TEXTC    'ACTUAL RECORD SIZE ERROR'
            01 003EC    E4C1D340 A
            01 003ED    D9C5C3D6 A
            01 003EE    D9C440E2 A
            01 003EF    C9E9C540 A
            01 003F0    C5D9D9D6 A
            01 003F1    D9404040 A
      531   01 003F2    0F4040C5 A   GAIOMSG1 TEXTC    '  EXP: 01234567'
            01 003F3    E7D77A40 A
            01 003F4    F0F1F2F3 A
            01 003F5    F4F5F6F7 A
      532   01 003F6    0F4040D6 A   GAIOMSG2 TEXTC    '  OBS: 01234567'
            01 003F7    C2E27A40 A
            01 003F8    F0F1F2F3 A
            01 003F9    F4F5F6F7 A
      533   01 003FA    1BC3C4E6 A   IOCDMSGM TEXTC    'CDW:   01234567    01234567'
            01 003FB    7A404040 A
            01 003FC    F0F1F2F3 A
            01 003FD    F4F5F6F7 A
            01 003FE    40404040 A
            01 003FF    F0F1F2F3 A
            01 00400    F4F5F6F7 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   13
A     535   01 00401    1AD5D6E3 A   INITERR  TEXTC    'NOT ENOUGH SYST PARAMETERS'
            01 00402    40C5D5D6 A
            01 00403    E4C7C840 A
            01 00404    E2E8E2E3 A
            01 00405    40D7C1D9 A
            01 00406    C1D4C5E3 A
            01 00407    C5D9E240 A
      536   01 00408    17C2C5C7 A   TST0RE   TEXTC    'BEGIN RANDOM EXERCISING'
            01 00409    C9D540D9 A
            01 0040A    C1D5C4D6 A
            01 0040B    D440C5E7 A
            01 0040C    C5D9C3C9 A
            01 0040D    E2C9D5C7 A
      537   01 0040E    01404040 A   SPACE    TEXTC    ' '

      539                                     BOUND    8
      540   01 00410    00000413     DPM:BEG  DATA     DPM:RES-1
      541   01 00411    0040     A            DATA,2   64,0
            01 00411 2  0000     A

      543   01 00412                 DPM:STK  RES      2
      544   01 00414                 DPM:RES  RES      64

      546   01 00454    00000000 A   IOVECT   DATA     0,0,:INTSV,0
            01 00455    00000000 A
            01 00456    00001946
            01 00457    00000000 A

      548   01 00458    0F000454     IOXPSD   XPSD,0   IOVECT

      550   01 00459                 :DEVADDR RES      1
      551   01 0045A                 :DEVINDX RES      1
      552   01 0045B                 :DEVNUMB RES      1
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   14
A     555                            *  TEST 1 SEQUENCER (MONITOR)

      557   01 0045C    09F00412     :TIMRETN ENTER                      SAVE RETURN ADDRESS

      559   01 0045D    32400490              LW,R4    :T1CUR            GET CURRENT SUBTEST
      560   01 0045E    33000492              MTW,0    :T1DIR            CHECK TESTING DIRECTION
      561   01 0045F    69200464              BGZ      :TIM0             SKIP IF FORWARD
      562   01 00460    6830047F              BEZ      :TIM2              SKIP IF RANDOM FUNCTIONAL

      564   01 00461    31400491              CW,R4    :T1LAST           TEST FOR BOUNDARY
      565   01 00462    6910048E              BL       :TIM4              STOP IF BELOW
      566   01 00463    68000466              B        :TIM1

      568         01 00464           :TIM0    EQU      %
      569   01 00464    31400491              CW,R4    :T1LAST           TEST FOR BOUNDARY
      570   01 00465    6920048E              BG       :TIM4              STOP IF ABOVE

      572         01 00466           :TIM1    EQU      %
      573   01 00466    3248037B              LW,R4    :T1SLT,R4         FETCH TABLE ENTRY
      574   01 00467    32500004 A            LW,R5    R4                 FOR CURRENT SUBTEST
      575   01 00468    4B501BA6              AND,R5   =X'1FFFF'           ISOLATE ADDRESS
      576   01 00469    35500493              STW,R5   :T1LOC               AND SAVE

      578   01 0046A    72400004 A            LB,R4    R4                ISOLATE MODIFIER BYTE
      579   01 0046B    6830046E              BEZ      :TIM5              (AND SKIP IF EXPLICIT ONLY)
      580   01 0046C    48400330              EOR,R4   :CDB+1              COMPARE WITH USER MASK
      581   01 0046D    69300473              BNEZ     :TIM3                SKIP IF INCOMPLETE MATCH

      583   01 0046E    311003CB     :TIM5    CW,R1    ITHTEST           SKIP IF NOT TST1
      584   01 0046F    69300487              BNE      :TIM

      586   01 00470    32000201              LW,R0    :P1               SKIP IF NOT
      587   01 00471    31000202              CW,R0    :P2                SINGLE EXPLICIT
      588   01 00472    69300487              BNE      :TIM                SUBTEST SELECTION

      590         01 00473           :TIM3    EQU      %
      591   01 00473    225003B1              LI,5     ITHDLR            TRAP HANDLER ADDRESS
      592   01 00474    3550030F              STW,5    :PIT15
      593   01 00475    32500490              LW,5     :T1CUR            CURRENT SUBTEST
      594   01 00476    355003CC              STW,5    ITHSUBT           INTO ITHSUBT
      595   01 00477    225004C0              LI,5     TST1              RESTART ADDRESS
      596   01 00478    355003CD              STW,5    ITHRST            INTO ITHRST PARAMETER

      598   01 00479    EAF0022A              BAL,R15  *:QSENSE          CHECK SENSE SWITCHES
      599   01 0047A    6940047C              BCS,4    %+2                AND SKIP DISPLAY OF SUBTEST
      600   01 0047B    6AF003C3              BAL,R15  ITHDIS              NUMBER IF SSW2 IS SET

      602   01 0047C    22000000 A            LI,R0    0                 CLEAR ERROR KEY
      603   01 0047D    35001251              STW,R0   GENKEY

      605   01 0047E    E8000493              B        *:T1LOC           BRANCH TO NEXT SUBTEST
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   15
A     607         01 0047F           :TIM2    EQU      %
      608   01 0047F    6AF01805              BAL,R15  :RANDOM           GET A RANDOM NUMBER
      609   01 00480    7244000E A            LB,R4    R14,R2             EXTRACT A BYTE
      610   01 00481    31400201              CW,R4    :P1                 AND CONSTRAIN TO FIT
      611   01 00482    6910047F              BL       :TIM2                RANGE OF SUBTESTS
      612   01 00483    31400202              CW,R4    :P2
      613   01 00484    6920047F              BG       :TIM2             (INTRODUCES SOME KIND OF
      614   01 00485    35400490              STW,R4   :T1CUR             RANDOM DELAY, OF COURSE)
      615   01 00486    68000466              B        :TIM1

      617         01 00487           :TIM     EQU      %
      618   01 00487    3260045A              LW,R6    :DEVINDX          RESET DEVICE ADDRESS
      619   01 00488    320C0331              LW,R0    :CDB+2,R6
      620   01 00489    35000459              STW,R0   :DEVADDR

      622   01 0048A    32000492              LW,R0    :T1DIR            GET DIRECTION OF TESTING
      623   01 0048B    66000490              AWM,R0   :T1CUR            AND INCREMENT TO NEXT SUBTEST

      625   01 0048C    33000492              MTW,0    :T1DIR            CONTINUE TESTING
      626   01 0048D    6930045D              BNEZ     :TIMRETN+1         UNLESS RANDOM FUNCTIONAL

      628   01 0048E    08F00412     :TIM4    EXIT                       EXIT IF RANDOM
            01 0048F    E800000F A

      630   01 00490    00000000 A   :T1CUR   DATA     0                 CURRENT SUBTEST LINK TABLE INDEX
      631   01 00491    00000000 A   :T1LAST  DATA     0                 LAST SUBTEST TO BE EXECUTED
      632   01 00492    00000000 A   :T1DIR   DATA     0                 0=> UP TESTING, -1=>DOWN
      633   01 00493    00000000 A   :T1LOC   DATA     0                 ADDRESS OF SUBTEST
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   16
A     635                            *                                   INITIAL ENTRY TO PROGRAM
      636                            *                                   ------------------------------------
      637                            *
      638                            * THIS ROUTINE IS ACCESSED BY THE MONITOR AFTER LOADING THE TEST
      639                            * PROGRAM AND WHENEVER A SYST DIRECTIVE IS EXECUTED BY THE USER.

      641   01 00494    35F00310     :INITIAL STW,R15  :PIT16            SAVE RETURN ADDRESS

      643   01 00495    6AF00237              BAL,R15  :REMOTE           CONNECT REMOTE USERS

      645   01 00496    6AF00599              BAL,R15  :RECOVER          RESTORE THE SYSTEM

      647   01 00497    220FFFFF A            LI,R0    -1                SET RUN FLAG
      648   01 00498    4600030C              XW,R0    :PIT12             AND SKIP IF SET PREVIOUSLY
      649   01 00499    6930049D              BNEZ     CHK1                (NO MESSAGES)

      651   01 0049A    22400348              LI,R4    :MSGBEG           ELSE PREPARE TO DISPLAY
      652   01 0049B    2250037B              LI,R5    :MSGEND            SYST MESSAGES AND COMMENTS
      653   01 0049C    6AF01335              BAL,R15  MSGPRN

      655   01 0049D    B2420305     CHK1     LW,R4    *:PIT5,R1         FETCH NUMBER OF PARAMETERS

      657   01 0049E    D2000004 A            LH,R0    *R4               MUST BE AT LEAST 3
      658   01 0049F    21000003 A            CI,R0    3
      659   01 004A0    681004A4              BGE      CHK0

      661   01 004A1    22000401              LI,R0    INITERR
      662   01 004A2    3500030B              STW,R0   :PIT11

      664   01 004A3    E8000214              B        *:MONITOR         RETURN TO DPM

      666   01 004A4    200FFFFE A   CHK0     AI,R0    -2                COMPUTE NUMBER OF DEVICES
      667   01 004A5    3500045B              STW,R0   :DEVNUMB           AND SAVE

      669   01 004A6    32C01BA7              LW,R12   =X'12B9B0A1'      SET RANDOM NUMBER GENERATOR
      670   01 004A7    32D01BA8              LW,R13   =X'1033C4D7'       TO ARBITRARY BUT FIXED
      671   01 004A8    32E01BA9              LW,R14   =X'544B2FBA'        STARTING POINT
      672   01 004A9    6AF01802              BAL,R15  :RANDOMY

      674   01 004AA    6AF019AD              BAL,R15  :INTCLR           CLEAR ALL EVENTS

      676   01 004AB    E8000310              B        *:PIT16           RETURN TO DPM
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   17
A     678                            *                 *** TST0 - COMPREHENSIVE TEST
      679                            *                      ------------------------
      680                            * THIS DIRECTIVE ALLOWS THE USER TO TEST ALL FUNCTIONS ASSOCIATED WITH
      681                            * THE ETHERNET CONTROLLER AND CONCLUDES THE TEST WITH A RANDOM
      682                            * EXERCISER AFTER A SUCCESSFUL COMPLETION OF THE FUNCTIONAL TESTS.

      684         01 004AC           TST0     EQU      %

      686   01 004AC    22000000 A            LI,R0    0                 INDICATE TEST ZERO
      687   01 004AD    350003CB              STW,R0   ITHTEST           IS NOW IN PROGRESS

      689   01 004AE    32700201              LW,R7    :P1               PICK UP NUMBER
      690   01 004AF    73020211              MTB,0    :PSW,R1            OF RETRIES AND DEFAULT
      691   01 004B0    693004B2              BNEZ     %+2                 TO 100 IF NONE SPECIFIED
      692   01 004B1    22700064 A            LI,R7    100
      693   01 004B2    357011D8              STW,R7   RELIMIT

      695   01 004B3    22700008 A            LI,R7    8
      696   01 004B4    357011D5              STW,R7   REMASK0
      697   01 004B5    357011D6              STW,R7   REMASK1

      699   01 004B6    22700026 A   TST0A    LI,7     :T1SLX-:T1SLT-1
      700   01 004B7    35700491              STW,7    :T1LAST           LAST SUBTEST
      701   01 004B8    35700202              STW,7    :P2
      702   01 004B9    35100490              STW,1    :T1CUR            FIRST SUBTEST
      703   01 004BA    35100201              STW,1    :P1
      704   01 004BB    35100492              STW,R1   :T1DIR            FORWARD TESTING
      705   01 004BC    680004D7              B        TST101            GO TO TST1 MONITOR

      707   01 004BD    EAF0022A     TST002   BAL,R15  *:QSENSE          CONTINUE TESTING
      708   01 004BE    E8800214              BCR,8    *:MONITOR         IF SSW 1 IS SET,
      709   01 004BF    680004B6              B        TST0A             ELSE RETURN TO DPM
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   18
A     711                            *                 *** TST1 - FUNCTIONAL TEST
      712                            *                     ----------------------
      713                            * THIS DIRECTIVE PREFORMS A SYSTEMATIC TEST OF ALL LOGIC FUNCTIONS
      714                            * ASSOCIATED WITH THE ETHERNET CONTROLLER. THE FUNCTIONAL
      715                            * TEST CONSISTS OF A NUMBER OF SUBTESTS WHICH MAY BE SELECTED
      716                            * INDIVIDUALLY OR IN GROUPS.

      718         01 004C0           TST1     EQU      %
      719   01 004C0    32800202              LW,8     :P2               LAST TEST
      720   01 004C1    32700201              LW,7     :P1               FIRST SUBTEST
      721   01 004C2    68200590              BLEZ     LMT10             ERROR IF P1.LE.0

      723   01 004C3    21700026 A            CI,7     :T1SLX-:T1SLT-1   CHECK P1.GT.MAX
      724   01 004C4    69200590              BG       LMT10
      725   01 004C5    21800026 A            CI,8     :T1SLX-:T1SLT-1   CHECK P2.GT.MAX
      726   01 004C6    69200592              BG       LMT20
      727   01 004C7    31700008 A            CW,7     8                 CHECK P1.GT.P2 AND
      728   01 004C8    682004CD              BLE      TST101C           SKIP IF NOT (FORWARD)

      730   01 004C9    21800000 A            CI,8     0
      731   01 004CA    693004CD              BNE      TST101C           SKIP IF P2.NE.0 (BACKWARD)
      732   01 004CB    32800007 A            LW,8     7                 ELSE SINGLE TEST EXECUTE
      733   01 004CC    35800202              STW,8    :P2

      735   01 004CD    35700490     TST101C  STW,7    :T1CUR            FIRST SUBTEST
      736   01 004CE    35800491              STW,8    :T1LAST           LAST SUBTEST
      737   01 004CF    38800007 A            SW,8     7                 FORM DIRECTION FLAG
      738   01 004D0    25800461 A            SAS,8    -31               -1=>BACKWARD TESTING
      739   01 004D1    33000008 A            MTW,0    R8
      740   01 004D2    693004D4              BNEZ     %+2
      741   01 004D3    22800001 A            LI,8     1                 +1=>FOREWARD TESTING
      742   01 004D4    35800492              STW,8    :T1DIR
      743   01 004D5    351003CB              STW,R1   ITHTEST           INDICATE TST1 IN PROGRESS
      744   01 004D6    680004D7              B        TST101

      746         01 004D7           TST101   EQU      %                 (FROM TST0 ALSO)
      747   01 004D7    22600000 A            LI,R6    0                 PREPARE TO SCAN DEVICES
      748   01 004D8    3560045A              STW,R6   :DEVINDX

      750   01 004D9    3260045A     TST102   LW,6     :DEVINDX
      751   01 004DA    327C0331              LW,7     :CDB+2,6
      752   01 004DB    35700459              STW,7    :DEVADDR          ADDRESS OF DEVICE TO BE TESTED

      754   01 004DC    32C00459              LW,12    :DEVADDR          DEVICE
      755   01 004DD    EAF00218              BAL,15   *:HEXC            CONVERT
      756   01 004DE    35F003E0              STW,15   ITHM4+2           STORE

      758   01 004DF    EAF0022A              BAL,R15  *:QSENSE          CHECK CURRENT SWITCHES
      759   01 004E0    694004E3              BCS,4    TST103             AND SKIP DISPLAY IF SSW2=1

      761   01 004E1    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
      762   01 004E2    000003DE              DATA     ITHM4

      764         01 004E3           TST103   EQU      %
      765   01 004E3    32700201              LW,7     :P1               RESTORE FIRST TEST
      766   01 004E4    35700490              STW,7    :T1CUR
      767   01 004E5    6AF0045C              BAL,15   :TIMRETN          GO TO SEQUENCER

      769                            * ALL SUBTESTS DONE ON ONE UNIT

      771   01 004E6    330003CB              MTW,0    ITHTEST           SKIP IF NOT TST0
      772   01 004E7    693004F1              BNEZ     TST104

      774   01 004E8    330011D8              MTW,0    RELIMIT           SKIP IF NOT REQUESTING
      775   01 004E9    683004F1              BEZ      TST104             RANDOM EXERCISER

      777   01 004EA    32000459              LW,R0    :DEVADDR          SETUP FOR EQUAL
      778   01 004EB    350011D0              STW,R0   UNIT0              UNITS (LOOPBACK FORCED)
      779   01 004EC    350011D1              STW,R0   UNIT1

      781   01 004ED    22000008 A            LI,R0    8                 SETUP FOR DEFAULT
      782   01 004EE    350011D5              STW,R0   REMASK0            TRANSMISSIONS PER CYCLE
      783   01 004EF    351011D6              STW,R1   REMASK1

      785   01 004F0    6800106B              B        T2RE              JUMP TO RANDOM EXERCISER

      787   01 004F1    3310045A     TST104   MTW,1    :DEVINDX          INCREMENT UNIT INDEX
      788   01 004F2    3260045A              LW,6     :DEVINDX           AND CONTINUE IF MORE
      789   01 004F3    3160045B              CW,6     :DEVNUMB            UNITS IN THE LIST
      790   01 004F4    691004D9              BL       TST102

      792   01 004F5    32F003CB              LW,R15   ITHTEST           COMPLETE IF TST0
      793   01 004F6    683004BD              BEZ      TST002
      794   01 004F7    21F00004 A            CI,R15   4                 RECYLE IF TST4
      795   01 004F8    683004D7              BE       TST101

      797   01 004F9    EAF0022A              BAL,R15  *:QSENSE          CONTINUE TESTING
      798   01 004FA    E8800214              BCR,8    *:MONITOR         IF SSW 1 IS SET,
      799   01 004FB    680004C0              B        TST1              ELSE RETURN TO DPM
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   19
A     801                            *                 *** TST2 - RANDOM EXERCISER
      802                            *                     -----------------------
      803                            * THIS DIRECTIVE OPERATES AN ETHERNET CONTROLLER WITH A PSEUDO-RANDOM
      804                            * ORDER SEQUENCE, RANDOM DATA PATTERN, I/O AREA, TIME DELAY,
      805                            * AND RECORD SIZE FOR THE PURPOSE OF DETECTING INTERMITTENT
      806                            * FAILURES AND EXERCISING ALL UNITS SPECIFIED IN SYST.

      808         01 004FC           TST2     EQU      %
      809   01 004FC    32700201              LW,7     :P1               NUMBER OF CYCLES
      810   01 004FD    69100590              BLZ      LMT10             P1<0
      811   01 004FE    69200500              BGZ      %+2               P1>0
      812   01 004FF    22700064 A            LI,7     100               NO CYCLES - DEFAULT
      813   01 00500    357011D8              STW,R7   RELIMIT

      815   01 00501    32700202              LW,R7    :P2               GET LIMIT TO DETERMINE
      816   01 00502    21700008 A            CI,R7    8                  LOOPS UNIT0-->UNIT1
      817   01 00503    69200592              BG       LMT20
      818   01 00504    357011D5              STW,R7   REMASK0

      820   01 00505    32700203              LW,R7    :P3               GET LIMIT TO DETERMINE
      821   01 00506    21700008 A            CI,R7    8                  LOOPS UNIT1-->UNIT0
      822   01 00507    69200594              BG       LMT30
      823   01 00508    357011D6              STW,R7   REMASK1

      825   01 00509    330011D5              MTW,0    REMASK0           CHECK FOR DEFAULT
      826   01 0050A    6930050E              BNEZ     TST201             CONDITIONS

      828   01 0050B    22700008 A            LI,R7    8                 GO TO DEFAULTS
      829   01 0050C    357011D5              STW,R7   REMASK0
      830   01 0050D    357011D6              STW,R7   REMASK1

      832         01 0050E           TST201   EQU      %
      833   01 0050E    352003CB              STW,R2   ITHTEST           SET TST2 INDICATION

      835   01 0050F    5200032F              LH,R0    :CDB              ASSIGN UNITS
      836   01 00510    21000004 A            CI,R0    4
      837   01 00511    68100514              BGE      %+3
      838   01 00512    32000331              LW,R0    :CDB+2            UNIT 0 = UNIT 1
      839   01 00513    35000332              STW,R0   :CDB+3             IF ONLY ONE IN SYST

      841   01 00514    32000331              LW,R0    :CDB+2            UNIT 0
      842   01 00515    350011D0              STW,R0   UNIT0
      843   01 00516    32000332              LW,R0    :CDB+3            UNIT 1
      844   01 00517    350011D1              STW,R0   UNIT1

      846                            * IF UNIQUE UNITS ARE PRESENT BUT NO NETWORK,
      847                            * FORCE TESTING OF ONE UNIT ONLY (FIRST IN SYST)

      849   01 00518    310011D0              CW,R0    UNIT0
      850   01 00519    6830051F              BE       TST202            SKIP IF UNITS NOT UNIQUE

      852   01 0051A    32000330              LW,R0    :CDB+1            LOOK FOR NETWORK
      853   01 0051B    21000001 A            CI,R0    1                  SUPPRESSION
      854   01 0051C    6840051F              BAZ      TST202

      856   01 0051D    320011D0              LW,R0    UNIT0             FORCE UNIT EQUALITY
      857   01 0051E    350011D1              STW,R0   UNIT1

      859   01 0051F    227003B1     TST202   LI,R7    ITHDLR            TRAP HANDLER ADDRESS
      860   01 00520    3570030F              STW,R7   :PIT15            INTO PIT

      862   01 00521    227004FC              LI,R7    TST2              RESTART ADDRESS
      863   01 00522    357003CD              STW,R7   ITHRST            INTO ITHRST PARAMETER

      865   01 00523    22700000 A            LI,R7    0                 CLEAR SUBTEST NUMBER
      866   01 00524    357003CC              STW,R7   ITHSUBT

      868   01 00525    35701251              STW,R7   GENKEY            CLEAR ERROR KEY

      870   01 00526    6800106B              B        T2RE              GO TO RANDOM EXERCISER

      872         01 00527           TST203   EQU      %                 RE RETURNS TO THIS POINT
      873   01 00527    312003CB              CW,R2    ITHTEST
      874   01 00528    693004F1              BNE      TST104            RETURN TO TST0 IF NOT TST2

      876   01 00529    EAF0022A              BAL,R15  *:QSENSE          RETURN TO DPM
      877   01 0052A    E8800214              BCR,8    *:MONITOR          IF SSW2 IS SET
      878   01 0052B    6800106B              B        T2RE                 ELSE RETURN TO RE
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   20
A     880                            *                 *** TST3 - UTILITY TEST
      881                            *                     -------------------
      882                            * THIS DIRECTIVE ALLOWS THE USER TO SELECT SEVERAL UTILITY TESTS BY
      883                            * SPECIFYING IN PARAMETER 1 THE DESIRED TEST. PARAMETERS 2,3, AND 4
      884                            * ARE SPECIFICALLY INDICATED IN THE DESCRIPTION OF THE SUBTEST IF
      885                            * APPLICABLE.

      887         01 0052C           TST3     EQU      %
      888   01 0052C    35100552              STW,R1   TST3LOOP          RESET REPEAT COUNTER

      890   01 0052D    22000552              LI,R0    TST3LOOP          SET GENERAL
      891   01 0052E    35001251              STW,R0   GENKEY             ERROR KEY

      893         01 0052F           TST3C    EQU      %
      894   01 0052F    22600000 A            LI,R6    0
      895   01 00530    3560045A              STW,R6   :DEVINDX          CLEAR DEVICE INDEX

      897   01 00531    327C0331     TST3A    LW,7     :CDB+2,6
      898   01 00532    35700459              STW,7    :DEVADDR          SET UP DEVICE ADDRESS

      900   01 00533    227003B1              LI,7     ITHDLR            TRAP HANDLER ADDRESS
      901   01 00534    3570030F              STW,7    :PIT15            INTO PIT
      902   01 00535    353003CB              STW,3    ITHTEST           TEST NUMBER INTO ITHTEST
      903   01 00536    2270052C              LI,7     TST3              RESTART ADDRESS
      904   01 00537    357003CD              STW,7    ITHRST            INTO ITHRST PARAMETER

      906   01 00538    32700201              LW,R7    :P1               FETCH PARAMETER ONE
      907   01 00539    357003CC              STW,R7   ITHSUBT            AND SAVE AS SUBTEST

      909   01 0053A    21700001 A            CI,R7    1                 TEST LIMITS ON
      910   01 0053B    69100590              BL       LMT10              PARAMETER ONE
      911   01 0053C    2170000B A            CI,R7    11
      912   01 0053D    69200590              BG       LMT10

      914   01 0053E    680E053E              B        %,R7              SKIP TO PROPER ROUTINE

      916   01 0053F    680012F3              B        TST31             SENSE STATISTICS
      917   01 00540    68001469              B        TST32             SENSE DELAY TIMES
      918   01 00541    6800148A              B        TST33             GO ONLINE
      919   01 00542    68001514              B        TST34             CAPTURE NETWORK TRAFFIC
      920   01 00543    68001545              B        TST35             CREATE NETWORK TRAFFIC
      921   01 00544    680015B4              B        TST36             ADD GROUP ADDRESS
      922   01 00545    680015C2              B        TST37             DELETE GROUP ADDRESS
      923   01 00546    680015D0              B        TST38             INSERT PHYSICAL ADDRESS
      924   01 00547    680015F2              B        TST39             ECHO FRAMES RECEIVED
      925   01 00548    68001545              B        TST35             SPECIAL TRANSMIT (NO RESET)
      926   01 00549    680015F2              B        TST39             SPECIAL ECHO (NO RESET)

      928   01 0054A    3310045A     TST3B    MTW,1    :DEVINDX
      929   01 0054B    3260045A              LW,6     :DEVINDX
      930   01 0054C    3160045B              CW,6     :DEVNUMB          ALL UNITS TESTED
      931   01 0054D    69100531              BL       TST3A              CONTINUE TESTING

      933   01 0054E    EAF0022A              BAL,R15  *:QSENSE          TERMINATE TESTING
      934   01 0054F    E8800214              BCR,8    *:MONITOR          IF SSW1 IS RESET

      936   01 00550    33100552              MTW,1    TST3LOOP          INCREMENT REPEAT COUNTER
      937   01 00551    6800052F              B        TST3C              AND START OVER

      939   01 00552                 TST3LOOP RES      1
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   21
A     941                            *                 *** TST4 - RANDOM FUNCTIONAL TEST
      942                            *                     -----------------------------
      943                            * THIS DIRECTIVE PREFORMS A SYSTEMATIC TEST OF ALL LOGIC FUNCTIONS
      944                            * ASSOCIATED WITH THE ETHERNET CONTROLLER. THE FUNCTIONAL
      945                            * TEST CONSISTS OF A NUMBER OF SUBTESTS WHICH WILL BE
      946                            * RANDOMLY SELECTED.

      948         01 00553           TST4     EQU      %
      949   01 00553    22000004 A            LI,R0    4                 SET TEST IDENTIFICATION
      950   01 00554    350003CB              STW,R0   ITHTEST

      952   01 00555    22000026 A            LI,R0    :T1SLX-:T1SLT-1   SET LAST
      953   01 00556    35000202              STW,R0   :P2                AND FIRST SUBTESTS
      954   01 00557    35000491              STW,R0   :T1LAST             IN EXECUTION RANGE
      955   01 00558    35100490              STW,R1   :T1CUR
      956   01 00559    35100201              STW,R1   :P1

      958   01 0055A    22000000 A            LI,R0    0                 SET RANDOM
      959   01 0055B    35000492              STW,R0   :T1DIR             FUNCTIONAL FLAG

      961   01 0055C    680004D7              B        TST101
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   22
A     963                            *                 *** LIMT - PARAMETER CHANGE DIRECTIVE
      964                            *                     ---------------------------------
      965                            *
      966                            *        ALLOWS THE SETTING OF SPECIFIC, INTERNAL PARAMETERS OF
      967                            *        THE ETHERNET DIAGNOSTIC.

      969         01 0055D           LIMT     EQU      %
      970   01 0055D    32400201              LW,R4    :P1               GUARD AGAINST NONSENSICAL
      971   01 0055E    68200590              BLEZ     LMT10              PARAMETER ONE OF LIMT

      973   01 0055F    21400005 A            CI,R4    5                 UPPER LIMIT
      974   01 00560    69200590              BG       LMT10

      976   01 00561    68080561              B        %,R4              SKIP ON P1 VALUE

      978   01 00562    68000567              B        LMT01             1 ERROR DETAIL FLAG
      979   01 00563    6800056C              B        LMT02             2 MAX LINKS IN DATA CHAIN (TST2)
      980   01 00564    68000575              B        LMT03             3 DATA TYPE AND SEED (TST3,5)
      981   01 00565    6800057F              B        LMT04             4 DESTINATION ADDRESS
      982   01 00566    6800058A              B        LMT05             5 SET TIME SNAPSHOT PARAMETER

      984   01 00567    32000202     LMT01    LW,R0    :P2               SET ERROR DETAIL FLAG
      985   01 00568    6830056A              BEZ      %+2                EITHER ZERO OR ONE
      986   01 00569    22000001 A            LI,R0    1
      987   01 0056A    35001ABB              STW,R0   :ERRTDET
      988   01 0056B    E8000214              B        *:MONITOR

      990   01 0056C    32000202     LMT02    LW,R0    :P2               MAXIMUM NUMBER OF LINKS
      991   01 0056D    200FFFFF A            AI,R0    -1                 IN THE RANDOM DATA CHAIN
      992   01 0056E    68100570              BGEZ     %+2                 FOR TST2 (RANDOM EXERCISER)
      993   01 0056F    22000000 A            LI,R0    0

      995   01 00570    21000013 A            CI,R0    RMAX-1            SET MAXIMUM ALLOWABLE
      996   01 00571    68200573              BLE      %+2
      997   01 00572    22000013 A            LI,R0    RMAX-1

      999   01 00573    35001252              STW,R0   MXRAND
     1000   01 00574    E8000214              B        *:MONITOR

     1002   01 00575    32000202     LMT03    LW,R0    :P2               FIND DATA TYPE FOR TST3,5
     1003   01 00576    69100592              BLZ      LMT20              MUST BE 0 (FIXED), 1 (STEPPED),
     1004   01 00577    21000002 A            CI,R0    2                   OR 2 (RANDOM)
     1005   01 00578    69200592              BG       LMT20
     1006   01 00579    350015AF              STW,R0   TST35PAT

     1008   01 0057A    32000203              LW,R0    :P3               FETCH VALUE OR SEED
     1009   01 0057B    350015B0              STW,R0   TST35DAT

     1011   01 0057C    32000204              LW,R0    :P4               FETCH STEP
     1012   01 0057D    350015B1              STW,R0   TST35INC

     1014   01 0057E    E8000214              B        *:MONITOR

     1016   01 0057F    32000202     LMT04    LW,R0    :P2               SET DESTINATION ADDRESS
     1017   01 00580    68300585              BEZ      LMT04A             OR RESET TO BROADCAST

     1019   01 00581    220FFFFF A            LI,R0    -1
     1020   01 00582    350015B2              STW,R0   PHYADD35          P2.NE.0=>BROADCAST
     1021   01 00583    350015B3              STW,R0   PHYADD35+1

     1023   01 00584    E8000214              B        *:MONITOR

     1025   01 00585    32400203     LMT04A   LW,R4    :P3               FETCH AND COMPOSE THE
     1026   01 00586    32500204              LW,R5    :P4                SIX-BYTE ADDRESS
     1027   01 00587    25400110 A            SLD,R4   16
     1028   01 00588    154015B2              STD,R4   PHYADD35

     1030   01 00589    E8000214              B        *:MONITOR

     1032   01 0058A    32000202     LMT05    LW,R0    :P2               FETCH PARAMETER
     1033   01 0058B    3500166A              STW,R0   TIMESNAP           AND SET TIMER SNAPSHOT
     1034   01 0058C    E8000214              B        *:MONITOR

     1036                            * GENERAL ENTRIES TO ANNOUNCE PARAMETER ERRORS

     1038   01 0058D    EAF00229     LMT00    BAL,R15  *:PREPORT         REPORT PARAMETER IN ERROR
     1039   01 0058E    00000307              DATA     :PIT7              TEXT OF DIRECTIVE
     1040   01 0058F    E8000214              B        *:MONITOR

     1042   01 00590    3510030A     LMT10    STW,R1   :PIT10            P1
     1043   01 00591    6800058D              B        LMT00

     1045   01 00592    3520030A     LMT20    STW,R2   :PIT10            P2
     1046   01 00593    6800058D              B        LMT00

     1048   01 00594    3530030A     LMT30    STW,R3   :PIT10            P3
     1049   01 00595    6800058D              B        LMT00

     1051   01 00596    22000004 A   LMT40    LI,R0    4                 P4
     1052   01 00597    3540030A              STW,R4   :PIT10
     1053   01 00598    6800058D              B        LMT00
     1054                            *                                   ABSOLUTE RECOVERY ROUTINE
     1055                            *                                   -------------------------

     1057   01 00599    12400410     :RECOVER LD,R4    DPM:BEG           RESTORE SYSTEM STACK
     1058   01 0059A    15400412              STD,R4   DPM:STK

     1060   01 0059B    22100001 A            LI,1     1                 RESTORE REGISTERS 1,2,3
     1061   01 0059C    22200002 A            LI,2     2
     1062   01 0059D    22300003 A            LI,3     3

     1064   01 0059E    32400458              LW,4     IOXPSD            I/O INTERRUPT
     1065   01 0059F    3540005C A            STW,4    X'5C'
     1066   01 005A0    32401944              LW,4     :DELXPSD          ZERO INTERRUPT
     1067   01 005A1    3540005B A            STW,4    X'5B'
     1068   01 005A2    32401945              LW,4     :DELMTW           CLOCK INTERRUPT
     1069   01 005A3    35400055 A            STW,4    X'55'
     1070   01 005A4    32400200              LW,4     :MLT              ABSOLUTE RECOVERY
     1071   01 005A5    35400026 A            STW,4    X'26'

     1073   01 005A6    22400020 A            LI,R4    X'20'             CLEAR AND RESET
     1074   01 005A7    6D401100 A            WD,R4    X'1100'            THE I/O INTERRUPT

     1076   01 005A8    E800000F A            B        *R15              RETURN
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   23
A    1078                            * FUNCTIONS TO HELP DEFINE :TSEQ TEST PATTERNS

     1080         00000010           TIO      FNAME    X'10'
     1081         00000020           OSB      FNAME    X'20'
     1082         00000030           HIO      FNAME    X'30'
     1083         00000040           TDV      FNAME    X'40'
     1084         00000050           SIO      FNAME    X'50'
     1085         00000060           AIO      FNAME    X'60'
     1086         00000070           ISB      FNAME    X'70'
     1087                                     PROC
     1088                                     LOCAL    ARG,INDEX
     1089                            INDEX    DO       8                 SET TRUE AND FALSE BITS
     1090                            ARG(INDEX) SET    NAME+8*(AF(1)**(INDEX-8)&1)+INDEX-1
     1091                                     FIN
     1092                            INDEX    DO       8                 SET DONT CARE BITS
     1093                                     DO       (AF(2)**(INDEX-8))&1
     1094                            ARG(INDEX) SET    ARG(INDEX)+X'70'
     1095                                     FIN
     1096                                     FIN
     1097                                     PEND     ARG
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   24
A    1099                            * BASIC I/O INSTRUCTIONS TEST

     1101   01 005A9    22F00020 A   :T1ST01  LI,R15   X'20'             CLEAR AND
     1102   01 005AA    6DF01100 A            WD,R15   X'1100'            DISARM I/O INTERRUPT

     1104   01 005AB    32E01BAA              :HIO     X'00008000',101   ISSUE AND CHECK HIO
            01 005AC    6AF016F9
            01 005AD    680005B1
            01 005AE    6AF0120A
            01 005AF    00000065 A
            01 005B0    680005AB

     1106   01 005B1    22C00000 A            LI,R12   0                 PREPARE TO ISSUE AIO
     1107   01 005B2    6EC00000 A            AIO,R12  0                  AND SKIP IF ANY RESPONSE
     1108   01 005B3    688005B6              BCR,8    T1ST0000

     1110   01 005B4    21C00000 A            CI,R12   0                 INSIST UPON
     1111   01 005B5    683005BE              BE       T1ST0001           UNALTERED STATUS

     1113         01 005B6           T1ST0000 EQU      %
     1114   01 005B6    35C011D9              STW,R12  RECOUNT           DISPLAY RESPONSE
     1115   01 005B7    22C011D9              LI,R12   RECOUNT            AS PART OF ERROR
     1116   01 005B8    35C01251              STW,R12  GENKEY

     1118   01 005B9    6AF0120A              ERROR    102,:T1ST01
            01 005BA    00000066 A
            01 005BB    680005A9

     1120   01 005BC    22C00000 A            LI,R12   0                 CLEAR ERROR KEY
     1121   01 005BD    35C01251              STW,R12  GENKEY             POINTER

     1123         01 005BE           T1ST0001 EQU      %
     1124   01 005BE    32E01BAB              :TIO     X'EF00C000',103   ISSUE AND CHECK TIO
            01 005BF    6AF016F0
            01 005C0    680005C4
            01 005C1    6AF0120A
            01 005C2    00000067 A
            01 005C3    680005BE
     1125   01 005C4    32E01BAC              :TDV     X'F700C000',104   ISSUE AND CHECK TDV
            01 005C5    6AF01702
            01 005C6    680005CA
            01 005C7    6AF0120A
            01 005C8    00000068 A
            01 005C9    680005C4

     1127   01 005CA    68000487              B        :TIM
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   25
A    1129                            * INVALID ORDER BYTE TEST (EXPECT UE)

     1131   01 005CB    22E0028A A   :T1ST02  RESET                      CLEAR THE INTERFACE
            01 005CC    6AF00F19

     1133   01 005CD    22400000 A            LI,R4    0                 STARTING ORDER BYTE
     1134   01 005CE    754005E2              STB,R4   CPT02

     1136   01 005CF    73080F71     T1ST0200 MTB,0    ORDERS,R4
     1137   01 005D0    693005DE              BNEZ     T1ST0202          SKIP IF ORDER IS VALID

     1139   01 005D1    220002F1     T1ST0201 LI,R0    DA(CPT02)         EXECUTE INVALID ORDER
     1140   01 005D2    32E01BAD              :SIO     X'E700C000',201
            01 005D3    6AF016E6
            01 005D4    680005D8
            01 005D5    6AF0120A
            01 005D6    000000C9 A
            01 005D7    680005D2

     1142   01 005D8    22E00001 A            DELAY    1                 WAIT FOR CE, UE
            01 005D9    6AF01205

     1144   01 005DA    22001790              FAIL     TSEQ0200,202,T1ST0201 VERIFY PRESENCE OF UE
            01 005DB    6AF0120C
            01 005DC    000000CA A
            01 005DD    680005D1

     1146   01 005DE    731005E2     T1ST0202 MTB,1    CPT02             ADVANCE TO NEXT ORDER
     1147   01 005DF    724005E2              LB,R4    CPT02              AND CHECK FOR COMPLETION
     1148   01 005E0    693005CF              BNEZ     T1ST0200

     1150   01 005E1    68000487              B        :TIM

     1152   01 005E2    00008000     CPT02    IOCD     X'00',BA(BUFF1),X'00',1
            01 005E3    00000001 A
     1153                            TSEQ0200 :TSEQ    TIO(X'18'),OSB(X'00'),TDV(X'00',X'0F'),;
     1154         01 005E4                             BYT01,COM00
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   26
A    1156                            * INTERRUPT GENERATION TESTING (VERIFY IP, UE)

     1158   01 005EB    22E0028A A   :T1ST03  RESET                      RESET THE INTERFACE
            01 005EC    6AF00F19

     1160   01 005ED    22000304     T1ST0300 LI,R0    DA(CPT03)         INVALID ORDER WITH IUE
     1161   01 005EE    32E01BAD              :SIO     X'E700C000',301
            01 005EF    6AF016E6
            01 005F0    680005F4
            01 005F1    6AF0120A
            01 005F2    0000012D A
            01 005F3    680005EE

     1163   01 005F4    22E00001 A            DELAY    1                 WAIT FOR CE, UE
            01 005F5    6AF01205

     1165   01 005F6    22001828              FAIL     TSEQ0300,302,T1ST0300 VERIFY IP, UE
            01 005F7    6AF0120C
            01 005F8    0000012E A
            01 005F9    680005ED

     1167   01 005FA    32E01BAE     T1ST0301 :HIO     X'6700C000',303   CLEAR CONTROLLER
            01 005FB    6AF016F9
            01 005FC    68000600
            01 005FD    6AF0120A
            01 005FE    0000012F A
            01 005FF    680005FA

     1169   01 00600    32E01BAB              :TIO     X'EF00C000',304,T1ST0301 VERIFY NIP, NUE
            01 00601    6AF016F0
            01 00602    68000606
            01 00603    6AF0120A
            01 00604    00000130 A
            01 00605    680005FA

     1171   01 00606    68000487              B        :TIM

     1173   01 00608    FF008000     CPT03    IOCD     X'FF',BA(BUFF1),X'04',1
            01 00609    04000001 A
     1174                            TSEQ0300 :TSEQ    TIO(X'98'),OSB(X'00'),TDV(X'00',X'0F'),;
     1175         01 0060A                             BYT01,COM00
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   27
A    1177                            * INTERRUPT GENERATION TESTING (VERIFY IP, UE, AIO FUNCTION)

     1179   01 00611    22E0028A A   :T1ST04  RESET                      RESET THE INTERFACE
            01 00612    6AF00F19

     1181   01 00613    22000304     T1ST0400 LI,R0    DA(CPT03)         INVALID ORDER WITH IUE
     1182   01 00614    32E01BAD              :SIO     X'E700C000',401
            01 00615    6AF016E6
            01 00616    6800061A
            01 00617    6AF0120A
            01 00618    00000191 A
            01 00619    68000614

     1184   01 0061A    22E00001 A            DELAY    1                 WAIT FOR CE, UE
            01 0061B    6AF01205

     1186   01 0061C    22001828              FAIL     TSEQ0300,402,T1ST0400       VERIFY IP, UE
            01 0061D    6AF0120C
            01 0061E    00000192 A
            01 0061F    68000613

     1188   01 00620    32E01BAF              :AIO     X'FFE78000',403,T1ST0400    ISSUE AIO
            01 00621    6AF0170B
            01 00622    68000626
            01 00623    6AF0120A
            01 00624    00000193 A
            01 00625    68000613

     1190   01 00626    35D01997              STW,R13  :INTSTAT          SAVE AIO STATUS

     1192   01 00627    32E01BB0              :TIO     X'E7FFC000',404,T1ST0400    VERIFY NIP
            01 00628    6AF016F0
            01 00629    6800062D
            01 0062A    6AF0120A
            01 0062B    00000194 A
            01 0062C    68000613

     1194   01 0062D    22000008 A            TSTAIO   X'0008',405,T1ST0400        VERIFY AIO STATUS
            01 0062E    6AF00F23
            01 0062F    68000633
            01 00630    6AF0120A
            01 00631    00000195 A
            01 00632    68000613

     1196   01 00633    68000487              B        :TIM
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   28
A    1198                            * INTERRUPT GENERATION TESTING (VERIFY CE, AIO STATUS)

     1200   01 00634    22E00000 A   :T1ST05  RESET    0                 RESET BUT DO NOT DELAY
            01 00635    6AF00F19

     1202   01 00636    2200032C     T1ST0500 LI,R0    DA(CPT05)         EXECUTE SET MODE - RESET
     1203   01 00637    32E01BAD              :SIO     X'E700C000',501
            01 00638    6AF016E6
            01 00639    6800063D
            01 0063A    6AF0120A
            01 0063B    000001F5 A
            01 0063C    68000637

     1205   01 0063D    22E002EE A            DELAY    750               WAIT FOR CE
            01 0063E    6AF01205

     1207   01 0063F    22001968              FAIL     TSEQ0500,502,T1ST0500       VERIFY IP
            01 00640    6AF0120C
            01 00641    000001F6 A
            01 00642    68000636

     1209   01 00643    32E01BB1              :AIO     X'FFEFC000',502,T1ST0500    ISSUE AIO
            01 00644    6AF0170B
            01 00645    68000649
            01 00646    6AF0120A
            01 00647    000001F6 A
            01 00648    68000636

     1211   01 00649    35D01997              STW,R13  :INTSTAT          SAVE AIO STATUS

     1213   01 0064A    32E01BB2              :TIO     X'EFFFC000',503,T1ST0500    VERIFY NIP
            01 0064B    6AF016F0
            01 0064C    68000650
            01 0064D    6AF0120A
            01 0064E    000001F7 A
            01 0064F    68000636

     1215   01 00650    22000010 A            TSTAIO   X'0010',504,T1ST0500        VERIFY AIO STATUS
            01 00651    6AF00F23
            01 00652    68000656
            01 00653    6AF0120A
            01 00654    000001F8 A
            01 00655    68000636

     1217   01 00656    68000487              B        :TIM

     1219   01 00658    03003FFB     CPT05    IOCD     X'03',BA(RSTORD),X'10',1
            01 00659    10000001 A
     1220                            TSEQ0500 :TSEQ    TIO(X'90'),OSB(X'00'),TDV(X'00',X'0F'),;
     1221         01 0065A                             BYT00,COM00
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   29
A    1223                            * INTERRUPT GENERATION (ZBC, AIO STATUS)

     1225   01 00661    22E0028A A   :T1ST06  RESET                      RESET THE INTERFACE
            01 00662    6AF00F19

     1227   01 00663    22000342              LI,R0    DA(CPT06)         EXECUTE SET MODE - RESET
     1228   01 00664    32E01BAD              :SIO     X'E700C000',601
            01 00665    6AF016E6
            01 00666    6800066A
            01 00667    6AF0120A
            01 00668    00000259 A
            01 00669    68000664

     1230   01 0066A    22E00001 A            DELAY    1                 DELAY FOR ZBC CONDITION
            01 0066B    6AF01205

     1232   01 0066C    22001A18              FAIL     TSEQ0600,602,:T1ST06        VERIFY IP, BUSY
            01 0066D    6AF0120C
            01 0066E    0000025A A
            01 0066F    68000661

     1234   01 00670    32E01BB3              :AIO     X'FFDFC000',603,:T1ST06     ISSUE AIO
            01 00671    6AF0170B
            01 00672    68000676
            01 00673    6AF0120A
            01 00674    0000025B A
            01 00675    68000661

     1236   01 00676    35D01997              STW,R13  :INTSTAT          SAVE AIO STATUS

     1238   01 00677    32E01BB4              :TIO     X'89FF8000',604,:T1ST06     VERIFY NIP
            01 00678    6AF016F0
            01 00679    6800067D
            01 0067A    6AF0120A
            01 0067B    0000025C A
            01 0067C    68000661

     1240   01 0067D    22000020 A            TSTAIO   X'0020',605,:T1ST06         VERIFY AIO STATUS
            01 0067E    6AF00F23
            01 0067F    68000683
            01 00680    6AF0120A
            01 00681    0000025D A
            01 00682    68000661

     1242   01 00683    68000487              B        :TIM

     1244   01 00684    03003FFB     CPT06    IOCD     X'03',BA(RSTORD),X'40',1
            01 00685    40000001 A
     1245                            TSEQ0600 :TSEQ    TIO(X'F6'),OSB(X'00'),TDV(X'00',X'0F'),;
     1246         01 00686                             BYT00,COM00
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   30
A    1248                            * CHECK BASIC NM-10 INTEGRITY

     1250   01 0068D    22E00000 A   :T1ST07  RESET    0                 CLEAR INTERFACE - NO DELAY
            01 0068E    6AF00F19

     1252   01 0068F    6AF016BD              BAL,R15  CLRARM            SET I/O INTERRUPT

     1254   01 00690    2200034D              LI,R0    DA(CPT07)
     1255   01 00691    6AF017D9              BAL,R15  :IOEXEC           EXECUTE SET MODE - DIAGNOSE

     1257   01 00692    22E00DAC A            LI,R14   3500              SET TIMEOUT AT 3.5 SECONDS
     1258   01 00693    6AF016C4              BAL,R15  MYDELAY            AND DELAY FOR INTERRUPT

     1260   01 00694    22001A70              FAIL     TSEQ0700,700,:T1ST07        VERIFY NORMAL COMPLETION
            01 00695    6AF0120C
            01 00696    000002BC A
            01 00697    6800068D

     1262   01 00698    68000487              B        :TIM

     1264   01 0069A    03003FC6     CPT07    IOCD     X'03',BA(DGNORD),X'1C',1
            01 0069B    1C000001 A
     1265                            TSEQ0700 :TSEQ    TIO(X'10'),OSB(X'00'),TDV(X'00',X'0F'),;
     1266         01 0069C                             AIO(X'00'),ISB(X'10'),BYT00,COM00
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   31
A    1268                            * TEST ALL INVALID MODES (EXPECT UE)

     1270   01 006A7    22E00000 A   :T1ST08  RESET    0                 CLEAR INTERFACE NO DELAY
            01 006A8    6AF00F19

     1272   01 006A9    22400000 A            LI,R4    0                 SET MODE BYTE
     1273   01 006AA    754006C4              STB,R4   CPT08D

     1275   01 006AB    73080FEF     T1ST0800 MTB,0    MODES,R4          FETCH CURRENT MODE KEY
     1276   01 006AC    693006B3              BNEZ     T1ST0802           AND SKIP IF LEGAL

     1278   01 006AD    22000361     T1ST0801 IOXEQ    CPT08             ISSUE SET MODE - INVALID
            01 006AE    6AF0104D

     1280   01 006AF    22001ADC              FAIL     TSEQ0801,801,T1ST0801
            01 006B0    6AF0120C
            01 006B1    00000321 A
            01 006B2    680006AD

     1282   01 006B3    731006C4     T1ST0802 MTB,1    CPT08D            PROCEED TO NEXT MODE
     1283   01 006B4    724006C4              LB,R4    CPT08D             CONTINUE UNTIL ALL 256 PROCESSED
     1284   01 006B5    693006AB              BNEZ     T1ST0800

     1286   01 006B6    68000487              B        :TIM

     1288                            TSEQ0801 :TSEQ    TIO(X'18'),OSB(X'00'),TDV(X'20',X'0F'),;
     1289         01 006B7                             AIO(X'20'),ISB(X'18'),BYT00,COM00

     1291   01 006C2    03001B10     CPT08    IOCD     X'03',BA(CPT08D),X'1C',1
            01 006C3    1C000001 A

     1293   01 006C4                 CPT08D   RES      1
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   32
A    1295                            * TEST ALL VALID MODES (FULLY NORMAL STATUS)

     1297   01 006C5    22E00000 A   :T1ST09  RESET    0                 CLEAR INTERFACE NO DELAY
            01 006C6    6AF00F19

     1299   01 006C7    22400000 A            LI,R4    0                 SET FIRST MODE BYTE
     1300   01 006C8    754006C4              STB,R4   CPT08D

     1302   01 006C9    73080FEF     T1ST0900 MTB,0    MODES,R4          FETCH CURRENT MODE KEY
     1303   01 006CA    683006D7              BEZ      T1ST0902           AND SKIP IF INVALID

     1305   01 006CB    21400012 A            CI,R4    X'12'             DONT EXECUTE
     1306   01 006CC    683006D7              BE       T1ST0902           FUNNY DIAGNOSTIC MODES
     1307   01 006CD    21400013 A            CI,R4    X'13'               AT THIS POINT
     1308   01 006CE    683006D7              BE       T1ST0902
     1309   01 006CF    2140000A A            CI,R4    X'0A'
     1310   01 006D0    683006D7              BE       T1ST0902

     1312   01 006D1    22000361     T1ST0901 IOXEQ    CPT08             ISSUE SET MODE - VALID
            01 006D2    6AF0104D

     1314   01 006D3    22001B6C              FAIL     TSEQ0901,901,T1ST0901
            01 006D4    6AF0120C
            01 006D5    00000385 A
            01 006D6    680006D1

     1316   01 006D7    731006C4     T1ST0902 MTB,1    CPT08D            PROCEED TO NEXT MODE
     1317   01 006D8    724006C4              LB,R4    CPT08D             AND CONTINUE UNTIL 256 PROCESSED
     1318   01 006D9    693006C9              BNEZ     T1ST0900

     1320   01 006DA    68000487              B        :TIM

     1322                            TSEQ0901 :TSEQ    TIO(X'10'),OSB(X'00'),TDV(X'00',X'0F'),;
     1323         01 006DB                             AIO(X'00'),ISB(X'10'),BYT00,COM00
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   33
A    1325                            * TEST REJECTION OF READ WITH NO FRAME PRESENT

     1327   01 006E6    22E0028A A   :T1ST10  RESET                      CLEAR INTERFACE
            01 006E7    6AF00F19

     1329   01 006E8    2200037D     T1ST1001 IOXEQ    CPT10             EXECUTE READ ORDER
            01 006E9    6AF0104D

     1331   01 006EA    22001BBC              FAIL     TSEQ1001,1001,T1ST1001
            01 006EB    6AF0120C
            01 006EC    000003E9 A
            01 006ED    680006E8

     1333   01 006EE    68000487              B        :TIM

     1335                            TSEQ1001 :TSEQ    TIO(X'18'),OSB(X'00'),TDV(X'00',X'0F'),;
     1336         01 006EF                             AIO(X'00'),ISB(X'18'),BYT06,COM00

     1338   01 006FA    0200A000     CPT10    IOCD     X'02',BA(BUFF2),X'1E',6
            01 006FB    1E000006 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   34
A    1340                            * TEST REJECTION OF XMIT WHEN OFFLINE AND NOT LOOPBACK
     1341                            * THIS IS THE FIRST SUBTEST TO USE COMMAND CHAINING

     1343   01 006FC    22E00000 A   :T1ST11  RESET    0                 CLEAR INTERFACE NO DELAY
            01 006FD    6AF00F19

     1345   01 006FE    22000388     T1ST1101 IOXEQ    CPT11             EXECUTE CLEAR INSERTION - XMIT
            01 006FF    6AF0104D

     1347   01 00700    22001C14              FAIL     TSEQ1101,1101,T1ST1101
            01 00701    6AF0120C
            01 00702    0000044D A
            01 00703    680006FE

     1349   01 00704    68000487              B        :TIM

     1351                            TSEQ1101 :TSEQ    TIO(X'18'),OSB(X'42'),TDV(X'30',X'0F'),;
     1352         01 00705                             AIO(X'30'),ISB(X'58'),BYT00,COM01

     1354   01 00710    03003FCA     CPT11    IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 00711    2E000001 A
     1355   01 00712    01008000              IOCD     X'01',BA(BUFF1),X'1E',1514
            01 00713    1E0005EA A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   35
A    1357                            * TEST IL GENERATION FOR MODES

     1359   01 00714    22E0028A A   :T1ST12  RESET                      CLEAR INTERFACE
            01 00715    6AF00F19

     1361   01 00716    22000394     T1ST1201 IOXEQ    CPT12             EXECUTE SET MODE (BC=7)
            01 00717    6AF0104D

     1363   01 00718    22001C74              FAIL     TSEQ1201,1201,T1ST1201
            01 00719    6AF0120C
            01 0071A    000004B1 A
            01 0071B    68000716

     1365   01 0071C    68000487              B        :TIM

     1367                            TSEQ1201 :TSEQ    TIO(X'18'),OSB(X'80'),TDV(X'00',X'0F'),;
     1368         01 0071D                             AIO(X'00'),ISB(X'98'),BYT06,COM00

     1370   01 00728    03001CA8     CPT12    IOCD     X'03',BA(CPT12D),X'1E',7
            01 00729    1E000007 A

     1372   01 0072A    3F000000 A   CPT12D   DATA     X'3F000000',X'00000000'
            01 0072B    00000000 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   36
A    1374                            * TEST IL GENERATION FOR XMIT (ADDRESS INSERTION)

     1376   01 0072C    22E00000 A   :T1ST13  RESET    0
            01 0072D    6AF00F19

     1378   01 0072E    220003C0              IOTST    CPT13A,TSEQ1301,1301      MIN-1
            01 0072F    6AF0104D
            01 00730    22001D8C
            01 00731    6AF0120C
            01 00732    00000515 A
            01 00733    6800072E
     1379   01 00734    22E00000 A            RESET    0
            01 00735    6AF00F19
     1380   01 00736    220003BD              IOTST    CPT13B,TSEQ1302,1302      MIN
            01 00737    6AF0104D
            01 00738    22001D60
            01 00739    6AF0120C
            01 0073A    00000516 A
            01 0073B    68000736
     1381   01 0073C    22E00000 A            RESET    0
            01 0073D    6AF00F19
     1382   01 0073E    220003BA              IOTST    CPT13C,TSEQ1302,1303      MAX
            01 0073F    6AF0104D
            01 00740    22001D60
            01 00741    6AF0120C
            01 00742    00000517 A
            01 00743    6800073E
     1383   01 00744    22E00000 A            RESET    0
            01 00745    6AF00F19
     1384   01 00746    220003B7              IOTST    CPT13D,TSEQ1304,1304      MAX+1
            01 00747    6AF0104D
            01 00748    22001D34
            01 00749    6AF0120C
            01 0074A    00000518 A
            01 0074B    68000746

     1386   01 0074C    68000487              B        :TIM

     1388                            TSEQ1304 :TSEQ    TIO(X'18'),OSB(X'80'),TDV(X'50',X'0F'),;
     1389         01 0074D                             AIO(X'50'),ISB(X'98'),BYT00,COM02

     1391                            TSEQ1302 :TSEQ    TIO(X'10',X'80'),OSB(X'00'),TDV(X'00',X'0F'),;
     1392         01 00758                             AIO(X'00'),ISB(X'10'),BYT00,COM02

     1394                            TSEQ1301 :TSEQ    TIO(X'18'),OSB(X'80'),TDV(X'60',X'0F'),;
     1395         01 00763                             AIO(X'60'),ISB(X'98'),BYT00,COM02

     1397   01 0076E    03003FC9     CPT13D   IOCD     X'03',BA(MODES)+X'D',X'2E',1
            01 0076F    2E000001 A
     1398   01 00770    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 00771    2E000001 A
     1399   01 00772    01008000              IOCD     X'01',BA(BUFF1),X'1E',1509
            01 00773    1E0005E5 A
     1400   01 00774    03003FC9     CPT13C   IOCD     X'03',BA(MODES)+X'D',X'2E',1
            01 00775    2E000001 A
     1401   01 00776    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 00777    2E000001 A
     1402   01 00778    01008000              IOCD     X'01',BA(BUFF1),X'1E',1508
            01 00779    1E0005E4 A
     1403   01 0077A    03003FC9     CPT13B   IOCD     X'03',BA(MODES)+X'D',X'2E',1
            01 0077B    2E000001 A
     1404   01 0077C    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 0077D    2E000001 A
     1405   01 0077E    01008000              IOCD     X'01',BA(BUFF1),X'1E',8
            01 0077F    1E000008 A
     1406   01 00780    03003FC9     CPT13A   IOCD     X'03',BA(MODES)+X'D',X'2E',1
            01 00781    2E000001 A
     1407   01 00782    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 00783    2E000001 A
     1408   01 00784    01008000              IOCD     X'01',BA(BUFF1),X'1E',7
            01 00785    1E000007 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   37
A    1410                            * TEST NON-IL GENERATION FOR XMIT (NON ADDRESS-INSERTION)

     1412   01 00786    22E00000 A   :T1ST14  RESET    0                 CLEAR INTERFACE NO DELAY
            01 00787    6AF00F19

     1414   01 00788    220003DD              IOTST    CPT14A,TSEQ1301,1401      MIN-1
            01 00789    6AF0104D
            01 0078A    22001D8C
            01 0078B    6AF0120C
            01 0078C    00000579 A
            01 0078D    68000788
     1415   01 0078E    22E00000 A            RESET    0
            01 0078F    6AF00F19
     1416   01 00790    220003DA              IOTST    CPT14B,TSEQ1302,1402      MIN
            01 00791    6AF0104D
            01 00792    22001D60
            01 00793    6AF0120C
            01 00794    0000057A A
            01 00795    68000790
     1417   01 00796    22E00000 A            RESET    0
            01 00797    6AF00F19
     1418   01 00798    220003D7              IOTST    CPT14C,TSEQ1302,1403      MAX
            01 00799    6AF0104D
            01 0079A    22001D60
            01 0079B    6AF0120C
            01 0079C    0000057B A
            01 0079D    68000798
     1419   01 0079E    22E00000 A            RESET    0
            01 0079F    6AF00F19
     1420   01 007A0    220003D4              IOTST    CPT14D,TSEQ1304,1404      MAX+1
            01 007A1    6AF0104D
            01 007A2    22001D34
            01 007A3    6AF0120C
            01 007A4    0000057C A
            01 007A5    680007A0

     1422   01 007A6    68000487              B        :TIM

     1424   01 007A8    03003FCA     CPT14D   IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 007A9    2E000001 A
     1425   01 007AA    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 007AB    2E000001 A
     1426   01 007AC    01008000              IOCD     X'01',BA(BUFF1),X'1E',1515
            01 007AD    1E0005EB A
     1427   01 007AE    03003FCA     CPT14C   IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 007AF    2E000001 A
     1428   01 007B0    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 007B1    2E000001 A
     1429   01 007B2    01008000              IOCD     X'01',BA(BUFF1),X'1E',1514
            01 007B3    1E0005EA A
     1430   01 007B4    03003FCA     CPT14B   IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 007B5    2E000001 A
     1431   01 007B6    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 007B7    2E000001 A
     1432   01 007B8    01008000              IOCD     X'01',BA(BUFF1),X'1E',14
            01 007B9    1E00000E A
     1433   01 007BA    03003FCA     CPT14A   IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 007BB    2E000001 A
     1434   01 007BC    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 007BD    2E000001 A
     1435   01 007BE    01008000              IOCD     X'01',BA(BUFF1),X'1E',13
            01 007BF    1E00000D A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   38
A    1437                            * TEST IL GENERATION FOR LOAD PHYSICAL ADDRESS

     1439   01 007C0    22E00000 A   :T1ST15  RESET    0                 CLEAR INTERFACE NO DELAY
            01 007C1    6AF00F19

     1441   01 007C2    220003F0              IOTST    CPT15A,TSEQ1501,1501      MIN-1
            01 007C3    6AF0104D
            01 007C4    22001F54
            01 007C5    6AF0120C
            01 007C6    000005DD A
            01 007C7    680007C2
     1442   01 007C8    220003F1              IOTST    CPT15B,TSEQ1803,1502      MIN (6)
            01 007C9    6AF0104D
            01 007CA    2200224C
            01 007CB    6AF0120C
            01 007CC    000005DE A
            01 007CD    680007C8
     1443   01 007CE    220003F2              IOTST    CPT15C,TSEQ1501,1503      MIN+1
            01 007CF    6AF0104D
            01 007D0    22001F54
            01 007D1    6AF0120C
            01 007D2    000005DF A
            01 007D3    680007CE

     1445   01 007D4    68000487              B        :TIM

     1447                            TSEQ1501 :TSEQ    TIO(X'18'),OSB(X'80'),TDV(X'A0',X'0F'),;
     1448         01 007D5                             AIO(X'A0'),ISB(X'98'),BYT00,COM00

     1450   01 007E0    09008000     CPT15A   IOCD     X'09',BA(BUFF1),X'1E',5
            01 007E1    1E000005 A
     1451   01 007E2    09008000     CPT15B   IOCD     X'09',BA(BUFF1),X'1E',6
            01 007E3    1E000006 A
     1452   01 007E4    09008000     CPT15C   IOCD     X'09',BA(BUFF1),X'1E',7
            01 007E5    1E000007 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   39
A    1454                            * TEST IL GENERATION FOR LOAD/DELETE GROUP ADDRESS (SMALL BUFFER CASE)

     1456   01 007E6    22E00000 A   :T1ST16  RESET    0                 CLEAR INTERFACE NO DELAY
            01 007E7    6AF00F19

     1458   01 007E8    15202000              STD,R2   BUFF1             NON-ZERO GROUP ADDRESS

     1460   01 007E9    22000407              IOTST    CPT16A,TSEQ1501,1601      LGA MIN-1
            01 007EA    6AF0104D
            01 007EB    22001F54
            01 007EC    6AF0120C
            01 007ED    00000641 A
            01 007EE    680007E9
     1461   01 007EF    22000408              IOTST    CPT16B,TSEQ1803,1602      LGA MIN (5)
            01 007F0    6AF0104D
            01 007F1    2200224C
            01 007F2    6AF0120C
            01 007F3    00000642 A
            01 007F4    680007EF
     1462   01 007F5    22000409              IOTST    CPT16C,TSEQ1501,1603      LGA MIN+1
            01 007F6    6AF0104D
            01 007F7    22001F54
            01 007F8    6AF0120C
            01 007F9    00000643 A
            01 007FA    680007F5

     1464   01 007FB    2200040A              IOTST    CPT16D,TSEQ1501,1604      DGA MIN-1
            01 007FC    6AF0104D
            01 007FD    22001F54
            01 007FE    6AF0120C
            01 007FF    00000644 A
            01 00800    680007FB
     1465   01 00801    2200040B              IOTST    CPT16E,TSEQ1803,1605      DGA MIN (5)
            01 00802    6AF0104D
            01 00803    2200224C
            01 00804    6AF0120C
            01 00805    00000645 A
            01 00806    68000801
     1466   01 00807    2200040C              IOTST    CPT16F,TSEQ1501,1606      DGA MIN+1
            01 00808    6AF0104D
            01 00809    22001F54
            01 0080A    6AF0120C
            01 0080B    00000646 A
            01 0080C    68000807

     1468   01 0080D    68000487              B        :TIM

     1470   01 0080E    19008000     CPT16A   IOCD     X'19',BA(BUFF1),X'1E',5
            01 0080F    1E000005 A
     1471   01 00810    19008000     CPT16B   IOCD     X'19',BA(BUFF1),X'1E',6
            01 00811    1E000006 A
     1472   01 00812    19008000     CPT16C   IOCD     X'19',BA(BUFF1),X'1E',7
            01 00813    1E000007 A

     1474   01 00814    29008000     CPT16D   IOCD     X'29',BA(BUFF1),X'1E',5
            01 00815    1E000005 A
     1475   01 00816    29008000     CPT16E   IOCD     X'29',BA(BUFF1),X'1E',6
            01 00817    1E000006 A
     1476   01 00818    29008000     CPT16F   IOCD     X'29',BA(BUFF1),X'1E',7
            01 00819    1E000007 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   40
A    1478                            * TEST IL GENERATION FOR LOAD/DELETE GROUP ADDRESS (LARGE BUFFER CASE)

     1480   01 0081A    22E00000 A   :T1ST17  RESET    0                 CLEAR INTERFACE NO DELAY
            01 0081B    6AF00F19

     1482   01 0081C    22400000 A            LI,R4    0                 GROUP ADDRESSES
     1483   01 0081D    75482000              STB,R4   BUFF1,R4           MUST BE NON-ZERO
     1484   01 0081E    20400001 A            AI,R4    1                   AND SHOULD BE DIFFERENT
     1485   01 0081F    214005E6 A            CI,R4    1510                 FOR THIS TEST
     1486   01 00820    6910081D              BL       %-3

     1488   01 00821    22000420              IOTST    CPT17A,TSEQ1701,1701     LOAD 378
            01 00822    6AF0104D
            01 00823    22002130
            01 00824    6AF0120C
            01 00825    000006A5 A
            01 00826    68000821
     1489   01 00827    22000421              IOTST    CPT17B,TSEQ1701,1702     DELE 378
            01 00828    6AF0104D
            01 00829    22002130
            01 0082A    6AF0120C
            01 0082B    000006A6 A
            01 0082C    68000827
     1490   01 0082D    22000422              IOTST    CPT17C,TSEQ1703,1703     LOAD 384
            01 0082E    6AF0104D
            01 0082F    2200215C
            01 00830    6AF0120C
            01 00831    000006A7 A
            01 00832    6800082D
     1491   01 00833    22000423              IOTST    CPT17D,TSEQ1703,1704     DELE 1509 (INSERTION)
            01 00834    6AF0104D
            01 00835    2200215C
            01 00836    6AF0120C
            01 00837    000006A8 A
            01 00838    68000833
     1492   01 00839    22000424              IOTST    CPT17E,TSEQ1705,1705     DELE 1515 (NON-INSERTION)
            01 0083A    6AF0104D
            01 0083B    22002188
            01 0083C    6AF0120C
            01 0083D    000006A9 A
            01 0083E    68000839

     1494   01 0083F    68000487              B        :TIM

     1496   01 00840    19008000     CPT17A   IOCD     X'19',BA(BUFF1),X'1E',378
            01 00841    1E00017A A
     1497   01 00842    29008000     CPT17B   IOCD     X'29',BA(BUFF1),X'1E',378
            01 00843    1E00017A A
     1498   01 00844    19008000     CPT17C   IOCD     X'19',BA(BUFF1),X'1E',384
            01 00845    1E000180 A
     1499   01 00846    29008000     CPT17D   IOCD     X'29',BA(BUFF1),X'1E',1509
            01 00847    1E0005E5 A
     1500   01 00848    03003FCA     CPT17E   IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 00849    2E000001 A
     1501   01 0084A    29008000              IOCD     X'29',BA(BUFF1),X'1E',1515
            01 0084B    1E0005EB A

     1503                            TSEQ1701 :TSEQ    TIO(X'10',X'80'),OSB(X'00'),TDV(X'00',X'0F'),;
     1504         01 0084C                             AIO(X'00'),ISB(X'10'),BYT00,COM00

     1506                            TSEQ1703 :TSEQ    TIO(X'18'),OSB(X'80'),TDV(X'50',X'0F'),;
     1507         01 00857                             AIO(X'50'),ISB(X'98'),BYT00,COM00

     1509                            TSEQ1705 :TSEQ    TIO(X'18'),OSB(X'80'),TDV(X'50',X'0F'),;
     1510         01 00862                             AIO(X'50'),ISB(X'98'),BYT00,COM01
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   41
A    1512                            * TEST SENSE STATUS FUNCTIONS (WITH IL TEST)

     1514   01 0086D    22E00000 A   :T1ST18  RESET    0
            01 0086E    6AF00F19

     1516   01 0086F    2200044F     T1ST1801 IOXEQ    CPT18
            01 00870    6AF0104D

     1518   01 00871    22002220              FAIL     TSEQ1801,1801,T1ST1801
            01 00872    6AF0120C
            01 00873    00000709 A
            01 00874    6800086F

     1520   01 00875    2200003E A            FRM      62,1802,T1ST1801
            01 00876    6AF00F3D
            01 00877    6800087B
            01 00878    6AF0120A
            01 00879    0000070A A
            01 0087A    6800086F

     1522   01 0087B    22000450     T1ST1803 IOXEQ    CPT18A
            01 0087C    6AF0104D

     1524   01 0087D    2200224C              FAIL     TSEQ1803,1803,T1ST1803
            01 0087E    6AF0120C
            01 0087F    0000070B A
            01 00880    6800087B

     1526   01 00881    2200003E A            FRM      62,1804,T1ST1803
            01 00882    6AF00F3D
            01 00883    68000887
            01 00884    6AF0120A
            01 00885    0000070C A
            01 00886    6800087B

     1528   01 00887    68000487              B        :TIM

     1530                            TSEQ1801 :TSEQ    TIO(X'18'),OSB(X'80'),TDV(X'00',X'0F'),;
     1531         01 00888                             AIO(X'00'),ISB(X'98'),BYT00,COM00

     1533                            TSEQ1803 :TSEQ    TIO(X'10'),OSB(X'00'),TDV(X'00',X'0F'),;
     1534         01 00893                             AIO(X'00'),ISB(X'10'),BYT00,COM00

     1536   01 0089E    0400A000     CPT18    IOCD     X'04',BA(BUFF2),X'1E',65
            01 0089F    1E000041 A
     1537   01 008A0    0400A000     CPT18A   IOCD     X'04',BA(BUFF2),X'1E',66
            01 008A1    1E000042 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   42
A    1539                            * TEST SENSE DELAY TIMES (WITH IL TEST)

     1541   01 008A2    22E00000 A   :T1ST19  RESET    0
            01 008A3    6AF00F19

     1543   01 008A4    2200045C     T1ST1901 IOXEQ    CPT19
            01 008A5    6AF0104D

     1545   01 008A6    22002220              FAIL     TSEQ1801,1901,T1ST1901
            01 008A7    6AF0120C
            01 008A8    0000076D A
            01 008A9    680008A4

     1547   01 008AA    2200045D     T1ST1903 IOXEQ    CPT19A
            01 008AB    6AF0104D

     1549   01 008AC    2200224C              FAIL     TSEQ1803,1903,T1ST1903
            01 008AD    6AF0120C
            01 008AE    0000076F A
            01 008AF    680008AA

     1551   01 008B0    22000000 A            FRM      0,1904,T1ST1903
            01 008B1    6AF00F3D
            01 008B2    680008B6
            01 008B3    6AF0120A
            01 008B4    00000770 A
            01 008B5    680008AA

     1553   01 008B6    68000487              B        :TIM

     1555   01 008B8    1400A000     CPT19    IOCD     X'14',BA(BUFF2),X'1E',3
            01 008B9    1E000003 A
     1556   01 008BA    1400A000     CPT19A   IOCD     X'14',BA(BUFF2),X'1E',4
            01 008BB    1E000004 A
     1557   01 008BC    1400A000     CPT19B   IOCD     X'14',BA(BUFF2),X'1E',2+2+16*2
            01 008BD    1E000024 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   43
A    1559                            * TEST XMIT/RCV FUNCTIONS (NORMAL)

     1561   01 008BE    22E00000 A   :T1ST20  RESET    0
            01 008BF    6AF00F19

     1563   01 008C0    22000476     T1ST2001 LI,R0    DA(CPT20)         XMIT AND RAISE ATTENTION
     1564   01 008C1    CC000459              SIO,R0   *:DEVADDR          (THE HARD WAY, DISABLED)

     1566   01 008C2    35001B94              STW,R0   :SAVCOM1          SAVE DA(PROGRAM) FOR :ERROR

     1568   01 008C3    22E00400 A            DELAY    1024              WAIT ABOUT ONE SECOND
            01 008C4    6AF01205

     1570   01 008C5    6ED00000 A            AIO,R13  0                 FIELD THE CE INTERRUPT
     1571   01 008C6    6AF01B6E              BAL,R15  :SAVEAIO           WITHOUT ENABLING

     1573   01 008C7    22E00002 A            DELAY    2                 WAIT FOR ATTENTION
            01 008C8    6AF01205

     1575   01 008C9    220023D8              FAIL     TSEQ2000,2001,T1ST2001      ATTENTION MUST BE SET
            01 008CA    6AF0120C
            01 008CB    000007D1 A
            01 008CC    680008C0

     1577   01 008CD    22E0028A A            RESET                      CLEAR THE ATTENTION
            01 008CE    6AF00F19

     1579   01 008CF    22002430              FAIL     TSEQ2002,2002,T1ST2001
            01 008D0    6AF0120C
            01 008D1    000007D2 A
            01 008D2    680008C0

     1581   01 008D3    22000476     T1ST2003 IOXEQ    CPT20             XMIT AND RAISE ATTENTION
            01 008D4    6AF0104D

     1583   01 008D5    22002404              FAIL     TSEQ2001,2003,T1ST2003
            01 008D6    6AF0120C
            01 008D7    000007D3 A
            01 008D8    680008D3

     1585   01 008D9    6AF00BF4              BAL,R15  MYATTN            WAIT FOR ATTENTION

     1587   01 008DA    22002FFC              FAIL     TSEQATTN,2004,T1ST2003
            01 008DB    6AF0120C
            01 008DC    000007D4 A
            01 008DD    680008D3

     1589   01 008DE    2200047A              IOXEQ    CPT20A            RCVE DATA
            01 008DF    6AF0104D

     1591   01 008E0    2200224C              FAIL     TSEQ1803,2006,T1ST2003
            01 008E1    6AF0120C
            01 008E2    000007D6 A
            01 008E3    680008D3

     1593   01 008E4    220005EE A            FRM      1514+4,2007,T1ST2003
            01 008E5    6AF00F3D
            01 008E6    680008EA
            01 008E7    6AF0120A
            01 008E8    000007D7 A
            01 008E9    680008D3

     1595   01 008EA    68000487              B        :TIM

     1597   01 008EC    03003FCA     CPT20    IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 008ED    2E000001 A
     1598   01 008EE    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 008EF    2E000001 A
     1599   01 008F0    03003FC0              IOCD     X'03',BA(MODES)+X'4',X'2E',1
            01 008F1    2E000001 A
     1600   01 008F2    01008000              IOCD     X'01',BA(BUFF1),X'1E',1514
            01 008F3    1E0005EA A

     1602   01 008F4    0200A000     CPT20A   IOCD     X'02',BA(BUFF2),X'1E',1514+2+2+4
            01 008F5    1E0005F2 A

     1604                            TSEQ2000 :TSEQ    TIO(X'90'),OSB(X'00'),TDV(X'00',X'0F'),;
     1605         01 008F6                             AIO(X'00'),ISB(X'10'),BYT00,COM03

     1607                            TSEQ2001 :TSEQ    TIO(X'10',X'80'),OSB(X'00'),TDV(X'00',X'0F'),;
     1608         01 00901                             AIO(X'00'),ISB(X'10'),BYT00,COM03

     1610         01 0090C           TSEQ2002 :TSEQ    TIO(X'10'),TDV(X'00',X'0F')
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   44
A    1612                            * TEST XMIT/RCV FUNCTIONS (NORMAL)

     1614   01 00911    22E00000 A   :T1ST21  RESET    0
            01 00912    6AF00F19

     1616   01 00913    22000476              IOXEQ    CPT20             WRITE
            01 00914    6AF0104D

     1618   01 00915    22002404              FAIL     TSEQ2001,2101,:T1ST21
            01 00916    6AF0120C
            01 00917    00000835 A
            01 00918    68000911

     1620   01 00919    6AF00BF4              BAL,R15  MYATTN

     1622   01 0091A    22002FFC              FAIL     TSEQATTN,2102,:T1ST21
            01 0091B    6AF0120C
            01 0091C    00000836 A
            01 0091D    68000911

     1624   01 0091E    2200049B              IOXEQ    CPT21             READ
            01 0091F    6AF0104D

     1626   01 00920    220024AC              FAIL     TSEQ2103,2103,:T1ST21
            01 00921    6AF0120C
            01 00922    00000837 A
            01 00923    68000911

     1628   01 00924    220005EE A            FRM      1514+4,2104,:T1ST21
            01 00925    6AF00F3D
            01 00926    6800092A
            01 00927    6AF0120A
            01 00928    00000838 A
            01 00929    68000911

     1630   01 0092A    68000487              B        :TIM

     1632                            TSEQ2103 :TSEQ    TIO(X'10'),OSB(X'00'),TDV(X'00',X'0F'),;
     1633         01 0092B                             AIO(X'00'),ISB(X'10'),BYT01,COM00

     1635   01 00936    0200A000     CPT21    IOCD     X'02',BA(BUFF2),X'1E',1514+2+2+4+1
            01 00937    1E0005F3 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   45
A    1637                            * TEST XMIT/RCV FUNCTIONS (IL TEST ON RECEIVE)

     1639   01 00938    22E00000 A   :T1ST22  RESET    0
            01 00939    6AF00F19

     1641   01 0093A    22000476              IOXEQ    CPT20             SET MODES AND XMIT
            01 0093B    6AF0104D

     1643   01 0093C    22002404              FAIL     TSEQ2001,2201,:T1ST22
            01 0093D    6AF0120C
            01 0093E    00000899 A
            01 0093F    68000938

     1645   01 00940    6AF00BF4              BAL,R15  MYATTN

     1647   01 00941    22002FFC              FAIL     TSEQATTN,2202,:T1ST22
            01 00942    6AF0120C
            01 00943    0000089A A
            01 00944    68000938

     1649   01 00945    220004A9              IOXEQ    CPT22             READ WITH SMALL BUFFER
            01 00946    6AF0104D

     1651   01 00947    22002220              FAIL     TSEQ1801,2203,:T1ST22
            01 00948    6AF0120C
            01 00949    0000089B A
            01 0094A    68000938

     1653   01 0094B    220005EE A            FRM      1514+4,2204,:T1ST22
            01 0094C    6AF00F3D
            01 0094D    68000951
            01 0094E    6AF0120A
            01 0094F    0000089C A
            01 00950    68000938

     1655   01 00951    68000487              B        :TIM

     1657   01 00952    0200A000     CPT22    IOCD     X'02',BA(BUFF2),X'1E',1500
            01 00953    1E0005DC A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   46
A    1659                            * TEST SIMPLE TURN-AROUNDS WITH 0, 1, 2, AND 3 BYTE RESIDUES
     1660                            * ON TRANSMIT AND ZERO REQUESTED BYTES ON RECEIVE.  TESTS ABILITY
     1661                            * OF CONTROLLER TO SHUT ITSELF OFF PROPERLY.

     1663   01 00954    22E00000 A   :T1ST23  RESET    0                 CLEAR INTERFACE, NO DELAY
            01 00955    6AF00F19

     1665   01 00956    224004D6     T1ST2301 LOOP     CPT23W0,CPT23R
            01 00957    225004E6
            01 00958    6AF00BC6

     1667   01 00959    220026AC              FAIL     TSEQ2301,2301,T1ST2301
            01 0095A    6AF0120C
            01 0095B    000008FD A
            01 0095C    68000956

     1669   01 0095D    22000104 A            FRM      256+4,2302,T1ST2301
            01 0095E    6AF00F3D
            01 0095F    68000963
            01 00960    6AF0120A
            01 00961    000008FE A
            01 00962    68000956

     1671   01 00963    5A021B8E              LCH,R0   :SAVETAB+14,R1    CHECK ARS
     1672   01 00964    35002800              STW,R0   BUFF2

     1674   01 00965    22000108 A            ARS      256+8,2303,T1ST2301
            01 00966    6AF00F59
            01 00967    6800096B
            01 00968    6AF0120A
            01 00969    000008FF A
            01 0096A    68000956

     1676   01 0096B    224004DA     T1ST2304 LOOP     CPT23W1,CPT23R
            01 0096C    225004E6
            01 0096D    6AF00BC6

     1678   01 0096E    220026AC              FAIL     TSEQ2301,2304,T1ST2304
            01 0096F    6AF0120C
            01 00970    00000900 A
            01 00971    6800096B

     1680   01 00972    22000105 A            FRM      256+1+4,2305,T1ST2304
            01 00973    6AF00F3D
            01 00974    68000978
            01 00975    6AF0120A
            01 00976    00000901 A
            01 00977    6800096B

     1682   01 00978    5A021B8E              LCH,R0   :SAVETAB+14,R1    CHECK ARS
     1683   01 00979    35002800              STW,R0   BUFF2

     1685   01 0097A    22000109 A            ARS      256+1+8,2306,T1ST2304
            01 0097B    6AF00F59
            01 0097C    68000980
            01 0097D    6AF0120A
            01 0097E    00000902 A
            01 0097F    6800096B

     1687   01 00980    224004DE     T1ST2307 LOOP     CPT23W2,CPT23R
            01 00981    225004E6
            01 00982    6AF00BC6

     1689   01 00983    220026AC              FAIL     TSEQ2301,2307,T1ST2307
            01 00984    6AF0120C
            01 00985    00000903 A
            01 00986    68000980

     1691   01 00987    22000106 A            FRM      256+2+4,2308,T1ST2307
            01 00988    6AF00F3D
            01 00989    6800098D
            01 0098A    6AF0120A
            01 0098B    00000904 A
            01 0098C    68000980

     1693   01 0098D    5A021B8E              LCH,R0   :SAVETAB+14,R1    CHECK ARS
     1694   01 0098E    35002800              STW,R0   BUFF2

     1696   01 0098F    2200010A A            ARS      256+2+8,2309,T1ST2307
            01 00990    6AF00F59
            01 00991    68000995
            01 00992    6AF0120A
            01 00993    00000905 A
            01 00994    68000980

     1698   01 00995    224004E2     T1ST2310 LOOP     CPT23W3,CPT23R
            01 00996    225004E6
            01 00997    6AF00BC6

     1700   01 00998    220026AC              FAIL     TSEQ2301,2310,T1ST2310
            01 00999    6AF0120C
            01 0099A    00000906 A
            01 0099B    68000995

     1702   01 0099C    22000107 A            FRM      256+3+4,2311,T1ST2310
            01 0099D    6AF00F3D
            01 0099E    680009A2
            01 0099F    6AF0120A
            01 009A0    00000907 A
            01 009A1    68000995

     1704   01 009A2    5A021B8E              LCH,R0   :SAVETAB+14,R1    CHECK ARS
     1705   01 009A3    35002800              STW,R0   BUFF2

     1707   01 009A4    2200010B A            ARS      256+3+8,2312,T1ST2310
            01 009A5    6AF00F59
            01 009A6    680009AA
            01 009A7    6AF0120A
            01 009A8    00000908 A
            01 009A9    68000995

     1709   01 009AA    68000487              B        :TIM

     1711         01 009AB           TSEQ2301 :TSEQ    COM00,BYTNG

     1713   01 009AC    03003FCA     CPT23W0  IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 009AD    2E000001 A
     1714   01 009AE    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 009AF    2E000001 A
     1715   01 009B0    03003FC0              IOCD     X'03',BA(MODES)+X'4',X'2E',1
            01 009B1    2E000001 A
     1716   01 009B2    01008000              IOCD     X'01',BA(BUFF1),X'1E',256+0
            01 009B3    1E000100 A
     1717   01 009B4    03003FCA     CPT23W1  IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 009B5    2E000001 A
     1718   01 009B6    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 009B7    2E000001 A
     1719   01 009B8    03003FC0              IOCD     X'03',BA(MODES)+X'4',X'2E',1
            01 009B9    2E000001 A
     1720   01 009BA    01008000              IOCD     X'01',BA(BUFF1),X'1E',256+1
            01 009BB    1E000101 A
     1721   01 009BC    03003FCA     CPT23W2  IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 009BD    2E000001 A
     1722   01 009BE    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 009BF    2E000001 A
     1723   01 009C0    03003FC0              IOCD     X'03',BA(MODES)+X'4',X'2E',1
            01 009C1    2E000001 A
     1724   01 009C2    01008000              IOCD     X'01',BA(BUFF1),X'1E',256+2
            01 009C3    1E000102 A
     1725   01 009C4    03003FCA     CPT23W3  IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 009C5    2E000001 A
     1726   01 009C6    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 009C7    2E000001 A
     1727   01 009C8    03003FC0              IOCD     X'03',BA(MODES)+X'4',X'2E',1
            01 009C9    2E000001 A
     1728   01 009CA    01008000              IOCD     X'01',BA(BUFF1),X'1E',256+3
            01 009CB    1E000103 A

     1730   01 009CC    0200A000     CPT23R   IOCD     X'02',BA(BUFF2),X'1E',0
            01 009CD    1E000000 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   47
A    1732                            * TEST SIMPLE TURN AROUNDS WITH DATA CHAINING (4-BYTE FUNCTIONALS)
     1733                            * THE FIRST FOUR TESTS ARE SIMPLE OUTPUTS AND CHAINED INPUTS
     1734                            * THE LAST FOUR TESTS ARE CHAINED OUTPUTS AND SIMPLE INPUTS

     1736   01 009CE    22E00000 A   :T1ST24  RESET    0                 CLEAR INTERFACE, NO DELAY
            01 009CF    6AF00F19

     1738   01 009D0    22000AA6              LI,R0    CPT24W0           INITIALIZE OUTPUT BUFFER
     1739   01 009D1    6AF00AB8              BAL,R15  WINIT24            TO SIMPLE COUNT PATTERN

     1741   01 009D2    2200055B              LI,R0    DA(CPT24W4)       INITIALIZE SIMPLE
     1742   01 009D3    55020AA4              STH,R0   CPT24W+6,R1        CONTIGUOUS TRANSMISSION

     1744   01 009D4    6AF00AC8     T1ST2401 BAL,R15  RINIT24           INITIALIZE INPUT BUFFER

     1746   01 009D5    2240054F              LOOP     CPT24W,CPT24R0
            01 009D6    22500547
            01 009D7    6AF00BC6

     1748   01 009D8    22002B34              FAIL     TSEQ2401,2401,T1ST2401
            01 009D9    6AF0120C
            01 009DA    00000961 A
            01 009DB    680009D4

     1750   01 009DC    22000084 A            FRM      128+4,2402,T1ST2401
            01 009DD    6AF00F3D
            01 009DE    680009E2
            01 009DF    6AF0120A
            01 009E0    00000962 A
            01 009E1    680009D4

     1752   01 009E2    22000A8E              LI,R0    CPT24R0           VERIFY INPUT BUFFER
     1753   01 009E3    6AF00ACE              BAL,R15  T1ST24CP
     1754   01 009E4    680009E8              B        T1ST2404          SKIP IF GOOD

     1756   01 009E5    6AF0120A              ERROR    2403,T1ST2401
            01 009E6    00000963 A
            01 009E7    680009D4

     1758   01 009E8    6AF00AC8     T1ST2404 BAL,R15  RINIT24           INITIALIZE INPUT BUFFER

     1760   01 009E9    2240054F              LOOP     CPT24W,CPT24R1
            01 009EA    22500549
            01 009EB    6AF00BC6

     1762   01 009EC    22002B34              FAIL     TSEQ2401,2404,T1ST2404
            01 009ED    6AF0120C
            01 009EE    00000964 A
            01 009EF    680009E8

     1764   01 009F0    12402800              LD,R4    BUFF2             SHIFT FRAME HEADER
     1765   01 009F1    25400108 A            SLD,R4   8
     1766   01 009F2    35402800              STW,R4   BUFF2

     1768   01 009F3    22000084 A            FRM      128+4,2405,T1ST2404
            01 009F4    6AF00F3D
            01 009F5    680009F9
            01 009F6    6AF0120A
            01 009F7    00000965 A
            01 009F8    680009E8

     1770   01 009F9    22000A92              LI,R0    CPT24R1           VERIFY INPUT BUFFER
     1771   01 009FA    6AF00ACE              BAL,R15  T1ST24CP
     1772   01 009FB    680009FF              B        T1ST2407          SKIP IF GOOD

     1774   01 009FC    6AF0120A              ERROR    2406,T1ST2404
            01 009FD    00000966 A
            01 009FE    680009E8

     1776   01 009FF    6AF00AC8     T1ST2407 BAL,R15  RINIT24           INITIALIZE INPUT BUFFER

     1778   01 00A00    2240054F              LOOP     CPT24W,CPT24R2
            01 00A01    2250054B
            01 00A02    6AF00BC6

     1780   01 00A03    22002B34              FAIL     TSEQ2401,2407,T1ST2407
            01 00A04    6AF0120C
            01 00A05    00000967 A
            01 00A06    680009FF

     1782   01 00A07    12402800              LD,R4    BUFF2             SHIFT FRAME HEADER
     1783   01 00A08    25400108 A            SLD,R4   8
     1784   01 00A09    35402800              STW,R4   BUFF2

     1786   01 00A0A    22000084 A            FRM      128+4,2408,T1ST2407
            01 00A0B    6AF00F3D
            01 00A0C    68000A10
            01 00A0D    6AF0120A
            01 00A0E    00000968 A
            01 00A0F    680009FF

     1788   01 00A10    22000A96              LI,R0    CPT24R2           VERIFY INPUT BUFFER
     1789   01 00A11    6AF00ACE              BAL,R15  T1ST24CP
     1790   01 00A12    68000A16              B        T1ST2410          SKIP IF GOOD

     1792   01 00A13    6AF0120A              ERROR    2409,T1ST2407
            01 00A14    00000969 A
            01 00A15    680009FF

     1794   01 00A16    6AF00AC8     T1ST2410 BAL,R15  RINIT24           INITIALIZE INPUT BUFFER

     1796   01 00A17    2240054F              LOOP     CPT24W,CPT24R3
            01 00A18    2250054D
            01 00A19    6AF00BC6

     1798   01 00A1A    22002B34              FAIL     TSEQ2401,2410,T1ST2410
            01 00A1B    6AF0120C
            01 00A1C    0000096A A
            01 00A1D    68000A16

     1800   01 00A1E    22000084 A            FRM      128+4,2411,T1ST2410
            01 00A1F    6AF00F3D
            01 00A20    68000A24
            01 00A21    6AF0120A
            01 00A22    0000096B A
            01 00A23    68000A16

     1802   01 00A24    22000A9A              LI,R0    CPT24R3           VERIFY INPUT BUFFER
     1803   01 00A25    6AF00ACE              BAL,R15  T1ST24CP
     1804   01 00A26    68000A2A              B        T1ST2413          SKIP IF GOOD

     1806   01 00A27    6AF0120A              ERROR    2412,T1ST2410
            01 00A28    0000096C A
            01 00A29    68000A16

     1808   01 00A2A    6AF00AC8     T1ST2413 BAL,R15  RINIT24           CLEAR INPUT BUFFER

     1810   01 00A2B    22000AA6              LI,R0    CPT24W0           INITIALIZE OUTPUT BUFFER
     1811   01 00A2C    6AF00AB8              BAL,R15  WINIT24

     1813   01 00A2D    22000553              LI,R0    DA(CPT24W0)       SET OUTPUT CHANNEL
     1814   01 00A2E    55020AA4              STH,R0   CPT24W+6,R1        PROGRAM

     1816   01 00A2F    2240054F              LOOP     CPT24W,CPT24R     SEND/WAIT/RECEIVE
            01 00A30    22500546
            01 00A31    6AF00BC6

     1818   01 00A32    22002D94              FAIL     TSEQGENL,2413,T1ST2413
            01 00A33    6AF0120C
            01 00A34    0000096D A
            01 00A35    68000A2A

     1820   01 00A36    22000084 A            FRM      128+4,2414,T1ST2413
            01 00A37    6AF00F3D
            01 00A38    68000A3C
            01 00A39    6AF0120A
            01 00A3A    0000096E A
            01 00A3B    68000A2A

     1822   01 00A3C    22000A8E              LI,R0    CPT24R0           VERIFY INPUT DATA
     1823   01 00A3D    6AF00ACE              BAL,R15  T1ST24CP
     1824   01 00A3E    68000A42              B        T1ST2416

     1826   01 00A3F    6AF0120A              ERROR    2415,T1ST2413
            01 00A40    0000096F A
            01 00A41    68000A2A

     1828   01 00A42    6AF00AC8     T1ST2416 BAL,R15  RINIT24           CLEAR INPUT BUFFER

     1830   01 00A43    22000AAA              LI,R0    CPT24W1           INITIALIZE OUTPUT BUFFER
     1831   01 00A44    6AF00AB8              BAL,R15  WINIT24

     1833   01 00A45    22000555              LI,R0    DA(CPT24W1)       SET OUTPUT CHANNEL
     1834   01 00A46    55020AA4              STH,R0   CPT24W+6,R1        PROGRAM

     1836   01 00A47    2240054F              LOOP     CPT24W,CPT24R     SEND/WAIT/RECEIVE
            01 00A48    22500546
            01 00A49    6AF00BC6

     1838   01 00A4A    22002D94              FAIL     TSEQGENL,2416,T1ST2416
            01 00A4B    6AF0120C
            01 00A4C    00000970 A
            01 00A4D    68000A42

     1840   01 00A4E    22000084 A            FRM      128+4,2417,T1ST2416
            01 00A4F    6AF00F3D
            01 00A50    68000A54
            01 00A51    6AF0120A
            01 00A52    00000971 A
            01 00A53    68000A42

     1842   01 00A54    22000A8E              LI,R0    CPT24R0           VERIFY INPUT DATA
     1843   01 00A55    6AF00ACE              BAL,R15  T1ST24CP
     1844   01 00A56    68000A5A              B        T1ST2419

     1846   01 00A57    6AF0120A              ERROR    2418,T1ST2416
            01 00A58    00000972 A
            01 00A59    68000A42

     1848   01 00A5A    6AF00AC8     T1ST2419 BAL,R15  RINIT24           CLEAR INPUT BUFFER

     1850   01 00A5B    22000AAE              LI,R0    CPT24W2           INITIALIZE OUTPUT BUFFER
     1851   01 00A5C    6AF00AB8              BAL,R15  WINIT24

     1853   01 00A5D    22000557              LI,R0    DA(CPT24W2)       SET OUTPUT CHANNEL
     1854   01 00A5E    55020AA4              STH,R0   CPT24W+6,R1        PROGRAM

     1856   01 00A5F    2240054F              LOOP     CPT24W,CPT24R     SEND/WAIT/RECEIVE
            01 00A60    22500546
            01 00A61    6AF00BC6

     1858   01 00A62    22002D94              FAIL     TSEQGENL,2419,T1ST2419
            01 00A63    6AF0120C
            01 00A64    00000973 A
            01 00A65    68000A5A

     1860   01 00A66    22000084 A            FRM      128+4,2420,T1ST2419
            01 00A67    6AF00F3D
            01 00A68    68000A6C
            01 00A69    6AF0120A
            01 00A6A    00000974 A
            01 00A6B    68000A5A

     1862   01 00A6C    22000A8E              LI,R0    CPT24R0           VERIFY INPUT DATA
     1863   01 00A6D    6AF00ACE              BAL,R15  T1ST24CP
     1864   01 00A6E    68000A72              B        T1ST2422

     1866   01 00A6F    6AF0120A              ERROR    2421,T1ST2419
            01 00A70    00000975 A
            01 00A71    68000A5A

     1868   01 00A72    6AF00AC8     T1ST2422 BAL,R15  RINIT24           CLEAR INPUT BUFFER

     1870   01 00A73    22000AB2              LI,R0    CPT24W3           INITIALIZE OUTPUT BUFFER
     1871   01 00A74    6AF00AB8              BAL,R15  WINIT24

     1873   01 00A75    22000559              LI,R0    DA(CPT24W3)       SET OUTPUT CHANNEL
     1874   01 00A76    55020AA4              STH,R0   CPT24W+6,R1        PROGRAM

     1876   01 00A77    2240054F              LOOP     CPT24W,CPT24R     SEND/WAIT/RECEIVE
            01 00A78    22500546
            01 00A79    6AF00BC6

     1878   01 00A7A    22002D94              FAIL     TSEQGENL,2422,T1ST2422
            01 00A7B    6AF0120C
            01 00A7C    00000976 A
            01 00A7D    68000A72

     1880   01 00A7E    22000084 A            FRM      128+4,2423,T1ST2422
            01 00A7F    6AF00F3D
            01 00A80    68000A84
            01 00A81    6AF0120A
            01 00A82    00000977 A
            01 00A83    68000A72

     1882   01 00A84    22000A8E              LI,R0    CPT24R0           VERIFY INPUT DATA
     1883   01 00A85    6AF00ACE              BAL,R15  T1ST24CP
     1884   01 00A86    68000A8A              B        T1ST2425

     1886   01 00A87    6AF0120A              ERROR    2424,T1ST2422
            01 00A88    00000978 A
            01 00A89    68000A72

     1888   01 00A8A    68000487     T1ST2425 B        :TIM

     1890   01 00A8C    0200A000     CPT24R   IOCD     X'02',BA(BUFF2),X'1E',128+8
            01 00A8D    1E000088 A

     1892   01 00A8E    0200A000     CPT24R0  IOCD     X'02',BA(BUFF2),X'8C',68
            01 00A8F    8C000044 A
     1893   01 00A90    0000A044              IOCD     X'00',BA(BUFF2)+68,X'1E',68
            01 00A91    1E000044 A
     1894   01 00A92    0200A001     CPT24R1  IOCD     X'02',BA(BUFF2)+1,X'8C',68
            01 00A93    8C000044 A
     1895   01 00A94    0000A048              IOCD     X'00',BA(BUFF2)+68+4,X'1E',68
            01 00A95    1E000044 A
     1896   01 00A96    0200A001     CPT24R2  IOCD     X'02',BA(BUFF2)+1,X'8C',68
            01 00A97    8C000044 A
     1897   01 00A98    0000A045              IOCD     X'00',BA(BUFF2)+68+1,X'1E',68
            01 00A99    1E000044 A
     1898   01 00A9A    0200A000     CPT24R3  IOCD     X'02',BA(BUFF2),X'8C',68
            01 00A9B    8C000044 A
     1899   01 00A9C    0000A045              IOCD     X'00',BA(BUFF2)+68+1,X'1E',68
            01 00A9D    1E000044 A

     1901   01 00A9E    03003FCA     CPT24W   IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 00A9F    2E000001 A
     1902   01 00AA0    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1
            01 00AA1    2E000001 A
     1903   01 00AA2    03003FC0              IOCD     X'03',BA(MODES)+X'4',X'2E',1
            01 00AA3    2E000001 A
     1904   01 00AA4    08000000 A            IOCD     X'08',0,0,0
            01 00AA5    00000000 A
     1905   01 00AA6    01008000     CPT24W0  IOCD     X'01',BA(BUFF1)+00,X'8C',64
            01 00AA7    8C000040 A
     1906   01 00AA8    00008040              IOCD     X'00',BA(BUFF1)+64,X'1E',64
            01 00AA9    1E000040 A
     1907   01 00AAA    01008001     CPT24W1  IOCD     X'01',BA(BUFF1)+01,X'8C',64
            01 00AAB    8C000040 A
     1908   01 00AAC    00008044              IOCD     X'00',BA(BUFF1)+68,X'1E',64
            01 00AAD    1E000040 A
     1909   01 00AAE    01008001     CPT24W2  IOCD     X'01',BA(BUFF1)+01,X'8C',64
            01 00AAF    8C000040 A
     1910   01 00AB0    00008041              IOCD     X'00',BA(BUFF1)+65,X'1E',64
            01 00AB1    1E000040 A
     1911   01 00AB2    01008000     CPT24W3  IOCD     X'01',BA(BUFF1)+00,X'8C',64
            01 00AB3    8C000040 A
     1912   01 00AB4    00008041              IOCD     X'00',BA(BUFF1)+65,X'1E',64
            01 00AB5    1E000040 A
     1913   01 00AB6    01008000     CPT24W4  IOCD     X'01',BA(BUFF1),X'1E',128
            01 00AB7    1E000080 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   48
A    1915   01 00AB8    B2400000 A   WINIT24  LW,R4    *R0               FETCH FIRST IOCD
     1916   01 00AB9    4B401BB5              AND,R4   =X'FFFFFF'         ISOLATE BYTE ADDRESS

     1918   01 00ABA    22500000 A            LI,R5    0                 INITIALIZE INDEX

     1920   01 00ABB    75580000 A            STB,R5   0,R4              STORE INTO BUFFER

     1922   01 00ABC    20400001 A            AI,R4    1
     1923   01 00ABD    20500001 A            AI,R5    1                 UPDATE INDEX
     1924   01 00ABE    21500040 A            CI,R5    64                 AND WATCH FOR END OF LINK
     1925   01 00ABF    69100ABB              BL       %-4

     1927   01 00AC0    B2440000 A            LW,R4    *R0,R2            FETCH SECOND IOCD
     1928   01 00AC1    4B401BB5              AND,R4   =X'FFFFFF'         ISOLATE BYTE ADDRESS

     1930   01 00AC2    75580000 A            STB,R5   0,R4              STORE INTO BUFFER

     1932   01 00AC3    20400001 A            AI,R4    1
     1933   01 00AC4    20500001 A            AI,R5    1
     1934   01 00AC5    21500080 A            CI,R5    128
     1935   01 00AC6    69100AC2              BL       %-4

     1937   01 00AC7    E800000F A            B        *R15

     1939   01 00AC8    224FFFFF A   RINIT24  LI,R4    -1
     1940   01 00AC9    225FFFDD A            LI,R5    -136/4-1

     1942   01 00ACA    354A2823              STW,R4   BUFF2+136/4+1,R5
     1943   01 00ACB    65500ACA              BIR,R5   %-1

     1945   01 00ACC    E800000F A            B        *R15

     1947         01 00ACD           TSEQ2401 :TSEQ    BYT00,COM01

     1949   01 00ACE    09F00412     T1ST24CP ENTER                      VERIFY COUNT PATTERN IN INPUT
     1950   01 00ACF    35000B08              STW,R0   ST24CPTS

     1952   01 00AD0    B2400000 A            LW,R4    *R0               GET IOCD FOR LINK ONE
     1953   01 00AD1    4B401BB5              AND,R4   =X'FFFFFF'         ISOLATE BA(BUFFER)
     1954   01 00AD2    20400004 A            AI,R4    4                   SKIP HEADER

     1956   01 00AD3    22500000 A            LI,R5    0                 START SCAN AND PATTERN

     1958   01 00AD4    71580000 A   ST24CPTY CB,R5    0,R4              COMPARE EXP AND OBS
     1959   01 00AD5    69300AE4              BNE      ST24CPTZ           SKIP ON ERROR

     1961   01 00AD6    20500001 A            AI,R5    1                 ADVANCE COUNT
     1962   01 00AD7    20400001 A            AI,R4    1                  AND BA(BUFFER)

     1964   01 00AD8    21500040 A            CI,R5    64                LOOK FOR END-OF-LINK
     1965   01 00AD9    69100AD4              BL       ST24CPTY           CONTINUE IF NOT TRUE

     1967   01 00ADA    B2440000 A            LW,R4    *R0,R2            GET IOCD FOR LINK TWO
     1968   01 00ADB    4B401BB5              AND,R4   =X'FFFFFF'         ISOLATE BA(BUFFER)

     1970   01 00ADC    71580000 A   ST24CPTX CB,R5    0,R4              COMPARE EXP AND OBS
     1971   01 00ADD    69300AE4              BNE      ST24CPTZ           SKIP ON ERROR

     1973   01 00ADE    20500001 A            AI,R5    1                 ADVANCE COUNT
     1974   01 00ADF    20400001 A            AI,R4    1                  AND BA(BUFFER)

     1976   01 00AE0    21500080 A            CI,R5    128               LOOK FOR END-OF-LINK
     1977   01 00AE1    69100ADC              BL       ST24CPTX           CONTINUE IF NOT TRUE

     1979   01 00AE2    08F00412              EXIT                       RETURN: NORMAL
            01 00AE3    E800000F A

     1981   01 00AE4    92C00B08     ST24CPTZ LD,R12   *ST24CPTS         DISPLAY IOCDS
     1982   01 00AE5    6AF0103F              BAL,R15  IOCDMSG
     1983   01 00AE6    92C20B08              LD,R12   *ST24CPTS,R1
     1984   01 00AE7    6AF0103F              BAL,R15  IOCDMSG

     1986   01 00AE8    32C00005 A            LW,R12   R5                DISPLAY EXP PATTERN
     1987   01 00AE9    EAF00218              BAL,R15  *:HEXC
     1988   01 00AEA    55F20B02              STH,R15  CMPMSG24+6,R1

     1990   01 00AEB    32C00004 A            LW,R12   R4                COMPUTE ADDRESS
     1991   01 00AEC    25C0007E A            SLS,R12  -2                 OF OBSERVED WORD
     1992   01 00AED    B2D0000C A            LW,R13   *R12                AND FETCH IT

     1994   01 00AEE    EAF00218              BAL,R15  *:HEXC            DISPLAY ADDRESS
     1995   01 00AEF    55F00AFF              STH,R15  CMPMSG24+3         OF OBSERVED WORD
     1996   01 00AF0    25F00070 A            SLS,R15  -16
     1997   01 00AF1    55F20AFE              STH,R15  CMPMSG24+2,R1

     1999   01 00AF2    32C0000D A            LW,R12   R13               DISPLAY ACTUAL
     2000   01 00AF3    EAF00218              BAL,R15  *:HEXC             OBSERVED WORD
     2001   01 00AF4    35F00B07              STW,R15  CMPMSG24+11
     2002   01 00AF5    EAF00218              BAL,R15  *:HEXC
     2003   01 00AF6    35F00B06              STW,R15  CMPMSG24+10

     2005   01 00AF7    EAF0021C              BAL,R15  *:PRINT
     2006   01 00AF8    00000AFC              DATA     CMPMSG24

     2008   01 00AF9    B3100412              MTW,1    *DPM:STK
     2009   01 00AFA    08F00412              EXIT                       RETURN: ERROR
            01 00AFB    E800000F A

     2011                            CMPMSG24 TEXTC    'OBS BUF: XXXX, EXP BYTE: XX, ',;
     2012   01 00AFC    2FD6C2E2 A                     'OBS WORD: XXXXXXXX'
            01 00AFD    40C2E4C6 A
            01 00AFE    7A40E7E7 A
            01 00AFF    E7E76B40 A
            01 00B00    C5E7D740 A
            01 00B01    C2E8E3C5 A
            01 00B02    7A40E7E7 A
            01 00B03    6B40D6C2 A
            01 00B04    E240E6D6 A
            01 00B05    D9C47A40 A
            01 00B06    E7E7E7E7 A
            01 00B07    E7E7E7E7 A

     2014   01 00B08                 ST24CPTS RES      1
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   49
A    2016                            * INTERNAL LOOPBACK TEST (SLIDING ONE)

     2018   01 00B09    6AF00B66     :T1ST25  BAL,R15  CINIT25           INITIALIZE COMPARE

     2020   01 00B0A    22E0028A A            RESET                      CLEAR INTERFACE
            01 00B0B    6AF00F19

     2022   01 00B0C    220005C4              LI,R0    DA(CPT25W)        PERFORM LOOP
     2023   01 00B0D    6AF00B41              BAL,R15  OLOOP25

     2025   01 00B0E    68000487              B        :TIM

     2027                            * INTERNAL LOOPBACK TEST (SLIDING ZERO)

     2029   01 00B0F    6AF00B66     :T1ST26  BAL,R15  CINIT25           INITIALIZE COMPARE

     2031   01 00B10    22E0028A A            RESET
            01 00B11    6AF00F19

     2033   01 00B12    220005C4              LI,R0    DA(CPT25W)        PERFORM LOOP
     2034   01 00B13    6AF00B31              BAL,R15  ZLOOP25

     2036   01 00B14    68000487              B        :TIM
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   50
A    2038                            * INTERFACE LOOPBACK TEST (SLIDING ONE)

     2040   01 00B15    6AF00B66     :T1ST27  BAL,R15  CINIT25

     2042   01 00B16    22E0028A A            RESET                      CLEAR INTERFACE
            01 00B17    6AF00F19

     2044   01 00B18    220005C8              LI,R0    DA(CPT27W)
     2045   01 00B19    6AF00B41              BAL,R15  OLOOP25

     2047   01 00B1A    68000487              B        :TIM

     2049                            * INTERFACE LOOPBACK TEST (SLIDING ZERO)

     2051   01 00B1B    6AF00B66     :T1ST28  BAL,R15  CINIT25           INITIALIZE COMPARE

     2053   01 00B1C    22E0028A A            RESET                      CLEAR INTERFACE
            01 00B1D    6AF00F19

     2055   01 00B1E    220005C8              LI,R0    DA(CPT27W)        PERFORM LOOP
     2056   01 00B1F    6AF00B31              BAL,R15  ZLOOP25

     2058   01 00B20    68000487              B        :TIM
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   51
A    2060                            * ONLINE LOOPBACK TEST (SLIDING ONE)

     2062   01 00B21    6AF00B66     :T1ST29  BAL,R15  CINIT25

     2064   01 00B22    22E0028A A            RESET                      CLEAR INTERFACE
            01 00B23    6AF00F19

     2066   01 00B24    220005CC              LI,R0    DA(CPT29W)
     2067   01 00B25    6AF00B41              BAL,R15  OLOOP25

     2069   01 00B26    22E0028A A            RESET                      CLEAR INTERFACE AGAIN
            01 00B27    6AF00F19

     2071   01 00B28    68000487              B        :TIM

     2073                            * ONLINE LOOPBACK TEST (SLIDING ZERO)

     2075   01 00B29    6AF00B66     :T1ST30  BAL,R15  CINIT25           INITIALIZE COMPARE

     2077   01 00B2A    22E0028A A            RESET                      CLEAR INTERFACE
            01 00B2B    6AF00F19

     2079   01 00B2C    220005CC              LI,R0    DA(CPT29W)        PERFORM LOOP
     2080   01 00B2D    6AF00B31              BAL,R15  ZLOOP25

     2082   01 00B2E    22E0028A A            RESET                      CLEAR INTERFACE AGAIN
            01 00B2F    6AF00F19

     2084   01 00B30    68000487              B        :TIM
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   52
A    2086                            * GENERAL SLIDING ZERO LOOP

     2088   01 00B31    09F00412     ZLOOP25  ENTER
     2089   01 00B32    35000B82              STW,R0   IOCD25            SAVE WRITE IOCD

     2091   01 00B33    32001BB6              LW,R0    =X'7FFFFFFF'      INITIALIZE WRITE PATTERN
     2092   01 00B34    35000B84              STW,R0   WPAT25
     2093   01 00B35    22000000 A            LI,R0    0                 INITIALIZE READ BACKGROUND
     2094   01 00B36    35000B85              STW,R0   RPAT25

     2096   01 00B37    6AF00B4F     ZLP0     BAL,R15  LOOP25            PERFORM LOOP STEP

     2098   01 00B38    32500B84              LW,R5    WPAT25            FETCH WRITE PATTERN
     2099   01 00B39    224FFFFF A            LI,R4    -1                 STOP AT FFFFFFFF
     2100   01 00B3A    2540017F A            SLD,R4   -1                  TO AVOID ANY BROADCASTING

     2102   01 00B3B    215FFFFF A            CI,R5    -1
     2103   01 00B3C    68300B3F              BE       ZLP1

     2105   01 00B3D    35500B84              STW,R5   WPAT25
     2106   01 00B3E    68000B37              B        ZLP0

     2108   01 00B3F    08F00412     ZLP1     EXIT
            01 00B40    E800000F A

     2110                            * GENERAL SLIDING ONE LOOP

     2112   01 00B41    09F00412     OLOOP25  ENTER
     2113   01 00B42    35000B82              STW,R0   IOCD25            SAVE WRITE IOCD

     2115   01 00B43    32001BB7              LW,R0    =X'80000000'      INITIALIZE WRITE PATTERN
     2116   01 00B44    35000B84              STW,R0   WPAT25
     2117   01 00B45    220FFFFF A            LI,R0    -1                INITIALIZE READ BACKGROUND
     2118   01 00B46    35000B85              STW,R0   RPAT25

     2120   01 00B47    6AF00B4F     OLP0     BAL,R15  LOOP25            PERFORM LOOP STEP

     2122   01 00B48    32400B84              LW,R4    WPAT25            FETCH WRITE PATTERN
     2123   01 00B49    68300B4D              BEZ      OLP1               STOP IF COMPLETED

     2125   01 00B4A    2540007F A            SLS,R4   -1                ELSE SHIFT ONE OVER, ZERO IN
     2126   01 00B4B    35400B84              STW,R4   WPAT25
     2127   01 00B4C    68000B47              B        OLP0

     2129   01 00B4D    08F00412     OLP1     EXIT
            01 00B4E    E800000F A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   53
A    2131                            * VARIOUS UTILITIES FOR THE LOOPBACK TESTS

     2133   01 00B4F    09F00412     LOOP25   ENTER
     2134   01 00B50    6AF00B74              BAL,R15  WINIT25           INITIALIZE OUTPUT

     2136   01 00B51    6AF00B7B     LP0      BAL,R15  RINIT25           INITIALIZE INPUT

     2138   01 00B52    12400B82     LP2      LD,R4    IOCD25            PERFORM WRITE/WAIT/READ
     2139   01 00B53    6AF00BC6              LOOP

     2141   01 00B54    22002D94              FAIL     TSEQGENL,9980,LP0
            01 00B55    6AF0120C
            01 00B56    000026FC A
            01 00B57    68000B51

     2143   01 00B58    22000044 A            FRM      64+4,9981,LP0
            01 00B59    6AF00F3D
            01 00B5A    68000B5E
            01 00B5B    6AF0120A
            01 00B5C    000026FD A
            01 00B5D    68000B51

     2145   01 00B5E    6AF01850              BAL,R15  :COMPARE          COMPARE EXP AND OBS
     2146   01 00B5F    68000B63              B        LP1                SKIP IF GOOD

     2148   01 00B60    6AF0120A              ERROR    9982,LP0
            01 00B61    000026FE A
            01 00B62    68000B51

     2150   01 00B63    08F00412     LP1      EXIT
            01 00B64    E800000F A

     2152         01 00B65           TSEQGENL :TSEQ    BYT00,COM00

     2154   01 00B66    09F00412     CINIT25  ENTER

     2156   01 00B67    22002000              LI,R0    BUFF1             EXPECTED BUFFER
     2157   01 00B68    350018B5              STW,R0   :COMBFRA
     2158   01 00B69    22002801              LI,R0    BUFF2+1           OBSERVED BUFFER
     2159   01 00B6A    350018B6              STW,R0   :COMBFRB
     2160   01 00B6B    22000010 A            LI,R0    64/4              SIZE IN WORDS
     2161   01 00B6C    350018B4              STW,R0   :COMWCNT
     2162   01 00B6D    22000000 A            LI,R0    0                 RESET PRINT INHIBIT
     2163   01 00B6E    350018B7              STW,R0   :COMFLAG
     2164   01 00B6F    351018B8              STW,R1   :COMPLIN          SET DISPLAY LIMIT

     2166   01 00B70    22000B84              LI,R0    WPAT25            SET GENERAL ERROR KEY
     2167   01 00B71    35001251              STW,R0   GENKEY

     2169   01 00B72    08F00412              EXIT
            01 00B73    E800000F A

     2171   01 00B74    09F00412     WINIT25  ENTER

     2173   01 00B75    32400B84              LW,R4    WPAT25            SET OUTPUT BUFFER
     2174   01 00B76    225FFFF0 A            LI,R5    -64/4              TO THIS PATTERN WORD

     2176   01 00B77    354A2010              STW,R4   BUFF1+64/4,R5
     2177   01 00B78    65500B77              BIR,R5   %-1

     2179   01 00B79    08F00412              EXIT
            01 00B7A    E800000F A

     2181   01 00B7B    09F00412     RINIT25  ENTER

     2183   01 00B7C    32400B85              LW,R4    RPAT25            SET INPUT BUFFER
     2184   01 00B7D    225FFFEE A            LI,R5    -64/4-2            TO THIS PATTERN WORD

     2186   01 00B7E    354A2812              STW,R4   BUFF2+64/4+2,R5
     2187   01 00B7F    65500B7E              BIR,R5   %-1

     2189   01 00B80    08F00412              EXIT
            01 00B81    E800000F A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   54
A    2191                            * DATA FOR LOOPBACK TESTS

     2193                                     BOUND    8
     2194   01 00B82    00000000 A   IOCD25   DATA     0
     2195   01 00B83    000005C3              DATA     DA(CPT25R)

     2197   01 00B84                 WPAT25   RES      1
     2198   01 00B85                 RPAT25   RES      1

     2200   01 00B86    0200A000     CPT25R   IOCD     X'02',BA(BUFF2),X'1E',64+2+2+4
            01 00B87    1E000048 A

     2202   01 00B88    03003FCA     CPT25W   IOCD     X'03',BA(MODES)+X'E',X'2E',1 INTERNAL
            01 00B89    2E000001 A
     2203   01 00B8A    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1  LOOPBACK
            01 00B8B    2E000001 A
     2204   01 00B8C    03003FC0              IOCD     X'03',BA(MODES)+X'4',X'2E',1
            01 00B8D    2E000001 A
     2205   01 00B8E    01008000              IOCD     X'01',BA(BUFF1),X'1E',64
            01 00B8F    1E000040 A

     2207   01 00B90    03003FCA     CPT27W   IOCD     X'03',BA(MODES)+X'E',X'2E',1 INTERFACE
            01 00B91    2E000001 A
     2208   01 00B92    03003FBD              IOCD     X'03',BA(MODES)+X'1',X'2E',1  LOOPBACK
            01 00B93    2E000001 A
     2209   01 00B94    03003FC0              IOCD     X'03',BA(MODES)+X'4',X'2E',1
            01 00B95    2E000001 A
     2210   01 00B96    01008000              IOCD     X'01',BA(BUFF1),X'1E',64
            01 00B97    1E000040 A

     2212   01 00B98    03003FCA     CPT29W   IOCD     X'03',BA(MODES)+X'E',X'2E',1 ONLINE
            01 00B99    2E000001 A
     2213   01 00B9A    03003FC5              IOCD     X'03',BA(MODES)+X'9',X'2E',1  LOOPBACK
            01 00B9B    2E000001 A
     2214   01 00B9C    03003FC0              IOCD     X'03',BA(MODES)+X'4',X'2E',1
            01 00B9D    2E000001 A
     2215   01 00B9E    01008000              IOCD     X'01',BA(BUFF1),X'1E',64
            01 00B9F    1E000040 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   55
A    2217                            * TESTS ONLINE SELF-DIAGNOSTIC MODE X'13' (FORCE COLLISION)

     2219   01 00BA0    22E0028A A   :T1ST31  RESET
            01 00BA1    6AF00F19

     2221   01 00BA2    220005DA              IOTST    CPT31W,TSEQ3101,3101
            01 00BA3    6AF0104D
            01 00BA4    22002EA4
            01 00BA5    6AF0120C
            01 00BA6    00000C1D A
            01 00BA7    68000BA2

     2223   01 00BA8    68000487              B        :TIM

     2225                            TSEQ3101 :TSEQ    TIO(X'10',X'80'),OSB(X'00'),TDV(X'00',X'0F'),;
     2226         01 00BA9                             AIO(X'00'),ISB(X'10'),BYT00,COM01

     2228   01 00BB4    03003FC5     CPT31W   IOCD     X'03',BA(MODES)+X'09',X'2E',1
            01 00BB5    2E000001 A
     2229   01 00BB6    03003FCF              IOCD     X'03',BA(MODES)+X'13',X'1E',1
            01 00BB7    1E000001 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   56
A    2231                            * TESTS ONLINE SELF-DIAGNOSTIC MODE X'12' (NETWORK LOOPBACK)

     2233   01 00BB8    22E0028A A   :T1ST32  RESET                              CLEAR
            01 00BB9    6AF00F19

     2235   01 00BBA    220005E1              IOTST    CPT32W,TSEQ3101,3201      XMIT
            01 00BBB    6AF0104D
            01 00BBC    22002EA4
            01 00BBD    6AF0120C
            01 00BBE    00000C81 A
            01 00BBF    68000BBA

     2237   01 00BC0    68000487              B        :TIM

     2239   01 00BC2    03003FC5     CPT32W   IOCD     X'03',BA(MODES)+X'09',X'2E',1
            01 00BC3    2E000001 A
     2240   01 00BC4    03003FCE              IOCD     X'03',BA(MODES)+X'12',X'1E',1
            01 00BC5    1E000001 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   57
A    2242   01 00BC6    09F00412     GENLOOP  ENTER
     2243   01 00BC7    15400BF2              STD,R4   GENLCPTS          SAVE CHANNEL PROGRAMS

     2245   01 00BC8    32000BF2     GENL0    LW,R0    GENLCPTS+0        START THE WRITE
     2246   01 00BC9    6AF0104D              IOXEQ

     2248   01 00BCA    22002F6C              FAIL     TSEQGENW,9990,GENL0
            01 00BCB    6AF0120C
            01 00BCC    00002706 A
            01 00BCD    68000BC8

     2250   01 00BCE    6AF00BF4              BAL,R15  MYATTN            WAIT FOR THE ATTENTION

     2252   01 00BCF    22002FFC              FAIL     TSEQATTN,9991,GENL0
            01 00BD0    6AF0120C
            01 00BD1    00002707 A
            01 00BD2    68000BC8

     2254   01 00BD3    32000BF3              LW,R0    GENLCPTS+1        START THE READ
     2255   01 00BD4    6AF0104D              IOXEQ

     2257   01 00BD5    22002F98              FAIL     TSEQGENR,9992,GENL0
            01 00BD6    6AF0120C
            01 00BD7    00002708 A
            01 00BD8    68000BC8

     2259   01 00BD9    08F00412              EXIT
            01 00BDA    E800000F A

     2261                            TSEQGENW :TSEQ    TIO(X'10',X'80'),OSB(X'00'),TDV(X'00',X'0F'),;
     2262         01 00BDB                             AIO(X'00'),ISB(X'10'),BYT00

     2264                            TSEQGENR :TSEQ    TIO(X'10'),OSB(X'00'),TDV(X'00',X'0F'),;
     2265         01 00BE6                             AIO(X'00'),ISB(X'10')

     2267                                     BOUND    8
     2268   01 00BF2                 GENLCPTS RES      2

     2270   01 00BF4    09F00412     MYATTN   ENTER                      SERVICE ATTENTION

     2272   01 00BF5    22E000FA A            LI,R14   250               SET THRESHOLD AT 250
     2273   01 00BF6    6AF01920              BAL,R15  :DELAYAT           MILLISECONDS WHILE WAITING
     2274   01 00BF7    68000BFD              B        MYATTN0             FOR THE ATTENTION

     2276   01 00BF8    22CFFFFF A            LI,R12   -1
     2277   01 00BF9    22DFFFFF A            LI,R13   -1
     2278   01 00BFA    6AF01B6E              BAL,R15  :SAVEAIO          FAKE THE AIO STATUS

     2280   01 00BFB    EAF0021C              BAL,R15  *:PRINT
     2281   01 00BFC    00000C06              DATA     NOATTN            ISSUE MISSING ATTENTION MSG

     2283   01 00BFD    08F00412     MYATTN0  EXIT
            01 00BFE    E800000F A

     2285         01 00BFF           TSEQATTN :TSEQ    AIO(X'01'),ISB(X'00'),TDV(X'00',X'0F')

     2287   01 00C06    1FC5E7D7 A   NOATTN   TEXTC    'EXPECTED ATTENTION NOT RECEIVED'
            01 00C07    C5C3E3C5 A
            01 00C08    C440C1E3 A
            01 00C09    E3C5D5E3 A
            01 00C0A    C9D6D540 A
            01 00C0B    D5D6E340 A
            01 00C0C    D9C5C3C5 A
            01 00C0D    C9E5C5C4 A

     2289                            TSEQNRML :TSEQ    TIO(X'10',X'80'),OSB(X'00'),TDV(X'00',X'0F'),;
     2290         01 00C0E                             AIO(X'00'),ISB(X'10'),BYT00

     2292                            * ATTEMPT TO OVERFLOW THE NM-10 INPUT BUFFER
     2293                            * BY EXECUTING REPETITIVE SELF-TRANSMISSIONS. THE SENSE
     2294                            * STATISTICS ARE GATHERED AND EXAMINED FOR CONSISTENCY.

     2296   01 00C19    22E00000 A   :T1ST33  RESET    0
            01 00C1A    6AF00F19

     2298   01 00C1B    6AF01054              BAL,R15  RECOMPAT          SET COMPARE AND GENERATION

     2300   01 00C1C    32000459              LW,R0    :DEVADDR          SET IDENTICAL UNITS
     2301   01 00C1D    350011D0              STW,R0   UNIT0              FOR USE BY RANDOM EXERCISER
     2302   01 00C1E    350011D1              STW,R0   UNIT1               ROUTINES

     2304   01 00C1F    22000177 A            LI,R0    (1514-12)/4       WORD COUNT TO
     2305   01 00C20    350018B4              STW,R0   :COMWCNT           COMPARE AND TO
     2306   01 00C21    3500184D              STW,R0   :PATWCNT            GENERATE

     2308   01 00C22    220005EE A            LI,R0    1514+4            SIZE OF FRAME INPUT
     2309   01 00C23    350011D7              STW,R0   RELENG             FOR HEADER VERIFICATION

     2311   01 00C24    12400C8A              LD,R4    CPT33W            WRITE CHANNEL PROGRAM
     2312   01 00C25    15401254              STD,R4   WRRAND

     2314   01 00C26    12400C8C              LD,R4    CPT33R            READ CHANNEL PROGRAM
     2315   01 00C27    1540127C              STD,R4   RFRAND

     2317   01 00C28    22000000 A            LI,R0    0                 SUPPRESS TRANSMISSION
     2318   01 00C29    350011D6              STW,R0   REMASK1            ON UNIT1

     2320   01 00C2A    220011D2              LI,R0    RECNT             SET GENERAL ERROR KEY
     2321   01 00C2B    35001251              STW,R0   GENKEY

     2323   01 00C2C    32000330              LW,R0    :CDB+1            CHECK FOR NETWORK PRESENT
     2324   01 00C2D    21000001 A            CI,R0    1                  AND SKIP IF NONE
     2325   01 00C2E    69400C36              BANZ     T1ST3301

     2327   01 00C2F    220008E0     T1ST3300 IOTST    SNSEONLN,TSEQNRML,3300 SENSE, GO ONLINE
            01 00C30    6AF0104D
            01 00C31    22003038
            01 00C32    6AF0120C
            01 00C33    00000CE4 A
            01 00C34    68000C2F

     2329   01 00C35    68000C3C              B        T1ST3302

     2331   01 00C36    220008E3     T1ST3301 IOTST    SNSELOOP,TSEQNRML,3301 SENSE, GO LOOPBACK
            01 00C37    6AF0104D
            01 00C38    22003038
            01 00C39    6AF0120C
            01 00C3A    00000CE5 A
            01 00C3B    68000C36

     2333   01 00C3C    32402801     T1ST3302 LW,R4    BUFF2+1           GET PHYSICAL ADDRESS
     2334   01 00C3D    32502802              LW,R5    BUFF2+2            OF THIS UNIT
     2335   01 00C3E    154011CC              STD,R4   PHYSADD0
     2336   01 00C3F    154011CE              STD,R4   PHYSADD1

     2338   01 00C40    6AF01813              BAL,R15  :PATTERN          GENERATE OUTPUT DATA

     2340   01 00C41    2200000B A            LI,R0    11                NUMBER OF FRAMES TO TRANSMIT
     2341   01 00C42    350011D2              STW,R0   RECNT
     2342   01 00C43    350011D3              STW,R0   RECNT0

     2344   01 00C44    6AF0113F              BAL,R15  REXMT0            TRANSMIT ON UNIT0
     2345   01 00C45    33F011D2              MTW,-1   RECNT              THE LAST FRAME SHOULD
     2346   01 00C46    69300C44              BNEZ     %-2                 OVERFLOW AND BE LOST

     2348   01 00C47    320011D3              LW,R0    RECNT0            SET NUMBER OF
     2349   01 00C48    200FFFFD A            AI,R0    -3                 FRAMES TO RECEIVE
     2350   01 00C49    350011D2              STW,R0   RECNT               TWO LESS THAN THE
     2351   01 00C4A    350011D3              STW,R0   RECNT0               NUMBER TRANSMITTED

     2353   01 00C4B    6AF01158              BAL,R15  RERCV1            READ ALL FRAMES
     2354   01 00C4C    33F011D2              MTW,-1   RECNT              IN THE FIFO
     2355   01 00C4D    69300C4B              BNEZ     %-2                 (NO ERROR NOTICED)

     2357   01 00C4E    22000000 A            LI,R0    0                 SET FRAMES TO
     2358   01 00C4F    350011D2              STW,R0   RECNT              WRITE AND READ
     2359   01 00C50    350011D3              STW,R0   RECNT0              (FOR ATTENTION PROCESSING)

     2361   01 00C51    6AF0113F              BAL,R15  REXMT0            SEND ONE FRAME

     2363   01 00C52    22401158              LI,R4    RERCV1            ASSUME NO NETWORK

     2365   01 00C53    32000330              LW,R0    :CDB+1            CORRECT IF
     2366   01 00C54    21000001 A            CI,R0    1                  NETWORK ACTUALLY
     2367   01 00C55    69400C57              BANZ     %+2                 PRESENT

     2369   01 00C56    22400C72              LI,R4    RERCVS            NETWORK PRESENT

     2371   01 00C57    EAF00004 A            BAL,R15  *R4

     2373   01 00C58    6AF0113F              BAL,R15  REXMT0            SEND LAST FRAME

     2375   01 00C59    6AF01158              BAL,R15  RERCV1            READ LAST FRAME (NORMAL)

     2377   01 00C5A    22000CAA              LI,R0    BUFF33S           VERIFY STATISTICS
     2378   01 00C5B    6AF00C5D              BAL,R15  GENSNSE

     2380   01 00C5C    68000487              B        :TIM

     2382   01 00C5D    09F00412     GENSNSE  ENTER

     2384   01 00C5E    6AF00D2D              BAL,R15  SNSECOMP          SET FOR COMPARE

     2386   01 00C5F    22000647              IOTST    CPT33S,TSEQ3304,3304 GATHER SENSE STATISTICS
            01 00C60    6AF0104D
            01 00C61    2200327C
            01 00C62    6AF0120C
            01 00C63    00000CE8 A
            01 00C64    68000C5F

     2388   01 00C65    2200003E A            FRM      62,3305           VERIFY FRAME FORMAT
            01 00C66    6AF00F3D
            01 00C67    68000C6B
            01 00C68    6AF0120A
            01 00C69    00000CE9 A
            01 00C6A    68000C6B

     2390   01 00C6B    6AF01850              BAL,R15  :COMPARE          COMPARE OBS WITH EXP STATS
     2391   01 00C6C    68000C70              B        GENSNSE0           SKIP IF EQUALITY

     2393   01 00C6D    6AF0120A              ERROR    3306              ELSE ERROR MESSAGE
            01 00C6E    00000CEA A
            01 00C6F    68000C70

     2395   01 00C70    08F00412     GENSNSE0 EXIT
            01 00C71    E800000F A

     2397   01 00C72    09F00412     RERCVS   ENTER                      SPECIAL READ

     2399   01 00C73    320011D1              LW,R0    UNIT1             READ ON UNIT1 WITHOUT
     2400   01 00C74    35000459              STW,R0   :DEVADDR           WAITING FOR ATTENTION

     2402   01 00C75    6AF01106              BAL,R15  RECLEAR           CLEAR INPUT BUFFER

     2404   01 00C76    2200093E              IOTST    RFRAND,TSEQ3301,3301 READ ONE FRAME
            01 00C77    6AF0104D
            01 00C78    22003250
            01 00C79    6AF0120C
            01 00C7A    00000CE5 A
            01 00C7B    68000C76

     2406   01 00C7C    32001BB8              REFRM    L(1514+4+X'04000000'),3302 VERIFY FRAME FORMAT
            01 00C7D    6AF00F3D
            01 00C7E    68000C82
            01 00C7F    6AF0120A
            01 00C80    00000CE6 A
            01 00C81    68000C82

     2408   01 00C82    6AF01850              BAL,R15  :COMPARE          COMPARE OBSERVED AND
     2409   01 00C83    68000C87              B        RERCVS0            EXPECTED DATA, SKIP IF OK

     2411   01 00C84    6AF0120A              ERROR    3303              ELSE ERROR MESSAGE
            01 00C85    00000CE7 A
            01 00C86    68000C87

     2413   01 00C87    08F00412     RERCVS0  EXIT
            01 00C88    E800000F A

     2415   01 00C8A    01008000     CPT33W   IOCD     X'01',BA(BUFF1),X'1E',1514-12
            01 00C8B    1E0005DE A

     2417   01 00C8C    0200A000     CPT33R   IOCD     X'02',BA(BUFF2),X'1E',1514+2+2+4
            01 00C8D    1E0005F2 A

     2419   01 00C8E    0400A000     CPT33S   IOCD     X'04',BA(BUFF2),X'8E',4
            01 00C8F    8E000004 A
     2420   01 00C90    0000A004              IOCD     X'00',BA(BUFF2)+4,X'8F',6
            01 00C91    8F000006 A
     2421   01 00C92    0000A004              IOCD     X'00',BA(BUFF2)+4,X'1E',66-6-4
            01 00C93    1E000038 A

     2423                            TSEQ3301 :TSEQ    TIO(X'18',X'80'),OSB(X'42'),TDV(X'40',X'0F'),;
     2424         01 00C94                             AIO(X'40'),ISB(X'58'),COM00,BYT00

     2426                            TSEQ3304 :TSEQ    TIO(X'10'),OSB(X'00'),TDV(X'00',X'0F'),;
     2427         01 00C9F                             AIO(X'00'),ISB(X'10'),COM02,BYT00

     2429   01 00CAA    0A       A   BUFF33S  DATA,1   10,0              FRAMES RECEIVED
            01 00CAA 1  00       A
     2430   01 00CAA 2  0000     A            DATA,2   0                 FRAMES IN RECEIVE FIFO
     2431   01 00CAB    0D       A            DATA,1   13,0              FRAMES TRANSMITTED
            01 00CAB 1  00       A
     2432   01 00CAB 2  0000     A            DATA,2   0                 EXCESS COLLISIONS
     2433   01 00CAC    0000     A            DATA,2   0                 COLLISION FRAGMENTS RECEIVED
     2434   01 00CAC 2  03       A            DATA,1   3,0               NUMBER OF OVERRUNS
            01 00CAC 3  00       A
     2435   01 00CAD    0000     A            DATA,2   0                 MULTICAST FRAMES ACCEPTED
     2436   01 00CAD 2  0000     A            DATA,2   0                 MULTICAST FRAMES REJECTED
     2437   01 00CAE    0000     A            DATA,2   0                 CRC ERRORS
     2438   01 00CAE 2  0000     A            DATA,2   0                 ALLIGNMENT ERRORS
     2439   01 00CAF    0000     A            DATA,2   0                 COLLISIONS
     2440   01 00CAF 2  0000     A            DATA,2   0                 OUT-OF-WINDOW COLLISIONS

     2442                                     BOUND    4

     2444                            * IF TWO UNIQUE UNITS ONLINE TRY TO FORCE A COLLISION.
     2445                            * IF MANY UNITS AVAILABLE, USE (0,1), (1,0), (2,0), ...

     2447   01 00CB0    6AF00D43     :T1ST34  BAL,R15  UNITS             GET UNIQUE PAIR

     2449   01 00CB1    220005EA A            LI,R0    1514              SET BYTE COUNT OF
     2450   01 00CB2    55020D63              STH,R0   CPT34W1+1,R1       SECOND TRANSMISSION

     2452   01 00CB3    22000000 A            LI,R0    X'00'             FORCE NONSENSICAL DESTINATION
     2453   01 00CB4    35002000              STW,R0   BUFF1

     2455   01 00CB5    320011D0              LW,R0    UNIT0             SET UNIT0 ONLINE
     2456   01 00CB6    6AF00D37              BAL,R15  SETONLNE

     2458   01 00CB7    320011D1              LW,R0    UNIT1             SET UNIT1 ONLINE
     2459   01 00CB8    6AF00D37              BAL,R15  SETONLNE

     2461   01 00CB9    22F00D63              LI,R15   CPT34W1+1
     2462   01 00CBA    35F01251              STW,R15  GENKEY            SET ERROR KEY

     2464   01 00CBB    6AF019AD     T1ST3402 BAL,R15  :INTCLR           CLEAR ALL INTERRUPT STATUS

     2466   01 00CBC    220006B0              LI,R0    DA(CPT34W0)       START FIRST TRANSMISSION
     2467   01 00CBD    CC4011D0              SIO,R4   *UNIT0

     2469   01 00CBE    220006B1              LI,R0    DA(CPT34W1)       START SECOND TRANSMISSION
     2470   01 00CBF    CC6011D1              SIO,R6   *UNIT1

     2472   01 00CC0    320011D0              LW,R0    UNIT0             SET UNIT0
     2473   01 00CC1    35000459              STW,R0   :DEVADDR

     2475   01 00CC2    22E003E8 A            LI,R14   1000              WAIT ONE SECOND
     2476   01 00CC3    6AF016C4              BAL,R15  MYDELAY            FOR END OF FIRST TRANSMISSION

     2478   01 00CC4    320011D1              LW,R0    UNIT1             SET UNIT1
     2479   01 00CC5    35000459              STW,R0   :DEVADDR

     2481   01 00CC6    22E003E8 A            LI,R14   1000              WAIT ONE SECOND
     2482   01 00CC7    6AF016C4              BAL,R15  MYDELAY            FOR END OF SECOND TRANSMISSION

     2484   01 00CC8    CD4011D0              TIO,R4   *UNIT0            SAMPLE STATUS
     2485   01 00CC9    52500005 A            LH,R5    R5                 ON UNIT0
     2486   01 00CCA    21500840 A            CI,R5    X'0840'             STOP IF UE/TE
     2487   01 00CCB    69400CDA              BANZ     T1ST3403

     2489   01 00CCC    CD4011D1              TIO,R4   *UNIT1            SAMPLE STATUS
     2490   01 00CCD    52500005 A            LH,R5    R5                 ON UNIT1
     2491   01 00CCE    21500840 A            CI,R5    X'0840'             STOP IF UE/TE
     2492   01 00CCF    69400CDA              BANZ     T1ST3403

     2494   01 00CD0    53F20D63              MTH,-1   CPT34W1+1,R1      DECREMENT SECOND TRANSMISSION
     2495   01 00CD1    52020D63              LH,R0    CPT34W1+1,R1       SIZE AND STOP WHEN
     2496   01 00CD2    210002F5 A            CI,R0    1514/2              BELOW FIRST SIZE/2
     2497   01 00CD3    69200CBB              BG       T1ST3402

     2499   01 00CD4    EAF0021C              BAL,R15  *:PRINT
     2500   01 00CD5    00000D09              DATA     T34M2

     2502   01 00CD6    6AF0120A              ERROR    3402              ERROR: FAILURE TO COLLIDE
            01 00CD7    00000D4A A
            01 00CD8    68000CD9

     2504   01 00CD9    68000487              B        :TIM

     2506   01 00CDA    320011D0     T1ST3403 LW,R0    UNIT0             SET UNIT0
     2507   01 00CDB    6AF00D14              BAL,R15  TST34SCN           TOTAL STATUS/STATS/DELAYS

     2509   01 00CDC    52002801              LH,R0    BUFF2+1           SAVE FIRST DELAY TIME
     2510   01 00CDD    35000D12              STW,R0   T34DLY+0

     2512   01 00CDE    320011D1              LW,R0    UNIT1             SET UNIT1
     2513   01 00CDF    6AF00D14              BAL,R15  TST34SCN           TOTAL STATUS/STATS/DELAYS

     2515   01 00CE0    52002801              LH,R0    BUFF2+1           SAVE FIRST DELAY TIME
     2516   01 00CE1    35000D13              STW,R0   T34DLY+1

     2518   01 00CE2    EAF0021C              BAL,R15  *:PRINT           PRINT SUMMARY HEADER
     2519   01 00CE3    00000CFF              DATA     T34M0

     2521   01 00CE4    32C011D0              LW,R12   UNIT0             UNIT 0
     2522   01 00CE5    EAF00218              BAL,R15  *:HEXC
     2523   01 00CE6    35F00D05              STW,R15  T34M1+1
     2524   01 00CE7    32C00D12              LW,R12   T34DLY+0          DELAY TIME
     2525   01 00CE8    EAF00217              BAL,R15  *:DECC
     2526   01 00CE9    55F00D07              STH,R15  T34M1+3
     2527   01 00CEA    25F00070 A            SLS,R15  -16
     2528   01 00CEB    55F20D06              STH,R15  T34M1+2,R1
     2529   01 00CEC    52C20D61              LH,R12   CPT34W0+1,R1      FINAL BYTE COUNT
     2530   01 00CED    EAF00217              BAL,R15  *:DECC
     2531   01 00CEE    35F00D08              STW,R15  T34M1+4

     2533   01 00CEF    EAF0021C              BAL,R15  *:PRINT
     2534   01 00CF0    00000D04              DATA     T34M1

     2536   01 00CF1    32C011D1              LW,R12   UNIT1             UNIT 1
     2537   01 00CF2    EAF00218              BAL,R15  *:HEXC
     2538   01 00CF3    35F00D05              STW,R15  T34M1+1
     2539   01 00CF4    32C00D13              LW,R12   T34DLY+1          DELAY TIME
     2540   01 00CF5    EAF00217              BAL,R15  *:DECC
     2541   01 00CF6    55F00D07              STH,R15  T34M1+3
     2542   01 00CF7    25F00070 A            SLS,R15  -16
     2543   01 00CF8    55F20D06              STH,R15  T34M1+2,R1
     2544   01 00CF9    52C20D63              LH,R12   CPT34W1+1,R1      FINAL BYTE COUNT
     2545   01 00CFA    EAF00217              BAL,R15  *:DECC
     2546   01 00CFB    35F00D08              STW,R15  T34M1+4

     2548   01 00CFC    EAF0021C              BAL,R15  *:PRINT
     2549   01 00CFD    00000D04              DATA     T34M1

     2551   01 00CFE    68000487              B        :TIM

     2553   01 00CFF    13404040 A   T34M0    TEXTC    '   UNIT DELAY BYTES'
            01 00D00    E4D5C9E3 A
            01 00D01    40C4C5D3 A
            01 00D02    C1E840C2 A
            01 00D03    E8E3C5E2 A
     2554   01 00D04    13404040 A   T34M1    TEXTC    '   XXXX  XXXX  XXXX'
            01 00D05    E7E7E7E7 A
            01 00D06    4040E7E7 A
            01 00D07    E7E74040 A
            01 00D08    E7E7E7E7 A
     2555   01 00D09    20C5E7D7 A   T34M2    TEXTC    'EXPECTED COLLISION DID NOT OCCUR'
            01 00D0A    C5C3E3C5 A
            01 00D0B    C440C3D6 A
            01 00D0C    D3D3C9E2 A
            01 00D0D    C9D6D540 A
            01 00D0E    C4C9C440 A
            01 00D0F    D5D6E340 A
            01 00D10    D6C3C3E4 A
            01 00D11    D9404040 A

     2557   01 00D12                 T34DLY   RES      2

     2559   01 00D14    09F00412     TST34SCN ENTER                      COMPLETE STATUS CHECK
     2560   01 00D15    35000459              STW,R0   :DEVADDR           SAVE UNIT ADDRESS

     2562   01 00D16    6AF01B4A              BAL,R15  :SAVECLR          CLEAR I/O STATUS

     2564   01 00D17    6AF00D8B              BAL,R15  :INTGCE           GET LAST CE STATUS

     2566   01 00D18    6AF01B6E              BAL,R15  :SAVEAIO          SAVE IN TABLE

     2568   01 00D19    220035D4              FAIL     TSEQ3404,3404     VERIFY STATUS
            01 00D1A    6AF0120C
            01 00D1B    00000D4C A
            01 00D1C    68000D1D

     2570   01 00D1D    22000D95              LI,R0    BUFF34S           VERIFY STATISTICS
     2571   01 00D1E    6AF00C5D              BAL,R15  GENSNSE

     2573   01 00D1F    220006B4              IOTST    CPT34D,TSEQNORM,3408 GATHER DELAY TIMES
            01 00D20    6AF0104D
            01 00D21    22003600
            01 00D22    6AF0120C
            01 00D23    00000D50 A
            01 00D24    68000D1F

     2575   01 00D25    22000002 A            FRM      2,3409            VERIFY ONLY ONE DELAY
            01 00D26    6AF00F3D
            01 00D27    68000D2B
            01 00D28    6AF0120A
            01 00D29    00000D51 A
            01 00D2A    68000D2B

     2577   01 00D2B    08F00412              EXIT
            01 00D2C    E800000F A

     2579   01 00D2D    09F00412     SNSECOMP ENTER                      PREPARE TO COMPARE STATISTICS
     2580   01 00D2E    350018B5              STW,R0   :COMBFRA           SAVE EXPECTED BUFFER

     2582   01 00D2F    22002801              LI,R0    BUFF2+1           SET OBSERVED BUFFER
     2583   01 00D30    350018B6              STW,R0   :COMBFRB

     2585   01 00D31    22000006 A            LI,R0    2*12/4            SET WORD COUNT
     2586   01 00D32    350018B4              STW,R0   :COMWCNT

     2588   01 00D33    22000006 A            LI,R0    6                 DISPLAY ALL
     2589   01 00D34    350018B8              STW,R0   :COMPLIN           WORDS IN ERROR

     2591   01 00D35    08F00412              EXIT
            01 00D36    E800000F A

     2593   01 00D37    09F00412     SETONLNE ENTER                      SET A GIVEN UNIT ONLINE
     2594   01 00D38    35000459              STW,R0   :DEVADDR           SAVE UNIT ADDRESS

     2596   01 00D39    22E00000 A            RESET    0                 CLEAR THE INTERFACE
            01 00D3A    6AF00F19

     2598   01 00D3B    220006B2              IOTST    CPT34M,TSEQ3400,3400 SET THE MODES
            01 00D3C    6AF0104D
            01 00D3D    220035A8
            01 00D3E    6AF0120C
            01 00D3F    00000D48 A
            01 00D40    68000D3B

     2600   01 00D41    08F00412              EXIT
            01 00D42    E800000F A

     2602   01 00D43    09F00412     UNITS    ENTER                      CHECK FOR TWO UNIQUE UNITS
     2603   01 00D44    22500001 A            LI,R5    1                 (0,1), (1,0), (2,0), ...
     2604   01 00D45    3240045A              LW,R4    :DEVINDX
     2605   01 00D46    68300D48              BEZ      %+2
     2606   01 00D47    22500000 A            LI,R5    0

     2608   01 00D48    5130032F              CH,R3    :CDB              CHECK FOR EXACTLY TWO UNITS
     2609   01 00D49    68100D52              BGE      UNITNA             SKIP IF MORE OR LESS

     2611   01 00D4A    32F80331              LW,R15   :CDB+2,R4         CHECK FOR UNIT UNIQUENESS
     2612   01 00D4B    31FA0331              CW,R15   :CDB+2,R5
     2613   01 00D4C    68300D52              BE       UNITNA

     2615   01 00D4D    35F011D0              STW,R15  UNIT0             SAVE UNIT 0

     2617   01 00D4E    32FA0331              LW,R15   :CDB+2,R5         SAVE UNIT 1
     2618   01 00D4F    35F011D1              STW,R15  UNIT1

     2620   01 00D50    08F00412              EXIT
            01 00D51    E800000F A

     2622   01 00D52    EAF0021C     UNITNA   BAL,R15  *:PRINT
     2623   01 00D53    00000D58              DATA     UNITNAME          WARNING: TEST SKIPPED

     2625   01 00D54    22F00487     UNITNB   LI,R15   :TIM              RETURN TO MONITOR
     2626   01 00D55    B5F00412              STW,R15  *DPM:STK

     2628   01 00D56    08F00412              EXIT
            01 00D57    E800000F A

     2630   01 00D58    1E4B4BD5 A   UNITNAME TEXTC    '..N/A (NEEDS TWO UNIQUE UNITS)'
            01 00D59    61C1404D A
            01 00D5A    D5C5C5C4 A
            01 00D5B    E240E3E6 A
            01 00D5C    D640E4D5 A
            01 00D5D    C9D8E4C5 A
            01 00D5E    40E4D5C9 A
            01 00D5F    E3E25D40 A

     2632   01 00D60    01008000     CPT34W0  IOCD     X'01',BA(BUFF1),X'1E',1400
            01 00D61    1E000578 A

     2634   01 00D62    01008000     CPT34W1  IOCD     X'01',BA(BUFF1),X'1E',0
            01 00D63    1E000000 A

     2636   01 00D64    03003FCA     CPT34M   IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 00D65    2E000001 A
     2637   01 00D66    03003FC5              IOCD     X'03',BA(MODES)+X'9',X'1E',1
            01 00D67    1E000001 A

     2639   01 00D68    1400A000     CPT34D   IOCD     X'14',BA(BUFF2),X'1E',2+2+2
            01 00D69    1E000006 A

     2641                            TSEQ3400 :TSEQ    TIO(X'10'),OSB(X'00'),TDV(X'00',X'0F'),;
     2642         01 00D6A                             AIO(X'00'),ISB(X'10'),COM01,BYT00

     2644                            TSEQ3404 :TSEQ    TIO(X'18'),OSB(X'42'),TDV(X'10',X'0F'),;
     2645         01 00D75                             AIO(X'00'),ISB(X'58'),COM00,BYT00

     2647                            TSEQNORM :TSEQ    TIO(X'10'),OSB(X'00'),TDV(X'00',X'0F'),;
     2648         01 00D80                             AIO(X'00'),ISB(X'10'),COM00,BYT00

     2650   01 00D8B    09F00412     :INTGCE  ENTER                      FETCH CURRENT CE AIO STATUS

     2652   01 00D8C    22400000 A            LI,R4    0                 SET INDEX
     2653   01 00D8D    32F00459              LW,R15   :DEVADDR           TO SEARCH FOR UNIT

     2655   01 00D8E    31F80331              CW,R15   :CDB+2,R4         LOOK IN SYST
     2656   01 00D8F    68300D92              BE       %+3                (ASSUME IT IS THERE)

     2658   01 00D90    20400001 A            AI,R4    1                 ADVANCE INDEX
     2659   01 00D91    68000D8E              B        %-3                AND CONTINUE

     2661   01 00D92    32D81976              LW,R13   INTSTAT,R4        FETCH CE AIO STATUS

     2663   01 00D93    08F00412              EXIT
            01 00D94    E800000F A

     2665   01 00D95    0000     A   BUFF34S  DATA,2   0                 FRAMES RECEIVED
     2666   01 00D95 2  0000     A            DATA,2   0                 FRAMES IN RECEIVE FIFO
     2667   01 00D96    01       A            DATA,1   1,0               FRAMES TRANSMITTED
            01 00D96 1  00       A
     2668   01 00D96 2  0000     A            DATA,2   0                 EXCESS COLLISIONS
     2669   01 00D97    0000     A            DATA,2   0                 COLLISION FRAGMENTS RECEIVED
     2670   01 00D97 2  0000     A            DATA,2   0                 NUMBER OF OVERRUNS
     2671   01 00D98    0000     A            DATA,2   0                 MULTICAST FRAMES ACCEPTED
     2672   01 00D98 2  0000     A            DATA,2   0                 MULTICAST FRAMES REJECTED
     2673   01 00D99    0000     A            DATA,2   0                 CRC ERRORS
     2674   01 00D99 2  0000     A            DATA,2   0                 ALLIGNMENT ERRORS
     2675   01 00D9A    01       A            DATA,1   1,0               COLLISIONS
            01 00D9A 1  00       A
     2676   01 00D9A 2  0000     A            DATA,2   0                 OUT-OF-WINDOW COLLISIONS

     2678                                     BOUND    4

     2680                            * IF TWO UNITS ONLINE, CHECK RESULTS OF NETWORK LOOPBACK TEST ON
     2681                            * ONE UNIT VIA THE OTHER UNIT OF THE PAIR.  VERIFY STATISTICS
     2682                            * AS WELL.  IF MANY UNITS AVAILABLE USE (0,1), (1,0), (2,0), ...

     2684   01 00D9B    6AF00D43     :T1ST35  BAL,R15  UNITS

     2686   01 00D9C    22000459              LI,R0    :DEVADDR          SET UP DEVICE ADDRESS
     2687   01 00D9D    35001251              STW,R0   GENKEY             AS THE GENERAL ERROR KEY

     2689   01 00D9E    320011D0              LW,R0    UNIT0             SELECT UNIT 0
     2690   01 00D9F    35000459              STW,R0   :DEVADDR

     2692   01 00DA0    22E00000 A            RESET    0                 CLEAR THE INTERFACE
            01 00DA1    6AF00F19

     2694   01 00DA2    220006FE              IOTST    CPT35W,TSEQNRML,3500 SENSE AND GO ONLINE
            01 00DA3    6AF0104D
            01 00DA4    22003038
            01 00DA5    6AF0120C
            01 00DA6    00000DAC A
            01 00DA7    68000DA2

     2696   01 00DA8    32402801              LW,R4    BUFF2+1           GET PHYSICAL ADDRESS
     2697   01 00DA9    32502802              LW,R5    BUFF2+2            IN THE DEFAULT STATE
     2698   01 00DAA    25400178 A            SLD,R4   -8                  AND CLEAR LOW ORDER
     2699   01 00DAB    22500000 A            LI,R5    0                    THREE BYTES
     2700   01 00DAC    25400108 A            SLD,R4   8

     2702   01 00DAD    15402000              STD,R4   BUFF1             SAVE AS BOTH SOURCE
     2703   01 00DAE    25400170 A            SLD,R4   -16                AND DESTINATION
     2704   01 00DAF    55422001              STH,R4   BUFF1+1,R1
     2705   01 00DB0    35502002              STW,R5   BUFF1+2

     2707   01 00DB1    32001BB9              LW,R0    L(X'70300001')    INSERT TYPE AND
     2708   01 00DB2    35002003              STW,R0   BUFF1+3            START OF PATTERN

     2710   01 00DB3    3510184A              STW,R1   :PATID+0          SET STEPPED PATTERN

     2712   01 00DB4    32001BBA              LW,R0    L(X'02030405')    SET STEP START
     2713   01 00DB5    3500184B              STW,R0   :PATID+1

     2715   01 00DB6    32001BBB              LW,R0    L(X'04040404')    SET STEP SIZE
     2716   01 00DB7    3500184C              STW,R0   :PATID+2

     2718   01 00DB8    2200000B A            LI,R0    11                PATTERN LENGTH
     2719   01 00DB9    3500184D              STW,R0   :PATWCNT

     2721   01 00DBA    22002004              LI,R0    BUFF1+4           PATTERN BUFFER
     2722   01 00DBB    3500184E              STW,R0   :PATBFR

     2724   01 00DBC    22002000              LI,R0    BUFF1             EXPECTED BUFFER
     2725   01 00DBD    350018B5              STW,R0   :COMBFRA

     2727   01 00DBE    22002801              LI,R0    BUFF2+1
     2728   01 00DBF    350018B6              STW,R0   :COMBFRB          OBSERVED BUFFER

     2730   01 00DC0    22000010 A            LI,R0    16                EXPECTED LENGTH
     2731   01 00DC1    350018B4              STW,R0   :COMWCNT

     2733   01 00DC2    6AF01813              BAL,R15  :PATTERN          GENERATE THE PATTERN

     2735   01 00DC3    320011D1              LW,R0    UNIT1             SELECT UNIT 1
     2736   01 00DC4    35000459              STW,R0   :DEVADDR

     2738   01 00DC5    22E00000 A            RESET    0                 CLEAR THE INTERFACE
            01 00DC6    6AF00F19

     2740   01 00DC7    220005E1              IOTST    CPT32W,TSEQNRML,3501 ONLINE AND NETWORK LOOP
            01 00DC8    6AF0104D
            01 00DC9    22003038
            01 00DCA    6AF0120C
            01 00DCB    00000DAD A
            01 00DCC    68000DC7

     2742   01 00DCD    320011D0              LW,R0    UNIT0             SELECT UNIT 0 AGAIN
     2743   01 00DCE    35000459              STW,R0   :DEVADDR

     2745   01 00DCF    32001BBC              LW,R0    L(X'DAB0F935')    INSERT FAULTY CRC
     2746   01 00DD0    3500200F              STW,R0   BUFF1+15

     2748   01 00DD1    6AF01106              BAL,R15  RECLEAR           CLEAR INPUT BUFFER

     2750   01 00DD2    6AF00BF4              BAL,R15  MYATTN            WAIT FOR ATTENTION

     2752   01 00DD3    220006FD              IOTST    CPT35R,TSEQCRCE,3502 READ WITH CRC ERROR
            01 00DD4    6AF0104D
            01 00DD5    22003800
            01 00DD6    6AF0120C
            01 00DD7    00000DAE A
            01 00DD8    68000DD3

     2754   01 00DD9    32001BBD              REFRM    L(X'01000000'+6+6+2+46+4),3503 VERIFY FRAME FORMAT
            01 00DDA    6AF00F3D
            01 00DDB    68000DDF
            01 00DDC    6AF0120A
            01 00DDD    00000DAF A
            01 00DDE    68000DDF

     2756   01 00DDF    6AF00EC0              BAL,R15  CMP37BUF          VERIFY INPUT DATA

     2758   01 00DE0    32001BBE              LW,R0    L(X'DAB0F9CA')    INSERT CORRECT CRC
     2759   01 00DE1    3500200F              STW,R0   BUFF1+15

     2761   01 00DE2    6AF01106              BAL,R15  RECLEAR           CLEAR INPUT BUFFER

     2763   01 00DE3    6AF00BF4              BAL,R15  MYATTN            WAIT FOR ATTENTION

     2765   01 00DE4    220006FD              IOTST    CPT35R,TSEQNORM,3504 READ WITH NO ERROR
            01 00DE5    6AF0104D
            01 00DE6    22003600
            01 00DE7    6AF0120C
            01 00DE8    00000DB0 A
            01 00DE9    68000DE4

     2767   01 00DEA    22000040 A            FRM      6+6+2+46+4,3505   VERIFY FRAME FORMAT
            01 00DEB    6AF00F3D
            01 00DEC    68000DF0
            01 00DED    6AF0120A
            01 00DEE    00000DB1 A
            01 00DEF    68000DF0

     2769   01 00DF0    6AF00EC0              BAL,R15  CMP37BUF          VERIFY DATA

     2771   01 00DF1    22000DF4              LI,R0    BUFF35S0          VERIFY STATISTICS
     2772   01 00DF2    6AF00C5D              BAL,R15  GENSNSE

     2774   01 00DF3    68000487              B        :TIM

     2776   01 00DF4    02       A   BUFF35S0 DATA,1   2,0               FRAMES RECEIVED
            01 00DF4 1  00       A
     2777   01 00DF4 2  0000     A            DATA,2   0                 FRAMES IN RECEIVE FIFO
     2778   01 00DF5    0000     A            DATA,2   0                 FRAMES TRANSMITTED
     2779   01 00DF5 2  0000     A            DATA,2   0                 EXCESS COLLISIONS
     2780   01 00DF6    0000     A            DATA,2   0                 COLLISION FRAGMENTS RECEIVED
     2781   01 00DF6 2  0000     A            DATA,2   0                 NUMBER OF OVERRUNS
     2782   01 00DF7    0000     A            DATA,2   0                 MULTICAST FRAMES ACCEPTED
     2783   01 00DF7 2  0000     A            DATA,2   0                 MULTICAST FRAMES REJECTED
     2784   01 00DF8    01       A            DATA,1   1,0               CRC ERRORS
            01 00DF8 1  00       A
     2785   01 00DF8 2  0000     A            DATA,2   0                 ALLIGNMENT ERRORS
     2786   01 00DF9    0000     A            DATA,2   0                 COLLISIONS
     2787   01 00DF9 2  0000     A            DATA,2   0                 OUT-OF-WINDOW COLLISIONS

     2789                                     BOUND    4

     2791   01 00DFA    0200A000     CPT35R   IOCD     X'02',BA(BUFF2),X'1E',4+6+6+2+46+4 READ ONE FRAME
            01 00DFB    1E000044 A

     2793   01 00DFC    0400A000     CPT35W   IOCD     X'04',BA(BUFF2),X'2E',4+62         SENSE STATISTICS
            01 00DFD    2E000042 A
     2794   01 00DFE    08000A53              IOCD     X'08',DA(WATCH0),0,0                THEN TIC TO WATCH
            01 00DFF    00000000 A

     2796                            TSEQCRCE :TSEQ    TIO(X'18'),OSB(X'42'),TDV(X'10',X'0F'),;
     2797         01 00E00                             AIO(X'10'),ISB(X'58'),BYT00,COM00

     2799                            * TEST RESPONSE TO LOAD PHYSICAL ADDRESS BY USE OF
     2800                            * SELF-TRANSMISSIONS IN LOOPBACK MODE.  FOR EACH OF 48 PHYSICAL
     2801                            * ADDRESSES (SLIDING ONES) PERFORM THE FOLLOWING: LOAD PHYSICAL
     2802                            * ADDRESS, TRANSMIT TO THAT ADDRESS, TRANSMIT TO ITS INVERSE.
     2803                            * DATA, FORMAT, STATUS, AND STATISTICS ARE VERIFIED.

     2805         01 00E0B           :T1ST36  EQU      %
     2806   01 00E0B    22E00000 A            RESET    0                 CLEAR THE INTERFACE
            01 00E0C    6AF00F19

     2808   01 00E0D    22500000 A            LI,R5    0                 INITIALIZE FIRST
     2809   01 00E0E    32401BB7              LW,R4    L(X'80000000')     PHYSICAL ADDRESS
     2810   01 00E0F    154011CC              STD,R4   PHYSADD0

     2812   01 00E10    2200071F              IOTST    CPT36M,TSEQNRML,3600 SET PROPER MODE
            01 00E11    6AF0104D
            01 00E12    22003038
            01 00E13    6AF0120C
            01 00E14    00000E10 A
            01 00E15    68000E10

     2814   01 00E16    6AF00EA2              BAL,R15  GEN37BUF          SET FOR COMPARE AND GENERATE

     2816   01 00E17    6AF01106     T1ST3600 BAL,R15  RECLEAR           CLEAR INPUT BUFFER

     2818   01 00E18    6AF00E46              BAL,R15  GEN36ADD          POSITION PHYSICAL ADDRESS

     2820   01 00E19    22400721              LOOP     CPT36W0,CPT37R    ADD, TRANSMIT, RECEIVE
            01 00E1A    2250074D
            01 00E1B    6AF00BC6

     2822   01 00E1C    22002D94              FAIL     TSEQGENL,3601     CHECK COUNT AND COMMAND
            01 00E1D    6AF0120C
            01 00E1E    00000E11 A
            01 00E1F    68000E20

     2824   01 00E20    22000040 A            FRM      6+6+2+46+4,3602   CHECK FRAME FORMAT
            01 00E21    6AF00F3D
            01 00E22    68000E26
            01 00E23    6AF0120A
            01 00E24    00000E12 A
            01 00E25    68000E26

     2826   01 00E26    6AF00EC0              BAL,R15  CMP37BUF          COMPARE WITH EXPECTED DATA

     2828   01 00E27    331011D8              MTW,1    RELIMIT           UPDATE COUNTER

     2830   01 00E28    6AF00E4E              BAL,R15  GEN36INV          INVERT CURRENT DESTINATION

     2832   01 00E29    22000722              IOTST    CPT36W1,TSEQNORM,3603 TRANSMIT ONE FRAME
            01 00E2A    6AF0104D
            01 00E2B    22003600
            01 00E2C    6AF0120C
            01 00E2D    00000E13 A
            01 00E2E    68000E29

     2834   01 00E2F    331011D8              MTW,1    RELIMIT           UPDATE COUNTER

     2836   01 00E30    124011CC              LD,R4    PHYSADD0          GET CURRENT PHYSICAL ADDRESS
     2837   01 00E31    21508000 A            CI,R5    X'8000'            STOP AFTER 48 TRANSMISSIONS
     2838   01 00E32    69400E38              BANZ     T1ST3603

     2840   01 00E33    2540017F A            SLD,R4   -1                RIGHT SHIFT CURRENT ADDRESS

     2842   01 00E34    31401BBF              CW,R4    L(X'01000000')    CONSTRAIN TO AVOID
     2843   01 00E35    69400E33              BANZ     %-2                MULTICAST ADDRESSES

     2845   01 00E36    154011CC              STD,R4   PHYSADD0          UPDATE CURRENT
     2846   01 00E37    68000E17              B        T1ST3600           PHYSICAL ADDRESS

     2848   01 00E38    22000E55     T1ST3603 LI,R0    BUFF36S           GATHER AND
     2849   01 00E39    6AF00C5D              BAL,R15  GENSNSE            VERIFY STATISTICS

     2851   01 00E3A    22E00000 A            RESET    0                 CLEAR THE INTERFACE
            01 00E3B    6AF00F19

     2853   01 00E3C    68000487              B        :TIM              RETURN

     2855   01 00E3E    03003FCA     CPT36M   IOCD     X'03',BA(MODES)+X'E',X'2E',1 NON-INSERTION
            01 00E3F    2E000001 A
     2856   01 00E40    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'1E',1 INTERFACE LOOPBACK
            01 00E41    1E000001 A

     2858   01 00E42    09008000     CPT36W0  IOCD     X'09',BA(BUFF1),X'2E',6        LOAD PHYSICAL ADDRESS
            01 00E43    2E000006 A
     2859   01 00E44    01008000     CPT36W1  IOCD     X'01',BA(BUFF1),X'1E',6+6+2+46 TRANSMIT ONE FRAME
            01 00E45    1E00003C A

     2861   01 00E46    09F00412     GEN36ADD ENTER                      PREPARE FRAME HEADER

     2863   01 00E47    124011CC              LD,R4    PHYSADD0          GET CURRENT PHYSICAL ADDRESS
     2864   01 00E48    15402000              STD,R4   BUFF1              SAVE AS DESTINATION

     2866   01 00E49    25400170 A            SLD,R4   -16               POSITION FOR SOURCE
     2867   01 00E4A    55422001              STH,R4   BUFF1+1,R1         STORE FIRST 2 BYTES
     2868   01 00E4B    35502002              STW,R5   BUFF1+2             STORE LAST 4 BYTES

     2870   01 00E4C    08F00412              EXIT
            01 00E4D    E800000F A

     2872   01 00E4E    09F00412     GEN36INV ENTER                      INVERT DESTINATION ADDRESS

     2874   01 00E4F    12402000              LD,R4    BUFF1
     2875   01 00E50    48401BC0              EOR,R4   L(X'FEFFFFFF')    DO NOT INVERT BIT 0
     2876   01 00E51    48501BC1              EOR,R5   L(X'FFFF0000')     OR PART OF SOURCE ADDRESS
     2877   01 00E52    15402000              STD,R4   BUFF1

     2879   01 00E53    08F00412              EXIT
            01 00E54    E800000F A
     2880   01 00E55    60       A   BUFF36S  DATA,1   96,0              FRAMES RECEIVED
            01 00E55 1  00       A
     2881   01 00E55 2  0000     A            DATA,2   0                 FRAMES IN RECEIVE FIFO
     2882   01 00E56    60       A            DATA,1   96,0              FRAMES TRANSMITTED
            01 00E56 1  00       A
     2883   01 00E56 2  0000     A            DATA,2   0                 EXCESS COLLISIONS
     2884   01 00E57    0000     A            DATA,2   0                 COLLISION FRAGMENTS RECEIVED
     2885   01 00E57 2  0000     A            DATA,2   0                 NUMBER OF OVERRUNS
     2886   01 00E58    00       A            DATA,1   0,0               MULTICAST FRAMES ACCEPTED
            01 00E58 1  00       A
     2887   01 00E58 2  00       A            DATA,1   0,0               MULTICAST FRAMES REJECTED
            01 00E58 3  00       A
     2888   01 00E59    0000     A            DATA,2   0                 CRC ERRORS
     2889   01 00E59 2  0000     A            DATA,2   0                 ALLIGNMENT ERRORS
     2890   01 00E5A    0000     A            DATA,2   0                 COLLISIONS
     2891   01 00E5A 2  0000     A            DATA,2   0                 OUT-OF-WINDOW COLLISIONS

     2893                                     BOUND    4

     2895                            * TEST RESPONSE TO BROADCAST TRANSMISSIONS BY USE OF SELF-TRANSMISSION
     2896                            * IN LOOPBACK MODE, BEFORE AND AFTER HAVING DELETED THE BROADCAST
     2897                            * ADDRESS.  STATUS, DATA, FORMAT, AND STATISTICS ARE VERIFIED.

     2899         01 00E5B           :T1ST37  EQU      %
     2900   01 00E5B    22E00000 A            RESET    0                 CLEAR THE INTERFACE
            01 00E5C    6AF00F19

     2902   01 00E5D    6AF00EA2              BAL,R15  GEN37BUF          SET FOR COMPARE AND GENERATE

     2904   01 00E5E    6AF01106              BAL,R15  RECLEAR           CLEAR THE INPUT BUFFER

     2906   01 00E5F    22400747              LOOP     CPT37W0,CPT37R    MODES, BROADCAST, RECEIVE
            01 00E60    2250074D
            01 00E61    6AF00BC6

     2908   01 00E62    22002D94              FAIL     TSEQGENL,3700     CHECK COUNT AND COMMAND
            01 00E63    6AF0120C
            01 00E64    00000E74 A
            01 00E65    68000E66

     2910   01 00E66    22000040 A            FRM      6+6+2+46+4        CHECK FRAME FORMAT
            01 00E67    6AF00F3D

     2912   01 00E68    6AF00EC0              BAL,R15  CMP37BUF          COMPARE WITH EXPECTED DATA

     2914   01 00E69    331011D8              MTW,1    RELIMIT           UPDATE COUNTER

     2916   01 00E6A    73102003              MTB,1    BUFF1+3           UPDATE BUFFER INDICATOR

     2918   01 00E6B    2200074A              IOTST    CPT37W2,TSEQNRML,3702 DELETE
            01 00E6C    6AF0104D
            01 00E6D    22003038
            01 00E6E    6AF0120C
            01 00E6F    00000E76 A
            01 00E70    68000E6B
     2919   01 00E71    22000749              IOTST    CPT37W1,TSEQNRML,3703 BROADCAST
            01 00E72    6AF0104D
            01 00E73    22003038
            01 00E74    6AF0120C
            01 00E75    00000E77 A
            01 00E76    68000E71

     2921   01 00E77    331011D8              MTW,1    RELIMIT           UPDATE COUNTER

     2923   01 00E78    73102003              MTB,1    BUFF1+3           UPDATE BUFFER INDICATOR

     2925   01 00E79    6AF01106              BAL,R15  RECLEAR           CLEAR THE INPUT BUFFER

     2927   01 00E7A    32E0166A              LW,R14   TIMESNAP          USE TIME SNAPSHOT PARAMETER
     2928   01 00E7B    68300E7D              BEZ      %+2                AS POSSIBLE DELAY IN MS
     2929   01 00E7C    6AF01205              BAL,R15  GENDELAY

     2931   01 00E7D    2240074B              LOOP     CPT37W3,CPT37R    ADD, BROADCAST, RECEIVE
            01 00E7E    2250074D
            01 00E7F    6AF00BC6

     2933   01 00E80    22002D94              FAIL     TSEQGENL,3704     CHECK COUNT AND COMMAND
            01 00E81    6AF0120C
            01 00E82    00000E78 A
            01 00E83    68000E84

     2935   01 00E84    22000040 A            FRM      6+6+2+46+4        CHECK FRAME FORMAT
            01 00E85    6AF00F3D

     2937   01 00E86    6AF00EC0              BAL,R15  CMP37BUF          COMPARE WITH EXPECTED DATA

     2939   01 00E87    331011D8              MTW,1    RELIMIT           UPDATE COUNTER

     2941   01 00E88    22000E9C              LI,R0    BUFF37S           GET AND CHECK
     2942   01 00E89    6AF00C5D              BAL,R15  GENSNSE            THE STATISTICS

     2944   01 00E8A    22E00000 A            RESET    0                 CLEAR THE INTERFACE
            01 00E8B    6AF00F19

     2946   01 00E8C    68000487              B        :TIM

     2948   01 00E8E    03003FCA     CPT37W0  IOCD     X'03',BA(MODES)+X'E',X'2E',1 NON-INSERTION
            01 00E8F    2E000001 A
     2949   01 00E90    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'2E',1  INTERFACE LOOPBACK
            01 00E91    2E000001 A

     2951   01 00E92    01008000     CPT37W1  IOCD     X'01',BA(BUFF1),X'1E',6+6+2+46  BROADCAST
            01 00E93    1E00003C A

     2953   01 00E94    29008000     CPT37W2  IOCD     X'29',BA(BUFF1),X'1E',6 DELETE GROUP ADDRESS
            01 00E95    1E000006 A

     2955   01 00E96    19008000     CPT37W3  IOCD     X'19',BA(BUFF1),X'2E',6 ADD GROUP ADDRESS
            01 00E97    2E000006 A
     2956   01 00E98    08000749              IOCD     X'08',DA(CPT37W1),0,0    TIC TO BROADCAST
            01 00E99    00000000 A

     2958   01 00E9A    0200A000     CPT37R   IOCD     X'02',BA(BUFF2),X'1E',4+6+6+2+46+4 READ FRAME
            01 00E9B    1E000044 A

     2960   01 00E9C    03       A   BUFF37S  DATA,1   3,0               FRAMES RECEIVED
            01 00E9C 1  00       A
     2961   01 00E9C 2  0000     A            DATA,2   0                 FRAMES IN RECEIVE FIFO
     2962   01 00E9D    03       A            DATA,1   3,0               FRAMES TRANSMITTED
            01 00E9D 1  00       A
     2963   01 00E9D 2  0000     A            DATA,2   0                 EXCESS COLLISIONS
     2964   01 00E9E    0000     A            DATA,2   0                 COLLISION FRAGMENTS RECEIVED
     2965   01 00E9E 2  0000     A            DATA,2   0                 NUMBER OF OVERRUNS
     2966   01 00E9F    02       A            DATA,1   2,0               MULTICAST FRAMES ACCEPTED
            01 00E9F 1  00       A
     2967   01 00E9F 2  01       A            DATA,1   1,0               MULTICAST FRAMES REJECTED
            01 00E9F 3  00       A
     2968   01 00EA0    0000     A            DATA,2   0                 CRC ERRORS
     2969   01 00EA0 2  0000     A            DATA,2   0                 ALLIGNMENT ERRORS
     2970   01 00EA1    0000     A            DATA,2   0                 COLLISIONS
     2971   01 00EA1 2  0000     A            DATA,2   0                 OUT-OF-WINDOW COLLISIONS

     2973                                     BOUND    4

     2975   01 00EA2    09F00412     GEN37BUF ENTER                      SET FOR COMPARE AND GENERATION

     2977   01 00EA3    22002000              LI,R0    BUFF1             EXPECTED BUFFER
     2978   01 00EA4    350018B5              STW,R0   :COMBFRA

     2980   01 00EA5    20000003 A            AI,R0    3                 GENERATED BUFFER
     2981   01 00EA6    3500184E              STW,R0   :PATBFR

     2983   01 00EA7    22002801              LI,R0    BUFF2+1           OBSERVED BUFFER
     2984   01 00EA8    350018B6              STW,R0   :COMBFRB

     2986   01 00EA9    2200000F A            LI,R0    15
     2987   01 00EAA    350018B4              STW,R0   :COMWCNT          COMPARE SIZE
     2988   01 00EAB    350018B8              STW,R0   :COMPLIN           ERROR DISPLAY LIMIT

     2990   01 00EAC    2200000C A            LI,R0    12                GENERATE SIZE
     2991   01 00EAD    3500184D              STW,R0   :PATWCNT

     2993   01 00EAE    3510184A              STW,R1   :PATID            STEPPED PATTERN

     2995   01 00EAF    22000000 A            LI,R0    0                 DISPLAY ERROR FLAG
     2996   01 00EB0    350018B7              STW,R0   :COMFLAG

     2998   01 00EB1    32001BC2              LW,R0    L(X'00010203')    STEP START
     2999   01 00EB2    3500184B              STW,R0   :PATID+1

     3001   01 00EB3    32001BBB              LW,R0    L(X'04040404')    STEP SIZE
     3002   01 00EB4    3500184C              STW,R0   :PATID+2

     3004   01 00EB5    6AF01813              BAL,R15  :PATTERN          FILL OUTPUT BUFFER

     3006   01 00EB6    220FFFFF A            LI,R0    -1                SET BROADCAST ADDRESS
     3007   01 00EB7    35002000              STW,R0   BUFF1+0
     3008   01 00EB8    35002001              STW,R0   BUFF1+1
     3009   01 00EB9    35002002              STW,R0   BUFF1+2

     3011   01 00EBA    220011D8              LI,R0    RELIMIT           SET UP THE COUNTER
     3012   01 00EBB    35001251              STW,R0   GENKEY             AS THE GENERAL ERROR KEY

     3014   01 00EBC    22000000 A            LI,R0    0                 CLEAR THE COUNTER
     3015   01 00EBD    350011D8              STW,R0   RELIMIT

     3017   01 00EBE    08F00412              EXIT
            01 00EBF    E800000F A

     3019   01 00EC0    09F00412     CMP37BUF ENTER                      COMPARE WITH EXPECTED DATA

     3021   01 00EC1    6AF01850              BAL,R15  :COMPARE          COMPARE
     3022   01 00EC2    68000EC6              B        CMP37BUG           AND SKIP IF NORMAL

     3024   01 00EC3    6AF0120A              ERROR    3799
            01 00EC4    00000ED7 A
            01 00EC5    68000EC6

     3026   01 00EC6    08F00412     CMP37BUG EXIT
            01 00EC7    E800000F A

     3028                            * TEST RESPONSE TO MULTICAST TRANSMISSIONS BY ADDING GROUP
     3029                            * ADDRESSES AND SELF-TRANSMISSIONS.  AFTER 48 TRANSMISSIONS
     3030                            * (SLIDING ONES USED FOR GROUP ADDRESSES) THE REVERSE PROCEDURE
     3031                            * IS APPLIED: DELETING GROUP ADDRESS FOLLOWED BY SELF-
     3032                            * TRANSMISSION.  DATA, COUNTS, FORMATS, STATUS, AND STATISTICS
     3033                            * ARE VERIFIED.

     3035         01 00EC8           :T1ST38  EQU      %
     3036   01 00EC8    22E00000 A            RESET    0                 CLEAR THE INTERFACE
            01 00EC9    6AF00F19

     3038   01 00ECA    22500000 A            LI,R5    0                 INITIALIZE FIRST
     3039   01 00ECB    32401BB7              LW,R4    L(X'80000000')     MULTI-CAST ADDRESS
     3040   01 00ECC    154011CC              STD,R4   PHYSADD0

     3042   01 00ECD    2200077F              IOTST    CPT38M,TSEQNRML,3800 SET PROPER MODE
            01 00ECE    6AF0104D
            01 00ECF    22003038
            01 00ED0    6AF0120C
            01 00ED1    00000ED8 A
            01 00ED2    68000ECD

     3044   01 00ED3    6AF00EA2              BAL,R15  GEN37BUF          SET FOR COMPARE AND GENERATE

     3046   01 00ED4    6AF01106     T1ST3800 BAL,R15  RECLEAR           CLEAR INPUT BUFFER

     3048   01 00ED5    6AF00F0A              BAL,R15  GEN38ADD          POSITION MULTICAST ADDRESS

     3050   01 00ED6    22400781              LOOP     CPT38W0,CPT37R    ADD, MULTICAST, RECEIVE
            01 00ED7    2250074D
            01 00ED8    6AF00BC6

     3052   01 00ED9    22002D94              FAIL     TSEQGENL,3801     CHECK COUNT AND COMMAND
            01 00EDA    6AF0120C
            01 00EDB    00000ED9 A
            01 00EDC    68000EDD

     3054   01 00EDD    22000040 A            FRM      6+6+2+46+4,3802   CHECK FRAME FORMAT
            01 00EDE    6AF00F3D
            01 00EDF    68000EE3
            01 00EE0    6AF0120A
            01 00EE1    00000EDA A
            01 00EE2    68000EE3

     3056   01 00EE3    6AF00EC0              BAL,R15  CMP37BUF          COMPARE WITH EXPECTED DATA

     3058   01 00EE4    331011D8              MTW,1    RELIMIT           UPDATE COUNTER

     3060   01 00EE5    124011CC              LD,R4    PHYSADD0          GET CURRENT MULTICAST ADDRESS
     3061   01 00EE6    21510000 A            CI,R5    X'10000'           STOP AFTER 48 TRANSMISSIONS
     3062   01 00EE7    69400EEB              BANZ     T1ST3803

     3064   01 00EE8    2540017F A            SLD,R4   -1                RIGHT SHIFT TO NEXT
     3065   01 00EE9    154011CC              STD,R4   PHYSADD0           MULTICAST ADDRESS
     3066   01 00EEA    68000ED4              B        T1ST3800            AND CONTINUE

     3068   01 00EEB    6AF00F0A     T1ST3803 BAL,R15  GEN38ADD          LOAD CURRENT MULTICAST ADDRESS

     3070   01 00EEC    22000783              IOTST    CPT38W1,TSEQ3400,3803 DELETE, MULTICAST
            01 00EED    6AF0104D
            01 00EEE    220035A8
            01 00EEF    6AF0120C
            01 00EF0    00000EDB A
            01 00EF1    68000EEC

     3072   01 00EF2    331011D8              MTW,1    RELIMIT           UPDATE COUNTER

     3074   01 00EF3    124011CC              LD,R4    PHYSADD0          GET CURRENT MULTICAST ADDRESS
     3075   01 00EF4    69100EF8              BLZ      T1ST3804           STOP AFTER 48 TRANSMISSIONS

     3077   01 00EF5    25400101 A            SLD,R4   1                 SHIFT LEFT TO NEXT
     3078   01 00EF6    154011CC              STD,R4   PHYSADD0           MULTICAST ADDRESS
     3079   01 00EF7    68000EEB              B        T1ST3803

     3081   01 00EF8    22000F13     T1ST3804 LI,R0    BUFF38S           GATHER AND
     3082   01 00EF9    6AF00C5D              BAL,R15  GENSNSE            VERIFY STATISTICS

     3084   01 00EFA    22E00000 A            RESET    0                 CLEAR THE INTERFACE
            01 00EFB    6AF00F19

     3086   01 00EFC    68000487              B        :TIM              RETURN

     3088   01 00EFE    03003FCA     CPT38M   IOCD     X'03',BA(MODES)+X'E',X'2E',1 NON-INSERTION
            01 00EFF    2E000001 A
     3089   01 00F00    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'1E',1 INTERFACE LOOPBACK
            01 00F01    1E000001 A

     3091   01 00F02    19008000     CPT38W0  IOCD     X'19',BA(BUFF1),X'2E',6        ADD GROUP ADDRESS
            01 00F03    2E000006 A
     3092   01 00F04    01008000              IOCD     X'01',BA(BUFF1),X'1E',6+6+2+46 MULTICAST ONE FRAME
            01 00F05    1E00003C A

     3094   01 00F06    29008000     CPT38W1  IOCD     X'29',BA(BUFF1),X'2E',6        DELETE GROUP ADDRESS
            01 00F07    2E000006 A
     3095   01 00F08    01008000              IOCD     X'01',BA(BUFF1),X'1E',6+6+2+46 MULTICAST ONE FRAME
            01 00F09    1E00003C A

     3097   01 00F0A    09F00412     GEN38ADD ENTER                      PREPARE FRAME HEADER

     3099   01 00F0B    124011CC              LD,R4    PHYSADD0          GET CURRENT GROUP ADDRESS
     3100   01 00F0C    49401BBF              OR,R4    L(X'01000000')     ADD MULTICAST ADDRESS BIT
     3101   01 00F0D    15402000              STD,R4   BUFF1               SAVE AS DESTINATION

     3103   01 00F0E    25400170 A            SLD,R4   -16               POSITION FOR SOURCE
     3104   01 00F0F    55422001              STH,R4   BUFF1+1,R1         STORE FIRST 2 BYTES
     3105   01 00F10    35502002              STW,R5   BUFF1+2             STORE LAST 4 BYTES

     3107   01 00F11    08F00412              EXIT
            01 00F12    E800000F A

     3109   01 00F13    60       A   BUFF38S  DATA,1   96,0              FRAMES RECEIVED
            01 00F13 1  00       A
     3110   01 00F13 2  0000     A            DATA,2   0                 FRAMES IN RECEIVE FIFO
     3111   01 00F14    60       A            DATA,1   96,0              FRAMES TRANSMITTED
            01 00F14 1  00       A
     3112   01 00F14 2  0000     A            DATA,2   0                 EXCESS COLLISIONS
     3113   01 00F15    0000     A            DATA,2   0                 COLLISION FRAGMENTS RECEIVED
     3114   01 00F15 2  0000     A            DATA,2   0                 NUMBER OF OVERRUNS
     3115   01 00F16    30       A            DATA,1   48,0              MULTICAST FRAMES ACCEPTED
            01 00F16 1  00       A
     3116   01 00F16 2  30       A            DATA,1   48,0              MULTICAST FRAMES REJECTED
            01 00F16 3  00       A
     3117   01 00F17    0000     A            DATA,2   0                 CRC ERRORS
     3118   01 00F17 2  0000     A            DATA,2   0                 ALLIGNMENT ERRORS
     3119   01 00F18    0000     A            DATA,2   0                 COLLISIONS
     3120   01 00F18 2  0000     A            DATA,2   0                 OUT-OF-WINDOW COLLISIONS

     3122                                     BOUND    4

     3124                            * RESET INTERFACE, I/O INTERRUPT, AND DELAY FOR READY

     3126   01 00F19    09F00412     GENRESET ENTER                      SAVE RETURN ADDRESS

     3128   01 00F1A    22F00020 A            LI,R15   X'20'             DISARM AND DISABLE
     3129   01 00F1B    6DF01100 A            WD,R15   X'1100'            I/O INTERRUPT

     3131   01 00F1C    6AF019AD              BAL,R15  :INTCLR           CLEAR INTERRUPT INFORMATION

     3133   01 00F1D    CFF00459              HIO,R15  *:DEVADDR         CLEAR THE CONTROLLER

     3135   01 00F1E    3300000E A            MTW,0    R14               CHECK FOR PRESENCE
     3136   01 00F1F    68300F21              BEZ      GENRS0             OF OPTIONAL DELAY

     3138   01 00F20    6AF01205              BAL,R15  GENDELAY          EXECUTE DELAY FOR READY

     3140   01 00F21    08F00412     GENRS0   EXIT                       RESTORE LINK, RETURN
            01 00F22    E800000F A

     3142                            * COMPUTE, COMPARE, DISPLAY AIO STATUS

     3144   01 00F23    09F00412     GENAIO   ENTER                      SAVE RETURN ADDRESS

     3146   01 00F24    25000010 A            SLS,R0   16
     3147   01 00F25    30000459              AW,R0    :DEVADDR          COMPOSE EXPECTED STATUS
     3148   01 00F26    31001997              CW,R0    :INTSTAT           AND COMPARE WITH OBSERVED
     3149   01 00F27    68300F3B              BE       GENAI0              EXIT IF EQUALITY

     3151   01 00F28    32C00000 A            LW,R12   R0                CONVERT EXPECTED STATUS
     3152   01 00F29    EAF00218              BAL,R15  *:HEXC
     3153   01 00F2A    35F003F5              STW,R15  GAIOMSG1+3
     3154   01 00F2B    EAF00218              BAL,R15  *:HEXC
     3155   01 00F2C    35F003F4              STW,R15  GAIOMSG1+2

     3157   01 00F2D    32C01997              LW,R12   :INTSTAT          CONVERT OBSERVED STATUS
     3158   01 00F2E    EAF00218              BAL,R15  *:HEXC
     3159   01 00F2F    35F003F9              STW,R15  GAIOMSG2+3
     3160   01 00F30    EAF00218              BAL,R15  *:HEXC
     3161   01 00F31    35F003F8              STW,R15  GAIOMSG2+2

     3163   01 00F32    EAF0021C              BAL,R15  *:PRINT
     3164   01 00F33    0000040E              DATA     SPACE
     3165   01 00F34    EAF0021C              BAL,R15  *:PRINT           DISPLAY AIO STATUS HEAD
     3166   01 00F35    000003E1              DATA     GAIOMSG0
     3167   01 00F36    EAF0021C              BAL,R15  *:PRINT           EXPECTED
     3168   01 00F37    000003F2              DATA     GAIOMSG1
     3169   01 00F38    EAF0021C              BAL,R15  *:PRINT           OBSERVED
     3170   01 00F39    000003F6              DATA     GAIOMSG2

     3172   01 00F3A    B3100412              MTW,1    *DPM:STK          POINT TO ERROR EXIT

     3174   01 00F3B    08F00412     GENAI0   EXIT                       RESTORE LINK, RETURN
            01 00F3C    E800000F A

     3176   01 00F3D    09F00412     GENFRM   ENTER                      SAVE RETURN ADDRESS

     3178   01 00F3E    32F02800              LW,R15   BUFF2             FRAME SIZE BYTES
     3179   01 00F3F    55F0000F A            STH,R15  R15                ARE REVERSED BY THE LOGIC
     3180   01 00F40    25F00078 A            SLS,R15  -8
     3181   01 00F41    55F22800              STH,R15  BUFF2,R1

     3183   01 00F42    31002800              CW,R0    BUFF2             COMPARE EXP AND OBS DATA
     3184   01 00F43    68300F57              BE       GENFRM0            EXIT IF EQUALITY

     3186   01 00F44    32C00000 A            LW,R12   R0                CONVERT EXPECTED STATUS
     3187   01 00F45    EAF00218              BAL,R15  *:HEXC
     3188   01 00F46    35F003F5              STW,R15  GAIOMSG1+3
     3189   01 00F47    EAF00218              BAL,R15  *:HEXC
     3190   01 00F48    35F003F4              STW,R15  GAIOMSG1+2

     3192   01 00F49    32C02800              LW,R12   BUFF2             CONVERT OBSERVED STATUS
     3193   01 00F4A    EAF00218              BAL,R15  *:HEXC
     3194   01 00F4B    35F003F9              STW,R15  GAIOMSG2+3
     3195   01 00F4C    EAF00218              BAL,R15  *:HEXC
     3196   01 00F4D    35F003F8              STW,R15  GAIOMSG2+2

     3198   01 00F4E    EAF0021C              BAL,R15  *:PRINT
     3199   01 00F4F    0000040E              DATA     SPACE
     3200   01 00F50    EAF0021C              BAL,R15  *:PRINT           DISPLAY AIO STATUS HEAD
     3201   01 00F51    000003E6              DATA     GFRMMSG0
     3202   01 00F52    EAF0021C              BAL,R15  *:PRINT           EXPECTED
     3203   01 00F53    000003F2              DATA     GAIOMSG1
     3204   01 00F54    EAF0021C              BAL,R15  *:PRINT           OBSERVED
     3205   01 00F55    000003F6              DATA     GAIOMSG2

     3207   01 00F56    B3100412              MTW,1    *DPM:STK          POINT TO ERROR EXIT

     3209   01 00F57    08F00412     GENFRM0  EXIT                       RESTORE LINK, RETURN
            01 00F58    E800000F A

     3211   01 00F59    09F00412     GENARS   ENTER                      SAVE RETURN ADDRESS

     3213   01 00F5A    31002800              CW,R0    BUFF2             COMPARE EXP AND OBS DATA
     3214   01 00F5B    68300F6F              BE       GENARS0            EXIT IF EQUALITY

     3216   01 00F5C    32C00000 A            LW,R12   R0                CONVERT EXPECTED STATUS
     3217   01 00F5D    EAF00218              BAL,R15  *:HEXC
     3218   01 00F5E    35F003F5              STW,R15  GAIOMSG1+3
     3219   01 00F5F    EAF00218              BAL,R15  *:HEXC
     3220   01 00F60    35F003F4              STW,R15  GAIOMSG1+2

     3222   01 00F61    32C02800              LW,R12   BUFF2             CONVERT OBSERVED STATUS
     3223   01 00F62    EAF00218              BAL,R15  *:HEXC
     3224   01 00F63    35F003F9              STW,R15  GAIOMSG2+3
     3225   01 00F64    EAF00218              BAL,R15  *:HEXC
     3226   01 00F65    35F003F8              STW,R15  GAIOMSG2+2

     3228   01 00F66    EAF0021C              BAL,R15  *:PRINT
     3229   01 00F67    0000040E              DATA     SPACE
     3230   01 00F68    EAF0021C              BAL,R15  *:PRINT           DISPLAY AIO STATUS HEAD
     3231   01 00F69    000003EB              DATA     GARSMSG0
     3232   01 00F6A    EAF0021C              BAL,R15  *:PRINT           EXPECTED
     3233   01 00F6B    000003F2              DATA     GAIOMSG1
     3234   01 00F6C    EAF0021C              BAL,R15  *:PRINT           OBSERVED
     3235   01 00F6D    000003F6              DATA     GAIOMSG2

     3237   01 00F6E    B3100412              MTW,1    *DPM:STK          POINT TO ERROR EXIT

     3239   01 00F6F    08F00412     GENARS0  EXIT                       RESTORE LINK, RETURN
            01 00F70    E800000F A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   58
A    3241                            * VALID ORDER TABLE

     3243         00000000           VALID    SET      0
     3244         LIST               REAL     SET      1,2,3,4,9,X'14',X'19',X'29'

     3246         00000008           INDEX    DO       NUM(REAL)
     3247         00000001           VALID(REAL(INDEX)) SET REAL(INDEX)
     3248                                     FIN
                  00000002
                  00000003
                  00000004
                  00000009
                  00000014
                  00000019
                  00000029

     3250         00000010           INDEX    DO       16                SET ALL TIC ORDERS
     3251         00000008           JNDEX    SET      (INDEX-1)**4+8
     3252         00000008           VALID(JNDEX) SET JNDEX
     3253                                     FIN
                  00000018
                  00000018
                  00000028
                  00000028
                  00000038
                  00000038
                  00000048
                  00000048
                  00000058
                  00000058
                  00000068
                  00000068
                  00000078
                  00000078
                  00000088
                  00000088
                  00000098
                  00000098
                  000000A8
                  000000A8
                  000000B8
                  000000B8
                  000000C8
                  000000C8
                  000000D8
                  000000D8
                  000000E8
                  000000E8
                  000000F8
                  000000F8

     3255         01 00F71           ORDERS   TABLE    VALID
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   59
A    3257                            * VALID MODE TABLE

     3259         00000000           VALID    SET      0
     3260                            REAL     SET      1,2,3,4,5,6,7,8,9,X'A',X'D',X'E',X'F',;
     3261         LIST                                 X'10',X'11',X'12',X'13',X'3F'

     3263         00000012           INDEX    DO       NUM(REAL)
     3264         00000001                    DO       REAL(INDEX)>0
     3265         00000001           VALID(REAL(INDEX)) SET REAL(INDEX)
     3266                                     ELSE
     3267                        *S* VALID(-REAL(INDEX)) SET REAL(INDEX)
     3268                                     FIN
     3269                                     FIN
                  00000001
                  00000002
                  00000001
                  00000003
                  00000001
                  00000004
                  00000001
                  00000005
                  00000001
                  00000006
                  00000001
                  00000007
                  00000001
                  00000008
                  00000001
                  00000009
                  00000001
                  0000000A
                  00000001
                  0000000D
                  00000001
                  0000000E
                  00000001
                  0000000F
                  00000001
                  00000010
                  00000001
                  00000011
                  00000001
                  00000012
                  00000001
                  00000013
                  00000001
                  0000003F

     3271         01 00FEF           MODES    TABLE    VALID

     3273         01 00FFE 3         RSTORD   EQU      BA(MODES)+X'3F'   SET MODE - RESET
     3274         01 00FF1 2         DGNORD   EQU      BA(MODES)+X'0A'   SET MODE - DIAGNOSE
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   60
A    3276   01 0103F    09F00412     IOCDMSG  ENTER

     3278   01 01040    EAF00218              BAL,15  *:HEXC
     3279   01 01041    35F003FD              STW,15   IOCDMSGM+3
     3280   01 01042    EAF00218              BAL,15  *:HEXC
     3281   01 01043    35F003FC              STW,15   IOCDMSGM+2
     3282   01 01044    32C0000D A            LW,12    13
     3283   01 01045    EAF00218              BAL,15  *:HEXC
     3284   01 01046    35F00400              STW,15   IOCDMSGM+6
     3285   01 01047    EAF00218              BAL,15  *:HEXC
     3286   01 01048    35F003FF              STW,15   IOCDMSGM+5
     3287   01 01049    EAF0021C              BAL,15   *:PRINT
     3288   01 0104A    000003FA              DATA     IOCDMSGM

     3290   01 0104B    08F00412              EXIT
            01 0104C    E800000F A

     3292   01 0104D    09F00412     GENIOXEQ ENTER

     3294   01 0104E    6AF016BD              BAL,R15  CLRARM            SET THE I/O INTERRUPT
     3295   01 0104F    6AF017D9              BAL,R15  :IOEXEC           EXECUTE THE I/O PROGRAM

     3297   01 01050    22E00640 A            LI,R14   1600              SET TIMEOUT AT 1.6 SECONDS
     3298   01 01051    6AF016C4              BAL,R15  MYDELAY            AND DELAY FOR INTERRUPT

     3300   01 01052    08F00412              EXIT
            01 01053    E800000F A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   61
A    3302   01 01054    09F00412     RECOMPAT ENTER                      SET COMPARE AND GENERATION

     3304   01 01055    22002000              LI,R0    BUFF1             SET EXPECTED BUFFER
     3305   01 01056    350018B5              STW,R0   :COMBFRA           AND GENERATION BUFFER
     3306   01 01057    3500184E              STW,R0   :PATBFR

     3308   01 01058    22002804              LI,R0    BUFF2+4           SET OBSERVED BUFFER
     3309   01 01059    350018B6              STW,R0   :COMBFRB

     3311   01 0105A    22000000 A            LI,R0    0                 SET FOR COMPARE
     3312   01 0105B    350018B7              STW,R0   :COMFLAG           ERROR DISPLAY

     3314   01 0105C    22000006 A            LI,R0    6                 OUTPUT 6 LINES
     3315   01 0105D    350018B8              STW,R0   :COMPLIN           IN CASE OF COMPARISON FAULT

     3317   01 0105E    3520184A              STW,R2   :PATID            SET FOR RANDOM DATA

     3319   01 0105F    08F00412              EXIT
            01 01060    E800000F A

     3321   01 01061    09F00412     RERESET  ENTER                      RESET VARIOUS RE PARAMETERS

     3323   01 01062    22F011D9              LI,R15   RECOUNT           SET ERROR KEY
     3324   01 01063    35F01251              STW,R15  GENKEY             TO DISPLAY CYCLE NUMBER

     3326   01 01064    224FFFFA A            LI,R4    RECNTBEG-RECNTEND CLEAR ALL COUNTERS
     3327   01 01065    22000000 A            LI,R0    0
     3328   01 01066    350811E0              STW,R0   RECNTEND,R4
     3329   01 01067    65401066              BIR,R4   %-1

     3331   01 01068    350011D9              STW,R0   RECOUNT

     3333   01 01069    08F00412              EXIT
            01 0106A    E800000F A

     3335         01 0106B           T2RE     EQU      %
     3336   01 0106B    6AF01054              BAL,R15  RECOMPAT          SET PARAMETERS

     3338   01 0106C    6AF01061              BAL,R15  RERESET           CLEAR COUNTERS

     3340   01 0106D    6AF01194              BAL,R15  REPHYS            GET PHYS ADDRESSES AND GO ONLINE

     3342   01 0106E    EAF0021C              BAL,R15  *:PRINT           DISPLAY RE WARNING
     3343   01 0106F    00000408              DATA     TST0RE

     3345   01 01070    320011D0              LW,R0    UNIT0             IF UNITS ARE
     3346   01 01071    310011D1              CW,R0    UNIT1              UNIQUE USE PROPER
     3347   01 01072    6930107C              BNE      T2RF                PHYSICAL ADDRESSES

     3349   01 01073    22000000 A            LI,R0    0                 KILL UNIT1-->UNIT0
     3350   01 01074    350011D6              STW,R0   REMASK1            OPERATIONS

     3352   01 01075    32000330              LW,R0    :CDB+1            CHECK NETWORK BIT
     3353   01 01076    21000001 A            CI,R0    1                  AND SKIP IF OFFLINE
     3354   01 01077    6940107C              BANZ     T2RF

     3356   01 01078    330003CB              MTW,0    ITHTEST           SKIP IF TEST 0
     3357   01 01079    6830107C              BEZ      T2RF

     3359   01 0107A    124015B2              LD,R4    PHYADD35          ELSE DESTINATION
     3360   01 0107B    154011CE              STD,R4   PHYSADD1           FROM LIMT,4

     3362   01 0107C    22000000 A   T2RF     LI,R0    0                 CLEAR
     3363   01 0107D    35001669              STW,R0   TIMEFLAG            TIMER HEADER FLAG
     3364   01 0107E    35000238              STW,R0   :CLOCK3              ELAPSED TIMER

     3366   01 0107F    6AF01805     RELOOP   BAL,R15  :RANDOM           GENERATE A RANDOM NUMBER

     3368   01 01080    220001FF A            LI,R0    X'1FF'            FORM RANDOM SIZE
     3369   01 01081    4B00000E A            AND,R0   R14

     3371   01 01082    2100000C A            CI,R0    12                LOWER LIMIT
     3372   01 01083    68101085              BGE      %+2                IS FOLDED UP
     3373   01 01084    2000000C A            AI,R0    12

     3375   01 01085    21000177 A            CI,R0    375               UPPER LIMIT
     3376   01 01086    68201088              BLE      %+2                IS BOUNDED
     3377   01 01087    22000177 A            LI,R0    375

     3379   01 01088    350018B4              STW,R0   :COMWCNT          FIX COUNT FOR COMPARE
     3380   01 01089    3500184D              STW,R0   :PATWCNT           AND PATTERN GENERATION

     3382   01 0108A    25000002 A            SLS,R0   2                 FIX BYTE COUNT
     3383   01 0108B    350012A9              STW,R0   LNGTST             FOR BUILDING IOCDS
     3384   01 0108C    20000010 A            AI,R0    12+4                AND TESTING HEADERS
     3385   01 0108D    350011D7              STW,R0   RELENG

     3387   01 0108E    6AF012AA              BAL,R15  REBUILD           BUILD CHANNEL PROGRAMS

     3389   01 0108F    32E01811              LW,R14   :SEED
     3390   01 01090    25E00077 A            SLS,R14  -9

     3392   01 01091    22000007 A            LI,R0    7                 FORM NUMBER OF FRAMES
     3393   01 01092    4B00000E A            AND,R0   R14                TO TRANSMIT ON UNIT 0
     3394   01 01093    20000001 A            AI,R0    1

     3396   01 01094    310011D5              CW,R0    REMASK0           LIMIT TO PARAMETER
     3397   01 01095    68201097              BLE      %+2
     3398   01 01096    320011D5              LW,R0    REMASK0
     3399   01 01097    350011D3              STW,R0   RECNT0

     3401   01 01098    25E0007D A            SLS,R14  -3                GET NEXT 3 BITS

     3403   01 01099    22000007 A            LI,R0    7                 FORM NUMBER OF FRAMES
     3404   01 0109A    4B00000E A            AND,R0   R14                TO TRANSMIT ON UNIT 1
     3405   01 0109B    20000001 A            AI,R0    1

     3407   01 0109C    310011D6              CW,R0    REMASK1           LIMIT TO PARAMETER
     3408   01 0109D    6820109F              BLE      %+2
     3409   01 0109E    320011D6              LW,R0    REMASK1
     3410   01 0109F    350011D4              STW,R0   RECNT1

     3412   01 010A0    6AF01813              BAL,R15  :PATTERN          GENERATE A RANDOM BUFFER

     3414   01 010A1    320011D3              LW,R0    RECNT0            PREPARE TO TRANSMIT
     3415   01 010A2    683010A7              BEZ      RESNGL0
     3416   01 010A3    350011D2              STW,R0   RECNT              N FRAMES ON UNIT 0

     3418   01 010A4    6AF0113F              BAL,R15  REXMT0
     3419   01 010A5    33F011D2              MTW,-1   RECNT
     3420   01 010A6    693010A4              BNEZ     %-2

     3422   01 010A7    320011D4     RESNGL0  LW,R0    RECNT1            PREPARE TO TRANSMIT
     3423   01 010A8    683010AD              BEZ      RESNGL1
     3424   01 010A9    350011D2              STW,R0   RECNT              M FRAMES ON UNIT 1

     3426   01 010AA    6AF0117B              BAL,R15  REXMT1
     3427   01 010AB    33F011D2              MTW,-1   RECNT
     3428   01 010AC    693010AA              BNEZ     %-2

     3430   01 010AD    320011D3     RESNGL1  LW,R0    RECNT0            PREPARE TO RECEIVE
     3431   01 010AE    683010B3              BEZ      RESNGL2
     3432   01 010AF    350011D2              STW,R0   RECNT              N FRAMES ON UNIT 1

     3434   01 010B0    6AF01158              BAL,R15  RERCV1
     3435   01 010B1    33F011D2              MTW,-1   RECNT
     3436   01 010B2    693010B0              BNEZ     %-2

     3438   01 010B3    320011D4     RESNGL2  LW,R0    RECNT1            PREPARE TO RECEIVE
     3439   01 010B4    683010B9              BEZ      RESNGL3
     3440   01 010B5    350011D2              STW,R0   RECNT              M FRAMES ON UNIT 0

     3442   01 010B6    6AF0111C              BAL,R15  RERCV0
     3443   01 010B7    33F011D2              MTW,-1   RECNT
     3444   01 010B8    693010B6              BNEZ     %-2

     3446         01 010B9           RESNGL3  EQU      %
     3447   01 010B9    331011D9              MTW,1    RECOUNT           UPDATE CYCLE COUNTER

     3449   01 010BA    EAF0022A              BAL,R15  *:QSENSE          CHECK FOR OPERATOR
     3450   01 010BB    694010C2              BCS,4    REDONE             REQUESTING TERMINATION

     3452   01 010BC    320011D9              LW,R0    RECOUNT           LOOP FOR NORMAL
     3453   01 010BD    310011D8              CW,R0    RELIMIT            TERMINATION
     3454   01 010BE    681010C2              BGE      REDONE

     3456   01 010BF    32C011D9              LW,R12   RECOUNT           ELSE CONDITIONALLY
     3457   01 010C0    6AF01642              BAL,R15  TIMECOND           DISPLAY PERFORMANCE TIMING

     3459   01 010C1    6800107F              B        RELOOP            CONTINUE

     3461         01 010C2           REDONE   EQU      %
     3462   01 010C2    32C011D9              LW,R12   RECOUNT           DISPLAY FINAL TIMING
     3463   01 010C3    6AF0164C              BAL,R15  TIMEDISP

     3465   01 010C4    6AF010C6              BAL,R15  RESUM             DISPLAY STATISTICS
     3466   01 010C5    68000527              B        TST203             BACK TO TST2 MONITOR

     3468   01 010C6    09F00412     RESUM    ENTER                      DISPLAY STATISTICS

     3470   01 010C7    EAF0021C              BAL,R15  *:PRINT           PRINT SPACE
     3471   01 010C8    0000040E              DATA     SPACE

     3473   01 010C9    EAF0021C              BAL,R15  *:PRINT           PRINT HEADER
     3474   01 010CA    000011EC              DATA     REDISP0

     3476   01 010CB    32C011D0              LW,R12   UNIT0             UNIT NUMBER
     3477   01 010CC    EAF00218              BAL,R15  *:HEXC
     3478   01 010CD    35F011F7              STW,R15  REDISP1+1

     3480   01 010CE    12C011CE              LD,R12   PHYSADD1          PHYSICAL ADDRESS
     3481   01 010CF    EAF00218              BAL,R15  *:HEXC             OF DESTINATION
     3482   01 010D0    35F011FA              STW,R15  REDISP1+4
     3483   01 010D1    EAF00218              BAL,R15  *:HEXC
     3484   01 010D2    35F011F9              STW,R15  REDISP1+3
     3485   01 010D3    32C0000D A            LW,R12   R13
     3486   01 010D4    25C00070 A            SLS,R12  -16
     3487   01 010D5    EAF00218              BAL,R15  *:HEXC
     3488   01 010D6    35F011FB              STW,R15  REDISP1+5

     3490   01 010D7    32C011DC              LW,R12   REGONE,R0         FRAMES OUT
     3491   01 010D8    EAF00217              BAL,R15  *:DECC
     3492   01 010D9    35F011FD              STW,R15  REDISP1+7
     3493   01 010DA    EAF00217              BAL,R15  *:DECC
     3494   01 010DB    55F211FC              STH,R15  REDISP1+6,R1

     3496   01 010DC    22400000 A            LI,R4    0                 SET TO UNIT 0
     3497   01 010DD    320011D1              LW,R0    UNIT1              UNLESS UNITS ARE
     3498   01 010DE    310011D0              CW,R0    UNIT0               NOT UNIQUE
     3499   01 010DF    693010E1              BNE      %+2                  THEN UNIT 1

     3501   01 010E0    22400001 A            LI,R4    1

     3503   01 010E1    32C811DE              LW,R12   RECOME,R4         FRAMES IN
     3504   01 010E2    EAF00217              BAL,R15  *:DECC
     3505   01 010E3    35F011FF              STW,R15  REDISP1+9
     3506   01 010E4    EAF00217              BAL,R15  *:DECC
     3507   01 010E5    55F211FE              STH,R15  REDISP1+8,R1

     3509   01 010E6    EAF0021C              BAL,R15  *:PRINT           PRINT UNIT 0 STATISTICS
     3510   01 010E7    000011F6              DATA     REDISP1

     3512   01 010E8    32C011D1              LW,R12   UNIT1             UNIT NUMBER
     3513   01 010E9    31C011D0              CW,R12   UNIT0              BUT SKIP IF NOT UNIQUE
     3514   01 010EA    68301102              BE       RESUM0

     3516   01 010EB    EAF00218              BAL,R15  *:HEXC
     3517   01 010EC    35F011F7              STW,R15  REDISP1+1

     3519   01 010ED    12C011CC              LD,R12   PHYSADD0          PHYSICAL ADDRESS
     3520   01 010EE    EAF00218              BAL,R15  *:HEXC             OF DESTINATION
     3521   01 010EF    35F011FA              STW,R15  REDISP1+4
     3522   01 010F0    EAF00218              BAL,R15  *:HEXC
     3523   01 010F1    35F011F9              STW,R15  REDISP1+3
     3524   01 010F2    32C0000D A            LW,R12   R13
     3525   01 010F3    25C00070 A            SLS,R12  -16
     3526   01 010F4    EAF00218              BAL,R15  *:HEXC
     3527   01 010F5    35F011FB              STW,R15  REDISP1+5

     3529   01 010F6    32C211DC              LW,R12   REGONE,R1         FRAMES OUT
     3530   01 010F7    EAF00217              BAL,R15  *:DECC
     3531   01 010F8    35F011FD              STW,R15  REDISP1+7
     3532   01 010F9    EAF00217              BAL,R15  *:DECC
     3533   01 010FA    55F211FC              STH,R15  REDISP1+6,R1

     3535   01 010FB    32C211DE              LW,R12   RECOME,R1         FRAMES IN
     3536   01 010FC    EAF00217              BAL,R15  *:DECC
     3537   01 010FD    35F011FF              STW,R15  REDISP1+9
     3538   01 010FE    EAF00217              BAL,R15  *:DECC
     3539   01 010FF    55F211FE              STH,R15  REDISP1+8,R1

     3541   01 01100    EAF0021C              BAL,R15  *:PRINT           PRINT UNIT 1 STATISTICS
     3542   01 01101    000011F6              DATA     REDISP1

     3544   01 01102    EAF0021C     RESUM0   BAL,R15  *:PRINT           SPACE AT END
     3545   01 01103    0000040E              DATA     SPACE

     3547   01 01104    08F00412              EXIT
            01 01105    E800000F A

     3549   01 01106    324018B4     RECLEAR  LW,R4    :COMWCNT          CLEAR INPUT BUFFER
     3550   01 01107    20400002 A            AI,R4    2                  ALLOW EXTRA BYTES
     3551   01 01108    22502800              LI,R5    BUFF2
     3552   01 01109    30500004 A            AW,R5    R4

     3554   01 0110A    3A400004 A            LCW,R4   R4
     3555   01 0110B    22000000 A            LI,R0    0

     3557   01 0110C    B5080005 A            STW,R0   *R5,R4
     3558   01 0110D    6540110C              BIR,R4   %-1

     3560   01 0110E    E800000F A            B        *R15

     3562   01 0110F    09F00412     REATTN   ENTER

     3564   01 01110    22E00800 A            LI,R14   2048              SET THRESHOLD AT 2048
     3565   01 01111    6AF01920              BAL,R15  :DELAYAT           MILLISECONDS WHILE WAITING
     3566   01 01112    68001116              B        REATTN0             FOR THE ATTENTION

     3568   01 01113    B3100412              MTW,1    *DPM:STK          TAKE ERROR EXIT

     3570   01 01114    08F00412              EXIT
            01 01115    E800000F A

     3572   01 01116    22002FFC     REATTN0  FAIL     TSEQATTN,9971     VERIFY ATTENTION BIT
            01 01117    6AF0120C
            01 01118    000026F3 A
            01 01119    6800111A

     3574   01 0111A    08F00412              EXIT
            01 0111B    E800000F A

     3576   01 0111C    09F00412     RERCV0   ENTER                      RECEIVE A FRAME (UNIT 0)

     3578   01 0111D    320011D0              LW,R0    UNIT0
     3579   01 0111E    35000459              STW,R0   :DEVADDR

     3581   01 0111F    6AF01106              BAL,R15  RECLEAR           CLEAR INPUT BUFFER

     3583   01 01120    320011D2              LW,R0    RECNT             DONT WAIT FOR THE
     3584   01 01121    310011D4              CW,R0    RECNT1             VERY FIRST ATTENTION
     3585   01 01122    6830112B              BE       RERCV00             (PICKED UP IN REXMT1)

     3587   01 01123    6AF0110F              BAL,R15  REATTN            WAIT FOR ATTENTION
     3588   01 01124    6800112B              B        RERCV00            SKIP IF ARRIVED

     3590   01 01125    32C011D0              LW,R12   UNIT0             DISPLAY UNIT 0
     3591   01 01126    EAF00218              BAL,R15  *:HEXC             LOST FRAME WARNING
     3592   01 01127    35F01201              STW,R15  REWRNLF+1

     3594   01 01128    EAF0021C              BAL,R15  *:PRINT
     3595   01 01129    00001200              DATA     REWRNLF

     3597   01 0112A    331011DA              MTW,1    RELOST,R0         TALLY LOST FRAMES

     3599   01 0112B    2200093E     RERCV00  IOTST    RFRAND,TSEQNRML,9961     INPUT A FRAME
            01 0112C    6AF0104D
            01 0112D    22003038
            01 0112E    6AF0120C
            01 0112F    000026E9 A
            01 01130    6800112B

     3601   01 01131    320011D7              REFRM    RELENG,9962       VERIFY FRAME SIZE
            01 01132    6AF00F3D
            01 01133    68001137
            01 01134    6AF0120A
            01 01135    000026EA A
            01 01136    68001137

     3603   01 01137    6AF01850              BAL,R15  :COMPARE          VERIFY DATA INTEGRITY
     3604   01 01138    6800113C              B        RERCV01            SKIP IF GOOD

     3606   01 01139    6AF0120A              ERROR    9963
            01 0113A    000026EB A
            01 0113B    6800113C

     3608   01 0113C    331011DE     RERCV01  MTW,1    RECOME,R0         TALLY FRAMES IN

     3610   01 0113D    08F00412              EXIT
            01 0113E    E800000F A

     3612   01 0113F    09F00412     REXMT0   ENTER                      TRANSMIT FRAME (UNIT 0)

     3614   01 01140    320011D0              LW,R0    UNIT0             SET UNIT 0
     3615   01 01141    35000459              STW,R0   :DEVADDR

     3617   01 01142    220008F0              IOTST    REWR0,TSEQNRML,9960    OUTPUT A FRAME
            01 01143    6AF0104D
            01 01144    22003038
            01 01145    6AF0120C
            01 01146    000026E8 A
            01 01147    68001142

     3619   01 01148    331011DC              MTW,1    REGONE,R0         TALLY FRAMES OUT

     3621   01 01149    320011D2              LW,R0    RECNT             IF THIS IS THE
     3622   01 0114A    310011D3              CW,R0    RECNT0             VERY FIRST TRANSMISSION
     3623   01 0114B    69301156              BNE      REXMT00             FOR THIS CYCLE - WAIT

     3625   01 0114C    320011D1              LW,R0    UNIT1             PREPARE TO RECEIVE
     3626   01 0114D    35000459              STW,R0   :DEVADDR           INTERRUPT FROM UNIT 1

     3628   01 0114E    6AF0110F              BAL,R15  REATTN            WAIT FOR ATTENTION
     3629   01 0114F    68001156              B        REXMT00            SKIP IF ARRIVED

     3631   01 01150    32C011D1              LW,R12   UNIT1             DISPLAY UNIT 1
     3632   01 01151    EAF00218              BAL,R15  *:HEXC             LOST FRAME WARNING
     3633   01 01152    35F01201              STW,R15  REWRNLF+1

     3635   01 01153    EAF0021C              BAL,R15  *:PRINT           DISPLAY LOST FRAME WARNING
     3636   01 01154    00001200              DATA     REWRNLF

     3638   01 01155    331211DA              MTW,1    RELOST,R1         TALLY LOST FRAMES

     3640   01 01156    08F00412     REXMT00  EXIT
            01 01157    E800000F A

     3642   01 01158    09F00412     RERCV1   ENTER                      RECEIVE A FRAME (UNIT 1)

     3644   01 01159    320011D1              LW,R0    UNIT1
     3645   01 0115A    35000459              STW,R0   :DEVADDR

     3647   01 0115B    6AF01106              BAL,R15  RECLEAR           CLEAR INPUT BUFFER

     3649   01 0115C    320011D2              LW,R0    RECNT             DONT WAIT FOR THE
     3650   01 0115D    310011D3              CW,R0    RECNT0             VERY FIRST ATTENTION
     3651   01 0115E    68301167              BE       RERCV10             (PICKED UP IN REXMT1)

     3653   01 0115F    6AF0110F              BAL,R15  REATTN            WAIT FOR ATTENTION
     3654   01 01160    68001167              B        RERCV10            SKIP IF ARRIVED

     3656   01 01161    32C011D1              LW,R12   UNIT1             DISPLAY UNIT 1
     3657   01 01162    EAF00218              BAL,R15  *:HEXC             LOST FRAME WARNING
     3658   01 01163    35F01201              STW,R15  REWRNLF+1

     3660   01 01164    EAF0021C              BAL,R15  *:PRINT           DISPLAY LOST FRAME WARNING
     3661   01 01165    00001200              DATA     REWRNLF

     3663   01 01166    331211DA              MTW,1    RELOST,R1         TALLY LOST FRAMES

     3665   01 01167    2200093E     RERCV10  IOTST    RFRAND,TSEQNRML,9961     INPUT A FRAME
            01 01168    6AF0104D
            01 01169    22003038
            01 0116A    6AF0120C
            01 0116B    000026E9 A
            01 0116C    68001167

     3667   01 0116D    320011D7              REFRM    RELENG,9962       VERIFY FRAME SIZE
            01 0116E    6AF00F3D
            01 0116F    68001173
            01 01170    6AF0120A
            01 01171    000026EA A
            01 01172    68001173

     3669   01 01173    6AF01850              BAL,R15  :COMPARE          VERIFY DATA INTEGRITY
     3670   01 01174    68001178              B        RERCV11            SKIP IF GOOD

     3672   01 01175    6AF0120A              ERROR    9963
            01 01176    000026EB A
            01 01177    68001178

     3674   01 01178    331211DE     RERCV11  MTW,1    RECOME,R1         TALLY FRAMES IN

     3676   01 01179    08F00412              EXIT
            01 0117A    E800000F A

     3678   01 0117B    09F00412     REXMT1   ENTER                      TRANSMIT FRAME (UNIT 0)

     3680   01 0117C    320011D1              LW,R0    UNIT1             SET UNIT 0
     3681   01 0117D    35000459              STW,R0   :DEVADDR

     3683   01 0117E    220008F3              IOTST    REWR1,TSEQNRML,9960    OUTPUT A FRAME
            01 0117F    6AF0104D
            01 01180    22003038
            01 01181    6AF0120C
            01 01182    000026E8 A
            01 01183    6800117E

     3685   01 01184    331211DC              MTW,1    REGONE,R1         TALLY FRAMES OUT

     3687   01 01185    320011D2              LW,R0    RECNT             IF THIS IS THE
     3688   01 01186    310011D4              CW,R0    RECNT1             VERY FIRST TRANSMISSION
     3689   01 01187    69301192              BNE      REXMT11             FOR THIS CYCLE - WAIT

     3691   01 01188    320011D0              LW,R0    UNIT0             PREPARE TO RECEIVE
     3692   01 01189    35000459              STW,R0   :DEVADDR           INTERRUPT FROM UNIT 0

     3694   01 0118A    6AF0110F              BAL,R15  REATTN            WAIT FOR ATTENTION
     3695   01 0118B    68001192              B        REXMT11            SKIP IF ARRIVED

     3697   01 0118C    32C011D0              LW,R12   UNIT0             DISPLAY UNIT 0
     3698   01 0118D    EAF00218              BAL,R15  *:HEXC             LOST FRAME WARNING
     3699   01 0118E    35F01201              STW,R15  REWRNLF+1

     3701   01 0118F    EAF0021C              BAL,R15  *:PRINT
     3702   01 01190    00001200              DATA     REWRNLF

     3704   01 01191    331011DA              MTW,1    RELOST,R0         TALLY LOST FRAMES

     3706   01 01192    08F00412     REXMT11  EXIT
            01 01193    E800000F A

     3708   01 01194    09F00412     REPHYS   ENTER                      SENSE PHYSICAL ADDRESS, GO ONLINE

     3710   01 01195    320011D0              LW,R0    UNIT0             GET PHYSICAL ADDRESS (UNIT 0)
     3711   01 01196    6AF0119D              BAL,R15  REGETADD
     3712   01 01197    154011CC              STD,R4   PHYSADD0

     3714   01 01198    320011D1              LW,R0    UNIT1             GET PHYSICAL ADDRESS (UNIT 1)
     3715   01 01199    6AF0119D              BAL,R15  REGETADD
     3716   01 0119A    154011CE              STD,R4   PHYSADD1

     3718   01 0119B    08F00412              EXIT
            01 0119C    E800000F A

     3720   01 0119D    09F00412     REGETADD ENTER

     3722   01 0119E    35000459              STW,R0   :DEVADDR          SAVE DEVICE ADDRESS

     3724   01 0119F    313003CB              CW,R3    ITHTEST           SKIP IF NOT TST3
     3725   01 011A0    693011A4              BNE      REGETAD4

     3727   01 011A1    320003CC              LW,R0    ITHSUBT           SKIP IF SUBTEST.GE.10
     3728   01 011A2    2100000A A            CI,R0    10                 (NO RESETS)
     3729   01 011A3    681011A6              BGE      REGETAD3

     3731   01 011A4    22E00000 A   REGETAD4 RESET    0                 CLEAR THE INTERFACE
            01 011A5    6AF00F19

     3733   01 011A6    320011D0     REGETAD3 LW,R0    UNIT0             SKIP IF UNITS
     3734   01 011A7    310011D1              CW,R0    UNIT1              ARE UNIQUE
     3735   01 011A8    693011B5              BNE      REGETAD1

     3737   01 011A9    330003CB              MTW,0    ITHTEST           SKIP TO LOOPBACK SET
     3738   01 011AA    683011AE              BEZ      REGETAD0           IF IN TST0

     3740   01 011AB    32000330              LW,R0    :CDB+1            CHECK FOR NETWORK
     3741   01 011AC    21000001 A            CI,R0    1                  AND SKIP IF ONLINE
     3742   01 011AD    684011B5              BAZ      REGETAD1

     3744   01 011AE    220008E3     REGETAD0 IOTST    SNSELOOP,TSEQNRML,9970 SENSE AND GO INTERNAL
            01 011AF    6AF0104D
            01 011B0    22003038
            01 011B1    6AF0120C
            01 011B2    000026F2 A
            01 011B3    680011AE

     3746   01 011B4    680011BB              B        REGETAD2

     3748   01 011B5    220008E0     REGETAD1 IOTST    SNSEONLN,TSEQNRML,9971 SENSE AND GO ONLINE
            01 011B6    6AF0104D
            01 011B7    22003038
            01 011B8    6AF0120C
            01 011B9    000026F3 A
            01 011BA    680011B5

     3750   01 011BB    32402801     REGETAD2 LW,R4    BUFF2+1
     3751   01 011BC    32502802              LW,R5    BUFF2+2

     3753   01 011BD    08F00412              EXIT
            01 011BE    E800000F A

     3755   01 011C0    0400A000     SNSEONLN IOCD     X'04',BA(BUFF2),X'2E',66
            01 011C1    2E000042 A
     3756   01 011C2    03003FCA              IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 011C3    2E000001 A
     3757   01 011C4    03003FC5              IOCD     X'03',BA(MODES)+X'9',X'1E',1
            01 011C5    1E000001 A

     3759   01 011C6    0400A000     SNSELOOP IOCD     X'04',BA(BUFF2),X'2E',66
            01 011C7    2E000042 A
     3760   01 011C8    03003FCA              IOCD     X'03',BA(MODES)+X'E',X'2E',1
            01 011C9    2E000001 A
     3761   01 011CA    03003FBE              IOCD     X'03',BA(MODES)+X'2',X'1E',1
            01 011CB    1E000001 A

     3763                                     BOUND    8
     3764   01 011CC                 PHYSADD0 RES      2                 UNIT 0 PHYSICAL ADDRESS
     3765   01 011CE                 PHYSADD1 RES      2                 UNIT 1 PHYSICAL ADDRESS

     3767   01 011D0                 UNIT0    RES      1
     3768   01 011D1                 UNIT1    RES      1

     3770   01 011D2                 RECNT    RES      1
     3771   01 011D3                 RECNT0   RES      1
     3772   01 011D4                 RECNT1   RES      1

     3774   01 011D5                 REMASK0  RES      1                 FRAMES/CYCLE LIMIT: UNIT0-->UNIT1
     3775   01 011D6                 REMASK1  RES      1                 FRAMES/CYCLE LIMIT: UNIT1-->UNIT0

     3777   01 011D7                 RELENG   RES      1                 EXPECTED LENGTH OF FRAME
     3778   01 011D8                 RELIMIT  RES      1                 NUMBER OF CYCLES REQUESTED
     3779   01 011D9                 RECOUNT  RES      1                 NUMBER OF CYCLES PERFORMED

     3781         01 011DA           RECNTBEG EQU      %                 SPACE FOR STATISTICS

     3783   01 011DA                 RELOST   RES      2                 LOST FRAMES
     3784   01 011DC                 REGONE   RES      2                 FRAMES OUT
     3785   01 011DE                 RECOME   RES      2                 FRAMES IN

     3787         01 011E0           RECNTEND EQU      %

     3789   01 011E0    01004738     REWR0    IOCD     X'01',BA(PHYSADD1),X'8C',6
            01 011E1    8C000006 A
     3790   01 011E2    00004730              IOCD     X'00',BA(PHYSADD0),X'8C',6
            01 011E3    8C000006 A
     3791   01 011E4    0800092A              IOCD     X'08',DA(WRRAND),0,0
            01 011E5    00000000 A

     3793   01 011E6    01004730     REWR1    IOCD     X'01',BA(PHYSADD0),X'8C',6
            01 011E7    8C000006 A
     3794   01 011E8    00004738              IOCD     X'00',BA(PHYSADD1),X'8C',6
            01 011E9    8C000006 A
     3795   01 011EA    0800092A              IOCD     X'08',DA(WRRAND),0,0
            01 011EB    00000000 A

     3797   01 011EC    27404040 A   REDISP0  TEXTC    '   UNIT     DESTINATION  WRITES   READS'
            01 011ED    E4D5C9E3 A
            01 011EE    40404040 A
            01 011EF    40C4C5E2 A
            01 011F0    E3C9D5C1 A
            01 011F1    E3C9D6D5 A
            01 011F2    4040E6D9 A
            01 011F3    C9E3C5E2 A
            01 011F4    404040D9 A
            01 011F5    C5C1C4E2 A
     3798   01 011F6    27404040 A   REDISP1  TEXTC    '   XXXX    XXXXXXXXXXXX  XXXXXX  XXXXXX'
            01 011F7    E7E7E7E7 A
            01 011F8    40404040 A
            01 011F9    E7E7E7E7 A
            01 011FA    E7E7E7E7 A
            01 011FB    E7E7E7E7 A
            01 011FC    4040E7E7 A
            01 011FD    E7E7E7E7 A
            01 011FE    4040E7E7 A
            01 011FF    E7E7E7E7 A
     3799   01 01200    12404040 A   REWRNLF  TEXTC    '   XXXX LOST FRAME'
            01 01201    E7E7E7E7 A
            01 01202    40D3D6E2 A
            01 01203    E340C6D9 A
            01 01204    C1D4C540 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   62
A    3801   01 01205    09F00412     GENDELAY ENTER                      GENERAL MILLISECOND DELAY
     3802   01 01206    6AF018FE              BAL,R15  :DELAY
     3803   01 01207    68001208              B        %+1
     3804   01 01208    08F00412              EXIT                       TIMEOUT (REAL TIME ELAPSED)
            01 01209    E800000F A

     3806   01 0120A    22E01217     GENERROR LI,R14   GENFAILV          NULL ERROR HANDLER
     3807   01 0120B    6800120F              B        GENFAIL0

     3809   01 0120C    22E019CF     GENFAIL  LI,R14   :ERRORT           GENERAL ERROR HANDLER
     3810   01 0120D    6800120F              B        GENFAIL0

     3812   01 0120E    22E019CE     GENFAILS LI,R14   :ERRORS           FORCED ERROR HANDLER

     3814   01 0120F    09F00412     GENFAIL0 ENTER

     3816   01 01210    B2F0000F A            LW,R15   *R15              FETCH ERROR ID AND
     3817   01 01211    35F01218              STW,R15  GENFAILY          SAVE IN MONITOR CALL

     3819   01 01212    35001215              STW,R0   GENFAILX          SAVE POINTER TO ERROR PATTERN
     3820   01 01213    B3100412              MTW,1    *DPM:STK          POINT TO ERROR EXIT

     3822   01 01214    EAF0000E A            BAL,R15  *R14              CALL ERROR PATTERN CHECKER
     3823   01 01215    00000000 A   GENFAILX DATA     0
     3824   01 01216    6800121C              B        GENFAILW          NORMAL EXIT

     3826   01 01217    6AF0121F     GENFAILV BAL,R15  GENERR
     3827   01 01218    00000000 A   GENFAILY DATA     0                 DISPLAY ERROR ID

     3829   01 01219    EAF0021D              BAL,R15  *:SENSE
     3830   01 0121A    2E000000 A            WAIT
     3831   01 0121B    6800121D              B        GENFAILZ          LOOP EXIT

     3833   01 0121C    B3100412     GENFAILW MTW,1    *DPM:STK          POINT TO NORMAL EXIT

     3835   01 0121D    08F00412     GENFAILZ EXIT                        EXIT APPROPRIATELY
            01 0121E    E800000F A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   63
A    3837   01 0121F    09F00412     GENERR   ENTER                      GENERAL ERROR ROUTINE

     3839   01 01220    B2C0000F A            LW,R12   *R15              DISPLAY ERROR ID
     3840   01 01221    EAF00217              BAL,R15  *:DECC
     3841   01 01222    32E01BC3              LW,R14   =' LO:'
     3842   01 01223    25E00318 A            SCD,R14  24
     3843   01 01224    35E01245              STW,R14  GENERRM+1
     3844   01 01225    35F01246              STW,R15  GENERRM+2
     3845   01 01226    35E0124A              STW,R14  GENERRN+1
     3846   01 01227    35F0124B              STW,R15  GENERRN+2

     3848   01 01228    32C00412              LW,R12   DPM:STK           FETCH MOST PROBABLE
     3849   01 01229    20CFFFFF A            AI,R12   -1                 ERROR ADDRESS
     3850   01 0122A    B2C0000C A            LW,R12   *R12

     3852   01 0122B    20CFFFFE A            AI,R12   -2
     3853   01 0122C    EAF00218              BAL,R15  *:HEXC

     3855   01 0122D    32E01BC4              LW,R14   ='  C:'
     3856   01 0122E    25E00310 A            SCD,R14  16
     3857   01 0122F    35E01247              STW,R14  GENERRM+3
     3858   01 01230    35F01248              STW,R15  GENERRM+4
     3859   01 01231    35E0124C              STW,R14  GENERRN+3
     3860   01 01232    35F0124D              STW,R15  GENERRN+4

     3862   01 01233    EAF0021C              BAL,R15  *:PRINT           PRINT SPACE
     3863   01 01234    0000040E              DATA     SPACE

     3865   01 01235    33001251              MTW,0    GENKEY            SKIP IF NO ERROR
     3866   01 01236    6830123F              BEZ      GENERR0            KEY SPECIFIED

     3868   01 01237    B2C01251              LW,R12   *GENKEY           ELSE CONVERT
     3869   01 01238    EAF00218              BAL,R15  *:HEXC             AND DISPLAY THE
     3870   01 01239    35F01250              STW,R15  GENERRN+7           CURRENT ERROR KEY
     3871   01 0123A    EAF00218              BAL,R15  *:HEXC
     3872   01 0123B    35F0124F              STW,R15  GENERRN+6

     3874   01 0123C    EAF0021C              BAL,R15  *:PRINT
     3875   01 0123D    00001249              DATA     GENERRN

     3877   01 0123E    68001241              B        GENERR1


     3880   01 0123F    EAF0021C     GENERR0  BAL,R15  *:PRINT
     3881   01 01240    00001244              DATA     GENERRM

     3883   01 01241    B3100412     GENERR1  MTW,1    *DPM:STK          SKIP ERROR CODE
     3884   01 01242    08F00412              EXIT
            01 01243    E800000F A

     3886   01 01244    11C5D9D9 A   GENERRM  TEXTC    'ERR:XXXX LOC:XXXX'
            01 01245    7AE7E7E7 A
            01 01246    E740D3D6 A
            01 01247    C37AE7E7 A
            01 01248    E7E74040 A
     3887   01 01249    1FC5D9D9 A   GENERRN  TEXTC    'ERR:XXXX LOC:XXXX  KEY:XXXXXXXX'
            01 0124A    7AE7E7E7 A
            01 0124B    E740D3D6 A
            01 0124C    C37AE7E7 A
            01 0124D    E7E74040 A
            01 0124E    D2C5E87A A
            01 0124F    E7E7E7E7 A
            01 01250    E7E7E7E7 A

     3889   01 01251                 GENKEY   RES      1                 POINTER TO ERROR KEY (OR NULL)
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   64
A    3891         00000014           RMAX     EQU      20                ABSOLUTE MAXIMUM
     3892   01 01252    00000013 A   MXRAND   DATA     RMAX-1

     3894                                     BOUND    8
     3895   01 01254                 WRRAND   RES      RMAX*2            WRITE I/O
     3896   01 0127C                 RFRAND   RES      RMAX*2            READ I/O

     3898   01 012A4                 RABA     RES      1                 CURRENT ACTUAL BA(BUFFER)
     3899   01 012A5                 RABC     RES      1                 CURRENT REMAINING BYTE COUNT
     3900   01 012A6                 RCBC     RES      1                 CURRENT LINK BYTE COUNT

     3902   01 012A7                 RIOCD    RES      1                 IOCD POINTER
     3903   01 012A8                 RORDER   RES      1                 ORDER BYTE

     3905   01 012A9                 LNGTST   RES      1                 CURRENT BUFFER LENGTH

     3907         01 012AA           REBUILD  EQU      %                 BUILD RANDOM CHANNEL PROGRAMS
     3908   01 012AA    09F00412              ENTER                       (TRANSMIT, RECEIVE)

     3910   01 012AB    22008000              LI,R0    BA(BUFF1)         SET START OF WRITE BUFFER
     3911   01 012AC    350012A4              STW,R0   RABA
     3912   01 012AD    22001254              LI,R0    WRRAND            POINT TO WF IOCD LIST
     3913   01 012AE    6AF012B5              BAL,R15  RBUILD0            AND GENERATE PROGRAM

     3915   01 012AF    2200A000              LI,R0    BA(BUFF2)         SET START OF READ BUFFER
     3916   01 012B0    350012A4              STW,R0   RABA
     3917   01 012B1    2200127C              LI,R0    RFRAND            POINT TO RF IOCD LIST
     3918   01 012B2    6AF012B7              BAL,R15  RBUILD1            AND GENERATE PROGRAM

     3920   01 012B3    08F00412              EXIT
            01 012B4    E800000F A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   65
A    3922         01 012B5           RBUILD0  EQU      %
     3923   01 012B5    22400001 A            LI,R4    X'01'             FETCH WRITE ORDER
     3924   01 012B6    680012B9              B        RBUILD3

     3926         01 012B7           RBUILD1  EQU      %
     3927   01 012B7    22400002 A            LI,R4    X'02'             FETCH READ ORDER
     3928   01 012B8    680012B9              B        RBUILD3

     3930         01 012B9           RBUILD3  EQU      %
     3931   01 012B9    354012A8              STW,R4   RORDER            SAVE ORDER
     3932   01 012BA    350012A7              STW,R0   RIOCD              AND IOCD LIST POINTER

     3934   01 012BB    320012A9              LW,R0    LNGTST            RCVE PROGRAM MUST
     3935   01 012BC    21400001 A            CI,R4    1                  ACCOMODATE 8 EXTRA BYTES
     3936   01 012BD    694012BF              BANZ     %+2                 (SKIP IF WRITE)
     3937   01 012BE    20000014 A            AI,R0    4+12+4
     3938   01 012BF    350012A5              STW,R0   RABC

     3940   01 012C0    22400000 A            LI,R4    0                 CLEAR IOCD INDEX

     3942         01 012C1           RBUILD4  EQU      %
     3943   01 012C1    21400001 A            CI,R4    1                 SKIP IF ODD PASS
     3944   01 012C2    694012C8              BANZ     RBUILD5

     3946   01 012C3    22000001 A            LI,R0    1                 EVEN PASS: CBC IS
     3947   01 012C4    32500004 A            LW,R5    R4                 1**(PASS/2+3)
     3948   01 012C5    2550007F A            SLS,R5   -1
     3949   01 012C6    250A0003 A            SLS,R0   3,R5
     3950   01 012C7    680012CB              B        RBUILD6

     3952         01 012C8           RBUILD5  EQU      %
     3953   01 012C8    72021811              LB,R0    :SEED,R1          ODD PASS: RANDOM
     3954   01 012C9    4B001BC5              AND,R0   =3                 NUMBER BETWEEN
     3955   01 012CA    20000001 A            AI,R0    1                   1 AND 4

     3957         01 012CB           RBUILD6  EQU      %
     3958   01 012CB    350012A6              STW,R0   RCBC              SAVE CURRENT BYTE COUNT

     3960   01 012CC    310012A5              CW,R0    RABC              SKIP IF BUFFER NOT
     3961   01 012CD    691012D9              BL       RBUILD8            EXHAUSTED
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   66
A    3963         01 012CE           RBUILD7  EQU      %                 FINALIZE IOCD LIST
     3964   01 012CE    320012A8              LW,R0    RORDER             GET ORDER BYTE
     3965   01 012CF    327012A5              LW,R7    RABC                SET ACTUAL BYTES REMAINING
     3966   01 012D0    21000001 A            CI,R0    1                    IF WRITING, ELSE SET MAXIMUM
     3967   01 012D1    694012D3              BANZ     %+2
     3968   01 012D2    32700007 A            LW,R7    R7                (NOP AT PRESENT)

     3970   01 012D3    326012A4              LW,R6    RABA              GET CURRENT BA(BUFFER)
     3971   01 012D4    75000006 A            STB,R0   R6                 SAVE ORDER BYTE

     3973   01 012D5    2200001E A            LI,R0    X'1E'             SET STANDARD FLAGS
     3974   01 012D6    75000007 A            STB,R0   R7

     3976   01 012D7    956812A7              STD,R6   *RIOCD,R4         AND SAVE FINAL LINK IN LIST
     3977   01 012D8    E800000F A            B        *R15

     3979         01 012D9           RBUILD8  EQU      %
     3980   01 012D9    31401252              CW,R4    MXRAND            SKIP IF MAXIMUM NUMBER OF
     3981   01 012DA    681012CE              BGE      RBUILD7            ALLOWABLE LINKS REACHED

     3983   01 012DB    2200008E A            LI,R0    X'8E'             SET FLAGS (DC) AND
     3984   01 012DC    327012A6              LW,R7    RCBC               CURRENT BYTE COUNT
     3985   01 012DD    75000007 A            STB,R0   R7

     3987   01 012DE    320012A8              LW,R0    RORDER            SET ORDER BYTE AND
     3988   01 012DF    326012A4              LW,R6    RABA               CURRENT BA(BUFFER)
     3989   01 012E0    75000006 A            STB,R0   R6

     3991   01 012E1    956812A7              STD,R6   *RIOCD,R4         SAVE LINK IN IOCD LIST

     3993   01 012E2    3A7012A6              LCW,R7   RCBC              UPDATE REMAINING BYTES
     3994   01 012E3    667012A5              AWM,R7   RABC

     3996   01 012E4    3A700007 A            LCW,R7   R7                ADVANCE POINTER
     3997   01 012E5    667012A4              AWM,R7   RABA

     3999   01 012E6    20400001 A            AI,R4    1                 INCREMENT IOCD LIST INDEX
     4000   01 012E7    680012C1              B        RBUILD4
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   67
A    4002         01 012E8           TST2LEN  EQU      %                 COMPUTE REQUESTED BYTES
     4003   01 012E8    22C00000 A            LI,R12   0                  R4=>WA(IOCD LIST)

     4005         01 012E9           TST2LUP  EQU      %
     4006   01 012E9    51421B8F              CH,R4    :SAVETAB+15,R1    STOP IF CURRENT DA
     4007   01 012EA    E920000F A            BG       *R15               IS .GT. SAMPLED DA FROM TIO

     4009   01 012EB    12880000 A            LD,R8    0,R4              FETCH CURRENT IOCD
     4010   01 012EC    25800108 A            SLD,R8   8                  SEPARATE FLAGS
     4011   01 012ED    25900178 A            SLD,R9   -8                  FROM REMAINING COUNT
     4012   01 012EE    30C00009 A            AW,R12   R9                ACCUMULATE BYTE COUNT

     4014   01 012EF    21800080 A            CI,R8    X'80'             STOP IF NOT DC
     4015   01 012F0    E840000F A            BAZ      *R15

     4017   01 012F1    20400001 A            AI,R4    1                 POINT TO NEXT DA
     4018   01 012F2    680012E9              B        TST2LUP            AND CONTINUE SUMMATION

     4020                            ************************************************************************
     4021                            * TST3,1 SENSE STATISTICS AND DISPLAY                                  *
     4022                            ************************************************************************

     4024         01 012F3           TST31    EQU      %
     4025   01 012F3    22000450              IOTST    CPT18A,TSEQ1803,8310 SAMPLE STATISTICS
            01 012F4    6AF0104D
            01 012F5    2200224C
            01 012F6    6AF0120C
            01 012F7    00002076 A
            01 012F8    680012F3

     4027   01 012F9    2200003E A            FRM      62,8311           VERIFY FRAME FORMAT
            01 012FA    6AF00F3D
            01 012FB    680012FF
            01 012FC    6AF0120A
            01 012FD    00002077 A
            01 012FE    680012FF

     4029   01 012FF    22400003 A            LI,R4    3                 WORD DISPLACEMENT AND COUNT
     4030   01 01300    22500004 A            LI,R5    4                  HALF-WORD DISPLACEMENT
     4031   01 01301    2260134A              LI,R6    TST31M1             DISPLAY BUFFER ADDRESS
     4032   01 01302    6AF0131B              BAL,R15  HALFMOVE             MOVE PHYSICAL ADDRESS

     4034   01 01303    22400008 A            LI,R4    8
     4035   01 01304    22500018 A            LI,R5    24
     4036   01 01305    226013B3              LI,R6    TST31M3
     4037   01 01306    6AF0131B              BAL,R15  HALFMOVE          MOVE RESERVED DATA

     4039   01 01307    22400004 A            LI,R4    4
     4040   01 01308    2250001C A            LI,R5    28
     4041   01 01309    226013C1              LI,R6    TST31M4
     4042   01 0130A    6AF0131B              BAL,R15  HALFMOVE          MOVE MODULE ID

     4044   01 0130B    22400004 A            LI,R4    4
     4045   01 0130C    22500020 A            LI,R5    32
     4046   01 0130D    6AF0131B              BAL,R15  HALFMOVE          MOVE FIRMWARE ID

     4048   01 0130E    22601341              LI,R6    TST31M0           MOVE UNIT ADDRESS
     4049   01 0130F    6AF01463              BAL,R15  UNITMOVE

     4051   01 01310    2270000C A            LI,R7    12                MOVE 12 HALF-WORD ITEMS
     4052   01 01311    22601354              LI,R6    TST31M2
     4053   01 01312    22500005 A            LI,R5    5

     4055   01 01313    22400001 A            LI,R4    1
     4056   01 01314    6AF01327              BAL,R15  HALFREVR          MOVE HALF-WORD ITEM REVERSED

     4058   01 01315    20500002 A            AI,R5    2                 ADVANCE TO NEXT HALF-WORD
     4059   01 01316    64701313              BDR,R7   %-3                CONTINUE FOR ALL ITEMS

     4061   01 01317    22401341              LI,R4    TST31M0           PRINT ALL
     4062   01 01318    225013D2              LI,R5    TST31M5            TEXTC BLOCKS
     4063   01 01319    6AF01335              BAL,R15  MSGPRN

     4065   01 0131A    6800054A              B        TST3B             RETURN TO TST3 MONITOR

     4067   01 0131B    09F00412     HALFMOVE ENTER                      MOVE NUMBER OF
     4068   01 0131C    52CA2800              LH,R12   BUFF2,R5           HALF-WORDS (R4) CONVERTED
     4069   01 0131D    EAF00218              BAL,R15  *:HEXC              TO OUTPUT BUFFER (R6)
     4070   01 0131E    B5F80006 A            STW,R15  *R6,R4               HALF-WORD OFFSET (R5)

     4072   01 0131F    205FFFFF A            AI,R5    -1                BACKUP HALF-WORD INDEX
     4073   01 01320    6440131C              BDR,R4   %-4                FETCH NEXT HALF-WORD ITEM

     4075   01 01321    F2F00006 A            LB,R15   *R6               ADVANCE OUTPUT BUFFER
     4076   01 01322    20F00004 A            AI,R15   4                  TO NEXT TEXTC BLOCK
     4077   01 01323    25F0007E A            SLS,R15  -2
     4078   01 01324    3060000F A            AW,R6    R15

     4080   01 01325    08F00412              EXIT
            01 01326    E800000F A

     4082   01 01327    09F00412     HALFREVR ENTER                      MOVE NUMBER OF
     4083   01 01328    52CA2800              LH,R12   BUFF2,R5           HALF-WORDS (R4) CONVERTED
     4084   01 01329    55C0000C A            STH,R12  R12                 (AND BYTE REVERSED)
     4085   01 0132A    25C00078 A            SLS,R12  -8
     4086   01 0132B    EAF00218              BAL,R15  *:HEXC              TO OUTPUT BUFFER (R6)
     4087   01 0132C    B5F80006 A            STW,R15  *R6,R4               HALF-WORD OFFSET (R5)

     4089   01 0132D    205FFFFF A            AI,R5    -1                BACKUP HALF-WORD INDEX
     4090   01 0132E    6440132A              BDR,R4   %-4                FETCH NEXT HALF-WORD ITEM

     4092   01 0132F    F2F00006 A            LB,R15   *R6               ADVANCE OUTPUT BUFFER
     4093   01 01330    20F00004 A            AI,R15   4                  TO NEXT TEXTC BLOCK
     4094   01 01331    25F0007E A            SLS,R15  -2
     4095   01 01332    3060000F A            AW,R6    R15

     4097   01 01333    08F00412              EXIT
            01 01334    E800000F A

     4099   01 01335    09F00412     MSGPRN   ENTER                      PRINT STRING OF TEXTC BLOCKS

     4101   01 01336    35401338     MSGPRN0  STW,R4   %+2               STORE WA(TEXTC)
     4102   01 01337    EAF0021C              BAL,R15  *:PRINT
     4103   01 01338    00000000 A            DATA     0

     4105   01 01339    F2F00004 A            LB,R15   *R4               ADVANCE
     4106   01 0133A    20F00004 A            AI,R15   4                  TO THE
     4107   01 0133B    25F0007E A            SLS,R15  -2                  NEXT TEXTC BLOCK
     4108   01 0133C    3040000F A            AW,R4    R15

     4110   01 0133D    31400005 A            CW,R4    R5                COMPARE WITH WA(LAST TEXTC)
     4111   01 0133E    68201336              BLE      MSGPRN0            CONTINUE IF NOT YET DONE

     4113   01 0133F    08F00412              EXIT
            01 01340    E800000F A

     4115   01 01341    1C40E4D5 A   TST31M0  TEXTC    ' UNIT: XXXX SENSE STATISTICS'
            01 01342    C9E37A40 A
            01 01343    E7E7E7E7 A
            01 01344    40E2C5D5 A
            01 01345    E2C540E2 A
            01 01346    E3C1E3C9 A
            01 01347    E2E3C9C3 A
            01 01348    E2404040 A
     4116   01 01349    01404040 A            TEXTC    ' '
     4117   01 0134A    21404040 A   TST31M1  TEXTC    '   0123456789AB  PHYSICAL ADDRESS'
            01 0134B    F0F1F2F3 A
            01 0134C    F4F5F6F7 A
            01 0134D    F8F9C1C2 A
            01 0134E    4040D7C8 A
            01 0134F    E8E2C9C3 A
            01 01350    C1D340C1 A
            01 01351    C4C4D9C5 A
            01 01352    E2E24040 A
     4118   01 01353    01404040 A            TEXTC    ' '
     4119   01 01354    18404040 A   TST31M2  TEXTC    '   0123  FRAMES RECEIVED'
            01 01355    F0F1F2F3 A
            01 01356    4040C6D9 A
            01 01357    C1D4C5E2 A
            01 01358    40D9C5C3 A
            01 01359    C5C9E5C5 A
            01 0135A    C4404040 A
     4120   01 0135B    17404040 A            TEXTC    '   0123  FRAMES IN FIFO'
            01 0135C    F0F1F2F3 A
            01 0135D    4040C6D9 A
            01 0135E    C1D4C5E2 A
            01 0135F    40C9D540 A
            01 01360    C6C9C6D6 A
     4121   01 01361    14404040 A            TEXTC    '   0123  FRAMES SENT'
            01 01362    F0F1F2F3 A
            01 01363    4040C6D9 A
            01 01364    C1D4C5E2 A
            01 01365    40E2C5D5 A
            01 01366    E3404040 A
     4122   01 01367    1A404040 A            TEXTC    '   0123  EXCESS COLLISIONS'
            01 01368    F0F1F2F3 A
            01 01369    4040C5E7 A
            01 0136A    C3C5E2E2 A
            01 0136B    40C3D6D3 A
            01 0136C    D3C9E2C9 A
            01 0136D    D6D5E240 A
     4123   01 0136E    1C404040 A            TEXTC    '   0123  COLLISION FRAGMENTS'
            01 0136F    F0F1F2F3 A
            01 01370    4040C3D6 A
            01 01371    D3D3C9E2 A
            01 01372    C9D6D540 A
            01 01373    C6D9C1C7 A
            01 01374    D4C5D5E3 A
            01 01375    E2404040 A
     4124   01 01376    14404040 A            TEXTC    '   0123  FRAMES LOST'
            01 01377    F0F1F2F3 A
            01 01378    4040C6D9 A
            01 01379    C1D4C5E2 A
            01 0137A    40D3D6E2 A
            01 0137B    E3404040 A
     4125   01 0137C    22404040 A            TEXTC    '   0123  MULTICAST FRAMES ACCEPTED'
            01 0137D    F0F1F2F3 A
            01 0137E    4040D4E4 A
            01 0137F    D3E3C9C3 A
            01 01380    C1E2E340 A
            01 01381    C6D9C1D4 A
            01 01382    C5E240C1 A
            01 01383    C3C3C5D7 A
            01 01384    E3C5C440 A
     4126   01 01385    22404040 A            TEXTC    '   0123  MULTICAST FRAMES REJECTED'
            01 01386    F0F1F2F3 A
            01 01387    4040D4E4 A
            01 01388    D3E3C9C3 A
            01 01389    C1E2E340 A
            01 0138A    C6D9C1D4 A
            01 0138B    C5E240D9 A
            01 0138C    C5D1C5C3 A
            01 0138D    E3C5C440 A
     4127   01 0138E    27404040 A            TEXTC    '   0123  FRAMES RECEIVED WITH CRC ERROR'
            01 0138F    F0F1F2F3 A
            01 01390    4040C6D9 A
            01 01391    C1D4C5E2 A
            01 01392    40D9C5C3 A
            01 01393    C5C9E5C5 A
            01 01394    C440E6C9 A
            01 01395    E3C840C3 A
            01 01396    D9C340C5 A
            01 01397    D9D9D6D9 A
     4128   01 01398    2E404040 A            TEXTC    '   0123  FRAMES RECEIVED WITH ALLIGNMENT ERROR'
            01 01399    F0F1F2F3 A
            01 0139A    4040C6D9 A
            01 0139B    C1D4C5E2 A
            01 0139C    40D9C5C3 A
            01 0139D    C5C9E5C5 A
            01 0139E    C440E6C9 A
            01 0139F    E3C840C1 A
            01 013A0    D3D3C9C7 A
            01 013A1    D5D4C5D5 A
            01 013A2    E340C5D9 A
            01 013A3    D9D6D940 A
     4129   01 013A4    13404040 A            TEXTC    '   0123  COLLISIONS'
            01 013A5    F0F1F2F3 A
            01 013A6    4040C3D6 A
            01 013A7    D3D3C9E2 A
            01 013A8    C9D6D5E2 A
     4130   01 013A9    21404040 A            TEXTC    '   0123  OUT-OF-WINDOW COLLISIONS'
            01 013AA    F0F1F2F3 A
            01 013AB    4040D6E4 A
            01 013AC    E360D6C6 A
            01 013AD    60E6C9D5 A
            01 013AE    C4D6E640 A
            01 013AF    C3D6D3D3 A
            01 013B0    C9E2C9D6 A
            01 013B1    D5E24040 A
     4131   01 013B2    01404040 A            TEXTC    ' '
     4132   01 013B3    32404040 A   TST31M3  TEXTC    '   0123456789ABCDEF0123456789ABCDEF  RESERVED DATA'
            01 013B4    F0F1F2F3 A
            01 013B5    F4F5F6F7 A
            01 013B6    F8F9C1C2 A
            01 013B7    C3C4C5C6 A
            01 013B8    F0F1F2F3 A
            01 013B9    F4F5F6F7 A
            01 013BA    F8F9C1C2 A
            01 013BB    C3C4C5C6 A
            01 013BC    4040D9C5 A
            01 013BD    E2C5D9E5 A
            01 013BE    C5C440C4 A
            01 013BF    C1E3C140 A
     4133   01 013C0    01404040 A            TEXTC    ' '
     4134   01 013C1    1E404040 A   TST31M4  TEXTC    '   0123456789ABCDEF  MODULE ID'
            01 013C2    F0F1F2F3 A
            01 013C3    F4F5F6F7 A
            01 013C4    F8F9C1C2 A
            01 013C5    C3C4C5C6 A
            01 013C6    4040D4D6 A
            01 013C7    C4E4D3C5 A
            01 013C8    40C9C440 A
     4135   01 013C9    20404040 A            TEXTC    '   0123456789ABCDEF  FIRMWARE ID'
            01 013CA    F0F1F2F3 A
            01 013CB    F4F5F6F7 A
            01 013CC    F8F9C1C2 A
            01 013CD    C3C4C5C6 A
            01 013CE    4040C6C9 A
            01 013CF    D9D4E6C1 A
            01 013D0    D9C540C9 A
            01 013D1    C4404040 A
     4136   01 013D2    01404040 A   TST31M5  TEXTC    ' '

     4138   01 013D3    1D40E4D5 A   TST32M0  TEXTC    ' UNIT: XXXX SENSE DELAY TIMES'
            01 013D4    C9E37A40 A
            01 013D5    E7E7E7E7 A
            01 013D6    40E2C5D5 A
            01 013D7    E2C540C4 A
            01 013D8    C5D3C1E8 A
            01 013D9    40E3C9D4 A
            01 013DA    C5E24040 A
     4139   01 013DB    01404040 A   TST32M00 TEXTC    ' '
     4140   01 013DC    19404040 A   TST32M1  TEXTC    '   0123 MICROSECOND DELAY'
            01 013DD    F0F1F2F3 A
            01 013DE    40D4C9C3 A
            01 013DF    D9D6E2C5 A
            01 013E0    C3D6D5C4 A
            01 013E1    40C4C5D3 A
            01 013E2    C1E84040 A

     4142   01 013E3    2440E4D5 A   TST34M0  TEXTC    ' UNIT: XXXX CAPTURED NETWORK TRAFFIC'
            01 013E4    C9E37A40 A
            01 013E5    E7E7E7E7 A
            01 013E6    40C3C1D7 A
            01 013E7    E3E4D9C5 A
            01 013E8    C440D5C5 A
            01 013E9    E3E6D6D9 A
            01 013EA    D240E3D9 A
            01 013EB    C1C6C6C9 A
            01 013EC    C3404040 A

     4144   01 013ED    01404040 A   TST34MA  TEXTC    ' '
     4145   01 013EE    21C6D9C1 A   TST34M1  TEXTC    'FRAME: XXXX, SIZE: XXXX, LAC:XXXX'
            01 013EF    D4C57A40 A
            01 013F0    E7E7E7E7 A
            01 013F1    6B40E2C9 A
            01 013F2    E9C57A40 A
            01 013F3    E7E7E7E7 A
            01 013F4    6B40D3C1 A
            01 013F5    C37AE7E7 A
            01 013F6    E7E74040 A
     4146   01 013F7    01404040 A            TEXTC    ' '
     4147   01 013F8    134040C4 A   TST34M2  TEXTC    '  DST: 0123456789AB'
            01 013F9    E2E37A40 A
            01 013FA    F0F1F2F3 A
            01 013FB    F4F5F6F7 A
            01 013FC    F8F9C1C2 A
     4148   01 013FD    134040E2 A   TST34M3  TEXTC    '  SRC: 0123456789AB'
            01 013FE    D9C37A40 A
            01 013FF    F0F1F2F3 A
            01 01400    F4F5F6F7 A
            01 01401    F8F9C1C2 A
     4149   01 01402    01404040 A   TST34MB  TEXTC    ' '

     4151   01 01403    25E7E7E7 A   TST34M5  TEXTC    'XXX: 0123456789ABCDEF0123456789ABCDEF'
            01 01404    7A40F0F1 A
            01 01405    F2F3F4F5 A
            01 01406    F6F7F8F9 A
            01 01407    C1C2C3C4 A
            01 01408    C5C6F0F1 A
            01 01409    F2F3F4F5 A
            01 0140A    F6F7F8F9 A
            01 0140B    C1C2C3C4 A
            01 0140C    C5C64040 A
     4152   01 0140D    01404040 A   TST34MC  TEXTC    ' '
     4153   01 0140E    0F4040C3 A   TST34M4  TEXTC    '  CRC: 01234567'
            01 0140F    D9C37A40 A
            01 01410    F0F1F2F3 A
            01 01411    F4F5F6F7 A
     4154   01 01412    01404040 A   TST34MD  TEXTC    ' '
     4155   01 01413    1F40E4D5 A   TST33M0  TEXTC    ' UNIT: XXXX ONLINE, PROMISCUOUS'
            01 01414    C9E37A40 A
            01 01415    E7E7E7E7 A
            01 01416    40D6D5D3 A
            01 01417    C9D5C56B A
            01 01418    40D7D9D6 A
            01 01419    D4C9E2C3 A
            01 0141A    E4D6E4E2 A
     4156   01 0141B    01404040 A   TST33M00 TEXTC    ' '
     4157   01 0141C    1240E4D5 A   TST33M1  TEXTC    ' UNIT: XXXX ONLINE'
            01 0141D    C9E37A40 A
            01 0141E    E7E7E7E7 A
            01 0141F    40D6D5D3 A
            01 01420    C9D5C540 A
     4158   01 01421    01404040 A   TST33M11 TEXTC    ' '
     4159   01 01422    1A40E4D5 A   TST35M0  TEXTC    ' UNIT: XXXX SENDING ONLINE'
            01 01423    C9E37A40 A
            01 01424    E7E7E7E7 A
            01 01425    40E2C5D5 A
            01 01426    C4C9D5C7 A
            01 01427    40D6D5D3 A
            01 01428    C9D5C540 A
     4160   01 01429    1C40E4D5 A   TST35M1  TEXTC    ' UNIT: XXXX SENDING LOOPBACK'
            01 0142A    C9E37A40 A
            01 0142B    E7E7E7E7 A
            01 0142C    40E2C5D5 A
            01 0142D    C4C9D5C7 A
            01 0142E    40D3D6D6 A
            01 0142F    D7C2C1C3 A
            01 01430    D2404040 A
     4161   01 01431    1D40E4D5 A   TST36M0  TEXTC    ' UNIT: XXXX ADD GROUP ADDRESS'
            01 01432    C9E37A40 A
            01 01433    E7E7E7E7 A
            01 01434    40C1C4C4 A
            01 01435    40C7D9D6 A
            01 01436    E4D740C1 A
            01 01437    C4C4D9C5 A
            01 01438    E2E24040 A
     4162   01 01439    01404040 A            TEXTC    ' '
     4163   01 0143A    174040C1 A   TST36M1  TEXTC    '  ADDRESS: 0123456789AB'
            01 0143B    C4C4D9C5 A
            01 0143C    E2E27A40 A
            01 0143D    F0F1F2F3 A
            01 0143E    F4F5F6F7 A
            01 0143F    F8F9C1C2 A
     4164   01 01440    01404040 A   TST36M2  TEXTC    ' '
     4165   01 01441    2040E4D5 A   TST37M0  TEXTC    ' UNIT: XXXX DELETE GROUP ADDRESS'
            01 01442    C9E37A40 A
            01 01443    E7E7E7E7 A
            01 01444    40C4C5D3 A
            01 01445    C5E3C540 A
            01 01446    C7D9D6E4 A
            01 01447    D740C1C4 A
            01 01448    C4D9C5E2 A
            01 01449    E2404040 A
     4166   01 0144A    01404040 A            TEXTC    ' '
     4167   01 0144B    174040C1 A   TST37M1  TEXTC    '  ADDRESS: 0123456789AB'
            01 0144C    C4C4D9C5 A
            01 0144D    E2E27A40 A
            01 0144E    F0F1F2F3 A
            01 0144F    F4F5F6F7 A
            01 01450    F8F9C1C2 A
     4168   01 01451    01404040 A   TST37M2  TEXTC    ' '
     4169   01 01452    2340E4D5 A   TST38M0  TEXTC    ' UNIT: XXXX INSERT PHYSICAL ADDRESS'
            01 01453    C9E37A40 A
            01 01454    E7E7E7E7 A
            01 01455    40C9D5E2 A
            01 01456    C5D9E340 A
            01 01457    D7C8E8E2 A
            01 01458    C9C3C1D3 A
            01 01459    40C1C4C4 A
            01 0145A    D9C5E2E2 A
     4170   01 0145B    01404040 A            TEXTC    ' '
     4171   01 0145C    174040C1 A   TST38M1  TEXTC    '  ADDRESS: 0123456789AB'
            01 0145D    C4C4D9C5 A
            01 0145E    E2E27A40 A
            01 0145F    F0F1F2F3 A
            01 01460    F4F5F6F7 A
            01 01461    F8F9C1C2 A
     4172   01 01462    01404040 A   TST38M2  TEXTC    ' '

     4174   01 01463    09F00412     UNITMOVE ENTER                      CONVERT UNIT ADDRESS

     4176   01 01464    32C00459              LW,R12   :DEVADDR
     4177   01 01465    EAF00218              BAL,R15  *:HEXC
     4178   01 01466    B5F40006 A            STW,R15  *R6,R2

     4180   01 01467    08F00412              EXIT
            01 01468    E800000F A

     4182                            ************************************************************************
     4183                            * TST3,2 SENSE DELAY TIMES AND DISPLAY                                 *
     4184                            ************************************************************************

     4186         01 01469           TST32    EQU      %
     4187   01 01469    2200045E              IOTST    CPT19B,TSEQGENR,8320 GATHER DELAY TIMES
            01 0146A    6AF0104D
            01 0146B    22002F98
            01 0146C    6AF0120C
            01 0146D    00002080 A
            01 0146E    68001469

     4189   01 0146F    5A021B8E              LCH,R0   :SAVETAB+14,R1    COMPUTE EXPECTED FRAME SIZE
     4190   01 01470    20000020 A            AI,R0    16*2               ON BASIS OF REMAINING BYTES

     4192   01 01471    32000000 A            REFRM    R0,8321           VERIFY FRAME FORMAT
            01 01472    6AF00F3D
            01 01473    68001477
            01 01474    6AF0120A
            01 01475    00002081 A
            01 01476    68001477

     4194   01 01477    226013D3              LI,R6    TST32M0           MOVE UNIT
     4195   01 01478    6AF01463              BAL,R15  UNITMOVE

     4197   01 01479    224013D3              LI,R4    TST32M0           DISPLAY UNIT
     4198   01 0147A    225013DB              LI,R5    TST32M00
     4199   01 0147B    6AF01335              BAL,R15  MSGPRN

     4201   01 0147C    32702800              LW,R7    BUFF2             COMPUTE NUMBER OF
     4202   01 0147D    6830054A              BEZ      TST3B              DELAYS, EXIT IF NONE

     4204   01 0147E    2570007F A            SLS,R7   -1                START AT HALF-WORD
     4205   01 0147F    22500002 A            LI,R5    2                  OFFSET 2 INTO BUFF2

     4207   01 01480    226013DC     TST320   LI,R6    TST32M1           PROTOTYPE MESSAGE
     4208   01 01481    22400001 A            LI,R4    1                  ONE ITEM TO MOVE
     4209   01 01482    6AF01327              BAL,R15  HALFREVR            (BYTE REVERSED)

     4211   01 01483    EAF0021C              BAL,R15  *:PRINT
     4212   01 01484    000013DC              DATA     TST32M1

     4214   01 01485    20500002 A            AI,R5    2                 POINT TO NEXT ITEM
     4215   01 01486    64701480              BDR,R7   TST320

     4217   01 01487    EAF0021C              BAL,R15  *:PRINT
     4218   01 01488    0000040E              DATA     SPACE

     4220   01 01489    6800054A              B        TST3B             RETURN TO TST3 MONITOR

     4222                            ************************************************************************
     4223                            * TST3,3 SETUP TO WATCH NETWORK TRAFFIC                                *
     4224                            ************************************************************************

     4226         01 0148A           TST33    EQU      %

     4228   01 0148A    22E00000 A            RESET    0                 CLEAR THE INTERFACE
            01 0148B    6AF00F19

     4230   01 0148C    33000202              MTW,0    :P2               LOOK FOR OMNISCIENCE FLAG
     4231   01 0148D    6830149A              BEZ      TST33W1            SKIP IF NOT SET

     4233   01 0148E    22601413     TST33W0  LI,R6    TST33M0           MOVE UNIT ADDRESS
     4234   01 0148F    6AF01463              BAL,R15  UNITMOVE

     4236   01 01490    22401413              LI,R4    TST33M0           DISPLAY MESSAGE
     4237   01 01491    2250141B              LI,R5    TST33M00
     4238   01 01492    6AF01335              BAL,R15  MSGPRN

     4240   01 01493    22000A53              IOTST    WATCH0,TSEQNRML,8330 SET MODES
            01 01494    6AF0104D
            01 01495    22003038
            01 01496    6AF0120C
            01 01497    0000208A A
            01 01498    68001493

     4242   01 01499    6800054A              B        TST3B             RETURN TO TST3 MONITOR

     4244   01 0149A    2260141C     TST33W1  LI,R6    TST33M1           MOVE UNIT ADDRESS
     4245   01 0149B    6AF01463              BAL,R15  UNITMOVE

     4247   01 0149C    2240141C              LI,R4    TST33M1           DISPLAY MESSAGE
     4248   01 0149D    22501421              LI,R5    TST33M11
     4249   01 0149E    6AF01335              BAL,R15  MSGPRN

     4251   01 0149F    22000A55              IOTST    WATCH1,TSEQNRML,8331 SET MODES
            01 014A0    6AF0104D
            01 014A1    22003038
            01 014A2    6AF0120C
            01 014A3    0000208B A
            01 014A4    6800149F

     4253   01 014A5    6800054A              B        TST3B             RETURN TO TST3 MONITOR

     4255   01 014A6    03003FC0     WATCH0   IOCD     X'03',BA(MODES)+4,X'2E',1 PROMISCUOUS RECEIVE
            01 014A7    2E000001 A
     4256   01 014A8    03003FC2              IOCD     X'03',BA(MODES)+6,X'2E',1 RECEIVE ON ERROR
            01 014A9    2E000001 A
     4257   01 014AA    03003FC5     WATCH1   IOCD     X'03',BA(MODES)+9,X'1E',1 GO ONLINE
            01 014AB    1E000001 A

     4259                            ************************************************************************
     4260                            * TST3,4 DUMP SELECTED NETWORK TRAFFIC TO CONSOLE                      *
     4261                            ************************************************************************

     4263   01 014AC    09F00412     GENREAD  ENTER                      GENERAL ONE FRAME READ

     4265   01 014AD    6AF01106              BAL,R15  RECLEAR           CLEAR INPUT BUFFER
     4266   01 014AE    33101543              MTW,1    TST34CNT           AND UPDATE COUNT

     4268   01 014AF    22000A9B              IOTST    LISTEN,TSEQ8340,8340 READ ONE FRAME
            01 014B0    6AF0104D
            01 014B1    220054E0
            01 014B2    6AF0120C
            01 014B3    00002094 A
            01 014B4    680014AF

     4270   01 014B5    72002800              LB,R0    BUFF2             EXTRACT FRAME STATUS
     4271   01 014B6    35001544              STW,R0   TST34LAC

     4273   01 014B7    22000000 A            LI,R0    0                 CLEAR FRAME STATUS
     4274   01 014B8    55002800              STH,R0   BUFF2              IN THE INPUT BUFFER

     4276   01 014B9    5A021B8E              LCH,R0   :SAVETAB+14,R1    COMPUTE ARS
     4277   01 014BA    200FFFFC A            AI,R0    -4                 AND CHECK FRAME FORMAT
     4278   01 014BB    682014C2              BLEZ     GENREAD1

     4280   01 014BC    52F22800              LH,R15   BUFF2,R1          REVERSE FRAME
     4281   01 014BD    55F0000F A            STH,R15  R15                LENGTH BYTES IN BUFFER
     4282   01 014BE    25F00078 A            SLS,R15  -8
     4283   01 014BF    55F22800              STH,R15  BUFF2,R1

     4285   01 014C0    31002800              CW,R0    BUFF2             CHECK AGAINST
     4286   01 014C1    683014C6              BE       GENREAD0           ACTUAL RECORD SIZE

     4288   01 014C2    6AF01674     GENREAD1 BAL,R15  STATUS            REPORT I/O STATUS

     4290   01 014C3    6AF0120A              ERROR    8341              ERROR: FRAME FORMAT
            01 014C4    00002095 A
            01 014C5    680014C6
     4291         01 014C6           GENREAD0 EQU      %
     4292   01 014C6    200FFFF6 A            AI,R0    -6-4              COMPENSATE FOR DST AND CRC
     4293   01 014C7    5502163B              STH,R0   LEARN+1,R1         SAVE FOR POSSIBLE ECHO

     4295   01 014C8    08F00412              EXIT
            01 014C9    E800000F A

     4297   01 014CA    09F00412     GENFRAME ENTER                      DISPLAY FRAME CHARACTERISTICS

     4299   01 014CB    32C01543              LW,R12   TST34CNT          DISPLAY FRAME COUNT
     4300   01 014CC    EAF00217              BAL,R15  *:DECC
     4301   01 014CD    35F013F0              STW,R15  TST34M1+2

     4303   01 014CE    32C02800              LW,R12   BUFF2             DISPLAY FRAME LENGTH
     4304   01 014CF    EAF00217              BAL,R15  *:DECC
     4305   01 014D0    35F013F3              STW,R15  TST34M1+5

     4307   01 014D1    32C01544              LW,R12   TST34LAC          DISPLAY FRAME STATUS BYTE
     4308   01 014D2    EAF00216              BAL,R15  *:BINC

     4310   01 014D3    22000040 A            LI,R0    X'40'             (BITS 1-3)
     4311   01 014D4    7500000F A            STB,R0   R15
     4312   01 014D5    55F013F6              STH,R15  TST34M1+8
     4313   01 014D6    25F00070 A            SLS,R15  -16
     4314   01 014D7    55F213F5              STH,R15  TST34M1+7,R1

     4316   01 014D8    22400003 A            LI,R4    3                 DISPLAY DESTINATION
     4317   01 014D9    22500004 A            LI,R5    4
     4318   01 014DA    226013F9              LI,R6    TST34M2+1
     4319   01 014DB    6AF0131B              BAL,R15  HALFMOVE

     4321   01 014DC    22400003 A            LI,R4    3                 DISPLAY SOURCE
     4322   01 014DD    22500007 A            LI,R5    7
     4323   01 014DE    226013FE              LI,R6    TST34M3+1
     4324   01 014DF    6AF0131B              BAL,R15  HALFMOVE

     4326   01 014E0    32402800              LW,R4    BUFF2             COMPUTE CRC DISPLACEMENT

     4328   01 014E1    22500004 A            LI,R5    4                 OFFSET TO DISPLAY DATA
     4329   01 014E2    22600004 A            LI,R6    4                  NUMBER OF BYTES TO PROCESS

     4331         01 014E3           GENFRME0 EQU      %
     4332   01 014E3    72C82800              LB,R12   BUFF2,R4          GET CRC BYTE
     4333   01 014E4    EAF00218              BAL,R15  *:HEXC             CONVERT TO HEX
     4334   01 014E5    55FA140E              STH,R15  TST34M4,R5          AND SAVE IN MESSAGE

     4336   01 014E6    20400001 A            AI,R4    1                 POINTER TO NEXT BYTE
     4337   01 014E7    20500001 A            AI,R5    1                 POINTER TO NEXT HALFWORD

     4339   01 014E8    646014E3              BDR,R6   GENFRME0

     4341   01 014E9    224013ED              LI,R4    TST34MA           DISPLAY ENTIRE
     4342   01 014EA    22501402              LI,R5    TST34MB            FRAME DUMP HEADING
     4343   01 014EB    6AF01335              BAL,R15  MSGPRN

     4345   01 014EC    08F00412              EXIT
            01 014ED    E800000F A

     4347   01 014EE    09F00412     GENDUMP  ENTER                      DISPLAY FRAME CONTENTS

     4349                            * STOPS FOUR BYTES EARLY BECAUSE CRC IS DISPLAYED
     4350                            * AT THE COMPLETION OF THE DUMP, SEPARATED.

     4352   01 014EF    22400010 A            LI,R4    16                INDEX OF FIRST BYTE IN BUF

     4354   01 014F0    32500004 A   GENDMP3  LW,R5    R4                COMPUTE NUMBER OF BYTE
     4355   01 014F1    20500010 A            AI,R5    16                 TO BE DISPLAYED THIS LINE

     4357   01 014F2    31502800              CW,R5    BUFF2             DO NOT DISPLAY MORE
     4358   01 014F3    682014F5              BLE      %+2                THAN BUFFER CONTAINS
     4359   01 014F4    32502800              LW,R5    BUFF2

     4361   01 014F5    38500004 A            SW,R5    R4                ACTUAL BYTES TO MOVE

     4363   01 014F6    22700010 A            LI,R7    16                PAD TO LINE LENGTH
     4364   01 014F7    38700005 A            SW,R7    R5                 (ACTUAL NUMBER OF BLANKS NEEDED)

     4366   01 014F8    22600003 A            LI,R6    3                 HALF-WORD INDEX TO START

     4368   01 014F9    32C00004 A            LW,R12   R4                CONVERT AND
     4369   01 014FA    20CFFFF0 A            AI,R12   -16                DISPLAY BYTE INDEX FROM
     4370   01 014FB    EAF00217              BAL,R15  *:DECC              START OF DATA ZONE
     4371   01 014FC    32E0000F A            LW,R14   R15
     4372   01 014FD    32F01BB5              LW,R15   L(X'00FFFFFF')
     4373   01 014FE    47E01403              STS,R14  TST34M5

     4375   01 014FF    72C82800     GENDMP4  LB,R12   BUFF2,R4          GET A BYTE
     4376   01 01500    EAF00218              BAL,R15  *:HEXC             AND CONVERT FOR DISPLAY
     4377   01 01501    55FC1403              STH,R15  TST34M5,R6          STORE INTO MESSAGE

     4379   01 01502    20400001 A            AI,R4    1                 ADVANCE FETCH INDEX
     4380   01 01503    20600001 A            AI,R6    1                  AND STORE INDEX

     4382   01 01504    645014FF              BDR,R5   GENDMP4           MOVE COMPUTED NUMBER OF BYTES

     4384   01 01505    33000007 A            MTW,0    R7                SKIP IF NO PADDING REQUIRED
     4385   01 01506    6830150B              BEZ      GENDMP5

     4387   01 01507    22004040 A            LI,R0    X'4040'           ELSE PAD TO END
     4388   01 01508    550C1403              STH,R0   TST34M5,R6         OF DISPLAY LINE
     4389   01 01509    20600001 A            AI,R6    1
     4390   01 0150A    64701508              BDR,R7   %-2

     4392   01 0150B    EAF0021C     GENDMP5  BAL,R15  *:PRINT           DISPLAY THE LINE
     4393   01 0150C    00001403              DATA     TST34M5

     4395   01 0150D    31402800              CW,R4    BUFF2             CONTINUE CONVERSION
     4396   01 0150E    691014F0              BL       GENDMP3            IF BYTES REMAIN

     4398   01 0150F    2240140D              LI,R4    TST34MC           DISPLAY CRC
     4399   01 01510    22501412              LI,R5    TST34MD
     4400   01 01511    6AF01335              BAL,R15  MSGPRN

     4402   01 01512    08F00412              EXIT
            01 01513    E800000F A

     4404                            * KEEP AN EAR ON THE ETHER AND REPORT THE RUSTLINGS
     4405                            * (ALTHOUGH MICHELSON HEARD NOTHING...)

     4407         01 01514           TST34    EQU      %
     4408   01 01514    226013E3              LI,R6    TST34M0           DISPLAY UNIT
     4409   01 01515    6AF01463              BAL,R15  UNITMOVE

     4411   01 01516    EAF0021C              BAL,R15  *:PRINT
     4412   01 01517    000013E3              DATA     TST34M0

     4414   01 01518    22F01543              LI,R15   TST34CNT          SET GENERAL ERROR
     4415   01 01519    35F01251              STW,R15  GENKEY

     4417   01 0151A    22000000 A            LI,R0    0
     4418   01 0151B    35001543              STW,R0   TST34CNT          CLEAR FRAME COUNTER
     4419   01 0151C    35001669              STW,R0   TIMEFLAG           TIMER HEADER FLAG
     4420   01 0151D    35000238              STW,R0   :CLOCK3             ELASPSED TIME CLOCK

     4422   01 0151E    6AF01B4A              BAL,R15  :SAVECLR          CLEAR I/O STATUS

     4424   01 0151F    22F00020 A            LI,R15   X'20'             ENABLE I/O INTERRUPT
     4425   01 01520    6DF01200 A            WD,R15   X'1200'

     4427   01 01521    22F0017B A            LI,R15   1514/4+1          SET WORD COUNT
     4428   01 01522    35F018B4              STW,R15  :COMWCNT           FOR CLEAR

     4430   01 01523    6AF0110F     TST340   BAL,R15  REATTN            WAIT FOR ATTENTION
     4431   01 01524    6800152C              B        TST341             SKIP ON RECEPTIONS

     4433   01 01525    EAF0022A     TST340A  BAL,R15  *:QSENSE          ELSE LOOK FOR
     4434   01 01526    68401523              BCR,4    TST340             OPERATOR TERMINATION

     4436   01 01527    33000202              MTW,0    :P2               SKIP IF DUMPING
     4437   01 01528    6830054A              BEZ      TST3B

     4439   01 01529    32C01543              LW,R12   TST34CNT          DISPLAY FINAL TIMING
     4440   01 0152A    6AF0164C              BAL,R15  TIMEDISP

     4442   01 0152B    6800054A              B        TST3B

     4444   01 0152C    6AF014AC     TST341   BAL,R15  GENREAD           INPUT ONE FRAME

     4446   01 0152D    33000202              MTW,0    :P2               SKIP IF DUMPING SUPPRESSED
     4447   01 0152E    69301532              BNEZ     TST342

     4449   01 0152F    6AF014CA              BAL,R15  GENFRAME          DISPLAY FRAME CHARACTERISTICS

     4451   01 01530    6AF014EE              BAL,R15  GENDUMP           DISPLAY FRAME CONTENTS

     4453   01 01531    68001525              B        TST340A           LISTEN FURTHER

     4455         01 01532           TST342   EQU      %
     4456   01 01532    32C01543              LW,R12   TST34CNT          CONDITIONAL DISPLAY
     4457   01 01533    6AF01642              BAL,R15  TIMECOND           OF PERFORMANCE TIMING

     4459   01 01534    68001523              B        TST340

     4461   01 01536    0200A000     LISTEN   IOCD     X'02',BA(BUFF2),X'14',0
            01 01537    14000000 A

     4463                            TSEQ8340 :TSEQ    TIO(X'10',X'88'),OSB(X'00',X'40'),;
     4464                                              TDV(X'00',X'7F'),AIO(X'00',X'70'),;
     4465         01 01538                             ISB(X'10',X'48'),COM00,BYTNG

     4467   01 01543    00000000 A   TST34CNT DATA     0                 CURRENT FRAME COUNTER
     4468   01 01544    00000000 A   TST34LAC DATA     0                 CURRENT FRAME STATUS

     4470                            ************************************************************************
     4471                            * TST3,5 CONTINUOUS TRANSMISSION TO THE NETWORK                        *
     4472                            ************************************************************************

     4474         01 01545           TST35    EQU      %
     4475   01 01545    22002000              LI,R0    BUFF1             SET FOR PATTERN GENERATION
     4476   01 01546    3500184E              STW,R0   :PATBFR

     4478   01 01547    320015AF              LW,R0    TST35PAT
     4479   01 01548    3500184A              STW,R0   :PATID

     4481   01 01549    320015B0              LW,R0    TST35DAT
     4482   01 0154A    3500184B              STW,R0   :PATID+1

     4484   01 0154B    320015B1              LW,R0    TST35INC
     4485   01 0154C    3500184C              STW,R0   :PATID+2

     4487   01 0154D    3120184A              CW,R2    :PATID            SKIP IF NOT
     4488   01 0154E    69301551              BNE      TST3500            RANDOM DATA GENERATION

     4490   01 0154F    3200184B              LW,R0    :PATID+1          ELSE RESET THE RNG
     4491   01 01550    35001811              STW,R0   :SEED

     4493   01 01551    32000459     TST3500  LW,R0    :DEVADDR          FORCE NON-UNIQUE
     4494   01 01552    350011D0              STW,R0   UNIT0              UNITS FOR RESUM
     4495   01 01553    350011D1              STW,R0   UNIT1

     4497   01 01554    32000202              LW,R0    :P2               LOOK AT CYCLES REQUESTED
     4498   01 01555    69100594              BLZ      LMT30
     4499   01 01556    69201558              BGZ      %+2
     4500   01 01557    32001BB6              LW,R0    L(X'7FFFFFFF')
     4501   01 01558    350011D8              STW,R0   RELIMIT

     4503   01 01559    6AF01061              BAL,R15  RERESET           RESET COUNTERS

     4505   01 0155A    12400C8A              LD,R4    CPT33W            SET CHANNEL PROGRAM
     4506   01 0155B    15401254              STD,R4   WRRAND

     4508   01 0155C    32500203              LW,R5    :P3               CHECK REQUESTED LENGTH
     4509   01 0155D    6930155F              BNEZ     %+2                DEFAULT IS MAXIMUM
     4510   01 0155E    225005DE A            LI,R5    1502

     4512   01 0155F    21500002 A            CI,R5    2                 GUARD AGAINST
     4513   01 01560    69100592              BL       LMT20              TOO SMALL OR TOO LARGE
     4514   01 01561    215005DE A            CI,R5    1502                A REQUESTED LENGTH
     4515   01 01562    69200592              BG       LMT20

     4517   01 01563    55521255              STH,R5   WRRAND+1,R1

     4519   01 01564    22400000 A            LI,R4    0                 COMPUTE WORDS TO INITIALIZE
     4520   01 01565    2540037E A            SCD,R4   -2                 CONVERT BYTES TO WORDS
     4521   01 01566    33000004 A            MTW,0    R4                  ADD FRACTIONAL WORD
     4522   01 01567    68301569              BEZ      %+2
     4523   01 01568    20500001 A            AI,R5    1
     4524   01 01569    3550184D              STW,R5   :PATWCNT

     4526   01 0156A    3120184A              CW,R2    :PATID            SKIP IF RANDOM DATA
     4527   01 0156B    6830156D              BE       %+2                ELSE INITIALIZE BUFFER

     4529   01 0156C    6AF01813              BAL,R15  :PATTERN

     4531   01 0156D    22601422              LI,R6    TST35M0           GET PROPER MESSAGE

     4533   01 0156E    32000330              LW,R0    :CDB+1            ACCORDING TO NETWORK PRESENCE
     4534   01 0156F    21000001 A            CI,R0    1
     4535   01 01570    68401572              BAZ      %+2

     4537   01 01571    22601429              LI,R6    TST35M1

     4539   01 01572    6AF01463              BAL,R15  UNITMOVE

     4541   01 01573    35601575              STW,R6   %+2               DISPLAY UNIT AND MODE
     4542   01 01574    EAF0021C              BAL,R15  *:PRINT
     4543   01 01575    00000000 A            DATA     0

     4545   01 01576    320011D0              LW,R0    UNIT0             GET UNIT, RESET,
     4546   01 01577    6AF0119D              BAL,R15  REGETADD           SENSE AND SELECT MODE

     4548   01 01578    32402801              LW,R4    BUFF2+1           PICK UP PHYSICAL ADDRESS
     4549   01 01579    32502802              LW,R5    BUFF2+2            OF THIS UNIT FOR TRANSMISSION

     4551   01 0157A    154011CC              STD,R4   PHYSADD0

     4553   01 0157B    124015B2              LD,R4    PHYADD35          PICK UP DESTINATION
     4554   01 0157C    154011CE              STD,R4   PHYSADD1

     4556   01 0157D    22000000 A            LI,R0    0                 CLEAR
     4557   01 0157E    35001669              STW,R0   TIMEFLAG            TIMER HEADER FLAG
     4558   01 0157F    35000238              STW,R0   :CLOCK3              ELAPSED TIME CLOCK

     4560   01 01580    3120184A     TST3501  CW,R2    :PATID            SKIP IF NOT RANDOM DATA
     4561   01 01581    69301583              BNE      %+2                ELSE GENERATE NEW DATA

     4563   01 01582    6AF01813              BAL,R15  :PATTERN

     4565   01 01583    6AF0158F              BAL,R15  TST35XMT          SEND AND TALLY COLLISIONS

     4567   01 01584    331011D9              MTW,+1   RECOUNT           UPDATE COUNTERS
     4568   01 01585    33F011D8              MTW,-1   RELIMIT            CHECK FOR CYCLES EXHAUSTED
     4569   01 01586    6830158B              BEZ      TST3502

     4571   01 01587    32C011D9              LW,R12   RECOUNT           CONDITIONALLY DISPLAY
     4572   01 01588    6AF01642              BAL,R15  TIMECOND           PERFORMANCE TIMING

     4574   01 01589    EAF0022A              BAL,R15  *:QSENSE          CHECK FOR OPERATOR INTERRUPT
     4575   01 0158A    68401580              BCR,4    TST3501            (SSW2 SET)

     4577         01 0158B           TST3502  EQU      %
     4578   01 0158B    32C011D9              LW,R12   RECOUNT           DISPLAY FINAL
     4579   01 0158C    6AF0164C              BAL,R15  TIMEDISP           PERFORMANCE TIMING

     4581   01 0158D    6AF010C6              BAL,R15  RESUM             DISPLAY SUMMARY
     4582   01 0158E    6800054A              B        TST3B              AND RETURN TO TST3 MONITOR

     4584   01 0158F    09F00412     TST35XMT ENTER

     4586   01 01590    220008F0              IOXEQ    REWR0             EXECUTE CHANNEL PROGRAM
            01 01591    6AF0104D

     4588   01 01592    331011DC              MTW,1    REGONE,R0         UPDATE FRAME COUNT (UNIT 0)

     4590   01 01593    CD400459              TIO,R4   *:DEVADDR         CHECK FOR TRANSMISSION ERROR
     4591   01 01594    52500005 A            LH,R5    R5                 AND ASSUME COLLISION IF TRUE
     4592   01 01595    21500040 A            CI,R5    X'0040'
     4593   01 01596    6840159E              BAZ      TST35XMU

     4595   01 01597    22005690              FAIL     TSEQ8351,8351     MUST BE COLLISION
            01 01598    6AF0120C
            01 01599    0000209F A
            01 0159A    6800159B

     4597   01 0159B    331211DE              MTW,1    RECOME,R1         TALLY COLLISIONS

     4599   01 0159C    08F00412              EXIT
            01 0159D    E800000F A

     4601   01 0159E    22003038     TST35XMU FAIL     TSEQNRML,8350     MUST BE NORMAL
            01 0159F    6AF0120C
            01 015A0    0000209E A
            01 015A1    680015A2

     4603   01 015A2    08F00412              EXIT
            01 015A3    E800000F A

     4605                            TSEQ8351 :TSEQ    TIO(X'18'),OSB(X'42'),TDV(X'10',X'0F'),;
     4606         01 015A4                             AIO(X'10'),ISB(X'58'),BYT00

     4608   01 015AF    00000002 A   TST35PAT DATA     2
     4609   01 015B0    12345678 A   TST35DAT DATA     X'12345678'
     4610   01 015B1    00000000 A   TST35INC DATA     0

     4612                                     BOUND    8
     4613   01 015B2    FFFFFFFF A   PHYADD35 DATA     -1,-1
            01 015B3    FFFFFFFF A

     4615                            ************************************************************************
     4616                            * ADD/DELETE GROUP, INSERT PHYSICAL ADDRESS UTILITIES                  *
     4617                            ************************************************************************

     4619         01 015B4           TST36    EQU      %                 ADD GROUP ADDRESS

     4621   01 015B4    22601431              LI,R6    TST36M0           MOVE UNIT
     4622   01 015B5    6AF01463              BAL,R15  UNITMOVE

     4624   01 015B6    2260143A              LI,R6    TST36M1           MOVE ADDRESS
     4625   01 015B7    6AF015E4              BAL,R15  ADDRMOVE

     4627   01 015B8    22000AEF              IOTST    CPT836,TSEQNRML,8360 PERFORM ADDRESS OPERATION
            01 015B9    6AF0104D
            01 015BA    22003038
            01 015BB    6AF0120C
            01 015BC    000020A8 A
            01 015BD    680015B8

     4629   01 015BE    22401431              LI,R4    TST36M0           DISPLAY MESSAGE
     4630   01 015BF    22501440              LI,R5    TST36M2
     4631   01 015C0    6AF01335              BAL,R15  MSGPRN

     4633   01 015C1    6800054A              B        TST3B

     4635         01 015C2           TST37    EQU      %                 DELETE GROUP ADDRESS

     4637   01 015C2    22601441              LI,R6    TST37M0           MOVE UNIT
     4638   01 015C3    6AF01463              BAL,R15  UNITMOVE

     4640   01 015C4    2260144B              LI,R6    TST37M1           MOVE ADDRESS
     4641   01 015C5    6AF015E4              BAL,R15  ADDRMOVE

     4643   01 015C6    22000AF0              IOTST    CPT837,TSEQNRML,8360 PERFORM ADDRESS OPERATION
            01 015C7    6AF0104D
            01 015C8    22003038
            01 015C9    6AF0120C
            01 015CA    000020A8 A
            01 015CB    680015C6

     4645   01 015CC    22401441              LI,R4    TST37M0           DISPLAY MESSAGE
     4646   01 015CD    22501451              LI,R5    TST37M2
     4647   01 015CE    6AF01335              BAL,R15  MSGPRN

     4649   01 015CF    6800054A              B        TST3B

     4651         01 015D0           TST38    EQU      %                 LOAD PHYSICAL ADDRESS

     4653   01 015D0    22601452              LI,R6    TST38M0           MOVE UNIT
     4654   01 015D1    6AF01463              BAL,R15  UNITMOVE

     4656   01 015D2    2260145C              LI,R6    TST38M1           MOVE ADDRESS
     4657   01 015D3    6AF015E4              BAL,R15  ADDRMOVE

     4659   01 015D4    22000AF1              IOTST    CPT838,TSEQNRML,8360 PERFORM ADDRESS OPERATION
            01 015D5    6AF0104D
            01 015D6    22003038
            01 015D7    6AF0120C
            01 015D8    000020A8 A
            01 015D9    680015D4

     4661   01 015DA    22401452              LI,R4    TST38M0           DISPLAY MESSAGE
     4662   01 015DB    22501462              LI,R5    TST38M2
     4663   01 015DC    6AF01335              BAL,R15  MSGPRN

     4665   01 015DD    6800054A              B        TST3B

     4667   01 015DE    190056C8     CPT836   IOCD     X'19',BA(PHYADD35),X'1E',6 ADD GROUP ADDRESS
            01 015DF    1E000006 A
     4668   01 015E0    290056C8     CPT837   IOCD     X'29',BA(PHYADD35),X'1E',6 DELETE GROUP ADDRESS
            01 015E1    1E000006 A
     4669   01 015E2    090056C8     CPT838   IOCD     X'09',BA(PHYADD35),X'1E',6 LOAD PHYSICAL ADDRESS
            01 015E3    1E000006 A

     4671   01 015E4    09F00412     ADDRMOVE ENTER

     4673   01 015E5    22700004 A            LI,R7    4
     4674   01 015E6    12C015B2              LD,R12   PHYADD35
     4675   01 015E7    EAF00218              BAL,R15  *:HEXC
     4676   01 015E8    B5FE0006 A            STW,R15  *R6,R7

     4678   01 015E9    207FFFFF A            AI,R7    -1
     4679   01 015EA    EAF00218              BAL,R15  *:HEXC
     4680   01 015EB    B5FE0006 A            STW,R15  *R6,R7

     4682   01 015EC    52C0000D A            LH,R12   R13
     4683   01 015ED    22700005 A            LI,R7    5
     4684   01 015EE    EAF00218              BAL,R15  *:HEXC
     4685   01 015EF    B5FE0006 A            STW,R15  *R6,R7

     4687   01 015F0    08F00412              EXIT
            01 015F1    E800000F A

     4689                            ************************************************************************
     4690                            * ECHO FRAMES CONTINUOUSLY                                             *
     4691                            ************************************************************************

     4693         01 015F2           TST39    EQU      %
     4694   01 015F2    2260161E              LI,R6    TST39M0           MOVE UNIT
     4695   01 015F3    6AF01463              BAL,R15  UNITMOVE

     4697   01 015F4    EAF0021C              BAL,R15  *:PRINT
     4698   01 015F5    0000161E              DATA     TST39M0           DISPLAY UNIT

     4700   01 015F6    32000459              LW,R0    :DEVADDR          SET SAME UNITS
     4701   01 015F7    350011D0              STW,R0   UNIT0              FOR RESUM
     4702   01 015F8    350011D1              STW,R0   UNIT1               AND REGETAD

     4704   01 015F9    320003CC              LW,R0    ITHSUBT           GET SUBTEST TO IDENTIFY
     4705   01 015FA    2100000B A            CI,R0    11                 UTILITY AND SKIP IF 11
     4706   01 015FB    683015FE              BE       TST393

     4708   01 015FC    22E00000 A            RESET    0                 CLEAR THE INTERFACE
            01 015FD    6AF00F19

     4710   01 015FE    22000B1E     TST393   IOTST    STUDY,TSEQNRML,8392 SENSE, ONLINE, INSERT
            01 015FF    6AF0104D
            01 01600    22003038
            01 01601    6AF0120C
            01 01602    000020C8 A
            01 01603    680015FE

     4712   01 01604    32402801              LW,R4    BUFF2+1           RETRIEVE
     4713   01 01605    32502802              LW,R5    BUFF2+2            THE UNIT'S PHYSICAL ADDRESS
     4714   01 01606    154011CC              STD,R4   PHYSADD0

     4716   01 01607    6AF01061              BAL,R15  RERESET           CLEAR COUNTERS

     4718   01 01608    2200017B A            LI,R0    1514/4+1          SET MAXIMUM BUFFER
     4719   01 01609    350018B4              STW,R0   :COMWCNT           SIZE FOR RECLEAR

     4721   01 0160A    22000000 A            LI,R0    0                 CLEAR
     4722   01 0160B    35000238              STW,R0   :CLOCK3            ELAPSED TIME CLOCK
     4723   01 0160C    35001669              STW,R0   TIMEFLAG            TIMER HEADER FLAG

     4725         01 0160D           TST390   EQU      %
     4726   01 0160D    6AF0110F              BAL,R15  REATTN            WAIT FOR ATTENTION
     4727   01 0160E    68001615              B        TST391             SKIP IF ARRIVED

     4729   01 0160F    EAF0022A     TST390A  BAL,R15  *:QSENSE          CHECK FOR OPERATOR
     4730   01 01610    6840160D              BCR,4    TST390             TERMINATION OR CONTINUE

     4732   01 01611    32C011DC              LW,R12   REGONE,R0         DISPLAY FINAL
     4733   01 01612    6AF0164C              BAL,R15  TIMEDISP           TIME STATISTICS

     4735   01 01613    6AF010C6              BAL,R15  RESUM             NORMAL SUMMARY

     4737   01 01614    6800054A              B        TST3B

     4739         01 01615           TST391   EQU      %
     4740   01 01615    6AF014AC              BAL,R15  GENREAD           INPUT WAITING FRAME

     4742   01 01616    33000202              MTW,0    :P2               SKIP IF DETAILS
     4743   01 01617    6830161A              BEZ      TST392             ARE NOT REQUESTED

     4745   01 01618    6AF014CA              BAL,R15  GENFRAME          FRAME CHARACTERISTICS

     4747   01 01619    6AF014EE              BAL,R15  GENDUMP           FRAME CONTENTS

     4749         01 0161A           TST392   EQU      %
     4750   01 0161A    6AF01625              BAL,R15  GENWRITE          OUTPUT FRAME TO SENDER

     4752   01 0161B    32C011DC              LW,R12   REGONE,R0         CONDITIONALLY DISPLAY
     4753   01 0161C    6AF01642              BAL,R15  TIMECOND           PERFORMANCE TIMING

     4755   01 0161D    6800160F              B        TST390A

     4757   01 0161E    1A40E4D5 A   TST39M0  TEXTC    ' UNIT: XXXX ECHOING FRAMES'
            01 0161F    C9E37A40 A
            01 01620    E7E7E7E7 A
            01 01621    40C5C3C8 A
            01 01622    D6C9D5C7 A
            01 01623    40C6D9C1 A
            01 01624    D4C5E240 A

     4759   01 01625    09F00412     GENWRITE ENTER

     4761   01 01626    22000B1D              IOXEQ    LEARN             TRANSMIT FRAME
            01 01627    6AF0104D

     4763   01 01628    331011DC              MTW,1    REGONE,R0         TALLY FRAMES OUT

     4765   01 01629    CD400459              TIO,R4   *:DEVADDR         GET I/O STATUS

     4767   01 0162A    52500005 A            LH,R5    R5                CHECK FOR TRANSMISSION ERROR
     4768   01 0162B    21500040 A            CI,R5    X'0040'            AND ASSUME COLLISION
     4769   01 0162C    68401634              BAZ      GENWRIT0            IF PRESENT

     4771   01 0162D    22005690              FAIL     TSEQ8351,8390     INSIST UPON COLLISION
            01 0162E    6AF0120C
            01 0162F    000020C6 A
            01 01630    68001631

     4773   01 01631    331211DE              MTW,1    RECOME,R1         TALLY COLLISIONS DETECTED

     4775   01 01632    08F00412              EXIT                       RETURN
            01 01633    E800000F A

     4777         01 01634           GENWRIT0 EQU      %
     4778   01 01634    22003600              FAIL     TSEQNORM,8391     INSIST UPON NORMAL COMPLETION
            01 01635    6AF0120C
            01 01636    000020C7 A
            01 01637    68001638

     4780   01 01638    08F00412              EXIT
            01 01639    E800000F A

     4782   01 0163A    0100A00A     LEARN    IOCD     X'01',BA(BUFF2)+4+6,X'14',0  REFLECT ONE FRAME
            01 0163B    14000000 A

     4784   01 0163C    0400A000     STUDY    IOCD     X'04',BA(BUFF2),X'2E',66     SENSE STATISTICS
            01 0163D    2E000042 A
     4785   01 0163E    03003FC9              IOCD     X'03',BA(MODES)+X'D',X'2E',1 ADDRESS INSERTION
            01 0163F    2E000001 A
     4786   01 01640    03003FC5              IOCD     X'03',BA(MODES)+X'9',X'1E',1 ONLINE
            01 01641    1E000001 A

     4788         01 01642           TIMECOND EQU      %                 CONDITIONAL TIME DISPLAY
     4789   01 01642    3300166A              MTW,0    TIMESNAP           EXIT IF SNAP PARAMETER
     4790   01 01643    E830000F A            BEZ      *R15                SET TO ZERO

     4792   01 01644    09F00412              ENTER

     4794   01 01645    32F0000C A            LW,R15   R12               SAVE COUNT

     4796   01 01646    25C00160 A            SLD,R12  -32               COMPUTE COUNT
     4797   01 01647    36C0166A              DW,R12   TIMESNAP           MOD SNAP PARAMETER
     4798   01 01648    21C00000 A            CI,R12   0                   AND DISPLAY IF CONGRUENT
     4799   01 01649    69301667              BNEZ     TIMEOUTS

     4801   01 0164A    32C0000F A            LW,R12   R15               RESTORE COUNT
     4802   01 0164B    6800164D              B        TIMEUNCD           AND GO DISPLAY

     4804         01 0164C           TIMEDISP EQU      %                 UNCONDITIONAL TIMING DISPLAY
     4805   01 0164C    09F00412              ENTER

     4807         01 0164D           TIMEUNCD EQU      %
     4808   01 0164D    EAF00217              BAL,R15  *:DECC            CONVERT AND STORE COUNT
     4809   01 0164E    55F01671              STH,R15  TIMEMSG1+1
     4810   01 0164F    25F00070 A            SLS,R15  -16
     4811   01 01650    55F21670              STH,R15  TIMEMSG1+0,R1
     4812   01 01651    EAF00217              BAL,R15  *:DECC
     4813   01 01652    75F21670              STB,R15  TIMEMSG1+0,R1

     4815   01 01653    32400238              LW,R4    :CLOCK3           GET ELAPSED TIME
     4816   01 01654    25400160 A            SLD,R4   -32
     4817   01 01655    36401BC6              DW,R4    =10                CONVERT TO SECONDS

     4819   01 01656    32C00005 A            LW,R12   R5                DISPLAY ELAPSED SECONDS
     4820   01 01657    EAF00217              BAL,R15  *:DECC
     4821   01 01658    35F01672              STW,R15  TIMEMSG1+2

     4823   01 01659    25400010 A            SLS,R4   16
     4824   01 0165A    30401BC7              AW,R4    L('.0  ')
     4825   01 0165B    35401673              STW,R4   TIMEMSG1+3

     4827   01 0165C    2240166B              LI,R4    TIMEMSG0          PREPARE TO DISPLAY
     4828   01 0165D    33001669              MTW,0    TIMEFLAG           FULL HEADING BUT
     4829   01 0165E    68301660              BEZ      %+2                 ALTER IF HEADING DONE
     4830   01 0165F    22401670              LI,R4    TIMEMSG1             ALREADY
     4831   01 01660    22501670              LI,R5    TIMEMSG1

     4833   01 01661    32000238              LW,R0    :CLOCK3           ATTEMPT TO SAVE
     4834   01 01662    35001669              STW,R0   TIMEFLAG           CURRENT ELAPSED TIME

     4836   01 01663    6AF01335              BAL,R15  MSGPRN            DISPLAY SNAPSHOT

     4838   01 01664    32001669              LW,R0    TIMEFLAG          RESTORE CURRENT
     4839   01 01665    35000238              STW,R0   :CLOCK3            ELAPSED TIME

     4841   01 01666    33101669              MTW,1    TIMEFLAG          SET HEADING DONE

     4843   01 01667    08F00412     TIMEOUTS EXIT
            01 01668    E800000F A

     4845   01 01669                 TIMEFLAG RES      1
     4846   01 0166A                 TIMESNAP RES      1

     4848   01 0166B    01404040 A   TIMEMSG0 TEXTC    ' '
     4849   01 0166C    0DC3E8C3 A            TEXTC    'CYCLE SECONDS'
            01 0166D    D3C540E2 A
            01 0166E    C5C3D6D5 A
            01 0166F    C4E24040 A
     4850   01 01670    0DE7E7E7 A   TIMEMSG1 TEXTC    'XXXXX  XXXX.X'
            01 01671    E7E74040 A
            01 01672    E7E7E7E7 A
            01 01673    4BE74040 A

     4852                            ************************************************************************
     4853                            * SAMPLE AND DISPLAY I/O STATUS (ALMOST RAW)                           *
     4854                            ************************************************************************

     4856   01 01674    09F00412     STATUS   ENTER

     4858   01 01675    CED00459              TDV,R13  *:DEVADDR         GATHER TDV STATUS

     4860   01 01676    72C0000D A            LB,R12   R13               CONVERT STATUS BYTE
     4861   01 01677    EAF00218              BAL,R15  *:HEXC
     4862   01 01678    55F216A6              STH,R15  STATM0+1,R1

     4864   01 01679    CD400459              TIO,R4   *:DEVADDR         GATHER TIO STATUS

     4866   01 0167A    32C00004 A            LW,R12   R4                CONVERT 64 BITS
     4867   01 0167B    EAF00218              BAL,R15  *:HEXC             OF TIO STATUS
     4868   01 0167C    32E01BC8              LW,R14   ='    '
     4869   01 0167D    25E00308 A            SCD,R14  8                 bbb4567b
     4870   01 0167E    35F016AA              STW,R15  STATM0+5
     4871   01 0167F    EAF00218              BAL,R15  *:HEXC
     4872   01 01680    25E00278 A            SCS,R14  -8                4bbb0123
     4873   01 01681    25E00308 A            SCD,R14  8                 bbb01234
     4874   01 01682    35F016A9              STW,R15  STATM0+4
     4875   01 01683    75E616A8              STB,R14  STATM0+3,R3

     4877   01 01684    32C00005 A            LW,R12   R5
     4878   01 01685    EAF00218              BAL,R15  *:HEXC
     4879   01 01686    35F016AC              STW,R15  STATM0+7
     4880   01 01687    EAF00218              BAL,R15  *:HEXC
     4881   01 01688    35F016AB              STW,R15  STATM0+6

     4883   01 01689    12C80000 A            LD,R12   0,R4              FETCH CURRENT CDW
     4884   01 0168A    3270000C A            LW,R7    R12                ADD REQUESTED BYTES
     4885   01 0168B    5072000D A            AH,R7    R13,R1              REMOVE REMAINING BYTES
     4886   01 0168C    58720005 A            SH,R7    R5,R1                POINT TO LAST BYTE ACCESSED
     4887   01 0168D    207FFFFF A            AI,R7    -1

     4889   01 0168E    EAF00218              BAL,R15  *:HEXC            CONVERT 64 BITS
     4890   01 0168F    32E01BC8              LW,R14   ='    '
     4891   01 01690    25E00308 A            SCD,R14  8                 bbb4567b
     4892   01 01691    35F016B2              STW,R15  STATM1+5
     4893   01 01692    EAF00218              BAL,R15  *:HEXC
     4894   01 01693    25E00278 A            SCS,R14  -8                4bbb0123
     4895   01 01694    25E00308 A            SCD,R14  8                 bbb01234
     4896   01 01695    35F016B1              STW,R15  STATM1+4
     4897   01 01696    75E616B0              STB,R14  STATM1+3,R3

     4899   01 01697    32C0000D A            LW,R12   R13
     4900   01 01698    EAF00218              BAL,R15  *:HEXC
     4901   01 01699    35F016B4              STW,R15  STATM1+7
     4902   01 0169A    EAF00218              BAL,R15  *:HEXC
     4903   01 0169B    35F016B3              STW,R15  STATM1+6

     4905   01 0169C    72CE0000 A            LB,R12   0,R7              FETCH PROBABLE LAST
     4906   01 0169D    EAF00218              BAL,R15  *:HEXC             BYTE TRANSFERED AND DISPLAY
     4907   01 0169E    55F216AE              STH,R15  STATM1+1,R1

     4909   01 0169F    224016A4              LI,R4    STATM             DISPLAY I/O STATUS
     4910   01 016A0    225016AD              LI,R5    STATM1
     4911   01 016A1    6AF01335              BAL,R15  MSGPRN

     4913   01 016A2    08F00412              EXIT
            01 016A3    E800000F A

     4915   01 016A4    01404040 A   STATM    TEXTC    ' '
     4916   01 016A5    1FE3C4E5 A   STATM0   TEXTC    'TDV: XX, TIO: 01234567 89ABCDEF'
            01 016A6    7A40E7E7 A
            01 016A7    6B40E3C9 A
            01 016A8    D67A40F0 A
            01 016A9    F1F2F3F4 A
            01 016AA    F5F6F740 A
            01 016AB    F8F9C1C2 A
            01 016AC    C3C4C5C6 A
     4917   01 016AD    1FC2E8E3 A   STATM1   TEXTC    'BYT: XX, CDW: 01234567 89ABCDEF'
            01 016AE    7A40E7E7 A
            01 016AF    6B40C3C4 A
            01 016B0    E67A40F0 A
            01 016B1    F1F2F3F4 A
            01 016B2    F5F6F740 A
            01 016B3    F8F9C1C2 A
            01 016B4    C3C4C5C6 A

     4919                            *                                   I/O RESET ROUTINE
     4920                            *                                   -----------------

     4922         01 016B5           RESETS   EQU      %                 MYDELAY SUBROUTINE ENTRY
     4923   01 016B5    09F00412              ENTER

     4925   01 016B6    CFC00459              HIO,R12  *:DEVADDR
     4926   01 016B7    6AF01B51              BAL,R15  :SAVETIO          SAVE HIO STATUS AS TIO

     4928   01 016B8    22CFFFFF A            LI,R12   -1
     4929   01 016B9    22DFFFFF A            LI,R13   -1
     4930   01 016BA    6AF01B6E              BAL,R15  :SAVEAIO          FAKE AIO STATUS

     4932   01 016BB    08F00412              EXIT
            01 016BC    E800000F A

     4934                            *                                   RESET AND ARM I/O INTERRUPT
     4935                            *                                   ---------------------------

     4937   01 016BD    09F00412     CLRARM   ENTER

     4939   01 016BE    6AF01B4A              BAL,R15  :SAVECLR          CLEAR TEST FLAGS

     4941   01 016BF    6AF019C3              BAL,R15  :INTCLRC          CLEAR CE INTERRUPT

     4943   01 016C0    22F00020 A            LI,R15   X'20'             ARM AND ENABLE
     4944   01 016C1    6DF01200 A            WD,R15   X'1200'            THE I/O INTERRUPT

     4946   01 016C2    08F00412              EXIT
            01 016C3    E800000F A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   68
A    4948                            *                                   DELAY AND WAIT FOR INTERRUPT
     4949                            *                                   ----------------------------

     4951   01 016C4    09F00412     MYDELAY  ENTER                      R14 CONTAINS TIMEOUT
     4952   01 016C5    6AF01906              BAL,15   :DELAYCE           THRESHOLD IN MILLISECONDS
     4953   01 016C6    680016E4              B        MYDELAY2            WAIT FOR CE OR UE

     4955                            * ERROR MESSAGE TIMEOUT - NO INTERRUPT
     4956   01 016C7    6AF016B5     MYDELAY4 BAL,15   RESETS            CLEAR THE INTERFACE

     4958   01 016C8    32C003CC              LW,R12   ITHSUBT           DISPLAY SUBTEST
     4959   01 016C9    683016D4              BEZ      MYDELAY0           IF NON-ZERO

     4961   01 016CA    EAF00217              BAL,R15  *:DECC
     4962   01 016CB    25F00010 A            SLS,R15  16
     4963   01 016CC    20F04040 A            AI,R15   X'4040'
     4964   01 016CD    32E003CB              LW,R14   ITHTEST           ALONG WITH TEST ID
     4965   01 016CE    25E00008 A            SLS,R14  8
     4966   01 016CF    30E01BC9              AW,R14   =' T0,'
     4967   01 016D0    25E00308 A            SCD,R14  8
     4968   01 016D1    35E003D1              STW,R14  TIMEOUT+3
     4969   01 016D2    35F003D2              STW,R15  TIMEOUT+4
     4970   01 016D3    680016DA              B        MYDELAY1

     4972   01 016D4    32F003CB     MYDELAY0 LW,R15   ITHTEST           DISPLAY TST*N*
     4973   01 016D5    25F00010 A            SLS,R15  16
     4974   01 016D6    30F01BCA              AW,R15   L('T0  ')
     4975   01 016D7    35F003D1              STW,R15  TIMEOUT+3
     4976   01 016D8    32F01BC8              LW,R15   ='    '
     4977   01 016D9    35F003D2              STW,R15  TIMEOUT+4

     4979   01 016DA    32C00412     MYDELAY1 LW,R12   DPM:STK           COMPUTE PROBABLE
     4980   01 016DB    20CFFFFF A            AI,R12   -1                 CALLING LOCATION
     4981   01 016DC    B2C0000C A            LW,R12   *R12                AND FETCH FROM STACK

     4983   01 016DD    20CFFFFF A            AI,R12   -1
     4984   01 016DE    EAF00218              BAL,R15  *:HEXC
     4985   01 016DF    35F003D4              STW,R15  TIMEOUT+6

     4987   01 016E0    EAF0021C              BAL,R15  *:PRINT
     4988   01 016E1    0000040E              DATA     SPACE
     4989   01 016E2    EAF0021C              BAL,R15  *:PRINT
     4990   01 016E3    000003CE              DATA     TIMEOUT

     4992   01 016E4    08F00412     MYDELAY2 EXIT
            01 016E5    E800000F A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   69
A    4994                            *                *** ISSUE SIO, TIO, HIO, TDV, AIO ***
     4995                            *
     4996                            * THE ISSUE SUBROUTINE ISSUES AN SIO, TIO, HIO, TDV, OR AIO TO
     4997                            *  SPECIFIED DEVICE.  STATUS MASK IS COMPARED WITH RETURNED DEVICE
     4998                            *   STATUS, CONDITION CODES.  ERROR CONDITIONS ARE PRINTED.
     4999                            *
     5000                            *       INPUT PARAMETERS:
     5001                            *
     5002                            *         REG 0 -DA(IOCD)-FOR SIO ONLY
     5003                            *         REG 14-STATUS MASK
     5004                            *                  BITS  0-15: DEVICE STATUS MASK
     5005                            *                  BITS 16,17: CONDITION CODES 1,2 MASK
     5006                            *                  BITS 18-23: ZEROS
     5007                            *                  BITS 24-31: PRINT INHIBIT (INHIBIT IF <>0)
     5008                            *
     5009                            *                   (NOTE: ERROR CONDITION EXISTS IF
     5010                            *                     A MASK BIT LOGICALLY AND'D WITH
     5011                            *                     A CORRESPONDING DEVICE STATUS OR
     5012                            *                     CC1,2 BIT EQUALS 1)
     5013                            *
     5014                            *       OUTPUT PARAMETERS:
     5015                            *
     5016                            *         NORMAL EXIT-RETURN ADDRESS
     5017                            *         ERROR EXIT -RETURN ADDRESS+1
     5018                            *         REG 12     -COMMAND ADDRESS
     5019                            *         REG 13     -DEVICE STATUS, BYTE COUNT
     5020                            *         :CC12      -RETURNED CONDITION CODES 1,2 (BIT POSITIONS 30,31)

     5022   01 016E6    35001B94     :SIO     STW,R0   :SAVCOM1          SAVE DA(IOCD)

     5024   01 016E7    CCC00459              SIO,R12  *:DEVADDR
     5025   01 016E8    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     5026   01 016E9    7404000B A            STCF     R11,R2            ENTER COND CODES 1-4 AND FLOAT CTR
     5027   01 016EA    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     5028   01 016EB    4BB01BCB              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     5029   01 016EC    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     5030   01 016ED    22400000 A            LI,R4    0
     5031   01 016EE    35401762              STW,R4   :TYPE             ISSUE TYPE=0
     5032   01 016EF    68001714              B        :STATEST          REPORT SIO STATUS ERROR

     5034   01 016F0    CDC00459     :TIO     TIO,R12  *:DEVADDR         ISSUE TIO
     5035   01 016F1    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     5036   01 016F2    7404000B A            STCF     R11,R2            ENTER COND CODES 1-4 AND FLOAT CTR
     5037   01 016F3    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     5038   01 016F4    4BB01BCB              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     5039   01 016F5    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     5040   01 016F6    22400001 A            LI,R4    1
     5041   01 016F7    35401762              STW,R4   :TYPE             ISSUE TYPE=1
     5042   01 016F8    68001714              B        :STATEST          REPORT TIO STATUS ERROR
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   70
A    5044   01 016F9    CFC00459     :HIO     HIO,R12  *:DEVADDR         ISSUE HIO
     5045   01 016FA    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     5046   01 016FB    7404000B A            STCF     R11,R2            ENTER COND CODES 1-4 AND FLOAT CTR
     5047   01 016FC    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     5048   01 016FD    4BB01BCB              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     5049   01 016FE    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     5050   01 016FF    22400002 A            LI,R4    2
     5051   01 01700    35401762              STW,R4   :TYPE             ISSUE TYPE=2
     5052   01 01701    68001714              B        :STATEST          REPORT HIO STATUS ERROR

     5054   01 01702    CEC00459     :TDV     TDV,R12  *:DEVADDR         ISSUE TDV
     5055   01 01703    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     5056   01 01704    7404000B A            STCF     R11,R2            ENTER COND CODES 1-4 AND FLOAT CTR
     5057   01 01705    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     5058   01 01706    4BB01BCB              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     5059   01 01707    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     5060   01 01708    22400003 A            LI,R4    3
     5061   01 01709    35401762              STW,R4   :TYPE             ISSUE TYPE=3
     5062   01 0170A    68001714              B        :STATEST          REPORT TDV STATUS ERROR

     5064   01 0170B    6ED00000 A   :AIO     AIO,R13  0                 ISSUE AIO
     5065   01 0170C    32B0000D A            LW,R11   R13               DEVICE STATUS, BYTE COUNT
     5066   01 0170D    7404000B A            STCF     R11,R2            ENTER COND CODES 1-4 AND FLOAT CTR
     5067   01 0170E    4BB0000E A            AND,R11  R14               (DEV STATUS).(STATUS MASK)
     5068   01 0170F    4BB01BCB              AND,R11  =X'FFFFC000'      REMOVE BYTE CNT, CC3,4 AND FLT CTR
     5069   01 01710    E830000F A            BCR,3    *R15              NO 1-BITS COMPARE-EXIT NORMAL
     5070   01 01711    22400004 A            LI,R4    4
     5071   01 01712    35401762              STW,R4   :TYPE             ISSUE TYPE=4
     5072   01 01713    68001714              B        :STATEST          REPORT AIO STATUS ERROR
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   71
A    5074                            * PROCESS CC, STATUS ERRORS
     5075   01 01714    74000004 A   :STATEST STCF     R4                COND CODES 1-4, FLOAT CTRL
     5076   01 01715    72400004 A            LB,R4    R4                MOVE CC1,2 TO BIT POSITIONS 30,31
     5077   01 01716    2540007A A            SLS,R4   -6
     5078   01 01717    35401761              STW,R4   :CC12             SAVE CC1,2
     5079   01 01718    3310000F A            MTW,1    R15               RETURN ADDRESS +1
     5080   01 01719    22400003 A            LI,R4    3                 INDEX=3
     5081   01 0171A    7248000E A            LB,R4    R14,R4            STATUS MASK PRINT INHIBIT
     5082   01 0171B    E920000F A            BCS,2    *R15              PRINT INHIBIT <>0 -ERROR EXIT

     5084   01 0171C    02200000 A            LCI      0                 SAVE ALL REGISTERS
     5085   01 0171D    0B000412              PSM,R0   DPM:STK

     5087   01 0171E    22400002 A            LI,R4    2                 INDEX=2
     5088   01 0171F    7248000B A            LB,R4    R11,R4            MASKED CC1,2
     5089   01 01720    68301745              BCR,3    :STATERR          NO CC ERROR-GO TO STATUS ERROR TEST
     5090   01 01721    32401761              LW,R4    :CC12             CC1,2
     5091   01 01722    21400003 A            CI,R4    3
     5092   01 01723    68301737              BCR,3    :CCERR3           CC1,2=11
     5093   01 01724    21400002 A            CI,R4    2
     5094   01 01725    68301731              BCR,3    :CCERR2           CC1,2=10

     5096                            * CC1,2=01
     5097   01 01726    32401762     :CCERR1  LW,R4    :TYPE             ISSUE TYPE
     5098   01 01727    21400003 A            CI,R4    3
     5099   01 01728    6930172C              BCS,3    %+4               TYPE NOT 3
     5100   01 01729    32C01761              LW,R12   :CC12             COND CODES 1,2
     5101   01 0172A    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     5102   01 0172B    55F0178C              STH,R15  :CCERM4+9         ENTER INTO TDV MSG
     5103   01 0172C    32481763              LW,R4    :ERRADR1,R4       ERROR MSG ADDRESS
     5104   01 0172D    3540172F              STW,R4   %+2
     5105   01 0172E    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG
     5106   01 0172F    00000000 A            DATA     0
     5107   01 01730    68001747              B        :STATFRC          GO TO STATUS ERROR

     5109                            * CC1,2=10
     5110   01 01731    32401762     :CCERR2  LW,R4    :TYPE             ISSUE TYPE
     5111   01 01732    32481768              LW,R4    :ERRADR2,R4       ERROR MSG ADDRESS
     5112   01 01733    35401735              STW,R4   %+2
     5113   01 01734    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG
     5114   01 01735    00000000 A            DATA     0
     5115   01 01736    68001742              B        :CCERR4
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   72
A    5117                            * CC1,2=11
     5118   01 01737    32501762     :CCERR3  LW,R5    :TYPE             ISSUE TYPE
     5119   01 01738    324A176D              LW,R4    :ERRADR3,R5       ERROR MSG ADDRESS
     5120   01 01739    21500004 A            CI,R5    4
     5121   01 0173A    6830173F              BCR,3    %+5               ISSUE TYPE 4-NO DEV ADDR REQ'D
     5122   01 0173B    32C00459              LW,R12   :DEVADDR          DEVICE ADDRESS
     5123   01 0173C    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     5124   01 0173D    22500004 A            LI,R5    4                 INDEX=4
     5125   01 0173E    B5FA0004 A            STW,R15  *R4,R5            DEV ADDR TO ERROR MSG
     5126   01 0173F    35401741              STW,R4   %+2
     5127   01 01740    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG
     5128   01 01741    00000000 A            DATA     0

     5130   01 01742    02200000 A   :CCERR4  LCI      0
     5131   01 01743    0A000412              PLM,R0   DPM:STK           RESTORE ALL REGISTERS

     5133   01 01744    E800000F A            B        *R15              ERROR EXIT
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   73
A    5135                            * TEST MASKED STATUS
     5136   01 01745    5240000B A   :STATERR LH,R4    R11               MASKED STATUS
     5137   01 01746    68301742              BEZ      :CCERR4           NO STATUS ERROR-ERROR EXIT

     5139   01 01747    EAF0021C     :STATFRC BAL,R15  *:PRINT           PRINT STATUS ERROR HEADER
     5140   01 01748    000017BD              DATA     :STATEM1
     5141   01 01749    32401762              LW,R4    :TYPE             ISSUE TYPE
     5142   01 0174A    324817D4              LW,R4    :STATTYP,R4       ENTER TYPE INTO STATUS ERROR MSG
     5143   01 0174B    725017C9              LB,R5    :STATEM2          SAVE ERROR MSG BYTE COUNT
     5144   01 0174C    354017C9              STW,R4   :STATEM2
     5145   01 0174D    755017C9              STB,R5   :STATEM2          RESTORE BYTE COUNT
     5146   01 0174E    22500012 A            LI,R5    18                MSG BYTE INDEX=18
     5147   01 0174F    52C0000D A            LH,R12   R13               DEV STATUS
     5148   01 01750    22400004 A            LI,R4    4                 MINOR INDEX=4
     5149   01 01751    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     5150   01 01752    75FA17CC              STB,R15  :STATEM2+3,R5     STATUS BIT TO ERROR MSG
     5151   01 01753    33F00005 A            MTW,-1   R5                BYTE INDEX-1
     5152   01 01754    25F00078 A            SLS,R15  -8                ADJUST CONVERTED STATUS BITS
     5153   01 01755    64401752              BDR,R4   %-3               MINOR INDEX-1 NOT ZERO
     5154   01 01756    64501750              BDR,R5   %-6               BYTE INDEX-1 NOT ZERO
     5155   01 01757    32C01761              LW,R12   :CC12             COND CODES 1,2
     5156   01 01758    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     5157   01 01759    22400001 A            LI,R4    1                 INDEX=1
     5158   01 0175A    55F817D1              STH,R15  :STATEM2+8,R4     COND CODES 1,2 TO ERROR MSG
     5159   01 0175B    32C00459              LW,R12   :DEVADDR          DEVICE ADDRESS
     5160   01 0175C    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     5161   01 0175D    35F017D3              STW,R15  :STATEM2+10       DEV ADDR TO ERROR MSG
     5162   01 0175E    EAF0021C              BAL,R15  *:PRINT           PRINT STATUS MSG
     5163   01 0175F    000017C9              DATA     :STATEM2
     5164   01 01760    68001742              B        :CCERR4           GO TO ERROR EXIT
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   74
A    5166   01 01761    00000000 A   :CC12    DATA     0                 CC1,2
     5167   01 01762    00000000 A   :TYPE    DATA     0                 ISSUE TYPE

     5169   01 01763    00001772     :ERRADR1 DATA     :CCERM1           ERROR ADDRESS 1-F
     5170   01 01764    00001777              DATA     :CCERM2
     5171   01 01765    0000177D              DATA     :CCERM3
     5172   01 01766    00001783              DATA     :CCERM4
     5173   01 01767    0000178D              DATA     :CCERM5

     5175   01 01768    00001792     :ERRADR2 DATA     :CCERM6
     5176   01 01769    00001796              DATA     :CCERM7
     5177   01 0176A    0000179A              DATA     :CCERM8
     5178   01 0176B    0000179E              DATA     :CCERM9
     5179   01 0176C    000017A2              DATA     :CCERMA

     5181   01 0176D    000017A6     :ERRADR3 DATA     :CCERMB
     5182   01 0176E    000017AB              DATA     :CCERMC
     5183   01 0176F    000017B0              DATA     :CCERMD
     5184   01 01770    000017B5              DATA     :CCERME
     5185   01 01771    000017BA              DATA     :CCERMF

     5187   01 01772    10E2C9D6 A   :CCERM1  TEXTC    'SIO-NOT ACCEPTED'
            01 01773    60D5D6E3 A
            01 01774    40C1C3C3 A
            01 01775    C5D7E3C5 A
            01 01776    C4404040 A
     5188   01 01777    14E3C9D6 A   :CCERM2  TEXTC    'TIO-SIO NOT POSSIBLE'
            01 01778    60E2C9D6 A
            01 01779    40D5D6E3 A
            01 0177A    40D7D6E2 A
            01 0177B    E2C9C2D3 A
            01 0177C    C5404040 A
     5189   01 0177D    14C8C9D6 A   :CCERM3  TEXTC    'HIO-DEV BUSY AT HALT'
            01 0177E    60C4C5E5 A
            01 0177F    40C2E4E2 A
            01 01780    E840C1E3 A
            01 01781    40C8C1D3 A
            01 01782    E3404040 A
     5190   01 01783    25E3C4E5 A   :CCERM4  TEXTC    'TDV-DEV DEPENDENT CONDITION CC1,2=   '
            01 01784    60C4C5E5 A
            01 01785    40C4C5D7 A
            01 01786    C5D5C4C5 A
            01 01787    D5E340C3 A
            01 01788    D6D5C4C9 A
            01 01789    E3C9D6D5 A
            01 0178A    40C3C3F1 A
            01 0178B    6BF27E40 A
            01 0178C    40404040 A
     5191   01 0178D    10C1C9D6 A   :CCERM5  TEXTC    'AIO-UE INTERRUPT'
            01 0178E    60E4C540 A
            01 0178F    C9D5E3C5 A
            01 01790    D9D9E4D7 A
            01 01791    E3404040 A
     5192   01 01792    0DE2C9D6 A   :CCERM6  TEXTC    'SIO-BUSY SIOP'
            01 01793    60C2E4E2 A
            01 01794    E840E2C9 A
            01 01795    D6D74040 A
     5193   01 01796    0DE3C9D6 A   :CCERM7  TEXTC    'TIO-BUSY SIOP'
            01 01797    60C2E4E2 A
            01 01798    E840E2C9 A
            01 01799    D6D74040 A
     5194   01 0179A    0CC8C9D6 A   :CCERM8  TEXTC    'HIO-CC1,2=10'
            01 0179B    60C3C3F1 A
            01 0179C    6BF27EF1 A
            01 0179D    F0404040 A
     5195   01 0179E    0DE3C4E5 A   :CCERM9  TEXTC    'TDV-BUSY SIOP'
            01 0179F    60C2E4E2 A
            01 017A0    E840E2C9 A
            01 017A1    D6D74040 A
     5196   01 017A2    0CC1C9D6 A   :CCERMA  TEXTC    'AIO-CC1,2=10'
            01 017A3    60C3C3F1 A
            01 017A4    6BF27EF1 A
            01 017A5    F0404040 A
     5197   01 017A6    13E2C9D6 A   :CCERMB  TEXTC    'SIO NO AR, DEV XXXX'
            01 017A7    40D5D640 A
            01 017A8    C1D96B40 A
            01 017A9    C4C5E540 A
            01 017AA    E7E7E7E7 A
     5198   01 017AB    13E3C9D6 A   :CCERMC  TEXTC    'TIO NO AR, DEV XXXX'
            01 017AC    40D5D640 A
            01 017AD    C1D96B40 A
            01 017AE    C4C5E540 A
            01 017AF    E7E7E7E7 A
     5199   01 017B0    13C8C9D6 A   :CCERMD  TEXTC    'HIO NO AR, DEV XXXX'
            01 017B1    40D5D640 A
            01 017B2    C1D96B40 A
            01 017B3    C4C5E540 A
            01 017B4    E7E7E7E7 A
     5200   01 017B5    13E3C4E5 A   :CCERME  TEXTC    'TDV NO AR, DEV XXXX'
            01 017B6    40D5D640 A
            01 017B7    C1D96B40 A
            01 017B8    C4C5E540 A
            01 017B9    E7E7E7E7 A
     5201   01 017BA    09C1C9D6 A   :CCERMF  TEXTC    'AIO NO AR'
            01 017BB    40D5D640 A
            01 017BC    C1D94040 A
     5202   01 017BD    2D404040 A   :STATEM1 TEXTC    '           0123 4567 8901 2345 CC1,2 DEV ADDR'
            01 017BE    40404040 A
            01 017BF    40404040 A
            01 017C0    F0F1F2F3 A
            01 017C1    40F4F5F6 A
            01 017C2    F740F8F9 A
            01 017C3    F0F140F2 A
            01 017C4    F3F4F540 A
            01 017C5    C3C3F16B A
            01 017C6    F240C4C5 A
            01 017C7    E540C1C4 A
            01 017C8    C4D94040 A
     5203   01 017C9    2B404040 A   :STATEM2 TEXTC    '    STATUS XXXX XXXX XXXX XXXX   XX    XXXX'
            01 017CA    40E2E3C1 A
            01 017CB    E3E4E240 A
            01 017CC    E7E7E7E7 A
            01 017CD    40E7E7E7 A
            01 017CE    E740E7E7 A
            01 017CF    E7E740E7 A
            01 017D0    E7E7E740 A
            01 017D1    4040E7E7 A
            01 017D2    40404040 A
            01 017D3    E7E7E7E7 A
     5204   01 017D4    40E2C9D6 A   :STATTYP TEXT     ' SIO',' TIO',' HIO',' TDV',' AIO'
            01 017D5    40E3C9D6 A
            01 017D6    40C8C9D6 A
            01 017D7    40E3C4E5 A
            01 017D8    40C1C9D6 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   75
A    5206                            *               *** IO EXECUTE ***
     5207                            *
     5208                            * THE IO EXECUTE SUBROUTINE ISSUES A TIO, SIO TO SPECIFIED DEVICE.
     5209                            *  THE SUBROUTINE LOOPS UPON DETECTION OF STATUS OR CC ERROR.
     5210                            *
     5211                            *       INPUT PARAMETERS:
     5212                            *
     5213                            *         REG 0   -DA(IOCD)
     5214                            *         REG 15  -RETURN ADDRESS
     5215                            *         :DEVADDR-DEVICE ADDRESS
     5216                            *
     5217                            *       OUTPUT PARAMETERS:
     5218                            *
     5219                            *         REG 12-SIO COMMAND ADDRESS
     5220                            *         REG 13-SIO DEVICE STATUS, BYTE COUNT
     5221                            *
     5222                            *       WAIT CONDITION-PROGRAM ENTERS WAIT STATE (1) AFTER UNSUCCESSFUL
     5223                            *                      HIO, IO RESET, TIO SEQUENCE OR (2) IF DEVICE
     5224                            *                      MANUAL CONDITION IS DETECTED.

     5226   01 017D9    09F00412     :IOEXEC  ENTER
     5227   01 017DA    35001B94              STW,R0   :SAVCOM1          SAVE COMMAND ADDRESS

     5229   01 017DB    32E01BCC     :IOEXEC1 LW,R14   =X'E600C000'      STATUS MASK
     5230   01 017DC    6AF016F0              BAL,R15  :TIO              ISSUE TIO
     5231   01 017DD    680017DF              B        %+2
     5232   01 017DE    680017E6              B        :IOERR1           TIO STATUS ERROR

     5234   01 017DF    4BD01BCD              AND,R13  =X'10000000'      MASK DEV STATUS FOR AUTO TEST
     5235   01 017E0    683017F0              BCR,3    :IOERR2           DEVICE MANUAL ERROR

     5237   01 017E1    6AF016E6              BAL,R15  :SIO              ISSUE SIO
     5238   01 017E2    680017E4              B        %+2
     5239   01 017E3    680017DB              B        :IOEXEC1          SIO STATUS ERROR-LOOP TO ISSUE TIO

     5241   01 017E4    08F00412              EXIT
            01 017E5    E800000F A

     5243                            * TIO STATUS ERROR
     5244   01 017E6    32E01BCE     :IOERR1  LW,R14   =X'80004000'      STATUS MASK
     5245   01 017E7    6AF016F9              BAL,R15  :HIO              ISSUE HIO
     5246   01 017E8    680017EA              B        %+2
     5247   01 017E9    680017DB              B        :IOEXEC1          HIO STATUS ERROR-LOOP TO ISSUE TIO

     5249   01 017EA    32E01BCC              LW,R14   =X'E600C000'      STATUS MASK
     5250   01 017EB    6AF016F0              BAL,R15  :TIO              ISSUE TIO
     5251   01 017EC    680017DB              B        :IOEXEC1          LOOP TO ISSUE TIO

     5253                            * ENTER WAIT STATE
     5254   01 017ED    EAF0022B     :IOERR1A BAL,R15  *:WAIT            'CLEAR WAIT TO CONTINUE'
     5255   01 017EE    000017F8              DATA     :IOERM1
     5256   01 017EF    680017DB              B        :IOEXEC1          LOOP TO ISSUE TIO
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   76
A    5258                            * DEVICE MANUAL ERROR
     5259   01 017F0    32C00459     :IOERR2  LW,R12   :DEVADDR          FETCH DEVICE ADDRESS
     5260   01 017F1    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEX AND
     5261   01 017F2    55F017FF              STH,15   :IOERM2+2         STORE IN MANUAL MESSAGE
     5262   01 017F3    25F00070 A            SLS,15   -16
     5263   01 017F4    55F217FE              STH,15   :IOERM2+1,1
     5264   01 017F5    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG
     5265   01 017F6    000017FD              DATA     :IOERM2
     5266   01 017F7    680017ED              B        :IOERR1A          GO TO WAIT

     5268   01 017F8    124DC6D9 A   :IOERM1  TEXTC    '(FROM I/O EXECUTE)'
            01 017F9    D6D440C9 A
            01 017FA    61D640C5 A
            01 017FB    E7C5C3E4 A
            01 017FC    E3C55D40 A
     5269   01 017FD    11C4C5E5 A   :IOERM2  TEXTC    'DEV  XXXX  MANUAL'
            01 017FE    4040E7E7 A
            01 017FF    E7E74040 A
            01 01800    D4C1D5E4 A
            01 01801    C1D34040 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   77
A    5271                            *        MODIFIED PSEUDORANDOM NUMBER GENERATOR
     5272                            *
     5273                            *        THE CALCULATION OF THE NEXT NUMBER X(N+1) DEPENDS ON THE
     5274                            *                 PREVIOUS NUMBER X(N) AND THE VALUE OF TWO INTERNAL
     5275                            *                 COUNTERS M1 AND M2.  THE TWO COUNTERS ARE CHANGED
     5276                            *                 BY UNITY EACH TIME A RANDOM NUMBER IS GENERATED, THE
     5277                            *                 ONE COUNTER INCREASING AND THE OTHER DECREASING.
     5278                            *
     5279                            *        X(N+1) = M1 (+) M2 (+) M(X(N)), WHERE (+)=EXCLUSIVE OR
     5280                            *
     5281                            *        OPTION-1, USES INTERNAL VALUES OF M1, M2 AND X.  RESULTS
     5282                            *                 FOUND IN REGISTER-14.
     5283                            *
     5284                            *        BAL,15   :RANDOM
     5285                            *
     5286                            *        OPTION-2, USES INTERNAL VALUES OF M1 AND M2.  USER PROVIDES
     5287                            *                 SEED IN REGISTER-14.  RESULT IN REGISTER-14.
     5288                            *
     5289                            *        LW,14    :SEED             SEED IN REGISTER-14.
     5290                            *        BAL,15   :RANDOMX
     5291                            *
     5292                            *        OPTION-3, USER PROVIDES M1,M2 AND X.  RESULT IN REGISTER-14.
     5293                            *
     5294                            *        LW,12    :M1               M1 = VALUE OF COUNTER 1
     5295                            *        LW,13    :M2               M2 = VALUE OF COUNTER 2
     5296                            *        LW,14    :SEED             SEED = RANDOM NUMBER SEED
     5297                            *        BAL,15   :RANDOMY

     5299   01 01802    35C0180F     :RANDOMY STW,12   :M1               OPTION-3 ENTRY
     5300   01 01803    35D01810              STW,13   :M2               SAVE PARAMETERS

     5302   01 01804    35E01811     :RANDOMX STW,14   :SEED             OPTION-2 ENTRY

     5304   01 01805    3310180F     :RANDOM  MTW,1    :M1               OPTION-1 ENTRY
     5305   01 01806    68301808              BCR,3    %+2               TEST, M1 + 1 = 0
     5306   01 01807    33F01810              MTW,-1   :M2               NO, M2 = M2 - 1
     5307   01 01808    32E01811              LW,14    :SEED
     5308   01 01809    25E0020D A            SCS,14   13                GENERATE M(SEED) BY ARITHMETIC MEANS
     5309   01 0180A    30E01812              AW,14    :K                ADD CONSTANT :K
     5310   01 0180B    48E0180F              EOR,14   :M1               M(SEED) (+) M1, WHERE (+) = EOR
     5311   01 0180C    48E01810              EOR,14   :M2               M(SEED) (+) M1 (+) M2
     5312   01 0180D    35E01811              STW,14   :SEED             SEED = M(SEED) (+) M1 (+) M2
     5313   01 0180E    E800000F A            B        *15

     5315   01 0180F    12B9B0A1 A   :M1      DATA     314159265         PI - PRE-SET M1 VALUE
     5316   01 01810    1033C4D7 A   :M2      DATA     271828183         E - PRE-SET M2 VALUE
     5317   01 01811    544B2FBA A   :SEED    DATA     1414213562        SQRT(2) - PRE-SET SEED VALUE

     5319   01 01812    22679CB1 A   :K       DATA     577215665         GAMMA - CONSTANT
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   78
A    5321                            *                *** PATTERN SPREAD ***
     5322                            *
     5323                            * SPREADS A WORD-ORIENTED PATTERN THROUGHOUT A BUFFER:
     5324                            *
     5325                            *             TYPE 0 - SPREAD WORD PATTERN
     5326                            *             TYPE 1 - SPREAD AND INCREMENT WORD PATTERN
     5327                            *             TYPE 2 - SPREAD RANDOM PATTERN
     5328                            *             TYPE 3 - SPREAD CONTENTS OF SPECIFIED ADDRESS
     5329                            *             TYPE 4 - SPREAD 3-WORD PATTERN
     5330                            *
     5331                            *       INPUT PARAMETERS:
     5332                            *
     5333                            *           :PATID  - PATTERN IDENTIFICATION (3 WORDS)
     5334                            *                     WORD 1 - TYPE (0-4)
     5335                            *                     WORD 2 - PATTERN (TYPE 0,1)
     5336                            *                              RANDOM GENERATOR SEED (TYPE 2)
     5337                            *                              WA(PATTERN) (TYPE 3,4)
     5338                            *                     WORD 3 - UNUSED (TYPE 0,2,3,4)
     5339                            *                              INCREMENT (TYPE 1)
     5340                            *
     5341                            *           :PATWCNT - PATTERN WORD COUNT
     5342                            *           :PATBFR - WA(BUFFER)

     5344   01 01813    09F00412     :PATTERN ENTER

     5346   01 01814    3270184A              LW,R7    :PATID            PATTERN ID-TYPE
     5347   01 01815    680E1816              B        %+1,R7            GO TO SPECIFIED SPREAD TYPE
     5348   01 01816    6800181B              B        :PAT0
     5349   01 01817    68001823              B        :PAT1
     5350   01 01818    6800182B              B        :PAT2
     5351   01 01819    68001836              B        :PAT3
     5352   01 0181A    6800183D              B        :PAT4

     5354                            * SPREAD FIXED PATTERN
     5355   01 0181B    3280184D     :PAT0    LW,R8    :PATWCNT          WORD COUNT
     5356   01 0181C    3080184E              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     5357   01 0181D    3A70184D              LCW,R7   :PATWCNT          -(WORD COUNT)
     5358   01 0181E    3290184B              LW,R9    :PATID+1          PATTERN
     5359   01 0181F    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     5360   01 01820    6570181F              BIR,R7   %-1               WORD COUNT NOT 0

     5362   01 01821    08F00412     :PATEXIT EXIT
            01 01822    E800000F A

     5364                            * SPREAD AND INCREMENT FIXED PATTERN
     5365   01 01823    3280184D     :PAT1    LW,R8    :PATWCNT          WORD COUNT
     5366   01 01824    3080184E              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     5367   01 01825    3A70184D              LCW,R7   :PATWCNT          -(WORD COUNT)
     5368   01 01826    3290184B              LW,R9    :PATID+1          PATTERN
     5369   01 01827    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     5370   01 01828    3090184C              AW,R9    :PATID+2          INCR PATTERN
     5371   01 01829    65701827              BIR,R7   %-2               WORD COUNT NOT 0
     5372   01 0182A    68001821              B        :PATEXIT          GO TO EXIT
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   79
A    5374                            * SPREAD RANDOM PATTERN
     5375   01 0182B    3280184D     :PAT2    LW,R8    :PATWCNT          WORD COUNT
     5376   01 0182C    3080184E              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     5377   01 0182D    3A70184D              LCW,R7   :PATWCNT          -(WORD COUNT)
     5378   01 0182E    32E01811              LW,R14   :SEED             RANDOM NUM GEN SEED
     5379   01 0182F    B5EE0008 A            STW,R14  *R8,R7            SEED TO PATTERN FIRST WORD
     5380   01 01830    65701832              BIR,R7   %+2               WORD COUNT NOT 0
     5381   01 01831    68001821              B        :PATEXIT

     5383   01 01832    6AF01805              BAL,R15  :RANDOM           GENERATE A RANDOM
     5384   01 01833    B5EE0008 A            STW,R14  *R8,R7             NUMBER, STORE AND UPDATE
     5385   01 01834    65701832              BIR,R7   %-2

     5387   01 01835    68001821              B        :PATEXIT          GO TO EXIT

     5389                            * SPREAD ADDRESS-SPECIFIED PATTERN
     5390   01 01836    3280184D     :PAT3    LW,R8    :PATWCNT          WORD COUNT
     5391   01 01837    3080184E              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     5392   01 01838    3A70184D              LCW,R7   :PATWCNT          -(WORD COUNT)
     5393   01 01839    B290184B              LW,R9    *:PATID+1         PATTERN
     5394   01 0183A    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     5395   01 0183B    6570183A              BIR,R7   %-1               WRD CNT NOT 0
     5396   01 0183C    68001821              B        :PATEXIT          GO TO EXIT

     5398                            * SPREAD 3-WORD, ADDR-SPECIFIED PATTERN
     5399   01 0183D    3280184D     :PAT4    LW,R8    :PATWCNT          WORD COUNT
     5400   01 0183E    3080184E              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     5401   01 0183F    3A70184D              LCW,R7   :PATWCNT          -(WORD COUNT)
     5402   01 01840    32A0184B              LW,R10   :PATID+1          PATTERN ADDR
     5403   01 01841    20A00003 A            AI,R10   3                 PATTERN ADDRESS +3
     5404   01 01842    226FFFFD A            LI,R6    -3
     5405   01 01843    B29C000A A            LW,R9    *R10,R6           PATTERN
     5406   01 01844    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     5407   01 01845    33100007 A            MTW,1    R7                -(WORD COUNT) +1
     5408   01 01846    68101821              BCR,1    :PATEXIT          WORD COUNT = 0, EXIT
     5409   01 01847    65601843              BIR,R6   %-4               3 WORDS NOT ENTERED
     5410   01 01848    68001842              B        %-6

     5412                                     BOUND    8
     5413   01 0184A    00000000 A   :PATID   DATA     0,0,0             PATTERN IDENTIFICATION
            01 0184B    00000000 A
            01 0184C    00000000 A
     5414   01 0184D    00000000 A   :PATWCNT DATA     0                 WORD COUNT
     5415   01 0184E    00000000 A   :PATBFR  DATA     0                 BUFFER ADDRESS
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   80
A    5417                            *                   *** C O M P A R E ***
     5418                            *
     5419                            * THE COMPARE SUBROUTINE COMPARES TWO BUFFER AREAS A WORD AT A
     5420                            *  TIME. AN ERROR COUNT IS GENERATED WHEN UNEQUAL COMPARES ARE
     5421                            *   SENSED. UNEQUAL WORDS ARE PRINTED. ERROR EXIT IF ONE OR MORE
     5422                            *    UNEQUAL COMPARES SENSED.
     5423                            *
     5424                            *       INPUT PARAMETERS:
     5425                            *
     5426                            *           REG 15  -RETURN ADDRESS
     5427                            *           :COMWCNT-NUMBER OF WORDS TO BE COMPARED
     5428                            *           :COMBFRA-EXPECTED BUFFER ADDRESS
     5429                            *           :COMBFRB-OBSERVED BUFFER ADDRESS
     5430                            *           :COMFLAG-ERROR PRINTOUT INHIBIT FLAG (INHIBIT IF <>0)
     5431                            *                    (REGISTERS 8 THRU 11 CAN BE USED AS BUFFERS)
     5432                            *
     5433                            *       OUTPUT PARAMETERS:
     5434                            *
     5435                            *           NORMAL EXIT-RETURN ADDRESS
     5436                            *           ERROR EXIT -RETURN ADDRESS +1
     5437                            *           :COMERRT   -COUNT OF COMPARE ERRORS

     5439         01 0184F           :COMPXRE EQU      %                 DISPLAY ERROR BLOCK NUMBER
     5440   01 0184F    331018B9              MTW,1    :COMBLK

     5442         01 01850           :COMPARE EQU      %                 SUPPRESS ERROR BLOCK NUMBER
     5443   01 01850    09F00412              ENTER

     5445   01 01851    22500000 A            LI,R5    0
     5446   01 01852    155018B2              STD,R5   :COMERRT          CLEAR ERROR TOTAL, HDR FLAG
     5447   01 01853    324018B5              LW,R4    :COMBFRA          EXPECTED BUFFER ADDRESS A
     5448   01 01854    325018B6              LW,R5    :COMBFRB          OBSERVED BUFFER ADDRESS B
     5449   01 01855    304018B4              AW,R4    :COMWCNT          BUFFER A + WORD COUNT
     5450   01 01856    305018B4              AW,R5    :COMWCNT          BUFFER B + WORD COUNT
     5451   01 01857    154018B0              STD,R4   :COMTEM2          SAVE FINAL BFR ADDRESSES
     5452   01 01858    3A4018B4              LCW,R4   :COMWCNT          -(WORD COUNT)

     5454   01 01859    B25818B0     :COM1    LW,R5    *:COMTEM2,R4      BUFFER A WORD
     5455   01 0185A    B15818B1              CW,R5    *:COMTEM2+1,R4    BUFFER A WORD:BUFFER B WORD
     5456   01 0185B    69301864              BCS,3    :COM2             UNEQUAL COMPARISON
     5457   01 0185C    65401859              BIR,R4   :COM1             WORD COUNT NOT 0

     5459   01 0185D    324018B2              LW,R4    :COMERRT          ERROR TOTAL
     5460   01 0185E    68301860              BEZ      %+2                SKIP IF NO ERROR

     5462   01 0185F    B3100412              MTW,1    *DPM:STK          TAKE ERROR EXIT

     5464   01 01860    22000000 A            LI,R0    0                 RESET DISPLAY BLOCK FLAG
     5465   01 01861    350018B9              STW,R0   :COMBLK

     5467   01 01862    08F00412              EXIT
            01 01863    E800000F A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   81
A    5469   01 01864    331018B2     :COM2    MTW,1    :COMERRT          ERROR TOTAL +1
     5470   01 01865    326018B7              LW,R6    :COMFLAG          PRINT INHIBIT FLAG
     5471   01 01866    6930185C              BCS,3    :COM1+3           PRINT INHIBIT <>0 -RETURN TO COMPARE
     5472   01 01867    326018B2              LW,6     :COMERRT          FETCH ERROR COUNT
     5473   01 01868    316018B8              CW,6     :COMPLIN          TEST LIMIT
     5474   01 01869    6920185F              BG       :COM1+6           EXIT
     5475   01 0186A    326018B3              LW,R6    :COMTEM3          HEADER FLAG
     5476   01 0186B    69301886              BCS,3    :COM3             FLAG NOT 0 -NO ERR MSG HDR REQ'D

     5478                            * PRINT ERROR MSG HEADER
     5479   01 0186C    331018B3              MTW,1    :COMTEM3          SET HDR FLAG
     5480   01 0186D    EAF0021C              BAL,R15  *:PRINT
     5481   01 0186E    0000040E              DATA     SPACE
     5482   01 0186F    330018B9              MTW,0    :COMBLK
     5483   01 01870    69301874              BNEZ     :COM6             SKIP IF NUMBER NEEDED
     5484   01 01871    EAF0021C              BAL,R15  *:PRINT
     5485   01 01872    000018BA              DATA     :COMERM1
     5486   01 01873    68001879              B        :COM5

     5488         01 01874           :COM6    EQU      %
     5489   01 01874    32C018A0              LW,R12   :COMTEM1+0        FETCH BLOCK NUMBER
     5490   01 01875    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEX
     5491   01 01876    35F018C6              STW,R15  :COMERMX+7        STORE IN MESSAGE
     5492   01 01877    EAF0021C              BAL,R15  *:PRINT
     5493   01 01878    000018BF              DATA     :COMERMX

     5495         01 01879           :COM5    EQU      %
     5496   01 01879    32C018B5              LW,R12   :COMBFRA          EXPECTED BUFFER ADDRESS
     5497   01 0187A    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     5498   01 0187B    22600001 A            LI,R6    1                 INDEX=1
     5499   01 0187C    55F018CD              STH,R15  :COMERM2+4        BFR ADDR TO MSG
     5500   01 0187D    52F0000F A            LH,R15   R15
     5501   01 0187E    55FC18CC              STH,R15  :COMERM2+3,R6
     5502   01 0187F    32C018B6              LW,R12   :COMBFRB          OBSERVED BUFFER ADDRESS
     5503   01 01880    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     5504   01 01881    35F018D1              STW,R15  :COMERM2+8        BFR ADDR TO MSG
     5505   01 01882    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     5506   01 01883    000018C9              DATA     :COMERM2
     5507   01 01884    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     5508   01 01885    000018D2              DATA     :COMERM3
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   82
A    5510                            * PRINT EXPECTED, OBSERVED WORDS
     5511   01 01886    32C018B4     :COM3    LW,R12   :COMWCNT          NUMBER OF WORDS
     5512   01 01887    30C00004 A            AW,R12   R4                WRD CNT=NUM WORDS + WRD CNT INDEX
     5513   01 01888    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     5514   01 01889    35F018EF              STW,R15  :COMERM4+13       WRD CNT TO MSG
     5515   01 0188A    B2C818B0              LW,R12   *:COMTEM2,R4      EXPECTED WORD
     5516   01 0188B    22D018E2              LI,R13   :COMERM4          ERROR MSG ADDR
     5517   01 0188C    6AE01895              BAL,R14  :COM4             ENTER EXP WRD INTO MSG
     5518   01 0188D    EAF0021C              BAL,R15  *:PRINT           PRINT EXPECTED WORD MSG
     5519   01 0188E    000018E2              DATA     :COMERM4
     5520   01 0188F    B2C818B1              LW,R12   *:COMTEM2+1,R4    OBSERVED WORD
     5521   01 01890    22D018F0              LI,R13   :COMERM5          ERROR MSG ADDR
     5522   01 01891    6AE01895              BAL,R14  :COM4             ENTER OBS WRD INTO MSG
     5523   01 01892    EAF0021C              BAL,R15  *:PRINT           PRINT OBSERVED WORD MSG
     5524   01 01893    000018F0              DATA     :COMERM5
     5525   01 01894    6800185C              B        :COM1+3           RETURN TO COMPARISON

     5527                            * ENTER STATUS BITS INTO MESSAGE
     5528   01 01895    22600030 A   :COM4    LI,R6    48                BYTE INDEX=48
     5529   01 01896    22700004 A            LI,R7    4                 MINOR INDEX=4
     5530   01 01897    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     5531   01 01898    F5FC000D A            STB,R15  *R13,R6           BIT TO MSG
     5532   01 01899    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     5533   01 0189A    25F00078 A            SLS,R15  -8                ADJUST EBCDIC BITS
     5534   01 0189B    64701898              BDR,R7   %-3               MINOR LOOP INDEX NOT 0
     5535   01 0189C    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     5536   01 0189D    21600009 A            CI,R6    9                 BYTE INDEX:9
     5537   01 0189E    69201896              BCS,2    :COM4+1           BYTE INDEX NOT MINIMUM
     5538   01 0189F    E800000E A            B        *R14              ENTER COMPLETE-EXIT
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   83
A    5540   01 018A0                 :COMTEM1 RES      16                REGISTERS 0-15

     5542                                     BOUND    8
     5543   01 018B0    00000000 A   :COMTEM2 DATA     0,0               BUFFER A ADDR, BUFFER B ADDR
            01 018B1    00000000 A
     5544   01 018B2    00000000 A   :COMERRT DATA     0                 COMPARE ERROR TOTAL
     5545   01 018B3    00000000 A   :COMTEM3 DATA     0                 MESSAGE HEADER FLAG
     5546   01 018B4    00000000 A   :COMWCNT DATA     0                 BUFFER WORD COUNT
     5547   01 018B5    00000000 A   :COMBFRA DATA     0                 EXPECTED BUFFER A
     5548   01 018B6    00000000 A   :COMBFRB DATA     0                 OBSERVED BUFFER B
     5549   01 018B7    00000000 A   :COMFLAG DATA     0                 PRINT INHIBIT FLAG
     5550   01 018B8    00000001 A   :COMPLIN DATA     1                 COMPARE LIMIT COUNT
     5551   01 018B9    00000000 A   :COMBLK  DATA     0

     5553   01 018BA    12D9C5C1 A   :COMERM1 TEXTC    'READ COMPARE ERROR'
            01 018BB    C440C3D6 A
            01 018BC    D4D7C1D9 A
            01 018BD    C540C5D9 A
            01 018BE    D9D6D940 A
     5554   01 018BF    25D9C5C1 A   :COMERMX TEXTC    'READ COMPARE ERROR: RECORD XXXX (HEX)'
            01 018C0    C440C3D6 A
            01 018C1    D4D7C1D9 A
            01 018C2    C540C5D9 A
            01 018C3    D9D6D97A A
            01 018C4    40D9C5C3 A
            01 018C5    D6D9C440 A
            01 018C6    E7E7E7E7 A
            01 018C7    404DC8C5 A
            01 018C8    E75D4040 A
     5555   01 018C9    23C5E7D7 A   :COMERM2 TEXTC    'EXP BFR ADDR XXXX OBS BFR ADDR XXXX'
            01 018CA    40C2C6D9 A
            01 018CB    40C1C4C4 A
            01 018CC    D940E7E7 A
            01 018CD    E7E740D6 A
            01 018CE    C2E240C2 A
            01 018CF    C6D940C1 A
            01 018D0    C4C4D940 A
            01 018D1    E7E7E7E7 A
     5556                            :COMERM3 TEXTC    ;
     5557   01 018D2    3D404040 A    '         0123 4567 0123 4567 0123 4567 0123 4567   WORD (HEX)'
            01 018D3    40404040 A
            01 018D4    4040F0F1 A
            01 018D5    F2F340F4 A
            01 018D6    F5F6F740 A
            01 018D7    F0F1F2F3 A
            01 018D8    40F4F5F6 A
            01 018D9    F740F0F1 A
            01 018DA    F2F340F4 A
            01 018DB    F5F6F740 A
            01 018DC    F0F1F2F3 A
            01 018DD    40F4F5F6 A
            01 018DE    F7404040 A
            01 018DF    E6D6D9C4 A
            01 018E0    404DC8C5 A
            01 018E1    E75D4040 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   84
A    5559   01 018E2    37C5E7D7 A   :COMERM4 TEXT     ' EXPECTED   '
            01 018E3    C5C3E3C5 A
            01 018E4    C4404040 A
     5560         0000000B                    DO       11
     5561   01 018E5    40404040 A            DATA     X'40404040'       SPACES
     5562                                     FIN
            01 018E6    40404040 A
            01 018E7    40404040 A
            01 018E8    40404040 A
            01 018E9    40404040 A
            01 018EA    40404040 A
            01 018EB    40404040 A
            01 018EC    40404040 A
            01 018ED    40404040 A
            01 018EE    40404040 A
            01 018EF    40404040 A
     5563   01 018F0    34D6C2E2 A   :COMERM5 TEXT     ' OBSERVED   '
            01 018F1    C5D9E5C5 A
            01 018F2    C4404040 A
     5564         0000000B                    DO       11
     5565   01 018F3    40404040 A            DATA     X'40404040'       SPACES
     5566                                     FIN
            01 018F4    40404040 A
            01 018F5    40404040 A
            01 018F6    40404040 A
            01 018F7    40404040 A
            01 018F8    40404040 A
            01 018F9    40404040 A
            01 018FA    40404040 A
            01 018FB    40404040 A
            01 018FC    40404040 A
            01 018FD    40404040 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   85
A    5568                            *                *** DELAY FOR I/O INTERRUPT ***
     5569                            *
     5570                            * THE DELAY SUBROUTINE DELAYS TO AWAIT THE I/O INTERRUPT. TIMEOUT OCCURS
     5571                            *  WHEN SPECIFIED MAXIMUM DELAY TIME IS REACHED.
     5572                            *
     5573                            *       INPUT PARAMETERS:
     5574                            *
     5575                            *         REG 14- MAX DELAY TIME (DELAY =  (R14) MILLISECONDS)
     5576                            *         REG 15- RETURN ADDRESS
     5577                            *
     5578                            *         INTERRUPT REC'D EXIT-RETURN ADDRESS
     5579                            *         DELAY TIMEOUT EXIT  -RETURN ADDRESS +1

     5581   01 018FE    09F00412     :DELAY   ENTER                      GENERAL TIME DELAY

     5583   01 018FF    25E0007F A            SLS,R14  -1                COMPUTE DELAY TIME IN

     5585   01 01900    3300000E A            MTW,0    R14               ENFORCE REASONABLE LIMITS
     5586   01 01901    69301903              BNEZ     %+2
     5587   01 01902    22E00001 A            LI,R14   1

     5589   01 01903    35E0193E              STW,R14  :DELTIME          SAVE TMS IN CLOCK

     5591   01 01904    6AF01938              BAL,R15  :DELAYAE          START CLOCK 4

     5593   01 01905    68001905              B        %                 AND HANG UP HERE

     5595                            * ROUTINE TO WAIT FOR CE OR UE INTERRUPT ON SPECIFIC DEVICE

     5597   01 01906    09F00412     :DELAYCE ENTER

     5599   01 01907    25E0007F A            SLS,R14  -1                DELAY TIME /2
     5600   01 01908    3300000E A            MTW,0    R14                ENFORCE REASONABLE LOWER LIMIT
     5601   01 01909    6930190B              BNEZ     %+2                 TO AVOID PROBLEMS
     5602   01 0190A    22E00001 A            LI,R14   1

     5604   01 0190B    35E0193E              STW,R14  :DELTIME          TIME TO CTR 4 DECR POSITION
     5605   01 0190C    35E0193F              STW,R14  :DELORIG          (SAVE ORIGINAL VALUE IN TMS)

     5607   01 0190D    6AF01938              BAL,R15  :DELAYAE          START CLOCK 4

     5609   01 0190E    22400000 A            LI,R4    0                 SCAN SYST FOR DEVICE
     5610   01 0190F    32000459              LW,R0    :DEVADDR

     5612   01 01910    31080331              CW,R0    :CDB+2,R4         ASSUME MATCH MUST BE
     5613   01 01911    68301914              BE       %+3                PRESENT IN SYST

     5615   01 01912    20400001 A            AI,R4    1
     5616   01 01913    68001910              B        %-3

     5618   01 01914    3308197E              MTW,0    INTFLAG,R4        WAIT FOR INTERRUPT
     5619   01 01915    68301914              BEZ      %-1                EVENT TO OCCUR

     5621   01 01916    22000000 A            LI,R0    0                 RESET EVENT
     5622   01 01917    32D81976              LW,R13   INTSTAT,R4         AND GATHER STATUS
     5623   01 01918    3508197E              STW,R0   INTFLAG,R4

     5625   01 01919    6AF0193B     :DELOK   BAL,R15  :DELAYD           STOP CLOCK 4

     5627   01 0191A    6AF01B6E              BAL,R15  :SAVEAIO          SET STATUS IN TABLE

     5629   01 0191B    32E0193F              LW,R14   :DELORIG          FETCH ORIGINAL TIMEOUT VALUE
     5630   01 0191C    38E0193E              SW,R14   :DELTIME            AND COMPUTE TIME USED IN MS
     5631   01 0191D    25E00001 A            SLS,R14  1

     5633   01 0191E    08F00412              EXIT
            01 0191F    E800000F A

     5635                            * ROUTINE TO WAIT FOR ATTENTION INTERRUPT ON SPECIFIC DEVICE

     5637   01 01920    09F00412     :DELAYAT ENTER

     5639   01 01921    25E0007F A            SLS,R14  -1                DELAY TIME /2
     5640   01 01922    3300000E A            MTW,0    R14                ENFORCE REASONABLE LOWER LIMIT
     5641   01 01923    69301925              BNEZ     %+2                 TO AVOID PROBLEMS
     5642   01 01924    22E00001 A            LI,R14   1

     5644   01 01925    35E0193E              STW,R14  :DELTIME          TIME TO CTR 4 DECR POSITION
     5645   01 01926    35E0193F              STW,R14  :DELORIG          (SAVE ORIGINAL VALUE IN TMS)

     5647   01 01927    6AF01938              BAL,R15  :DELAYAE          START CLOCK 4

     5649   01 01928    22400000 A            LI,R4    0                 SCAN SYST FOR DEVICE
     5650   01 01929    32000459              LW,R0    :DEVADDR

     5652   01 0192A    31080331              CW,R0    :CDB+2,R4         ASSUME MATCH MUST BE
     5653   01 0192B    6830192E              BE       %+3                PRESENT IN SYST

     5655   01 0192C    20400001 A            AI,R4    1
     5656   01 0192D    6800192A              B        %-3

     5658   01 0192E    3308198E              MTW,0    ATTFLAG,R4        WAIT FOR ATTENTION
     5659   01 0192F    6830192E              BEZ      %-1                EVENT TO OCCUR

     5661   01 01930    22000000 A            LI,R0    0                 RESET EVENT
     5662   01 01931    32D81986              LW,R13   ATTSTAT,R4         AND GATHER STATUS
     5663   01 01932    3508198E              STW,R0   ATTFLAG,R4

     5665   01 01933    68001919              B        :DELOK

     5667                            * DELAY TIMEOUT
     5668   01 01934    6AF0193B     :DELTO   BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     5669   01 01935    B3100412              MTW,1    *DPM:STK           SET ERROR EXIT
     5670   01 01936    08F00412              EXIT
            01 01937    E800000F A

     5672                            * ARM/ENABLE COUNTER 4 INTERRUPTS
     5673   01 01938    22E01040 A   :DELAYAE LI,R14   X'1040'           BITS 19,25
     5674   01 01939    6DE01200 A            WD,R14   X'1200'           ARM AND ENABLE CTR 4 INTERRUPTS
     5675   01 0193A    E800000F A            B        *R15
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   86
A    5677                            * DISARM COUNTER 4 INTERRUPTS
     5678   01 0193B    22E01040 A   :DELAYD  LI,R14   X'1040'           BITS 19,25
     5679   01 0193C    6DE01100 A            WD,R14   X'1100'           DISARM COUNTER 4 INTERRUPTS
     5680   01 0193D    E800000F A            B        *R15

     5682   01 0193E    00000000 A   :DELTIME DATA     0                 DELAY COUNTER (TMS)
     5683   01 0193F    00000000 A   :DELORIG DATA     0                 DELAY COUNTER ORIGINAL VALUE

     5685                                     BOUND    8
     5686   01 01940    00000000 A   :DELAYTO DATA     0,0
            01 01941    00000000 A
     5687   01 01942    00001934              DATA     :DELTO,0
            01 01943    00000000 A
     5688   01 01944    0F001940     :DELXPSD XPSD,0   :DELAYTO
     5689   01 01945    33F0193E     :DELMTW  MTW,-1   :DELTIME
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   87
A    5691                            *                 *** I/O INTERRUPT - SERVICE ***
     5692                            *
     5693   01 01946    0B000412     :INTSV   PSM,R0   DPM:STK           SAVE ENVIRONMENT

     5695   01 01947    6ED00000 A            AIO,R13  0                 GRAB STATUS
     5696   01 01948    6880194E              BCR,8    :INTSV1

     5698   01 01949    EAF0021C              BAL,R15  *:PRINT
     5699   01 0194A    000019A6              DATA     :INTSVE

     5701   01 0194B    02200000 A   :INTSV0  LCI      0
     5702   01 0194C    0A000412              PLM,R0   DPM:STK

     5704   01 0194D    0E300454              LPSD,3   IOVECT

     5706   01 0194E    74001996     :INTSV1  STCF     :INTCC
     5707   01 0194F    35D01997              STW,R13  :INTSTAT

     5709   01 01950    52C2000D A            LH,R12   R13,R1

     5711   01 01951    22400002 A            LI,R4    2                 SCAN SYST FOR DEVICE

     5713   01 01952    31C8032F     :INTSV2  CW,R12   :CDB,R4
     5714   01 01953    6830195F              BE       :INTSV3

     5716   01 01954    20400001 A            AI,R4    1
     5717   01 01955    5140032F              CH,R4    :CDB
     5718   01 01956    69101952              BL       :INTSV2

     5720   01 01957    32C0000D A   :INTSV2A LW,R12   R13               DISPLAY STATUS
     5721   01 01958    EAF00218              BAL,R15  *:HEXC             AND SPURIOUS ERROR
     5722   01 01959    35F0199E              STW,R15  :INTSVM+6
     5723   01 0195A    EAF00218              BAL,R15  *:HEXC
     5724   01 0195B    35F0199D              STW,R15  :INTSVM+5

     5726   01 0195C    EAF0021C              BAL,R15  *:PRINT
     5727   01 0195D    00001998              DATA     :INTSVM

     5729   01 0195E    6800194B              B        :INTSV0

     5731   01 0195F    52C0000D A   :INTSV3  LH,R12   R13               LOOK AT INTERRUPT STATUS
     5732   01 01960    21C00018 A            CI,R12   X'0018'            SKIP IF CE OR UE
     5733   01 01961    69401971              BANZ     :INTSV4

     5735   01 01962    21C00100 A            CI,R12   X'0100'           LOOK AT INTERRUPT STATUS
     5736   01 01963    68401957              BAZ      :INTSV2A           SKIP IF NOT ATTENTION

     5738   01 01964    3308198C              MTW,0    ATTFLAG-2,R4      CHECK CURRENT STATE OF FLAG
     5739   01 01965    6830196E              BEZ      :INTSV3B           SKIP IF NOT STACKED

     5741   01 01966    32C0000D A   :INTSV3A LW,R12   R13               DISPLAY STATUS
     5742   01 01967    EAF00218              BAL,R15  *:HEXC             AND GIVE STACKED ERROR
     5743   01 01968    35F019A5              STW,R15  :INTSVS+6
     5744   01 01969    EAF00218              BAL,R15  *:HEXC
     5745   01 0196A    35F019A4              STW,R15  :INTSVS+5

     5747   01 0196B    EAF0021C              BAL,R15  *:PRINT
     5748   01 0196C    0000199F              DATA     :INTSVS

     5750   01 0196D    6800194B              B        :INTSV0

     5752   01 0196E    3318198C     :INTSV3B MTW,1    ATTFLAG-2,R4      SET PRESENCE INDICATOR

     5754   01 0196F    35D81984              STW,R13  ATTSTAT-2,R4      SAVE INTERRUPT STATUS

     5756   01 01970    6800194B              B        :INTSV0

     5758   01 01971    3308197C     :INTSV4  MTW,0    INTFLAG-2,R4      CHECK CURRENT STATE OF FLAG
     5759   01 01972    69301966              BNEZ     :INTSV3A           SKIP IF STACKED

     5761   01 01973    3318197C              MTW,1    INTFLAG-2,R4      SET PRESENCE INDICATOR

     5763   01 01974    35D81974              STW,R13  INTSTAT-2,R4      SAVE INTERRUPT STATUS

     5765   01 01975    6800194B              B        :INTSV0

     5767   01 01976                 INTSTAT  RES      8                 STATUS AND FLAGS
     5768   01 0197E                 INTFLAG  RES      8                  UE OR CE INTERRUPTS
     5769   01 01986                 ATTSTAT  RES      8                 STATUS AND FLAGS
     5770   01 0198E                 ATTFLAG  RES      8                  ATTENTION INTTERUPTS

     5772   01 01996                 :INTCC   RES      1
     5773   01 01997                 :INTSTAT RES      1

     5775   01 01998    1BE2D7E4 A   :INTSVM  TEXTC    'SPURIOUS INTERRUPT:XXXXXXXX'
            01 01999    D9C9D6E4 A
            01 0199A    E240C9D5 A
            01 0199B    E3C5D9D9 A
            01 0199C    E4D7E37A A
            01 0199D    E7E7E7E7 A
            01 0199E    E7E7E7E7 A
     5776   01 0199F    1BE2E3C1 A   :INTSVS  TEXTC    'STACKED INTERRUPTS:XXXXXXXX'
            01 019A0    C3D2C5C4 A
            01 019A1    40C9D5E3 A
            01 019A2    C5D9D9E4 A
            01 019A3    D7E3E27A A
            01 019A4    E7E7E7E7 A
            01 019A5    E7E7E7E7 A
     5777   01 019A6    18D5D640 A   :INTSVE  TEXTC    'NO INTERRUPT RECOGNITION'
            01 019A7    C9D5E3C5 A
            01 019A8    D9D9E4D7 A
            01 019A9    E340D9C5 A
            01 019AA    C3D6C7D5 A
            01 019AB    C9E3C9D6 A
            01 019AC    D5404040 A

     5779   01 019AD    09F00412     :INTCLR  ENTER

     5781   01 019AE    22000000 A            LI,R0    0
     5782   01 019AF    224FFFF8 A            LI,R4    -8

     5784   01 019B0    35081986     :INTCLX  STW,R0   INTFLAG+8,R4
     5785   01 019B1    3508197E              STW,R0   INTSTAT+8,R4
     5786   01 019B2    35081996              STW,R0   ATTFLAG+8,R4
     5787   01 019B3    3508198E              STW,R0   ATTSTAT+8,R4
     5788   01 019B4    654019B0              BIR,R4   :INTCLX

     5790   01 019B5    08F00412              EXIT
            01 019B6    E800000F A

     5792   01 019B7    09F00412     :INTCLRD ENTER                      CLEAR EVENT ON SINGLE DEVICE

     5794   01 019B8    22400000 A            LI,R4    0                 SCAN SYST
     5795   01 019B9    32F00459              LW,R15   :DEVADDR           ASSUME DEVICE PRESENCE

     5797   01 019BA    31F80331              CW,R15   :CDB+2,R4
     5798   01 019BB    683019BE              BE       %+3

     5800   01 019BC    20400001 A            AI,R4    1
     5801   01 019BD    680019BA              B        %-3

     5803   01 019BE    22F00000 A            LI,R15   0                 CLEAR EVENT FLAGS
     5804   01 019BF    35F8197E              STW,R15  INTFLAG,R4         ON THIS DEVICE ONLY
     5805   01 019C0    35F8198E              STW,R15  ATTFLAG,R4

     5807   01 019C1    08F00412              EXIT
            01 019C2    E800000F A

     5809   01 019C3    09F00412     :INTCLRC ENTER                      CLEAR CE ON SINGLE DEVICE

     5811   01 019C4    22400000 A            LI,R4    0                 SCAN SYST
     5812   01 019C5    32F00459              LW,R15   :DEVADDR           ASSUME DEVICE PRESENCE

     5814   01 019C6    31F80331              CW,R15   :CDB+2,R4
     5815   01 019C7    683019CA              BE       %+3

     5817   01 019C8    20400001 A            AI,R4    1
     5818   01 019C9    680019C6              B        %-3

     5820   01 019CA    22F00000 A            LI,R15   0                 CLEAR CE FLAG
     5821   01 019CB    35F8197E              STW,R15  INTFLAG,R4         ON THIS DEVICE ONLY

     5823   01 019CC    08F00412              EXIT
            01 019CD    E800000F A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   88
A    5825                            * THIS SUBROUTINE ACCEPTS A STRING OF BYTES, EACH OF WHICH IDENTIFIES
     5826                            * THE STATUS TYPE (BITS 0 - 3), THE BIT TEST (BIT 4) AND THE STATUS
     5827                            * MASK (BITS 5 - 7). THE TESTS WILL BE PERFORMED IN THE SEQUENCE OF THE
     5828                            * BYTE STRING, WITH EACH TEST CHECKING A SPECIFIC STATUS BIT FOR THE
     5829                            * TRUE, FALSE, OR DON'T CARE CONDITION.  A ZERO WILL SIGNAL THE END OF
     5830                            * THE BYTE STRING.
     5831                            *
     5832                            * THE BYTE HAS THE FOLLOWING FORMAT:
     5833                            *
     5834                            * BITS 0 - 3                 BIT 4    BITS 5 - 7
     5835                            * ----------                 -----    ----------
     5836                            * 0 (TERMINATOR)             0 FALSE  0 MASK X'80', BYTE<0, COM2<COM1
     5837                            * 1 TIO STATUS               1 TRUE   1 MASK X'40', BYTE=0, COM2=COM1
     5838                            * 2 OPERATIONAL STATUS (TIO/OSB)      2 MASK X'20', BYTE=1, COM2=COM1+1
     5839                            * 3 HIO STATUS                        3 MASK X'10', BYTE=2, COM2=COM1+2
     5840                            * 4 TDV STATUS                        4 MASK X'08', BYTE=3, COM2=COM1+3
     5841                            * 5 SIO STATUS                        5 MASK X'04', BYTE=4, COM2=COM1+4
     5842                            * 6 AIO STATUS                        6 MASK X'02', BYTE=5, COM2=COM1+5
     5843                            * 7 INTERRUPT STATUS (AIO/ISB)        7 MASK X'01', BYTE=6, COM2=COM1+6
     5844                            * 8 TIO (DON'T CARE)
     5845                            * 9 OSB (DON'T CARE)
     5846                            * A HIO (DON'T CARE)
     5847                            * B TDV (DON'T CARE)
     5848                            * C SIO (DON'T CARE)
     5849                            * D AIO (DON'T CARE)
     5850                            * E ISB (DON'T CARE)
     5851                            * F TIO BYTE COUNT (FALSE) TIO COMMAND ADDRESS (TRUE)
     5852                            *
     5853                            * SUBROUTINES ARE PROVIDED TO STORE STATUS INFORMATION INTO A TABLE.
     5854                            * IF THE TIO, HIO, TDV, OSB, BYTE CNT, OR COMMAND ADR HAS NOT BEEN
     5855                            * STORED IN THE TABLE, THE ERROR ROUTINE WILL ISSUE THE APPROPRIATE
     5856                            * I/O INSTRUCTION AND STORE THE STATUS BEFORE TESTING COMMENCES.
     5857                            *
     5858                            * CALLING SEQUENCE: BAL,15 :ERRORT
     5859                            *                   DATA   BA(TSEQNNN)
     5860                            * NORMAL EXIT:      B      (CONTINUE TEST)
     5861                            * ERROR  EXIT:      ***    (IDENTIFY SUBTEST)
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   89
A    5863                            TIOF0,TIOF1,TIOF2,TIOF3,TIOF4,TIOF5,TIOF6,TIOF7 :TSEQEQU X'10'
     5864                            TIOT0,TIOT1,TIOT2,TIOT3,TIOT4,TIOT5,TIOT6,TIOT7 :TSEQEQU X'18'
     5865                            OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7 :TSEQEQU X'20'
     5866                            OSBT0,OSBT1,OSBT2,OSBT3,OSBT4,OSBT5,OSBT6,OSBT7 :TSEQEQU X'28'
     5867                            HIOF0,HIOF1,HIOF2,HIOF3,HIOF4,HIOF5,HIOF6,HIOF7 :TSEQEQU X'30'
     5868                            HIOT0,HIOT1,HIOT2,HIOT3,HIOT4,HIOT5,HIOT6,HIOT7 :TSEQEQU X'38'
     5869                            TDVF0,TDVF1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7 :TSEQEQU X'40'
     5870                            TDVT0,TDVT1,TDVT2,TDVT3,TDVT4,TDVT5,TDVT6,TDVT7 :TSEQEQU X'48'
     5871                            SIOF0,SIOF1,SIOF2,SIOF3,SIOF4,SIOF5,SIOF6,SIOF7 :TSEQEQU X'50'
     5872                            SIOT0,SIOT1,SIOT2,SIOT3,SIOT4,SIOT5,SIOT6,SIOT7 :TSEQEQU X'58'
     5873                            AIOF0,AIOF1,AIOF2,AIOF3,AIOF4,AIOF5,AIOF6,AIOF7 :TSEQEQU X'60'
     5874                            AIOT0,AIOT1,AIOT2,AIOT3,AIOT4,AIOT5,AIOT6,AIOT7 :TSEQEQU X'68'
     5875                            ISBF0,ISBF1,ISBF2,ISBF3,ISBF4,ISBF5,ISBF6,ISBF7 :TSEQEQU X'70'
     5876                            ISBT0,ISBT1,ISBT2,ISBT3,ISBT4,ISBT5,ISBT6,ISBT7 :TSEQEQU X'78'

     5878                            TIOX0,TIOX1,TIOX2,TIOX3,TIOX4,TIOX5,TIOX6,TIOX7 :TSEQEQU X'80'
     5879                            OSBX0,OSBX1,OSBX2,OSBX3,OSBX4,OSBX5,OSBX6,OSBX7 :TSEQEQU X'90'
     5880                            HIOX0,HIOX1,HIOX2,HIOX3,HIOX4,HIOX5,HIOX6,HIOX7 :TSEQEQU X'A0'
     5881                            TDVX0,TDVX1,TDVX2,TDVX3,TDVX4,TDVX5,TDVX6,TDVX7 :TSEQEQU X'B0'
     5882                            SIOX0,SIOX1,SIOX2,SIOX3,SIOX4,SIOX5,SIOX6,SIOX7 :TSEQEQU X'C0'
     5883                            AIOX0,AIOX1,AIOX2,AIOX3,AIOX4,AIOX5,AIOX6,AIOX7 :TSEQEQU X'D0'
     5884                            ISBX0,ISBX1,ISBX2,ISBX3,ISBX4,ISBX5,ISBX6,ISBX7 :TSEQEQU X'E0'

     5886                            BYTNG,BYT00,BYT01,BYT02,BYT03,BYT04,BYT05,BYT06 :TSEQEQU X'F0'
     5887                            COMNG,COM00,COM01,COM02,COM03,COM04,COM05,COM06 :TSEQEQU X'F8'
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   90
A    5889         01 019CE           :ERRORS  EQU      %
     5890   01 019CE    33101ABA              MTW,1    :ERRFRCE

     5892   01 019CF    09F00412     :ERRORT  ENTER

     5894   01 019D0    B250000F A            LW,5     *15               FETCH BYTE ADDR
     5895   01 019D1    32001ABA              LW,R0    :ERRFRCE          FETCH FORCE-DISPLAY FLAG
     5896   01 019D2    35001AB9              STW,0    :ERRTFLG          RESET ERROR FLAG

     5898                            * PULL BYTE FROM STATUS-IDENTIFYING STRING.  DISTINGUISH
     5899                            * BETWEEN NORMAL STATUS BYTE, BYTE COUNT, AND COMMAND ADDRESS.

     5901   01 019D3    726A0000 A   :ERRT0   LB,6     0,5               FETCH BYTE
     5902   01 019D4    68301A6C              BEZ      :ERRT13           BRANCH: BYTE = 0

     5904   01 019D5    22700000 A            LI,7     0
     5905   01 019D6    2560037C A            SCD,6    -4                BITS 0 - 3 RIGHT JUSTIFIED
     5906   01 019D7    35601AB5              STW,R6   :ERRTMP3
     5907   01 019D8    35601AB6              STW,R6   :ERRTMP4          SAVE BITS 0-3 ORIGINAL

     5909   01 019D9    21600008 A            CI,R6    8                 LOOK FOR STANDARD FUNCTION
     5910   01 019DA    691019E4              BL       :ERRT1             (TRUE OR FALSE BIT TEST)

     5912   01 019DB    2160000F A            CI,R6    15                SKIP IF
     5913   01 019DC    693019E2              BNE      :ERRT00            DONT-CARE FUNCTION

     5915   01 019DD    33000007 A            MTW,0    7                 FALSE=>BYTE COUNT TEST
     5916   01 019DE    69101A3C              BLZ      :ERRT11            TRUE(SKIPS)=>COMMAND ADDRESS

     5918   01 019DF    206FFFFF A            AI,R6    -1                SET PROPER FUNCTION INDEX
     5919   01 019E0    35601AB5              STW,R6   :ERRTMP3           FOR BYTE COUNT TEST
     5920   01 019E1    68001A3C              B        :ERRT11

     5922   01 019E2    206FFFF9 A   :ERRT00  AI,R6    -7                SET TO CORRESPONDING
     5923   01 019E3    35601AB5              STW,R6   :ERRTMP3           STANDARD FUNCTION INDEX

     5925   01 019E4    328C1B80     :ERRT1   LW,8     :SAVETAB,6        FETCH STATUS
     5926   01 019E5    69101A03              BLZ      :ERRT6            BRANCH: STATUS IN TABLE

     5928   01 019E6    21600005 A            CI,6     5
     5929   01 019E7    691019EA              BL       :ERRT2            BRANCH: RANGE OF INDEX 1 - 4

     5931   01 019E8    EAF0022B              BAL,R15  *:WAIT            REQUESTED STATUS NOT
     5932   01 019E9    00001B9D              DATA     WAITMSG1          AVAILABLE (SIO, AIO, ISB)
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   91
A    5934   01 019EA    21600003 A   :ERRT2   CI,6     3
     5935   01 019EB    693019F2              BNE      :ERRT3            BRANCH: NOT HIO TEST

     5937   01 019EC    32E01BAA              LW,14    =X'00008000'
     5938   01 019ED    6AF016F9              BAL,15   :HIO              ISSUE HIO AND TEST CC1
     5939   01 019EE    680019F0              B        %+2
     5940   01 019EF    68001A3A              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP

     5942   01 019F0    6AF01B5F              BAL,15   :SAVEHIO          STORE HIO STATUS IN TABLE
     5943   01 019F1    680019E4              B        :ERRT1            FETCH STATUS

     5945   01 019F2    21600004 A   :ERRT3   CI,6     4
     5946   01 019F3    693019FA              BNE      :ERRT4            BRANCH: NOT TDV TEST

     5948   01 019F4    32E01BAA              LW,14    =X'00008000'
     5949   01 019F5    6AF01702              BAL,15   :TDV              ISSUE TDV AND TEST CC1
     5950   01 019F6    680019F8              B        %+2
     5951   01 019F7    68001A3A              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP

     5953   01 019F8    6AF01B64              BAL,15   :SAVETDV          STORE TDV STATUS
     5954   01 019F9    680019E4              B        :ERRT1            FETCH STATUS
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   92
A    5956   01 019FA    6AF019FC     :ERRT4   BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS
     5957   01 019FB    680019E4              B        :ERRT1

     5959   01 019FC    09F00412     :ERRT5   ENTER

     5961   01 019FD    32E01BAA              LW,14    =X'00008000'      ISSUE TIO AND TEST CC1
     5962   01 019FE    6AF016F0              BAL,15   :TIO               (ERROR WILL BE REPORTED)
     5963   01 019FF    68001A00              B        %+1

     5965   01 01A00    6AF01B51              BAL,15   :SAVETIO          SAVE FULL STATUS
     5966   01 01A01    08F00412              EXIT                        AND EXIT
            01 01A02    E800000F A

     5968   01 01A03    22600000 A   :ERRT6   LI,6     0
     5969   01 01A04    25600301 A            SCD,6    1                 FETCH BIT 4
     5970   01 01A05    35601AB4              STW,6    :ERRTMP2          SAVE TRUE/FALSE TEST FLAG

     5972   01 01A06    22600000 A            LI,6     0
     5973   01 01A07    25600303 A            SCD,6    3                 FETCH BITS 5 - 7
     5974   01 01A08    35601AE6              STW,6    :ERRBITS

     5976   01 01A09    32F01AB6              LW,R15   :ERRTMP4          CHECK FOR DONT-CARE
     5977   01 01A0A    21F00008 A            CI,R15   8                  FUNCTION ON CURRENT BIT
     5978   01 01A0B    68101A1C              BGE      :ERRT8A             IF TRUE, SKIP MASK UPDATES

     5980   01 01A0C    729C1AB7              LB,9     :ERRTMSK,6        FETCH CURRENT BIT
     5981   01 01A0D    49800009 A            OR,8     9                  AND UPDATE COMPARISON MASK

     5983   01 01A0E    33001AB4              MTW,0    :ERRTMP2          SKIP IF EXPECTED BIT
     5984   01 01A0F    68301A13              BEZ      %+4                IS FALSE

     5986   01 01A10    72040008 A            LB,0     8,2               ELSE SET A TRUE
     5987   01 01A11    49000009 A            OR,0     9                  INTO EXPECTED VALUE
     5988   01 01A12    75040008 A            STB,0    8,2

     5990   01 01A13    32601AB5              LW,6     :ERRTMP3          FETCH INDEX
     5991   01 01A14    358C1B80              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE

     5993   01 01A15    71920008 A            CB,9     8,1               COMPARE MASK TO STATUS
     5994   01 01A16    69401A1A              BANZ     :ERRT7             SKIP IF MATCH

     5996   01 01A17    33001AB4              MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
     5997   01 01A18    68301A1C              BEZ      :ERRT8A           BRANCH: FALSE TEST SUCCESSFUL
     5998   01 01A19    68001A1E              B        :ERRT9            BRANCH: TRUE  TEST UNSUCCESSFUL

     6000   01 01A1A    33001AB4     :ERRT7   MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
     6001   01 01A1B    68301A1E              BEZ      :ERRT9            BRANCH: FALSE TEST UNSUCCESSFUL

     6003   01 01A1C    33100005 A   :ERRT8A  MTW,1    5                 INCREMENT BYTE ADDR
     6004   01 01A1D    680019D3              B        :ERRT0            TEST NEXT BYTE
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   93
A    6006                            * PROCESS BIT ERROR IN NORMAL STATUS BYTE

     6008   01 01A1E    33001ABB     :ERRT9   MTW,0    :ERRTDET          SKIP IF ERROR DETAILS
     6009   01 01A1F    68301A3A              BEZ      :ERRT10            ARE SUPPRESSED

     6011   01 01A20    32601AB5     :ERRT9A  LW,6     :ERRTMP3          FETCH INDEX
     6012   01 01A21    327C1ABC              LW,7     :ERRTYPE,6        FETCH WORD CORRESP. TO INDEX
     6013   01 01A22    35701AD5              STW,7    :ERRTMG1+1        STORE IN OUTPUT FORMAT

     6015   01 01A23    327C1ADE              LW,7     :ERRTTB,6         FETCH INDEX FROM INDEX TABLE
     6016   01 01A24    32601AE6              LW,6     :ERRBITS          FETCH BIT SELECTED
     6017   01 01A25    928C0007 A            LD,8     *7,6              FETCH DOUBLEWORD ERROR MESSAGE
     6018   01 01A26    35801AD8              STW,R8   :ERRTMG1+4        SAVE BIT NAME
     6019   01 01A27    35901AD9              STW,R9   :ERRTMG1+5

     6021   01 01A28    206000F0 A            AI,6     X'F0'             CHANGE HEX TO EBCDIC
     6022   01 01A29    75621AD7              STB,6    :ERRTMG1+3,1      STORE BIT NUMBER IN OUTPUT FORMAT
     6023   01 01A2A    32601AB4              LW,6     :ERRTMP2          FETCH TRUE OR FALSE BIT
     6024   01 01A2B    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
     6025   01 01A2C    75641ADB              STB,6    :ERRTMG1+7,2      STORE T/F BIT IN OUTPUT FORMAT

     6027   01 01A2D    32601AB4              LW,6     :ERRTMP2
     6028   01 01A2E    48600001 A            EOR,6    1                 COMPLEMENT T/F BIT
     6029   01 01A2F    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
     6030   01 01A30    75601ADD              STB,6    :ERRTMG1+9,0      STORE COMPLEMENTED T/F BIT

     6032   01 01A31    22F01AD4              LI,R15   :ERRTMG1          LOAD STATUS POINTER

     6034   01 01A32    35F01A39     :ERRT9B  STW,R15  :ERRT9D           SAVE MESSAGE POINTER

     6036   01 01A33    32F01AB9              LW,R15   :ERRTFLG          IF THIS IS THE FIRST LINE
     6037   01 01A34    38F01ABA              SW,R15   :ERRFRCE          TO BE OUTPUT, THEN
     6038   01 01A35    69201A38              BGZ      :ERRT9C           OUTPUT SPACE

     6040   01 01A36    EAF0021C              BAL,R15  *:PRINT
     6041   01 01A37    0000040E              DATA     SPACE

     6043   01 01A38    EAF0021C     :ERRT9C  BAL,R15  *:PRINT           OUTPUT THE MESSAGE
     6044   01 01A39    00000000 A   :ERRT9D  DATA     0                 MESSAGE POINTER

     6046   01 01A3A    33101AB9     :ERRT10  MTW,1    :ERRTFLG          INCR. ERROR TALLY
     6047   01 01A3B    68001A1C              B        :ERRT8A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   94
A    6049                            * PROCESS REQUEST TO VERIFY BYTE COUNT OR COMMAND ADDRESS

     6051   01 01A3C    330C1B80     :ERRT11  MTW,0    :SAVETAB,6        IS STATUS PRESENT
     6052   01 01A3D    69101A3F              BLZ      %+2               SKIP IF STATUS IN TABLE
     6053   01 01A3E    6AF019FC              BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS

     6055   01 01A3F    328C1B80              LW,R8    :SAVETAB,6        FETCH THE STATUS
     6056   01 01A40    52820008 A            LH,R8    R8,1               EXTEND THE SIGN

     6058   01 01A41    2160000F A            CI,6     15                SKIP IF NOT
     6059   01 01A42    69301A45              BNE      :ERRT11A           COMMAND ADDRESS TEST

     6061   01 01A43    32901B94              LW,9     :SAVCOM1          GET ORIGINAL COMMAND ADDRESS
     6062   01 01A44    38800009 A            SW,8     9                  FIND DIFFERENCE (WITH CURRENT)

     6064   01 01A45    25600304 A   :ERRT11A SCD,6    4                 FETCH BITS 4 - 7
     6065   01 01A46    4B601BCF              AND,6    =X'7'
     6066   01 01A47    69301A4B              BNEZ     :ERRT11B          BRANCH: NOT EQUAL TO ZERO

     6068   01 01A48    33000008 A            MTW,0    8                 TEST BYTE COUNT OR COMMAND DIFF
     6069   01 01A49    69101A1C              BLZ      :ERRT8A           SKIP IF NEGATIVE TEST OK
     6070   01 01A4A    68001A58              B        :ERRT91A          NEGATIVE TEST FAILED

     6072   01 01A4B    33F00006 A   :ERRT11B MTW,-1   6                 SUBTRACT 1 FROM BITS 5 - 7
     6073   01 01A4C    31600008 A            CW,6     8                 COMPARE R8 TO TEST VALUE
     6074   01 01A4D    68301A1C              BE       :ERRT8A           SKIP IF TEST SUCCESSFUL

     6076                            * PROCESS ERRORS IN EXPECTED VALUES OF BYTE COUNT OR COMMAND ADDRESS

     6078   01 01A4E    32701AB5     :ERRT92A LW,7     :ERRTMP3          FETCH INDEX
     6079   01 01A4F    2170000E A            CI,7     14                BYTE COUNT  OR COMMAND ADDRESS
     6080   01 01A50    68301A55              BE       :ERRT92C          BRANCH IF EQUAL TO

     6082   01 01A51    32901B94              LW,9     :SAVCOM1          FETCH ORIG COMMAND ADDRESS
     6083   01 01A52    30900006 A            AW,9     6                 SAVCOM1 + 1
     6084   01 01A53    3590000C A            STW,9    12                STORE IN R12
     6085   01 01A54    68001A5E              B        :ERRT92B          BRANCH

     6087   01 01A55    30601BD0     :ERRT92C AW,6     =X'F0F0F0F0'      CONVERT INDEX TO EBCDIC
     6088   01 01A56    3560000F A            STW,6    15                STORE  IN R15
     6089   01 01A57    68001A62              B        :ERRT91C          BRANCH
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   95
A    6091   01 01A58    32701AB5     :ERRT91A LW,7     :ERRTMP3          FETCH INDEX AND
     6092   01 01A59    2170000E A            CI,7     14                DISTINGUISH BETWEEN
     6093   01 01A5A    68301A61              BE       :ERRT91B          BYTE COUNT AND COMM ADDRESS

     6095   01 01A5B    32901B94              LW,9     :SAVCOM1          FETCH ORIG COMMAND ADDRESS
     6096   01 01A5C    38900001 A            SW,9     1                 SUBTRACT 1 FROM SAVCOM1
     6097   01 01A5D    3590000C A            STW,9    12                STORE IN R12

     6099   01 01A5E    EAF00218     :ERRT92B BAL,15   *:HEXC            CONVERT TO EBCDIC
     6100   01 01A5F    12A01AF8              LD,10    :ERRTCAM          FETCH COMMAND ADDRESS ID
     6101   01 01A60    68001A63              B        %+3               BRANCH

     6103   01 01A61    32F01AF5     :ERRT91B LW,15    :ERRTNEG          FETCH EXPECTED NEGATIVE WORD
     6104   01 01A62    12A01AF6     :ERRT91C LD,10    :ERRTBCM          FETCH BYTE COUNT ID

     6106   01 01A63    35A01AE8              STW,10   :ERRTMG2+1        STORE  ID
     6107   01 01A64    35B01AE9              STW,11   :ERRTMG2+2                  IN MESSAGE
     6108   01 01A65    35F01AEC              STW,15   :ERRTMG2+5        STORE R15 IN MESSAGE
     6109   01 01A66    32601AB5              LW,6     :ERRTMP3          FETCH INDEX
     6110   01 01A67    32CC1B80              LW,12    :SAVETAB,6        BYTE COUNT OR COMMAND ADDRESS
     6111   01 01A68    EAF00218              BAL,15   *:HEXC            CONVERT INTO EBCDIC
     6112   01 01A69    35F01AEF              STW,15   :ERRTMG2+8        STORE R15 IN MESSAGE
     6113   01 01A6A    22F01AE7              LI,R15   :ERRTMG2          LOAD BYT/COM POINTER
     6114   01 01A6B    68001A32              B        :ERRT9B           SKIP TO OUTPUT MESSAGE

     6116                            * SCAN GATHERED STATUS AND DISPLAY ALL IF ANY ERROR

     6118         01 01A6C           :ERRT13  EQU      %
     6119   01 01A6C    33001AB9              MTW,0    :ERRTFLG          SKIP IF NO ERROR
     6120   01 01A6D    68301A74              BEZ      :ERRT14

     6122   01 01A6E    224FFFF7 A            LI,R4    -9                SCAN THROUGH STATUS TABLE

     6124         01 01A6F           :ERRT15  EQU      %
     6125   01 01A6F    32881B8A              LW,R8    :SAVETAB+10,R4    FETCH WORD OF STATUS
     6126   01 01A70    68101A72              BGEZ     %+2                SKIP IF NOT PRESENT

     6128   01 01A71    6AF01A82              BAL,R15  :ERRTDSP          DISPLAY STATUS

     6130   01 01A72    65401A6F              BIR,R4   :ERRT15           LOOP FOR ALL STATUS

     6132   01 01A73    6AF01674              BAL,R15  STATUS            DISPLAY RAW I/O STATUS

     6134                            * CLEAR STATUS-PRESENT FLAGS FROM TABLE

     6136   01 01A74    22000000 A   :ERRT14  LI,R0    0                 PREPARE TO CLEAR
     6137   01 01A75    224FFFF7 A            LI,R4    -9                 STATUS-PRESENT FLAGS

     6139   01 01A76    32881B8A     :ERRT16A LW,R8    :SAVETAB+10,R4    FETCH CURRENT STATUS
     6140   01 01A77    75000008 A            STB,R0   R8                 CLEAR PRESENCE FLAG
     6141   01 01A78    35881B8A              STW,R8   :SAVETAB+10,R4      RESTORE STATUS WORD
     6142   01 01A79    65401A76              BIR,R4   :ERRT16A

     6144   01 01A7A    22000000 A            LI,R0    0                 RESET FORCED-ERROR FLAG
     6145   01 01A7B    35001ABA              STW,R0   :ERRFRCE

     6147   01 01A7C    B3100412              MTW,1    *DPM:STK          SKIP TSEQ POINTER

     6149   01 01A7D    33001AB9              MTW,0    :ERRTFLG          TEST ERROR FLAG
     6150   01 01A7E    68301A80              BEZ      %+2                SKIP IF NONE
     6151   01 01A7F    B3100412              MTW,1    *DPM:STK            SKIP TO ERROR EXIT

     6153   01 01A80    08F00412              EXIT                       RETURN
            01 01A81    E800000F A

     6155   01 01A82    09F00412     :ERRTDSP ENTER                      DISPLAY ALL STATUS

     6157   01 01A83    32C81AC6              LW,12    :ERRTYPE+10,4     FETCH STATUS TYPE
     6158   01 01A84    35C01AC9              STW,12   :ERRTM1+1          AND STORE IN MESSAGE

     6160   01 01A85    EAF0021C              BAL,R15  *:PRINT
     6161   01 01A86    0000040E              DATA     SPACE

     6163   01 01A87    72C20008 A            LB,R12   R8,R1             FETCH ACTUAL STATUS
     6164   01 01A88    72F40008 A            LB,R15   R8,R2              FETCH EXPECTED STATUS
     6165   01 01A89    48C0000F A            EOR,R12  R15                 COMPUTE DIFFERENCES

     6167   01 01A8A    72F60008 A            LB,R15   R8,R3             FETCH MASK
     6168   01 01A8B    4BC0000F A            AND,R12  R15                ISOLATE TRUE DIFFERENCES
     6169   01 01A8C    68301A9A              BEZ      :ERRTDSQ            SKIP IN CASE OF EQUALITY

     6171   01 01A8D    32001BC8              LW,R0    ='    '           CLEAR ERROR FLAGS
     6172   01 01A8E    35001AC6              STW,R0   :ERRTM0+2
     6173   01 01A8F    35001AC7              STW,R0   :ERRTM0+3

     6175   01 01A90    2200005C A            LI,R0    '*'               SET TO FLAG DIFFERENCES
     6176   01 01A91    22500000 A            LI,R5    0                  AND SCAN ALL 8 BITS

     6178   01 01A92    71CA1AB7     :ERRTDSR CB,R12   :ERRTMSK,R5       LOOK FOR A DIFFERENCE
     6179   01 01A93    68401A95              BAZ      %+2                SKIP IF NONE

     6181   01 01A94    750A1AC6              STB,R0   :ERRTM0+2,R5      STORE FLAG

     6183   01 01A95    20500001 A            AI,R5    1                 UPDATE BIT POINTER
     6184   01 01A96    21500008 A            CI,R5    8                  AND STOP SCAN AT 8 BITS
     6185   01 01A97    69101A92              BL       :ERRTDSR

     6187   01 01A98    EAF0021C              BAL,R15  *:PRINT           DISPLAY FLAGS
     6188   01 01A99    00001AC4              DATA     :ERRTM0

     6190   01 01A9A    EAF0021C     :ERRTDSQ BAL,15   *:PRINT           PRINT LINE 1
     6191   01 01A9B    00001AC8              DATA     :ERRTM1           MSG = '   TIO 01234567'

     6193   01 01A9C    72C20008 A            LB,12    8,1               FETCH STATUS BYTE
     6194   01 01A9D    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     6195   01 01A9E    35F01ACF              STW,15   :ERRTM2+3         STORE IN MSG AREA
     6196   01 01A9F    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     6197   01 01AA0    35F01ACE              STW,15   :ERRTM2+2         STORE IN MSG AREA
     6198   01 01AA1    EAF0021C              BAL,15   *:PRINT           PRINT LINE 2
     6199   01 01AA2    00001ACC              DATA     :ERRTM2           MSG = 'STATUS BBBBBBBB'

     6201   01 01AA3    72C40008 A            LB,R12   R8,R2             CONVERT EXPECTED BYTE
     6202   01 01AA4    EAF00216              BAL,R15  *:BINC
     6203   01 01AA5    35F01AD3              STW,R15  :ERRTM3+3
     6204   01 01AA6    EAF00216              BAL,R15  *:BINC
     6205   01 01AA7    35F01AD2              STW,R15  :ERRTM3+2

     6207   01 01AA8    22500000 A            LI,R5    0                 SET TO SCAN MASK BYTE
     6208   01 01AA9    220000E7 A            LI,R0    'X'                DONT-CARE INDICATOR

     6210   01 01AAA    718A1AB7     :ERRTDSS CB,R8    :ERRTMSK,R5       LOOK FOR A DONT-CARE BIT
     6211   01 01AAB    69401AAD              BANZ     %+2                SKIP IF BIT COMPARED

     6213   01 01AAC    750A1AD2              STB,R0   :ERRTM3+2,R5      SET DONT-CARE CONDITION

     6215   01 01AAD    20500001 A            AI,R5    1                 ADVANCE TO NEXT BIT
     6216   01 01AAE    21500008 A            CI,R5    8                  STOP SCAN AT 8 BITS
     6217   01 01AAF    69101AAA              BL       :ERRTDSS

     6219   01 01AB0    EAF0021C              BAL,R15  *:PRINT           DISPLAY EXPECTED STATUS
     6220   01 01AB1    00001AD0              DATA     :ERRTM3

     6222   01 01AB2    08F00412              EXIT
            01 01AB3    E800000F A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   96
A    6224   01 01AB4    00000000 A   :ERRTMP2 DATA     0                 TRUE/FALSE TEST FLAG
     6225   01 01AB5    00000000 A   :ERRTMP3 DATA     0                 INDEX INTO STATUS SAVE AREA
     6226   01 01AB6    00000000 A   :ERRTMP4 DATA     0                 BITS 0-3 OF SPECIFIER

     6228   01 01AB7    80402010 A   :ERRTMSK GEN,8,8,8,8  X'80',X'40',X'20',X'10'   TEST
     6229   01 01AB8    08040201 A            GEN,8,8,8,8  X'08',X'04',X'02',X'01'     MASKS

     6231   01 01AB9    00000000 A   :ERRTFLG DATA     0                 ERROR OCCURED
     6232   01 01ABA    00000000 A   :ERRFRCE DATA     0                 FORCE STATUS DISPLAY
     6233   01 01ABB    00000000 A   :ERRTDET DATA     0                 FORCE BIT-FOR-BIT DISPLAY

     6235   01 01ABC    00000000 A   :ERRTYPE DATA     0,'TIO ','OSB ','HIO ','TDV ','SIO ','AIO ','ISB '
            01 01ABD    E3C9D640 A
            01 01ABE    D6E2C240 A
            01 01ABF    C8C9D640 A
            01 01AC0    E3C4E540 A
            01 01AC1    E2C9D640 A
            01 01AC2    C1C9D640 A
            01 01AC3    C9E2C240 A

     6237   01 01AC4    0F404040 A   :ERRTM0  TEXTC    '       ********'
            01 01AC5    40404040 A
            01 01AC6    5C5C5C5C A
            01 01AC7    5C5C5C5C A
     6238   01 01AC8    0F404040 A   :ERRTM1  TEXTC    '   XXX 01234567'
            01 01AC9    E7E7E740 A
            01 01ACA    F0F1F2F3 A
            01 01ACB    F4F5F6F7 A
     6239   01 01ACC    0FE2E3C1 A   :ERRTM2  TEXTC    'STATUS BBBBBBBB'
            01 01ACD    E3E4E240 A
            01 01ACE    C2C2C2C2 A
            01 01ACF    C2C2C2C2 A
     6240   01 01AD0    0FC5E7D7 A   :ERRTM3  TEXTC    'EXPECT MMMMMMMM'
            01 01AD1    C5C3E340 A
            01 01AD2    D4D4D4D4 A
            01 01AD3    D4D4D4D4 A

     6242   01 01AD4    24404040 A   :ERRTMG1 TEXTC    '   XXX BIT  X (XXXXXXXX) EXP X OBS X'
            01 01AD5    E7E7E740 A
            01 01AD6    C2C9E340 A
            01 01AD7    40E7404D A
            01 01AD8    E7E7E7E7 A
            01 01AD9    E7E7E7E7 A
            01 01ADA    5D40C5E7 A
            01 01ADB    D740E740 A
            01 01ADC    D6C2E240 A
            01 01ADD    E7404040 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   97
A    6244   01 01ADE    00000000 A   :ERRTTB  DATA     0,:ERRTTBA,:ERRTTBB,:ERRTTBA,:ERRTTBC,:ERRTTBA
            01 01ADF    00001AFA
            01 01AE0    00001B0A
            01 01AE1    00001AFA
            01 01AE2    00001B1A
            01 01AE3    00001AFA
     6245   01 01AE4    00001B2A              DATA     :ERRTTBD,:ERRTTBE
            01 01AE5    00001B3A
     6246   01 01AE6    00000000 A   :ERRBITS DATA     0

     6248   01 01AE7    23404040 A   :ERRTMG2 TEXTC    '   XXXXXXX - EXP.  XXXX  OBS.  XXXX'
            01 01AE8    E7E7E7E7 A
            01 01AE9    E7E7E740 A
            01 01AEA    6040C5E7 A
            01 01AEB    D74B4040 A
            01 01AEC    E7E7E7E7 A
            01 01AED    4040D6C2 A
            01 01AEE    E24B4040 A
            01 01AEF    E7E7E7E7 A
     6249   01 01AF0    13E3C9D6 A   :ERRTMG3 TEXTC    'TIO:   XXXXYYYYXXXX'
            01 01AF1    7A404040 A
            01 01AF2    E7E7E7E7 A
            01 01AF3    E8E8E8E8 A
            01 01AF4    E7E7E7E7 A
     6250   01 01AF5    40D5C5C7 A   :ERRTNEG TEXT     ' NEG'
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   98
A    6252                                     BOUND    8

     6254   01 01AF6    C2E8E340 A   :ERRTBCM TEXT     'BYT CNT '
            01 01AF7    C3D5E340 A
     6255   01 01AF8    C3D6D440 A   :ERRTCAM TEXT     'COM ADR '
            01 01AF9    C1C4D940 A
     6256   01 01AFA    C9D5E340 A   :ERRTTBA TEXT     'INT PEND'        BIT 0
            01 01AFB    D7C5D5C4 A
     6257   01 01AFC    C2E4E2E8 A            TEXT     'BUSY    '        BIT 1   TIO
            01 01AFD    40404040 A
     6258   01 01AFE    C2E4E2E8 A            TEXT     'BUSY    '        BIT 2
            01 01AFF    40404040 A
     6259   01 01B00    4040C1E4 A            TEXT     '  AUTO  '        BIT 3     SIO                (1)
            01 01B01    E3D64040 A
     6260   01 01B02    404040E4 A            TEXT     '   UE   '        BIT 4                        (3)
            01 01B03    C5404040 A
     6261   01 01B04    C2E4E2E8 A            TEXT     'BUSY    '        BIT 5       HIO              (5)
            01 01B05    40404040 A
     6262   01 01B06    C2E4E2E8 A            TEXT     'BUSY    '        BIT 6
            01 01B07    40404040 A
     6263   01 01B08    C1C4C4D9 A            TEXT     'ADDR ERR'        BIT 7         STATUS
            01 01B09    40C5D9D9 A
     6264   01 01B0A    C9D34040 A   :ERRTTBB TEXT     'IL      '   BIT 0
            01 01B0B    40404040 A
     6265   01 01B0C    E3C4C540 A            TEXT     'TDE     '        BIT 1
            01 01B0D    40404040 A
     6266   01 01B0E    E3D4C540 A            TEXT     'TME     '        BIT 2   OPERATIONAL
            01 01B0F    40404040 A
     6267   01 01B10    D4C5D440 A            TEXT     'MEM ADR '        BIT 3
            01 01B11    C1C4D940 A
     6268   01 01B12    C9D6D740 A            TEXT     'IOP MEM '        BIT 4     STATUS BYTE (OSB)
            01 01B13    D4C5D440 A
     6269   01 01B14    C9D6D740 A            TEXT     'IOP CONT'        BIT 5                        (2)
            01 01B15    C3D6D5E3 A
     6270   01 01B16    C9D6D740 A            TEXT     'IOP HALT'        BIT 6
            01 01B17    C8C1D3E3 A
     6271   01 01B18    E2C9D6D7 A            TEXT     'SIOPBUSY'        BIT 7
            01 01B19    C2E4E2E8 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE   99
A    6273   01 01B1A    D6D9C440 A   :ERRTTBC TEXT     'ORD STAT'        BIT 0
            01 01B1B    E2E3C1E3 A
     6274   01 01B1C    D6D9C440 A            TEXT     'ORD STAT'        BIT 1
            01 01B1D    E2E3C1E3 A
     6275   01 01B1E    D6D9C440 A            TEXT     'ORD STAT'        BIT 2     TDV
            01 01B1F    E2E3C1E3 A
     6276   01 01B20    D6D9C440 A            TEXT     'ORD STAT'        BIT 3
            01 01B21    E2E3C1E3 A
     6277   01 01B22    C3E24040 A            TEXT     'CS      '        BIT 4            STATUS     (4)
            01 01B23    40404040 A
     6278   01 01B24    C3D74040 A            TEXT     'CP      '        BIT 5
            01 01B25    40404040 A
     6279   01 01B26    E7D4C9E3 A            TEXT     'XMIT    '        BIT 6
            01 01B27    40404040 A
     6280   01 01B28    D9C3E5C4 A            TEXT     'RCVD    '        BIT 7
            01 01B29    40404040 A
     6281   01 01B2A    D6D9C440 A   :ERRTTBD TEXT     'ORD STAT'        BIT 0
            01 01B2B    E2E3C1E3 A
     6282   01 01B2C    D6D9C440 A            TEXT     'ORD STAT'        BIT 1
            01 01B2D    E2E3C1E3 A
     6283   01 01B2E    D6D9C440 A            TEXT     'ORD STAT'        BIT 2     AIO
            01 01B2F    E2E3C1E3 A
     6284   01 01B30    D6D9C440 A            TEXT     'ORD STAT'        BIT 3            STATUS   (6)
            01 01B31    E2E3C1E3 A
     6285   01 01B32    D5D6E340 A            TEXT     'NOT USED'        BIT 4
            01 01B33    E4E2C5C4 A
     6286   01 01B34    D5D6E340 A            TEXT     'NOT USED'        BIT 5
            01 01B35    E4E2C5C4 A
     6287   01 01B36    D5D6E340 A            TEXT     'NOT USED'        BIT 6
            01 01B37    E4E2C5C4 A
     6288   01 01B38    C6D9C1D4 A            TEXT     'FRAME   '        BIT 7
            01 01B39    C5404040 A
     6289   01 01B3A    C9D34040 A   :ERRTTBE TEXT     'IL      '        BIT 0
            01 01B3B    40404040 A
     6290   01 01B3C    E3C4C540 A            TEXT     'TDE     '        BIT 1
            01 01B3D    40404040 A
     6291   01 01B3E    E9C2C340 A            TEXT     'ZBC INT '        BIT 2   INTERRUPT
            01 01B3F    C9D5E340 A
     6292   01 01B40    40C3C540 A            TEXT     ' CE INT '        BIT 3
            01 01B41    C9D5E340 A
     6293   01 01B42    40E4C540 A            TEXT     ' UE INT '        BIT 4     STATUS BYTE (ISB)  (7)
            01 01B43    C9D5E340 A
     6294   01 01B44    D5D6E340 A            TEXT     'NOT USED'        BIT 5
            01 01B45    E4E2C5C4 A
     6295   01 01B46    D5D6E340 A            TEXT     'NOT USED'        BIT 6
            01 01B47    E4E2C5C4 A
     6296   01 01B48    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            01 01B49    E4E2C5C4 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE  100
A    6298                            * ROUTINES TO CLEAR AND SAVE STATUS IN THE SELECTED CELL:
     6299                            *
     6300                            * CLR, TIO, HIO, TDV, SIO, AND AIO ARE THE ENTRY POINTS
     6301                            *
     6302                            * CALLING SEQUENCE: BAL,15  :SAVE---
     6303                            * NORMAL EXIT:      ---     ---
     6304                            *
     6305                            * VARIABLES REQUIRED: R13 - IOSTATUS AND BYTE COUNT
     6306                            *                     R12 - CURRENT COMMAND ADDR

     6308   01 01B4A    15401B90     :SAVECLR STD,4    :SAVETMP          SAVE R4 AND R5

     6310   01 01B4B    224FFFF0 A            LI,4     -16               INDEX
     6311   01 01B4C    22500000 A            LI,5     0                 0

     6313   01 01B4D    35581B90              STW,R5   :SAVETAB+16,4     CLEAR ALL STATUS
     6314   01 01B4E    65401B4D              BIR,4    %-1               LOOP

     6316   01 01B4F    12401B90              LD,4     :SAVETMP          RESTORE R4 AND R5
     6317   01 01B50    E800000F A            B        *15               EXIT

     6319   01 01B51    15401B90     :SAVETIO STD,4    :SAVETMP          SAVE R4 AND R5
     6320   01 01B52    35D01B92              STW,13   :SAVETMP+2        SAVE STATUS
     6321   01 01B53    22401B81              LI,4     WA(:SAVETAB+1)    INDEX - TIO STATUS
     6322   01 01B54    6A501B77              BAL,5    :SAVEALL          STORE STATUS
     6323   01 01B55    22401B82              LI,4     WA(:SAVETAB+2)    INDEX - OSB
     6324   01 01B56    6A501B77              BAL,5    :SAVEALL          STORE STATUS
     6325   01 01B57    32D01B92              LW,13    :SAVETMP+2        FETCH STATUS
     6326   01 01B58    55D21B8E              STH,13   :SAVETAB+14,1     STORE BYTE COUNT
     6327   01 01B59    225FFFFF A            LI,5     -1
     6328   01 01B5A    75501B8E              STB,5    :SAVETAB+14,0     SET FLAG
     6329   01 01B5B    55C21B8F              STH,12   :SAVETAB+15,1     STORE CURRENT COMMAND ADDR
     6330   01 01B5C    75501B8F              STB,5    :SAVETAB+15,0     SET FLAG
     6331   01 01B5D    12401B90              LD,4     :SAVETMP          RESTORE R4 AND R5
     6332   01 01B5E    E800000F A            B        *15               EXIT

     6334   01 01B5F    15401B90     :SAVEHIO STD,4    :SAVETMP          SAVE R4 AND R5
     6335   01 01B60    22401B83              LI,4     WA(:SAVETAB+3)    INDEX - HIO STATUS
     6336   01 01B61    6A501B77              BAL,5    :SAVEALL          STORE STATUS
     6337   01 01B62    12401B90              LD,4     :SAVETMP          RESTORE R4 AND R5
     6338   01 01B63    E800000F A            B        *15               EXIT

     6340   01 01B64    15401B90     :SAVETDV STD,4    :SAVETMP          SAVE R4 AND R5
     6341   01 01B65    22401B84              LI,4     WA(:SAVETAB+4)    INDEX - TDV STATUS
     6342   01 01B66    6A501B77              BAL,5    :SAVEALL          STORE STATUS
     6343   01 01B67    12401B90              LD,4     :SAVETMP          RESTORE R4 AND R5
     6344   01 01B68    E800000F A            B        *15               EXIT
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE  101
A    6346   01 01B69    15401B90     :SAVESIO STD,4    :SAVETMP          SAVE R4 AND R5
     6347   01 01B6A    22401B85              LI,4     WA(:SAVETAB+5)    INDEX - SIO
     6348   01 01B6B    6A501B77              BAL,5    :SAVEALL          STORE STATUS
     6349   01 01B6C    12401B90              LD,4     :SAVETMP          RESTORE R4 AND R5
     6350   01 01B6D    E800000F A            B        *15               EXIT

     6352   01 01B6E    15401B90     :SAVEAIO STD,4    :SAVETMP          SAVE R4 AND R5
     6353   01 01B6F    35D01B92              STW,13   :SAVETMP+2        SAVE STATUS
     6354   01 01B70    22401B86              LI,4      WA(:SAVETAB+6)   INDEX - AIO
     6355   01 01B71    6A501B77              BAL,5    :SAVEALL          STORE STATUS
     6356   01 01B72    22401B87              LI,4      WA(:SAVETAB+7)   INDEX - ISB
     6357   01 01B73    6A501B77              BAL,5    :SAVEALL          STORE STATUS
     6358   01 01B74    32D01B92              LW,13    :SAVETMP+2        FETCH STATUS
     6359   01 01B75    12401B90              LD,4     :SAVETMP          RESTORE REGISTERS R4 AND R5
     6360   01 01B76    E800000F A            B        *15               EXIT

     6362   01 01B77    35501B93     :SAVEALL STW,5    :SAVETMP+3        SAVE EXIT ADDR
     6363   01 01B78    22500000 A            LI,5     0
     6364   01 01B79    F5560004 A            STB,5    *4,3              CLEAR CURRENT STATUS MASK
     6365   01 01B7A    F5540004 A            STB,5    *4,2               AND EXPECTED VALUE
     6366   01 01B7B    25D00208 A            SCS,13   +8
     6367   01 01B7C    F5D20004 A            STB,13   *4,1              STORE CURRENT STATUS
     6368   01 01B7D    225FFFFF A            LI,5     -1
     6369   01 01B7E    F5500004 A            STB,5    *4,0              STORE FLAG
     6370   01 01B7F    E8001B93              B        *:SAVETMP+3       EXIT
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE  102
A    6372                            ************************************************************************
     6373                            *                                                                      *
     6374                            * THE FOLLOWING TABLE IS FOR GATHERED I/O STATUS                       *
     6375                            *                                                                      *
     6376                            * THE FORMAT OF ENTRIES 1-7 IS AS FOLLOWS:                             *
     6377                            *                                                                      *
     6378                            *        BYTE 0   00=>NOT PRESENT, FF=>PRESENT                         *
     6379                            *        BYTE 1   ACTUAL STATUS BYTE                                   *
     6380                            *        BYTE 2   EXPECTED STATUS VALUE                                *
     6381                            *        BYTE 3   MASK OF VALID BITS                                   *
     6382                            *                                                                      *
     6383                            ************************************************************************

     6385         01 01B80           :SAVETAB EQU      %
     6386   01 01B80    00000000 A            DATA     0                 UNDEFINED                   0

     6388   01 01B81    00000000 A            DATA     X'00000000'       TIO STATUS                  1
     6389   01 01B82    00000000 A            DATA     X'00000000'       OSB STATUS                  2
     6390   01 01B83    00000000 A            DATA     X'00000000'       HIO STATUS                  3
     6391   01 01B84    00000000 A            DATA     X'00000000'       TDV STATUS                  4
     6392   01 01B85    00000000 A            DATA     X'00000000'       SIO STATUS                  5
     6393   01 01B86    00000000 A            DATA     X'00000000'       AIO STATUS                  6
     6394   01 01B87    00000000 A            DATA     X'00000000'       ISB STATUS                  7

     6396   01 01B88    00000000 A            DATA     0,0,0,0,0,0       UNDEFINED                   8-13
            01 01B89    00000000 A
            01 01B8A    00000000 A
            01 01B8B    00000000 A
            01 01B8C    00000000 A
            01 01B8D    00000000 A
     6397   01 01B8E    00000000 A            DATA     0,0               BYTE COUNT, COMMAND ADR     14-15
            01 01B8F    00000000 A

     6399                                     BOUND    8
     6400   01 01B90    00000000 A   :SAVETMP DATA     0,0,0,0           4 TEMP LOC
            01 01B91    00000000 A
            01 01B92    00000000 A
            01 01B93    00000000 A
     6401   01 01B94    00000000 A   :SAVCOM1 DATA     0                 ORIGINAL COMMAND ADDR

     6403   01 01B95    1CD7D9D6 A   WAITMSG0 TEXTC    'PROGRAMMING ERROR IN :ERRORT'
            01 01B96    C7D9C1D4 A
            01 01B97    D4C9D5C7 A
            01 01B98    40C5D9D9 A
            01 01B99    D6D940C9 A
            01 01B9A    D5407AC5 A
            01 01B9B    D9D9D6D9 A
            01 01B9C    E3404040 A
     6404   01 01B9D    23D9C5D8 A   WAITMSG1 TEXTC    'REQUESTED STATUS MISSING IN :ERRORT'
            01 01B9E    E4C5E2E3 A
            01 01B9F    C5C440E2 A
            01 01BA0    E3C1E3E4 A
            01 01BA1    E240D4C9 A
            01 01BA2    E2E2C9D5 A
            01 01BA3    C740C9D5 A
            01 01BA4    407AC5D9 A
            01 01BA5    D9D6D9E3 A
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE  103
A    6406                                     CLOSE    ERROR

     6408         0000017E           BUFFS    EQU      (1514+2+2+4)/4+2  MAXIMUM BUFFER REQUIREMENT

     6410         01 01BA6           BUFF0    EQU      %

     6412                                     ERROR,3,ABSVAL(BUFF0)>X'2000' 'PROGRAM IS TOO BIG'

     6414         01 02000           BUFF1    EQU      BUFF0+(X'2000'-ABSVAL(BUFF0)) LOCATED AFTER LITERALS

     6416         01 02800           BUFF2    EQU      BUFF0+(X'2800'-ABSVAL(BUFF0)) LOCATED AFTER LITERALS

     6418                                     ERROR,3,BUFFS>(BUFF2-BUFF1)  'BUFFER IS TOO SMALL'

     6420                                     END
            01 01BA6    0001FFFF A
            01 01BA7    12B9B0A1 A
            01 01BA8    1033C4D7 A
            01 01BA9    544B2FBA A
            01 01BAA    00008000 A
            01 01BAB    EF00C000 A
            01 01BAC    F700C000 A
            01 01BAD    E700C000 A
            01 01BAE    6700C000 A
            01 01BAF    FFE78000 A
            01 01BB0    E7FFC000 A
            01 01BB1    FFEFC000 A
            01 01BB2    EFFFC000 A
            01 01BB3    FFDFC000 A
            01 01BB4    89FF8000 A
            01 01BB5    00FFFFFF A
            01 01BB6    7FFFFFFF A
            01 01BB7    80000000 A
            01 01BB8    040005EE A
            01 01BB9    70300001 A
            01 01BBA    02030405 A
            01 01BBB    04040404 A
            01 01BBC    DAB0F935 A
            01 01BBD    01000040 A
            01 01BBE    DAB0F9CA A
            01 01BBF    01000000 A
            01 01BC0    FEFFFFFF A
            01 01BC1    FFFF0000 A
            01 01BC2    00010203 A
            01 01BC3    40D3D67A A
            01 01BC4    4040C37A A
            01 01BC5    00000003 A
            01 01BC6    0000000A A
            01 01BC7    4BF04040 A
            01 01BC8    40404040 A
            01 01BC9    40E3F06B A
            01 01BCA    E3F04040 A
            01 01BCB    FFFFC000 A
            01 01BCC    E600C000 A
            01 01BCD    10000000 A
            01 01BCE    80004000 A
            01 01BCF    00000007 A
            01 01BD0    F0F0F0F0 A

  CONTROL SECTION SUMMARY: 01 01BD1   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:22 JUN 20,'83    TELEFILE ETHERNET CONTROLLER DIAGNOSTIC 960-0616-H02                  PAGE  104
A  ADDRMOVE        4625/BAL     4641/BAL     4657/BAL     4671-ENTER
   AIO             1085-FNAME   1265/:TSEQ   1288/:TSEQ   1322/:TSEQ   1335/:TSEQ   1351/:TSEQ   1367/:TSEQ
      1388/:TSEQ   1391/:TSEQ   1394/:TSEQ   1447/:TSEQ   1503/:TSEQ   1506/:TSEQ   1509/:TSEQ   1530/:TSEQ
      1533/:TSEQ   1604/:TSEQ   1607/:TSEQ   1632/:TSEQ   2225/:TSEQ   2261/:TSEQ   2264/:TSEQ   2285/:TSEQ
      2289/:TSEQ   2423/:TSEQ   2426/:TSEQ   2641/:TSEQ   2644/:TSEQ   2647/:TSEQ   2796/:TSEQ   4463/:TSEQ
      4605/:TSEQ
   AIOF0           5873-:TSEQEQU
   AIOF1           5873-:TSEQEQU
   AIOF2           5873-:TSEQEQU
   AIOF3           5873-:TSEQEQU
   AIOF4           5873-:TSEQEQU
   AIOF5           5873-:TSEQEQU
   AIOF6           5873-:TSEQEQU
   AIOF7           5873-:TSEQEQU
   AIOT0           5874-:TSEQEQU
   AIOT1           5874-:TSEQEQU
   AIOT2           5874-:TSEQEQU
   AIOT3           5874-:TSEQEQU
   AIOT4           5874-:TSEQEQU
   AIOT5           5874-:TSEQEQU
   AIOT6           5874-:TSEQEQU
   AIOT7           5874-:TSEQEQU
   AIOX0           5883-:TSEQEQU
   AIOX1           5883-:TSEQEQU
   AIOX2           5883-:TSEQEQU
   AIOX3           5883-:TSEQEQU
   AIOX4           5883-:TSEQEQU
   AIOX5           5883-:TSEQEQU
   AIOX6           5883-:TSEQEQU
   AIOX7           5883-:TSEQEQU
   ARS              143-CNAME
   ATTFLAG         5658/MTW     5663/STW     5738/MTW     5752/MTW     5770-RES     5786/STW     5805/STW
   ATTSTAT         5662/LW      5754/STW     5769-RES     5787/STW
   BUFFS           6408-EQU     6418/ERROR
   BUFF0           6410-EQU     6412/ERROR   6414/EQU     6414/EQU     6416/EQU     6416/EQU
   BUFF1           1152/IOCD    1173/IOCD    1355/IOCD    1399/IOCD    1402/IOCD    1405/IOCD    1408/IOCD
      1426/IOCD    1429/IOCD    1432/IOCD    1435/IOCD    1450/IOCD    1451/IOCD    1452/IOCD    1458/STD
      1470/IOCD    1471/IOCD    1472/IOCD    1474/IOCD    1475/IOCD    1476/IOCD    1483/STB     1496/IOCD
      1497/IOCD    1498/IOCD    1499/IOCD    1501/IOCD    1600/IOCD    1716/IOCD    1720/IOCD    1724/IOCD
      1728/IOCD    1905/IOCD    1906/IOCD    1907/IOCD    1908/IOCD    1909/IOCD    1910/IOCD    1911/IOCD
      1912/IOCD    1913/IOCD    2156/LI      2176/STW     2205/IOCD    2210/IOCD    2215/IOCD    2415/IOCD
      2453/STW     2632/IOCD    2634/IOCD    2702/STD     2704/STH     2705/STW     2708/STW     2721/LI
      2724/LI      2746/STW     2759/STW     2858/IOCD    2859/IOCD    2864/STD     2867/STH     2868/STW
      2874/LD      2877/STD     2916/MTB     2923/MTB     2951/IOCD    2953/IOCD    2955/IOCD    2977/LI
      3007/STW     3008/STW     3009/STW     3091/IOCD    3092/IOCD    3094/IOCD    3095/IOCD    3101/STD
      3104/STH     3105/STW     3304/LI      3910/LI      4475/LI      6414-EQU     6418/ERROR
   BUFF2           1338/IOCD    1536/IOCD    1537/IOCD    1555/IOCD    1556/IOCD    1557/IOCD    1602/IOCD
      1635/IOCD    1657/IOCD    1672/STW     1683/STW     1694/STW     1705/STW     1730/IOCD    1764/LD
      1766/STW     1782/LD      1784/STW     1890/IOCD    1892/IOCD    1893/IOCD    1894/IOCD    1895/IOCD
      1896/IOCD    1897/IOCD    1898/IOCD    1899/IOCD    1942/STW     2158/LI      2186/STW     2200/IOCD
      2333/LW      2334/LW      2417/IOCD    2419/IOCD    2420/IOCD    2421/IOCD    2509/LH      2515/LH
      2582/LI      2639/IOCD    2696/LW      2697/LW      2727/LI      2791/IOCD    2793/IOCD    2958/IOCD
      2983/LI      3178/LW      3181/STH     3183/CW      3192/LW      3213/CW      3222/LW      3308/LI
      3551/LI      3750/LW      3751/LW      3755/IOCD    3759/IOCD    3915/LI      4068/LH      4083/LH
      4201/LW      4270/LB      4274/STH     4280/LH      4283/STH     4285/CW      4303/LW      4326/LW
      4332/LB      4357/CW      4359/LW      4375/LB      4395/CW      4461/IOCD    4548/LW      4549/LW
      4712/LW      4713/LW      4782/IOCD    4784/IOCD    6416-EQU     6418/ERROR
   BUFF33S         2377/LI      2429-DATA
   BUFF34S         2570/LI      2665-DATA
   BUFF35S0        2771/LI      2776-DATA
   BUFF36S         2848/LI      2880-DATA
   BUFF37S         2941/LI      2960-DATA
   BUFF38S         3081/LI      3109-DATA
   BYTNG           1711/:TSEQ   4463/:TSEQ   5886-:TSEQEQU
   BYT00           1220/:TSEQ   1245/:TSEQ   1265/:TSEQ   1288/:TSEQ   1322/:TSEQ   1351/:TSEQ   1388/:TSEQ
      1391/:TSEQ   1394/:TSEQ   1447/:TSEQ   1503/:TSEQ   1506/:TSEQ   1509/:TSEQ   1530/:TSEQ   1533/:TSEQ
      1604/:TSEQ   1607/:TSEQ   1947/:TSEQ   2152/:TSEQ   2225/:TSEQ   2261/:TSEQ   2289/:TSEQ   2423/:TSEQ
      2426/:TSEQ   2641/:TSEQ   2644/:TSEQ   2647/:TSEQ   2796/:TSEQ   4605/:TSEQ   5886-:TSEQEQU
   BYT01           1153/:TSEQ   1174/:TSEQ   1632/:TSEQ   5886-:TSEQEQU
   BYT02           5886-:TSEQEQU
   BYT03           5886-:TSEQEQU
   BYT04           5886-:TSEQEQU
   BYT05           5886-:TSEQEQU
   BYT06           1335/:TSEQ   1367/:TSEQ   5886-:TSEQEQU
   CATALOG            2-EQU        4/EQU
   CHK0             659/BGE      666-AI
   CHK1             649/BNEZ     655-LW
   CINIT25         2018/BAL     2029/BAL     2040/BAL     2051/BAL     2062/BAL     2075/BAL     2154-ENTER
   CLRARM          1252/BAL     3294/BAL     4937-ENTER
   CMPMSG24        1988/STH     1995/STH     1997/STH     2001/STW     2003/STW     2006/DATA    2011-TEXTC
   CMP37BUF        2756/BAL     2769/BAL     2826/BAL     2912/BAL     2937/BAL     3019-ENTER   3056/BAL
   CMP37BUG        3022/B       3026-EXIT
   COMNG           5887-:TSEQEQU
   COM00           1153/:TSEQ   1174/:TSEQ   1220/:TSEQ   1245/:TSEQ   1265/:TSEQ   1288/:TSEQ   1322/:TSEQ
      1335/:TSEQ   1367/:TSEQ   1447/:TSEQ   1503/:TSEQ   1506/:TSEQ   1530/:TSEQ   1533/:TSEQ   1632/:TSEQ
      1711/:TSEQ   2152/:TSEQ   2423/:TSEQ   2644/:TSEQ   2647/:TSEQ   2796/:TSEQ   4463/:TSEQ
      5887-:TSEQEQU
   COM01           1351/:TSEQ   1509/:TSEQ   1947/:TSEQ   2225/:TSEQ   2641/:TSEQ   5887-:TSEQEQU
   COM02           1388/:TSEQ   1391/:TSEQ   1394/:TSEQ   2426/:TSEQ   5887-:TSEQEQU
   COM03           1604/:TSEQ   1607/:TSEQ   5887-:TSEQEQU
   COM04           5887-:TSEQEQU
   COM05           5887-:TSEQEQU
   COM06           5887-:TSEQEQU
   CPT02           1134/STB     1139/LI      1146/MTB     1147/LB      1152-IOCD
   CPT03           1160/LI      1173-IOCD    1181/LI
   CPT05           1202/LI      1219-IOCD
   CPT06           1227/LI      1244-IOCD
   CPT07           1254/LI      1264-IOCD
   CPT08           1278/IOXEQ   1291-IOCD    1312/IOXEQ
   CPT08D          1273/STB     1282/MTB     1283/LB      1291/IOCD    1293-RES     1300/STB     1316/MTB
      1317/LB
   CPT10           1329/IOXEQ   1338-IOCD
   CPT11           1345/IOXEQ   1354-IOCD
   CPT12           1361/IOXEQ   1370-IOCD
   CPT12D          1370/IOCD    1372-DATA
   CPT13A          1378/IOTST   1406-IOCD
   CPT13B          1380/IOTST   1403-IOCD
   CPT13C          1382/IOTST   1400-IOCD
   CPT13D          1384/IOTST   1397-IOCD
   CPT14A          1414/IOTST   1433-IOCD
   CPT14B          1416/IOTST   1430-IOCD
   CPT14C          1418/IOTST   1427-IOCD
   CPT14D          1420/IOTST   1424-IOCD
   CPT15A          1441/IOTST   1450-IOCD
   CPT15B          1442/IOTST   1451-IOCD
   CPT15C          1443/IOTST   1452-IOCD
   CPT16A          1460/IOTST   1470-IOCD
   CPT16B          1461/IOTST   1471-IOCD
   CPT16C          1462/IOTST   1472-IOCD
   CPT16D          1464/IOTST   1474-IOCD
   CPT16E          1465/IOTST   1475-IOCD
   CPT16F          1466/IOTST   1476-IOCD
   CPT17A          1488/IOTST   1496-IOCD
   CPT17B          1489/IOTST   1497-IOCD
   CPT17C          1490/IOTST   1498-IOCD
   CPT17D          1491/IOTST   1499-IOCD
   CPT17E          1492/IOTST   1500-IOCD
   CPT18           1516/IOXEQ   1536-IOCD
   CPT18A          1522/IOXEQ   1537-IOCD    4025/IOTST
   CPT19           1543/IOXEQ   1555-IOCD
   CPT19A          1547/IOXEQ   1556-IOCD
   CPT19B          1557-IOCD    4187/IOTST
   CPT20           1563/LI      1581/IOXEQ   1597-IOCD    1616/IOXEQ   1641/IOXEQ
   CPT20A          1589/IOXEQ   1602-IOCD
   CPT21           1624/IOXEQ   1635-IOCD
   CPT22           1649/IOXEQ   1657-IOCD
   CPT23R          1665/LOOP    1676/LOOP    1687/LOOP    1698/LOOP    1730-IOCD
   CPT23W0         1665/LOOP    1713-IOCD
   CPT23W1         1676/LOOP    1717-IOCD
   CPT23W2         1687/LOOP    1721-IOCD
   CPT23W3         1698/LOOP    1725-IOCD
   CPT24R          1816/LOOP    1836/LOOP    1856/LOOP    1876/LOOP    1890-IOCD
   CPT24R0         1746/LOOP    1752/LI      1822/LI      1842/LI      1862/LI      1882/LI      1892-IOCD
   CPT24R1         1760/LOOP    1770/LI      1894-IOCD
   CPT24R2         1778/LOOP    1788/LI      1896-IOCD
   CPT24R3         1796/LOOP    1802/LI      1898-IOCD
   CPT24W          1742/STH     1746/LOOP    1760/LOOP    1778/LOOP    1796/LOOP    1814/STH     1816/LOOP
      1834/STH     1836/LOOP    1854/STH     1856/LOOP    1874/STH     1876/LOOP    1901-IOCD
   CPT24W0         1738/LI      1810/LI      1813/LI      1905-IOCD
   CPT24W1         1830/LI      1833/LI      1907-IOCD
   CPT24W2         1850/LI      1853/LI      1909-IOCD
   CPT24W3         1870/LI      1873/LI      1911-IOCD
   CPT24W4         1741/LI      1913-IOCD
   CPT25R          2195/DATA    2200-IOCD
   CPT25W          2022/LI      2033/LI      2202-IOCD
   CPT27W          2044/LI      2055/LI      2207-IOCD
   CPT29W          2066/LI      2079/LI      2212-IOCD
   CPT31W          2221/IOTST   2228-IOCD
   CPT32W          2235/IOTST   2239-IOCD    2740/IOTST
   CPT33R          2314/LD      2417-IOCD
   CPT33S          2386/IOTST   2419-IOCD
   CPT33W          2311/LD      2415-IOCD    4505/LD
   CPT34D          2573/IOTST   2639-IOCD
   CPT34M          2598/IOTST   2636-IOCD
   CPT34W0         2466/LI      2529/LH      2632-IOCD
   CPT34W1         2450/STH     2461/LI      2469/LI      2494/MTH     2495/LH      2544/LH      2634-IOCD
   CPT35R          2752/IOTST   2765/IOTST   2791-IOCD
   CPT35W          2694/IOTST   2793-IOCD
   CPT36M          2812/IOTST   2855-IOCD
   CPT36W0         2820/LOOP    2858-IOCD
   CPT36W1         2832/IOTST   2859-IOCD
   CPT37R          2820/LOOP    2906/LOOP    2931/LOOP    2958-IOCD    3050/LOOP
   CPT37W0         2906/LOOP    2948-IOCD
   CPT37W1         2919/IOTST   2951-IOCD    2956/IOCD
   CPT37W2         2918/IOTST   2953-IOCD
   CPT37W3         2931/LOOP    2955-IOCD
   CPT38M          3042/IOTST   3088-IOCD
   CPT38W0         3050/LOOP    3091-IOCD
   CPT38W1         3070/IOTST   3094-IOCD
   CPT836          4627/IOTST   4667-IOCD
   CPT837          4643/IOTST   4668-IOCD
   CPT838          4659/IOTST   4669-IOCD
   DELAY             90-CNAME
   DGNORD          1264/IOCD    3274-EQU
   DIRMUX           466/BE       468/B        470-EQU
   DPM:BEG          540-DATA    1057/LD
   DPM:RES          540/DATA     544-RES
   DPM:STK           81/PSW       86/PLW      543-RES     1058/STD     2008/MTW*    2626/STW*    3172/MTW*
      3207/MTW*    3237/MTW*    3568/MTW*    3820/MTW*    3833/MTW*    3848/LW      3883/MTW*    4979/LW
      5085/PSM     5131/PLM     5462/MTW*    5669/MTW*    5693/PSM     5702/PLM     6147/MTW*    6151/MTW*
   ENTER             79-CNAME
   ERROR             77/OPEN     100-CNAME   6406/CLOSE
   EXIT              84-CNAME
   FAIL             121-CNAME
   FRM              144-CNAME
   GAIOMSG0         528-TEXTC   3166/DATA
   GAIOMSG1         531-TEXTC   3153/STW     3155/STW     3168/DATA    3188/STW     3190/STW     3203/DATA
      3218/STW     3220/STW     3233/DATA
   GAIOMSG2         532-TEXTC   3159/STW     3161/STW     3170/DATA    3194/STW     3196/STW     3205/DATA
      3224/STW     3226/STW     3235/DATA
   GARSMSG0         530-TEXTC   3231/DATA
   GENAIO           142/CNAME   3144-ENTER
   GENAI0          3149/BE      3174-EXIT
   GENARS           143/CNAME   3211-ENTER
   GENARS0         3214/BE      3239-EXIT
   GENDELAY          94/BAL       96/BAL     2929/BAL     3138/BAL     3801-ENTER
   GENDMP3         4354-LW      4396/BL
   GENDMP4         4375-LB      4382/BDR
   GENDMP5         4385/BEZ     4392-BAL
   GENDUMP         4347-ENTER   4451/BAL     4747/BAL
   GENERR          3826/BAL     3837-ENTER
   GENERRM         3843/STW     3844/STW     3857/STW     3858/STW     3881/DATA    3886-TEXTC
   GENERRN         3845/STW     3846/STW     3859/STW     3860/STW     3870/STW     3872/STW     3875/DATA
      3887-TEXTC
   GENERROR         102/BAL     3806-LI
   GENERR0         3866/BEZ     3880-BAL
   GENERR1         3877/B       3883-MTW
   GENFAIL          124/BAL     3809-LI
   GENFAILS        3812-LI
   GENFAILV        3806/LI      3826-BAL
   GENFAILW        3824/B       3833-MTW
   GENFAILX        3819/STW     3823-DATA
   GENFAILY        3817/STW     3827-DATA
   GENFAILZ        3831/B       3835-EXIT
   GENFAIL0        3807/B       3810/B       3814-ENTER
   GENFRAME        4297-ENTER   4449/BAL     4745/BAL
   GENFRM           144/CNAME    158/CNAME   3176-ENTER
   GENFRME0        4331-EQU     4339/BDR
   GENFRM0         3184/BE      3209-EXIT
   GENIOXEQ         139/BAL     3292-ENTER
   GENKEY           603/STW      868/STW      891/STW     1116/STW     1121/STW     2167/STW     2321/STW
      2462/STW     2687/STW     3012/STW     3324/STW     3865/MTW     3868/LW*     3889-RES     4415/STW
   GENLCPTS        2243/STD     2245/LW      2254/LW      2268-RES
   GENLOOP          179/BAL     2242-ENTER
   GENL0           2245-LW      2248/FAIL    2252/FAIL    2257/FAIL
   GENREAD         4263-ENTER   4444/BAL     4740/BAL
   GENREAD0        4286/BE      4291-EQU
   GENREAD1        4278/BLEZ    4288-BAL
   GENRESET         118/BAL     3126-ENTER
   GENRS0          3136/BEZ     3140-EXIT
   GENSNSE         2378/BAL     2382-ENTER   2571/BAL     2772/BAL     2849/BAL     2942/BAL     3082/BAL
   GENSNSE0        2391/B       2395-EXIT
   GENWRITE        4750/BAL     4759-ENTER
   GENWRIT0        4769/BAZ     4777-EQU
   GEN36ADD        2818/BAL     2861-ENTER
   GEN36INV        2830/BAL     2872-ENTER
   GEN37BUF        2814/BAL     2902/BAL     2975-ENTER   3044/BAL
   GEN38ADD        3048/BAL     3068/BAL     3097-ENTER
   GFRMMSG0         529-TEXTC   3201/DATA
   HALFMOVE        4032/BAL     4037/BAL     4042/BAL     4046/BAL     4067-ENTER   4319/BAL     4324/BAL
   HALFREVR        4056/BAL     4082-ENTER   4209/BAL
   HIO             1082-FNAME
   HIOF0           5867-:TSEQEQU
   HIOF1           5867-:TSEQEQU
   HIOF2           5867-:TSEQEQU
   HIOF3           5867-:TSEQEQU
   HIOF4           5867-:TSEQEQU
   HIOF5           5867-:TSEQEQU
   HIOF6           5867-:TSEQEQU
   HIOF7           5867-:TSEQEQU
   HIOT0           5868-:TSEQEQU
   HIOT1           5868-:TSEQEQU
   HIOT2           5868-:TSEQEQU
   HIOT3           5868-:TSEQEQU
   HIOT4           5868-:TSEQEQU
   HIOT5           5868-:TSEQEQU
   HIOT6           5868-:TSEQEQU
   HIOT7           5868-:TSEQEQU
   HIOX0           5880-:TSEQEQU
   HIOX1           5880-:TSEQEQU
   HIOX2           5880-:TSEQEQU
   HIOX3           5880-:TSEQEQU
   HIOX4           5880-:TSEQEQU
   HIOX5           5880-:TSEQEQU
   HIOX6           5880-:TSEQEQU
   HIOX7           5880-:TSEQEQU
   INDEX            235-DO       236/DATA    3246-DO      3247-SET     3247/SET     3250-DO      3251/SET
      3263-DO      3264/DO      3265-SET     3265/SET     3267-SET     3267/SET
   INITERR          535-TEXTC    661/LI
   INTFLAG         5618/MTW     5623/STW     5758/MTW     5761/MTW     5768-RES     5784/STW     5804/STW
      5821/STW
   INTSTAT         2661/LW      5622/LW      5763/STW     5767-RES     5785/STW
   IOCD             211-CNAME
   IOCDMSG         1982/BAL     1984/BAL     3276-ENTER
   IOCDMSGM         533-TEXTC   3279/STW     3281/STW     3284/STW     3286/STW     3288/DATA
   IOCD25          2089/STW     2113/STW     2138/LD      2194-DATA
   IOTST            182-CNAME
   IOVECT           546-DATA     548/XPSD    5704/LPSD
   IOXEQ            133-CNAME
   IOXPSD           548-XPSD    1064/LW
   ISB             1086-FNAME   1265/:TSEQ   1288/:TSEQ   1322/:TSEQ   1335/:TSEQ   1351/:TSEQ   1367/:TSEQ
      1388/:TSEQ   1391/:TSEQ   1394/:TSEQ   1447/:TSEQ   1503/:TSEQ   1506/:TSEQ   1509/:TSEQ   1530/:TSEQ
      1533/:TSEQ   1604/:TSEQ   1607/:TSEQ   1632/:TSEQ   2225/:TSEQ   2261/:TSEQ   2264/:TSEQ   2285/:TSEQ
      2289/:TSEQ   2423/:TSEQ   2426/:TSEQ   2641/:TSEQ   2644/:TSEQ   2647/:TSEQ   2796/:TSEQ   4463/:TSEQ
      4605/:TSEQ
   ISBF0           5875-:TSEQEQU
   ISBF1           5875-:TSEQEQU
   ISBF2           5875-:TSEQEQU
   ISBF3           5875-:TSEQEQU
   ISBF4           5875-:TSEQEQU
   ISBF5           5875-:TSEQEQU
   ISBF6           5875-:TSEQEQU
   ISBF7           5875-:TSEQEQU
   ISBT0           5876-:TSEQEQU
   ISBT1           5876-:TSEQEQU
   ISBT2           5876-:TSEQEQU
   ISBT3           5876-:TSEQEQU
   ISBT4           5876-:TSEQEQU
   ISBT5           5876-:TSEQEQU
   ISBT6           5876-:TSEQEQU
   ISBT7           5876-:TSEQEQU
   ISBX0           5884-:TSEQEQU
   ISBX1           5884-:TSEQEQU
   ISBX2           5884-:TSEQEQU
   ISBX3           5884-:TSEQEQU
   ISBX4           5884-:TSEQEQU
   ISBX5           5884-:TSEQEQU
   ISBX6           5884-:TSEQEQU
   ISBX7           5884-:TSEQEQU
   ITHDIS           498/BAL      510-ENTER    600/BAL
   ITHDLR           486-STW      591/LI       859/LI       900/LI
   ITHM2            490/STB      492/DATA     525-TEXTC
   ITHM3            514/STH      516/DATA     526-TEXTC
   ITHM4            502/STW      504/DATA     527-TEXTC    756/STW      762/DATA
   ITHRST           506/LW       522-DATA     596/STW      863/STW      904/STW
   ITHSUBT          512/LW       521-DATA     594/STW      866/STW      907/STW     3727/LW      4704/LW
      4958/LW
   ITHTEST          488/LW       494/CW       496/CW       520-DATA     583/CW       687/STW      743/STW
       771/MTW      792/LW       833/STW      873/CW       902/STW      950/STW     3356/MTW     3724/CW
      3737/MTW     4964/LW      4972/LW
   JNDEX           3251-SET     3252-SET     3252/SET
   L                199/LW      2406/REFRM   2707/LW      2712/LW      2715/LW      2745/LW      2754/REFRM
      2758/LW      2809/LW      2842/CW      2875/EOR     2876/EOR     2998/LW      3001/LW      3039/LW
      3100/OR      4372/LW      4500/LW      4824/AW      4974/AW
   LEARN           4293/STH     4761/IOXEQ   4782-IOCD
   LIMT             476/B        969-EQU
   LISTEN          4268/IOTST   4461-IOCD
   LMT00           1038-BAL     1043/B       1046/B       1049/B       1053/B
   LMT01            978/B        984-LW
   LMT02            979/B        990-LW
   LMT03            980/B       1002-LW
   LMT04            981/B       1016-LW
   LMT04A          1017/BEZ     1025-LW
   LMT05            982/B       1032-LW
   LMT10            721/BLEZ     724/BG       810/BLZ      910/BL       912/BG       971/BLEZ     974/BG
      1042-STW
   LMT20            726/BG       817/BG      1003/BLZ     1005/BG      1045-STW     4513/BL      4515/BG
   LMT30            822/BG      1048-STW     4498/BLZ
   LMT40           1051-LI
   LNGTST          3383/STW     3905-RES     3934/LW
   LOOP             172-CNAME
   LOOP25          2096/BAL     2120/BAL     2133-ENTER
   LP0             2136-BAL     2141/FAIL    2143/FRM     2148/ERROR
   LP1             2146/B       2150-EXIT
   LP2             2138-LD
   MODES           1275/MTB     1302/MTB     1354/IOCD    1397/IOCD    1398/IOCD    1400/IOCD    1401/IOCD
      1403/IOCD    1404/IOCD    1406/IOCD    1407/IOCD    1424/IOCD    1425/IOCD    1427/IOCD    1428/IOCD
      1430/IOCD    1431/IOCD    1433/IOCD    1434/IOCD    1500/IOCD    1597/IOCD    1598/IOCD    1599/IOCD
      1713/IOCD    1714/IOCD    1715/IOCD    1717/IOCD    1718/IOCD    1719/IOCD    1721/IOCD    1722/IOCD
      1723/IOCD    1725/IOCD    1726/IOCD    1727/IOCD    1901/IOCD    1902/IOCD    1903/IOCD    2202/IOCD
      2203/IOCD    2204/IOCD    2207/IOCD    2208/IOCD    2209/IOCD    2212/IOCD    2213/IOCD    2214/IOCD
      2228/IOCD    2229/IOCD    2239/IOCD    2240/IOCD    2636/IOCD    2637/IOCD    2855/IOCD    2856/IOCD
      2948/IOCD    2949/IOCD    3088/IOCD    3089/IOCD    3271-TABLE   3273/EQU     3274/EQU     3756/IOCD
      3757/IOCD    3760/IOCD    3761/IOCD    4255/IOCD    4256/IOCD    4257/IOCD    4785/IOCD    4786/IOCD
   MSGPRN           653/BAL     4063/BAL     4099-ENTER   4199/BAL     4238/BAL     4249/BAL     4343/BAL
      4400/BAL     4631/BAL     4647/BAL     4663/BAL     4836/BAL     4911/BAL
   MSGPRN0         4101-STW     4111/BLE
   MUXBEG           464-LD       467/BDR
   MUXEND           462/B        467-BDR
   MXRAND           999/STW     3892-DATA    3980/CW
   MYATTN          1585/BAL     1620/BAL     1645/BAL     2250/BAL     2270-ENTER   2750/BAL     2763/BAL
   MYATTN0         2274/B       2283-EXIT
   MYDELAY         1258/BAL     2476/BAL     2482/BAL     3298/BAL     4951-ENTER
   MYDELAY0        4959/BEZ     4972-LW
   MYDELAY1        4970/B       4979-LW
   MYDELAY2        4953/B       4992-EXIT
   MYDELAY4        4956-BAL
   NOATTN          2281/DATA    2287-TEXTC
   OLOOP25         2023/BAL     2045/BAL     2067/BAL     2112-ENTER
   OLP0            2120-BAL     2127/B
   OLP1            2123/BEZ     2129-EXIT
   ORDERS          1136/MTB     3255-TABLE
   OSB             1081-FNAME   1153/:TSEQ   1174/:TSEQ   1220/:TSEQ   1245/:TSEQ   1265/:TSEQ   1288/:TSEQ
      1322/:TSEQ   1335/:TSEQ   1351/:TSEQ   1367/:TSEQ   1388/:TSEQ   1391/:TSEQ   1394/:TSEQ   1447/:TSEQ
      1503/:TSEQ   1506/:TSEQ   1509/:TSEQ   1530/:TSEQ   1533/:TSEQ   1604/:TSEQ   1607/:TSEQ   1632/:TSEQ
      2225/:TSEQ   2261/:TSEQ   2264/:TSEQ   2289/:TSEQ   2423/:TSEQ   2426/:TSEQ   2641/:TSEQ   2644/:TSEQ
      2647/:TSEQ   2796/:TSEQ   4463/:TSEQ   4605/:TSEQ
   OSBF0           5865-:TSEQEQU
   OSBF1           5865-:TSEQEQU
   OSBF2           5865-:TSEQEQU
   OSBF3           5865-:TSEQEQU
   OSBF4           5865-:TSEQEQU
   OSBF5           5865-:TSEQEQU
   OSBF6           5865-:TSEQEQU
   OSBF7           5865-:TSEQEQU
   OSBT0           5866-:TSEQEQU
   OSBT1           5866-:TSEQEQU
   OSBT2           5866-:TSEQEQU
   OSBT3           5866-:TSEQEQU
   OSBT4           5866-:TSEQEQU
   OSBT5           5866-:TSEQEQU
   OSBT6           5866-:TSEQEQU
   OSBT7           5866-:TSEQEQU
   OSBX0           5879-:TSEQEQU
   OSBX1           5879-:TSEQEQU
   OSBX2           5879-:TSEQEQU
   OSBX3           5879-:TSEQEQU
   OSBX4           5879-:TSEQEQU
   OSBX5           5879-:TSEQEQU
   OSBX6           5879-:TSEQEQU
   OSBX7           5879-:TSEQEQU
   PHYADD35        1020/STW     1021/STW     1028/STD     3359/LD      4553/LD      4613-DATA    4667/IOCD
      4668/IOCD    4669/IOCD    4674/LD
   PHYSADD0        2335/STD     2810/STD     2836/LD      2845/STD     2863/LD      3040/STD     3060/LD
      3065/STD     3074/LD      3078/STD     3099/LD      3519/LD      3712/STD     3764-RES     3790/IOCD
      3793/IOCD    4551/STD     4714/STD
   PHYSADD1        2336/STD     3360/STD     3480/LD      3716/STD     3765-RES     3789/IOCD    3794/IOCD
      4554/STD
   RABA            3898-RES     3911/STW     3916/STW     3970/LW      3988/LW      3997/AWM
   RABC            3899-RES     3938/STW     3960/CW      3965/LW      3994/AWM
   RBUILD0         3913/BAL     3922-EQU
   RBUILD1         3918/BAL     3926-EQU
   RBUILD3         3924/B       3928/B       3930-EQU
   RBUILD4         3942-EQU     4000/B
   RBUILD5         3944/BANZ    3952-EQU
   RBUILD6         3950/B       3957-EQU
   RBUILD7         3963-EQU     3981/BGE
   RBUILD8         3961/BL      3979-EQU
   RCBC            3900-RES     3958/STW     3984/LW      3993/LCW
   REAL            3244-SET     3246/DO      3247-SET     3247/SET     3260-SET     3263/DO      3264/DO
      3265-SET     3265/SET     3267-SET     3267/SET
   REATTN          3562-ENTER   3587/BAL     3628/BAL     3653/BAL     3694/BAL     4430/BAL     4726/BAL
   REATTN0         3566/B       3572-FAIL
   REBUILD         3387/BAL     3907-EQU
   RECLEAR         2402/BAL     2748/BAL     2761/BAL     2816/BAL     2904/BAL     2925/BAL     3046/BAL
      3549-LW      3581/BAL     3647/BAL     4265/BAL
   RECNT           2320/LI      2341/STW     2345/MTW     2350/STW     2354/MTW     2358/STW     3416/STW
      3419/MTW     3424/STW     3427/MTW     3432/STW     3435/MTW     3440/STW     3443/MTW     3583/LW
      3621/LW      3649/LW      3687/LW      3770-RES
   RECNTBEG        3326/LI      3781-EQU
   RECNTEND        3326/LI      3328/STW     3787-EQU
   RECNT0          2342/STW     2348/LW      2351/STW     2359/STW     3399/STW     3414/LW      3430/LW
      3622/CW      3650/CW      3771-RES
   RECNT1          3410/STW     3422/LW      3438/LW      3584/CW      3688/CW      3772-RES
   RECOME          3503/LW      3535/LW      3608/MTW     3674/MTW     3785-RES     4597/MTW     4773/MTW
   RECOMPAT        2298/BAL     3302-ENTER   3336/BAL
   RECOUNT         1114/STW     1115/LI      3323/LI      3331/STW     3447/MTW     3452/LW      3456/LW
      3462/LW      3779-RES     4567/MTW     4571/LW      4578/LW
   REDISP0         3474/DATA    3797-TEXTC
   REDISP1         3478/STW     3482/STW     3484/STW     3488/STW     3492/STW     3494/STH     3505/STW
      3507/STH     3510/DATA    3517/STW     3521/STW     3523/STW     3527/STW     3531/STW     3533/STH
      3537/STW     3539/STH     3542/DATA    3798-TEXTC
   REDONE          3450/BCS     3454/BGE     3461-EQU
   REFRM            158-CNAME
   REGETADD        3711/BAL     3715/BAL     3720-ENTER   4546/BAL
   REGETAD0        3738/BEZ     3744-IOTST
   REGETAD1        3735/BNE     3742/BAZ     3748-IOTST
   REGETAD2        3746/B       3750-LW
   REGETAD3        3729/BGE     3733-LW
   REGETAD4        3725/BNE     3731-RESET
   REGONE          3490/LW      3529/LW      3619/MTW     3685/MTW     3784-RES     4588/MTW     4732/LW
      4752/LW      4763/MTW
   RELENG          2309/STW     3385/STW     3601/REFRM   3667/REFRM   3777-RES
   RELIMIT          693/STW      774/MTW      813/STW     2828/MTW     2834/MTW     2914/MTW     2921/MTW
      2939/MTW     3011/LI      3015/STW     3058/MTW     3072/MTW     3453/CW      3778-RES     4501/STW
      4568/MTW
   RELOOP          3366-BAL     3459/B
   RELOST          3597/MTW     3638/MTW     3663/MTW     3704/MTW     3783-RES
   REMASK0          696/STW      782/STW      818/STW      825/MTW      829/STW     3396/CW      3398/LW
      3774-RES
   REMASK1          697/STW      783/STW      823/STW      830/STW     2318/STW     3350/STW     3407/CW
      3409/LW      3775-RES
   REPHYS          3340/BAL     3708-ENTER
   RERCVS          2369/LI      2397-ENTER
   RERCVS0         2409/B       2413-EXIT
   RERCV0          3442/BAL     3576-ENTER
   RERCV00         3585/BE      3588/B       3599-IOTST
   RERCV01         3604/B       3608-MTW
   RERCV1          2353/BAL     2363/LI      2375/BAL     3434/BAL     3642-ENTER
   RERCV10         3651/BE      3654/B       3665-IOTST
   RERCV11         3670/B       3674-MTW
   RERESET         3321-ENTER   3338/BAL     4503/BAL     4716/BAL
   RESET            111-CNAME
   RESETS          4922-EQU     4956/BAL
   RESNGL0         3415/BEZ     3422-LW
   RESNGL1         3423/BEZ     3430-LW
   RESNGL2         3431/BEZ     3438-LW
   RESNGL3         3439/BEZ     3446-EQU
   RESUM           3465/BAL     3468-ENTER   4581/BAL     4735/BAL
   RESUM0          3514/BE      3544-BAL
   REWRNLF         3592/STW     3595/DATA    3633/STW     3636/DATA    3658/STW     3661/DATA    3699/STW
      3702/DATA    3799-TEXTC
   REWR0           3617/IOTST   3789-IOCD    4586/IOXEQ
   REWR1           3683/IOTST   3793-IOCD
   REXMT0          2344/BAL     2361/BAL     2373/BAL     3418/BAL     3612-ENTER
   REXMT00         3623/BNE     3629/B       3640-EXIT
   REXMT1          3426/BAL     3678-ENTER
   REXMT11         3689/BNE     3695/B       3706-EXIT
   RFRAND          2315/STD     2404/IOTST   3599/IOTST   3665/IOTST   3896-RES     3917/LI
   RINIT24         1744/BAL     1758/BAL     1776/BAL     1794/BAL     1808/BAL     1828/BAL     1848/BAL
      1868/BAL     1939-LI
   RINIT25         2136/BAL     2181-ENTER
   RIOCD           3902-RES     3932/STW     3976/STD*    3991/STD*
   RMAX             995/CI       997/LI      3891-EQU     3892/DATA    3895/RES     3896/RES
   RORDER          3903-RES     3931/STW     3964/LW      3987/LW
   RPAT25          2094/STW     2118/STW     2183/LW      2198-RES
   RSTORD          1219/IOCD    1244/IOCD    3273-EQU
   S:LIST            36/DO
   S:PT               4/EQU
   SETONLNE        2456/BAL     2459/BAL     2593-ENTER
   SIO             1084-FNAME
   SIOF0           5871-:TSEQEQU
   SIOF1           5871-:TSEQEQU
   SIOF2           5871-:TSEQEQU
   SIOF3           5871-:TSEQEQU
   SIOF4           5871-:TSEQEQU
   SIOF5           5871-:TSEQEQU
   SIOF6           5871-:TSEQEQU
   SIOF7           5871-:TSEQEQU
   SIOT0           5872-:TSEQEQU
   SIOT1           5872-:TSEQEQU
   SIOT2           5872-:TSEQEQU
   SIOT3           5872-:TSEQEQU
   SIOT4           5872-:TSEQEQU
   SIOT5           5872-:TSEQEQU
   SIOT6           5872-:TSEQEQU
   SIOT7           5872-:TSEQEQU
   SIOX0           5882-:TSEQEQU
   SIOX1           5882-:TSEQEQU
   SIOX2           5882-:TSEQEQU
   SIOX3           5882-:TSEQEQU
   SIOX4           5882-:TSEQEQU
   SIOX5           5882-:TSEQEQU
   SIOX6           5882-:TSEQEQU
   SIOX7           5882-:TSEQEQU
   SNSECOMP        2384/BAL     2579-ENTER
   SNSELOOP        2331/IOTST   3744/IOTST   3759-IOCD
   SNSEONLN        2327/IOTST   3748/IOTST   3755-IOCD
   SPACE            537-TEXTC   3164/DATA    3199/DATA    3229/DATA    3471/DATA    3545/DATA    3863/DATA
      4218/DATA    4988/DATA    5481/DATA    6041/DATA    6161/DATA
   STATM           4909/LI      4915-TEXTC
   STATM0          4862/STH     4870/STW     4874/STW     4875/STB     4879/STW     4881/STW     4916-TEXTC
   STATM1          4892/STW     4896/STW     4897/STB     4901/STW     4903/STW     4907/STH     4910/LI
      4917-TEXTC
   STATUS          4288/BAL     4856-ENTER   6132/BAL
   STUDY           4710/IOTST   4784-IOCD
   ST24CPTS        1950/STW     1981/LD*     1983/LD*     2014-RES
   ST24CPTX        1970-CB      1977/BL
   ST24CPTY        1958-CB      1965/BL
   ST24CPTZ        1959/BNE     1971/BNE     1981-LD
   SUBTST           220-CNAME
   TABLE            229-CNAME
   TDV             1083-FNAME   1153/:TSEQ   1174/:TSEQ   1220/:TSEQ   1245/:TSEQ   1265/:TSEQ   1288/:TSEQ
      1322/:TSEQ   1335/:TSEQ   1351/:TSEQ   1367/:TSEQ   1388/:TSEQ   1391/:TSEQ   1394/:TSEQ   1447/:TSEQ
      1503/:TSEQ   1506/:TSEQ   1509/:TSEQ   1530/:TSEQ   1533/:TSEQ   1604/:TSEQ   1607/:TSEQ   1610/:TSEQ
      1632/:TSEQ   2225/:TSEQ   2261/:TSEQ   2264/:TSEQ   2285/:TSEQ   2289/:TSEQ   2423/:TSEQ   2426/:TSEQ
      2641/:TSEQ   2644/:TSEQ   2647/:TSEQ   2796/:TSEQ   4463/:TSEQ   4605/:TSEQ
   TDVF0           5869-:TSEQEQU
   TDVF1           5869-:TSEQEQU
   TDVF2           5869-:TSEQEQU
   TDVF3           5869-:TSEQEQU
   TDVF4           5869-:TSEQEQU
   TDVF5           5869-:TSEQEQU
   TDVF6           5869-:TSEQEQU
   TDVF7           5869-:TSEQEQU
   TDVT0           5870-:TSEQEQU
   TDVT1           5870-:TSEQEQU
   TDVT2           5870-:TSEQEQU
   TDVT3           5870-:TSEQEQU
   TDVT4           5870-:TSEQEQU
   TDVT5           5870-:TSEQEQU
   TDVT6           5870-:TSEQEQU
   TDVT7           5870-:TSEQEQU
   TDVX0           5881-:TSEQEQU
   TDVX1           5881-:TSEQEQU
   TDVX2           5881-:TSEQEQU
   TDVX3           5881-:TSEQEQU
   TDVX4           5881-:TSEQEQU
   TDVX5           5881-:TSEQEQU
   TDVX6           5881-:TSEQEQU
   TDVX7           5881-:TSEQEQU
   TEST             341/:PROCDIC 342/:PROCDIC 343/:PROCDIC 344/:PROCDIC 345/:PROCDIC 346/:PROCDIC 457-EQU
   TIMECOND        3457/BAL     4457/BAL     4572/BAL     4753/BAL     4788-EQU
   TIMEDISP        3463/BAL     4440/BAL     4579/BAL     4733/BAL     4804-EQU
   TIMEFLAG        3363/STW     4419/STW     4557/STW     4723/STW     4828/MTW     4834/STW     4838/LW
      4841/MTW     4845-RES
   TIMEMSG0        4827/LI      4848-TEXTC
   TIMEMSG1        4809/STH     4811/STH     4813/STB     4821/STW     4825/STW     4830/LI      4831/LI
      4850-TEXTC
   TIMEOUT          524-TEXTC   4968/STW     4969/STW     4975/STW     4977/STW     4985/STW     4990/DATA
   TIMEOUTS        4799/BNEZ    4843-EXIT
   TIMESNAP        1033/STW     2927/LW      4789/MTW     4797/DW      4846-RES
   TIMEUNCD        4802/B       4807-EQU
   TIO             1080-FNAME   1153/:TSEQ   1174/:TSEQ   1220/:TSEQ   1245/:TSEQ   1265/:TSEQ   1288/:TSEQ
      1322/:TSEQ   1335/:TSEQ   1351/:TSEQ   1367/:TSEQ   1388/:TSEQ   1391/:TSEQ   1394/:TSEQ   1447/:TSEQ
      1503/:TSEQ   1506/:TSEQ   1509/:TSEQ   1530/:TSEQ   1533/:TSEQ   1604/:TSEQ   1607/:TSEQ   1610/:TSEQ
      1632/:TSEQ   2225/:TSEQ   2261/:TSEQ   2264/:TSEQ   2289/:TSEQ   2423/:TSEQ   2426/:TSEQ   2641/:TSEQ
      2644/:TSEQ   2647/:TSEQ   2796/:TSEQ   4463/:TSEQ   4605/:TSEQ
   TIOF0           5863-:TSEQEQU
   TIOF1           5863-:TSEQEQU
   TIOF2           5863-:TSEQEQU
   TIOF3           5863-:TSEQEQU
   TIOF4           5863-:TSEQEQU
   TIOF5           5863-:TSEQEQU
   TIOF6           5863-:TSEQEQU
   TIOF7           5863-:TSEQEQU
   TIOT0           5864-:TSEQEQU
   TIOT1           5864-:TSEQEQU
   TIOT2           5864-:TSEQEQU
   TIOT3           5864-:TSEQEQU
   TIOT4           5864-:TSEQEQU
   TIOT5           5864-:TSEQEQU
   TIOT6           5864-:TSEQEQU
   TIOT7           5864-:TSEQEQU
   TIOX0           5878-:TSEQEQU
   TIOX1           5878-:TSEQEQU
   TIOX2           5878-:TSEQEQU
   TIOX3           5878-:TSEQEQU
   TIOX4           5878-:TSEQEQU
   TIOX5           5878-:TSEQEQU
   TIOX6           5878-:TSEQEQU
   TIOX7           5878-:TSEQEQU
   TITLE              4-EQU      240/TITLE    394/TEXTC
   TSEQATTN        1587/FAIL    1622/FAIL    1647/FAIL    2252/FAIL    2285-:TSEQ   3572/FAIL
   TSEQCRCE        2752/IOTST   2796-:TSEQ
   TSEQGENL        1818/FAIL    1838/FAIL    1858/FAIL    1878/FAIL    2141/FAIL    2152-:TSEQ   2822/FAIL
      2908/FAIL    2933/FAIL    3052/FAIL
   TSEQGENR        2257/FAIL    2264-:TSEQ   4187/IOTST
   TSEQGENW        2248/FAIL    2261-:TSEQ
   TSEQNORM        2573/IOTST   2647-:TSEQ   2765/IOTST   2832/IOTST   4778/FAIL
   TSEQNRML        2289-:TSEQ   2327/IOTST   2331/IOTST   2694/IOTST   2740/IOTST   2812/IOTST   2918/IOTST
      2919/IOTST   3042/IOTST   3599/IOTST   3617/IOTST   3665/IOTST   3683/IOTST   3744/IOTST   3748/IOTST
      4240/IOTST   4251/IOTST   4601/FAIL    4627/IOTST   4643/IOTST   4659/IOTST   4710/IOTST
   TSEQ0200        1144/FAIL    1153-:TSEQ
   TSEQ0300        1165/FAIL    1174-:TSEQ   1186/FAIL
   TSEQ0500        1207/FAIL    1220-:TSEQ
   TSEQ0600        1232/FAIL    1245-:TSEQ
   TSEQ0700        1260/FAIL    1265-:TSEQ
   TSEQ0801        1280/FAIL    1288-:TSEQ
   TSEQ0901        1314/FAIL    1322-:TSEQ
   TSEQ1001        1331/FAIL    1335-:TSEQ
   TSEQ1101        1347/FAIL    1351-:TSEQ
   TSEQ1201        1363/FAIL    1367-:TSEQ
   TSEQ1301        1378/IOTST   1394-:TSEQ   1414/IOTST
   TSEQ1302        1380/IOTST   1382/IOTST   1391-:TSEQ   1416/IOTST   1418/IOTST
   TSEQ1304        1384/IOTST   1388-:TSEQ   1420/IOTST
   TSEQ1501        1441/IOTST   1443/IOTST   1447-:TSEQ   1460/IOTST   1462/IOTST   1464/IOTST   1466/IOTST
   TSEQ1701        1488/IOTST   1489/IOTST   1503-:TSEQ
   TSEQ1703        1490/IOTST   1491/IOTST   1506-:TSEQ
   TSEQ1705        1492/IOTST   1509-:TSEQ
   TSEQ1801        1518/FAIL    1530-:TSEQ   1545/FAIL    1651/FAIL
   TSEQ1803        1442/IOTST   1461/IOTST   1465/IOTST   1524/FAIL    1533-:TSEQ   1549/FAIL    1591/FAIL
      4025/IOTST
   TSEQ2000        1575/FAIL    1604-:TSEQ
   TSEQ2001        1583/FAIL    1607-:TSEQ   1618/FAIL    1643/FAIL
   TSEQ2002        1579/FAIL    1610-:TSEQ
   TSEQ2103        1626/FAIL    1632-:TSEQ
   TSEQ2301        1667/FAIL    1678/FAIL    1689/FAIL    1700/FAIL    1711-:TSEQ
   TSEQ2401        1748/FAIL    1762/FAIL    1780/FAIL    1798/FAIL    1947-:TSEQ
   TSEQ3101        2221/IOTST   2225-:TSEQ   2235/IOTST
   TSEQ3301        2404/IOTST   2423-:TSEQ
   TSEQ3304        2386/IOTST   2426-:TSEQ
   TSEQ3400        2598/IOTST   2641-:TSEQ   3070/IOTST
   TSEQ3404        2568/FAIL    2644-:TSEQ
   TSEQ8340        4268/IOTST   4463-:TSEQ
   TSEQ8351        4595/FAIL    4605-:TSEQ   4771/FAIL
   TSTAIO           142-CNAME
   TST0             471/B        684-EQU
   TST0A            699-LI       709/B
   TST0RE           536-TEXTC   3343/DATA
   TST002           707-BAL      793/BEZ
   TST1             472/B        595/LI       718-EQU      799/B
   TST101           705/B        744/B        746-EQU      795/BE       961/B
   TST101C          728/BLE      731/BNE      735-STW
   TST102           750-LW       790/BL
   TST103           759/BCS      764-EQU
   TST104           772/BNEZ     775/BEZ      787-MTW      874/BNE
   TST2             473/B        808-EQU      862/LI
   TST2LEN         4002-EQU
   TST2LUP         4005-EQU     4018/B
   TST201           826/BNEZ     832-EQU
   TST202           850/BE       854/BAZ      859-LI
   TST203           872-EQU     3466/B
   TST3             474/B        887-EQU      903/LI
   TST3A            897-LW       931/BL
   TST3B            928-MTW     4065/B       4202/BEZ     4220/B       4242/B       4253/B       4437/BEZ
      4442/B       4582/B       4633/B       4649/B       4665/B       4737/B
   TST3C            893-EQU      937/B
   TST3LOOP         888/STW      890/LI       936/MTW      939-RES
   TST31            916/B       4024-EQU
   TST31M0         4048/LI      4061/LI      4115-TEXTC
   TST31M1         4031/LI      4117-TEXTC
   TST31M2         4052/LI      4119-TEXTC
   TST31M3         4036/LI      4132-TEXTC
   TST31M4         4041/LI      4134-TEXTC
   TST31M5         4062/LI      4136-TEXTC
   TST32            917/B       4186-EQU
   TST32M0         4138-TEXTC   4194/LI      4197/LI
   TST32M00        4139-TEXTC   4198/LI
   TST32M1         4140-TEXTC   4207/LI      4212/DATA
   TST320          4207-LI      4215/BDR
   TST33            918/B       4226-EQU
   TST33M0         4155-TEXTC   4233/LI      4236/LI
   TST33M00        4156-TEXTC   4237/LI
   TST33M1         4157-TEXTC   4244/LI      4247/LI
   TST33M11        4158-TEXTC   4248/LI
   TST33W0         4233-LI
   TST33W1         4231/BEZ     4244-LI
   TST34            919/B       4407-EQU
   TST34CNT        4266/MTW     4299/LW      4414/LI      4418/STW     4439/LW      4456/LW      4467-DATA
   TST34LAC        4271/STW     4307/LW      4468-DATA
   TST34MA         4144-TEXTC   4341/LI
   TST34MB         4149-TEXTC   4342/LI
   TST34MC         4152-TEXTC   4398/LI
   TST34MD         4154-TEXTC   4399/LI
   TST34M0         4142-TEXTC   4408/LI      4412/DATA
   TST34M1         4145-TEXTC   4301/STW     4305/STW     4312/STH     4314/STH
   TST34M2         4147-TEXTC   4318/LI
   TST34M3         4148-TEXTC   4323/LI
   TST34M4         4153-TEXTC   4334/STH
   TST34M5         4151-TEXTC   4373/STS     4377/STH     4388/STH     4393/DATA
   TST34SCN        2507/BAL     2513/BAL     2559-ENTER
   TST340          4430-BAL     4434/BCR     4459/B
   TST340A         4433-BAL     4453/B
   TST341          4431/B       4444-BAL
   TST342          4447/BNEZ    4455-EQU
   TST35            920/B        925/B       4474-EQU
   TST35DAT        1009/STW     4481/LW      4609-DATA
   TST35INC        1012/STW     4484/LW      4610-DATA
   TST35M0         4159-TEXTC   4531/LI
   TST35M1         4160-TEXTC   4537/LI
   TST35PAT        1006/STW     4478/LW      4608-DATA
   TST35XMT        4565/BAL     4584-ENTER
   TST35XMU        4593/BAZ     4601-FAIL
   TST3500         4488/BNE     4493-LW
   TST3501         4560-CW      4575/BCR
   TST3502         4569/BEZ     4577-EQU
   TST36            921/B       4619-EQU
   TST36M0         4161-TEXTC   4621/LI      4629/LI
   TST36M1         4163-TEXTC   4624/LI
   TST36M2         4164-TEXTC   4630/LI
   TST37            922/B       4635-EQU
   TST37M0         4165-TEXTC   4637/LI      4645/LI
   TST37M1         4167-TEXTC   4640/LI
   TST37M2         4168-TEXTC   4646/LI
   TST38            923/B       4651-EQU
   TST38M0         4169-TEXTC   4653/LI      4661/LI
   TST38M1         4171-TEXTC   4656/LI
   TST38M2         4172-TEXTC   4662/LI
   TST39            924/B        926/B       4693-EQU
   TST39M0         4694/LI      4698/DATA    4757-TEXTC
   TST390          4725-EQU     4730/BCR
   TST390A         4729-BAL     4755/B
   TST391          4727/B       4739-EQU
   TST392          4743/BEZ     4749-EQU
   TST393          4706/BE      4710-IOTST
   TST4             475/B        948-EQU
   T1ST0000        1108/BCR     1113-EQU
   T1ST0001        1111/BE      1123-EQU
   T1ST0200        1136-MTB     1148/BNEZ
   T1ST0201        1139-LI      1144/FAIL
   T1ST0202        1137/BNEZ    1146-MTB
   T1ST0300        1160-LI      1165/FAIL
   T1ST0301        1167-:HIO    1169/:TIO
   T1ST0400        1181-LI      1186/FAIL    1188/:AIO    1192/:TIO    1194/TSTAIO
   T1ST0500        1202-LI      1207/FAIL    1209/:AIO    1213/:TIO    1215/TSTAIO
   T1ST0800        1275-MTB     1284/BNEZ
   T1ST0801        1278-IOXEQ   1280/FAIL
   T1ST0802        1276/BNEZ    1282-MTB
   T1ST0900        1302-MTB     1318/BNEZ
   T1ST0901        1312-IOXEQ   1314/FAIL
   T1ST0902        1303/BEZ     1306/BE      1308/BE      1310/BE      1316-MTB
   T1ST1001        1329-IOXEQ   1331/FAIL
   T1ST1101        1345-IOXEQ   1347/FAIL
   T1ST1201        1361-IOXEQ   1363/FAIL
   T1ST1801        1516-IOXEQ   1518/FAIL    1520/FRM
   T1ST1803        1522-IOXEQ   1524/FAIL    1526/FRM
   T1ST1901        1543-IOXEQ   1545/FAIL
   T1ST1903        1547-IOXEQ   1549/FAIL    1551/FRM
   T1ST2001        1563-LI      1575/FAIL    1579/FAIL
   T1ST2003        1581-IOXEQ   1583/FAIL    1587/FAIL    1591/FAIL    1593/FRM
   T1ST2301        1665-LOOP    1667/FAIL    1669/FRM     1674/ARS
   T1ST2304        1676-LOOP    1678/FAIL    1680/FRM     1685/ARS
   T1ST2307        1687-LOOP    1689/FAIL    1691/FRM     1696/ARS
   T1ST2310        1698-LOOP    1700/FAIL    1702/FRM     1707/ARS
   T1ST24CP        1753/BAL     1771/BAL     1789/BAL     1803/BAL     1823/BAL     1843/BAL     1863/BAL
      1883/BAL     1949-ENTER
   T1ST2401        1744-BAL     1748/FAIL    1750/FRM     1756/ERROR
   T1ST2404        1754/B       1758-BAL     1762/FAIL    1768/FRM     1774/ERROR
   T1ST2407        1772/B       1776-BAL     1780/FAIL    1786/FRM     1792/ERROR
   T1ST2410        1790/B       1794-BAL     1798/FAIL    1800/FRM     1806/ERROR
   T1ST2413        1804/B       1808-BAL     1818/FAIL    1820/FRM     1826/ERROR
   T1ST2416        1824/B       1828-BAL     1838/FAIL    1840/FRM     1846/ERROR
   T1ST2419        1844/B       1848-BAL     1858/FAIL    1860/FRM     1866/ERROR
   T1ST2422        1864/B       1868-BAL     1878/FAIL    1880/FRM     1886/ERROR
   T1ST2425        1884/B       1888-B
   T1ST3300        2327-IOTST
   T1ST3301        2325/BANZ    2331-IOTST
   T1ST3302        2329/B       2333-LW
   T1ST3402        2464-BAL     2497/BG
   T1ST3403        2487/BANZ    2492/BANZ    2506-LW
   T1ST3600        2816-BAL     2846/B
   T1ST3603        2838/BANZ    2848-LI
   T1ST3800        3046-BAL     3066/B
   T1ST3803        3062/BANZ    3068-BAL     3079/B
   T1ST3804        3075/BLZ     3081-LI
   T2RE             785/B        870/B        878/B       3335-EQU
   T2RF            3347/BNE     3354/BANZ    3357/BEZ     3362-LI
   T34DLY          2510/STW     2516/STW     2524/LW      2539/LW      2557-RES
   T34M0           2519/DATA    2553-TEXTC
   T34M1           2523/STW     2526/STH     2528/STH     2531/STW     2534/DATA    2538/STW     2541/STH
      2543/STH     2546/STW     2549/DATA    2554-TEXTC
   T34M2           2500/DATA    2555-TEXTC
   UNITMOVE        4049/BAL     4174-ENTER   4195/BAL     4234/BAL     4245/BAL     4409/BAL     4539/BAL
      4622/BAL     4638/BAL     4654/BAL     4695/BAL
   UNITNA          2609/BGE     2613/BE      2622-BAL
   UNITNAME        2623/DATA    2630-TEXTC
   UNITNB          2625-LI
   UNITS           2447/BAL     2602-ENTER   2684/BAL
   UNIT0            778/STW      842/STW      849/CW       856/LW      2301/STW     2455/LW      2467/SIO*
      2472/LW      2484/TIO*    2506/LW      2521/LW      2615/STW     2689/LW      2742/LW      3345/LW
      3476/LW      3498/CW      3513/CW      3578/LW      3590/LW      3614/LW      3691/LW      3697/LW
      3710/LW      3733/LW      3767-RES     4494/STW     4545/LW      4701/STW
   UNIT1            779/STW      844/STW      857/STW     2302/STW     2399/LW      2458/LW      2470/SIO*
      2478/LW      2489/TIO*    2512/LW      2536/LW      2618/STW     2735/LW      3346/CW      3497/LW
      3512/LW      3625/LW      3631/LW      3644/LW      3656/LW      3680/LW      3714/LW      3734/CW
      3768-RES     4495/STW     4702/STW
   VALID           3243-SET     3247-SET     3252-SET     3255/TABLE   3259-SET     3265-SET     3267-SET
      3271/TABLE
   VERSION            3-EQU        4/EQU
   WAITMSG0        6403-TEXTC
   WAITMSG1        5932/DATA    6404-TEXTC
   WATCH0          2794/IOCD    4240/IOTST   4255-IOCD
   WATCH1          4251/IOTST   4257-IOCD
   WINIT24         1739/BAL     1811/BAL     1831/BAL     1851/BAL     1871/BAL     1915-LW
   WINIT25         2134/BAL     2171-ENTER
   WPAT25          2092/STW     2098/LW      2105/STW     2116/STW     2122/LW      2126/STW     2166/LI
      2173/LW      2197-RES
   WRRAND          2312/STD     3791/IOCD    3795/IOCD    3895-RES     3912/LI      4506/STD     4517/STH
   ZLOOP25         2034/BAL     2056/BAL     2080/BAL     2088-ENTER
   ZLP0            2096-BAL     2106/B
   ZLP1            2103/BE      2108-EXIT
   :AIO             195-CNAME    195/CNAME   5064-AIO
   :BCDC            255-EQU
   :BINC            257-EQU     4308/BAL*    5101/BAL*    5149/BAL*    5156/BAL*    5530/BAL*    6194/BAL*
      6196/BAL*    6202/BAL*    6204/BAL*
   :CATALOG         296/DATA     390-EQU
   :CCERMA         5179/DATA    5196-TEXTC
   :CCERMB         5181/DATA    5197-TEXTC
   :CCERMC         5182/DATA    5198-TEXTC
   :CCERMD         5183/DATA    5199-TEXTC
   :CCERME         5184/DATA    5200-TEXTC
   :CCERMF         5185/DATA    5201-TEXTC
   :CCERM1         5169/DATA    5187-TEXTC
   :CCERM2         5170/DATA    5188-TEXTC
   :CCERM3         5171/DATA    5189-TEXTC
   :CCERM4         5102/STH     5172/DATA    5190-TEXTC
   :CCERM5         5173/DATA    5191-TEXTC
   :CCERM6         5175/DATA    5192-TEXTC
   :CCERM7         5176/DATA    5193-TEXTC
   :CCERM8         5177/DATA    5194-TEXTC
   :CCERM9         5178/DATA    5195-TEXTC
   :CCERR1         5097-LW
   :CCERR2         5094/BCR     5110-LW
   :CCERR3         5092/BCR     5118-LW
   :CCERR4         5115/B       5130-LCI     5137/BEZ     5164/B
   :CC12           5078/STW     5090/LW      5100/LW      5155/LW      5166-DATA
   :CDB             363/GEN      363/GEN      375-EQU      580/EOR      619/LW       751/LW       835/LH
       838/LW       839/STW      841/LW       843/LW       852/LW       897/LW      2323/LW      2365/LW
      2608/CH      2611/LW      2612/CW      2617/LW      2655/CW      3352/LW      3740/LW      4533/LW
      5612/CW      5652/CW      5713/CW      5717/CH      5797/CW      5814/CW
   :CDBEND          363/GEN      388-EQU
   :CDBM            363/GEN      371-EQU
   :CDBMEND         363/GEN      373-EQU
   :CDT             301/DATA     302/DATA     362-EQU
   :CDTEND          302/DATA     364-EQU
   :CLOCK3          286-EQU     3364/STW     4420/STW     4558/STW     4722/STW     4815/LW      4833/LW
      4839/STW
   :COMBFRA        2157/STW     2580/STW     2725/STW     2978/STW     3305/STW     5447/LW      5496/LW
      5547-DATA
   :COMBFRB        2159/STW     2583/STW     2728/STW     2984/STW     3309/STW     5448/LW      5502/LW
      5548-DATA
   :COMBLK         5440/MTW     5465/STW     5482/MTW     5551-DATA
   :COMERMX        5491/STW     5493/DATA    5554-TEXTC
   :COMERM1        5485/DATA    5553-TEXTC
   :COMERM2        5499/STH     5501/STH     5504/STW     5506/DATA    5555-TEXTC
   :COMERM3        5508/DATA    5556-TEXTC
   :COMERM4        5514/STW     5516/LI      5519/DATA    5559-TEXT
   :COMERM5        5521/LI      5524/DATA    5563-TEXT
   :COMERRT        5446/STD     5459/LW      5469/MTW     5472/LW      5544-DATA
   :COMFLAG        2163/STW     2996/STW     3312/STW     5470/LW      5549-DATA
   :COMPARE        2145/BAL     2390/BAL     2408/BAL     3021/BAL     3603/BAL     3669/BAL     5442-EQU
   :COMPLIN        2164/STW     2589/STW     2988/STW     3315/STW     5473/CW      5550-DATA
   :COMPXRE        5439-EQU
   :COMTEM1        5489/LW      5540-RES
   :COMTEM2        5451/STD     5454/LW*     5455/CW*     5515/LW*     5520/LW*     5543-DATA
   :COMTEM3        5475/LW      5479/MTW     5545-DATA
   :COMWCNT        2161/STW     2305/STW     2586/STW     2731/STW     2987/STW     3379/STW     3549/LW
      4428/STW     4719/STW     5449/AW      5450/AW      5452/LCW     5511/LW      5546-DATA
   :COM1           5454-LW      5457/BIR     5471/BCS     5474/BG      5525/B
   :COM2           5456/BCS     5469-MTW
   :COM3           5476/BCS     5511-LW
   :COM4           5517/BAL     5522/BAL     5528-LI      5537/BCS
   :COM5           5486/B       5495-EQU
   :COM6           5483/BNEZ    5488-EQU
   :CURBCNT         261-EQU
   :DECC            258-EQU      513/BAL*    2525/BAL*    2530/BAL*    2540/BAL*    2545/BAL*    3491/BAL*
      3493/BAL*    3504/BAL*    3506/BAL*    3530/BAL*    3532/BAL*    3536/BAL*    3538/BAL*    3840/BAL*
      4300/BAL*    4304/BAL*    4370/BAL*    4808/BAL*    4812/BAL*    4820/BAL*    4961/BAL*
   :DELAY          3802/BAL     5581-ENTER
   :DELAYAE        5591/BAL     5607/BAL     5647/BAL     5673-LI
   :DELAYAT        2273/BAL     3565/BAL     5637-ENTER
   :DELAYCE        4952/BAL     5597-ENTER
   :DELAYD         5625/BAL     5668/BAL     5678-LI
   :DELAYTO        5686-DATA    5688/XPSD
   :DELMTW         1068/LW      5689-MTW
   :DELOK          5625-BAL     5665/B
   :DELORIG        5605/STW     5629/LW      5645/STW     5683-DATA
   :DELTIME        5589/STW     5604/STW     5630/SW      5644/STW     5682-DATA    5689/MTW
   :DELTO          5668-BAL     5687/DATA
   :DELXPSD        1066/LW      5688-XPSD
   :DEVADDR         500/LW       550-RES      620/STW      752/STW      754/LW       777/LW       898/STW
      1564/SIO*    2300/LW      2400/STW     2473/STW     2479/STW     2560/STW     2594/STW     2653/LW
      2686/LI      2690/STW     2736/STW     2743/STW     3133/HIO*    3147/AW      3579/STW     3615/STW
      3626/STW     3645/STW     3681/STW     3692/STW     3722/STW     4176/LW      4493/LW      4590/TIO*
      4700/LW      4765/TIO*    4858/TDV*    4864/TIO*    4925/HIO*    5024/SIO*    5034/TIO*    5044/HIO*
      5054/TDV*    5122/LW      5159/LW      5259/LW      5610/LW      5650/LW      5795/LW      5812/LW
   :DEVINDX         551-RES      618/LW       748/STW      750/LW       787/MTW      788/LW       895/STW
       928/MTW      929/LW      2604/LW
   :DEVNUMB         552-RES      667/STW      789/CW       930/CW
   :DIC             298/DATA     299/DATA     340-EQU
   :DICEND          299/DATA     347-EQU      362/EQU
   :DICILEN         280-EQU
   :DICINDX         279-EQU
   :DTLFLAG         275-EQU
   :DUMP            253-EQU
   :ERRADR1        5103/LW      5169-DATA
   :ERRADR2        5111/LW      5175-DATA
   :ERRADR3        5119/LW      5181-DATA
   :ERRBITS        5974/STW     6016/LW      6246-DATA
   :ERRFRCE        5890/MTW     5895/LW      6037/SW      6145/STW     6232-DATA
   :ERROR           262-EQU
   :ERRORC          270-EQU
   :ERRORS         3812/LI      5889-EQU
   :ERRORT         3809/LI      5892-ENTER
   :ERRTBCM        6104/LD      6254-TEXT
   :ERRTCAM        6100/LD      6255-TEXT
   :ERRTDET         987/STW     6008/MTW     6233-DATA
   :ERRTDSP        6128/BAL     6155-ENTER
   :ERRTDSQ        6169/BEZ     6190-BAL
   :ERRTDSR        6178-CB      6185/BL
   :ERRTDSS        6210-CB      6217/BL
   :ERRTFLG        5896/STW     6036/LW      6046/MTW     6119/MTW     6149/MTW     6231-DATA
   :ERRTMG1        6013/STW     6018/STW     6019/STW     6022/STB     6025/STB     6030/STB     6032/LI
      6242-TEXTC
   :ERRTMG2        6106/STW     6107/STW     6108/STW     6112/STW     6113/LI      6248-TEXTC
   :ERRTMG3        6249-TEXTC
   :ERRTMP2        5970/STW     5983/MTW     5996/MTW     6000/MTW     6023/LW      6027/LW      6224-DATA
   :ERRTMP3        5906/STW     5919/STW     5923/STW     5990/LW      6011/LW      6078/LW      6091/LW
      6109/LW      6225-DATA
   :ERRTMP4        5907/STW     5976/LW      6226-DATA
   :ERRTMSK        5980/LB      6178/CB      6210/CB      6228-GEN
   :ERRTM0         6172/STW     6173/STW     6181/STB     6188/DATA    6237-TEXTC
   :ERRTM1         6158/STW     6191/DATA    6238-TEXTC
   :ERRTM2         6195/STW     6197/STW     6199/DATA    6239-TEXTC
   :ERRTM3         6203/STW     6205/STW     6213/STB     6220/DATA    6240-TEXTC
   :ERRTNEG        6103/LW      6250-TEXT
   :ERRTTB         6015/LW      6244-DATA
   :ERRTTBA        6244/DATA    6244/DATA    6244/DATA    6256-TEXT
   :ERRTTBB        6244/DATA    6264-TEXT
   :ERRTTBC        6244/DATA    6273-TEXT
   :ERRTTBD        6245/DATA    6281-TEXT
   :ERRTTBE        6245/DATA    6289-TEXT
   :ERRTYPE        6012/LW      6157/LW      6235-DATA
   :ERRT0          5901-LB      6004/B
   :ERRT00         5913/BNE     5922-AI
   :ERRT1          5910/BL      5925-LW      5943/B       5954/B       5957/B
   :ERRT10         5940/B       5951/B       6009/BEZ     6046-MTW
   :ERRT11         5916/BLZ     5920/B       6051-MTW
   :ERRT11A        6059/BNE     6064-SCD
   :ERRT11B        6066/BNEZ    6072-MTW
   :ERRT13         5902/BEZ     6118-EQU
   :ERRT14         6120/BEZ     6136-LI
   :ERRT15         6124-EQU     6130/BIR
   :ERRT16A        6139-LW      6142/BIR
   :ERRT2          5929/BL      5934-CI
   :ERRT3          5935/BNE     5945-CI
   :ERRT4          5946/BNE     5956-BAL
   :ERRT5          5956/BAL     5959-ENTER   6053/BAL
   :ERRT6          5926/BLZ     5968-LI
   :ERRT7          5994/BANZ    6000-MTW
   :ERRT8A         5978/BGE     5997/BEZ     6003-MTW     6047/B       6069/BLZ     6074/BE
   :ERRT9          5998/B       6001/BEZ     6008-MTW
   :ERRT9A         6011-LW
   :ERRT9B         6034-STW     6114/B
   :ERRT9C         6038/BGZ     6043-BAL
   :ERRT9D         6034/STW     6044-DATA
   :ERRT91A        6070/B       6091-LW
   :ERRT91B        6093/BE      6103-LW
   :ERRT91C        6089/B       6104-LD
   :ERRT92A        6078-LW
   :ERRT92B        6085/B       6099-BAL
   :ERRT92C        6080/BE      6087-AW
   :HEXC            259-EQU      489/BAL*     501/BAL*     755/BAL*    1987/BAL*    1994/BAL*    2000/BAL*
      2002/BAL*    2522/BAL*    2537/BAL*    3152/BAL*    3154/BAL*    3158/BAL*    3160/BAL*    3187/BAL*
      3189/BAL*    3193/BAL*    3195/BAL*    3217/BAL*    3219/BAL*    3223/BAL*    3225/BAL*    3278/BAL*
      3280/BAL*    3283/BAL*    3285/BAL*    3477/BAL*    3481/BAL*    3483/BAL*    3487/BAL*    3516/BAL*
      3520/BAL*    3522/BAL*    3526/BAL*    3591/BAL*    3632/BAL*    3657/BAL*    3698/BAL*    3853/BAL*
      3869/BAL*    3871/BAL*    4069/BAL*    4086/BAL*    4177/BAL*    4333/BAL*    4376/BAL*    4675/BAL*
      4679/BAL*    4684/BAL*    4861/BAL*    4867/BAL*    4871/BAL*    4878/BAL*    4880/BAL*    4889/BAL*
      4893/BAL*    4900/BAL*    4902/BAL*    4906/BAL*    4984/BAL*    5123/BAL*    5160/BAL*    5260/BAL*
      5490/BAL*    5497/BAL*    5503/BAL*    5513/BAL*    5721/BAL*    5723/BAL*    5742/BAL*    5744/BAL*
      6099/BAL*    6111/BAL*
   :HIO             194-CNAME    194/CNAME   5044-HIO     5245/BAL     5938/BAL
   :INITIAL         304/DATA     641-STW
   :INTCC          5706/STCF    5772-RES
   :INTCLR          674/BAL     2464/BAL     3131/BAL     5779-ENTER
   :INTCLRC        4941/BAL     5809-ENTER
   :INTCLRD        5792-ENTER
   :INTCLX         5784-STW     5788/BIR
   :INTGCE         2564/BAL     2650-ENTER
   :INTSTAT        1190/STW     1211/STW     1236/STW     3148/CW      3157/LW      5707/STW     5773-RES
   :INTSV           546/DATA    5693-PSM
   :INTSVE         5699/DATA    5777-TEXTC
   :INTSVM         5722/STW     5724/STW     5727/DATA    5775-TEXTC
   :INTSVS         5743/STW     5745/STW     5748/DATA    5776-TEXTC
   :INTSV0         5701-LCI     5729/B       5750/B       5756/B       5765/B
   :INTSV1         5696/BCR     5706-STCF
   :INTSV2         5713-CW      5718/BL
   :INTSV2A        5720-LW      5736/BAZ
   :INTSV3         5714/BE      5731-LH
   :INTSV3A        5741-LW      5759/BNEZ
   :INTSV3B        5739/BEZ     5752-MTW
   :INTSV4         5733/BANZ    5758-MTW
   :IOERM1         5255/DATA    5268-TEXTC
   :IOERM2         5261/STH     5263/STH     5265/DATA    5269-TEXTC
   :IOERR1         5232/B       5244-LW
   :IOERR1A        5254-BAL     5266/B
   :IOERR2         5235/BCR     5259-LW
   :IOEXEC         1255/BAL     3295/BAL     5226-ENTER
   :IOEXEC1        5229-LW      5239/B       5247/B       5251/B       5256/B
   :K              5309/AW      5319-DATA
   :KSRADR          271-EQU
   :LOADIN          269-EQU
   :MACHINE         272-EQU
   :MEMLAST         282-EQU
   :MEMSIZE         281-EQU
   :MLT             248-EQU      249/EQU      250/EQU      251/EQU      252/EQU      253/EQU      254/EQU
       255/EQU      256/EQU      257/EQU      258/EQU      259/EQU      260/EQU      261/EQU      262/EQU
       263/EQU      264/EQU      265/EQU      266/EQU      267/EQU      268/EQU      269/EQU      270/EQU
       271/EQU      272/EQU      273/EQU      274/EQU      275/EQU      276/EQU      277/EQU      278/EQU
       279/EQU      280/EQU      281/EQU      282/EQU      283/EQU      284/EQU      285/EQU      286/EQU
       287/EQU     1070/LW
   :MLTEND          287-EQU
   :MONIOBF         283-EQU
   :MONITOR         256-EQU      664/B*       708/BCR*     798/BCR*     877/BCR*     934/BCR*     988/B*
      1000/B*      1014/B*      1023/B*      1030/B*      1034/B*      1040/B*
   :MONPBF          284-EQU
   :MONWAIT         265-EQU
   :MRECOVR         266-EQU
   :MSGBEG          395-TEXTC    651/LI
   :MSGEND          406-TEXTC    652/LI
   :MSGIN           268-EQU
   :MSGOUT          267-EQU
   :M1             5299/STW     5304/MTW     5310/EOR     5315-DATA
   :M2             5300/STW     5306/MTW     5311/EOR     5316-DATA
   :PATBFR         2722/STW     2981/STW     3306/STW     4476/STW     5356/AW      5366/AW      5376/AW
      5391/AW      5400/AW      5415-DATA
   :PATEXIT        5362-EXIT    5372/B       5381/B       5387/B       5396/B       5408/BCR
   :PATID          2710/STW     2713/STW     2716/STW     2993/STW     2999/STW     3002/STW     3317/STW
      4479/STW     4482/STW     4485/STW     4487/CW      4490/LW      4526/CW      4560/CW      5346/LW
      5358/LW      5368/LW      5370/AW      5393/LW*     5402/LW      5413-DATA
   :PATTERN        2338/BAL     2733/BAL     3004/BAL     3412/BAL     4529/BAL     4563/BAL     5344-ENTER
   :PATWCNT        2306/STW     2719/STW     2991/STW     3380/STW     4524/STW     5355/LW      5357/LCW
      5365/LW      5367/LCW     5375/LW      5377/LCW     5390/LW      5392/LCW     5399/LW      5401/LCW
      5414-DATA
   :PAT0           5348/B       5355-LW
   :PAT1           5349/B       5365-LW
   :PAT2           5350/B       5375-LW
   :PAT3           5351/B       5390-LW
   :PAT4           5352/B       5399-LW
   :PIT0            296-DATA     314/DO
   :PIT1            297-DATA
   :PIT10           306-DATA    1042/STW     1045/STW     1048/STW     1052/STW
   :PIT11           307-DATA     662/STW
   :PIT12           308-DATA     648/XW
   :PIT13           309-DATA
   :PIT14           310-DATA
   :PIT15           311-DATA     592/STW      860/STW      901/STW
   :PIT16           312-DATA     486/STW      508/B*       641/STW      676/B*
   :PIT2            298-DATA     464/LD*
   :PIT3            299-DATA     460/LW
   :PIT4            300-DATA
   :PIT5            301-DATA     655/LW*
   :PIT6            302-DATA
   :PIT7            303-DATA     465/CW      1039/DATA
   :PIT8            304-DATA
   :PIT9            305-DATA
   :PREPORT         276-EQU     1038/BAL*
   :PRINT           263-EQU      491/BAL*     503/BAL*     515/BAL*     761/BAL*    2005/BAL*    2280/BAL*
      2499/BAL*    2518/BAL*    2533/BAL*    2548/BAL*    2622/BAL*    3163/BAL*    3165/BAL*    3167/BAL*
      3169/BAL*    3198/BAL*    3200/BAL*    3202/BAL*    3204/BAL*    3228/BAL*    3230/BAL*    3232/BAL*
      3234/BAL*    3287/BAL*    3342/BAL*    3470/BAL*    3473/BAL*    3509/BAL*    3541/BAL*    3544/BAL*
      3594/BAL*    3635/BAL*    3660/BAL*    3701/BAL*    3862/BAL*    3874/BAL*    3880/BAL*    4102/BAL*
      4211/BAL*    4217/BAL*    4392/BAL*    4411/BAL*    4542/BAL*    4697/BAL*    4987/BAL*    4989/BAL*
      5105/BAL*    5113/BAL*    5127/BAL*    5139/BAL*    5162/BAL*    5264/BAL*    5480/BAL*    5484/BAL*
      5492/BAL*    5505/BAL*    5507/BAL*    5518/BAL*    5523/BAL*    5698/BAL*    5726/BAL*    5747/BAL*
      6040/BAL*    6043/BAL*    6160/BAL*    6187/BAL*    6190/BAL*    6198/BAL*    6219/BAL*
   :PROCDIC          69-CNAME
   :PROGID          297/DATA     393-EQU
   :PSW             254-EQU      690/MTB
   :P1              249-EQU      586/LW       610/CW       689/LW       703/STW      720/LW       765/LW
       809/LW       906/LW       956/STW      970/LW
   :P2              250-EQU      587/CW       612/CW       701/STW      719/LW       733/STW      815/LW
       953/STW      984/LW       990/LW      1002/LW      1016/LW      1032/LW      4230/MTW     4436/MTW
      4446/MTW     4497/LW      4742/MTW
   :P3              251-EQU      820/LW      1008/LW      1025/LW      4508/LW
   :P4              252-EQU     1011/LW      1026/LW
   :QSENSE          277-EQU      598/BAL*     707/BAL*     758/BAL*     797/BAL*     876/BAL*     933/BAL*
      3449/BAL*    4433/BAL*    4574/BAL*    4729/BAL*
   :RANDOM          608/BAL     3366/BAL     5304-MTW     5383/BAL
   :RANDOMX        5302-STW
   :RANDOMY         672/BAL     5299-STW
   :RECOVER         300/DATA     458/BAL      645/BAL     1057-LD
   :RELBIAS         273-EQU
   :REMOTE          285-EQU      643/BAL
   :RLOADER         274-EQU
   :SAVCOM1        1566/STW     5022/STW     5227/STW     6061/LW      6082/LW      6095/LW      6401-DATA
   :SAVEAIO        1571/BAL     2278/BAL     2566/BAL     4930/BAL     5627/BAL     6352-STD
   :SAVEALL        6322/BAL     6324/BAL     6336/BAL     6342/BAL     6348/BAL     6355/BAL     6357/BAL
      6362-STW
   :SAVECLR        2562/BAL     4422/BAL     4939/BAL     6308-STD
   :SAVEHIO        5942/BAL     6334-STD
   :SAVESIO        6346-STD
   :SAVETAB        1671/LCH     1682/LCH     1693/LCH     1704/LCH     4006/CH      4189/LCH     4276/LCH
      5925/LW      5991/STW     6051/MTW     6055/LW      6110/LW      6125/LW      6139/LW      6141/STW
      6313/STW     6321/LI      6323/LI      6326/STH     6328/STB     6329/STH     6330/STB     6335/LI
      6341/LI      6347/LI      6354/LI      6356/LI      6385-EQU
   :SAVETDV        5953/BAL     6340-STD
   :SAVETIO        4926/BAL     5965/BAL     6319-STD
   :SAVETMP        6308/STD     6316/LD      6319/STD     6320/STW     6325/LW      6331/LD      6334/STD
      6337/LD      6340/STD     6343/LD      6346/STD     6349/LD      6352/STD     6353/STW     6358/LW
      6359/LD      6362/STW     6370/B*      6400-DATA
   :SEED           3389/LW      3953/LB      4491/STW     5302/STW     5307/LW      5312/STW     5317-DATA
      5378/LW
   :SENSE           264-EQU     3829/BAL*
   :SIO             191-CNAME    191/CNAME   5022-STW     5237/BAL
   :STATEM1        5140/DATA    5202-TEXTC
   :STATEM2        5143/LB      5144/STW     5145/STB     5150/STB     5158/STH     5161/STW     5163/DATA
      5203-TEXTC
   :STATERR        5089/BCR     5136-LH
   :STATEST        5032/B       5042/B       5052/B       5062/B       5072/B       5075-STCF
   :STATFRC        5107/B       5139-BAL
   :STATTYP        5142/LW      5204-TEXT
   :TDV             193-CNAME    193/CNAME   5054-TDV     5949/BAL
   :TIM             584/BNE      588/BNE      617-EQU     1127/B       1150/B       1171/B       1196/B
      1217/B       1242/B       1262/B       1286/B       1320/B       1333/B       1349/B       1365/B
      1386/B       1422/B       1445/B       1468/B       1494/B       1528/B       1553/B       1595/B
      1630/B       1655/B       1709/B       1888/B       2025/B       2036/B       2047/B       2058/B
      2071/B       2084/B       2223/B       2237/B       2380/B       2504/B       2551/B       2625/LI
      2774/B       2853/B       2946/B       3086/B
   :TIMRETN         557-ENTER    626/BNEZ     767/BAL
   :TIM0            561/BGZ      568-EQU
   :TIM1            566/B        572-EQU      615/B
   :TIM2            562/BEZ      607-EQU      611/BL       613/BG
   :TIM3            581/BNEZ     590-EQU
   :TIM4            565/BL       570/BG       628-EXIT
   :TIM5            579/BEZ      583-CW
   :TIO             192-CNAME    192/CNAME   5034-TIO     5230/BAL     5250/BAL     5962/BAL
   :TSEQ             29-CNAME
   :TSEQDEF          47-CNAME
   :TSEQEQU          55-CNAME
   :TYPE           5031/STW     5041/STW     5051/STW     5061/STW     5071/STW     5097/LW      5110/LW
      5118/LW      5141/LW      5167-DATA
   :T1CUR           559/LW       593/LW       614/STW      623/AWM      630-DATA     702/STW      735/STW
       766/STW      955/STW
   :T1DIR           560/MTW      622/LW       625/MTW      632-DATA     704/STW      742/STW      959/STW
   :T1LAST          564/CW       569/CW       631-DATA     700/STW      736/STW      954/STW
   :T1LOC           576/STW      605/B*       633-DATA
   :T1SLT           410-EQU      573/LW       699/LI       723/CI       725/CI       952/LI
   :T1SLX           449-EQU      699/LI       723/CI       725/CI       952/LI
   :T1ST01          411/SUBTST  1101-LI      1118/ERROR
   :T1ST02          412/SUBTST  1131-RESET
   :T1ST03          413/SUBTST  1158-RESET
   :T1ST04          414/SUBTST  1179-RESET
   :T1ST05          415/SUBTST  1200-RESET
   :T1ST06          416/SUBTST  1225-RESET   1232/FAIL    1234/:AIO    1238/:TIO    1240/TSTAIO
   :T1ST07          417/SUBTST  1250-RESET   1260/FAIL
   :T1ST08          418/SUBTST  1270-RESET
   :T1ST09          419/SUBTST  1297-RESET
   :T1ST10          420/SUBTST  1327-RESET
   :T1ST11          421/SUBTST  1343-RESET
   :T1ST12          422/SUBTST  1359-RESET
   :T1ST13          423/SUBTST  1376-RESET
   :T1ST14          424/SUBTST  1412-RESET
   :T1ST15          425/SUBTST  1439-RESET
   :T1ST16          426/SUBTST  1456-RESET
   :T1ST17          427/SUBTST  1480-RESET
   :T1ST18          428/SUBTST  1514-RESET
   :T1ST19          429/SUBTST  1541-RESET
   :T1ST20          430/SUBTST  1561-RESET
   :T1ST21          431/SUBTST  1614-RESET   1618/FAIL    1622/FAIL    1626/FAIL    1628/FRM
   :T1ST22          432/SUBTST  1639-RESET   1643/FAIL    1647/FAIL    1651/FAIL    1653/FRM
   :T1ST23          433/SUBTST  1663-RESET
   :T1ST24          434/SUBTST  1736-RESET
   :T1ST25          435/SUBTST  2018-BAL
   :T1ST26          436/SUBTST  2029-BAL
   :T1ST27          437/SUBTST  2040-BAL
   :T1ST28          438/SUBTST  2051-BAL
   :T1ST29          439/SUBTST  2062-BAL
   :T1ST30          440/SUBTST  2075-BAL
   :T1ST31          441/SUBTST  2219-RESET
   :T1ST32          442/SUBTST  2233-RESET
   :T1ST33          443/SUBTST  2296-RESET
   :T1ST34          444/SUBTST  2447-BAL
   :T1ST35          445/SUBTST  2684-BAL
   :T1ST36          446/SUBTST  2805-EQU
   :T1ST37          447/SUBTST  2899-EQU
   :T1ST38          448/SUBTST  3035-EQU
   :WAIT            278-EQU     5254/BAL*    5931/BAL*
   :1BYTEIN         260-EQU
