1 C00   21:59 JUN 20,'83                                                                          PAGE    1
A      1                     1.000  +1,1                                                                *H01
       2                     1.010  VERSION  EQU      C'H02'                                            *H02
       3                     6.000  +6                                                                  *H02
       4                     6.010  * NEW INSTRUCTIONS AND PSUEDO-OPERATIONS                            *H02
       5                     6.020           SPACE                                                      *H02
       6                     6.030  STBS     S:SIN,1  X'271'            STORE BRANCH STACK              *H02
       7                     6.040  LBS      S:SIN,1  X'270'            LOAD BRANCH STACK               *H02
       8                     6.050           SPACE                                                      *H02
       9                    30.000  +30,30                                                              *H02
      10                    30.010  STACKSIZ EQU      4                 PUSHDOWN STACK ENVIRONMENTS     *H02
      11                    55.000  +55,55                                                              *H02
      12                    55.010  XLMS     EQU      X'20'             SIGMA 9-LIKE LMS STATUS         *H02
      13                    82.000  +82,82                                                              *H02
      14                    82.010  XBOMBF   EQU      X'80'             CPU BOMBING FORCED              *H02
      15                    82.020  XBOMBA   EQU      X'40'             CPU BOMBING AUTOMATIC           *H02
      16                    82.030  XNCHECK  EQU      X'40'             INHIBIT HEADER AND DATA CHECK   *H02
      17                   105.000  +105                                                                *H02
      18                   105.010  XBOMB    EQU      X'80'             CPU IS BOMBING                  *H02
      19                   275.000  +275,275                                                            *H01
      20                   275.010           BAL,15   COCRST            ERASE COC ASSIGNMENT            *H01
      21                   286.000  +286                                                                *H01
      22                   286.010           SPACE                                                      *H01
      23                   286.020           LI,1     0                 CLEAR COUNT                     *H01
      24                   286.030           STW,1    SYSERRST           OF I/O ERRORS (TOTAL)          *H01
      25                   286.040           STW,1    LMSSET              AND LMS PARAMETERS            *H01
      26                   286.050           STW,1    LMSOLD                                            *H01
      27                   286.060           STW,1    FLAWS                                             *H01
      28                   286.070           STW,1    AIOCOUNT                                          *H01
      29                   286.080           STW,1    AIOUNEXP                                          *H01
      30                   286.090           SPACE                                                      *H02
      31                   286.100           LW,1     RCELIMIT                                          *H02
      32                   286.110           STW,1    RCETOTAL                                          *H02
      33                   305.000  +305,307                                                            *H01
      34                   308.000  +308,311                                                            *H01
      35                   308.010           LW,14    EFSTART           RESET ERROR LOG                 *H01
      36                   308.020           STW,14   EFSECTOR           PARAMETERS                     *H01
      37                   308.030           SPACE                                                      *H01
      38                   308.040           LI,14    0                                                 *H01
      39                   312.000  +312                                                                *H01
      40                   312.010           STW,14   EFWRAP              RESTORE WRAP COUNTER          *H01
      41                   317.000  +317,319                                                            *H01
      42                   317.010           LI,0     0                 INITIALIZE IN-MEMORY            *H01
      43                   317.020           STW,0    1,2                ERROR LOG BUFFER AND           *H01
      44                   317.030           STW,0    SEQUENCE            LOG SEQUENCE NUMBER           *H01
      45                   319.002           SPACE                                                      *H01
      46                   319.003           CI,5     X'20000'          SKIP IF BOOT FROM BASE          *H01
      47                   319.004           BANZ     FIXEF7                                            *H01
      48                   319.010           SPACE                                                      *H01
      49                   319.020           LW,11    EFSECTOR          CLEAR FIRST SECTOR              *H01
      50                   319.030           LD,12    EFWRITE            OF ERROR LOG ON DISK           *H01
      51                   319.040           BAL,15   BASEDRVR                                          *H01
      52                   391.000  +391,391                                                            *H01
      53                   391.010  PUSHS1   LI,0     X'F0'             ASSUME SIGMA-9-LIKE             *H01
      54                   391.020           MTW,0    SIGMA9             SKIP IF TRUE                   *H01
      55                   391.030           BLZ      %+2                 ELSE ADJUST MASK FOR SIGMA-7  *H01
      56                   391.040           LI,0     X'1F0'                                            *H01
      57                   391.050           SPACE                                                      *H01
      58                   391.060           AND,0    PUSHS+1           OBTAIN RP AT TIME OF TRAP       *H01
      59                   391.070           SLS,0    -4                                                *H01
      60                   391.080           SPACE                                                      *H01
      61                   391.090           LW,6     4                 OBTAIN PC AT TIME OF TRAP       *H01
      62                   391.100           AND,6    NOBITS+14                                         *H01
      63                   391.110           SPACE                                                      *H01
      64                   391.120           CLM,6    BCKGND            LOOK FOR BACKGROUND             *H01
      65                   391.130           BCS,8+1  PUSHS2             IN EXECUTION AT TIME OF TRAP   *H01
      66                   391.140           SPACE                                                      *H01
      67                   391.150           CW,0     LASTREG           FOR BACKGROUND, COMPARE WITH    *H01
      68                   391.160           BE       PUSHS2             EXPECTED VALUE OF RP           *H01
      69                   391.170           SPACE                                                      *H01
      70                   391.180           LW,6     *4                FOR INEQUALITY, ENTER LOG       *H01
      71                   391.190           LI,1     X'E000'            FORMAT MESSAGE BITS            *H01
      72                   391.200           LI,2     X'E3000'            SEVERITY AND ID               *H01
      73                   391.210           BAL,15   AUDITOR                                           *H01
      74                   391.220           SPACE                                                      *H01
      75                   391.222           LCI      4                 RESTORE STATUS REGISTERS        *H01
      76                   391.224           PLM,2    RETURNS                                           *H01
      77                   391.226           PSM,2    RETURNS                                           *H01
      78                   391.228           SPACE                                                      *H01
      79                   391.230  PUSHS2   LI,1     X'FFFF'                                           *H01
      80                   423.000  +423                                                                *H02
      81                   423.010           SPACE                                                      *H02
      82                   595.000  +595,596                                                            *H01
      83                   595.010           BL       %+3               SKIP IF NOT END-OF-FILE         *H01
      84                   595.020           SPACE                                                      *H01
      85                   595.030           MTW,1    EFWRAP            UPDATE WRAP COUNT               *H01
      86                   595.040           LW,13    EFSTART            RESET FILE TO START            *H01
      87                   595.050           SPACE                                                      *H01
      88                   856.000  +856                                                                *H01
      89                   856.010           SPACE                                                      *H01
      90                   858.000  +858                                                                *H01
      91                   858.010           SPACE                                                      *H01
      92                   861.000  +861,864                                                            *H01
      93                   861.010           STD,12   BASECP2           SAVE COMMAND                    *H01
      94                   861.020           SPACE                                                      *H01
      95                   861.030           HIO,7    0,4               STOP BASE DEVICE                *H01
      96                   861.040           STW,7    BASESTND           AND SAVE STATE                 *H01
      97                   861.050           SPACE                                                      *H01
      98                   901.000  +901,902                                                            *H01
      99                   901.010           LH,0     BASESTND          SAMPLE CAPTURED STATE           *H01
     100                   901.020           CI,0     X'E600'            OF BASE DEVICE AND             *H01
     101                   901.030           BAZ      *BASEREGS+15        RETURN IF IDLE                *H01
     102                   905.000  +905                                                                *H01
     103                   905.010           SPACE                                                      *H01
     104                   907.000  +907                                                                *H01
     105                   907.010           SPACE                                                      *H01
     106                   909.000  +909                                                                *H01
     107                   909.010           SPACE                                                      *H01
     108                   951.000  +951,951                                                            *H01
     109                   951.010           SPACE                                                      *H01
     110                   951.020           LI,15    -2                GUARANTEE ONE MORE              *H01
     111                   951.030           B        BASEDERR           TRY AT BASE DEVICE I/O         *H01
     112                  1217.000  +1217,1217                                                          *H00
     113                  1217.010  *        DIVERTS SUBSEQUENT 46 AND 4C TRAPS                         *H00
     114                  1397.000  +1397,1397                                                          *H02
     115                  1397.010  T4CC     LI,9     0                 SCAN ENTIRE MEMORY              *H02
     116                  1406.000  +1406,1406                                                          *H01
     117                  1406.010           CW,6     YFF8              ERROR OR CORRECTED DATA         *H01
     118                  1415.000  +1415,1417                                                          *H01
     119                  1415.010           LD,6     ZEROS             CLEAR STATUS IF                 *H01
     120                  1415.020           LD,8     6                  LMS YIELDED NOTHING            *H01
     121                  1423.000  +1423                                                               *H01
     122                  1423.010           SPACE                                                      *H01
     123                  1423.020           CW,7     BIT+10            SKIP IF NOT                     *H01
     124                  1423.030           BAZ      %+3                MOS MEMORY                     *H01
     125                  1423.040           SPACE                                                      *H01
     126                  1423.050           LCI      11                CAPTURE STATUS WORD 3           *H01
     127                  1423.060           LMS,0    *9,1               BEFORE RESET ON WORD 2         *H01
     128                  1423.070           SPACE                                                      *H01
     129                  1430.000  +1430,1434                                                          *H01
     130                  1430.010           AW,9     1                 COMPUTE LOGICAL BANK            *H01
     131                  1430.020           LW,14    9                  ADDRESS AND SAVE               *H01
     132                  1430.030           SPACE                                                      *H01
     133                  1430.040           LI,13    X'4000'           ASSUME 8K, 2-WAY INTERLEAVED    *H01
     134                  1430.050           SPACE                                                      *H01
     135                  1430.060           LI,12    2WAY8K            ADDRESS OF BIT PARAMETERS       *H01
     136                  1441.000  +1441,1446                                                          *H01
     137                  1441.010  T4CB1    LW,9     14                FETCH LOGICAL BANK ADDRESS      *H01
     138                  1441.020           AW,9     13                 TRY TO GO OUT OF UNIT          *H01
     139                  1441.030           SPACE                                                      *H01
     140                  1450.000  +1450,1450                                                          *H01
     141                  1450.010           AW,9     13                  ELSE DISPLACE TO 4-WAY        *H01
     142                  1453.000  +1453,1453                                                          *H01
     143                  1453.010           BGE      T4CB0              OVERFLOW IMPLIES SEARCH DONE   *H01
     144                  1460.000  +1460,1460                                                          *H01
     145                  1460.010           CH,15    X'0F00'             UNEQUAL IMPLIES SEARCH DONE   *H01
     146                  1463.000  +1463,1466                                                          *H01
     147                  1463.010           SLS,13   1                 DOUBLE BANK SIZE                *H01
     148                  1463.020           SPACE                                                      *H01
     149                  1463.030           AI,12    4                 POINT TO NEXT PARAMETER SET     *H01
     150                  1463.040           SPACE                                                      *H01
     151                  1463.050           CI,12    2WAY2KK           CHECK FOR END OF TABLE          *H01
     152                  1463.060           BLE      T4CB1              CONTINUE IF REASONABLE         *H01
     153                  1463.070           SPACE                                                      *H01
     154                  1463.080           AI,2     4                 SET LOG ID TO INVALID           *H01
     155                  1463.090           B        T4CE               CONFIGURATION AND ENTER        *H01
     156                  1463.100           SPACE                                                      *H01
     157                  1463.110  T4CB0    LCI      4                 FETCH BIT PARAMETERS            *H01
     158                  1463.120           LM,10    *12                FOR BOTH INTERLEAVE TYPES      *H01
     159                  1463.130           SPACE                                                      *H01
     160                  1463.140           LCF      7                 EXAMINE INTERLEAVE TYPE         *H01
     161                  1475.000  +1475,1484                                                          *H01
     162                  1475.010  T4CD     CW,7     BIT+10            SKIP IF NOT                     *H01
     163                  1475.020           BAZ      T4CD0              MOS MEMORY                     *H01
     164                  1475.030           SPACE                                                      *H01
     165                  1475.050           LW,9     0                 STATUS WORD 3                   *H01
     166                  1475.060           SPACE                                                      *H01
     167                  1475.070           CW,6     Y6                SKIP IF DATA                    *H01
     168                  1475.080           BAZ      T4CD2              ERRORS ABSENT                  *H01
     169                  1475.090           SPACE                                                      *H01
     170                  1475.100           CW,6     Y1B               SKIP IF NON-DATA                *H01
     171                  1475.110           BANZ     T4CD2              ERRORS PRESENT                 *H01
     172                  1475.120           SPACE                                                      *H01
     173                  1475.130           B        T4CD1             RESTORE DATA TO MEMORY          *H01
     174                  1475.140           SPACE                                                      *H01
     175                  1475.150  T4CD0    LI,9     0                 CLEAR STATUS WORD 3             *H01
     176                  1475.160           SPACE                                                      *H01
     177                  1475.170           CW,6     Y6                SKIP IF DATA                    *H01
     178                  1475.180           BAZ      T4CE               ERRORS ABSENT                  *H01
     179                  1475.190           SPACE                                                      *H01
     180                  1475.200           CW,6     Y1B               SKIP IF NON-DATA                *H01
     181                  1475.210           BANZ     T4CE               ERRORS PRESENT                 *H01
     182                  1475.220           SPACE                                                      *H01
     183                  1475.230           LCI      1                 ELSE READ IGNORING              *H01
     184                  1475.240           LMS,9    *8                 PARITY                         *H01
     185                  1491.000  +1491                                                               *H01
     186                  1491.002           SPACE                                                      *H01
     187                  1491.010  T4CD1    LW,1     8                 RESTORE DATA TO MEMORY          *H01
     188                  1491.012           AND,1    NOBITS+8           BE CAREFUL OF BIT 0            *H01
     189                  1491.014           STW,9    *1                  (REAL EXTENDED ADDRESSING)    *H01
     190                  1491.020           SPACE                                                      *H01
     191                  1491.030  T4CD2    AI,2     1                 INDICATE STATUS 3 VALID         *H01
     192                  1493.000  +1493,1494                                                          *H01
     193                  1518.000  +1518                                                               *H01
     194                  1518.010           SPACE                                                      *H01
     195                  1518.020  2WAY64K  DATA     X'10001',0        2-WAY 64K BANK                  *H01
     196                  1518.030           DATA     X'20001',X'10002'  4-WAY 64K BANK                 *H01
     197                  1518.040           SPACE                                                      *H01
     198                  1518.050  2WAY128K DATA     X'20001',0        2-WAY 128K BANK                 *H01
     199                  1518.060           DATA     X'40001',X'20002'  4-WAY 128K BANK                *H01
     200                  1518.070           SPACE                                                      *H01
     201                  1518.080  2WAY256K DATA     X'40001',0        2-WAY 256K BANK                 *H01
     202                  1518.090           DATA     X'80001',X'40002'  4-WAY 256K BANK                *H01
     203                  1518.100           SPACE                                                      *H01
     204                  1518.110  2WAY512K DATA     X'80001',0        2-WAY 512K BANK                 *H01
     205                  1518.120           DATA     X'100001',X'80002' 4-WAY 512K BANK                *H01
     206                  1518.130           SPACE                                                      *H01
     207                  1518.140  2WAY1KK  DATA     X'100001',0       2-WAY 1KK BANK                  *H01
     208                  1518.150           DATA     X'200001',X'100002' 4-WAY 1KK BANK                *H01
     209                  1518.155           SPACE                                                      *H01
     210                  1518.160  2WAY2KK  DATA     X'200001',0       2-WAY 2KK BANK                  *H01
     211                  1518.170           DATA     X'400001',X'200002' 4-WAY 2KK BANK                *H01
     212                  1614.000  +1614,1615                                                          *H02
     213                  1614.010  INT56B   EQU      %                 MACHINE IS SIGMA 7 (MFI)        *H02
     214                  1614.020           LB,7     SYSMODE            CHECK FOR                      *H02
     215                  1614.030           CI,7     XLMS                SIGMA 9-LIKE LMS              *H02
     216                  1614.040           BANZ     T4CC                                              *H02
     217                  1614.050           SPACE                                                      *H02
     218                  1614.060           LI,7     0                 ELSE NORMAL SIGMA 7             *H02
     219                  1614.070           BAL,15   PARITY             PARITY SCAN                    *H02
     220                  1617.000  +1617                                                               *H01
     221                  1617.010           SPACE                                                      *H01
     222                  1617.020           CW,7     BIT+19            LOOK FOR SOFT-HIT ENABLE (MOS)  *H01
     223                  1617.030           BAZ      I560                                              *H01
     224                  1617.040           SPACE                                                      *H01
     225                  1617.042           CW,6     Y7F8              LOOK FOR NO ERRORS              *H01
     226                  1617.044           BANZ     I560                                              *H01
     227                  1617.046           SPACE                                                      *H01
     228                  1617.050           CW,6     BIT+0             LOOK FOR A SOFT-HIT (MOS)       *H01
     229                  1617.060           BAZ      I560                                              *H01
     230                  1617.070           SPACE                                                      *H01
     231                  1617.080           AND,2    NOBITS+15         CLEAR SEVERITY LEVEL            *H01
     232                  1617.090           AI,2     X'20000'           AND RESET TO 2                 *H01
     233                  1617.100           SPACE                                                      *H02
     234                  1617.140           MTW,-1   RCETOTAL          DECREMENT AND DISABLE           *H02
     235                  1617.150           BGZ      I560               FURTHER HITS IF EXHAUSTED      *H02
     236                  1617.160           SPACE                                                      *H02
     237                  1617.170           LI,14    0                 ELSE RESET LMS                  *H02
     238                  1617.180           BAL,15   SETLMS             CLOCK MARGINS                  *H02
     239                  1701.000  +1701                                                               *H00
     240                  1701.010           B        PHAZ3             RANDOM EXERCISE                 *H00
     241                  1703.000  +1703,1703                                                          *H00
     242                  1703.010  PHAZ3    MTW,0    SYSMODE           FREEZE MODE?                    *H00
     243                  1707.000  +1707,1707                                                          *H00
     244                  1707.010           BLEZ     PASSEND                                           *H00
     245                  1739.000  +1739                                                               *H02
     246                  1739.010           SPACE                                                      *H02
     247                  1739.020           LW,0     REALTIME          COMPUTE TIME SINCE              *H02
     248                  1739.030           SW,0     BUFBEGIN           BUFFER ACTIVITY STARTED        *H02
     249                  1739.040           SPACE                                                      *H02
     250                  1739.050           LW,1     BUFFERS+0         NUMBER OF BUFFERS PROCESSED     *H02
     251                  1739.060           MI,1     500                COMPUTE RATE IN                *H02
     252                  1739.070           DW,1     0                   BUFFERS/SECOND                *H02
     253                  1739.080           STW,1    BUFRATE                                           *H02
     254                  1739.090           SPACE                                                      *H02
     255                  1820.000  +1820                                                               *H00
     256                  1820.010           SPACE                                                      *H00
     257                  1820.020  SHUTDN0  LW,0     XPSD46            RESTORE UN-DIVERTED XPSDS       *H00
     258                  1820.030           STW,0    X'46'                                             *H00
     259                  1820.040           LW,0     XPSD4C                                            *H00
     260                  1820.050           STW,0    X'4C'                                             *H00
     261                  1820.060           SPACE                                                      *H00
     262                  1820.070           LI,0     0                 CLEAR CPU STATES                *H02
     263                  1820.080           STH,0    CT:CS                                             *H02
     264                  1820.090           SPACE                                                      *H02
     265                  1821.000  +1821,1822                                                          *H01
     266                  1821.010           LB,7     PASSES            GET CURRENT PASS                *H01
     267                  1821.020           CW,7     SETPASS            AND CHECK FOR FORCED PASS      *H01
     268                  1821.030           BNE      PASSX11             SKIP IF NOT EQUAL             *H01
     269                  1821.040           SPACE                                                      *H01
     270                  1848.000  +1848,1849                                                          *H02
     271                  1851.000  +1851,1851                                                          *H02
     272                  1851.010           SPACE                                                      *H02
     273                  1851.020           BAL,15   GENCT             COUNT SELECTED CONTROLLERS      *H02
     274                  1866.000  +1866,1866                                                          *H02
     275                  1866.010           CI,1     1                 LOOK FOR AN ODD PASS            *H02
     276                  2042.000  +2042                                                               *H02
     277                  2042.010           SPACE                                                      *H02
     278                  2048.000  +2048,2048                                                          *H02
     279                  2048.010           BAZ      NEWPASS             (BIT SET IN CONTROL TABLE)    *H02
     280                  2053.000  +2053,2060                                                          *H02
     281                  2053.010           B        NEWPASS                                           *H02
     282                  2091.000  +2091,2091                                                          *H02
     283                  2091.010  NEWPASS  EQU      %                                                 *H02
     284                  2091.020           LH,8     CT:CS             SET CPU STATES                  *H02
     285                  2091.030           LH,9     CT:OPS                                            *H02
     286                  2091.040           SPACE                                                      *H02
     287                  2091.050           CAL4,8   PASSMSG           NEW PASS                        *H02
     288                  2091.060           NOP      0,0                MESSAGE (NO PROMPT)            *H02
     289                  2091.070           SPACE                                                      *H02
     290                  2091.080           MTW,0    SORCEX            SKIP IF NON-CPU                 *H02
     291                  2091.090           BNEZ     NEWPASS2                                          *H02
     292                  2091.100           SPACE                                                      *H02
     293                  2091.110           CI,8     XSORSS            SKIP IF SOURCE                  *H02
     294                  2091.120           BAZ      NEWPASS1           NOT REALLY CPU EITHER          *H02
     295                  2091.130           SPACE                                                      *H02
     296                  2091.140  NEWPASS0 CAL4,8   PASSMSG0          CPU SOURCE                      *H02
     297                  2091.150           NOP      0,0                MESSAGE (NO PROMPT)            *H02
     298                  2091.160           B        NEWPASS2                                          *H02
     299                  2091.170           SPACE                                                      *H02
     300                  2091.180  NEWPASS1 CAL4,8   PASSMSG1          NO SOURCE                       *H02
     301                  2091.190           NOP      0,0                MESSAGE (NO PROMPT)            *H02
     302                  2091.200           SPACE                                                      *H02
     303                  2091.212  NEWPASS2 CI,9     XBOMBF            CHECK FOR                       *H02
     304                  2091.214           BANZ     NEWPASS6           FORCED BOMBING                 *H02
     305                  2091.216           SPACE                                                      *H02
     306                  2091.218           CI,9     XBOMBA            CHECK FOR                       *H02
     307                  2091.220           BAZ      NEWPASS5           AUTOMATIC BOMBING              *H02
     308                  2091.222           SPACE                                                      *H02
     309                  2091.224           OR,9     BURSTING          ASSUME BURSTING                 *H02
     310                  2091.226           SPACE                                                      *H02
     311                  2091.228           LW,0     CTSIZE            IF AUTOMATIC, BURST             *H02
     312                  2091.230           CI,0     2                  IS ENABLED IF ANY              *H02
     313                  2091.232           BG       NEWPASS3            CONTROLLERS SELECTED          *H02
     314                  2091.234           SPACE                                                      *H02
     315                  2091.236           EOR,9    BURSTING          ELSE CONTINUOUS                 *H02
     316                  2091.238           B        NEWPASS4                                          *H02
     317                  2091.240           SPACE                                                      *H02
     318                  2091.242  NEWPASS6 CI,9     XBURST            IF FORCED, SKIP                 *H02
     319                  2091.244           BAZ      NEWPASS4           IF NOT BURSTING                *H02
     320                  2091.246           SPACE                                                      *H02
     321                  2091.248  NEWPASS3 CAL4,8   PASSMSG3          BOMBING IN BURSTS               *H02
     322                  2091.250           NOP      0,0                NO PROMPT                      *H02
     323                  2091.252           SPACE                                                      *H02
     324                  2091.254           B        NEWPASS5                                          *H02
     325                  2091.256           SPACE                                                      *H02
     326                  2091.258  NEWPASS4 CAL4,8   PASSMSG2          BOMBING CONTINUOUSLY            *H02
     327                  2091.260           NOP      0,0                NO PROMPT                      *H02
     328                  2091.262           SPACE                                                      *H02
     329                  2091.370  NEWPASS5 CAL4,8   PASSMSG4          NULL                            *H02
     330                  2091.380           NOP      0,1                MESSAGE (WITH PROMPT)          *H02
     331                  2091.390           SPACE                                                      *H02
     332                  2091.392           STH,9    CT:OPS            SAVE OPERATOR SELECT            *H02
     333                  2091.394           SPACE                                                      *H02
     334                  2091.400           OR,8     KEYN              SET CPU STATE KEYING            *H02
     335                  2091.410           STH,8    CT:CS              AND SAVE IT                    *H02
     336                  2091.420           SPACE                                                      *H02
     337                  2091.430           LB,7     PASSES                                            *H02
     338                  2098.000  +2098                                                               *H01
     339                  2098.010           STW,10   AIOUNEXP                                          *H00
     340                  2137.000  +2137,2137                                                          *H01
     341                  2137.010           BAZ      RTCXIT4                                           *H01
     342                  2141.000  +2141,2142                                                          *H01
     343                  2141.010  RTCXIT4  LW,0     REGOPS            GET SELECTED REGISTER PAGES     *H01
     344                  2141.020           LW,3     LASTREG            AND POINTER TO LAST USED PAGE  *H01
     345                  2141.030           SPACE                                                      *H01
     346                  2141.040           MTW,0    0                 SKIP IF NO PAGES SELECTED       *H01
     347                  2141.050           BEZ      REGCONT0                                          *H01
     348                  2144.000  +2144,2147                                                          *H01
     349                  2144.010  REGCONT  AI,3     -1                DECREMENT TO NEXT PAGE          *H01
     350                  2144.020           BGE      %+2                RECYCLE BACK TO 31             *H01
     351                  2144.030           LI,3     31                                                *H01
     352                  2152.000  +2152,2152                                                          *H01
     353                  2152.010  REGCONT0 STW,3    SLCTREG           SAVE PAGE NUMBER                *H01
     354                  2154.000  +2154,2154                                                          *H01
     355                  2154.010           SLS,3    4                   ALLIGN RP IN PSW              *H01
     356                  2208.000  +2208                                                               *H02
     357                  2208.010           SPACE                                                      *H02
     358                  2208.020           LH,1     CT:CS             GET CPU STATE                   *H02
     359                  2208.030           SPACE                                                      *H02
     360                  2208.040           AND,1    NKEYN             ERASE KEYING STATE              *H02
     361                  2208.050           OR,1     WRAP               SET WRAPPED STATE              *H02
     362                  2208.060           SPACE                                                      *H02
     363                  2208.070           STH,1    CT:CS                                             *H02
     364                  2309.000  +2309,2309                                                          *H00
     365                  2309.010           BG       PASSEND            CHECK FOR SINGLE-PASS MODE     *H00
     366                  2321.000  +2321                                                               *H00
     367                  2321.010           SPACE                                                      *H00
     368                  2321.020  PASSEND  LB,0     SYSMODE           CHECK FOR SINGLE-PASS MODE      *H00
     369                  2321.030           CI,0     1                  AND CONTINUE IF NOT            *H00
     370                  2321.040           BAZ      SHUTDN                                            *H00
     371                  2321.050           SPACE                                                      *H00
     372                  2321.052           BAL,15   SETNBUSY          STOP ACTIVE I/O                 *H01
     373                  2321.054           SPACE                                                      *H01
     374                  2321.056           LI,2     BA(PASSTRAP)                                      *H01
     375                  2321.060           LW,3     HLTPRMPT          ENTER CCP IN                    *H00
     376                  2321.070           BAL,15   CCP                HALT CONDITION                 *H00
     377                  2321.080           SPACE                                                      *H00
     378                  2321.090           B        SHUTDN0           RETURN ON 'RUN'                 *H00
     379                  2396.000  +2396                                                               *H00
     380                  2396.010           SPACE                                                      *H00
     381                  2396.020           CI,4     RDHAN             ABSENT: LOOK FOR DISK           *H00
     382                  2396.030           BE       AIO2B                                             *H00
     383                  2423.000  +2423                                                               *H00
     384                  2423.010           SPACE                                                      *H00
     385                  2423.020  AIO2B    CI,0     X'0800'           DISK: LOOK FOR ON-SECTOR        *H00
     386                  2423.030           BAZ      AIO11              ABSENT - IMPOSSIBLE            *H00
     387                  2423.040           SPACE                                                      *H00
     388                  2423.050           CI,3     ETXDPS            LOOK FOR RAD                    *H00
     389                  2423.060           BL       AIO11              ON-SECTOR IMPOSSIBLE           *H00
     390                  2423.070           SPACE                                                      *H00
     391                  2423.080           CI,9     XMODE2            LOOK FOR SEEK-OVERLAP           *H00
     392                  2423.090           BANZ     AIO11              SUPPRESSION (IMPOSSIBLE)       *H00
     393                  2442.000  +2442,2442                                                          *H01
     394                  2442.010           CI,0     X'26'             LOOK FOR CONTROLLER/DEVICE      *H01
     395                  2539.000  +2539,2543                                                          *H00
     396                  2539.010  AIO3A    LI,0     X'25C10'          UNEXPECTED I/O INTERRUPT        *H00
     397                  2539.020           B        AIO4A                                             *H00
     398                  2539.030           SPACE                                                      *H00
     399                  2539.040  AIO4     LI,0     X'05C70'          UNRECOGNIZED I/O INTERRUPT      *H00
     400                  2539.045           MTW,1    AIOUNEXP           MAINTAIN COUNT OF THESE        *H00
     401                  2539.050           SPACE                                                      *H00
     402                  2539.052           MTH,0    LOGLEV            ONLY LOG THIS EVENT             *H01
     403                  2539.054           BNEZ     AIOXIT             IF L-PARAMETER.EQ.0            *H01
     404                  2539.056           SPACE                                                      *H01
     405                  2539.060  AIO4A    LW,4     X'20'             GET ADDRESS OF DEVICE           *H00
     406                  2662.000  +2662,2663                                                          *H01
     407                  2721.000  +2721,2722                                                          *H02
     408                  2721.010  PRSIO    LI,10    X'50'             SET I/O TIMEOUT                 *H02
     409                  2721.020           STH,10   CT:FT,1            LONG ENOUGH FOR STC            *H02
     410                  2721.030           SPACE                                                      *H02
     411                  2728.000  +2728,2728                                                          *H01
     412                  2728.010           BAL,15   MFIMON            PE INJECTION                    *H01
     413                  2759.000  +2759,2759                                                          *H01
     414                  2759.001           B        RDHAN3A           DESELECT DEVICE                 *H01
     415                  2847.000  +2847                                                               *H00
     416                  2847.010           SPACE                                                      *H00
     417                  2847.020           CW,2     BIT+4             LOOK FOR ON-SECTOR              *H00
     418                  2847.030           BAZ      RDDRIVE2           SKIP IF NORMAL CE              *H00
     419                  2847.040           SPACE                                                      *H00
     420                  2847.050           LW,0     CT:COM,1          POINTER TO CHANNEL PROGRAM      *H00
     421                  2847.060           SPACE                                                      *H00
     422                  2847.070           LD,12    *0                GET SEEK CCDW                   *H00
     423                  2847.080           AND,12   NOBITS+0           REMOVE MODIFIER BIT            *H00
     424                  2847.090           OR,13    BIT+2               ADD COMMAND-CHAIN BIT         *H00
     425                  2847.100           STD,12   *0                   RESTORE SEEK CCDW            *H00
     426                  2847.110           SPACE                                                      *H00
     427                  2847.120           B        RDSIO                                             *H00
     428                  2863.000  +2863,2866                                                          *H01
     429                  2868.000  +2868,2868                                                          *H01
     430                  2868.010           SPACE                                                      *H01
     431                  2868.020           B        RDNOBUF0          REBUILD CHANNEL PROGRAM         *H01
     432                  2873.000  +2873,2874                                                          *H01
     433                  2876.000  +2876,2876                                                          *H01
     434                  2876.010           SPACE                                                      *H01
     435                  2876.020           CI,8     XDUAL             LOOK FOR DUAL ACCESS            *H01
     436                  2876.030           BAZ      %+2                SKIP IF SINGLE CONTROLLER      *H01
     437                  2876.040           HIO,0    0,2                 ELSE RELEASE THE DRIVE        *H01
     438                  2886.000  +2886,2886                                                          *H01
     439                  2886.010  RDNOBUF0 LI,5     2                                                 *H01
     440                  2886.020           LW,6     CT:BUFAD,1                                        *H01
     441                  2901.000  +2901                                                               *H00
     442                  2901.010           SLS,10   1                 (CONVERT DOUBLE TO SINGLE)      *H00
     443                  2904.000  +2904                                                               *H00
     444                  2904.010           SLS,10   -1                (CONVERT SINGLE TO DOUBLE)      *H00
     445                  2915.000  +2915                                                               *H01
     446                  2915.002           SPACE                                                      *H01
     447                  2915.003           LB,10    CT:ORD,1          LOOK AT ORDER BYTE              *H01
     448                  2915.004           CI,10    5                  AND SKIP TO SIO                *H01
     449                  2915.005           BE       RDSIO               IF CHECKWRITE                 *H01
     450                  2915.010           SPACE                                                      *H01
     451                  2915.020           CI,3     ETXDPS            LOOK FOR RAD                    *H00
     452                  2915.030           BL       RDSIO              NO SEEK-OVERLAP                *H00
     453                  2915.040           SPACE                                                      *H00
     454                  2915.050           CI,9     XMODE2            LOOK FOR SEEK-OVERLAP           *H00
     455                  2915.060           BANZ     RDSIO              SUPPRESSION                    *H00
     456                  2915.062           SPACE                                                      *H01
     457                  2915.064           CW,1     BASEX             DO NOT OVERLAP                  *H01
     458                  2915.066           BE       RDSIO              SEEKS FOR BASE DEVICE          *H01
     459                  2915.070           SPACE                                                      *H00
     460                  2915.080           LD,12    *0                FETCH SEEK CCDW                 *H00
     461                  2915.090           OR,12    BIT+0              SET MODIFIER                   *H00
     462                  2915.100           AND,13   NOBITS+2            CLEAR COMMAND-CHAIN           *H00
     463                  2915.110           STD,12   *0                   RESTORE SEEK CCDW            *H00
     464                  2915.120           SPACE                                                      *H00
     465                  2921.000  +2921,2921                                                          *H01
     466                  2921.001           SPACE                                                      *H01
     467                  2921.002  RDHAN3A  AND,8    NERROR            GENERAL DESELECTION ENTRY       *H01
     468                  2941.000  +2941                                                               *H01
     469                  2941.010           SPACE                                                      *H01
     470                  2944.000  +2944,2946                                                          *H01
     471                  2944.010           SPACE                                                      *H01
     472                  2944.020           LH,11    TDVRU1            GET TDV STATUS                  *H01
     473                  2944.030           SPACE                                                      *H01
     474                  2948.000  +2948                                                               *H01
     475                  2948.010           SPACE                                                      *H01
     476                  2952.000  +2952,2954                                                          *H00
     477                  2952.010           LB,0     ET:RPX,3          GET PARAMETER POINTER           *H00
     478                  2952.020           CI,0     RPXDB              LOOK FOR DB, DC, DD, DE        *H00
     479                  2952.030           BL       RDHAN4B             THESE HAVE 7275-LIKE TDV      *H01
     480                  2958.000  +2958                                                               *H00
     481                  2958.010  RDHAN4B  EQU      %                                                 *H00
     482                  2963.000  +2963,2963                                                          *H01
     483                  2963.070  RDHAN5   LI,0     X'15C40'          RECOVERABLE ERROR - SEV 0       *H01
     484                  2963.080           SPACE                                                      *H01
     485                  2963.090           LB,15    CT:RETRY,1        CHECK RETRY COUNT               *H01
     486                  2963.100           CI,15    1                  SKIP IF NOT EXHAUSTED          *H01
     487                  2963.110           BNE      %+2                                               *H01
     488                  2963.120           SPACE                                                      *H01
     489                  2963.130           LI,0     X'35CC0'          ELSE UNRECOVERED ERROR          *H01
     490                  2963.150           SPACE                                                      *H01
     491                  2973.000  +2973,2973                                                          *H00
     492                  2973.010  RDHAN6   LI,0     X'05C50'          NORMAL FLAWMARK                 *H00
     493                  2974.000  +2974                                                               *H01
     494                  2974.010           SPACE                                                      *H01
     495                  2974.020           MTW,-1   SYSERRSP          FLAW MARKS ARE                  *H01
     496                  2974.030           MTW,-1   SYSERRST           NOT REALLY ERRORS              *H01
     497                  2974.040           MTW,+1   FLAWS               (TALLIED SEPARATELY)          *H01
     498                  2977.000  +2977,2977                                                          *H00
     499                  2977.010  RDHAN7   LI,0     X'35C60'          ERRORED FLAWMARK                *H00
     500                  3014.000  +3014,3014                                                          *H01
     501                  3014.010           BAL,15   MFIMON            PE INJECTION                    *H01
     502                  3018.000  +3018                                                               *H01
     503                  3018.010           SPACE                                                      *H01
     504                  3020.000  +3020                                                               *H01
     505                  3020.010           SPACE                                                      *H01
     506                  3022.000  +3022                                                               *H01
     507                  3022.010           SPACE                                                      *H01
     508                  3024.000  +3024                                                               *H01
     509                  3024.010           SPACE                                                      *H01
     510                  3025.000  +3025                                                               *H01
     511                  3025.010           SPACE                                                      *H01
     512                  3030.000  +3030,3035                                                          *H01
     513                  3030.010           SPACE                                                      *H01
     514                  3030.020           AND,8    NERROR            ERASE ERROR STATE               *H01
     515                  3030.030           SPACE                                                      *H01
     516                  3030.040           CI,8     XWRAP             IF SURFACE IS NOT               *H01
     517                  3030.050           BAZ      RDNBUSY            WRAPPED KEEP TRYING            *H01
     518                  3030.060           SPACE                                                      *H01
     519                  3030.070           B        RDDRIVE1          CHANGE POSITION NOW             *H01
     520                  3040.000  +3040,3040                                                          *H01
     521                  3040.001           B        RDHAN3A           DESELECT DEVICE                 *H01
     522                  3044.000  +3044,3044                                                          *H01
     523                  3044.010           SPACE                                                      *H01
     524                  3044.020           OR,8     INITAL            STARTS EVERYTHING OVER          *H01
     525                  3044.030           B        RDOFF1            PROBABLY NOT EXACTLY RIGHT!     *H01
     526                  3054.000  +3054                                                               *H01
     527                  3054.010           SPACE                                                      *H01
     528                  3055.000  +3055                                                               *H01
     529                  3055.010           SPACE                                                      *H01
     530                  3057.000  +3057,3057                                                          *H01
     531                  3057.010           SPACE                                                      *H01
     532                  3057.020           CI,8     XDUAL             LOOK FOR DUAL ACCESS            *H01
     533                  3057.030           BAZ      %+2                SKIP IF SINGLE CONTROLLER      *H01
     534                  3057.040           HIO,0    0,2                 ELSE RELEASE THE DEVICE       *H01
     535                  3057.050           SPACE                                                      *H01
     536                  3104.000  +3104,3104                                                          *H00
     537                  3104.010           LW,2     RP:CDWS,4         GET NUMBER OF CDWS PER CYL      *H00
     538                  3106.000  +3106                                                               *H00
     539                  3106.010           SLS,2    1                 (CONVERT DOUBLE TO SINGLE)      *H00
     540                  3109.000  +3109                                                               *H00
     541                  3109.010           SLS,2    -1                (CONVERT SINGLE TO DOUBLE)      *H00
     542                  3322.000  +3322,3323                                                          *H02
     543                  3322.010           LI,10    -1                                                *H02
     544                  3322.020           LI,11    -1                DEFAULT SENSE DATA              *H02
     545                  3325.000  +3325                                                               *H01
     546                  3325.010           SPACE                                                      *H01
     547                  3325.020           LW,14    COUNT4            GET CURRENT I/O TIME            *H01
     548                  3325.030           AI,14    2000/2             AND SET 2000 MS TIMEOUT        *H01
     549                  3332.000  +3332,3332                                                          *H01
     550                  3332.010  GS3      SIO,10   0,2               ATTEMPT TO START RECOVERY       *H01
     551                  3332.020           BCR,8+4  GS0                SKIP IF STARTED OK             *H01
     552                  3332.030           SPACE                                                      *H01
     553                  3332.040           CW,14    COUNT4            LOOK FOR TIMEOUT                *H01
     554                  3332.050           BG       GS3                WHILE ATTEMPTING RESTART       *H01
     555                  3332.060           B        GS2                 MERGE WITH SERIOUS ERROR      *H01
     556                  3337.000  +3337,3337                                                          *H01
     557                  3337.010           TIO,10   0,2               CHECK DEVICE STATE              *H01
     558                  3337.020           SPACE                                                      *H01
     559                  3337.030           CW,14    COUNT4            CHECK DEVICE TIMEOUT            *H01
     560                  3337.040           BLE      GS2                SKIP IF TIMEOUT                *H01
     561                  3337.050           SPACE                                                      *H01
     562                  3338.000  +3338,3341                                                          *H01
     563                  3338.010           CW,11    Y66               WAIT FOR CONTROLLER/DEVICE      *H01
     564                  3338.020           BANZ     GS0                TO RETURN TO READY STATE       *H01
     565                  3344.000  +3344,3346                                                          *H01
     566                  3344.010           STH,2    SENSEVAL+4         AND DEVICE ADDRESS AS WELL     *H01
     567                  3344.020           SPACE                                                      *H01
     568                  3344.030           CW,11    BIT+0             IP MAY BE SET BY                *H01
     569                  3344.040           BAZ      GS1                SERIOUS IOP PROBLEM            *H01
     570                  3344.050           SPACE                                                      *H01
     571                  3344.060  GS2      HIO,0    0,2               RESET CONTROLLER                *H02
     572                  3344.120           SPACE                                                      *H01
     573                  3344.130  GS1      LD,10    SENSEVAL+0                                        *H01
     574                  3398.000  +3398,3399                                                          *H01
     575                  3794.000  +3794,3794                                                          *H01
     576                  3794.010           BAL,15   MFIMON            PE INJECTION                    *H01
     577                  4000.000  +4000,4005                                                          *H01
     578                  4000.010  MFIMON   CI,9     XMODE1            CHECK FOR PE INJECTION ENABLED  *H01
     579                  4000.020           BAZ      *15                EXIT IF DISABLED               *H01
     580                  4007.000  +4007,4009                                                          *H01
     581                  4012.000  +4012,4012                                                          *H01
     582                  4012.010           BGE      MFIMON0                                           *H01
     583                  4012.020           SPACE                                                      *H01
     584                  4012.030           CI,1     0                 LOOK FOR BACKGROUND             *H01
     585                  4012.040           BNE      *15                                               *H01
     586                  4012.050           SPACE                                                      *H01
     587                  4012.060           CI,9     XMODE2            ALLOW ERRORS IF BIT SET         *H01
     588                  4012.070           BAZ      *15                                               *H01
     589                  4014.000  +4014,4028                                                          *H01
     590                  4014.010  MFIMON0  LW,6     15                SAVE LINK                       *H01
     591                  4014.020           BAL,15   RANDOM             GENERATE RANDOM NUMBER         *H01
     592                  4014.030           LW,15    6                   RESTORE LINK                  *H01
     593                  4014.040           SPACE                                                      *H01
     594                  4014.050           AND,7    NOBITS+15         NORMALIZE RANDOM NUMBER         *H01
     595                  4014.060           LI,6     0                  TO BUFFER SIZE                 *H01
     596                  4014.070           MW,6     BUFSIZ                                            *H01
     597                  4014.080           SLD,6    -16                                               *H01
     598                  4014.090           SPACE                                                      *H01
     599                  4014.100           CI,7     8                 MUST DISPLACE PAST              *H01
     600                  4014.110           BGE      %+2                BUFFER HEADER                  *H01
     601                  4014.120           LI,7     8                                                 *H01
     602                  4059.000  +4059,4087                                                          *H01
     603                  4135.000  +4135,4135                                                          *H01
     604                  4135.010           BAL,15   MFIMON            PE INJECTION                    *H01
     605                  4211.000  +4211,4211                                                          *H02
     606                  4211.010  MMRDE2   EQU      %                                                 *H02
     607                  4280.000  +4280                                                               *H00
     608                  4280.010           SPACE                                                      *H00
     609                  4280.020           MTW,0    1                 I/O INTERRUPT-RELATED           *H00
     610                  4280.030           BEZ      PREAUD0            ERRORS HAVE NO CTX             *H00
     611                  4280.040           SPACE                                                      *H00
     612                  4284.000  +4284                                                               *H00
     613                  4284.010  PREAUD0  EQU      %                                                 *H00
     614                  4297.000  +4297                                                               *H00
     615                  4297.010           SPACE                                                      *H00
     616                  4297.020           MTW,0    1                 I/O INTERRUPT-RELATED           *H00
     617                  4297.030           BEZ      *RETURNF           ERRORS HAVE NO CTX             *H00
     618                  4297.040           SPACE                                                      *H00
     619                  4382.000  +4382,4385                                                          *H00
     620                  4382.010           SPACE                                                      *H00
     621                  4560.000  +4560,4560                                                          *H01
     622                  4561.000  +4561                                                               *H01
     623                  4561.010           SPACE                                                      *H01
     624                  4571.000  +4571,4575                                                          *H02
     625                  4571.010           CI,8     XSORSS            SKIP IF CPU                     *H02
     626                  4571.020           BANZ     %+2                IS CURRENTLY SOURCE            *H02
     627                  4577.000  +4577                                                               *H02
     628                  4577.010           SPACE                                                      *H02
     629                  4746.000  +4746                                                               *H02
     630                  4746.010           SPACE                                                      *H02
     631                  4746.020  B17BOMB  EQU      %                 PORT-STYLE BOMBER               *H02
     632                  4746.050           SPACE                                                      *H02
     633                  4746.060           LH,8     CT:CS             GET CPU CONTROLLER STATE        *H02
     634                  4746.062           OR,8     BOMBING            ASSUME BOMBING                 *H02
     635                  4746.064           SPACE                                                      *H02
     636                  4746.066           LH,9     CT:OPS            GET CPU OPERATOR SELECT         *H02
     637                  4746.068           CI,9     XBOMBF             SKIP IF FORCED BOMBING         *H02
     638                  4746.070           BANZ     B17BOMB3                                          *H02
     639                  4746.072           SPACE                                                      *H02
     640                  4746.074           CI,9     XBOMBA            SKIP IF AUTOMATIC               *H02
     641                  4746.076           BAZ      B17BOMB2           BOMBING INHIBITED              *H02
     642                  4746.078           SPACE                                                      *H02
     643                  4746.080  B17BOMB3 CI,9     XBURST            SKIP IF CONTINUOUS              *H02
     644                  4746.082           BAZ      B17BOMB1                                          *H02
     645                  4746.084           SPACE                                                      *H02
     646                  4746.086           MTW,0    BTIME             SKIP IF BURST WINDOW            *H02
     647                  4746.088           BGEZ     B17BOMB1           IS CURRENTLY OPEN              *H02
     648                  4746.090           SPACE                                                      *H02
     649                  4746.092  B17BOMB2 EOR,8    BOMBING           DROP BOMBING IN PROGRESS        *H02
     650                  4746.094           STH,8    CT:CS              UPDATE CPU CONTROLLER STATE    *H02
     651                  4746.096           B        *15                 EXIT BOMBER                   *H02
     652                  4746.098           SPACE                                                      *H02
     653                  4746.100  B17BOMB1 STH,8    CT:CS             UPDATE CPU CONTROLLER STATE     *H02
     654                  4746.120           SPACE                                                      *H02
     655                  4746.130           LB,0     CT:SF             BECOMES BYTE INCREMENT          *H02
     656                  4746.132           BNEZ     %+2                DEFAULTED TO ONE               *H02
     657                  4746.134           LI,0     1                                                 *H02
     658                  4746.135           STW,0    B17TARGT                                          *H02
     659                  4746.140           SPACE                                                      *H02
     660                  4746.160           LW,14    CT:BUFAD          COMPUTE BA(END OF BUFFER)       *H02
     661                  4746.162           AW,14    BUFSIZ                                            *H02
     662                  4746.164           SPACE                                                      *H02
     663                  4746.166           LW,1     CT:BUFAD          GET BA(BUFFER)                  *H02
     664                  4746.180           AI,1     8                  AND SKIP OVER HEADER           *H02
     665                  4746.190           SPACE                                                      *H02
     666                  4746.200           LCI      12                FETCH BOMBS                     *H02
     667                  4746.210           LM,2     B17BOMBS                                          *H02
     668                  4746.220           SPACE                                                      *H02
     669                  4746.230  B17BOMB0 LB,0     0,1               FETCH BYTE                      *H02
     670                  4746.240           SPACE                                                      *H02
     671                  4746.250           EOR,0    2                 ONE'S COMPLEMENTS               *H02
     672                  4746.260           STB,0    0,1                                               *H02
     673                  4746.270           EOR,0    2                                                 *H02
     674                  4746.280           STB,0    0,1                                               *H02
     675                  4746.290           SPACE                                                      *H02
     676                  4746.300           STB,2    0,1               STORE ONE'S AND FETCH           *H02
     677                  4746.310           LB,2     0,1                                               *H02
     678                  4746.320           LB,2     0,1                                               *H02
     679                  4746.330           LB,2     0,1                                               *H02
     680                  4746.340           LB,2     0,1                                               *H02
     681                  4746.350           SPACE                                                      *H02
     682                  4746.360           MTB,1    0,1               FAST READ/PARTIAL WRITE         *H02
     683                  4746.370           MTB,-2   0,1                                               *H02
     684                  4746.380           MTB,3    0,1                                               *H02
     685                  4746.390           MTB,5    0,1                                               *H02
     686                  4746.400           MTB,-7   0,1                                               *H02
     687                  4746.410           SPACE                                                      *H02
     688                  4746.420           STB,3    0,1               PARTIAL WRITE                   *H02
     689                  4746.430           STB,4    0,1                WITH TOGGLING DATA BITS        *H02
     690                  4746.440           STB,5    0,1                                               *H02
     691                  4746.450           STB,6    0,1                                               *H02
     692                  4746.460           STB,7    0,1                                               *H02
     693                  4746.470           STB,8    0,1                                               *H02
     694                  4746.480           STB,9    0,1                                               *H02
     695                  4746.490           STB,10   0,1                                               *H02
     696                  4746.500           STB,11   0,1                                               *H02
     697                  4746.510           STB,12   0,1                                               *H02
     698                  4746.520           STB,13   0,1                                               *H02
     699                  4746.530           SPACE                                                      *H02
     700                  4746.540           STB,0    0,1               REPLACE ORIGINAL BYTE           *H02
     701                  4746.550           SPACE                                                      *H02
     702                  4746.560           AW,1     B17TARGT          INCREMENT BUFFER POINTER        *H02
     703                  4746.570           CW,1     14                 LOOK FOR END OF BUFFER         *H02
     704                  4746.580           BL       B17BOMB0                                          *H02
     705                  4746.590           SPACE                                                      *H02
     706                  4746.620           B        *15                                               *H02
     707                  4746.630           SPACE                                                      *H02
     708                  4746.640  B17BOMBS EQU      %                 BOMBS TO DROP INTO MEMORY       *H02
     709                  4746.650           DATA     -1,4,-9,8                                         *H02
     710                  4746.660           DATA     -17,16,-33,32                                     *H02
     711                  4746.670           DATA     -65,64,-129,128                                   *H02
     712                  4748.000  +4748,4748                                                          *H01
     713                  4748.010  STARTRU  LW,6     BUFSTRTW          TEST FULL WRITE                 *H01
     714                  4748.020           SLS,6    2                  LOGIC WITH PE INJECTION        *H01
     715                  4748.030           STW,6    CT:BUFAD            (NO ERROR DETECTED)           *H01
     716                  4748.040           SPACE                                                      *H01
     717                  4748.050           LI,1     0                 CPU INDEX                       *H01
     718                  4748.052           LH,9     CT:OPS             OPERATIONAL STATE              *H01
     719                  4748.054           BAL,15   MFIMON              PE INJECTION                  *H01
     720                  4748.070           SPACE                                                      *H01
     721                  4748.080           LI,10    0                 CLEAR ALL AVAILABLE             *H01
     722                  4753.000  +4753                                                               *H02
     723                  4753.010           SPACE                                                      *H02
     724                  4753.020           LW,6     REALTIME          SAVE TIME AT WHICH              *H02
     725                  4753.030           STW,6    BUFBEGIN           BUFFER ACTIVITY STARTS         *H02
     726                  4778.000  +4778,4779                                                          *H00
     727                  4778.002           BAL,15   MFIMON            PE INJECTION                    *H01
     728                  4778.004           SPACE                                                      *H01
     729                  4778.010           LW,0     BUFFERS+0         FORCE SPREADING IF              *H00
     730                  4778.020           CW,0     BUFTOTAL           PROCESSED .LE. TOTAL           *H00
     731                  4778.030           BLE      BUFSPRD             (ALWAYS PHASE 0)              *H00
     732                  4790.000  +4790,4790                                                          *H01
     733                  4790.010  RUSER3   EQU      %                                                 *H01
     734                  4790.012           BAL,15   B17BOMB           TEST FOR BOMB TARGETS           *H02
     735                  4790.014           SPACE                                                      *H02
     736                  4790.016           LD,2     BUFAD-1           RESTORE BOMB DAMAGE             *H02
     737                  4790.018           LI,4     0                                                 *H02
     738                  4790.020           LH,9     CT:OPS                                            *H02
     739                  4790.022           SPACE                                                      *H02
     740                  4790.040           CI,9     XMODE0            SKIP IF DATA-ERROR              *H01
     741                  4790.050           BAZ      RUSER4             INJECTOR DISABLED              *H01
     742                  4790.052           SPACE                                                      *H01
     743                  4790.054           LB,0     PASSES            SKIP IF PASS 5                  *H01
     744                  4790.056           CI,0     5                  (TEMPORARY)                    *H01
     745                  4790.058           BE       RUSER4                                            *H01
     746                  4790.060           SPACE                                                      *H01
     747                  4790.070           BAL,15   RANDOM            PICK RANDOM NUMBER              *H01
     748                  4790.080           SPACE                                                      *H01
     749                  4790.090           SLS,7    16                EXTRACT BYTE 2                  *H01
     750                  4790.100           LB,7     7                                                 *H01
     751                  4790.110           SPACE                                                      *H01
     752                  4790.120           CW,7     BUFSIZ            GET BUFFER SIZE                 *H01
     753                  4790.130           BLE      %+2                AND CONSTRAIN                  *H01
     754                  4790.140           LW,7     BUFSIZ                                            *H01
     755                  4790.150           SPACE                                                      *H01
     756                  4790.160           CI,7     8                 GUARD AGAINST                   *H01
     757                  4790.170           BGE      %+2                HEADER MODIFICATION            *H01
     758                  4790.180           LI,7     8                                                 *H01
     759                  4790.190           SPACE                                                      *H01
     760                  4790.192           LW,6     CT:BUFAD          GET BUFFER ADDRESS              *H01
     761                  4790.193           AW,6     7                                                 *H01
     762                  4790.194           SPACE                                                      *H01
     763                  4790.195           LB,15    1,6               GET BUFFER BYTE                 *H01
     764                  4790.196           EOR,15   NOBITS+23          INVERT IT                      *H01
     765                  4790.197           STB,15   1,6                 RESTORE IT                    *H01
     766                  4790.198           SPACE                                                      *H01
     767                  4790.200  RUSER4   LW,6     CT:BUFAD          RESTORE BUFFER ADDRESS          *H01
     768                  4790.210           SPACE                                                      *H01
     769                  4790.220           LB,0     PASSES                                            *H01
     770                  4991.000  +4991,4999                                                          *H01
     771                  4991.002           SPACE                                                      *H01
     772                  4991.004           XPSD,0   BYTERROR          ENTER INSTRUCTION ERROR MONITOR *H01
     773                  4991.006           SPACE                                                      *H01
     774                  4991.008           B        BUFFEROK          RETURN TO CHECKER               *H01
     775                  4991.010           SPACE                                                      *H01
     776                  4991.012           BOUND    8                                                 *H01
     777                  4991.014  BYTERROR DATA     0                                                 *H01
     778                  4991.016           DATA     0                                                 *H01
     779                  4991.018           DATA     %+2                                               *H01
     780                  4991.020           DATA     X'07810000'       INHIBITED, REAL EXTENDED        *H01
     781                  4991.022           SPACE                                                      *H01
     782                  4991.024           XPSD,0   PUSHS             SAVE ENVIRONMENT, RESET RP      *H01
     783                  4991.026           DATA     X'880'             (BECOMES INSTRUCTION ERROR IDENT)
     784                  5184.000  +5184,5194                                                          *H01
     785                  5184.010  BUFERR   LB,8     PHASES            RETURN IF CAUGHT IN             *H01
     786                  5184.020           BEZ      BUFFEROK           PHASE ZERO (NOT CHECKING)      *H01
     787                  5184.030           SPACE                                                      *H01
     788                  5184.040           XPSD,0   BUFERROR          ENTER DATA ERROR MONITOR        *H01
     789                  5184.050           SPACE                                                      *H01
     790                  5184.060           B        BUFFEROK          RETURN TO CHECKER               *H01
     791                  5184.070           SPACE                                                      *H01
     792                  5184.080           BOUND    8                                                 *H01
     793                  5184.090  BUFERROR DATA     0                                                 *H01
     794                  5184.100           DATA     0                                                 *H01
     795                  5184.110           DATA     %+2                                               *H01
     796                  5184.120           DATA     X'07180000'       INHIBITED, REAL EXTENDED        *H01
     797                  5184.130           SPACE                                                      *H01
     798                  5184.140           XPSD,0   PUSHS             SAVE ENVIRONMENT, RESET RP      *H01
     799                  5184.150           DATA     X'580'             (BECOMES DATA ERROR IDENT)     *H01
     800                  5257.000  +5257,5257                                                          *H01
     801                  5257.010           B        RTCXIT2           LEAVE ERROR MONITOR             *H01
     802                  6037.000  +6037                                                               *H02
     803                  6037.010           SPACE                                                      *H02
     804                  6043.000  +6043                                                               *H02
     805                  6043.010           SPACE                                                      *H02
     806                  6043.020           CW,7     LIMIT             LOOK FOR BUFFER OVERFLOW        *H02
     807                  6043.030           BGE      Q0ERR              IN INPUT ESPECIALLY            *H02
     808                  6043.040           SPACE                                                      *H02
     809                  6134.000  +6134,6134                                                          *H02
     810                  6134.002           BE       SETFLAG                                           *H02
     811                  6168.000  +6168,6171                                                          *H02
     812                  6168.010  STATMENT EQU      %                                                 *H02
     813                  6168.020           LI,7     STRTBUF           INITIALIZE FOR SCAN             *H02
     814                  6281.000  +6281                                                               *H02
     815                  6281.010           SPACE                                                      *H02
     816                  6281.020  Q0ERR    LI,2     BA(FLDERROR)      TOO MANY CHARACTERS INPUT       *H02
     817                  6281.030           B        QERR                                              *H02
     818                  6283.000  +6283                                                               *H02
     819                  6283.010           SPACE                                                      *H02
     820                  6318.000  +6318,6318                                                          *H00
     821                  6318.010  AIO      BAL,15   SETNBUSY          STOP ALL ACTIVITY FOR AIO       *H00
     822                  6318.020           SPACE                                                      *H00
     823                  6318.030           LI,4     X'20'             DISARM/DISABLE I/O INTERRUPT    *H00
     824                  6318.040           WD,4     X'1100'                                           *H00
     825                  6318.050           SPACE                                                      *H00
     826                  6318.060           LI,4     0                 CLEAR ADDRESS                   *H00
     827                  6334.000  +6334                                                               *H00
     828                  6334.010           SPACE                                                      *H00
     829                  6339.000  +6339                                                               *H00
     830                  6339.010           SPACE                                                      *H00
     831                  6355.000  +6355                                                               *H00
     832                  6355.010           SPACE                                                      *H00
     833                  6371.000  +6371,6371                                                          *H00
     834                  6371.010           STH,12   *BUFSTRTW,4        STORE ADDRESS IN TABLE         *H00
     835                  6378.000  +6378                                                               *H00
     836                  6378.010           SPACE                                                      *H00
     837                  6380.000  +6380,6380                                                          *H00
     838                  6380.010  GETIP    LH,13    *BUFSTRTW,5       FETCH ADDRESS FROM TABLE        *H00
     839                  6386.000  +6386,6386                                                          *H00
     840                  6386.010           SPACE                                                      *H00
     841                  6386.020           LI,2     BA(NULMSG)        BLANK LINE                      *H00
     842                  6386.030           BAL,15   MSGOUT                                            *H00
     843                  6386.040           NOP                                                        *H00
     844                  6386.050           SPACE                                                      *H00
     845                  6386.060           B        BOOTERR0          FORCE HALT MODE                 *H00
     846                  6479.000  +6479                                                               *H00
     847                  6479.010           SPACE                                                      *H00
     848                  6632.000  +6632,6633                                                          *H01
     849                  6632.010           LI,0     XDUAL+XWRAP       LEAVE WRAP AND DUAL             *H01
     850                  6632.020           AND,8    0                  AND RESTORE CONDITIONS         *H01
     851                  6632.030           STH,8    CT:CS,1                                           *H01
     852                  6742.000  +6742                                                               *H00
     853                  6742.010           SPACE                                                      *H00
     854                  6742.020  BOOTERR0 EQU      %                                                 *H00
     855                  6784.000  +6784                                                               *H01
     856                  6784.010           SPACE                                                      *H01
     857                  6784.020  * ENTERED AFTER MODIFYING THE OPERATOR TABLE                        *H01
     858                  6784.030           SPACE                                                      *H01
     859                  6784.040  OPRXIT   LW,15    LMSSET            SKIP IF LMS                     *H02
     860                  6784.050           CW,15    LMSOLD             MARGIN-CONTROLS                *H02
     861                  6784.060           BE       SYSXIT              WERE UNCHANGED                *H02
     862                  6784.070           SPACE                                                      *H02
     863                  6784.080           LI,8     X'0C00'           STOP MFI/PFI                    *H02
     864                  6784.090           WD,8     X'1100'            MACHINE INDEPENDENT            *H02
     865                  6784.100           SPACE                                                      *H02
     866                  6784.110           LW,14    15                SET SPECIFIED MARGIN            *H02
     867                  6784.120           BAL,15   SETLMS             CONTROLS INTO ALL BANKS        *H02
     868                  6784.130           SPACE                                                      *H02
     869                  6784.140           WD,8     X'1200'           START MFI/PFI                   *H02
     870                  6784.150           B        SYSXIT             MACHINE INDEPENDENT            *H02
     871                  6784.160           SPACE                                                      *H02
     872                  6784.170  SETLMS   EQU      %                 SET LMS CLOCK MARGINS           *H02
     873                  6784.180           LCI      0                  INTO ALL BANKS OF MEMORY       *H02
     874                  6784.190           PSM,0    REGISTER            (SAVE ENVIRONMENT)            *H02
     875                  6784.200           SPACE                                                      *H02
     876                  6784.210           STW,14   LMSOLD            SAVE SYSTEM LMS CLOCK MARGINS   *H02
     877                  6784.220           SPACE                                                      *H02
     878                  6784.230           LW,14    ENDCORE           BA(END OF MEMORY)               *H02
     879                  6784.240           SLS,14   -2                 CONVERTED TO WORD              *H02
     880                  6784.250           SPACE                                                      *H02
     881                  6784.260           LW,15    LMSOLD                                            *H02
     882                  6784.270           SPACE                                                      *H02
     883                  6784.280  SETLMS0  LI,7     -4                ASSUME 4-WAY INTERLEAVE         *H02
     884                  6784.290           SPACE                                                      *H02
     885                  6784.300           LCI      7                 SET CLOCK-MARGIN CONTROLS       *H02
     886                  6784.310           LMS,15   *14,7              (SHOULD WORK ALWAYS R.E.A.)    *H02
     887                  6784.320           BIR,7    %-2                 LOOP FOR INTERLEAVING         *H02
     888                  6784.330           SPACE                                                      *H02
     889                  6784.340           AI,14    -X'2000'          REDUCE BY 8K                    *H02
     890                  6784.350           BGZ      SETLMS0            LOOP FOR ALL OF MEMORY         *H02
     891                  6784.360           SPACE                                                      *H02
     892                  6784.370           LCI      0                 RESTORE ENVIRONMENT             *H02
     893                  6784.380           PLM,0    REGISTER                                          *H02
     894                  6784.390           B        *15                                               *H02
     895                  6861.000  +6861                                                               *H01
     896                  6861.001           STW,0    IDENTSAV             (SAVE IDENTSEL)              *H01
     897                  6861.002           SPACE                                                      *H01
     898                  6861.004           LW,0     Q3                Q3=0 => Q2 IS STARTING          *H01
     899                  6861.006           BNEZ     ERRORS0            SEQUENCE NUMBER                *H01
     900                  6861.010           SPACE                                                      *H01
     901                  6861.020           XW,0     WQ2               GET STARTING SEQUENCE NUMBER    *H01
     902                  6861.030           B        %+2                                               *H01
     903                  6863.000  +6863,6863                                                          *H01
     904                  6863.010  ERRORS0  LI,0     0                 USE LARGEST POSSIBLE            *H01
     905                  6863.020           LW,1     NOBITS             RANGE OF SEQUENCE NUMBERS      *H01
     906                  6874.000  +6874                                                               *H01
     907                  6874.002           STW,0    EFWRAP                                            *H01
     908                  6874.010           SPACE                                                      *H01
     909                  6874.020           LW,11    EFSECTOR          CLEAR FIRST SECTOR              *H01
     910                  6874.030           LD,12    EFWRITE            OF ERROR LOG ON DISK           *H01
     911                  6874.040           BAL,15   BASEDRVR                                          *H01
     912                  6874.050           SPACE                                                      *H01
     913                  6874.060           B        ERRXIT0                                           *H01
     914                  6878.000  +6878,6879                                                          *H01
     915                  6883.000  +6883                                                               *H01
     916                  6883.005           SPACE                                                      *H01
     917                  6883.010           MTW,0    SEQUENCE          DO NOT WRITE LAST LOG BUFFER    *H01
     918                  6883.020           BEZ      NEXTSECT           TO DISK IF NULL ERROR LOG      *H01
     919                  6900.000  +6900                                                               *H01
     920                  6900.010           SPACE                                                      *H01
     921                  6900.020           LCI      3                 GET FIRST THREE                 *H01
     922                  6900.030           LM,0     *ERRLOG            WORDS OF ENTRY                 *H01
     923                  6900.035           LH,2     2                                                 *H01
     924                  6900.040           SPACE                                                      *H01
     925                  6900.050           LW,0     IDENTSAV          GET IDENT SELECTION             *H01
     926                  6900.052           CH,2     LOGLEV             COMPARE WITH DISPLAY           *H01
     927                  6900.054           BGE      %+2                 THRESHOLD AND SKIP IF OK      *H01
     928                  6900.056           LI,0     -1                   ELSE INHIBIT DISPLAY         *H01
     929                  6900.060           SPACE                                                      *H01
     930                  6900.070           STW,0    IDENTSEL          SAVE INSTANTANEOUS IDENTSEL     *H01
     931                  6909.000  +6909,6909                                                          *H01
     932                  6909.010  ERRXIT0  LI,3     CCP3                                              *H01
     933                  7125.000  +7125,7126                                                          *H02
     934                  7534.000  +7534,7537                                                          *H02
     935                  7632.000  +7632,7633                                                          *H02
     936                  7632.010           BNE      SCAN5              FIELD (IGNORED) ELSE PROCESS   *H02
     937                  7632.020           SPACE                                                      *H02
     938                  7632.030           LI,2     0                 IGNORE IMPLICIT NULL FIELD      *H02
     939                  7632.040           B        *RETURN5                                          *H02
     940                  7639.000  +7639,7639                                                          *H02
     941                  7639.010           SPACE                                                      *H02
     942                  7639.020           BAL,15   SCANOUT           LAST OF MANY MATCHES            *H02
     943                  7639.030           SPACE                                                      *H02
     944                  7639.040           LI,7     0                 DELIVER BLANK LINE              *H02
     945                  7639.050           STB,7    SCANBUF                                           *H02
     946                  7639.060           SPACE                                                      *H02
     947                  7639.070           LI,2     BA(SCANBUF)-1                                     *H02
     948                  7639.080           BAL,15   MSGOUT                                            *H02
     949                  7639.090           NOP                                                        *H02
     950                  7639.100           SPACE                                                      *H02
     951                  7650.000  +7650,7650                                                          *H02
     952                  7650.010           SPACE                                                      *H02
     953                  7650.020           BAL,15   SCANOUT           DISPLAY ENTRY NAME              *H02
     954                  7650.030           SPACE                                                      *H02
     955                  7993.000  +7993                                                               *H02
     956                  7993.010  BOMBING  DATA     XBOMB                                             *H02
     957                  7993.020  BURSTING DATA     XBURST                                            *H02
     958                  8273.000  +8273                                                               *H01
     959                  8273.002  YFF8     DATA     X'FF800000'                                       *H01
     960                  8305.000  +8305                                                               *H01
     961                  8305.010  BCKGND   DATA     STARTRU,CCP-1     BACKGROUND LIMITS               *H01
     962                  8506.000  +8506,8506                                                          *H02
     963                  8506.010           DES1     10,0,0,BT0P                                       *H02
     964                  8527.000  +8527,8527                                                          *H01
     965                  8527.010  CONDES   DES1     15,0,0,CT0P                                       *H01
     966                  8576.000  +8576,8576                                                          *H00
     967                  8576.010  OPDES    DES1     18,0,0,OT1P                                       *H00
     968                  8578.000  +8578,8578                                                          *H01
     969                  8578.010           DES2     2,OPRXIT                                          *H01
     970                  8584.000  +8584,8584                                                          *H00
     971                  8584.010           DES2     2,18                                              *H00
     972                  8585.000  +8585,8585                                                          *H01
     973                  8585.010           DES2     2,OPRXIT                                          *H01
     974                  8604.000  +8604,8604                                                          *H02
     975                  8604.010           DES1     14,0,0,STT1P                                      *H02
     976                  8619.000  +8619,8619                                                          *H02
     977                  8619.010           DES2     2,26                                              *H02
     978                  8679.000  +8679                                                               *H02
     979                  8679.010           TPNR     4,0,1,2,BUFRATE                                   *H02
     980                  8699.000  +8699,8700                                                          *H01
     981                  8699.010           TPNR     2,1,2,0,CT:DUAL                                   *H01
     982                  8700.010           SPACE                                                      *H01
     983                  8752.000  +8752                                                               *H00
     984                  8752.010           TPNR     6,1,2,2,AIOUNEXP                                  *H00
     985                  8752.020           TPNR     4,0,1,2,EFWRAP                                    *H01
     986                  8752.030           TPNR     4,0,2,1,LMSSET                                    *H01
     987                  8752.035           TPNR     4,0,2,2,FLAWS                                     *H01
     988                  8779.000  +8779                                                               *H02
     989                  8779.010           TPNR     4,0,2,2,RCELIMIT                                  *H02
     990                  8915.000  +8915                                                               *H00
     991                  8915.010           DATA     X'5C60'           FLAW MARK WITH ERROR            *H00
     992                  8915.020           DATA     X'5C70'           UNEXPECTED I/O INTERRUPT        *H00
     993                  8915.030           DATA     X'3000'           RP DISCREPANCY                  *H01
     994                  8960.000  +8960                                                               *H00
     995                  8960.010           DATA     EM5C6                                             *H00
     996                  8960.020           DATA     EM5C7                                             *H00
     997                  8960.030           DATA     EM300                                             *H01
     998                  8964.000  +8964,8964                                                          *H00
     999                  8964.010  EM5C7    TEXTS    CR,'--UNRECOGNIZED I/O INTERRUPT',EM              *H00
    1000                  8964.020  EM5C1    TEXTS    CR,'--UNEXPECTED I/O INTERRUPT',EM                *H00
    1001                  8993.000  +8993                                                               *H00
    1002                  8993.010  EM5C6    TEXTS    CR,'--FLAW MARK WITH ERROR',EM                    *H00
    1003                  8993.020  EM300    TEXTS    CR,'--RP NOT EXPECTED VALUE',EM                   *H01
    1004                  9029.000  +9029,9029                                                          *H01
    1005                  9029.001           TEXTS    '     NO DEVICE RECOGNITION - DESELECTED',EM      *H01
    1006                  9030.000  +9030,9033                                                          *H02
    1007                  9055.000  +9055                                                               *H01
    1008                  9055.010  PASSTRAP DATA     OPMSG                                             *H01
    1009                  9055.020           TEXTS    'SINGLE PASS MODE HALT',EM                        *H01
    1010                  9059.000  +9059                                                               *H02
    1011                  9059.010  PASSMSG0 TEXTS    ', CPU SOURCE',EM                                 *H02
    1012                  9059.020  PASSMSG1 TEXTS    ', NO SOURCE',EM                                  *H02
    1013                  9059.030  PASSMSG2 TEXTS    ', BOMBING CONTINUOUSLY',EM                       *H02
    1014                  9059.035  PASSMSG3 TEXTS    ', BOMBING IN BURSTS',EM                          *H02
    1015                  9059.040  PASSMSG4 TEXTS    EM                                                *H02
    1016                  9062.000  +9062,9062                                                          *H00
    1017                  9062.010  IPTMSG   DATA     X'15154040'                                       *H00
    1018                  9102.000  +9102,9103                                                          *H01
    1019                  9102.010   ,CR,'REGISTER POINTER IS DECREMENTED EACH PASS (S:11, S:10),';     *H01
    1020                  9102.020   ,CR,'ALL CYCLES AND PASSES ARE SELECTABLE (S:12, S:14),';          *H01
    1021                  9113.000  +9113,9113                                                          *H01
    1022                  9113.010   ,CR,CR,'PHASE 0=BUFFER INITIALIZATION AND KEYING (SOURCE DEVICE)'; *H01
    1023                  9179.000  +9179,9179                                                          *H01
    1024                  9179.002   ,CR,CR,'THE ERROR LOG ON THE BASE DEVICE (OR THE IN-MEMORY BUFFER)';
    1025                  9179.004   ,CR,'IS SCANNED FOR ANY ENTRIES QUALIFIED FOR DISPLAY ON THE TTY.';*H01
    1026                  9179.010   ,CR,'DISPLAY OCCURS ONLY IF THE SEVERITY LEVEL OF AN ENTRY';       *H01
    1027                  9179.020   ,CR,'IS GREATER THAN OR EQUAL TO THE L PARAMETER OF THE OP TABLE.';*H01
    1028                  9185.000  +9185,9185                                                          *H01
    1029                  9185.010   ,CR,'NO COMPARISON TAKES PLACE.  IF Q3 ALONE IS NULL, HOWEVER,';   *H01
    1030                  9185.020   ,CR,'Q2 IS USED AS THE SEQUENCE NUMBER AT WHICH TO START DISPLAY.';*H01
    1031                  9281.000  +9281,9281                                                          *H02
    1032                  9281.010   ,CR,' CRND=RANDOM BUFFERS CHECKED';                                *H02
    1033                  9281.020   ,CR,' RATE=PROCESSING RATE (BUFFERS/SECOND)'                       *H02
    1034                  9283.000  +9283,9283                                                          *H02
    1035                  9283.010   ,CR,' AVAIL  TOTAL  REFIL   SFIX   SSEQ   SRND';                   *H02
    1036                  9283.020   ,'   CFIX   CSEQ   CRND RATE',EM                                   *H02
    1037                  9293.000  +9293,9295                                                          *H01
    1038                  9294.010   ,CR,'  800=DATA ERROR INJECTION (BY CPU HANDLER)';                 *H01
    1039                  9294.020   ,CR,'  400=PE INJECTION IN PHASE 2/3 (BY ALL HANDLERS)';           *H01
    1040                  9294.030   ,CR,'  200=PE INJECTION IN PHASE 0/1 (BY CPU HANDLER, IF 400 SET)';*H02
    1041                  9295.010   ,CR,'      NO PREFIX (7446), SHORT TRANSFER (MM)';                 *H01
    1042                  9295.020   ,CR,'      NO REWIND (TAPES), NO SEEK OVERLAP (DISKS)';            *H01
    1043                  9297.000  +9297,9298                                                          *H02
    1044                  9297.010   ,CR,'   80=RATE-ERROR RESTRICTED, FORCE BOMBING';                  *H02
    1045                  9298.020   ,CR,'   40=INHIBIT BUFFER AND HEADER CHECK, AUTO BOMBING';         *H02
    1046                  9310.000  +9310,9310                                                          *H02
    1047                  9310.010   ,CR,'   80=ON RATE-ERROR WAIT, OR CPU BOMBING';                    *H02
    1048                  9337.000  +9337,9337                                                          *H01
    1049                  9337.010   ,'BUFFER   COMS  MAPS OP EC EL NC PC SF DL',EM                     *H01
    1050                  9383.000  +9383,9383                                                          *H00
    1051                  9383.010   ,CR,'O:13 AIOC=COUNT OF I/O INTERRUPTS';                           *H00
    1052                  9383.020   ,CR,'O:14 AIOU=COUNT OF UNRECOGNIZED I/O INTERRUPTS';              *H00
    1053                  9383.030   ,CR,'O:15 WRAP=COUNT OF ERROR LOG FILE WRAP-AROUNDS';              *H01
    1054                  9383.040   ,CR,'O:16 LMS=SET CLOCK MARGIN CONTROL WORD (00-15)';              *H01
    1055                  9383.050   ,CR,'O:17 FLAW=COUNT OF FLAW MARKS ENCOUNTERED'                    *H01
    1056                  9386.000  +9386,9386                                                          *H00
    1057                  9386.010   ,' BASE SORS   AIOC   AIOU WRAP  LMS FLAW',EM                      *H00
    1058                  9397.000  +9397,9397                                                          *H02
    1059                  9397.010   ,CR,' 20=ENABLE 9-LIKE LMS FOR SIGMA 7';                           *H02
    1060                  9401.000  +9401                                                               *H00
    1061                  9401.010   ,CR,' 01=ENTER HALT AT PASS COMPLETION';                           *H00
    1062                  9432.000  +9432,9432                                                          *H02
    1063                  9432.010   ,CR,'S:24 REGISTER=REGISTER PAGES PRESENT (BIT PER PAGE)';         *H02
    1064                  9432.020   ,CR,'S:25 RCE=NUMBER OF SOFT HITS TO DISPLAY (MOS)'                *H02
    1065                  9435.000  +9435,9435                                                          *H02
    1066                  9435.010   ,' MSTART MEMSIZ REGISTER  RCE',EM                                 *H02
    1067                  9574.000  +9574                                                               *H00
    1068                  9574.010  AIOUNEXP DATA     0                                                 *H00
    1069                  9574.015  B17TARGT DATA     0                                                 *H02
    1070                  9574.020  LMSSET   DATA     0                 SET CLOCK MARGIN CONTROL WORD   *H01
    1071                  9574.030  LMSOLD   DATA     0                                                 *H01
    1072                  9574.040  FLAWS    DATA     0                                                 *H01
    1073                  9574.050  RCETOTAL DATA     0                 CURRENT REMAINING SOFT-HITS     *H02
    1074                  9574.060  BUFBEGIN DATA     0                 REALTIME START OF BUFFER ACTIVITY
    1075                  9574.070  BUFRATE  DATA     0                 NUMBER OF BUFFERS PER SECOND    *H02
    1076                  9646.000  +9646,9646                                                          *H01
    1077                  9646.010           DATA     X'2A000000'+4                                     *H01
    1078                  9657.000  +9657                                                               *H01
    1079                  9657.010  BASESTND RES      1                                                 *H01
    1080                  9690.000  +9690                                                               *H01
    1081                  9690.010  IDENTSAV DATA     0                                                 *H01
    1082                  9724.000  +9724                                                               *H01
    1083                  9724.010  EFWRAP   DATA     0                                                 *H01
    1084                  9758.000  +9758                                                               *H00
    1085                  9758.010           DATA,2   X'3282'           DC - T3282                      *H00
    1086                  9758.020           DATA,2   X'3283'           DD - T3283                      *H00
    1087                  9758.030           DATA,2   X'328F'           DE - T328F                      *H01
    1088                  9801.000  +9801                                                               *H00
    1089                  9801.010           DATA,2   'DC'              DC - T3282                      *H00
    1090                  9801.020           DATA,2   'DD'              DD - T3283                      *H00
    1091                  9801.030           DATA,2   'DE'              DE - T328F                      *H01
    1092                  9839.000  +9839                                                               *H00
    1093                  9839.010           DATA     RDHAN             DC - T3282                      *H00
    1094                  9839.020           DATA     RDHAN             DD - T3283                      *H00
    1095                  9839.030           DATA     RDHAN             DE - T3283                      *H01
    1096                  9877.000  +9877                                                               *H00
    1097                  9877.010           DATA,1   RPXDC             DC - T3282                      *H00
    1098                  9877.020           DATA,1   RPXDD             DD - T3283                      *H00
    1099                  9877.030           DATA,1   RPXDE             DE - T328F                      *H01
    1100                  9888.000  +9888,9888                                                          *H00
    1101                  9888.010  *        TABLE OF COMMAND BUFFER LENGTHS (WORDS)                    *H00
    1102                  9898.000  +9898,9901                                                          *H00
    1103                  9898.001           SPACE                                                      *H00
    1104                  9898.002  * WHEN USING FULL BUFFERS (64K) THERE WILL BE ENOUGH ROOM           *H00
    1105                  9898.003  * IN THE COMMAND BUFFER TO DATA-CHAIN A FULL CYLINDER TRANSFER      *H00
    1106                  9898.004           SPACE                                                      *H00
    1107                  9898.010           DATA,1   12                DA - 7272                       *H00
    1108                  9898.020           DATA,1   20                DB - 3281                       *H00
    1109                  9898.030           DATA,1   20                DC - 3282                       *H00
    1110                  9898.040           DATA,1   14                DD - 3283                       *H00
    1111                  9898.045           DATA,1   14                DE - 328F                       *H01
    1112                  9898.050           DATA,1   8                 DP - 7240                       *H00
    1113                  9898.060           DATA,1   8                 DP - 7270                       *H00
    1114                  9898.070           SPACE                                                      *H00
    1115                  9937.000  +9937,9939                                                          *H00
    1116                  9937.010  RPXDC    EQU      7                 DC - T3282                      *H00
    1117                  9937.020  RPXDD    EQU      8                 DD - T3283                      *H00
    1118                  9937.025  RPXDE    EQU      9                 DE - T328F                      *H01
    1119                  9937.030  RPXBT    EQU      10                                                *H01
    1120                  9937.040  RPX9T    EQU      11                                                *H01
    1121                  9937.050  RPX7T    EQU      12                                                *H01
    1122                  9949.000  +9949                                                               *H00
    1123                  9949.010           DATA     1024*16           DC - T3282                      *H00
    1124                  9949.020           DATA     1024*16           DD - T3283                      *H00
    1125                  9949.025           DATA     1024*16           DE - T328F                      *H01
    1126                  9961.000  +9961                                                               *H00
    1127                  9961.010           DATA     30                DC - T3282                      *H00
    1128                  9961.020           DATA     19                DD - T3283                      *H00
    1129                  9961.025           DATA     19                DE - T328F                      *H01
    1130                  9973.000  +9973                                                               *H00
    1131                  9973.010           DATA     1123              DC - T3282                      *H00
    1132                  9973.020           DATA     815               DD - T3283                      *H00
    1133                  9973.025           DATA     555               DE - T328F                      *H01
    1134                  9985.000  +9985                                                               *H00
    1135                  9985.010           DATA,1   8                 DC - T3282                      *H00
    1136                  9985.020           DATA,1   8                 DD - T3283                      *H00
    1137                  9985.025           DATA,1   8                 DE - T328F                      *H01
    1138                  9990.000  +10005                                                              *H00
    1139                  9990.010           DATA,1   30                DC - T3282                      *H00
    1140                  9990.020           DATA,1   19                DD - T3283                      *H00
    1141                  9990.025           DATA,1   19                DE - T328F                      *H01
    1142                  9990.030  +10017                                                              *H00
    1143                  9990.040           DATA,1   8                 DC - T3282                      *H00
    1144                  9990.050           DATA,1   8                 DD - T3283                      *H00
    1145                  9990.055           DATA,1   8                 DE - T328F                      *H01
    1146                  9990.060  +10029                                                              *H00
    1147                  9990.070           DATA,1   8                 DC - T3282                      *H00
    1148                  9990.080           DATA,1   8                 DD - T3283                      *H00
    1149                  9990.085           DATA,1   8                 DD - T328F                      *H01
    1150                  9990.090  +10041                                                              *H00
    1151                  9990.100           DATA,1   16                DC - T3282                      *H00
    1152                  9990.110           DATA,1   16                DD - T3283                      *H00
    1153                  9990.115           DATA,1   16                DE - T328F                      *H01
    1154                  9990.200  +10077,10077                                                        *H02
    1155                  9990.210  SYSMODE  GEN,8,24 XSNSX,0           DEFAULT SYSTEM MODE             *H02
    1156                  9990.300  +10095                                                              *H02
    1157                  9990.310  RCELIMIT DATA     X'80'             NUMBER OF SOFT-HITS TO DISPLAY  *H02
    1158                  9990.400  +10207,10210                                                        *H02
    1159                  9990.410  CONFIG0  LPSD,8   INITPSD           SET MA TO 1                     *H02
    1160                  9990.420  CONFIG3  XPSD,0   INITPSD1           SET EA AND MA TO 1             *H02
    1161                  9990.430  CONFIG4  LW,0     INITPSD1+1          CHECK PREVIOUS MA             *H02
    1162                  9990.440           AND,0    BIT+8                (FOR LARGE PHYSICAL SPACE)   *H02
    1163                  9990.500  +10212,10212                                                        *H01
    1164                  9990.510           LW,0     BIT+9                  ELSE SET 4KK LIMIT         *H01
    1165                  9990.520  +10236                                                              *H01
    1166                  9990.522           STW,2    BASEDEV                                           *H01
    1167                  9990.524           STW,2    SORCEDEV                                          *H01
    1168                  9990.526           SPACE                                                      *H01
    1169                  9990.528  +10239                                                              *H01
    1170                  9990.530           SPACE                                                      *H01
    1171                  9990.540  +10245,10245                                                        *H01
    1172                  9990.541  INCMEM   AI,2     X'2000'           INCREMENT BY 8K                 *H01
    1173                  9990.542           SPACE                                                      *H02
    1174                  9990.543  +10267,10270                                                        *H02
    1175                  9990.544           LW,13    MEMSIZE           COMPUTE LWA MEMORY              *H02
    1176                  9990.545           AI,13    -1                 AND DISPLAY FOR OPERATOR       *H02
    1177                  9990.546           SPACE                                                      *H02
    1178                  9990.547           LW,6     X6200000          SIX HEX DIGITS                  *H02
    1179                  9990.548           LI,7     BA(MSGMEM)+4-BA(BUFFER)                           *H02
    1180                  9990.549           BAL,15   PUSH                                              *H02
    1181                  9990.550           SPACE                                                      *H02
    1182                  9990.551           LI,6     'M'               RESTORE PUSH DAMAGE             *H02
    1183                  9990.552           STB,6    BUFFER,7           TO MESSAGE ITSELF              *H02
    1184                  9990.600           SPACE                                                      *H02
    1185                  9990.601           CAL4,8   MSGMEM                                            *H02
    1186                  9990.602           NOP      0,0                                               *H02
    1187                  9990.614  +10286,10286                                                        *H02
    1188                  9990.616           SPACE                                                      *H02
    1189                  9990.618           LCI      0                 STORE ENTIRE                    *H02
    1190                  9990.620           STBS     CONFGEND           BRANCH STACK                   *H02
    1191                  9990.622           SPACE                                                      *H02
    1192                  9990.623  +10330,10330                                                        *H02
    1193                  9990.624           LI,0     XCSEL+XSORSS+XBOMBA SELECT, SOURCE, AUTO BOMB     *H02
    1194                  9990.630  +10462,10480                                                        *H02
    1195                  9990.632           LW,8     SIGMA9             SKIP IF SIGMA 8/9 OR T-SERIES  *H02
    1196                  9990.634           BNEZ     CHKIF8                                            *H02
    1197                  9990.636           SPACE                                                      *H02
    1198                  9990.638           LI,8     0                 STORE INVALID INSTRUCTION       *H02
    1199                  9990.640           STW,8    X'3FFF'            IN TEST LOCATION (REAL)        *H02
    1200                  9990.642           SPACE                                                      *H02
    1201                  9990.644           LW,8     BROK              STORE VALID INSTRUCTION         *H02
    1202                  9990.646           STW,8    X'3DFF'            IN TEST LOCATION (VIRTUAL)     *H02
    1203                  9990.648           SPACE                                                      *H02
    1204                  9990.650           LI,0     LPSDINST          SETUP RECOVERY                  *H02
    1205                  9990.652           LW,1     NXIDENT            IF TRAP OCCURS                 *H02
    1206                  9990.654           STD,0    RECOVER                                           *H02
    1207                  9990.656           SPACE                                                      *H02
    1208                  9990.658           LI,6     MAPIMAG           MAP 3000-3FFF                   *H02
    1209                  9990.660           LW,7     CSTART                                            *H02
    1210                  9990.662           MMC,6    4                                                 *H02
    1211                  9990.664           SPACE                                                      *H02
    1212                  9990.666           LI,8     0                 INITIALIZE FOR NO MAP           *H02
    1213                  9990.668           LPSD,0   MAPMODE            AND ATTEMPT TO GO VIRTUAL      *H02
    1214                  9990.670           SPACE                                                      *H02
    1215                  9990.672           BOUND    8                                                 *H02
    1216                  9990.674  MAPMODE  DATA     X'00403FFF'       START AT VIRTUAL 3FFF           *H02
    1217                  9990.676           DATA     X'07000000'        (REAL 3DFF)                    *H02
    1218                  9990.678           SPACE                                                      *H02
    1219                  9990.680  INITPSD  DATA     CONFIG3           SET MA AND EA                   *H02
    1220                  9990.682           DATA     X'07810000'                                       *H02
    1221                  9990.684           SPACE                                                      *H02
    1222                  9990.700  +10666,10670                                                        *H01
    1223                  9990.710           BAZ      INCDEV#           MANUAL - NOT CONFIGURED         *H01
    1224                  9991.010  +10789,10790                                                        *H00
    1225                  9991.020           LW,12    CYL555            SEEK: CYL-555, TRK-0, SEC-0     *H00
    1226                  9991.030           BAL,14   SEEKSIO1                                          *H00
    1227                  9991.040           SPACE                                                      *H00
    1228                  9991.050           CW,9     BIT+2             SECTOR UNAVAILABLE?             *H00
    1229                  9991.060           BANZ     T3281              YES - MUST BE 3281             *H00
    1230                  9991.070           SPACE                                                      *H00
    1231                  9991.080           LW,12    CYL815            SEEK: CYL-815, TRK-0, SEC-0     *H00
    1232                  9991.090           BAL,14   SEEKSIO1                                          *H00
    1233                  9991.100           SPACE                                                      *H00
    1234                  9991.110           CW,9     BIT+2             SECTOR UNAVAILABLE?             *H00
    1235                  9991.120           BANZ     T3283              YES - MUST BE 3283             *H00
    1236                  9991.130           SPACE                                                      *H00
    1237                  9991.140           LI,9     X'3282'           SET DC - T3282                  *H00
    1238                  9991.150           B        *15                                               *H00
    1239                  9991.160           SPACE                                                      *H00
    1240                  9991.170  T3283    LI,0     DA(CPSEEK0)       RESTORE CARRIAGE                *H00
    1241                  9991.180           BAL,14   SEEKSIO1           TO AVOID PROBLEMS              *H00
    1242                  9991.190           SPACE                                                      *H00
    1243                  9991.200           LI,9     X'3283'           SET DD - T3283                  *H00
    1244                  9991.210           B        *15                                               *H00
    1245                  9991.220           SPACE                                                      *H00
    1246                  9991.230  T3281    LI,0     DA(CPSEEK0)       RESTORE CARRIAGE                *H00
    1247                  9991.240           BAL,14   SEEKSIO1           TO AVOID PROBLEMS              *H00
    1248                  9991.250           SPACE                                                      *H00
    1249                  9991.260           LI,9     X'3281'           SET DB - T3281                  *H00
    1250                  9991.270           B        *15                                               *H00
    1251                  9991.280  +10951,10951                                                        *H02
    1252                  9991.290           LI,0     XCSEL+XTOGL+XPSNSQ+XWAIT+XDEVSL                   *H02
    1253                  9991.300  +10956,10957                                                        *H01
    1254                  9991.310           LI,15    X'04'             SET DEFAULT                     *H01
    1255                  9991.320           STB,15   CT:SF,1            SURFACE SHIFT                  *H01
    1256                  9991.330           SPACE                                                      *H01
    1257                  9991.340           LI,15    X'FF'             SET DEFAULT                     *H01
    1258                  9991.350           STB,15   CT:PC,1            CHECKWRITE PROBABILITY         *H01
    1259                  9992.000  +11003,11049                                                        *H01
    1260                  9992.010  CHKDUAL  LI,1     0                 INITIALIZE CTX                  *H01
    1261                  9992.020           SPACE                                                      *H01
    1262                  9992.030  CHKDUAL0 AI,1     1                 UPDATE CTX                      *H01
    1263                  9992.040           CW,1     COUNT              AND STOP AT END                *H01
    1264                  9992.050           BG       FILLCOM                                           *H01
    1265                  9992.060           SPACE                                                      *H01
    1266                  9992.070           LB,8     CT:ETX,1          LOOK FOR ROTATING MEMORY        *H01
    1267                  9992.080           CI,8     ETXRADS            (SKIP ALL ELSE)                *H01
    1268                  9992.090           BG       CHKDUAL0                                          *H01
    1269                  9992.100           SPACE                                                      *H01
    1270                  9992.110           LW,2     1                 PREPARE SCAN TO END OF CT       *H01
    1271                  9992.120           LH,3     CT:DS,1            SAVE DEVICE SELECTION BITS     *H01
    1272                  9992.130           SPACE                                                      *H01
    1273                  9992.140  CHKDUAL1 AI,2     1                 LOOK AT NEXT CTX                *H01
    1274                  9992.150           CW,2     COUNT              AND STOP AT END                *H01
    1275                  9992.160           BG       CHKDUAL0                                          *H01
    1276                  9992.170           SPACE                                                      *H01
    1277                  9992.180           LB,8     CT:ETX,2          LOOK FOR ROTATING MEMORY        *H01
    1278                  9992.190           CI,8     ETXRADS            (SKIP ALL ELSE)                *H01
    1279                  9992.200           BG       CHKDUAL1                                          *H01
    1280                  9992.210           SPACE                                                      *H01
    1281                  9992.220           LH,5     CT:DS,2           GET DEVICE SELECTION BITS       *H01
    1282                  9992.230           AND,5    3                  AND LOOK FOR DEVICES IN COMMON *H01
    1283                  9992.240           BEZ      CHKDUAL1            SKIP IF NOTHING IN COMMON     *H01
    1284                  9992.250           SPACE                                                      *H01
    1285                  9992.255           LI,4     0                 LOOK FOR 16 COMMON PAIRS        *H01
    1286                  9992.270           SPACE                                                      *H01
    1287                  9992.280  CHKDUAL2 CW,5     BIT+16,4          GET NEXT DEVICE PAIR            *H01
    1288                  9992.290           BANZ     MAYDUAL                                           *H01
    1289                  9992.300           SPACE                                                      *H01
    1290                  9992.310  CHKDUAL3 AI,4     1                 UPDATE PAIR INDEX               *H01
    1291                  9992.320           CI,4     16                 STOP AFTER 16 CHECKS           *H01
    1292                  9992.330           BL       CHKDUAL2                                          *H01
    1293                  9992.340           B        CHKDUAL1                                          *H01
    1294                  9992.350           SPACE                                                      *H01
    1295                  9992.360  MAYDUAL  LH,13    CT:CA,1           GET CONTROLLER ADDRESS          *H01
    1296                  9992.370           LH,14    CT:CA,2            GET CONTROLLER ADDRESS         *H01
    1297                  9992.380           SPACE                                                      *H01
    1298                  9992.390           AW,13    4                 OFFSET BY DEVICE ADDRESSES      *H01
    1299                  9992.400           AW,14    4                                                 *H01
    1300                  9992.410           SPACE                                                      *H01
    1301                  9992.420           LI,0     DA(CPSEEK0)       DO RESTORE/READ HEADER          *H01
    1302                  9992.430           SIO,0    *13                TO FIRST DEVICE OF PAIR        *H01
    1303                  9992.440           BCS,8+4  CHKDUAL0            SKIP CONTROLLER IF TROUBLE    *H01
    1304                  9992.450           SPACE                                                      *H01
    1305                  9992.460           TIO,15   *14               CHECK STATE OF SECOND DEVICE    *H01
    1306                  9992.470           BCR,8+4  NOTDUAL            SKIP IF SIO POSSIBLE           *H01
    1307                  9992.480           SPACE                                                      *H01
    1308                  9992.530           LI,11    XDUAL             FOUND A DUAL-ACCESS PAIR        *H01
    1309                  9992.540           STH,11   CT:CS,2            SET FLAGS IN CTX               *H01
    1310                  9992.550           STH,11   CT:CS,1                                           *H01
    1311                  9992.560           SPACE                                                      *H01
    1312                  9992.570           STB,1    CT:DUAL,2         CTX ENTRIES POINT TO EACH OTHER *H01
    1313                  9992.580           STB,2    CT:DUAL,1                                         *H01
    1314                  9992.590           SPACE                                                      *H01
    1315                  9992.600           BAL,14   SEEKSIO2          WAIT FOR DEVICE READY           *H01
    1316                  9992.610           SPACE                                                      *H01
    1317                  9992.620           B        CHKDUAL0          LOOK FOR ANOTHER CONTROLLER PAIR*H01
    1318                  9992.630           SPACE                                                      *H01
    1319                  9992.640  NOTDUAL  BAL,14   SEEKSIO2          WAIT FOR DEVICE READY           *H01
    1320                  9992.650           SPACE                                                      *H01
    1321                  9992.660           B        CHKDUAL3                                          *H01
    1322                  9993.000  +11156,11157                                                        *H01
    1323                  9993.010           LH,1     CT:DA,1             ELSE LOAD BASE DEVICE ADDRESS *H01
    1324                  9993.020           SPACE                                                      *H01
    1325                  9993.030           LW,13    1                 POSITION ADDRESS FOR DISPLAY    *H01
    1326                  9993.040           SPACE                                                      *H01
    1327                  9993.050           CAL4,10  CONDES,1          DISPLAY CONTROL TABLE           *H01
    1328                  9993.060           NOP      CONQS,1                                           *H01
    1329                  9993.070           SPACE                                                      *H01
    1330                  9993.080           CAL4,10  OPDES,1           DISPLAY OPERATOR TABLE          *H01
    1331                  9993.090           NOP      ZEROS                                             *H01
    1332                  9998.000  +11181,11182                                                        *H01
    1333                  9998.010           CI,8     X'80'             ERROR IF NOT                    *H01
    1334                  9998.020           BAZ      NOTRAD             MULTI-DEVICE CONTROLLER        *H01
    1335                  9998.030           SPACE                                                      *H01
    1336                  9998.040  +11196,11203                                                        *H01
    1337                  9998.050  CHKDS    LB,3     CT:ETX,1          GET ETX                         *H01
    1338                  9998.060  +11214,11215                                                        *H01
    1339                  9998.070           SPACE                                                      *H01
    1340                  9998.080           LW,2     13                GET BASE DEVICE ADDRESS         *H01
    1341                  9998.090           AND,2    NOBITS+27          AND MASK OFF CONTROLLER        *H01
    1342                  9998.100           SPACE                                                      *H01
    1343                  9998.110  +11223,11223                                                        *H01
    1344                  9998.120           LW,2     13                GET BASE DEVICE ADDRESS         *H01
    1345                  9998.130  +11253                                                              *H01
    1346                  9998.140           SPACE                                                      *H01
    1347                  9998.170  +11256,11259                                                        *H01
    1348                  9998.180           SPACE                                                      *H01
    1349                  9998.190  +11399                                                              *H00
    1350                  9998.200  CYL815   DATA     815**16           FIRST UNAVAILABLE CYL, T3283    *H00
    1351                  9998.210  CYL555   DATA     555**16           FIRST UNAVAILABLE CYL, T3282    *H00
    1352                  9998.220  +11439,11439                                                        *H02
    1353                  9998.230           TEXTS    '012345 MEMORY LAST WORD ADDRESS',EM              *H02
    1354                  9998.300  +11446,11446                                                        *H02
    1355                  9998.310  +11455,11457                                                        *H02
    1356                  9998.320           SPACE                                                      *H02
    1357                  9998.330  BROK     B        MAPOPT            LOCATED VIRTUAL 3FFF, REAL 3DFF *H02
    1358                  9998.340           SPACE                                                      *H02
    1359                  9998.350  MAPIMAG  DATA     X'18191A1B',X'1C1D1E1E' (3E00=>3C00)              *H02
    1360                  9998.360           SPACE                                                      *H02
    1361                  9998.370  CSTART   DATA     X'02003000'       START MAPPING AT 3000           *H02
    1362                  9998.380           SPACE                                                      *H02
    1363                  9998.400  +11465                                                              *H02
    1364                  9998.410  X6200000 DATA     X'06200000'                                       *H02
    1365                  9999.999  +END                                                                *H02
1 C00   21:59 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   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE    3
A       1*        TEXT               VERSION  EQU      C'H02'                                            *H02
        2         TEXT               CATALOG  EQU      C'0050'
        3         TEXT               TITLE EQU S:PT('TELEFILE SYSTEM EXERCISER 960-',CATALOG,'-',VERSION)
        4                                     PCC
        5                                     SYSTEM   SIG9P

        1*                           * NEW INSTRUCTIONS AND PSUEDO-OPERATIONS                            *H02

        3*        00000271           STBS     S:SIN,1  X'271'            STORE BRANCH STACK              *H02
        4*                       *S* LBS      S:SIN,1  X'270'            LOAD BRANCH STACK               *H02

        7         00000000           TEXTS    CNAME
        8                                     PROC
        9                                     DISP     %                 ELIMINATES DISPLAYING
       10                                     LIST     0                 THE HEXADECIMAL CONTENTS
       11                            LF       TEXT     AF                OF EACH LOCATION
       12                                     LIST     1
       13                                     SPACE
       14                                     PEND

       16                            *        TABLE SIZE LIMITS

       18         00000028           ETSIZ    EQU      40                ELEMENT TABLE LIMIT
       19         00000014           CTSIZ    EQU      20                CONTROL TABLE LIMIT
       20         0000000C           RPSIZ    EQU      12                RELATIVE PARAMETER TABLE SIZE
       21         00000100           EBSIZ    EQU      256               ERROR BUFFER SIZE
       22         00000040           CFSIZ    EQU      64                CONFIGURATOR TABLE SIZE
       23         00000008           TTYSIZ   EQU      8                 LOCAL TTY INPUT BUFFER SIZE
       24         00000010           COCSIZ   EQU      16                COC INPUT BUFFER SIZE
       25         00000010           IOPSIZ   EQU      16                IOPS
       26         00000008           INTSIZ   EQU      8                 INTERRUPT GROUPS

       28                            *        PARAMETER LIMITS

        1*        00000004           STACKSIZ EQU      4                 PUSHDOWN STACK ENVIRONMENTS     *H02
       31         00000004           STRTBUF  EQU      4                 POSITION OF 1ST INPUT CHAR
       32         00000002           PRMPTPOS EQU      STRTBUF-2         POSITION OF PROMPT CHAR

       34                            *        TRAP INTERRUPT RECOVERY AND IDENTIFIER LOCATIONS

       36         00000028           RECOVER  EQU      X'28'
       37         00000029           TRAPKIND EQU      X'29'             EXPECTED CC AND TYPE

       39                            *        HANDLER ENTRY POINTS

       41         00000000           DEVWAIT  EQU      0                 RESTART AFTER OVERRUN WAIT
       42         00000001           DEVLOOP  EQU      1                 LOOP OR FREEZE ENTRY
       43         00000002           DEVRSTRT EQU      2                 RESTART ENTRY
       44         00000003           DEVRETRY EQU      3                 SOFTWARE TIME-OUT ENTRY
       45         00000004           DEVNOBUF EQU      4                 NEEDS A BUFFER ENTRY
       46         00000005           DEVSTART EQU      5                 INITIAL START ENTRY
       47         00000006           DEVERROR EQU      6                 ERROR AIO ENTRY
       48         00000007           DEVDRIVE EQU      7                 NORMAL AIO ENTRY
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE    4
A      51                            *        SYSTEM TABLE-SYSTEM MODE BYTE-SM

       53         00000080           XFREZE   EQU      X'80'             INHIBIT PASS/PHASE CHANGES
       54         00000040           XNOMEM   EQU      X'40'             INHIBIT LARGE MEMORY (>128K)
        1*        00000020           XLMS     EQU      X'20'             SIGMA 9-LIKE LMS STATUS         *H02
       56         00000010           XNOLOG   EQU      X'10'             INHIBIT AUDITOR ON LOOP
       57         00000008           XNONEW   EQU      X'08'             INHIBIT NEW BUFFER MANAGEMENT
       58         00000004           XSNSX    EQU      X'04'             INHIBIT FULL SENSE (NON-DISKS)
       59         00000002           XNFLT    EQU      X'02'             INHIBIT FAULT LIGHT RESET

       61                            *        SYSTEM TABLE-DATA SELECTION BYTE-DS

       63         00000080           XMATH    EQU      X'80'             MATH INST. FOR PASS 5
       64         00000040           XFLOAT   EQU      X'40'             FLOATING POINT FOR PASS 5
       65         00000020           XDECIMAL EQU      X'20'             DECIMAL INST. FOR PASS 5
       66         00000010           XBYTE    EQU      X'10'             BYTE STRING FOR PASS 5
       67         00000004           XDATRM   EQU      4                 RANDOM DATA PATTERNS M=M C=1
       68         00000002           XDATSQ   EQU      2                 SEQUENTIAL DATA PATTERNS M=1 C=0
       69         00000001           XDATFX   EQU      1                 FIXED DATA PATTERNS M=0 C=0

       71                            *        CONTROLLER TABLE-CT:OPS-OPERATION SELECTION-C:3

       73         00008000           XCSEL    EQU      X'8000'           CONTROLLER IS SELECTED FOR USE
       74         00004000           XLOOP    EQU      X'4000'           CONTROLLER OPERATIONS REPEATED
       75         00002000           XSORSS   EQU      X'2000'           CAN BE USED FOR SOURCE
       76         00001000           XKEYED   EQU      X'1000'           CONTROLLER ALREADY KEYED
       77         00000800           XMODE0   EQU      X'800'            FORCED PARITY ERRORS
       78         00000400           XMODE1   EQU      X'400'            FORCED PARITY ERRORS
       79         00000200           XMODE2   EQU      X'200'            NO PREFIX, SHORT XMIT, NO REW
       80         00000100           XBURST   EQU      X'100'            CONTROLLER ON BURST TIMER
       81         00000080           XWAITS   EQU      X'80'             RESTRICTED FROM RATE ERROR
        1*        00000080           XBOMBF   EQU      X'80'             CPU BOMBING FORCED              *H02
        2*        00000040           XBOMBA   EQU      X'40'             CPU BOMBING AUTOMATIC           *H02
        3*        00000040           XNCHECK  EQU      X'40'             INHIBIT HEADER AND DATA CHECK   *H02
       83         00000030           XTOGL    EQU      X'30'             TOGGLE:  READ AND WRITE ALTERNATE
       84         00000020           XREAD    EQU      X'20'             READ ONLY:  CONTROLLERS NEVER WRITE
       85         00000010           XWRYT    EQU      X'10'             WRITE ONLY:  CONTROLLERS NEVER READ
       86         00000008           XDEVSL   EQU      8                 SELECT UNITS SERIALLY
       87         00000004           XPSNSQ   EQU      4                 SELECT POSITIONS SEQUENTIALLY
       88         00000002           XFORCE   EQU      2                 FORCE CHECK:  BUFFER MUST BE CHECKED
       89         00000001           XCHASE   EQU      1                 USES CHECKED BUFFER ONLY

       91                            *        MAP BITS FOR MAG TAPE HANDLER

       93         00008000           XSIOA    EQU      X'8000'           SIO ACCEPTED
       94         00004000           XSIOP    EQU      X'4000'           SIO PENDING
       95         00002000           XRWIA    EQU      X'2000'           REWIND ACCEPTED
       96         00001000           XRWIP    EQU      X'1000'           REWIND PENDING
       97         00000800           XRWIAM   EQU      X'0800'           REWINDING AT START
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE    5
A      99                            *        CONTROLLER TABLE-CT:CS-CONTROLLER STATUS-C:4

      101         00008000           XBUSY    EQU      X'8000'           BUSY:  CONTROLLER IS BEING EXERCISED
      102         00002000           XSORS    EQU      X'2000'           SOURCE: DEVICE IS READ ONLY
      103         00001000           XKEYN    EQU      X'1000'           KEYING:  DEVICE INITIALIZATION
      104         00000100           XBTOUT   EQU      X'100'            BURST DEVICES INACTIVE
      105         00000080           XWAIT    EQU      X'80'             RATE-ERROR WAIT
        1*        00000080           XBOMB    EQU      X'80'             CPU IS BOMBING                  *H02
      106         00000040           XWRAP    EQU      X'40'             WRAPPED:  THE TOTAL SURFACE IS KEYED
      107         00000020           XNOBUF   EQU      X'20'             CONTROLLER IS WAITING FOR A BUFFER
      108         00000010           XDUAL    EQU      X'10'             DEVICE SHARING CONTROLLER
      109         00000008           XMANUL   EQU      8                 CONTROLLER HAS MANUAL DEVICE
      110         00000004           XERROR   EQU      4                 PREVIOUSLY FAILED
      111         00000002           XWORDRES EQU      2                 WORD BOUNDARY TRANSFERS ONLY
      112         00000001           XINITAL  EQU      1                 INITIAL START UP
      113         00000018           XCLEAN   EQU      XDUAL+XMANUL

      115                            *        BUFFER STATUS BYTES

      117         00000080           XBUFBIZ  EQU      X'80'             THE BUFFER IS BEING USED
      118         00000010           XCHEKT   EQU      X'10'             THE BUFFER HAS BEEN CHECKED
      119         00000008           XFRESHN  EQU      8                 THE BUFFER NEEDS REFRESHING
      120         00000048           XBDIRTY  EQU      XFRESHN+XNCHECK

      122         00000008           XRETRY   EQU      8                 RECOVERY RETRY COUNT
      123         0000000C           XHEADER  EQU      12                BUFFER HEADER SIZE

      125         00000800           PASS0SIZ EQU      512*4             PASS 0 BLOCK SIZE
      126         00000010           PASS1SIZ EQU      XHEADER+4         PASS 1 BLOCK SIZE
      127         00000030           PASS5SIZ EQU      48                PASS 5 BLOCK SIZE
      128         00001800           PASS6SIZ EQU      1024*6            PASS 6 BLOCK SIZE
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE    6
A     130                            *        CONTROL CHARACTERS

      132         TEXT               EM       EQU      C' '              X'00'
      133         TEXT               CR       EQU      C'
'              X'15'
      134         00000015           RETURN   EQU      X'15'           RETURN ENDS STATEMENT IN
      135         0000006B           DELIMETR EQU      X'6B'           , FIELD DELIMETER
      136         0000005E           EOR      EQU      X'5E'           ; FIELD EXCLUSIVE OR
      137         0000004D           SMSGMOD  EQU      X'4D'           ( SET MESSAGE MODE
      138         0000005D           RMSGMOD  EQU      X'5D'           ) RESET MESSAGE MODE
      139         000000C8           HALT     EQU      X'C8'           H HALT PROMPT & HALT SYSEX
      140         000000D9           RUN      EQU      X'D9'           R RUN PROMPT
      141         0000006E           PROMPT   EQU      X'6E'           > PROMPT SEPARATOR
      142         0000004C           ERASE    EQU      X'4C'           < FIELD ERASE
      143         0000006F           XPLANE   EQU      X'6F'           ? DESTINATION EXPLANATION
      144         00000040           SPACE    EQU      X'40'             SPACE FOR ALLIGNMENT
      145         0000007D           SPACER   EQU      X'7D'           ' SPACE INDICATOR ON OUTPUT
      146         0000007A           DECIMAL  EQU      X'7A'           : DECIMAL DIGITS TO FOLLOW
      147         0000004B           POINT    EQU      X'4B'           . BYTE POSITION FOLLOWS
      148         0000007E           EQUAL    EQU      X'7E'           = TYPE ARITHMETIC RESULTS
      149         0000004E           PLUS     EQU      X'4E'           + ADD
      150         00000060           MINUS    EQU      X'60'           - SUBTRACT
      151         0000005C           MULTIPLY EQU      X'5C'           * MULTIPLY
      152         00000061           DIVIDE   EQU      X'61'           / DIVIDE
      153         00000080           NEWPAGE  EQU      X'80'
      154         0000001B           ESCAPE   EQU      X'1B'             REMOTE TERMINAL HALT
      155         40404040           LOGERR   EQU      X'40404040'       ERROR LOG PROMPT
      156         405C5C5C           SYNTAXER EQU      X'405C5C5C'       SYNTAX ERROR PROMPT
      157         155A5A40           OPMSG    EQU      X'155A5A40'       OPERATOR MESSAGE PROMPT
      158         00000000           ENDMSG   EQU      0                 MESSAGE TERMINATION
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE    7
A     160                            *        BOOT LOADER

      162   01 0002A                          ORG      X'2A'
            01 0002A
      163   01 0002A    22000019     BOOTSW   LI,0     DA(BOOTCP1)       READ PROGRAM
      164   01 0002B    CC000025 A            SIO,0    *X'25'             (STARTS AT X'40')

      166   01 0002C    225FFF80 A   BOOTLUP  LI,5     -X'80'            DELAY TO AVOID
      167   01 0002D    6550002D              BIR,5    %                  CHANNEL OVERLOADING

      169   01 0002E    CD800025 A            TIO,8    *X'25'            CHECK I/O STATUS
      170   01 0002F    69C0002C              BCS,12   BOOTLUP            CONTINUE IF BUSY

      172   01 00030    22530402 A            LI,5     X'30402'          SET TO READ DATA,
      173   01 00031    68000153              B        XFERDATA           SKIP CONFIGURATOR

      175                                     BOUND    8
      176   01 00032    030000D8 N   BOOTCP1  DATA     X'03000000'+BA(BOOTSEEK)
      177   01 00033    00000000 A            DATA     0

      179   01 00034    02000100 A            DATA     X'02000100'
      180   01 00035    0A00BA90 N            DATA     X'A000000'+BA(ERRBUF)-X'100'

      182   01 00036    00000000 A   BOOTSEEK DATA     0
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE    8
A     184   01 00040                          ORG      X'40'
            01 00040
      185   01 00040    0F0003DE              XPSD,0   TRAP40            NON-ALLOWED OPERATION
      186   01 00041    0F0003E6              XPSD,0   TRAP41            UNIMPLIMENTED INSTRUCTION
      187   01 00042    0F0003EE              XPSD,0   TRAP42            STACK LIMIT OVERFLOW
      188   01 00043    0F0003F8              XPSD,0   TRAP43            FIXED POINT OVERFLOW
      189   01 00044    0F000400              XPSD,0   TRAP44            FLOATING POINT OVERFLOW
      190   01 00045    0F000408              XPSD,0   TRAP45            DECIMAL FAULT
      191   01 00046    0F0004B2              XPSD,0   TRAP46            WATCH DOG TIMER RUN OUT
      192   01 00047    0F0003D4              XPSD,0   TRAP0
      193   01 00048    0F000410              XPSD,0   TRAP48            CAL1
      194   01 00049    0F000418              XPSD,0   TRAP49            CAL2
      195   01 0004A    0F000420              XPSD,0   TRAP4A            CAL3
      196   01 0004B    0F00044C              XPSD,0   TRAP4B            CAL4
      197   01 0004C    0F00051C              XPSD,0   TRAP4C            CPU PARITY TRAP (9)
      198   01 0004D    0F0005A8              XPSD,0   TRAP4D            INSTRUCTION EXCEPTION TRAP
      199   01 0004E    0F0003D4              XPSD,0   TRAP0
      200   01 0004F    0F0003D4              XPSD,0   TRAP0
      201   01 00050    0F0005B0              XPSD,0   INT50             POWER ON
      202   01 00051    0F0005C2              XPSD,0   INT51             POWER OFF
      203   01 00052    33102C59              MTW,1    COUNT1
      204   01 00053    33102C5A              MTW,1    COUNT2
      205   01 00054    33102C5B              MTW,1    COUNT3
      206   01 00055    33102C5C              MTW,1    COUNT4
      207   01 00056    0F0005D0              XPSD,0   INT56             MPI (5/7), PFI (9)
      208   01 00057    0F000606              XPSD,0   INT57             MFI (9)
      209   01 00058    0F000428              XPSD,0   INT58             REAL TIME CLOCK 1
      210   01 00059    0F000430              XPSD,0   INT59             REAL TIME CLOCK 2
      211   01 0005A    0F000438              XPSD,0   INT5A             REAL TIME CLOCK 3
      212   01 0005B    0F000624              XPSD,0   INT5B             REAL TIME CLOCK 4
      213   01 0005C    0F00085C              XPSD,0   INT5C             I/O INTERRUPT
      214   01 0005D    0F000440              XPSD,0   INT5D             PCP INTERRUPT
      215   01 0005E    0F0003D4              XPSD,0   TRAP0
      216   01 0005F    0F0003D4              XPSD,0   TRAP0
      217   01 00060    0F0003D4              XPSD,0   TRAP0
      218   01 00061    0F0003D4              XPSD,0   TRAP0
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE    9
A     220   01 00140                          ORG      X'140'
            01 00140
      221   01 00140    22510001 A   INITIAL1 LI,5     X'10001'          WRITE PROGRAM AND TABLES
      222   01 00141    75502D14              STB,5    BOOTXFER

      224   01 00142    32302EB8              LW,3     BASETX            GET ETX OF BASE DEVICE
      225   01 00143    12002C84              LD,0     BOOTDC            SEEK DATA AND IOCD FOR RAD

      227   01 00144    21300007 A            CI,3     ETXDPS            SKIP IF RAD
      228   01 00145    69100147              BL       %+2                IS USED FOR BASE DEVICE
      229   01 00146    12002C86              LD,0     BOOTDP            SEEK DATA AND IOCD FOR DISK

      231   01 00147    35000036              STW,0    BOOTSEEK          STORE PROPER SEEK DATA
      232   01 00148    35100033              STW,1    BOOTCP1+1         STORE PROPER SEEK IOCD

      234   01 00149    22B00000 A            LI,11    0
      235   01 0014A    12C02D14              LD,12    BOOTXFER
      236   01 0014B    6AF00388              BAL,15   BASEDRVR          WRITE BOOT TO BASE RAD

      238   01 0014C    21500200 A   XFERPRGM CI,5     X'200'            TRANSFER PROGRAM
      239   01 0014D    69400153              BANZ     XFERDATA          NO

      241   01 0014E    6AF01718              BAL,15   UNSNAP+1          UNSNAP CURRENT SNAP
      242   01 0014F    75502D16              STB,5    PRGMXFER
      243   01 00150    22B00001 A            LI,11    1
      244   01 00151    12C02D16              LD,12    PRGMXFER
      245   01 00152    6AF00388              BAL,15   BASEDRVR          TRANSFER

      247   01 00153    21500100 A   XFERDATA CI,5     X'100'            TRANSFER DATA
      248   01 00154    69400159              BANZ     XFERCONF          NO

      250   01 00155    75502D18              STB,5    DATAXFER
      251   01 00156    32B02D21              LW,11    DATAPOS           GET NEXT AVAILABLE
      252   01 00157    12C02D18              LD,12    DATAXFER
      253   01 00158    6AF00388              BAL,15   BASEDRVR          TRANSFER

      255   01 00159    21500400 A   XFERCONF CI,5     X'400'            TRANSFER CONFIGURATOR
      256   01 0015A    6940015F              BANZ     RESTART2          NO

      258   01 0015B    75502D1A              STB,5    CONFXFER
      259   01 0015C    32B02D22              LW,11    CONFPOS           GET CONFIGURATOR POSITION
      260   01 0015D    12C02D1A              LD,12    CONFXFER
      261   01 0015E    6AF00388              BAL,15   BASEDRVR          TRANSFER
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   10
A     263   01 0015F    22201F31     RESTART2 LI,2     STRTMSG           ASSUME ENTRY
      264   01 00160    21520000 A            CI,5     X'20000'           FROM CONFIGURATOR
      265   01 00161    68400163              BAZ      %+2                 (WILL SKIP)
      266   01 00162    22201F3A              LI,2     BOOTMSG              ELSE ENTRY FROM REBOOT

      268   01 00163    21510000 A            CI,5     X'10000'          SKIP IF REBOOT OR
      269   01 00164    6940016E              BANZ     RESTART0           CONFIGURATION ENTRY
      270   01 00165    6800016D              B        RESTART4            ELSE FROM RELOAD COMMAND

      272   01 00166    73002EB1     RESTART  MTB,0    COCSTATE          ENTRY FROM SYSTEM RESET
      273   01 00167    6830016D              BEZ      RESTART4           SKIP IF COC NONEXISTANT

        1*  01 00168    6AF013D0              BAL,15   COCRST            ERASE COC ASSIGNMENT            *H01

      277   01 00169    2210003F A            LI,1     X'3F'             RESET ALL LINES
      278   01 0016A    6AF019FA              BAL,15   COCLOFF            AND SET STATE AS SUCH
      279   01 0016B    6410016A              BDR,1    %-1
      280   01 0016C    6AF019FA              BAL,15   COCLOFF

      282   01 0016D    22201F2A     RESTART4 LI,2     RSTRTMSG          RESTART MESSAGE

      284         01 0016E           RESTART0 EQU      %
      285   01 0016E    49201B24              OR,2     Y07
      286   01 0016F    35200196              STW,2    RESTART3

        2*  01 00170    22100000 A            LI,1     0                 CLEAR COUNT                     *H01
        3*  01 00171    35102EE1              STW,1    SYSERRST           OF I/O ERRORS (TOTAL)          *H01
        4*  01 00172    35102C1B              STW,1    LMSSET              AND LMS PARAMETERS            *H01
        5*  01 00173    35102C1C              STW,1    LMSOLD                                            *H01
        6*  01 00174    35102C1D              STW,1    FLAWS                                             *H01
        7*  01 00175    35102C18              STW,1    AIOCOUNT                                          *H01
        8*  01 00176    35102C19              STW,1    AIOUNEXP                                          *H01

       10*  01 00177    32102EE3              LW,1     RCELIMIT                                          *H02
       11*  01 00178    35102C1E              STW,1    RCETOTAL                                          *H02

      288   01 00179    2210FFFF A            LI,1     X'FFFF'
      289   01 0017A    35102C47              STW,1    MSGMOD            RESET MESSAGE MODE

      291   01 0017B    6D101100 A            WD,1     X'1100'           INHIBIT GROUP ZERO
      292   01 0017C    6AF0019B              BAL,15   INITENV            AND RESET ENVIRONMENT

      294   01 0017D    12002D12              LD,0     RECOVERY
      295   01 0017E    15000026 A            STD,0    X'26'
      296   01 0017F    15000028 A            STD,0    RECOVER

      298   01 00180    72002EB1              LB,0     COCSTATE          SET TO SCAN RECEIVERS
      299   01 00181    49001AD6              OR,0     BIT+30             (TIMER DOESN'T WORK)
      300   01 00182    75002EB1              STB,0    COCSTATE

      302   01 00183    21530000 A            CI,5     X'30000'          SKIP IF NEITHER
      303   01 00184    68400194              BAZ      FIXEF7             CONFIG NOR REBOOT

        1*  01 00185    32E02D1E              LW,14    EFSTART           RESET ERROR LOG                 *H01
        2*  01 00186    35E02EE6              STW,14   EFSECTOR           PARAMETERS                     *H01

        4*  01 00187    22E00000 A            LI,14    0                                                 *H01
      312   01 00188    35E02EE7              STW,14   REALTIME           RESTORE REALTIME
        1*  01 00189    35E02D20              STW,14   EFWRAP              RESTORE WRAP COUNTER          *H01

      314   01 0018A    12202C6A              LD,2     ERRFILEI
      315   01 0018B    15202EE4              STD,2    ERRFILE           RESTORE ERRFILE

        1*  01 0018C    22000000 A            LI,0     0                 INITIALIZE IN-MEMORY            *H01
        2*  01 0018D    35040001 A            STW,0    1,2                ERROR LOG BUFFER AND           *H01
        3*  01 0018E    35002CFD              STW,0    SEQUENCE            LOG SEQUENCE NUMBER           *H01

        5*  01 0018F    21520000 A            CI,5     X'20000'          SKIP IF BOOT FROM BASE          *H01
        6*  01 00190    69400194              BANZ     FIXEF7                                            *H01

        8*  01 00191    32B02EE6              LW,11    EFSECTOR          CLEAR FIRST SECTOR              *H01
        9*  01 00192    12C02D1C              LD,12    EFWRITE            OF ERROR LOG ON DISK           *H01
       10*  01 00193    6AF00388              BAL,15   BASEDRVR                                          *H01

      321   01 00194    6AF00E64     FIXEF7   BAL,15   SETNBUSY          HALT ALL I/O
      322   01 00195    35F02BF4              STW,15   SETPASS           FORCE PASS RESTART

      324   01 00196    07000000 A   RESTART3 CAL4,0   0                 CCP HALT
      325   01 00197    6D000027 A            WD,0     X'27'
      326   01 00198    68000198              B        %

      328   01 00199    22201F22     RESTART1 LI,2     R0STK             RETURN-STACK OVERFLOW
      329   01 0019A    6800016E              B        RESTART0

      331   01 0019B    02200060 A   INITENV  LCI      6
      332   01 0019C    2A802C64              LM,8     REGISTER
      333   01 0019D    2B802DE4              STM,8    REGS51
      334   01 0019E    2A802C5E              LM,8     REGI              RESTORE RETURN
      335   01 0019F    2B802C64              STM,8    REGISTER           AND REGISTER POINTER

      337   01 001A0    6D000037 A   CLOCKSON WD,0     X'37'             INHIBIT INTERRUPTS
      338   01 001A1    320004AF              LW,0     XPSD46
      339   01 001A2    35000046 A            STW,0    X'46'             RESTORE 46 TRAP
      340   01 001A3    320004B0              LW,0     XPSD4C
      341   01 001A4    3500004C A            STW,0    X'4C'             RESTORE 4C TRAP
      342   01 001A5    220FFFFF A            LI,0     -1
      343   01 001A6    35002C59              STW,0    COUNT1
      344   01 001A7    35002C5A              STW,0    COUNT2
      345   01 001A8    35002C5B              STW,0    COUNT3
      346   01 001A9    35002C5C              STW,0    COUNT4
      347   01 001AA    32102D13              LW,1     GROUP0
      348   01 001AB    6D101200 A            WD,1     X'1200'
      349   01 001AC    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   11
A     351   01 00200                          ORG      X'200'
            01 00200
      352                                     BOUND    8
      353   01 00200    00000000 A   PUSHS    DATA     0
      354   01 00201    00000000 A            DATA     0
      355   01 00202    00000204              DATA     %+2
      356   01 00203    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED

      358   01 00204    0B002C64              PSM,0    REGISTER
      359   01 00205    68B00208              BCR,11   PUSHS0            STACK IS OK

      361   01 00206    02200000 A            LCI      0
      362   01 00207    2B002D70              STM,0    OVREGS

      364   01 00208    2F000206     PUSHS0   LRP      %-2
      365   01 00209    32300200              LW,3     PUSHS             GET CCS AND RETURN ADD
      366   01 0020A    32260000 A            LW,2     0,3               GET S ID
      367   01 0020B    224FFFFE A            LI,4     -2                GET TRAP PSD
      368   01 0020C    92480003 A            LD,4     *3,4
      369   01 0020D    25200308 A            SCD,2    8                 FORM ERROR-LOG IDENT
      370   01 0020E    25300078 A            SLS,3    -8                 FROM S, ID, AND CC

      372   01 0020F    02200040 A            LCI      4
      373   01 00210    0B202C66              PSM,2    RETURNS
      374   01 00211    68B0021E              BCR,11   PUSHS1            STACK OK

      376   01 00212    02200040 A            LCI      4
      377   01 00213    2B202D90              STM,2    OVRETS            SAVE RETURN

      379   01 00214    32600002 A            LW,6     2                 GET CURRENT IDENT
      380   01 00215    32702D88              LW,7     PSDS+8            GET SUBSEQUENT IDENTS
      381   01 00216    32802D84              LW,8     PSDS+4
      382   01 00217    32902D80              LW,9     PSDS
      383   01 00218    2210C800 A            LI,1     X'C800'
      384   01 00219    222F42F0 A            LI,2     X'F42F0'
      385   01 0021A    6AF00255              BAL,15   AUDITOR

      387   01 0021B    02200000 A            LCI      0
      388   01 0021C    2A002D70              LM,0     OVREGS
      389   01 0021D    0E002D92              LPSD,0   OVRETS+2
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   12
A       1*  01 0021E    220000F0 A   PUSHS1   LI,0     X'F0'             ASSUME SIGMA-9-LIKE             *H01
        2*  01 0021F    33002C04              MTW,0    SIGMA9             SKIP IF TRUE                   *H01
        3*  01 00220    69100222              BLZ      %+2                 ELSE ADJUST MASK FOR SIGMA-7  *H01
        4*  01 00221    220001F0 A            LI,0     X'1F0'                                            *H01

        6*  01 00222    4B000201              AND,0    PUSHS+1           OBTAIN RP AT TIME OF TRAP       *H01
        7*  01 00223    2500007C A            SLS,0    -4                                                *H01

        9*  01 00224    32600004 A            LW,6     4                 OBTAIN PC AT TIME OF TRAP       *H01
       10*  01 00225    4B601AE8              AND,6    NOBITS+14                                         *H01

       12*  01 00226    19601B34              CLM,6    BCKGND            LOOK FOR BACKGROUND             *H01
       13*  01 00227    69900231              BCS,8+1  PUSHS2             IN EXECUTION AT TIME OF TRAP   *H01

       15*  01 00228    31002C07              CW,0     LASTREG           FOR BACKGROUND, COMPARE WITH    *H01
       16*  01 00229    68300231              BE       PUSHS2             EXPECTED VALUE OF RP           *H01

       18*  01 0022A    B2600004 A            LW,6     *4                FOR INEQUALITY, ENTER LOG       *H01
       19*  01 0022B    2210E000 A            LI,1     X'E000'            FORMAT MESSAGE BITS            *H01
       20*  01 0022C    222E3000 A            LI,2     X'E3000'            SEVERITY AND ID               *H01
       21*  01 0022D    6AF00255              BAL,15   AUDITOR                                           *H01

       23*  01 0022E    02200040 A            LCI      4                 RESTORE STATUS REGISTERS        *H01
       24*  01 0022F    0A202C66              PLM,2    RETURNS                                           *H01
       25*  01 00230    0B202C66              PSM,2    RETURNS                                           *H01

       27*  01 00231    2210FFFF A   PUSHS2   LI,1     X'FFFF'                                           *H01
      392   01 00232    4B100002 A            AND,1    2                 GET TRAP ADDRESS
      393   01 00233    31100029 A            CW,1     TRAPKIND          EXPECTED TRAP
      394   01 00234    69360001 A            BNE      1,3               NO

      396   01 00235    02200040 A   PULLS    LCI      4
      397   01 00236    0A202C66              PLM,2    RETURNS

      399   01 00237    12002D12     PULLS0   LD,0     RECOVERY
      400   01 00238    46000028 A            XW,0     RECOVER
      401   01 00239    46100029 A            XW,1     TRAPKIND
      402   01 0023A    31002D12              CW,0     RECOVERY          RECOVERY=RECOVER
      403   01 0023B    68300242              BE       PULLS3            YES-USE RETURNI

      405   01 0023C    32400000 A            LW,4     0                 SET PSW1=RECOVER
      406   01 0023D    4B201AE9              AND,2    NOBITS+15
      407   01 0023E    31100002 A            CW,1     2                 TRAPKIND=IDENT
      408   01 0023F    68300242              BE       PULLS3            YES-USE RECOVER

      410   01 00240    32402D12              LW,4     RECOVERY          SET PSW1-2=RECOVERY
      411   01 00241    32500203              LW,5     PUSHS+3

      413   01 00242    15400252     PULLS3   STD,4    EXIT
      414   01 00243    4B202C5D              AND,2    XB000             GET TRAP-INTERRUPT IND.
      415   01 00244    55200254              STH,2    EXIT+2
      416   01 00245    4B401AE9              AND,4    NOBITS+15         KEEP ADDRESS PORTION
      417   01 00246    19401B32              CLM,4    MSGRTN            TRAP FROM MSG DRIVER
      418   01 00247    6990024A              BCS,9    PULLS4            NO

      420   01 00248    22401341              LI,4     CCP3              FORCE LONG BREAK
      421   01 00249    35400252              STW,4    EXIT

      423   01 0024A    2F000253     PULLS4   LRP      EXIT+1

      424   01 0024B    02200000 A            LCI      0
      425   01 0024C    0A002C64              PLM,0    REGISTER

      427   01 0024D    73000254              MTB,0    EXIT+2            IS IT A TRAP
      428   01 0024E    68300250              BE       %+2               YES

      430   01 0024F    0E300252              LPSD,3   EXIT              INTERRUPT EXIT

      432   01 00250    0E100252              LPSD,1   EXIT              TRAP EXIT

      434                                     BOUND    8
      435   01 00252                 EXIT     RES      3
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   13
A     437                            *        ERROR AUDITOR-CONTROLS UPDATING ERROR FILE AND
      438                            *        OUTPUTTING THE ERROR LOG

      440   01 00255    35F02BCD     AUDITOR  STW,15   RETURNA

      442   01 00256    72F02ED0              LB,15    SYSMODE
      443   01 00257    21F00010 A            CI,15    XNOLOG
      444   01 00258    E9402BCD              BANZ     *RETURNA

      446   01 00259    12E02EE4              LD,14    ERRFILE           GET ERROR STACK
      447   01 0025A    15E02C6C              STD,14   ERRLOG

      449   01 0025B    4B201AE5              AND,2    NOBITS+11
      450   01 0025C    22E00004 A            LI,14    4                 SET REG POINTER TO 4
      451   01 0025D    21104000 A            CI,1     X'4000'           PSD'S
      452   01 0025E    68400269              BCR,4    AUD4              NO
      453   01 0025F    20E00002 A            AI,14    2
      454   01 00260    21102000 A            CI,1     X'2000'           INSTRUCTION
      455   01 00261    68400269              BCR,4    AUD4              NO
      456   01 00262    B2600004 A            LW,6     *4                GET INSTRUCTION
      457   01 00263    20E00001 A            AI,14    1
      458   01 00264    21101000 A            CI,1     X'1000'           STACKS
      459   01 00265    68400269              BCR,4    AUD4              NO
      460   01 00266    327C0000 A            LW,7     0,6
      461   01 00267    328C0001 A            LW,8     1,6
      462   01 00268    20E00002 A            AI,14    2
      463   01 00269    21100800 A   AUD4     CI,1     X'800'            PARITYS
      464   01 0026A    6840026C              BCR,4    AUD5              NO
      465   01 0026B    20E00004 A            AI,14    4
      466   01 0026C    21100400 A   AUD5     CI,1     X'400'            DEVICE ADDRESS
      467   01 0026D    6840026F              BCR,4    AUD6              NO
      468   01 0026E    20E00001 A            AI,14    1
      469   01 0026F    21100200 A   AUD6     CI,1     X'200'            DATA ERROR
      470   01 00270    68400272              BCR,4    AUD7              NO
      471   01 00271    20E00006 A            AI,14    6
      472   01 00272    21100100 A   AUD7     CI,1     X'100'            POSITION ERROR
      473   01 00273    68400275              BCR,4    AUD8
      474   01 00274    20E00004 A            AI,14    4
      475   01 00275    211000C0 A   AUD8     CI,1     X'C0'             I/O STATUS OR NEW PASS
      476   01 00276    68400278              BCR,4    AUDA              NO
      477   01 00277    20E00006 A            AI,14    6
      478   01 00278    21100020 A   AUDA     CI,1     X'20'             INSTRUCTION ERROR
      479   01 00279    6840027B              BCR,4    AUDB
      480   01 0027A    20E00002 A            AI,14    2
      481   01 0027B    21100010 A   AUDB     CI,1     X'10'             NEW PHASE
      482   01 0027C    6840027E              BCR,4    FILEIT
      483   01 0027D    20E00003 A            AI,14    3                 PI, FI, ERRORS
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   14
A     485   01 0027E    25E00004 A   FILEIT   SLS,14   4                 GET COUNT INTO CC POSITION
      486   01 0027F    75E00001 A            STB,14   1

      488   01 00280    33102CFD              MTW,1    SEQUENCE          INCREMENT ERROR SEQUENCE
      489   01 00281    32002CFD              LW,0     SEQUENCE
      490   01 00282    35002CF6              STW,0    SEQRNG            FORCE WITHIN LOGABLE RANGE
      491   01 00283    35002CF7              STW,0    SEQRNG+1

      493   01 00284    02200000 A            LCI      0
      494   01 00285    2B002DD4              STM,0    AUDREGS           SAVE REGS

      496   01 00286    6AF016F6              BAL,15   UPTIME            COMPUTE CURRENT TIME
      497   01 00287    32302C51              LW,3     HOURS
      498   01 00288    2530000C A            SLS,3    12
      499   01 00289    30302C52              AW,3     MINUTES
      500   01 0028A    2530000C A            SLS,3    12
      501   01 0028B    30302C53              AW,3     SECONDS
      502   01 0028C    35302DD7              STW,3    AUDREGS+3         SAVE NEWLY COMPUTED TIME

      504   01 0028D    12402DD8              LD,4     AUDREGS+4         RESTORE R4 & R5
      505   01 0028E    32602DDA              LW,6     AUDREGS+6         RESTORE R6

      507   01 0028F    70300001 A   FILER1   LCF      1                 GET COUNT
      508   01 00290    0B002EE4              PSM,0    ERRFILE
      509   01 00291    69B002C8              BCS,11   FILEFULL          FILE OVER FLOW

      511   01 00292    21100008 A            CI,1     8                 DEVICES POLLED
      512   01 00293    684002AA              BAZ      AUDE              NO

      514   01 00294    22300001 A            LI,3     1                 GET CTX
      515   01 00295    52E63003     AUDC     LH,14    CT:CS,3
      516   01 00296    21E08004 A            CI,14    XBUSY+XERROR      BUSY OR ERRORED
      517   01 00297    684002A6              BAZ      AUDC1             NO

      519   01 00298    52E62FE5              LH,14    CT:DA,3           DEVICE ADDRESS
      520   01 00299    5530000E A            STH,3    14                CTX

      522   01 0029A    12A630C6              LD,10    CT:TIO,3          I/O STATUS
      523   01 0029B    32C63021              LW,12    CT:BUFAD,3
      524   01 0029C    72D6305D              LB,13    CT:ORD,3
      525   01 0029D    75D0000C A            STB,13   12                PUT ORDER WITH BUFFER ADRS
      526   01 0029E    32D6300D              LW,13    CT:SEEK,3
      527   01 0029F    32F63094              LW,15    CT:SENSE,3        GET SENSE VALUE

      529   01 002A0    320630EE              LW,0     CT:SENSE1,3       FETCH EXTENDED SENSE
      530   01 002A1    32163102              LW,1     CT:SENSE2,3
      531   01 002A2    32263116              LW,2     CT:SENSE3,3

      533   01 002A3    02200090 A            LCI      9                 STORE ENTIRE STATUS GROUP
      534   01 002A4    0BA02EE4              PSM,10   ERRFILE
      535   01 002A5    69B002C8              BCS,11   FILEFULL          FILE OVER FLOW

      537   01 002A6    20300001 A   AUDC1    AI,3     1                 INC CTX
      538   01 002A7    31302BEF              CW,3     COUNT             DONE YET
      539   01 002A8    68200295              BLE      AUDC              NO

      541   01 002A9    32102DD5              LW,1     AUDREGS+1         RESTORE CODE

      543   01 002AA    21100002 A   AUDE     CI,1     2                 EXTENDED LOG
      544   01 002AB    684002B0              BAZ      LOGIT             NO

      546   01 002AC    02200000 A            LCI      0
      547   01 002AD    2A002C22              LM,0     STATUS
      548   01 002AE    0B002EE4              PSM,0    ERRFILE
      549   01 002AF    69B002C8              BCS,11   FILEFULL
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   15
A     551   01 002B0    22000000 A   LOGIT    LI,0     0
      552   01 002B1    35002CFB              STW,0    WORDSEL           NO COMPARISON
      553   01 002B2    35002CFA              STW,0    MASKSEL            NO MASK
      554   01 002B3    35002CF9              STW,0    IDENTSEL            NO IDENT

      556   01 002B4    32302EE4              LW,3     ERRFILE
      557   01 002B5    35060001 A            STW,0    1,3               SET FILE END INDICATOR
      558   01 002B6    33102C6C              MTW,1    ERRLOG            SET ERRLOG POINTER-CURRENT

      560   01 002B7    52202DD6              LH,2     AUDREGS+2         FETCH SEVERITY LEVEL
      561   01 002B8    51202EAC              CH,2     LOGLEV             DISPLAY IF ENTRY
      562   01 002B9    691002BC              BL       %+3                 IS NOT LESS THAN 'L'

      564   01 002BA    6AF002DC              BAL,15   LOGGER            DISPLAY ERROR LOG ENTRY
      565   01 002BB    680002C1              B        AUDHALT            FORCE HALT ON BREAK

      567   01 002BC    52202DD6              LH,2     AUDREGS+2         FETCH SEVERITY LEVEL
      568   01 002BD    51202EAD              CH,2     HLTLEV             HALT IF ENTRY
      569   01 002BE    681002C1              BGE      AUDHALT             IS NOT LESS THAN 'H'

      571   01 002BF    6AF01692              BAL,15   POSTMSG           RETURN MSGDEV TO SEX
      572   01 002C0    680002C6              B        AUDCONT

      574   01 002C1    6AF01692     AUDHALT  BAL,15   POSTMSG           RETURN MSGDEV TO SEX

      576   01 002C2    32202CD2              LW,2     ERRHDG            DISPLAY ERROR LOG TYPE
      577   01 002C3    25200002 A            SLS,2    2

      579   01 002C4    32301AFF              LW,3     HLTPRMPT          AND ENTER THE HALT MODE
      580   01 002C5    6AF012FF              BAL,15   CCP

      582   01 002C6    32202CFE     AUDCONT  LW,2     IDENT             RETURN CLASS OF ENTRY
      583   01 002C7    E8002BCD              B        *RETURNA

      585   01 002C8    32302C6C     FILEFULL LW,3     ERRLOG
      586   01 002C9    220FFFFF A            LI,0     -1
      587   01 002CA    35060001 A            STW,0    1,3               SET NEXT FILE INDICATOR

      589   01 002CB    32B02EE6              LW,11    EFSECTOR
      590   01 002CC    12C02D1C              LD,12    EFWRITE
      591   01 002CD    6AF00388              BAL,15   BASEDRVR

      593   01 002CE    30D02EE6              AW,13    EFSECTOR
      594   01 002CF    31D02D1F              CW,13    EFLIMIT
        1*  01 002D0    691002D3              BL       %+3               SKIP IF NOT END-OF-FILE         *H01

        3*  01 002D1    33102D20              MTW,1    EFWRAP            UPDATE WRAP COUNT               *H01
        4*  01 002D2    32D02D1E              LW,13    EFSTART            RESET FILE TO START            *H01

      597   01 002D3    35D02EE6              STW,13   EFSECTOR

      599   01 002D4    22000000 A            LI,0     0
      600   01 002D5    35002EE8              STW,0    ERRBUF0           SET ERROR FILE END IND.

      602   01 002D6    12C02C6A              LD,12    ERRFILEI
      603   01 002D7    15C02EE4              STD,12   ERRFILE
      604   01 002D8    15C02C6C              STD,12   ERRLOG

      606   01 002D9    02200000 A            LCI      0
      607   01 002DA    2A002DD4              LM,0     AUDREGS
      608   01 002DB    6800028F              B        FILER1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   16
A     610                            *        ERROR LOG ROUTINE

      612   01 002DC    35F02BCE     LOGGER   STW,15   RETURNB
      613   01 002DD    33102BCE              MTW,1    RETURNB

      615   01 002DE    22000000 A            LI,0     0
      616   01 002DF    35002CFC              STW,0    LOGFLG            SET FLAG TO LOGABLE
      617   01 002E0    35002C4D              STW,0    BREAK              CLEAR CONSOLE BREAK

      619   01 002E1    02200000 A            LCI      0
      620   01 002E2    AA002C6C              LM,0     *ERRLOG           GET LOG DATA

      622   01 002E3    19002CF6              CLM,0    SEQRNG            LOGABLE ERROR
      623   01 002E4    689002E6              BCR,9    %+2               YES
      624   01 002E5    35002CFC              STW,0    LOGFLG            SET LOG FLAG > 0

      626   01 002E6    46000001 A            XW,0     1                 EXCHANGE CODE & SEQUENCE

      628   01 002E7    70300000 A            LCF      0
      629   01 002E8    2B002CFF              STM,0    ERRCODE           LOAD ERROR TABLE

      631   01 002E9    75302D0E              STB,3    ERRTAB+14         SECONDS
      632   01 002EA    25300074 A            SLS,3    -12               RIGHT 12 (MINUTES)
      633   01 002EB    75302D0D              STB,3    ERRTAB+13         MINUTES

      635   01 002EC    32F02CF9              LW,15    IDENTSEL          CHECK FOR IDENT SELECTION
      636   01 002ED    683002F0              BEZ      LOGTST0            SKIP IF NOT PRESENT

      638   01 002EE    31F00002 A            CW,15    2                 COMPARE WITH CURRENT
      639   01 002EF    693002FD              BNE      LOGTST2            IDENT AND SKIP UNEQUAL

      641   01 002F0    22F02D03     LOGTST0  LI,15    ERRTAB+3          PREPARE TO SCAN FROM ERRTAB+3

      643   01 002F1    72302CFF              LB,3     ERRCODE           GET COUNT OF WORDS IN ENTRY
      644   01 002F2    2530007C A            SLS,3    -4                 (STORED AS CC)
      645   01 002F3    693002F5              BNEZ     %+2                 CHECK FOR 0
      646   01 002F4    22300010 A            LI,3     16                   AND TRANSFORM TO 16

      648   01 002F5    203FFFFC A            AI,3     -4                OVERHEAD WORDS
      649   01 002F6    30F00003 A            AW,15    3                  UPDATE POINTER
      650   01 002F7    3A300003 A            LCW,3    3                   SET INDEX

      652   01 002F8    B246000F A   LOGTST1  LW,4     *15,3             GET ENTRY WORD
      653   01 002F9    4B402CFA              AND,4    MASKSEL            MASK WITH PARAMETER (Q3)
      654   01 002FA    31402CFB              CW,4     WORDSEL             COMPARE WITH PARAMETER (Q2)
      655   01 002FB    683002FE              BE       LOGTST3              DISPLAY IF EQUAL
      656   01 002FC    653002F8              BIR,3    LOGTST1               LOOP THROUGH ENTRY

      658   01 002FD    33102CFC     LOGTST2  MTW,1    LOGFLG            SET NOT LOGGABLE FLAG

      660   01 002FE    227FFFD3 A   LOGTST3  LI,7     -IDENTSIZ         PROCESS ERROR LOG ENTRY
      661   01 002FF    2230FFF0 A            LI,3     X'FFF0'            IGNORE LAST DIGIT

      663   01 00300    452E1D80     LOGTST4  CS,2     IDENTS+IDENTSIZ,7 LOOK FOR MATCHING IDENT
      664   01 00301    68300305              BE       LOGTST5            AND SKIP OUT IF EQUALITY
      665   01 00302    65700300              BIR,7    LOGTST4             ELSE LOOP THROUGH LIST

      667   01 00303    32401D80              LW,4     HDGMSG-1          DEFAULT IS UNIDENTIFIED TRAP
      668   01 00304    68000306              B        %+2

      670   01 00305    324E1DAE     LOGTST5  LW,4     HDGMSG+IDENTSIZ,7 GET CORRESPONDING HEADING
      671   01 00306    35402CD2              STW,4    ERRHDG             SAVE ADDRESS OF HEADING

      673   01 00307    22302CD4              LI,3     LOGHDG+1
      674   01 00308    22700000 A            LI,7     0
      675   01 00309    6AF0036F              BAL,15   MOVEMSG           MOVE MSG TO LOGHDG

      677   01 0030A    225FFFF4 A            LI,5     -LMSGSIZ
      678   01 0030B    22E08000 A            LI,14    X'8000'

      680   01 0030C    324A1E9A     LOGGER3  LW,4     LOGMSG+LMSGSIZ,5  GET LOG TYPE HDG
      681   01 0030D    31E02CFF              CW,14    ERRCODE           IS THIS AN ERROR TYPE
      682   01 0030E    68400310              BAZ      LOGGER4           YES

      684   01 0030F    6AF0036F              BAL,15   MOVEMSG           MOVE IN MSGI

      686   01 00310    25E0007F A   LOGGER4  SLS,14   -1
      687   01 00311    6550030C              BIR,5    LOGGER3

      689   01 00312    72502CFF              LB,5     ERRCODE           GET ELEMENT COUNT
      690   01 00313    2550007C A            SLS,5    -4                GET CC INTO COUNT
      691   01 00314    66502C6C              AWM,5    ERRLOG            UPDATE ERROR LOG POINTER

      693   01 00315    02200050 A            LCI      5
      694   01 00316    2A901C8B              LM,9     ERRDES            GET ERROR LOG DESTINATION
      695   01 00317    20500001 A            AI,5     1
      696   01 00318    75500009 A            STB,5    9                 SET M=NR OF TABLES IN ARRAY

      698   01 00319    32102CFF              LW,1     ERRCODE
      699   01 0031A    21100760 A            CI,1     X'760'            LOOK FOR ERROR TYPE 1
      700   01 0031B    69400320              BANZ     LOGGER5           SKIP IF NOT

      702   01 0031C    21100010 A            CI,1     X'10'             LOOK FOR ERROR TYPE 7
      703   01 0031D    68400329              BAZ      LOGGER6           SKIP IF TYPE 1

      705   01 0031E    2090003E A            AI,9     ELTPNR7-ELTPNR1   POINT TO ERROR TABLE 7
      706   01 0031F    68000329              B        LOGGER6
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   17
A     708         01 00320           LOGGER5  EQU      %
      709   01 00320    21100020 A            CI,1     X'20'             LOOK FOR INSTRUCTION ERROR
      710   01 00321    69400329              BANZ     LOGGER6            FORCE BACK TO TYPE 1

      712   01 00322    2090000B A            AI,9     ELTPNR2-ELTPNR1
      713   01 00323    21100040 A            CI,1     X'40'             ERROR TYPE 2
      714   01 00324    69400329              BANZ     LOGGER6           YES

      716   01 00325    2090000B A            AI,9     ELTPNR3-ELTPNR2
      717   01 00326    21100180 A            CI,1     X'180'            ERROR TYPE 3
      718   01 00327    68400329              BAZ      LOGGER6           YES

      720   01 00328    2090000C A            AI,9     ELTPNR4-ELTPNR3   ERROR TYPE 4

      722   01 00329    4B101B00     LOGGER6  AND,1    XFF0000
      723   01 0032A    22000001 A            LI,0     1                 SET FIRST TIME THRU FLAG
      724   01 0032B    15002D10              STD,0    CODE-1

      726   01 0032C    12401A50     LOGGER7  LD,4     ZEROS             SET Q1,Q2=0
      727   01 0032D    22600000 A            LI,6     0                 SET Q3=0

      729   01 0032E    32801B69              LW,8     DISPDIR           GET DISPLAY DIRECTIVE
      730   01 0032F    22B0033B              LI,11    LOGEND
      731   01 00330    022000A0 A            LCI      10
      732   01 00331    2B402BD6              STM,4    Q1                SET QUALIFIERS AND DED'S
      733   01 00332    35202CFE              STW,2    IDENT
      734   01 00333    32102EAB              LW,1     LOGDEV            ESTABLISH LOGGING DEVICE
      735   01 00334    2200035E              LI,0     LOGEND1           SET UP PANIC RETURN

      737   01 00335    09002C68              PSW,0    RETURN0S          PUSH IT
      738   01 00336    69B00199              BCS,11   RESTART1          OVERFLOWED

      740   01 00337    22700088 A            LI,7     BA(OUTBUF)-BA(BUFFER)

      742   01 00338    33002CFC              MTW,0    LOGFLG            LOGABLE
      743   01 00339    68301659              BEZ      DISPLAY1          YES-ENTER DISPLAY DIRECTIVE
      744   01 0033A    6800033C              B        %+2

      746   01 0033B    6AF017FC     LOGEND   BAL,15   UNTIE

      748   01 0033C    08002C68              PLW,0    RETURN0S          NORMAL RETURN
      749   01 0033D    69E00199              BCS,14   RESTART1

      751   01 0033E    32102CFF              LW,1     ERRCODE
      752   01 0033F    32202CFE              LW,2     IDENT

      754   01 00340    53F02D11              MTH,15   CODE              ANYMORE TO LOG
      755   01 00341    69100361              BLZ      LOGGER8           NO

      757   01 00342    02200060 A            LCI      6
      758   01 00343    AAA02C6C              LM,10    *ERRLOG           GET NEXT LINE
      759   01 00344    2BA02D00              STM,10   ERRTAB
      760   01 00345    5230000E A            LH,3     14                SAVE CONTROL TABLE POINTER
      761   01 00346    4BE01AE9              AND,14   NOBITS+15         KEEP DEVICE ADDRESS
      762   01 00347    35E02D06              STW,14   ERRTAB+6

      764   01 00348    33602C6C              MTW,6    ERRLOG            UPDATE LOG POINTER

      766   01 00349    02200030 A            LCI      3
      767   01 0034A    AAD02C6C              LM,13    *ERRLOG           FETCH EXTENDED SENSE
      768   01 0034B    2BD02D07              STM,13   ERRTAB+7

      770   01 0034C    33302C6C              MTW,3    ERRLOG            UPDATE LOG POINTER

      772   01 0034D    02200050 A            LCI      5
      773   01 0034E    2A901C90              LM,9     ERRDES1           GET DEVICE ERROR DESCRIPTOR

      775   01 0034F    72363071              LB,3     CT:ETX,3          CHECK FOR ROTATING
      776   01 00350    2130000D A            CI,3     ETXRADS            MEMORY FIRST
      777   01 00351    69200354              BG       LOGGERC             (SKIP IF NOT)

      779   01 00352    21300007 A            CI,3     ETXDPS            IF REAL DISK
      780   01 00353    68100357              BGE      LOGGERB            ALWAYS DISPLAY FULL SENSE

      782   01 00354    72302ED0     LOGGERC  LB,3     SYSMODE           ELSE DISPLAY FULL
      783   01 00355    21300004 A            CI,3     XSNSX              SENSE ONLY IF NOT
      784   01 00356    6940035A              BANZ     LOGGERA             INHIBITED

      786   01 00357    72300009 A   LOGGERB  LB,3     9                 UPDATE NUMBER OF
      787   01 00358    20300003 A            AI,3     3                 DISPLAY ITEMS
      788   01 00359    75300009 A            STB,3    9
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   18
A     790         01 0035A           LOGGERA  EQU      %
      791   01 0035A    33F02D10              MTW,-1   CODE-1            FIRST TIME THRU
      792   01 0035B    6830032C              BEZ      LOGGER7           YES

      794   01 0035C    22C00000 A            LI,12    0                 NO-INHIBIT HEADING
      795   01 0035D    6800032C              B        LOGGER7

      797   01 0035E    6AF017FC     LOGEND1  BAL,15   UNTIE             PANIC RETURN
      798   01 0035F    33F02BCE              MTW,-1   RETURNB
      799   01 00360    E8002BCE              B        *RETURNB          EXIT LOGGER

      801   01 00361    21100002 A   LOGGER8  CI,1     2                 EXTENDED LOG
      802   01 00362    68400376              BAZ      LOGGER9           SKIP IF LAST ENTRY

      804   01 00363    48101AD6              EOR,1    BIT+30            SHIFT EXTENDED LOG
      805   01 00364    49101AD7              OR,1     BIT+31             INDICATOR
      806   01 00365    35102CFF              STW,1    ERRCODE

      808   01 00366    02200000 A            LCI      0
      809   01 00367    AA002C6C              LM,0     *ERRLOG           GET EXTENDED STATUS
      810   01 00368    2B002D00              STM,0    ERRTAB

      812   01 00369    22000010 A            LI,0     16
      813   01 0036A    66002C6C              AWM,0    ERRLOG            INC ERRLOG BY 16

      815   01 0036B    02200050 A   LOGGER8A LCI      5
      816   01 0036C    2A901C95              LM,9     ERRDES2           GET EXTENDED LOG ERRDES
      817   01 0036D    32202CFE              LW,2     IDENT
      818   01 0036E    6800035A              B        LOGGERA

      820   01 0036F    22600000 A   MOVEMSG  LI,6     0                 INITIALIZE FROM CNTR
      821   01 00370    F20C0004 A            LB,0     *4,6              GET FROM BYTE
      822   01 00371    F50E0003 A            STB,0    *3,7              STORE TO BYTE
      823   01 00372    E830000F A            BCR,3    *15               ZERO BYTE-EXIT
      824   01 00373    20700001 A            AI,7     1                 INC FROM CNTR
      825   01 00374    20600001 A            AI,6     1                 INC TO CNTR
      826   01 00375    68000370              B        MOVEMSG+1

      828   01 00376    21100001 A   LOGGER9  CI,1     1                 LOOK FOR SHIFTED
      829   01 00377    6840037E              BAZ      LOGGER0            EXTENDED LOG INDICATOR

      831   01 00378    48101AD7              EOR,1    BIT+31            CLEAR EXTENDED LOG
      832   01 00379    35102CFF              STW,1    ERRCODE

      834   01 0037A    02200080 A            LCI      8                 MOVE SECOND HALF
      835   01 0037B    2A802D08              LM,8     ERRTAB+8           OF EXTENDED STATUS
      836   01 0037C    2B802D00              STM,8    ERRTAB+0

      838   01 0037D    6800036B              B        LOGGER8A

      840   01 0037E    33002CFC     LOGGER0  MTW,0    LOGFLG            SKIP TRAILING BLANK LINE
      841   01 0037F    E9302BCE              BNEZ     *RETURNB           IF LOGGING SUPPRESSED

      843   01 00380    22207F24              LI,2     BA(NULMSG)        POINT TO NULL MESSAGE (NL)
      844   01 00381    32102EAB              LW,1     LOGDEV             FETCH THE LOG DEVICE
      845   01 00382    6AF01939              BAL,15   MSG                 AND OUTPUT MESSAGE
      846   01 00383    02000000 A            NOP

      848   01 00384    33002C4D              MTW,0    BREAK             EXIT IF NOT BROKEN
      849   01 00385    E8302BCE              BEZ      *RETURNB           (RETURN+1)

      851   01 00386    33F02BCE              MTW,-1   RETURNB           ELSE TAKE BREAK EXIT
      852   01 00387    E8002BCE              B        *RETURNB
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   19
A     854                            *        BASE DRIVER

      856   01 00388    35F02DC3     BASEDRVR STW,15   BASEREGS+15       SAVE RETURN

      857   01 00389    32102EB6              LW,1     BASEX             GET BASE DEVICE INDEX
      858   01 0038A    E830000F A            BCR,3    *15               NO BASE DEVICE

      859   01 0038B    32302EB8              LW,3     BASETX            GET ETX FOR BASE DEV
      860   01 0038C    52422FE5              LH,4     CT:DA,1           GET DEV ADD
        1*  01 0038D    15C02C76              STD,12   BASECP2           SAVE COMMAND                    *H01

        3*  01 0038E    4F780000 A            HIO,7    0,4               STOP BASE DEVICE                *H01
        4*  01 0038F    35702C80              STW,7    BASESTND           AND SAVE STATE                 *H01

      865   01 00390    72462E44              LB,4     ET:RPX,3          GET REL PARAM INDEX
      866   01 00391    72682EA0              LB,6     RP:SS,4           SECTOR SHIFT
      867   01 00392    72782EA6              LB,7     RP:TS,4           TRACK SHIFT

      869   01 00393    32802C78              LW,8     SEEKCNT           GET BASIC RAD SEEK
      870   01 00394    21600010 A            CI,6     16                 SKIP IF INDEED A RAD
      871   01 00395    68300397              BE       %+2                 ELSE MODIFY FOR DISK
      872   01 00396    20800002 A            AI,8     2
      873   01 00397    35802C75              STW,8    BASECP1+1

      875   01 00398    22A00000 A            LI,10    0
      876   01 00399    36A82E64              DW,10    RP:SPT,4          GET TRACKS AND SECTORS
      877   01 0039A    25AC0000 A            SLS,10   0,6               SECTORS
      878   01 0039B    25BE0000 A            SLS,11   0,7               TRACKS
      879   01 0039C    30B0000A A            AW,11    10
      880   01 0039D    35B02C79              STW,11   BASESEEK

      882   01 0039E    22FFFFFC A            LI,15    -4                SET RETRY COUNT

      884   01 0039F    2200163A     BASEDRV1 LI,0     DA(BASECP1)
      885   01 003A0    CC002EB4              SIO,0    *BASEDEV

      887   01 003A1    228FD8F1 A            LI,8     -9999             I/O COMPLETION LIMIT
      888   01 003A2    CD902EB4     BASEDRV2 TIO,9    *BASEDEV
      889   01 003A3    69C003B8              BCS,12   BASEWAIT

      891   01 003A4    31901ABC              CW,9     BIT+4             TRANSFER IN ERROR
      892   01 003A5    694003BC              BCS,4    BASEDERR          BASE DEVICE ERROR

      894   01 003A6    4BD01AE9              AND,13   NOBITS+15
      895   01 003A7    22C00000 A            LI,12    0
      896   01 003A8    36C82E58              DW,12    RP:BPS,4          FIND NUMBER OF SECTORS
      897   01 003A9    21C00000 A            CI,12    0                  FOR THIS TRANSFER
      898   01 003AA    683003AC              BE       %+2                 (TRACKS FOR DISK)
      899   01 003AB    20D00001 A            AI,13    1

        1*  01 003AC    52002C80              LH,0     BASESTND          SAMPLE CAPTURED STATE           *H01
        2*  01 003AD    2100E600 A            CI,0     X'E600'            OF BASE DEVICE AND             *H01
        3*  01 003AE    E8402DC3              BAZ      *BASEREGS+15        RETURN IF IDLE                *H01

      904   01 003AF    22400020 A            LI,4     X'20'             IO INT LEVEL
      905   01 003B0    6D401200 A            WD,4     X'1200'           CLEAR IO INT LEVEL

      906   01 003B1    22400020 A            LI,4     X'20'             RESET RADS FAULT TIMER
      907   01 003B2    554230B2              STH,4    CT:FT,1

      908   01 003B3    32023035              LW,0     CT:COM,1
      909   01 003B4    2500007F A            SLS,0    -1                MAKE IT DA

      910   01 003B5    52422FE5              LH,4     CT:DA,1           GET DEV ADD
      911   01 003B6    4C080000 A            SIO,0    0,4               RESTART DEVICE
      912   01 003B7    E8002DC3              B        *BASEREGS+15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   20
A     914   01 003B8    22CFFF00 A   BASEWAIT LI,12    -256
      915   01 003B9    65C003B9              BIR,12   %
      916   01 003BA    658003A2              BIR,8    BASEDRV2

      918   01 003BB    CF702EB4              HIO,7    *BASEDEV          TIMEOUT - ISSUE HIO

      920         01 003BC           BASEDERR EQU      %
      921   01 003BC    22001637              LI,0     DA(BASECP0)       DEFAULT TO DISK RECOVERY
      922   01 003BD    21300007 A            CI,3     ETXDPS             AND SKIP IF INDEED A DISK
      923   01 003BE    681003C0              BGE      %+2
      924   01 003BF    2200163A              LI,0     DA(BASECP1)       ELSE USE RAD RECOVERY

      926   01 003C0    65F003A0              BIR,15   BASEDRV1+1        RETRY IF POSSIBLE

      928   01 003C1    CE802EB4              TDV,8    *BASEDEV          GATHER STATUS
      929   01 003C2    CD702EB4              TIO,7    *BASEDEV           AND HOLD IN REGISTERS

      931   01 003C3    32F02DC3              LW,15    BASEREGS+15       GET RETURN ADDRESS
      932   01 003C4    21F033FC              CI,15    CONFIG            FROM CONFIGURATOR
      933   01 003C5    E9202DC3              BCS,2    *BASEREGS+15      YES-EXIT

      935   01 003C6    02200000 A            LCI      0
      936   01 003C7    2B002DB4              STM,0    BASEREGS          SAVE REGS

      938   01 003C8    22002DC3              LI,0     BASEREGS+15
      939   01 003C9    46002C64              XW,0     REGISTER
      940   01 003CA    35002C7A              STW,0    SAVEREGS

      942   01 003CB    22207D24              LI,2     BA(BASERMSG)
      943   01 003CC    32301AFF              LW,3     HLTPRMPT
      944   01 003CD    6AF012FF              BAL,15   CCP               BASE-DEVICE ERROR MESSAGE

      946   01 003CE    32002C7A              LW,0     SAVEREGS
      947   01 003CF    35002C64              STW,0    REGISTER

      949   01 003D0    02200000 A            LCI      0                 RESTORE REGISTERS
      950   01 003D1    2A002DB4              LM,0     BASEREGS

        2*  01 003D2    22FFFFFE A            LI,15    -2                GUARANTEE ONE MORE              *H01
        3*  01 003D3    680003BC              B        BASEDERR           TRY AT BASE DEVICE I/O         *H01
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   21
A     953                            *        UNIDENTIFIED TRAPS

      955                                     BOUND    8
      956   01 003D4    00000000 A   TRAP0    DATA     0
      957   01 003D5    00000000 A            DATA     0
      958   01 003D6    000003D8              DATA     %+2
      959   01 003D7    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
      960   01 003D8    0F000200              XPSD,0   PUSHS
      961   01 003D9    02000E00 A            NOP      X'E00'
      962   01 003DA    2210E000 A   TRAPS    LI,1     X'E000'
      963   01 003DB    6AF00255              BAL,15   AUDITOR
      964   01 003DC    68000235              B        PULLS

      966                                     BOUND    8
      967   01 003DE    00000000 A   TRAP40   DATA     0
      968   01 003DF    00000000 A            DATA     0
      969   01 003E0    000003E2              DATA     %+2
      970   01 003E1    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
      971   01 003E2    0F000200              XPSD,0   PUSHS
      972   01 003E3    02000E40 A            NOP      X'E40'
      973   01 003E4    680003DA              B        TRAPS

      975                                     BOUND    8
      976   01 003E6    00000000 A   TRAP41   DATA     0
      977   01 003E7    00000000 A            DATA     0
      978   01 003E8    000003EA              DATA     %+2
      979   01 003E9    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
      980   01 003EA    0F000200              XPSD,0   PUSHS
      981   01 003EB    02000E41 A            NOP      X'E41'
      982   01 003EC    680003DA              B        TRAPS

      984                            *        STACK LIMIT TRAP

      986                                     BOUND    8
      987   01 003EE    00000000 A   TRAP42   DATA     0
      988   01 003EF    00000000 A            DATA     0
      989   01 003F0    000003F2              DATA     %+2
      990   01 003F1    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
      991   01 003F2    0F000200     T420     XPSD,0   PUSHS
      992   01 003F3    02000442 A            NOP      X'442'
      993   01 003F4    2210F000 A   T421     LI,1     X'F000'
      994   01 003F5    6AF00255              BAL,15   AUDITOR
      995   01 003F6    68000235              B        PULLS

      997                                     BOUND    8
      998   01 003F8    00000000 A   TRAP43   DATA     0
      999   01 003F9    00000000 A            DATA     0
     1000   01 003FA    000003FC              DATA     %+2
     1001   01 003FB    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1002   01 003FC    0F000200              XPSD,0   PUSHS
     1003   01 003FD    02000143 A            NOP      X'143'
     1004   01 003FE    680003DA              B        TRAPS

     1006                                     BOUND    8
     1007   01 00400    00000000 A   TRAP44   DATA     0
     1008   01 00401    00000000 A            DATA     0
     1009   01 00402    00000404              DATA     %+2
     1010   01 00403    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1011   01 00404    0F000200              XPSD,0   PUSHS
     1012   01 00405    02000144 A            NOP      X'144'
     1013   01 00406    680003DA              B        TRAPS
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   22
A    1015                                     BOUND    8
     1016   01 00408    00000000 A   TRAP45   DATA     0
     1017   01 00409    00000000 A            DATA     0
     1018   01 0040A    0000040C              DATA     %+2
     1019   01 0040B    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1020   01 0040C    0F000200              XPSD,0   PUSHS
     1021   01 0040D    02000145 A            NOP      X'145'
     1022   01 0040E    680003DA              B        TRAPS

     1024                                     BOUND    8
     1025   01 00410    00000000 A   TRAP48   DATA     0
     1026   01 00411    00000000 A            DATA     0
     1027   01 00412    00000414              DATA     %+2
     1028   01 00413    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1029   01 00414    0F000200              XPSD,0   PUSHS
     1030   01 00415    02000148 A            NOP      X'148'
     1031   01 00416    680003DA              B        TRAPS

     1033                                     BOUND    8
     1034   01 00418    00000000 A   TRAP49   DATA     0
     1035   01 00419    00000000 A            DATA     0
     1036   01 0041A    0000041C              DATA     %+2
     1037   01 0041B    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1038   01 0041C    0F000200              XPSD,0   PUSHS
     1039   01 0041D    02000149 A            NOP      X'149'
     1040   01 0041E    680003DA              B        TRAPS

     1042                                     BOUND    8
     1043   01 00420    00000000 A   TRAP4A   DATA     0
     1044   01 00421    00000000 A            DATA     0
     1045   01 00422    00000424              DATA     %+2
     1046   01 00423    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1047   01 00424    0F000200              XPSD,0   PUSHS
     1048   01 00425    0200014A A            NOP      X'14A'
     1049   01 00426    680003DA              B        TRAPS

     1051                                     BOUND    8
     1052   01 00428    00000000 A   INT58    DATA     0
     1053   01 00429    00000000 A            DATA     0
     1054   01 0042A    0000042C              DATA     %+2
     1055   01 0042B    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1056   01 0042C    0F000200              XPSD,0   PUSHS
     1057   01 0042D    02000158 A            NOP      X'158'
     1058   01 0042E    680003DA              B        TRAPS
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   23
A    1060                                     BOUND    8
     1061   01 00430    00000000 A   INT59    DATA     0
     1062   01 00431    00000000 A            DATA     0
     1063   01 00432    00000434              DATA     %+2
     1064   01 00433    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1065   01 00434    0F000200              XPSD,0   PUSHS
     1066   01 00435    02000159 A            NOP      X'159'
     1067   01 00436    680003DA              B        TRAPS

     1069                                     BOUND    8
     1070   01 00438    00000000 A   INT5A    DATA     0
     1071   01 00439    00000000 A            DATA     0
     1072   01 0043A    0000043C              DATA     %+2
     1073   01 0043B    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1074   01 0043C    0F000200              XPSD,0   PUSHS
     1075   01 0043D    0200015A A            NOP      X'15A'
     1076   01 0043E    680003DA              B        TRAPS

     1078                                     BOUND    8
     1079   01 00440    00000000 A   INT5D    DATA     0                 PCP INTERRUPT
     1080   01 00441    00000000 A            DATA     0
     1081   01 00442    00000444              DATA     %+2
     1082   01 00443    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1083   01 00444    0F000200              XPSD,0   PUSHS
     1084   01 00445    02000E5D A            NOP      X'E5D'

     1086   01 00446    72E02EB1              LB,14    COCSTATE          RESET CONTROL TO TTY
     1087   01 00447    6AF013D7              BAL,15   COCOFF             BUT LEAVE COC ALONE

     1089   01 00448    22207D74              LI,2     BA(PCPMSG)
     1090   01 00449    32301AFF              LW,3     HLTPRMPT
     1091   01 0044A    6AF012FF              BAL,15   CCP
     1092   01 0044B    68000655              B        RTCXIT1+1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   24
A    1094                            *        CAL4-REQUEST MONITOR SERVICES ROUTINE

     1096                                     BOUND    8
     1097   01 0044C    00000000 A   TRAP4B   DATA     0
     1098   01 0044D    00000000 A            DATA     0
     1099   01 0044E    00000450              DATA     %+2
     1100   01 0044F    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1101   01 00450    0F000200              XPSD,0   PUSHS
     1102   01 00451    0200004B A            NOP      X'4B'

     1104   01 00452    02200020 A            LCI      2
     1105   01 00453    AA20044C              LM,2     *TRAP4B           GET CAL
     1106   01 00454    32102EAE              LW,1     TTYDEV
     1107   01 00455    31201AC6              CW,2     BIT+14            MESSAGE DEVICE SELECTED
     1108   01 00456    68400458              BCR,4    %+2               NO
     1109   01 00457    32102EA9              LW,1     MSGDEV
     1110   01 00458    31201AC5              CW,2     BIT+13            LOG DEVICE SELECTED
     1111   01 00459    6840045B              BCR,4    %+2               NO
     1112   01 0045A    32102EAB              LW,1     LOGDEV
     1113   01 0045B    35102C48              STW,1    OUTDEV
     1114   01 0045C    15202BD6              STD,2    Q1
     1115   01 0045D    4B201AE8              AND,2    NOBITS+14
     1116   01 0045E    4B301AE8              AND,3    NOBITS+14
     1117   01 0045F    25200002 A            SLS,2    2                 WORD ADD TO BYTE ADDR

     1119   01 00460    2200046E              LI,0     CAL4XIT
     1120   01 00461    35002BC6              STW,0    RETURN3

     1122   01 00462    70300200              LCF      PUSHS             ** WAS LCF,2
     1123   01 00463    68F00472              BCR,15   CAL40             EXECUTIVE CONTROL INPUT
     1124   01 00464    6880046E              BCR,8    CAL4XIT
     1125   01 00465    6870047A              BCR,7    CAL48             MESSAGE OUTPUT CAL
     1126   01 00466    68600482              BCR,6    CAL49             STORE CAL
     1127   01 00467    68500499              BCR,5    CAL4A             DISPLAY CAL
     1128   01 00468    68400485              BCR,4    CAL4B             REPLACE CAL
     1129   01 00469    68000475              B        CAL4D             OPERATOR MESSAGE CAL

     1131   01 0046A    08002C68     CAL4END  PLW,0    RETURN0S
     1132   01 0046B    69E00199              BCS,14   RESTART1

     1134   01 0046C    6AF017FC     CAL4END1 BAL,15   UNTIE
     1135   01 0046D    6AF01692              BAL,15   POSTMSG           RESTORE LP TO EXER

     1137   01 0046E    02200040 A   CAL4XIT  LCI      4
     1138   01 0046F    0A202C66              PLM,2    RETURNS           RESTORE CCP
     1139   01 00470    20400001 A            AI,4     1                 INCREMENT RETURN ADDRESS
     1140   01 00471    68000242              B        PULLS3
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   25
A    1142                            *        REQUEST FOR INPUT

     1144   01 00472    32301AFF     CAL40    LW,3     SYSHALT+1
     1145   01 00473    6AF012FF              BAL,15   CCP
     1146   01 00474    6800046E              B        CAL4XIT

     1148                            *        OPERATOR MESSAGE CAL

     1150   01 00475    32700002 A   CAL4D    LW,7     2
     1151   01 00476    207F4DCC N            AI,7     -BA(BUFFER)+4
     1152   01 00477    32601B05              LW,6     X4200000
     1153   01 00478    4BD01AE9              AND,13   NOBITS+15
     1154   01 00479    6AF0183E              BAL,15   PUSH

     1156                            *        MSG OUTPUT CAL

     1158   01 0047A    32102C48     CAL48    LW,1     OUTDEV
     1159   01 0047B    6AF01939              BAL,15   MSG
     1160   01 0047C    02000000 A            NOP
     1161   01 0047D    32302BD7              LW,3     Q2                RETREIVE PROMPT IND
     1162   01 0047E    31301AC6              CW,3     BIT+14            PRINT THE PROMPT
     1163   01 0047F    69401433              BCS,4    CHKFLG            YES
     1164   01 00480    6AF01692              BAL,15   POSTMSG           RESTORE MSG DEV TO EXER
     1165   01 00481    6800046E              B        CAL4XIT

     1167                            *        STORE CAL-EXECUTES 'STORE' DIRECTIVE

     1169   01 00482    32801BE0     CAL49    LW,8     STORDIR           GET STORE DESCRIPTOR
     1170   01 00483    22700000 A            LI,7     0
     1171   01 00484    68000487              B        CAL4SET

     1173                            *        REPLACE CAL-EXECUTES 'REPLACE' DIRECTIVE

     1175   01 00485    32801BA8     CAL4B    LW,8     REPLDIR           GET REPLACE DESCRIPTOR
     1176   01 00486    22700088 A   CAL4SET1 LI,7     BA(OUTBUF)-BA(BUFFER)
     1177   01 00487    20800002 A   CAL4SET  AI,8     2                 ENTER AFTER DEVICE
     1178   01 00488    32402BD6              LW,4     Q1                GET Q1
     1179   01 00489    4B401AE8              AND,4    NOBITS+14
     1180   01 0048A    02200050 A            LCI      5
     1181   01 0048B    2A980000 A            LM,9     0,4               GET DESTINATION DESCRIPTOR
     1182   01 0048C    32402BD7              LW,4     Q2
     1183   01 0048D    4B401AE8              AND,4    NOBITS+14
     1184   01 0048E    92400004 A            LD,4     *4                GET Q1 AND Q2
     1185   01 0048F    22600000 A            LI,6     0                 SET Q3=0
     1186   01 00490    22B0046A              LI,11    CAL4END
     1187   01 00491    022000A0 A            LCI      10
     1188   01 00492    2B402BD6              STM,4    Q1                SETS UP DIRECTIVE
     1189   01 00493    2200046C              LI,0     CAL4END1
     1190   01 00494    09002C68              PSW,0    RETURN0S
     1191   01 00495    69B00199              BCS,11   RESTART1
     1192   01 00496    22001341              LI,0     CCP3
     1193   01 00497    35002BC6              STW,0    RETURN3
     1194   01 00498    E8000008 A            B        *8                ENTER DIRECTIVE

     1196                            *        DISPLAY CAL-EXECUTES 'DISPLAY' DIRECTIVE

     1198   01 00499    32801B69     CAL4A    LW,8     DISPDIR           GET DISPLAY DESCRIPTOR
     1199   01 0049A    68000486              B        CAL4SET1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   26
A    1201                            *        WATCHDOG RUNOUT DEVIATION ROUTINE

     1203                                     BOUND    8
     1204   01 0049C    00000000 A   DEVIAT46 DATA     0
     1205   01 0049D    00000000 A            DATA     0
     1206   01 0049E    000004A0              DATA     %+2
     1207   01 0049F    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED

     1209   01 004A0    74000516              STCF     PDFRET            SAVE CONDITION CODES
     1210   01 004A1    02200000 A            LCI      0
     1211   01 004A2    2B002DC4              STM,0    DEVREGS
     1212   01 004A3    C470049C              ANLZ,7   *DEVIAT46         GET EFFECTIVE ADDRESS
     1213   01 004A4    1240049C              LD,4     DEVIAT46
     1214   01 004A5    22900E46 A            LI,9     X'E46'
     1215   01 004A6    68000506              B        DEVIATED

        1*                           *        DIVERTS SUBSEQUENT 46 AND 4C TRAPS                         *H00

     1219   01 004A7    3520051A     DIVERT   STW,2    DIVERTED          SAVE ID OF PRIMARY TRAP
     1220   01 004A8    0E1004AA              LPSD,1   DIVERTS           CLEAR PDF

     1222                                     BOUND    8
     1223   01 004AA    000004AC     DIVERTS  DATA     %+2
     1224   01 004AB    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1225   01 004AC    E800000F A            B        *15

     1227   01 004AD    0F00049C     DIVERT46 XPSD,0   DEVIAT46
     1228   01 004AE    0F0004FC     DIVERT4C XPSD,0   DEVIAT4C
     1229   01 004AF    0F0004B2     XPSD46   XPSD,0   TRAP46
     1230   01 004B0    0F00051C     XPSD4C   XPSD,0   TRAP4C
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   27
A    1232                            *        WATCHDOG RUNOUT TRAP

     1234                                     BOUND    8
     1235   01 004B2    00000000 A   TRAP46   DATA     0
     1236   01 004B3    00000000 A            DATA     0
     1237   01 004B4    000004B6              DATA     T46
     1238   01 004B5    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED

     1240         01 004B6           T46      EQU      %
     1241   01 004B6    0F000200              XPSD,0   PUSHS
     1242   01 004B7    02000E46 A            NOP      X'E46'

     1244   01 004B8    320004AD              LW,0     DIVERT46
     1245   01 004B9    35000046 A            STW,0    X'46'             DIVERT 46 TRAP
     1246   01 004BA    6AF004A7              BAL,15   DIVERT

     1248   01 004BB    02200000 A            LCI      0
     1249   01 004BC    2B002D94              STM,0    REGS42            SAVE REGS

     1251   01 004BD    0A002C64              PLM,0    REGISTER          RESTORE ORIGINAL REGS

     1253   01 004BE    02200000 A            LCI      0
     1254   01 004BF    0B002C64              PSM,0    REGISTER          ADJUST STACK

     1256   01 004C0    C4D004B2              ANLZ,13  *TRAP46           GET EFFECTIVE ADDRESS
     1257   01 004C1    3270000D A            LW,7     13
     1258   01 004C2    4B701B20              AND,7    X1F00             KEEP IOP ADDRESS
     1259   01 004C3    12801A50              LD,8     ZEROS
     1260   01 004C4    15802C2A              STD,8    STATUS+8
     1261   01 004C5    F20004B2              LB,0     *TRAP46           GET INSTRUCTION
     1262   01 004C6    4B001B22              AND,0    X7C               KEEP BITS 1 THRU 5
     1263   01 004C7    2100004C A            CI,0     X'4C'             IS IT AN I/O INSTRUCTION
     1264   01 004C8    693004E9              BNE      T46A               SKIP IF NOT

     1266   01 004C9    33002C04              MTW,0    SIGMA9            SKIP IF SIGMA 5/6/7
     1267   01 004CA    681004E9              BGEZ     T46A               (.LT.0 => SIGMA 8/9/T85)

     1269   01 004CB    25700078 A            SLS,7    -8                FORM IOP INDEX
     1270   01 004CC    521E3132              LH,1     IOPKW,7           GET IOPS BANDWIDTH
     1271   01 004CD    25700004 A            SLS,7    4                 FORM IOP DIO ADD
     1272   01 004CE    220003E0 A            LI,0     X'3E0'
     1273   01 004CF    4B000007 A            AND,0    7                 CCU DIO ADD
     1274   01 004D0    20002008 A            AI,0     X'2008'           GROUP 0 + 8
     1275   01 004D1    20702010 A            AI,7     X'2010'           GROUP 8 OR 10 + 8

     1277   01 004D2    226FFFF8 A            LI,6     -8                LOOP FOR 8*2 WORDS OF STATUS
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   28
A    1279   01 004D3    EC8C0000 A   T460     RD,8     *0,6              GROUP 0 THRU 7
     1280   01 004D4    358C2C2A              STW,8    STATUS+8,6
     1281   01 004D5    EC9C0007 A            RD,9     *7,6              GROUP 8 OR 10 THRU F OR 17
     1282   01 004D6    359C2C32              STW,9    STATUS+16,6
     1283   01 004D7    656004D3              BIR,6    T460

     1285   01 004D8    3260000D A            LW,6     13                GET DEVICE ADDRESS
     1286   01 004D9    4F0C4000 A            RIO,0    0,6                AND RESET THE IOP

     1288   01 004DA    211002EE A            CI,1     750               LOOK FOR 750 KWORD BANDWIDTH
     1289   01 004DB    683004E9              BE       T46A               (MEANS RIOP)

     1291   01 004DC    32102C2C              LW,1     STATUS+10         GET CONTROLLER ADDRESS
     1292   01 004DD    681004E0              BCR,1    T461               SKIP IF NOT MULTI-UNIT

     1294   01 004DE    4B101ADA              AND,1    NOBITS+0          ELSE CLEAR BIT 0
     1295   01 004DF    2510007C A            SLS,1    -4                 AND SHIFT FOR SUBCHANNEL

     1297   01 004E0    4B101B0E     T461     AND,1    YFF
     1298   01 004E1    25100002 A            SLS,1    2                 LEFT 2

     1300   01 004E2    226FFFFE A            LI,6     -2                LOOP FOR MORE STATUS

     1302   01 004E3    6D1FFFF9 A   T462     WD,1     -7,7
     1303   01 004E4    6C8FFFFA A            RD,8     -6,7              GROUP A
     1304   01 004E5    6C9FFFFB A            RD,9     -5,7              GROUP B
     1305   01 004E6    30101ABE              AW,1     BIT+6             UPPER FAM
     1306   01 004E7    158C2C2A              STD,8    STATUS+8,6
     1307   01 004E8    656004E3              BIR,6    T462

     1309   01 004E9    02200040 A   T46A     LCI      4
     1310   01 004EA    2A202D96              LM,2     REGS42+2          RESTORE REGS 2 THRU 5

     1312   01 004EB    33002C04              MTW,0    SIGMA9            SPECIAL RESETS
     1313   01 004EC    691004F2              BLZ      T46B               FOR SIGMA 5/6/7

     1315   01 004ED    6D000044 A            WD,0     X'44'             RESET POSSIBLE IIOP

     1317   01 004EE    6D000042 A            WD,0     X'42'             TOGGLE MUSIC FLIP-FLOP
     1318   01 004EF    22100064 A            LI,1     100                INTRODUCE SHORT DELAY
     1319   01 004F0    641004F0              BDR,1    %
     1320   01 004F1    6D000042 A            WD,0     X'42'               AND TOGGLE AGAIN

     1322   01 004F2    22100020 A   T46B     LI,1     X'20'             I/O INT. LEVEL
     1323   01 004F3    6D101200 A            WD,1     X'1200'           CLEAR LEVEL

     1325   01 004F4    6AF00E85              BAL,15   POLL              POLL DEVICES (FOR ERROR-LOG)

     1327   01 004F5    B26004B2              LW,6     *TRAP46           GET TRAPPED INSTRUCTION
     1328   01 004F6    3270000D A            LW,7     13                 GET EFFECTIVE ADDRESS
     1329   01 004F7    2210C808 A            LI,1     X'C808'             GET ERROR-LOG BITS

     1331   01 004F8    12802C2A              LD,8     STATUS+8          GET GROUP 8/9 STATUS
     1332   01 004F9    683005F9              BEZ      I560               SKIP IF NONE PRESENT

     1334   01 004FA    20100002 A            AI,1     2                 INDICATE IOP STATUS
     1335   01 004FB    680005F9              B        I560               PRESENT AND GO LOG
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   29
A    1337                            *        MEMORY FAULT TRAP DIVERSION ROUTINE

     1339                                     BOUND    8
     1340   01 004FC    00000000 A   DEVIAT4C DATA     0
     1341   01 004FD    00000000 A            DATA     0
     1342   01 004FE    00000500              DATA     %+2
     1343   01 004FF    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED

     1345   01 00500    74000516              STCF     PDFRET            SAVE CONDITION CODES
     1346   01 00501    02200000 A            LCI      0
     1347   01 00502    2B002DC4              STM,0    DEVREGS
     1348   01 00503    C47004FC              ANLZ,7   *DEVIAT4C
     1349   01 00504    124004FC              LD,4     DEVIAT4C
     1350   01 00505    22900E4C A            LI,9     X'E4C'

     1352   01 00506    32800516     DEVIATED LW,8     PDFRET
     1353   01 00507    25800308 A            SCD,8    8                 FORM ERROR-LOG IDENT
     1354   01 00508    3280051A              LW,8     DIVERTED          GET PRIMARY TRAP IDENT
     1355   01 00509    32680000 A            LW,6     0,4               INSTRUCTION
     1356   01 0050A    32200518              LW,2     DEVIATID          IDENT OF DEVIATION TRAP
     1357   01 0050B    2210C800 A            LI,1     X'C800'
     1358   01 0050C    15400516              STD,4    PDFRET            SAVE RETURN
     1359   01 0050D    33100519              MTW,1    DEVIATES          COUNT DEVIATIONS
     1360   01 0050E    0E100510              LPSD,1   CLRPDF            CLEAR PDF

     1362                                     BOUND    8
     1363   01 00510    00000512     CLRPDF   DATA     %+2
     1364   01 00511    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED

     1366   01 00512    6AF00255              BAL,15   AUDITOR
     1367   01 00513    02200000 A            LCI      0
     1368   01 00514    2A002DC4              LM,0     DEVREGS
     1369   01 00515    0E000516              LPSD,0   PDFRET

     1371                                     BOUND    8
     1372   01 00516    00000000 A   PDFRET   DATA     0
     1373   01 00517    00000000 A            DATA     0
     1374   01 00518    000F2000 A   DEVIATID DATA     X'F2000'
     1375   01 00519    00000000 A   DEVIATES DATA     0
     1376   01 0051A    00000000 A   DIVERTED DATA     0
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   30
A    1378                            *        MEMORY FAULT (9)

     1380                                     BOUND    8
     1381   01 0051C    00000000 A   TRAP4C   DATA     0
     1382   01 0051D    00000000 A            DATA     0
     1383   01 0051E    00000520              DATA     %+2
     1384   01 0051F    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1385   01 00520    0F000200              XPSD,0   PUSHS
     1386   01 00521    02000E4C A            NOP      X'E4C'

     1388   01 00522    22100400 A            LI,1     X'400'
     1389   01 00523    6D101100 A            WD,1     X'1100'           DISARM PARITY INT.

     1391   01 00524    320004AE              LW,0     DIVERT4C
     1392   01 00525    3500004C A            STW,0    X'4C'             DIVERT 4C TRAP
     1393   01 00526    6AF004A7              BAL,15   DIVERT

     1395   01 00527    6AF00E85     T4CA     BAL,15   POLL              POLL THE DEVICES

        1*  01 00528    22900000 A   T4CC     LI,9     0                 SCAN ENTIRE MEMORY              *H02

     1399   01 00529    22100004 A   T4CC0    LI,1     4                 CHECK 4 WORDS OF EACH BANK

     1401   01 0052A    22600000 A   T4CC1    LI,6     0                 CLEAR REG FOR STATUS

     1403   01 0052B    02200080 A            LCI      8                 READ STATUS 0 (BANK ADDRESS
     1404   01 0052C    AD620009 A            LMS,6    *9,1               PLUS CURRENT DISPLACEMENT)

        1*  01 0052D    31601B0D              CW,6     YFF8              ERROR OR CORRECTED DATA         *H01
     1407   01 0052E    69400537              BANZ     T4CB               SKIP IF FOUND

     1409   01 0052F    6410052A              BDR,1    T4CC1             CONTINUE FOR 4 DISPLACEMENTS

     1411   01 00530    20902000 A            AI,9     X'2000'           USE 8K BANK SIZE
     1412   01 00531    31902EDE              CW,9     MEMSIZE            (ABSOLUTE MINIMUM)
     1413   01 00532    69100529              BL       T4CC0               SKIP IF STILL IN LIMITS

        1*  01 00533    12601A50              LD,6     ZEROS             CLEAR STATUS IF                 *H01
        2*  01 00534    12800006 A            LD,8     6                  LMS YIELDED NOTHING            *H01

     1419   01 00535    20200002 A            AI,2     2                 SET LMS STATUS INVALID
     1420   01 00536    68000578              B        T4CE
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   31
A    1422   01 00537    02200090 A   T4CB     LCI      9
     1423   01 00538    AD720009 A            LMS,7    *9,1              FETCH MEMORY STATUS WORD 1

        2*  01 00539    31701AC2              CW,7     BIT+10            SKIP IF NOT                     *H01
        3*  01 0053A    6840053D              BAZ      %+3                MOS MEMORY                     *H01

        5*  01 0053B    022000B0 A            LCI      11                CAPTURE STATUS WORD 3           *H01
        6*  01 0053C    AD020009 A            LMS,0    *9,1               BEFORE RESET ON WORD 2         *H01

     1424   01 0053D    022000E0 A            LCI      14
     1425   01 0053E    AD820009 A            LMS,8    *9,1              FETCH MEMORY STATUS WORD 2

     1427   01 0053F    70200007 A            LC       7                 SKIP IF NO INTERLEAVE
     1428   01 00540    68C00560              BCR,8+4  T4CD               (BANK SIZE IRRELEVENT)

        1*  01 00541    30900001 A            AW,9     1                 COMPUTE LOGICAL BANK            *H01
        2*  01 00542    32E00009 A            LW,14    9                  ADDRESS AND SAVE               *H01

        4*  01 00543    22D04000 A            LI,13    X'4000'           ASSUME 8K, 2-WAY INTERLEAVED    *H01

        6*  01 00544    22C00584              LI,12    2WAY8K            ADDRESS OF BIT PARAMETERS       *H01

     1436                            * THE FOLLOWING IS USED TO COMPUTE THE BANK SIZE. IT IS ASSUMED
     1437                            * THAT A MEMORY UNIT CONSISTS OF TWO BANKS, AND THAT THE LOGICAL
     1438                            * BANK ADDRESS (SPECIFIED BY *9,1) IS WITHIN THE FIRST 4 WORDS
     1439                            * OF A LOGICAL INTERLEAVE GROUP.

        1*  01 00545    3290000E A   T4CB1    LW,9     14                FETCH LOGICAL BANK ADDRESS      *H01
        2*  01 00546    3090000D A            AW,9     13                 TRY TO GO OUT OF UNIT          *H01


     1448   01 00547    70200007 A            LC       7                 FETCH INTERLEAVE STATE
     1449   01 00548    6880054A              BCR,8    %+2                SKIP IF INDEED 2-WAY
        1*  01 00549    3090000D A            AW,9     13                  ELSE DISPLACE TO 4-WAY        *H01

     1452   01 0054A    31902EDE              CW,9     MEMSIZE           COMPARE WITH END OF MEMORY
        1*  01 0054B    68100558              BGE      T4CB0              OVERFLOW IMPLIES SEARCH DONE   *H01

     1455   01 0054C    02200090 A            LCI      9                 GET STATUS 1 OF DISPLACED
     1456   01 0054D    ADF00009 A            LMS,15   *9                 ADDRESS FOR UNIT NUMBER

     1458   01 0054E    48F00007 A            EOR,15   7                 COMPARE WITH UNIT NUMBER
     1459   01 0054F    52F0000F A            LH,15    15                 OF FAILING ADDRESS
        1*  01 00550    51F00F00 A            CH,15    X'0F00'             UNEQUAL IMPLIES SEARCH DONE   *H01
     1461   01 00551    69400558              BANZ     T4CB0

        1*  01 00552    25D00001 A            SLS,13   1                 DOUBLE BANK SIZE                *H01

        3*  01 00553    20C00004 A            AI,12    4                 POINT TO NEXT PARAMETER SET     *H01

        5*  01 00554    21C005A4              CI,12    2WAY2KK           CHECK FOR END OF TABLE          *H01
        6*  01 00555    68200545              BLE      T4CB1              CONTINUE IF REASONABLE         *H01

        8*  01 00556    20200004 A            AI,2     4                 SET LOG ID TO INVALID           *H01
        9*  01 00557    68000578              B        T4CE               CONFIGURATION AND ENTER        *H01

       11*  01 00558    02200040 A   T4CB0    LCI      4                 FETCH BIT PARAMETERS            *H01
       12*  01 00559    AAA0000C A            LM,10    *12                FOR BOTH INTERLEAVE TYPES      *H01

       14*  01 0055A    70300007 A            LCF      7                 EXAMINE INTERLEAVE TYPE         *H01
     1467   01 0055B    6980055D              BCS,8    %+2                SKIP IF 4-WAY
     1468   01 0055C    12C0000A A            LD,12    10                  ELSE SET 2-WAY TRANSFORMS

     1470   01 0055D    6AF0057D              BAL,15   INTERLEV          SWAP FIRST ADDRESS BIT PAIR

     1472   01 0055E    32C0000D A            LW,12    13                SECOND TRANSFORMATION
     1473   01 0055F    6AF0057D              BAL,15   INTERLEV           (NULL IF ONLY 2-WAY)

        1*  01 00560    31701AC2     T4CD     CW,7     BIT+10            SKIP IF NOT                     *H01
        2*  01 00561    68400568              BAZ      T4CD0              MOS MEMORY                     *H01

        4*  01 00562    32900000 A            LW,9     0                 STATUS WORD 3                   *H01

        6*  01 00563    31601B16              CW,6     Y6                SKIP IF DATA                    *H01
        7*  01 00564    68400577              BAZ      T4CD2              ERRORS ABSENT                  *H01

        9*  01 00565    31601B18              CW,6     Y1B               SKIP IF NON-DATA                *H01
       10*  01 00566    69400577              BANZ     T4CD2              ERRORS PRESENT                 *H01

       12*  01 00567    68000574              B        T4CD1             RESTORE DATA TO MEMORY          *H01

       14*  01 00568    22900000 A   T4CD0    LI,9     0                 CLEAR STATUS WORD 3             *H01

       16*  01 00569    31601B16              CW,6     Y6                SKIP IF DATA                    *H01
       17*  01 0056A    68400578              BAZ      T4CE               ERRORS ABSENT                  *H01

       19*  01 0056B    31601B18              CW,6     Y1B               SKIP IF NON-DATA                *H01
       20*  01 0056C    69400578              BANZ     T4CE               ERRORS PRESENT                 *H01

       22*  01 0056D    02200010 A            LCI      1                 ELSE READ IGNORING              *H01
       23*  01 0056E    AD900008 A            LMS,9    *8                 PARITY                         *H01

     1486   01 0056F    72F02ED0              LB,15    SYSMODE           RESET FAULT LIGHT
     1487   01 00570    21F00002 A            CI,15    XNFLT              ON TELEFILE MEMORY
     1488   01 00571    69400574              BANZ     %+3                 ONLY IF NOT INHIBITED

     1490   01 00572    022000E0 A            LCI      14
     1491   01 00573    ADF00008 A            LMS,15   *8                READ STATUS 2 AND RESET

        2*  01 00574    32100008 A   T4CD1    LW,1     8                 RESTORE DATA TO MEMORY          *H01
        3*  01 00575    4B101AE2              AND,1    NOBITS+8           BE CAREFUL OF BIT 0            *H01
        4*  01 00576    B5900001 A            STW,9    *1                  (REAL EXTENDED ADDRESSING)    *H01

        6*  01 00577    20200001 A   T4CD2    AI,2     1                 INDICATE STATUS 3 VALID         *H01

     1495   01 00578    21201000 A   T4CE     CI,2     X'1000'           SKIP IF MFI
     1496   01 00579    694005E5              BANZ     INT56D

     1498   01 0057A    22100400 A            LI,1     X'400'            ELSE ARM, ENABLE MFI
     1499   01 0057B    6D101200 A            WD,1     X'1200'            AND SKIP TO COMMON CODE
     1500   01 0057C    680005E5              B        INT56D              (SAVE LMS STATUS)

     1502   01 0057D    3180000C A   INTERLEV CW,8     12
     1503   01 0057E    E840000F A            BAZ      *15               MUST BE 0 0

     1505   01 0057F    4880000C A            EOR,8    12
     1506   01 00580    3180000C A            CW,8     12
     1507   01 00581    6840057F              BAZ      %-2               MUST BE 1 1
     1508   01 00582    E800000F A            B        *15               MUST BE 0 1 OR 1 0

     1510                                     BOUND    8
     1511   01 00584    00002001 A   2WAY8K   DATA     X'2001',X'0000'   2-WAY 8K BANK
            01 00585    00000000 A
     1512   01 00586    00004001 A            DATA     X'4001',X'2002'    4-WAY 8K BANK
            01 00587    00002002 A

     1514   01 00588    00004001 A   2WAY16K  DATA     X'4001',X'0000'   2-WAY 16K BANK
            01 00589    00000000 A
     1515   01 0058A    00008001 A            DATA     X'8001',X'4002'    4-WAY 16K BANK
            01 0058B    00004002 A

     1517   01 0058C    00008001 A   2WAY32K  DATA     X'8001',X'0000'   2-WAY 32K BANK
            01 0058D    00000000 A
     1518   01 0058E    00010001 A            DATA     X'10001',X'8002'   4-WAY 32K BANK
            01 0058F    00008002 A

        2*  01 00590    00010001 A   2WAY64K  DATA     X'10001',0        2-WAY 64K BANK                  *H01
            01 00591    00000000 A
        3*  01 00592    00020001 A            DATA     X'20001',X'10002'  4-WAY 64K BANK                 *H01
            01 00593    00010002 A

        5*  01 00594    00020001 A   2WAY128K DATA     X'20001',0        2-WAY 128K BANK                 *H01
            01 00595    00000000 A
        6*  01 00596    00040001 A            DATA     X'40001',X'20002'  4-WAY 128K BANK                *H01
            01 00597    00020002 A

        8*  01 00598    00040001 A   2WAY256K DATA     X'40001',0        2-WAY 256K BANK                 *H01
            01 00599    00000000 A
        9*  01 0059A    00080001 A            DATA     X'80001',X'40002'  4-WAY 256K BANK                *H01
            01 0059B    00040002 A

       11*  01 0059C    00080001 A   2WAY512K DATA     X'80001',0        2-WAY 512K BANK                 *H01
            01 0059D    00000000 A
       12*  01 0059E    00100001 A            DATA     X'100001',X'80002' 4-WAY 512K BANK                *H01
            01 0059F    00080002 A

       14*  01 005A0    00100001 A   2WAY1KK  DATA     X'100001',0       2-WAY 1KK BANK                  *H01
            01 005A1    00000000 A
       15*  01 005A2    00200001 A            DATA     X'200001',X'100002' 4-WAY 1KK BANK                *H01
            01 005A3    00100002 A

       17*  01 005A4    00200001 A   2WAY2KK  DATA     X'200001',0       2-WAY 2KK BANK                  *H01
            01 005A5    00000000 A
       18*  01 005A6    00400001 A            DATA     X'400001',X'200002' 4-WAY 2KK BANK                *H01
            01 005A7    00200002 A
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   32
A    1520                            *        INSTRUCTION EXCEPTION TRAP X'4D'   SETS 'PDF' FLAG IN CPU

     1522                                     BOUND    8
     1523   01 005A8    00000000 A   TRAP4D   DATA     0
     1524   01 005A9    00000000 A            DATA     0
     1525   01 005AA    000005AC              DATA     %+2
     1526   01 005AB    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED

     1528   01 005AC    0F000200              XPSD,0   PUSHS
     1529   01 005AD    02000E4D A            NOP      X'E4D'
     1530   01 005AE    6AF004A8              BAL,15   DIVERT+1          CLEAR PDF
     1531   01 005AF    680003DA              B        TRAPS

     1533                            *        POWER ON

     1535                                     BOUND    8
     1536   01 005B0    00000000 A   INT50    DATA     0
     1537   01 005B1    00000000 A            DATA     0
     1538   01 005B2    000005B4              DATA     %+2
     1539   01 005B3    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED

     1541   01 005B4    0EB005C0              LPSD,11  POWERON           CLEAR POWER ON INT. LEVEL

     1543   01 005B5    3A801AC3     INT501   LCW,8    BIT+11            WAIT ABOUT 2 SECONDS
     1544   01 005B6    658005B6              BIR,8    %
     1545   01 005B7    6AF001A0              BAL,15   CLOCKSON
     1546   01 005B8    6AF007CC              BAL,15   MAPCONT           ENTER MAP CONTROL
     1547   01 005B9    02200050 A            LCI      5
     1548   01 005BA    2A102DE4              LM,1     REGS51
     1549   01 005BB    6AF00255              BAL,15   AUDITOR
     1550   01 005BC    02200040 A            LCI      4
     1551   01 005BD    0A202C66              PLM,2    RETURNS
     1552   01 005BE    22200000 A            LI,2     0                 LEVEL ALREADY CLEARED
     1553   01 005BF    68000237              B        PULLS0            GO TO EXIT

     1555                                     BOUND    8
     1556   01 005C0    000005B5     POWERON  DATA     INT501
     1557   01 005C1    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED

     1559                            *        POWER OFF

     1561                                     BOUND    8
     1562   01 005C2    00000000 A   INT51    DATA     0
     1563   01 005C3    00000000 A            DATA     0
     1564   01 005C4    000005C6              DATA     %+2
     1565   01 005C5    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1566   01 005C6    0F000200              XPSD,0   PUSHS
     1567   01 005C7    02000F51 A            NOP      X'F51'

     1569   01 005C8    2210FFFF A            LI,1     X'FFFF'
     1570   01 005C9    6D101100 A            WD,1     X'1100'           DISARM THE INTERRUPTS
     1571   01 005CA    6AF00E83              BAL,15   HIOPOLL
     1572   01 005CB    2010C008 A            AI,1     X'C008'
     1573   01 005CC    02200050 A            LCI      5
     1574   01 005CD    2B102DE4              STM,1    REGS51
     1575   01 005CE    2E000000 A            WAIT
     1576   01 005CF    680005CE              B        %-1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   33
A    1578                            *        MEMORY PARITY(5/7)-PROCESSOR FAULT(9)

     1580                                     BOUND    8
     1581   01 005D0    00000000 A   INT56    DATA     0
     1582   01 005D1    00000000 A            DATA     0
     1583   01 005D2    000005D4              DATA     %+2
     1584   01 005D3    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1585   01 005D4    0F000200              XPSD,0   PUSHS
     1586   01 005D5    02000856 A            NOP      X'856'

     1588   01 005D6    6AF00E85              BAL,15   POLL              POLL THE DEVICES

     1590   01 005D7    33002C04              MTW,0    SIGMA9            MEMORY SCAN IF
     1591   01 005D8    681005E7              BGEZ     INT56B             SIGMA 5/6/7

     1593   01 005D9    20220080 A            AI,2     X'20080'          SET PROCESSOR FAULT FLAGS

     1595   01 005DA    22600000 A            LI,6     0
     1596   01 005DB    22701F00 A            LI,7     X'1F00'           LAST 'CPU' PROCESSOR NUMBER

     1598   01 005DC    12801A50     INT56A   LD,8     ZEROS             SHOULD REALLY SKIP
     1599   01 005DD    4F8EC000 A            POLR,8   0,7                POLR FOR THIS CPU
     1600   01 005DE    698005E3              BCS,8    INT56C              SKIP IF NO RECOGNITION

     1602   01 005DF    74000007 A            STCF     7                 SAVE STATUS
     1603   01 005E0    694005E5              BCS,4    INT56D            SKIP IF PFI PENDING

     1605   01 005E1    218FFFFF A            CI,8     -1                STATUS WORD ALL ZEROS
     1606   01 005E2    694005E5              BANZ     INT56D            NO-MUST BE A FIND

     1608   01 005E3    207FFF00 A   INT56C   AI,7     -X'100'           GET NEXT PROCESSOR ADDRESS
     1609   01 005E4    681005DC              BGEZ     INT56A            TEST THE NEXT ADDRESS

     1611   01 005E5    6AF00620     INT56D   BAL,15   PARXIT            STORE REGS 6 THRU 9
     1612   01 005E6    680005EC              B        I56               BRANCH TO COMMON CODE.

        1*        01 005E7           INT56B   EQU      %                 MACHINE IS SIGMA 7 (MFI)        *H02
        2*  01 005E7    72702ED0              LB,7     SYSMODE            CHECK FOR                      *H02
        3*  01 005E8    21700020 A            CI,7     XLMS                SIGMA 9-LIKE LMS              *H02
        4*  01 005E9    69400528              BANZ     T4CC                                              *H02

        6*  01 005EA    22700000 A            LI,7     0                 ELSE NORMAL SIGMA 7             *H02
        7*  01 005EB    6AF0060F              BAL,15   PARITY             PARITY SCAN                    *H02

     1617   01 005EC    2210C808 A   I56      LI,1     X'C808'           CPU-PARITY CODE

        2*  01 005ED    31701ACB              CW,7     BIT+19            LOOK FOR SOFT-HIT ENABLE (MOS)  *H01
        3*  01 005EE    684005F9              BAZ      I560                                              *H01

        5*  01 005EF    31601B0C              CW,6     Y7F8              LOOK FOR NO ERRORS              *H01
        6*  01 005F0    694005F9              BANZ     I560                                              *H01

        8*  01 005F1    31601AB8              CW,6     BIT+0             LOOK FOR A SOFT-HIT (MOS)       *H01
        9*  01 005F2    684005F9              BAZ      I560                                              *H01

       11*  01 005F3    4B201AE9              AND,2    NOBITS+15         CLEAR SEVERITY LEVEL            *H01
       12*  01 005F4    20220000 A            AI,2     X'20000'           AND RESET TO 2                 *H01

       14*  01 005F5    33F02C1E              MTW,-1   RCETOTAL          DECREMENT AND DISABLE           *H02
       15*  01 005F6    692005F9              BGZ      I560               FURTHER HITS IF EXHAUSTED      *H02

       17*  01 005F7    22E00000 A            LI,14    0                 ELSE RESET LMS                  *H02
       18*  01 005F8    6AF01666              BAL,15   SETLMS             CLOCK MARGINS                  *H02

     1619   01 005F9    30102D11     I560     AW,1     CODE              APPEND NR OF BUSY DEV'S
     1620   01 005FA    6AF00255              BAL,15   AUDITOR

     1622   01 005FB    4B201B1F              AND,2    XFF00
     1623   01 005FC    21204600 A            CI,2     X'4600'           WAS IT A 46 TRAP
     1624   01 005FD    69300601              BNE      I561              NO

     1626   01 005FE    320004AF              LW,0     XPSD46
     1627   01 005FF    35000046 A            STW,0    X'46'             RESTORE 46 TRAP
     1628   01 00600    68000235              B        PULLS

     1630   01 00601    21204C00 A   I561     CI,2     X'4C00'           WAS IT A 4C TRAP
     1631   01 00602    69300235              BNE      PULLS             NO

     1633   01 00603    320004B0              LW,0     XPSD4C
     1634   01 00604    3500004C A            STW,0    X'4C'             RESTORE 4C TRAP
     1635   01 00605    68000235              B        PULLS
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   34
A    1637                            *        MEMORY FAULT (9)

     1639                                     BOUND    8
     1640   01 00606    00000000 A   INT57    DATA     0
     1641   01 00607    00000000 A            DATA     0
     1642   01 00608    0000060A              DATA     %+2
     1643   01 00609    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1644   01 0060A    0F000200              XPSD,0   PUSHS
     1645   01 0060B    02000E57 A            NOP      X'E57'
     1646   01 0060C    68000527              B        T4CA              BRANCH TO COMMON ROUTINE

     1648                            *        MEMORY PARITY SEARCH ROUTINE FOR SIGMA 5/6/7

     1650   01 0060D    22500800 A   PARITY0  LI,5     X'800'            DISARM AND DISABLE
     1651   01 0060E    6D501100 A            WD,5     X'1100'            PARITY INTERRUPT

     1653   01 0060F    22600000 A   PARITY   LI,6     0
     1654   01 00610    32802EDE              LW,8     MEMSIZE
     1655   01 00611    22900000 A            LI,9     0
     1656   01 00612    6CD00010 A            RD,13    X'10'             CLEAR AND SAVE
     1657   01 00613    75D02C43              STB,13   FAULTS             MEMORY FAULT LIGHTS

     1659   01 00614    3A502EDE              LCW,5    MEMSIZE           PREPARE TO SCAN MEMORY

     1661   01 00615    B20A2EDE     PARITY1  LW,0     *MEMSIZE,5        FETCH A WORD
     1662   01 00616    6CD00010 A            RD,13    X'10'              LOOK FOR FAULT LIGHT
     1663   01 00617    21D00000 A            CI,13    0
     1664   01 00618    6830061E              BE       PARITY3             SKIP IF NOT PRESENT

     1666   01 00619    B50A2EDE              STW,0    *MEMSIZE,5        RESTORE WITH GOOD PARITY

     1668   01 0061A    B29A2EDE              LW,9     *MEMSIZE,5        FETCH AND RESET
     1669   01 0061B    6CD00010 A            RD,13    X'10'              (INSURES GOOD PARITY?)

     1671   01 0061C    30800005 A            AW,8     5                 SAVE ADDRESS OF LAST ERROR

     1673   01 0061D    20600001 A   PARITY2  AI,6     1                 INCREMENT ERROR COUNT
     1674   01 0061E    65500615     PARITY3  BIR,5    PARITY1            LOOP THROUGH MEMORY

     1676   01 0061F    49802C43              OR,8     FAULTS            SAVE FAULTS WITH LAST ERROR

     1678   01 00620    02200040 A   PARXIT   LCI      4
     1679   01 00621    2B602C54              STM,6    PCOUNT
     1680   01 00622    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   35
A    1682                            *        REAL TIME CLOCK 4 - CONTROL

     1684                                     BOUND    8
     1685   01 00624    00000000 A   INT5B    DATA     0
     1686   01 00625    00000000 A            DATA     0
     1687   01 00626    00000628              DATA     %+2
     1688   01 00627    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     1689   01 00628    0F000200              XPSD,0   PUSHS
     1690   01 00629    0200005B A            NOP      X'5B'

     1692   01 0062A    32301AFC              LW,3     RUNPRMPT          RUN PROMPT
     1693   01 0062B    6AF012FF     RTHAN    BAL,15   CCP               ENTER COM PACKAGE
     1694   01 0062C    72702ED7              LB,7     PASSES            GET CURRENT PASS
     1695   01 0062D    31702BF4              CW,7     SETPASS           LAST PASS STORAGE
     1696   01 0062E    6930068A              BCS,3    SHUTDN            ANY CHANGES
     1697   01 0062F    72602ED9              LB,6     PHASES            PHASE COUNTER
     1698   01 00630    680C0631              B        %+1,6
     1699   01 00631    680007DE              B        PHAZ0             SPREAD SOURCE PHASE
     1700   01 00632    68000809              B        PHAZ1             KEY REMAING RAD AREA
     1701   01 00633    6800082D              B        PHAZ2             NORMAL EXERCISE
        1*  01 00634    68000635              B        PHAZ3             RANDOM EXERCISE                 *H00

        1*  01 00635    33002ED0     PHAZ3    MTW,0    SYSMODE           FREEZE MODE?                    *H00
     1704   01 00636    69100639              BLZ      RTH1              YES HOLD PASS TIMER

     1706   01 00637    33F02EDD              MTW,-1   PASSTIME          TIME TO CHANGE PASSES
        1*  01 00638    68200842              BLEZ     PASSEND                                           *H00

     1709   01 00639    5A002EDB     RTH1     LCH,0    BOF               GET NEG OF BURST OFF TIME
     1710   01 0063A    33F02BEA              MTW,-1   BTIME             BURST TIME OFF
     1711   01 0063B    69200642              BCS,2    RTH1A             NO
     1712   01 0063C    68300640              BCR,3    RTH1AB            JUST TIMED OFF
     1713   01 0063D    33202BEA              MTW,2    BTIME             BURST TIME ON
     1714   01 0063E    69100642              BCS,1    RTH1A             NO
     1715   01 0063F    52002EDA     RTH1AA   LH,0     BON               YES-GET BURST ON TIME
     1716   01 00640    25000004 A   RTH1AB   SLS,0    4                 MULTIPLY BY 16
     1717   01 00641    35002BEA              STW,0    BTIME             PUT IN THE TIMER

     1719   01 00642    22100001 A   RTH1A    LI,1     1                 INDEX FOR THE CT TABLE
     1720   01 00643    52922FF9     RTH2     LH,9     CT:OPS,1
     1721   01 00644    52823003              LH,8     CT:CS,1           GET CONTROLLER STATUS
     1722   01 00645    21908000 A            CI,9     XCSEL             IS THE DEVICE SELECTED
     1723   01 00646    6940065E              BCS,4    RTH4              YES

     1725   01 00647    20100001 A   RTH3     AI,1     1                 INC CTX
     1726   01 00648    31102BEF              CW,1     COUNT             DONE
     1727   01 00649    68200643              BCR,2    RTH2              NO

     1729   01 0064A    22000000 A   RTCXIT   LI,0     0
     1730   01 0064B    32102C5C              LW,1     COUNT4            CLOCK 4 TICKS
     1731   01 0064C    30102C58              AW,1     CLK4PULS          CLOCK 4 PULSE
     1732   01 0064D    66102EE7              AWM,1    REALTIME          UPDATE REAL TIME
     1733   01 0064E    36002C58              DW,0     CLK4PULS          GET REMAINDER
     1734   01 0064F    38002C58              SW,0     CLK4PULS          GET -TICKS
     1735   01 00650    210FFFFF A            CI,0     -1                ONLY 1 TICK LEFT
     1736   01 00651    69300654              BCS,3    RTCXIT1           NO-THERES MORE
     1737   01 00652    200FFFFF A            AI,0     -1                FORCE 1 MORE TICK
     1738   01 00653    33102EE7              MTW,1    REALTIME          ADD IT TO REAL TIME
     1739   01 00654    35002C5C     RTCXIT1  STW,0    COUNT4            RESTORE TICKS

        2*  01 00655    32002EE7              LW,0     REALTIME          COMPUTE TIME SINCE              *H02
        3*  01 00656    38002C1F              SW,0     BUFBEGIN           BUFFER ACTIVITY STARTED        *H02

        5*  01 00657    32102C32              LW,1     BUFFERS+0         NUMBER OF BUFFERS PROCESSED     *H02
        6*  01 00658    231001F4 A            MI,1     500                COMPUTE RATE IN                *H02
        7*  01 00659    36100000 A            DW,1     0                   BUFFERS/SECOND                *H02
        8*  01 0065A    35102C20              STW,1    BUFRATE                                           *H02

     1740   01 0065B    02200040 A   RTCXIT2  LCI      4
     1741   01 0065C    0A202C66              PLM,2    RETURNS
     1742   01 0065D    68000242              B        PULLS3
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   36
A    1744   01 0065E    21800002 A   RTH4     CI,8     XWORDRES          LOOK FOR WORD BOUNDARY
     1745   01 0065F    69400647              BANZ     RTH3               RESTRICTION AND SKIP

     1747   01 00660    52222FE5              LH,2     CT:DA,1
     1748   01 00661    72323071              LB,3     CT:ETX,1
     1749   01 00662    32462E1C              LW,4     ET:HNDLR,3        GET HANDLER ADDRESS
     1750   01 00663    21808000 A            CI,8     XBUSY             BUSY
     1751   01 00664    6840066B              BCR,4    RTH5              NO
     1752   01 00665    21800008 A            CI,8     XMANUL            MANUAL
     1753   01 00666    69400688              BCS,4    RTH9A             YES-DONT TIME OUT
     1754   01 00667    53F230B2              MTH,-1   CT:FT,1           TEST FOR TIMEOUT
     1755   01 00668    69200647              BCS,2    RTH3              NO
     1756   01 00669    6AF80003 A            BAL,15   DEVRETRY,4        RETRY DEVICE
     1757   01 0066A    68000647              B        RTH3

     1759   01 0066B    21800001 A   RTH5     CI,8     XINITAL           WAITING TO BE STARTED
     1760   01 0066C    6840067A              BCR,4    RTH9              NO
     1761   01 0066D    208FFFFF A            AI,8     -XINITAL          TURN OFF INITIAL IND.
     1762   01 0066E    6AF80005 A            BAL,15   DEVSTART,4        START CONTROLLER
     1763   01 0066F    68000647              B        RTH3

     1765   01 00670    21800020 A   RTH6     CI,8     XNOBUF            WAITING FOR A BUFFER
     1766   01 00671    68400674              BCR,4    RTH7              NO
     1767   01 00672    6AF80004 A            BAL,15   DEVNOBUF,4        ENTER HANDLER FOR A BUFFER
     1768   01 00673    68000647              B        RTH3

     1770   01 00674    21800100 A   RTH7     CI,8     XBTOUT            BURST DEVICE
     1771   01 00675    68400647              BCR,4    RTH3              NO
     1772   01 00676    33002BEA              MTW,0    BTIME             TIME ON YET
     1773   01 00677    68200647              BCR,2    RTH3              NO
     1774   01 00678    208FFF00 A            AI,8     -XBTOUT           TURN OF BURST TIMER IND.
     1775   01 00679    68000688              B        RTH9A

     1777   01 0067A    2180008C A   RTH9     CI,8     XERROR+XMANUL+XWAIT IN ERROR OR MANUAL
     1778   01 0067B    68400670              BCR,4    RTH6              NO
     1779   01 0067C    21803000 A            CI,8     XSORS+XKEYN       SOURCE OR KEYING
     1780   01 0067D    69400681              BANZ     RTH9B             YES-

     1782   01 0067E    72702ED9              LB,7     PHASES
     1783   01 0067F    21700002 A            CI,7     2                 PHASE 2 OR 3
     1784   01 00680    69100670              BCS,1    RTH6              NO

     1786   01 00681    21800080 A   RTH9B    CI,8     XWAIT             ON DATA OVERRUN WAIT
     1787   01 00682    68400688              BCR,4    RTH9A             NO-RESTART
     1788   01 00683    73F230A8              MTB,-1   CT:WAIT,1         DEC WAIT COUNTER
     1789   01 00684    69300647              BCS,3    RTH3              NOT DONE YET
     1790   01 00685    208FFF80 A            AI,8     -XWAIT            TURN OFF WAIT IND.
     1791   01 00686    6AF80000 A            BAL,15   DEVWAIT,4         RESTART DEVICE FROM OVERRUN
     1792   01 00687    6800064A              B        RTCXIT

     1794   01 00688    6AF80002 A   RTH9A    BAL,15   DEVRSTRT,4        RESTART DEVICE
     1795   01 00689    68000647              B        RTH3
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   37
A    1797                            ************************************************************************
     1798                            *                                                                      *
     1799                            *        FORCED PASS AND PHASE RECEIVERS                               *
     1800                            *                                                                      *
     1801                            *        1.  IF A PASS AND PHASE IS FORCED, BUT MORE                   *
     1802                            *            THAN ONE AUTOMATIC PASS IS ENABLED, THE PASSES            *
     1803                            *            WILL INCREMENT STARTING AT THE FORCED PASS AND            *
     1804                            *            START AT PHASE ZERO.                                      *
     1805                            *                                                                      *
     1806                            *        2.  IF THE SELECTED PASS AND PHASE ARE ALONE,                 *
     1807                            *            THIS PASS WILL ALWAYS START AT THE SAME PHASE.            *
     1808                            *                                                                      *
     1809                            *        3.  IF THE PASS AND PHASE QUALIFIES STATEMENT TWO             *
     1810                            *            AND FREEZE IS ON, ONLY THE SELECTED PHASE                 *
     1811                            *            WILL RUN.                                                 *
     1812                            *                                                                      *
     1813                            *        AUTOMATIC PASS GENERATOR-INCREMENTER-TESTER                   *
     1814                            *                                                                      *
     1815                            *        ALL PASSES ARE TIMED FOR A DEFINITE PERIOD                    *
     1816                            *        BEFORE ANOTHER PASS IS ALLOWED                                *
     1817                            *                                                                      *
     1818                            ************************************************************************

     1820   01 0068A    6AF00E64     SHUTDN   BAL,15   SETNBUSY          RESET ALL DEVICES

        2*  01 0068B    320004AF     SHUTDN0  LW,0     XPSD46            RESTORE UN-DIVERTED XPSDS       *H00
        3*  01 0068C    35000046 A            STW,0    X'46'                                             *H00
        4*  01 0068D    320004B0              LW,0     XPSD4C                                            *H00
        5*  01 0068E    3500004C A            STW,0    X'4C'                                             *H00

        7*  01 0068F    22000000 A            LI,0     0                 CLEAR CPU STATES                *H02
        8*  01 00690    55003003              STH,0    CT:CS                                             *H02

       10*  01 00691    72702ED7              LB,7     PASSES            GET CURRENT PASS                *H01
       11*  01 00692    31702BF4              CW,7     SETPASS            AND CHECK FOR FORCED PASS      *H01
       12*  01 00693    69300699              BNE      PASSX11             SKIP IF NOT EQUAL             *H01

     1823   01 00694    20700001 A   PASSX1   AI,7     1                 INCREMENT PASSES
     1824   01 00695    21700008 A            CI,7     8                 PASS 7 IS NOW THE LAST
     1825   01 00696    691006A3              BL       PASSX2            AUTOMATIC PASS
     1826   01 00697    22700000 A            LI,7     0
     1827   01 00698    73102ED5     CYCLEX   MTB,1    CYCLES            INC CYCLE COUNTER
     1828   01 00699    72102ED4     PASSX11  LB,1     CYCLER            ANY CYCLE SELECTED?
     1829   01 0069A    6930069C              BCS,3    %+2               YES
     1830   01 0069B    221000FF A            LI,1     X'FF'             NO, GIVE DEFAULT VALUE 'FF'
     1831   01 0069C    75102ED4              STB,1    CYCLER
     1832   01 0069D    72102ED5              LB,1     CYCLES
     1833   01 0069E    4B101AF6              AND,1    NOBITS+28
     1834   01 0069F    32021AB8              LW,0     BIT,1
     1835   01 006A0    31002ED4              CW,0     CYCLER            CYCLE SELECTED ?
     1836   01 006A1    68400698              BCR,4    CYCLEX            NO
     1837   01 006A2    75102ED5              STB,1    CYCLES
     1838   01 006A3    72802ED6     PASSX2   LB,8     PASSER            GET SELECTIONS
     1839   01 006A4    693006A7              BCS,3    PASSX3            YES
     1840   01 006A5    228000FF A            LI,8     X'FF'             INCLUDE PASS 7
     1841   01 006A6    75802ED6              STB,8    PASSER            FORCE SELECTION OF ALL PASSES
     1842   01 006A7    318E1AD0     PASSX3   CW,8     BIT+24,7          SELECTABLE PASS
     1843   01 006A8    68400694              BCR,4    PASSX1            NO
     1844   01 006A9    75702ED7     PASSX4   STB,7    PASSES
     1845   01 006AA    207040F0 A            AI,7     X'40F0'           SPACE-PASS NUMBER
     1846   01 006AB    55701F72              STH,7    PASSMSG+2         SET UP PASS MESSAGE
     1847   01 006AC    72702ED7              LB,7     PASSES            RESTORE REG 7
     1850   01 006AD    53102BF4              MTH,1    SETPASS           FORCE SETPASS#PASSES

        2*  01 006AE    6AF0084A              BAL,15   GENCT             COUNT SELECTED CONTROLLERS      *H02

     1853   01 006AF    22900000 A            LI,9     0                 CLEAR COUNT OF I/O
     1854   01 006B0    35902EE2              STW,9    SYSERRSP           ERRORS, THIS PASS

     1856   01 006B1    32902BF6              LW,9     BUFSTRTW          GET WORD ADDRESS OF
     1857   01 006B2    25900002 A            SLS,9    2                  FIRST BUFFER AND CONVERT

     1859   01 006B3    32B02EDE              LW,11    MEMSIZE           GET MEMORY SIZE IN WORDS
     1860   01 006B4    35B02EDF              STW,11   PMEMSIZE           INITIALIZE SIZE, THIS PASS

     1862   01 006B5    21B20000 A            CI,11    X'20000'          COMPARE SIZE WITH 128K
     1863   01 006B6    682E06BF              BLE      PASSX0,7           SKIP IF SMALL MEMORY

     1865   01 006B7    72102ED5              LB,1     CYCLES
        1*  01 006B8    21100001 A            CI,1     1                 LOOK FOR AN ODD PASS            *H02
     1867   01 006B9    684E06BF              BAZ      PASSX0,7           SKIP IF EVEN (NO MAP)

     1869   01 006BA    33002C01              MTW,0    MAPOP             SKIP IF NO MAP PRESENT
     1870   01 006BB    683E06BF              BEZ      PASSX0,7

     1872   01 006BC    22B20000 A            LI,11    X'20000'          WHEN MAPPING, ONLY
     1873   01 006BD    35B02EDF              STW,11   PMEMSIZE           USE FIRST 128K OF MEMORY
     1874   01 006BE    680E06BF              B        PASSX0,7

     1876   01 006BF    680006D9     PASSX0   B        PASS0             THIS
     1877   01 006C0    680006EA              B        PASS1              IS
     1878   01 006C1    680006EC              B        PASS2               THE
     1879   01 006C2    680006FF              B        PASS3                PASS
     1880   01 006C3    680006EC              B        PASS4                 JUMP
     1881   01 006C4    680006C7              B        PASS5                  TABLE
     1882   01 006C5    680006C9              B        PASS6
     1883   01 006C6    680006EC              B        PASS7
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   38
A    1885   01 006C7    22B00030 A   PASS5    LI,11    PASS5SIZ
     1886   01 006C8    680006DA              B        PASS0+1

     1888   01 006C9    22B01800 A   PASS6    LI,11    PASS6SIZ
     1889   01 006CA    32102BEF              LW,1     COUNT             SCAN ENTIRE ACTIVE CT
     1890   01 006CB    6AF00853     PASS6A   BAL,15   GETRAD            RETURNS+2 IF RAD, DISK, OR
     1891   01 006CC    680006D5              B        PASS6B            MAG TAPE, AND SELECTED
     1892   01 006CD    21300007 A            CI,3     ETXDPS            LOOK FOR DISK ONLY
     1893   01 006CE    691006D5              BL       PASS6B
     1894   01 006CF    2130000D A            CI,3     ETXRADS           LOOK FOR DISK ONLY
     1895   01 006D0    692006D5              BG       PASS6B
     1896   01 006D1    72462E44              LB,4     ET:RPX,3          GET PARAMETER INDEX
     1897   01 006D2    31B82E58              CW,11    RP:BPS,4          COMPARE WITH CURRENT SIZE
     1898   01 006D3    692006D5              BG       %+2               SKIP IF CURRENT PASS6 SIZE
     1899   01 006D4    32B82E58              LW,11    RP:BPS,4          ALREADY GREATER THAN THIS
     1900   01 006D5    641006CB     PASS6B   BDR,1    PASS6A            TRACK SIZE
     1901   01 006D6    32902BF6              LW,9     BUFSTRTW          RESTORE BA(FIRST-BUFFER)
     1902   01 006D7    25900002 A            SLS,9    2
     1903   01 006D8    680006DA              B        PASS0+1

     1905   01 006D9    22B00800 A   PASS0    LI,11    PASS0SIZ
     1906   01 006DA    209007FF A            AI,9     X'7FF'
     1907   01 006DB    4B901B1B              AND,9    X7F800            FORCE TO PAGE BOUNDRY
     1908   01 006DC    35902BF8     PASS01   STW,9    STTBYT            SET STARTING BUFFER BYTE ADD
     1909   01 006DD    35902ECD              STW,9    FIRSTBUF          SET FIRST BUFFER ADDRESS
     1910   01 006DE    21B00009 A            CI,11    XHEADER-3         BLKSIZ>=MINIMUM BLKSIZ
     1911   01 006DF    681006E1              BCR,1    %+2               YES
     1912   01 006E0    22B00009 A            LI,11    XHEADER-3         FORCE MINIMUM BLKSIZ
     1913   01 006E1    21B10000 A            CI,11    X'10000'          BLKSIZ=<65536
     1914   01 006E2    682006E4              BCR,2    %+2               YES
     1915   01 006E3    22B10000 A            LI,11    X'10000'          FORCE 65536 BLKSIZ
     1916   01 006E4    35B02BFA              STW,11   BLKSIZ
     1917   01 006E5    35B02ECB              STW,11   BLKSIZE           PUT IN SYSTEM TABLE
     1918   01 006E6    20BFFFFC A            AI,11    -4                FORCE BUFSIZ=BLKSIZ-4
     1919   01 006E7    35B02BFB     PASS05   STW,11   BUFSIZ
     1920   01 006E8    35B02ECC              STW,11   BUFSIZE
     1921   01 006E9    68000702              B        PASS02
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   39
A    1923   01 006EA    22B00010 A   PASS1    LI,11    PASS1SIZ          MINIMUM BLOCK SIZE
     1924   01 006EB    680006DC              B        PASS01

     1926         01 006EC           PASS7    EQU      %
     1927         01 006EC           PASS4    EQU      %
     1928   01 006EC    32B02EDF     PASS2    LW,11    PMEMSIZE          COMPUTE TOTAL BUFFER SPACE
     1929   01 006ED    38B02BF6              SW,11    BUFSTRTW           IN WORDS FOR THIS PASS
     1930   01 006EE    25B00002 A            SLS,11   2                   THEN CONVERT TO BYTES
     1931   01 006EF    36B02BE3              DW,11    CTSIZE            GET MAXIMUM BUFFER SIZE
     1932   01 006F0    20BFFFFF A            AI,11    -1
     1933   01 006F1    21700004 A            CI,7     4                 ONLY PASS 4
     1934   01 006F2    693006FB              BNE      PASS30            USES RANDOM BLOCK SIZE
     1935   01 006F3    20BFF7FF A            AI,11    -PASS0SIZ-1       CONSTRAIN VALUE TO LAY BETWEEN
     1936   01 006F4    22A00801 A            LI,10    PASS0SIZ+1        MAX BLOCK SIZE AND PASS 0 SIZE
     1937   01 006F5    6AF00F49     PASS20   BAL,15   RANDOM            GENERATE RANDOM NUMBER
     1938   01 006F6    32D00007 A            LW,13    7                 GET RANDOM BLOCK SIZE
     1939   01 006F7    22C00000 A            LI,12    0
     1940   01 006F8    36C0000B A            DW,12    11                CONSTRAIN BY MAX BUF SIZE
     1941   01 006F9    30C0000A A            AW,12    10
     1942   01 006FA    32B0000C A            LW,11    12                GET REMAINDER
     1943   01 006FB    209FFFFF A   PASS30   AI,9     -1                REPOSITION STTBYT
     1944   01 006FC    72702ED7              LB,7     PASSES
     1945   01 006FD    30900007 A            AW,9     7
     1946   01 006FE    680006DC              B        PASS01            GET ANOTHER BLOCK SIZE

     1948   01 006FF    22B007EF A   PASS3    LI,11    PASS0SIZ-PASS1SIZ-1 CONSTRAIN SIZE TO LIE
     1949   01 00700    22A00011 A            LI,10    PASS1SIZ+1           BETWEEN PASS 0 AND PASS 1
     1950   01 00701    680006F5              B        PASS20
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   40
A    1952   01 00702    32B02EDF     PASS02   LW,11    PMEMSIZE          COMPUTE AVAILABLE MEMORY
     1953   01 00703    25B00002 A            SLS,11   2                  IN BYTES FOR THIS PASS
     1954   01 00704    38B02ECD              SW,11    FIRSTBUF
     1955   01 00705    36B02BFA              DW,11    BLKSIZ            FIND NUMBER OF
     1956   01 00706    35B02C21              STW,11   BUFTOTAL           BUFFERS AVAILABLE
     1957   01 00707    37B02BFA              MW,11    BLKSIZ            FIND EXACT NUMBER OF
     1958   01 00708    30B02BF8              AW,11    STTBYT             BYTES AVAILABLE
     1959   01 00709    35B02BF9              STW,11   ENDBYT              AND FORM LAST BYTE ADDRESS
     1960   01 0070A    35B02BE8              STW,11   CLAST

     1962   01 0070B    32102BEF              LW,1     COUNT
     1963   01 0070C    6AF00856     PASS03   BAL,15   GETRAD1           GET A DEVICE AND PROCESS ONLY
     1964   01 0070D    68000741              B        PASS04             DISKS, RADS, AND TAPES

     1966   01 0070E    72462E44              LB,4     ET:RPX,3          GET RELATIVE PAR INDEX
     1967   01 0070F    32B02BFB              LW,11    BUFSIZ
     1968   01 00710    22A00000 A            LI,10    0
     1969   01 00711    36A82E58              DW,10    RP:BPS,4          BUFSIZ/BYTES PER SECTOR
     1970   01 00712    69400741              BCS,4    PASS04            OVERFLOW
     1971   01 00713    21A00000 A            CI,10    0                 REMAINDER = 0
     1972   01 00714    68300716              BCR,3    %+2               YES
     1973   01 00715    20B00001 A            AI,11    1

     1975   01 00716    21700006 A            CI,7     6                 PASS6: NO LATENCY
     1976   01 00717    6830071E              BE       PASS06            CONSIDERATIONS

     1978   01 00718    21300007 A            CI,3     ETXDPS            DISKS: NO LATENCY
     1979   01 00719    6810071E              BGE      PASS06            CONSIDERATIONS

     1981   01 0071A    21300001 A            CI,3     ETXHSRAD          7211: SKIP 2 SECTORS,
     1982   01 0071B    6920071D              BG       %+2                ELSE SKIP ONLY 1
     1983   01 0071C    20B00001 A            AI,11    1
     1984   01 0071D    20B00001 A            AI,11    1

     1986   01 0071E    72F230C1     PASS06   LB,15    CT:SF,1           RESTRICT VALUE OF
     1987   01 0071F    21F0000A A            CI,15    10                 SURFACE SHIFT FACTOR
     1988   01 00720    68200723              BLE      %+3                 TO LIE BETWEEN
     1989   01 00721    22F0000A A            LI,15    10                   0 AND 10 FOR NOW...
     1990   01 00722    75F230C1              STB,15   CT:SF,1

     1992   01 00723    72F230C1              LB,15    CT:SF,1           SHIFT SECTORS/BUFFER BY
     1993   01 00724    A5B0000F A            S,11     *15                CURRENT SHIFT FACTOR TO GET
     1994   01 00725    55B82E7F              STH,11   RP:INC,4            TRUE POSITIONAL INCREMENT

     1996   01 00726    32982E64              LW,9     RP:SPT,4          SECTORS PER TRACK
     1997   01 00727    37982E70              MW,9     RP:TPD,4          TRACKS PER DEVICE
     1998   01 00728    22800000 A            LI,8     0                 R9=SECTORS PER DEVICE
     1999   01 00729    3680000B A            DW,8     11                SECTORS PER DEV/SECTORS PER BUFFER
     2000   01 0072A    35982E85              STW,9    RP:BUFS,4         BUFFERS PER DEVICE

     2002   01 0072B    22900001 A            LI,9     1                 INITIALIZE STANDARD
     2003   01 0072C    35982E91              STW,9    RP:CDWS,4          COUNT OF CDWS/TRANSFER

     2005   01 0072D    21700007 A            CI,7     7                 LOOK FOR PASS7
     2006   01 0072E    69300741              BNE      PASS04
     2007   01 0072F    21300007 A            CI,3     ETXDPS            LOOK FOR A DISK
     2008   01 00730    69100741              BL       PASS04
     2009   01 00731    2130000D A            CI,3     ETXRADS
     2010   01 00732    69200741              BG       PASS04

     2012   01 00733    32982E70              LW,9     RP:TPD,4          SET TRANSMISSIONS/DEVICE
     2013   01 00734    35982E85              STW,9    RP:BUFS,4          EQUAL CYLINDERS/DEVICE

     2015   01 00735    32982E64              LW,9     RP:SPT,4          GET SECTORS PER TRACK
     2016   01 00736    72F230C1              LB,15    CT:SF,1            SHIFT BY CURRENT
     2017   01 00737    A590000F A            S,9      *15                 SURFACE SHIFT FACTOR
     2018   01 00738    55982E7F              STH,9    RP:INC,4          SET POSITION INCREMENT

     2020   01 00739    32982E64              LW,9     RP:SPT,4          GET SECTORS PER TRACK
     2021   01 0073A    37982E58              MW,9     RP:BPS,4          COMPUTE BYTES PER TRACK
     2022   01 0073B    22800000 A            LI,8     0                 COMPUTE BUFFERS PER TRACK
     2023   01 0073C    36802BFB              DW,8     BUFSIZ            (BUFFER IS CONSTRAINED TO A
     2024   01 0073D    21800000 A            CI,8     0                 SINGLE CCDW)
     2025   01 0073E    68300740              BE       %+2
     2026   01 0073F    20900001 A            AI,9     1
     2027   01 00740    35982E91              STW,9    RP:CDWS,4         CDWS PER CYLINDER

     2029   01 00741    6410070C     PASS04   BDR,1    PASS03
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   41
A    2031   01 00742    225FFFFE A            LI,5     -2                PREPARE FOR SOURCE SEARCH
     2032   01 00743    32102EB7              LW,1     SORCEX

     2034   01 00744    52823003              LH,8     CT:CS,1
     2035   01 00745    4B801A10              AND,8    NSORS             TURN OFF SOURCE INDICATION
     2036   01 00746    55823003              STH,8    CT:CS,1

     2038   01 00747    33000001 A            MTW,0    1                 SKIP IF NO SOURCE (OR CPU)
     2039   01 00748    68300754              BEZ      NEWSORS0           ON LAST PASS

     2041   01 00749    64100755     NEWSORS  BDR,1    NEWSORS0+1        LOOK AT NEXT DEVICE
     2042   01 0074A    65500754              BIR,5    NEWSORS0          1ST TIME THRU

     2043   01 0074B    35502EB7              STW,5    SORCEX            CLEAR SOURCE INDEX
     2044   01 0074C    35502EB5              STW,5    SORCEDEV

     2046   01 0074D    52902FF9              LH,9     CT:OPS            SELECT CPU AS SOURCE DEVICE
     2047   01 0074E    21902000 A            CI,9     XSORSS             IF PERMITTED BY THE OPERATOR
        1*  01 0074F    6840076E              BAZ      NEWPASS             (BIT SET IN CONTROL TABLE)    *H02

     2050   01 00750    52803003              LH,8     CT:CS             SET SOURCE INDICATION
     2051   01 00751    49801A0F              OR,8     SORS               IN CPU CONTROL TABLE
     2052   01 00752    55803003              STH,8    CT:CS               ENTRY
        1*  01 00753    6800076E              B        NEWPASS                                           *H02

     2062   01 00754    32102BEF     NEWSORS0 LW,1     COUNT
     2063   01 00755    6AF00853              BAL,15   GETRAD            IS IT A RAD
     2064   01 00756    68000749              B        NEWSORS           NO
     2065   01 00757    21902000 A            CI,9     XSORS             IS IT SOURCEABLE
     2066   01 00758    68400749              BCR,4    NEWSORS           NO
     2067   01 00759    21900040 A            CI,9     XNCHECK           IS IT CHECKABLE
     2068   01 0075A    69400749              BCS,4    NEWSORS           NO
     2069   01 0075B    52823003              LH,8     CT:CS,1
     2070   01 0075C    21300003 A            CI,3     ETXEP4            HAS IT A 4 BYTE RESTRICTION
     2071   01 0075D    69300762              BCS,3    NEWSORS1          NO
     2072   01 0075E    32C02BF8              LW,12    STTBYT
     2073   01 0075F    49C02BFA              OR,12    BLKSIZ
     2074   01 00760    21C00003 A            CI,12    3                 IS STTBYT AND BLKSIZ ON WORD BOUNDRY
     2075   01 00761    69400749              BCS,4    NEWSORS           NO

     2077   01 00762    21901000 A   NEWSORS1 CI,9     XKEYED            IS IT ALREADY KEYED
     2078   01 00763    68400767              BCR,4    NEWSORS2          NO
     2079   01 00764    49801A16              OR,8     WRAP
     2080   01 00765    49801A0F              OR,8     SORS
     2081   01 00766    68000768              B        NEWSORS3
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   42
A    2083   01 00767    49801A11     NEWSORS2 OR,8     KEYN
     2084   01 00768    49801A19     NEWSORS3 OR,8     NOBUF
     2085   01 00769    49801A28              OR,8     INITAL            SET INITIAL START UP
     2086   01 0076A    55823003              STH,8    CT:CS,1
     2087   01 0076B    35102EB7              STW,1    SORCEX
     2088   01 0076C    52223062              LH,2     CT:CA,1
     2089   01 0076D    35202EB5              STW,2    SORCEDEV

        1*        01 0076E           NEWPASS  EQU      %                                                 *H02
        2*  01 0076E    52803003              LH,8     CT:CS             SET CPU STATES                  *H02
        3*  01 0076F    52902FF9              LH,9     CT:OPS                                            *H02

        5*  01 00770    07801F70              CAL4,8   PASSMSG           NEW PASS                        *H02
        6*  01 00771    02000000 A            NOP      0,0                MESSAGE (NO PROMPT)            *H02

        8*  01 00772    33002EB7              MTW,0    SORCEX            SKIP IF NON-CPU                 *H02
        9*  01 00773    6930077B              BNEZ     NEWPASS2                                          *H02

       11*  01 00774    21802000 A            CI,8     XSORSS            SKIP IF SOURCE                  *H02
       12*  01 00775    68400779              BAZ      NEWPASS1           NOT REALLY CPU EITHER          *H02

       14*  01 00776    07801F73     NEWPASS0 CAL4,8   PASSMSG0          CPU SOURCE                      *H02
       15*  01 00777    02000000 A            NOP      0,0                MESSAGE (NO PROMPT)            *H02
       16*  01 00778    6800077B              B        NEWPASS2                                          *H02

       18*  01 00779    07801F77     NEWPASS1 CAL4,8   PASSMSG1          NO SOURCE                       *H02
       19*  01 0077A    02000000 A            NOP      0,0                MESSAGE (NO PROMPT)            *H02

       21*  01 0077B    21900080 A   NEWPASS2 CI,9     XBOMBF            CHECK FOR                       *H02
       22*  01 0077C    69400785              BANZ     NEWPASS6           FORCED BOMBING                 *H02

       24*  01 0077D    21900040 A            CI,9     XBOMBA            CHECK FOR                       *H02
       25*  01 0077E    6840078C              BAZ      NEWPASS5           AUTOMATIC BOMBING              *H02

       27*  01 0077F    49901A15              OR,9     BURSTING          ASSUME BURSTING                 *H02

       29*  01 00780    32002BE3              LW,0     CTSIZE            IF AUTOMATIC, BURST             *H02
       30*  01 00781    21000002 A            CI,0     2                  IS ENABLED IF ANY              *H02
       31*  01 00782    69200787              BG       NEWPASS3            CONTROLLERS SELECTED          *H02

       33*  01 00783    48901A15              EOR,9    BURSTING          ELSE CONTINUOUS                 *H02
       34*  01 00784    6800078A              B        NEWPASS4                                          *H02

       36*  01 00785    21900100 A   NEWPASS6 CI,9     XBURST            IF FORCED, SKIP                 *H02
       37*  01 00786    6840078A              BAZ      NEWPASS4           IF NOT BURSTING                *H02

       39*  01 00787    07801F80     NEWPASS3 CAL4,8   PASSMSG3          BOMBING IN BURSTS               *H02
       40*  01 00788    02000000 A            NOP      0,0                NO PROMPT                      *H02

       42*  01 00789    6800078C              B        NEWPASS5                                          *H02

       44*  01 0078A    07801F7A     NEWPASS4 CAL4,8   PASSMSG2          BOMBING CONTINUOUSLY            *H02
       45*  01 0078B    02000000 A            NOP      0,0                NO PROMPT                      *H02

       47*  01 0078C    07801F85     NEWPASS5 CAL4,8   PASSMSG4          NULL                            *H02
       48*  01 0078D    02020000 A            NOP      0,1                MESSAGE (WITH PROMPT)          *H02

       50*  01 0078E    55902FF9              STH,9    CT:OPS            SAVE OPERATOR SELECT            *H02

       52*  01 0078F    49801A11              OR,8     KEYN              SET CPU STATE KEYING            *H02
       53*  01 00790    55803003              STH,8    CT:CS              AND SAVE IT                    *H02

       55*  01 00791    72702ED7              LB,7     PASSES                                            *H02
     2092   01 00792    35702BF4              STW,7    SETPASS           SET AUTO MODE

     2094   01 00793    22A00000 A            LI,10    0
     2095   01 00794    226FFFF8 A            LI,6     -8                CLEAR BUFFER STATISTICS
     2096   01 00795    35AC2C3A              STW,10   BUFFERS+8,6
     2097   01 00796    65600795              BIR,6    %-1
     2098   01 00797    35A02C18              STW,10   AIOCOUNT          CLEAR AIO COUNTER
        1*  01 00798    35A02C19              STW,10   AIOUNEXP                                          *H00
     2099   01 00799    75A02ED9              STB,10   PHASES            CLEAR PHASE INDICATOR

     2101   01 0079A    32B02BFB              LW,11    BUFSIZ
     2102   01 0079B    21B000E8 A            CI,11    244-XHEADER       2*(120-XHEADER+4)+XHEADER-4
     2103   01 0079C    6820079E              BCR,2    %+2               ONE REFLECTION BUFFER/CARD
     2104   01 0079D    22B000E8 A            LI,11    244-XHEADER       FORCE IT
     2105   01 0079E    21700005 A            CI,7     5                 PASS 5
     2106   01 0079F    693007A1              BCS,3    %+2               NO
     2107   01 007A0    22B000E9 A            LI,11    233               FORCE PASS 5 IND.
     2108   01 007A1    75B02C17              STB,11   PARSHSIZ

     2110   01 007A2    22108040 A            LI,1     X'8040'
     2111   01 007A3    22211000 A            LI,2     X'11000'
     2112   01 007A4    72402ED5              LB,4     CYCLES
     2113   01 007A5    72502ED7              LB,5     PASSES
     2114   01 007A6    32602EB5              LW,6     SORCEDEV
     2115   01 007A7    32702BFA              LW,7     BLKSIZ
     2116   01 007A8    32802BFB              LW,8     BUFSIZ
     2117   01 007A9    32902ECD              LW,9     FIRSTBUF
     2118   01 007AA    6AF00255              BAL,15   AUDITOR           NEW PASS MESSAGE

     2120   01 007AB    22108010 A            LI,1     X'8010'
     2121   01 007AC    22211010 A            LI,2     X'11010'
     2122   01 007AD    72402ED7              LB,4     PASSES
     2123   01 007AE    72502ED9              LB,5     PHASES
     2124   01 007AF    32602EE1              LW,6     SYSERRST
     2125   01 007B0    6AF00255              BAL,15   AUDITOR           NEW PHASE MESSAGE (0)

     2127   01 007B1    22000000 A            LI,0     0                 ASSUME RUNNING UNMAPPED
     2128   01 007B2    35002C08              STW,0    SLCTREG            (REGISTER PAGE 0)
     2129   01 007B3    35002C09              STW,0    SLCTMAP

     2131   01 007B4    32102C66              LW,1     RETURNS           GET RETURN POINTER
     2132   01 007B5    201FFFFF A            AI,1     -1                POINT TO RETURN ADDRESS
     2133   01 007B6    122007DC              LD,2     STARTUP

     2135   01 007B7    22000001 A            LI,0     1                 DO NOT MAP
     2136   01 007B8    71002ED5              CB,0     CYCLES             ON EVEN CYCLES
        1*  01 007B9    684007BB              BAZ      RTCXIT4                                           *H01

     2139   01 007BA    6AF007CC              BAL,15   MAPCONT           ENTER MAP CONTROL

        1*  01 007BB    32002C00     RTCXIT4  LW,0     REGOPS            GET SELECTED REGISTER PAGES     *H01
        2*  01 007BC    32302C07              LW,3     LASTREG            AND POINTER TO LAST USED PAGE  *H01

        4*  01 007BD    33000000 A            MTW,0    0                 SKIP IF NO PAGES SELECTED       *H01
        5*  01 007BE    683007C4              BEZ      REGCONT0                                          *H01

        1*  01 007BF    203FFFFF A   REGCONT  AI,3     -1                DECREMENT TO NEXT PAGE          *H01
        2*  01 007C0    681007C2              BGE      %+2                RECYCLE BACK TO 31             *H01
        3*  01 007C1    2230001F A            LI,3     31                                                *H01

     2149   01 007C2    31061AB8              CW,0     BIT,3             SKIP IF PAGE NOT SELECTED
     2150   01 007C3    684007BF              BAZ      REGCONT            (OR NOT PRESENT)

        1*  01 007C4    35302C08     REGCONT0 STW,3    SLCTREG           SAVE PAGE NUMBER                *H01
     2153   01 007C5    35302C07              STW,3    LASTREG            FOR DISPLAY AND CYCLING
        1*  01 007C6    25300004 A            SLS,3    4                   ALLIGN RP IN PSW              *H01

     2156   01 007C7    31201AC1              CW,2     BIT+9             CHECK FOR MAP BIT
     2157   01 007C8    694007CA              BANZ     %+2                SKIP IF RUNNING MAPPED
     2158   01 007C9    493007DD              OR,3     STARTUP+1           ELSE RESTORE UNMAPPED MODES

     2160   01 007CA    95200001 A   RTCXIT0  STD,2    *1                INTIALIZE RESIDENT USER
     2161   01 007CB    6800064A              B        RTCXIT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   43
A    2163   01 007CC    33002C01     MAPCONT  MTW,0    MAPOP             RETURN IF NO
     2164   01 007CD    E830000F A            BEZ      *15                MAP OPTION PRESENT

     2166   01 007CE    49201AC1              OR,2     BIT+9             SET MAP BIT IN PSDW

     2168   01 007CF    225FFFFF A            LI,5     -1                INDICATE MAP IN USE
     2169   01 007D0    35502C09              STW,5    SLCTMAP

     2171   01 007D1    2250003F A            LI,5     X'3F'             EACH OF 64 MAP WORDS
     2172   01 007D2    32401B1D              LW,4     LASTMAP            POINTS TO 4 PAGES OF MEMORY

     2174   01 007D3    B54A2BF6              STW,4    *BUFSTRTW,5       STORE MAP WORD AND ADJUST
     2175   01 007D4    38401B1E              SW,4     NEXTMAP            FOR NEXT LOWER 4 PAGES

     2177   01 007D5    645007D3              BDR,5    %-2               LOOP ON PAGES 4-255
     2178   01 007D6    B54A2BF6              STW,4    *BUFSTRTW,5        STORE PAGES 0-3

     2180   01 007D7    32402BF6              LW,4     BUFSTRTW          POINT TO LOCATION OF MAP
     2181   01 007D8    32501AB9              LW,5     BIT+1              (X'40000000')

     2183   01 007D9    6F480000 A            LMAP,4   0                 LOAD 256 PAGES OF 8-BIT MAP

     2185   01 007DA    E800000F A            B        *15

     2187                                     BOUND    8
     2188   01 007DC    00000F94     STARTUP  DATA     STARTRU           BACKGROUND TASK RUNS
     2189   01 007DD    00810000 A            DATA     X'00810000'        UNMAPPED, REAL EXTENDED
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   44
A    2191                            ************************************************************************
     2192                            *                                                                      *
     2193                            *        PHASE CONTROL                                                 *
     2194                            *                                                                      *
     2195                            *        PHASE 0 - WRITE SOURCE DEVICE                                 *
     2196                            *        PHASE 1 - KEY ROTATING MEMORY SURFACES                        *
     2197                            *        PHASE 2 - NORMAL EXERCISE                                     *
     2198                            *                                                                      *
     2199                            ************************************************************************

     2201   01 007DE    32602BE7     PHAZ0    LW,6     CLASTI            BUFFERS SPREAD YET
     2202   01 007DF    69100642              BCS,1    RTH1A             NO

     2204   01 007E0    33002BE9              MTW,0    DLAST             SKIP IF DEVICE BUFFER
     2205   01 007E1    692007E8              BGZ      PHAZ00            POINTER ALREADY INITIALIZED

     2207   01 007E2    32602BF9              LW,6     ENDBYT            ELSE ALLOW DEVICES
     2208   01 007E3    35602BE9              STW,6    DLAST             TO OBTAIN BUFFERS

        2*  01 007E4    52103003              LH,1     CT:CS             GET CPU STATE                   *H02

        4*  01 007E5    4B101A12              AND,1    NKEYN             ERASE KEYING STATE              *H02
        5*  01 007E6    49101A16              OR,1     WRAP               SET WRAPPED STATE              *H02

        7*  01 007E7    55103003              STH,1    CT:CS                                             *H02

     2210   01 007E8    32102EB7     PHAZ00   LW,1     SORCEX            GET SOURCE INDEX
     2211   01 007E9    683007F2              BCR,3    PHAZ00A           NO SOURCE DEVICE
     2212   01 007EA    52922FF9              LH,9     CT:OPS,1          IS IT STILL SELECTED
     2213   01 007EB    681007F2              BCR,1    PHAZ00A           NO-BETTER SKIP IT
     2214   01 007EC    52823003              LH,8     CT:CS,1
     2215   01 007ED    21800040 A            CI,8     XWRAP             FINISHED WRITING SOURCE
     2216   01 007EE    68400642              BCR,4    RTH1A             NO
     2217   01 007EF    4B801A12              AND,8    NKEYN
     2218   01 007F0    49801A0F              OR,8     SORS              TURN ON SOURCE IND.
     2219   01 007F1    55823003              STH,8    CT:CS,1

     2221   01 007F2    32102BEF     PHAZ00A  LW,1     COUNT
     2222   01 007F3    6AF00853     PHAZ01   BAL,15   GETRAD            IS IT A RAD
     2223   01 007F4    68000806              B        PHAZ02            NO

     2225   01 007F5    52823003              LH,8     CT:CS,1
     2226   01 007F6    21802000 A            CI,8     XSORS             IS IT SOURCE
     2227   01 007F7    69400806              BCS,4    PHAZ02            YES
     2228   01 007F8    21901000 A            CI,9     XKEYED            IS IT KEYED
     2229   01 007F9    69400806              BCS,4    PHAZ02            YES
     2230   01 007FA    21300003 A            CI,3     ETXEP4            4 BYTE RESTRICTION
     2231   01 007FB    69300802              BCS,3    PHAZ01A           NO
     2232   01 007FC    32C02BF8              LW,12    STTBYT
     2233   01 007FD    49C02BFA              OR,12    BLKSIZ
     2234   01 007FE    21C00003 A            CI,12    3                 IS STTBYT AND BLKSIZ ON WORD BOUNDRY
     2235   01 007FF    68400802              BCR,4    PHAZ01A           NO
     2236   01 00800    49801A21              OR,8     WORDRES
     2237   01 00801    68000805              B        PHAZ01B

     2239   01 00802    49801A11     PHAZ01A  OR,8     KEYN              TURN ON KEY INDICATION
     2240   01 00803    49801A19              OR,8     NOBUF             TURN ON NEEDS BUFFER IND.
     2241   01 00804    49801A28              OR,8     INITAL            SET INITIAL START UP

     2243   01 00805    55823003     PHAZ01B  STH,8    CT:CS,1
     2244   01 00806    641007F3     PHAZ02   BDR,1    PHAZ01

     2246   01 00807    22000000 A            LI,0     0                 SET TO CLEAR
     2247   01 00808    68000833              B        PHAZINC            PASSTIME FOR PHASE 1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   45
A    2249   01 00809    32102BEF     PHAZ1    LW,1     COUNT
     2250   01 0080A    33102EDD              MTW,1    PASSTIME          UPDATE PASSTIME

     2252   01 0080B    52823003     PHAZ11   LH,8     CT:CS,1           IS IT BUSY
     2253   01 0080C    69100811              BCS,1    PHAZ11A           YES
     2254   01 0080D    52922FF9              LH,9     CT:OPS,1          IS IT SELECTED
     2255   01 0080E    68100816              BCR,1    PHAZ12            NO-IGNORE HIM
     2256   01 0080F    218000A4 A            CI,8     XNOBUF+XERROR+XWAIT WAITING FOR SERVICES
     2257   01 00810    68400816              BCR,4    PHAZ12            NO-IGNORE HIM

     2259   01 00811    72323071     PHAZ11A  LB,3     CT:ETX,1
     2260   01 00812    2130000D A            CI,3     ETXRADS           IS IT A RAD
     2261   01 00813    69200816              BCS,2    PHAZ12            NO
     2262   01 00814    21800040 A            CI,8     XWRAP             IS IT DONE
     2263   01 00815    68400642              BCR,4    RTH1A             NO

     2265   01 00816    6410080B     PHAZ12   BDR,1    PHAZ11

     2267   01 00817    32102BEF              LW,1     COUNT
     2268   01 00818    52922FF9     PHAZ13   LH,9     CT:OPS,1
     2269   01 00819    21908000 A            CI,9     XCSEL             SELECTED
     2270   01 0081A    68400826              BCR,4    PHAZ15            NO
     2271   01 0081B    52823003              LH,8     CT:CS,1
     2272   01 0081C    21802000 A            CI,8     XSORS             SOURCE
     2273   01 0081D    69400826              BCS,4    PHAZ15            YES-IGNORE
     2274   01 0081E    21801000 A            CI,8     XKEYN             IS HE KEYING
     2275   01 0081F    68400822              BCR,4    PHAZ14            NO
     2276   01 00820    4B801A12              AND,8    NKEYN             TURN OFF KEYING IND.
     2277   01 00821    68000825              B        PHAZ14A

     2279   01 00822    49801A28     PHAZ14   OR,8     INITAL            SET INITIAL START UP
     2280   01 00823    49801A19              OR,8     NOBUF             SET NEEDS A BUFFER
     2281   01 00824    49801A16              OR,8     WRAP              SET KEYED IND.

     2283   01 00825    55823003     PHAZ14A  STH,8    CT:CS,1

     2285   01 00826    64100818     PHAZ15   BDR,1    PHAZ13

     2287   01 00827    32002EDD              LW,0     PASSTIME          SAVE PHASE 1 TIME
     2288   01 00828    2100071A A            CI,0     (2*60*1000)/66     AND GUARANTEE AT LEAST
     2289   01 00829    6810082B              BGE      %+2                 TWO FULL MINUTES
     2290   01 0082A    2200071A A            LI,0     (2*60*1000)/66       FOR PHASE 2
     2291   01 0082B    35002BE6              STW,0    PASSET                (1 MINUTE FOR PHASE 3)
     2292   01 0082C    68000833              B        PHAZINC

     2294         01 0082D           PHAZ2    EQU      %
     2295   01 0082D    33002ED0              MTW,0    SYSMODE           FREZ MODE
     2296   01 0082E    69100639              BLZ      RTH1              YES HOLD PASS TIMER

     2298   01 0082F    33F02EDD              MTW,-1   PASSTIME          TIME TO CHANGE PHASE
     2299   01 00830    69200639              BGZ      RTH1              NO

     2301   01 00831    32002BE6              LW,0     PASSET            SET PHASE 3 TIME
     2302   01 00832    2500007F A            SLS,0    -1                ONE HALF PHASE 2 TIME

     2304   01 00833    35002EDD     PHAZINC  STW,0    PASSTIME

     2306   01 00834    73102ED9              MTB,1    PHASES            INCREMENT PHASES
     2307   01 00835    72102ED9              LB,1     PHASES
     2308   01 00836    21100003 A            CI,1     3                 EXCEEDED PHASE 3
        1*  01 00837    69200842              BG       PASSEND            CHECK FOR SINGLE-PASS MODE     *H00

     2311   01 00838    72202ED8              LB,2     PHASER            PHASE SELECTOR
     2312   01 00839    31221AD0              CW,2     BIT+24,1          IS PHASE SELECTED
     2313   01 0083A    68400834              BAZ      PHAZINC+1         SKIP IF NOT

     2315   01 0083B    72402ED7              LB,4     PASSES
     2316   01 0083C    72502ED9              LB,5     PHASES
     2317   01 0083D    32602EE2              LW,6     SYSERRSP
     2318   01 0083E    22108010 A            LI,1     X'8010'
     2319   01 0083F    22211010 A            LI,2     X'11010'
     2320   01 00840    6AF00255              BAL,15   AUDITOR           NEW PHASE MESSAGE(1,2,3)
     2321   01 00841    6800063F              B        RTH1AA

        2*  01 00842    72002ED0     PASSEND  LB,0     SYSMODE           CHECK FOR SINGLE-PASS MODE      *H00
        3*  01 00843    21000001 A            CI,0     1                  AND CONTINUE IF NOT            *H00
        4*  01 00844    6840068A              BAZ      SHUTDN                                            *H00

        6*  01 00845    6AF00E64              BAL,15   SETNBUSY          STOP ACTIVE I/O                 *H01

        8*  01 00846    22207D84              LI,2     BA(PASSTRAP)                                      *H01
        9*  01 00847    32301AFF              LW,3     HLTPRMPT          ENTER CCP IN                    *H00
       10*  01 00848    6AF012FF              BAL,15   CCP                HALT CONDITION                 *H00

       12*  01 00849    6800068B              B        SHUTDN0           RETURN ON 'RUN'                 *H00
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   46
A    2323                            *        COUNTS NUMBER OF SELECTED DEVICES

     2325   01 0084A    22E00002 A   GENCT    LI,14    2
     2326   01 0084B    32102BEF              LW,1     COUNT
     2327   01 0084C    52922FF9     GENCT1   LH,9     CT:OPS,1
     2328   01 0084D    21908000 A            CI,9     XCSEL             SELECTED
     2329   01 0084E    68400850              BCR,4    %+2               NO-DONT COUNT IT
     2330   01 0084F    20E00001 A            AI,14    1
     2331   01 00850    6410084C              BDR,1    GENCT1
     2332   01 00851    35E02BE3              STW,14   CTSIZE
     2333   01 00852    E800000F A            B        *15

     2335                            *        LOOKS FOR RADS AND MAG TAPES

     2337   01 00853    52922FF9     GETRAD   LH,9     CT:OPS,1
     2338   01 00854    21908000 A            CI,9     XCSEL             SELECTED
     2339   01 00855    E840000F A            BCR,4    *15               NO-NOT A CANDIDATE
     2340   01 00856    72323071     GETRAD1  LB,3     CT:ETX,1
     2341   01 00857    21300010 A            CI,3     ETXTAPES          IS IT A RAD OR MAG TAPE
     2342   01 00858    E920000F A            BCS,2    *15               NO
     2343   01 00859    20F00001 A            AI,15    1
     2344   01 0085A    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   47
A    2346                            *        I/O INTERRUPT

     2348                                     BOUND    8
     2349   01 0085C    00000000 A   INT5C    DATA     0
     2350   01 0085D    00000000 A            DATA     0
     2351   01 0085E    00000860              DATA     %+2
     2352   01 0085F    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     2353   01 00860    0F000200              XPSD,0   PUSHS
     2354   01 00861    0200005C A            NOP      X'5C'

     2356   01 00862    22100000 A            LI,1     0
     2357   01 00863    22201FFF A            LI,2     X'1FFF'           NON-EXISTANT ADDRESS
     2358   01 00864    22401FFF A            LI,4     X'1FFF'
     2359   01 00865    35400020 A            STW,4    X'20'             SET LOC 20=0
     2360   01 00866    33102C18              MTW,1    AIOCOUNT          INC AIO COUNTER

     2362   01 00867    6E400000 A            AIO,4    0
     2363   01 00868    35402BF0              STW,4    AIOR              SAVE AIO RESPONSE
     2364   01 00869    698008F0              BCS,8    AIO4              NO ADDRESS RECOGNITION

     2366   01 0086A    32301ABD              LW,3     BIT+5             (DEFAULTS TO BOT FOR TAPES)
     2367   01 0086B    4E380000 A            TDV,3    0,4
     2368   01 0086C    35302BF1              STW,3    TDVRU1

     2370   01 0086D    23200000 A            MI,2     0                 (CLEAR DEFAULT TIO STATUS)
     2371   01 0086E    4D280000 A            TIO,2    0,4
     2372   01 0086F    15202BF2              STD,2    TIOR

     2374   01 00870    31401B0F              CW,4     YA048             ANY AIO ERRORS
     2375   01 00871    68400873              BCR,4    AIO1              NO DEVICE ERRORS
     2376   01 00872    6AF00E85              BAL,15   POLL              POLL THE CONTROLLERS

     2378   01 00873    32200004 A   AIO1     LW,2     4                 SAVE AIO ADDRESS
     2379   01 00874    21400080 A            CI,4     X'80'             MULTI-DEVICE CONTROLLER
     2380   01 00875    68400877              BCR,4    %+2               NO
     2381   01 00876    4B401B21              AND,4    X1FF0             GET CONTROLLER ADDRESS
     2382   01 00877    4B401AEB              AND,4    NOBITS+17

     2384   01 00878    22100001 A            LI,1     1
     2385   01 00879    51423062     AIO2     CH,4     CT:CA,1           FIND THE CONTROLLER
     2386   01 0087A    693008DC              BNE      AIO3              NOT YET

     2388   01 0087B    72323071     AIO2A    LB,3     CT:ETX,1
     2389   01 0087C    52823003              LH,8     CT:CS,1
     2390   01 0087D    52922FF9              LH,9     CT:OPS,1
     2391   01 0087E    32462E1C              LW,4     ET:HNDLR,3
     2392   01 0087F    22F008D7              LI,15    AIOXIT            SET EXIT ADDRESS
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   48
A    2394   01 00880    52000002 A            LH,0     2                 FETCH AIO AND ISB INFORMATION
     2395   01 00881    21000018 A            CI,0     X'0018'             LOOK FOR CE OR UE
     2396   01 00882    6940089C              BANZ     AIO9                  PRESENT: CONTINUE

        2*  01 00883    214009D7              CI,4     RDHAN             ABSENT: LOOK FOR DISK           *H00
        3*  01 00884    68300896              BE       AIO2B                                             *H00

     2398   01 00885    21400B8C              CI,4     MTHAN             ABSENT: LOOK FOR TAPE
     2399   01 00886    69300894              BNE      AIO11               NO - IMPOSSIBLE INTERRUPT

     2401   01 00887    21004000 A            CI,0     X'4000'           LOOK FOR DEVICE-END
     2402   01 00888    68400892              BAZ      AIO8                NO: IMPOSSIBLE INTERRUPT

     2404   01 00889    72002BF1              LB,0     TDVRU1            FETCH TDV STATUS INFORMATION
     2405   01 0088A    21000001 A            CI,0     X'01'               LOOK FOR REWINDING BIT
     2406   01 0088B    69400892              BANZ     AIO8                  YES: IMPOSSIBLE INTERRUPT

     2408   01 0088C    72002BF3              LB,0     TIORU1            FETCH TIO STATUS INFORMATION
     2409   01 0088D    21000060 A            CI,0     X'60'              LOOK FOR DEVICE
     2410   01 0088E    684008AB              BAZ      AIO6                IN BUSY STATE, NO: NORMAL
     2411   01 0088F    68000892              B        AIO8                  YES: IMPOSSIBLE

     2413         01 00890           AIO10    EQU      %
     2414   01 00890    21400B8C              CI,4     MTHAN             LOOK FOR TAPE
     2415   01 00891    69300894              BNE      AIO11               NO: DO NOT FETCH MAP

     2417         01 00892           AIO8     EQU      %                 IMPOSSIBLE INTERRUPT ON TAPE
     2418   01 00892    6AF00D1A              BAL,15   GETMAP            LOAD MAP IN 4/5
     2419   01 00893    6AF00D3E              BAL,15   PUTMAP            SAVE MAP IN EXTENDED SENSE

     2421         01 00894           AIO11    EQU      %
     2422   01 00894    22025C30 A            LI,0     X'25C30'          IMPOSSIBLE INTERRUPT - SEV 2
     2423   01 00895    680008F1              B        AIO4+1

        2*  01 00896    21000800 A   AIO2B    CI,0     X'0800'           DISK: LOOK FOR ON-SECTOR        *H00
        3*  01 00897    68400894              BAZ      AIO11              ABSENT - IMPOSSIBLE            *H00

        5*  01 00898    21300007 A            CI,3     ETXDPS            LOOK FOR RAD                    *H00
        6*  01 00899    69100894              BL       AIO11              ON-SECTOR IMPOSSIBLE           *H00

        8*  01 0089A    21900200 A            CI,9     XMODE2            LOOK FOR SEEK-OVERLAP           *H00
        9*  01 0089B    69400894              BANZ     AIO11              SUPPRESSION (IMPOSSIBLE)       *H00

     2425         01 0089C           AIO9     EQU      %
     2426   01 0089C    21908000 A            CI,9     XCSEL             LOOK FOR CONTROLLER SELECT
     2427   01 0089D    68400890              BAZ      AIO10               NOT PRESENT: IMPOSSIBLE

     2429   01 0089E    32000002 A            LW,0     2                 GET TRUE DEVICE ADDRESS
     2430   01 0089F    4B001AEB              AND,0    NOBITS+17
     2431   01 008A0    51022FE5              CH,0     CT:DA,1           AND CHECK FOR DEVICE ACTIVE
     2432   01 008A1    683008A7              BE       AIO9A              SKIP IF MATCH

     2434   01 008A2    21300021 A            CI,3     ETXMM             SKIP IF DEVICE NOT MM
     2435   01 008A3    69300890              BNE      AIO10              (IMPOSSIBLE INTERRUPT)

     2437   01 008A4    200FFFFF A            AI,0     -1                COMPUTE EVEN ADDRESS
     2438   01 008A5    51022FE5              CH,0     CT:DA,1            (EXPECT CE ON EVEN ONLY)
     2439   01 008A6    69300890              BNE      AIO10               IMPOSSIBLE IF NO MATCH

     2441   01 008A7    72002BF3     AIO9A    LB,0     TIORU1            FETCH TIO STATUS BYTE
        1*  01 008A8    21000026 A            CI,0     X'26'             LOOK FOR CONTROLLER/DEVICE      *H01
     2443   01 008A9    69400890              BANZ     AIO10              BUSY, PRESENT: IMPOSSIBLE
     2444   01 008AA    680008AB              B        AIO6              ELSE CONTINUE
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   49
A    2446         01 008AB           AIO6     EQU      %
     2447   01 008AB    31201AB8              CW,2     BIT               SKIP IF NO
     2448   01 008AC    684008CA              BAZ      AIO0               DATA OVERRUN

     2450   01 008AD    22500002 A            LI,5     2                 EXTRACT IOP
     2451   01 008AE    726A0002 A            LB,6     2,5                ADDRESS

     2453   01 008AF    331C313A              MTW,1    IOPRE,6           UPDATE RATE-ERROR COUNT

     2455   01 008B0    725C312A              LB,5     IOPR,6            SKIP IF IOP NOT
     2456   01 008B1    683008CA              BEZ      AIO0               RESTRICTED FROM OVERRUN

     2458   01 008B2    21900080 A            CI,9     XWAIT             SKIP IF CONTROLLER
     2459   01 008B3    684008CA              BAZ      AIO0               NOT RESTRICTED FROM OVERRUN

     2461   01 008B4    72002ED9              LB,0     PHASES            IF PHASE 3 - SIMPLY
     2462   01 008B5    21000003 A            CI,0     3                  RESTART WITHOUT SIGNALLING
     2463   01 008B6    68380001 A            BCR,3    DEVLOOP,4           OVERRUN ERRORS (WHY???)

     2465   01 008B7    725C312E              LB,5     IOPW,6            LAST WAITING CONTROLLER

     2467   01 008B8    725A3076     AIO7     LB,5     CT:REL,5          POINT TO NEXT CONTROLLER
     2468   01 008B9    52EA3003              LH,14    CT:CS,5            ON THE SAME IOP
     2469   01 008BA    52DA2FF9              LH,13    CT:OPS,5
     2470   01 008BB    21D00080 A            CI,13    XWAIT             SKIP IF NO RATE-ERROR
     2471   01 008BC    684008B8              BCR,4    AIO7               RESTRICTION APPLIES

     2473   01 008BD    49E01A17              OR,14    WAIT              SET RATE-ERROR WAIT
     2474   01 008BE    55EA3003              STH,14   CT:CS,5

     2476   01 008BF    755C312E              STB,5    IOPW,6            NEW LAST WAITING CONTROLLER

     2478   01 008C0    32E02BFA              LW,14    BLKSIZ
     2479   01 008C1    25E00074 A            SLS,14   -12               SHIFT RIGHT 12
     2480   01 008C2    20E00004 A            AI,14    4                 SET NR OF CLOCK TICKS TO WAIT

     2482   01 008C3    6AF00F49              BAL,15   RANDOM            GEN RANDOM WAIT VALUE
     2483   01 008C4    4B701AF5              AND,7    NOBITS+27         FORCE 0 TO 15
     2484   01 008C5    30E00007 A            AW,14    7                 APPEND RANDOM VALUE

     2486   01 008C6    22F008D7              LI,15    AIOXIT            RESTORE EXIT ADDRESS
     2487   01 008C7    75EA30A8              STB,14   CT:WAIT,5          AND UPDATE WAIT TIMER

     2489   01 008C8    52823003              LH,8     CT:CS,1           ATTEMPT RESTART OF
     2490   01 008C9    68080001 A            B        DEVLOOP,4          THIS CONTROLLER
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   50
A    2492         01 008CA           AIO0     EQU      %
     2493   01 008CA    21904000 A            CI,9     XLOOP             IS DEVICE FROZEN
     2494   01 008CB    69480001 A            BCS,4    DEVLOOP,4         YES
     2495   01 008CC    31201B0F              CW,2     YA048             ANY AIO ERRORS
     2496   01 008CD    69480006 A            BCS,4    DEVERROR,4        YES
     2497   01 008CE    21908000 A            CI,9     XCSEL             SELECTED
     2498   01 008CF    69480007 A            BCS,4    DEVDRIVE,4        YES-NORMAL AIO ENTRY
     2499   01 008D0    21400B8C              CI,4     MTHAN             IS IT A MAG TAPE
     2500   01 008D1    693008D4              BCS,3    AIO5              NO
     2501   01 008D2    31201AB9              CW,2     BIT+1             DEVICE END INTERRUPT
     2502   01 008D3    69480007 A            BCS,4    DEVDRIVE,4        YES-ENTER HANDLER

     2504   01 008D4    6AF00EBE     AIO5     BAL,15   PUT               PUT THE BUFFER BACK
     2505   01 008D5    02000000 A            NOP
     2506   01 008D6    4F040000 A            HIO,0    0,2               HALT DESELECTED DEVICE

     2508   01 008D7    33002C5C     AIOXIT   MTW,0    COUNT4
     2509   01 008D8    6910065B              BCS,1    RTCXIT2           ITS OK

     2511   01 008D9    32301AFC              LW,3     RUNPRMPT
     2512   01 008DA    6AF012FF              BAL,15   CCP               CHECK FOR ANY INPUT
     2513   01 008DB    6800065B              B        RTCXIT2

     2515   01 008DC    20100001 A   AIO3     AI,1     1                 INC CTX
     2516   01 008DD    31102BEF              CW,1     COUNT             DONE YET
     2517   01 008DE    68200879              BLE      AIO2              KEEP LOOKING FOR CONTRLR

     2519   01 008DF    21400080 A            CI,4     X'80'             SKIP IF MULTI-DEVICE
     2520   01 008E0    694008EE              BANZ     AIO3A              CONTROLLER (CAN'T BE MM)

     2522   01 008E1    21400001 A            CI,4     X'01'             SKIP IF CONTROLLER ADDRESS
     2523   01 008E2    684008EE              BAZ      AIO3A              EVEN (SHOULD BE THERE)

     2525   01 008E3    204FFFFF A            AI,4     -X'01'            SET EVEN CONTROLLER ADDRESS

     2527   01 008E4    22100001 A            LI,1     1
     2528   01 008E5    51423062     AIO3C    CH,4     CT:CA,1           SCAN CONTROL TABLE, SKIP ON
     2529   01 008E6    683008EB              BE       AIO3B              MATCH WITH AN ASSUMED MM
     2530   01 008E7    20100001 A            AI,1     1                   ADVANCE TO NEXT CONTROLLER
     2531   01 008E8    31102BEF              CW,1     COUNT                STOP AT END OF TABLE
     2532   01 008E9    682008E5              BLE      AIO3C
     2533   01 008EA    680008EE              B        AIO3A

     2535   01 008EB    72323071     AIO3B    LB,3     CT:ETX,1          IS THIS CONTROLLER
     2536   01 008EC    21300021 A            CI,3     ETXMM              CONFIGURED AS MM
     2537   01 008ED    6830087B              BE       AIO2A               IF SO, CONSIDER IT FOUND

        1*  01 008EE    22025C10 A   AIO3A    LI,0     X'25C10'          UNEXPECTED I/O INTERRUPT        *H00
        2*  01 008EF    680008F4              B        AIO4A                                             *H00

        4*  01 008F0    22005C70 A   AIO4     LI,0     X'05C70'          UNRECOGNIZED I/O INTERRUPT      *H00
        5*  01 008F1    33102C19              MTW,1    AIOUNEXP           MAINTAIN COUNT OF THESE        *H00

        7*  01 008F2    53002EAC              MTH,0    LOGLEV            ONLY LOG THIS EVENT             *H01
        8*  01 008F3    693008D7              BNEZ     AIOXIT             IF L-PARAMETER.EQ.0            *H01

       10*  01 008F4    32400020 A   AIO4A    LW,4     X'20'             GET ADDRESS OF DEVICE           *H00
     2544   01 008F5    6AF00E50              BAL,15   SIOFAIL+1
     2545   01 008F6    680008D7              B        AIOXIT            EXIT I/O INTERRUPT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   51
A    2547                            *        CARD READER HANDLER

     2549   01 008F7    6800097A     CRHAN    B        PRRSTRT
     2550   01 008F8    6800097A              B        PRRSTRT
     2551   01 008F9    6800097A              B        PRRSTRT
     2552   01 008FA    680009A4              B        PRRETRY
     2553   01 008FB    68000902              B        CRNOBUF
     2554   01 008FC    68000906              B        CRSTART
     2555   01 008FD    680009CD              B        PRERROR
     2556   01 008FE    35F02BCF     CRDRIVE  STW,15   RETURNC
     2557   01 008FF    6AF00EBE              BAL,15   PUT               PUT BUFFER BACK
     2558   01 00900    02000000 A            NOP
     2559   01 00901    68000903              B        CRNOBUF+1

     2561   01 00902    35F02BCF     CRNOBUF  STW,15   RETURNC
     2562   01 00903    6AF00EE5              BAL,15   GETBUF            GET A BUFFER
     2563   01 00904    68000A94              B        RDXIT             NONE AVAILABLE
     2564   01 00905    6800095A              B        PRNOBUF1          PROCCESS COMMAND PAIR

     2566   01 00906    35F02BCF     CRSTART  STW,15   RETURNC
     2567   01 00907    22A0000A A            LI,10    X'A'              READ BINARY
     2568   01 00908    75A2305D              STB,10   CT:ORD,1
     2569   01 00909    32B02BFB              LW,11    BUFSIZ
     2570   01 0090A    21B00078 A            CI,11    120               BUFSIZ < 120 BYTES
     2571   01 0090B    6910090D              BCS,1    %+2               YES-US BUFSIZ
     2572   01 0090C    22B00078 A            LI,11    120               120 BYTES
     2573   01 0090D    48B01B13              EOR,11   Y1E
     2574   01 0090E    32023035              LW,0     CT:COM,1
     2575   01 0090F    95A00000 A            STD,10   *0                SET UP COMMAND PAIR
     2576   01 00910    68000903              B        CRNOBUF+1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   52
A    2578                            *        CARD PUNCH HANDLER

     2580   01 00911    6800097A     CPHAN    B        PRRSTRT
     2581   01 00912    6800097A              B        PRRSTRT
     2582   01 00913    6800097A              B        PRRSTRT
     2583   01 00914    680009A4              B        PRRETRY
     2584   01 00915    6800091C              B        CPNOBUF
     2585   01 00916    6800092A              B        CPSTART
     2586   01 00917    680009CD              B        PRERROR
     2587   01 00918    35F02BCF     CPDRIVE  STW,15   RETURNC
     2588   01 00919    6AF00EBE              BAL,15   PUT
     2589   01 0091A    02000000 A            NOP
     2590   01 0091B    6800091D              B        CPNOBUF+1

     2592   01 0091C    35F02BCF     CPNOBUF  STW,15   RETURNC
     2593   01 0091D    6AF00EE5              BAL,15   GETBUF
     2594   01 0091E    68000A94              B        RDXIT
     2595   01 0091F    2060007C A            AI,6     124               POINT TO END OF BUFFER
     2596   01 00920    31602ECF              CW,6     ENDCORE           IS IT TOO BIG
     2597   01 00921    68100A38              BCR,1    RDERROR1          YES-PUT IT BACK-GET ANOTHER
     2598   01 00922    206FFF84 A            AI,6     -124              CLEAN UP BUFAD

     2600   01 00923    72502C17              LB,5     PARSHSIZ          GET CARD BUFFER SIZE
     2601   01 00924    715C0001 A            CB,5     1,6                COMPARE WITH CS BYTE
     2602   01 00925    69200A38              BG       RDERROR1            IF CS TOO SMALL, EXIT ERROR

     2604   01 00926    730C0001 A            MTB,0    1,6               IF CS NOT YET SET
     2605   01 00927    6930095A              BNEZ     PRNOBUF1           DO IT NOW
     2606   01 00928    755C0001 A            STB,5    1,6
     2607   01 00929    6800095A              B        PRNOBUF1

     2609   01 0092A    35F02BCF     CPSTART  STW,15   RETURNC
     2610   01 0092B    22A00009 A            LI,10    9                 BUNCH BINARY
     2611   01 0092C    75A2305D              STB,10   CT:ORD,1
     2612   01 0092D    22B00078 A            LI,11    120
     2613   01 0092E    48B01B12              EOR,11   Y2E
     2614   01 0092F    2130001A A            CI,3     ETX7160           IS IT A 7160
     2615   01 00930    68300932              BCR,3    %+2               YES
     2616   01 00931    38B01ABB              SW,11    BIT+3             RESET CC AND SET ICE
     2617   01 00932    32C23035              LW,12    CT:COM,1
     2618   01 00933    25C0007F A            SLS,12   -1                FORM DOUBLE WORD ADD.
     2619   01 00934    48C01ABC              EOR,12   BIT+4             FORM TRANSFER IN CHAN. COM
     2620   01 00935    22D00000 A            LI,13    0
     2621   01 00936    12E0093C              LD,14    CPSTOP
     2622   01 00937    32023035              LW,0     CT:COM,1
     2623   01 00938    02200060 A            LCI      6
     2624   01 00939    ABA00000 A            STM,10   *0                FORM COMMAND STRING
     2625   01 0093A    6800091D              B        CPNOBUF+1

     2627                                     BOUND    8
     2628   01 0093C    00000000 A   CPSTOP   DATA     0
     2629   01 0093D    1E000000 A            DATA     X'1E000000'
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   53
A    2631                            *        LINE PRINTER HANDLER

     2633   01 0093E    6800097A     PRHAN    B        PRRSTRT
     2634   01 0093F    6800097A              B        PRRSTRT
     2635   01 00940    6800097A              B        PRRSTRT
     2636   01 00941    680009A4              B        PRRETRY
     2637   01 00942    68000953              B        PRNOBUF
     2638   01 00943    680009AE              B        PRSTART
     2639   01 00944    680009CD              B        PRERROR

     2641   01 00945    35F02BCF     PRDRIVE  STW,15   RETURNC

     2643   01 00946    52F62DF4              LH,15    ET:MOD,3          NO TDV CHECK IF PR
     2644   01 00947    21F07450 A            CI,15    X'7450'            IS NOT 7450
     2645   01 00948    6930094C              BNE      PRDRIVE0

     2647   01 00949    32D02BF1              LW,13    TDVRU1
     2648   01 0094A    31D01ABE              CW,13    BIT+6             IS IT A 7450 HALF DONE
     2649   01 0094B    69400A72              BCS,4    RDRSTRT+1         YES

     2651         01 0094C           PRDRIVE0 EQU      %
     2652   01 0094C    21F07446 A            CI,15    X'7446'           LOOK FOR 7446 (BENSON)
     2653   01 0094D    69300950              BNE      PRDRIVE1

     2655   01 0094E    6AF00ECC              BAL,15   FORCEPUT          MARK ALL 7446 BUFFERS
     2656   01 0094F    68000954              B        PRNOBUF+1          BAD (CHARACTER SCANNING)

     2658         01 00950           PRDRIVE1 EQU      %
     2659   01 00950    6AF00EBE              BAL,15   PUT
     2660   01 00951    02000000 A            NOP

     2664   01 00952    68000954              B        %+2

     2666   01 00953    35F02BCF     PRNOBUF  STW,15   RETURNC

     2668   01 00954    6AF00EE5              BAL,15   GETBUF
     2669   01 00955    68000A94              B        RDXIT             NO BUFFER AVAILABLE

     2671   01 00956    32502BFB              LW,5     BUFSIZ
     2672   01 00957    2150000C A            CI,5     XHEADER           IS THERE A FULL HEADING
     2673   01 00958    6910095A              BCS,1    %+2               NO
     2674   01 00959    20600008 A            AI,6     XHEADER-4

     2676   01 0095A    22500000 A   PRNOBUF1 LI,5     0
     2677   01 0095B    32023035              LW,0     CT:COM,1
     2678   01 0095C    20600004 A            AI,6     4                 START XFER AFTER POST HEADER
     2679   01 0095D    75A00006 A            STB,10   6                 COMBINE ORDER AND BUFFER ADD
     2680   01 0095E    B56A0000 A            STW,6    *0,5              FORM COMMAND 3

     2682   01 0095F    52F62DF4              LH,15    ET:MOD,3          SKIP IF NOT 7446 (BENSON)
     2683   01 00960    21F07446 A            CI,15    X'7446'
     2684   01 00961    69300973              BNE      PRNOBUF3
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   54
A    2686   01 00962    92600000 A            LD,6     *0                GET IOCD
     2687   01 00963    4B601AE1              AND,6    NOBITS+7           ISOLATE BA(BUFFER)
     2688   01 00964    4B701AE9              AND,7    NOBITS+15           AND BYTE COUNT OF BUFFER

     2690   01 00965    72FC0000 A   PRNOBUF2 LB,15    0,6               GET A BYTE
     2691   01 00966    4BF01AF2              AND,15   NOBITS+24          CLEAR ASCII PARITY BIT
     2692   01 00967    21F00000 A            CI,15    X'00'             LOOK FOR NOP-1
     2693   01 00968    6830096F              BE       PRNOBUF4
     2694   01 00969    21F0000D A            CI,15    X'0D'             LOOK FOR NOP-2
     2695   01 0096A    6830096F              BE       PRNOBUF4
     2696   01 0096B    21F0000A A            CI,15    X'0A'             LOOK FOR LF
     2697   01 0096C    6830096F              BE       PRNOBUF4
     2698   01 0096D    21F0000C A            CI,15    X'0C'             LOOK FOR FF
     2699   01 0096E    69300971              BNE      PRNOBUF5

     2701   01 0096F    22F000FF A   PRNOBUF4 LI,15    X'FF'             CHANGE LF AND FF TO X'FF'
     2702   01 00970    75FC0000 A            STB,15   0,6

     2704   01 00971    20600001 A   PRNOBUF5 AI,6     1
     2705   01 00972    64700965              BDR,7    PRNOBUF2

     2707         01 00973           PRNOBUF3 EQU      %
     2708   01 00973    21900100 A            CI,9     XBURST            SKIP IF THIS
     2709   01 00974    6840097C              BCR,4    PRSIO              IS NOT A BURST DEVICE

     2711   01 00975    33002BEA              MTW,0    BTIME             SKIP IF BURST
     2712   01 00976    6810097C              BCR,1    PRSIO              WINDOW IS OPEN

     2714   01 00977    49801A1B              OR,8     BTOUT             SET BURST WAIT
     2715   01 00978    4B801A0E              AND,8    NBUSY              FLAG AND EXIT
     2716   01 00979    68000A94              B        RDXIT               (CONTROLLER IDLE)
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   55
A    2718   01 0097A    35F02BCF     PRRSTRT  STW,15   RETURNC
     2719   01 0097B    32023035              LW,0     CT:COM,1

        1*  01 0097C    22A00050 A   PRSIO    LI,10    X'50'             SET I/O TIMEOUT                 *H02
        2*  01 0097D    55A230B2              STH,10   CT:FT,1            LONG ENOUGH FOR STC            *H02

     2723   01 0097E    2500007F A            SLS,0    -1                COMPUTE DA(CCW)

     2725   01 0097F    21800080 A            CI,8     XWAIT             EXIT IF DISCOVERED
     2726   01 00980    69400A99              BCS,4    RDXIT1             IN RATE-ERROR WAIT

        1*  01 00981    6AF00D67              BAL,15   MFIMON            PE INJECTION                    *H01

     2730   01 00982    52F62DF4              LH,15    ET:MOD,3          SKIP IF PR IS NOT 7446
     2731   01 00983    21F07446 A            CI,15    X'7446'
     2732   01 00984    69300988              BNE      PRSIO0

     2734   01 00985    21900200 A            CI,9     XMODE2            SKIP IF TRANSMISSION
     2735   01 00986    69400988              BANZ     PRSIO0             OF PREFIX IS SUPPRESSED

     2737   01 00987    20000002 A            AI,0     2                 ELSE POINT TO PROPER CCW

     2739         01 00988           PRSIO0   EQU      %
     2740   01 00988    4C640000 A            SIO,6    0,2               DEVICE ADDRESS IN 2
     2741   01 00989    68C00999              BCR,12   PRSIO5            SIO ACCEPTED
     2742   01 0098A    69800995              BCS,8    PRSIO4            NO DEVICE RECOGNITION

     2744   01 0098B    31701ABB              CW,7     BIT+3             MANUAL
     2745   01 0098C    6840099B              BCR,4    PRHAN8            YES
     2746   01 0098D    21800008 A            CI,8     XMANUL            DEVICE PREVIOUSLY MANUAL
     2747   01 0098E    69400A91              BCS,4    RDXIT2            YES-RESTORE TO BUSY STATE
     2748   01 0098F    31701AB9              CW,7     BIT+1             BUSY
     2749   01 00990    69400993              BCS,4    PRSIO3            YES-SIO FAILURE
     2750   01 00991    31701ABA              CW,7     BIT+2             OPERATIONAL
     2751   01 00992    694009AA              BCS,4    PRHAN9            NO

     2753   01 00993    6AF00E4F     PRSIO3   BAL,15   SIOFAIL
     2754   01 00994    68000A99              B        RDXIT1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   56
A    2756   01 00995    32D00002 A   PRSIO4   LW,13    2
     2757   01 00996    07D01F00              CAL4,13  NODEVREQ          NO DEV REC
     2758   01 00997    02000000 A            NOP
        1*  01 00998    68000A2C              B        RDHAN3A           DESELECT DEVICE                 *H01

     2761   01 00999    31701ABB     PRSIO5   CW,7     BIT+3             IS IT MANUAL
     2762   01 0099A    69400A91              BCS,4    RDXIT2            NO
     2763   01 0099B    21800008 A   PRHAN8   CI,8     XMANUL            DEVICE PREVIOUSLY MANUAL
     2764   01 0099C    694009A0              BCS,4    PRHAN8A           YES
     2765   01 0099D    32D00002 A            LW,13    2
     2766   01 0099E    07D01F0B              CAL4,13  MANLMSG           DEVICE IN MANUAL
     2767   01 0099F    02000000 A            NOP      0
     2768   01 009A0    49801A24     PRHAN8A  OR,8     MANUL             SET MANUAL BIT
     2769   01 009A1    4B801A0E              AND,8    NBUSY             SET NOT BUSY
     2770   01 009A2    32D00002 A            LW,13    2
     2771   01 009A3    68000A94              B        RDXIT

     2773   01 009A4    35F02BCF     PRRETRY  STW,15   RETURNC
     2774   01 009A5    4D740000 A            TIO,7    0,2
     2775   01 009A6    31701ABB              CW,7     BIT+3             IS IT MANUAL
     2776   01 009A7    6840099B              BCR,4    PRHAN8            YES
     2777   01 009A8    6AF00E4D              BAL,15   TIMEOUT           SOFTWARE TIME OUT
     2778   01 009A9    68000A99              B        RDXIT1

     2780   01 009AA    32D00002 A   PRHAN9   LW,13    2
     2781   01 009AB    07D01F1A              CAL4,13  DEVNOP            DEVICE NOT OPERATIONAL
     2782   01 009AC    02000000 A            NOP
     2783   01 009AD    680009A0              B        PRHAN8A
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   57
A    2785   01 009AE    35F02BCF     PRSTART  STW,15   RETURNC
     2786   01 009AF    22A00001 A            LI,10    1
     2787   01 009B0    75A2305D              STB,10   CT:ORD,1
     2788   01 009B1    32B02BFB              LW,11    BUFSIZ
     2789   01 009B2    20BFFFF8 A            AI,11    -XHEADER+4
     2790   01 009B3    692009B5              BCS,2    %+2
     2791   01 009B4    20B00008 A            AI,11    XHEADER-4
     2792   01 009B5    48B01B13              EOR,11   Y1E
     2793   01 009B6    32023035              LW,0     CT:COM,1
     2794   01 009B7    95A00000 A            STD,10   *0                SET UP COMMAND PAIR

     2796   01 009B8    52F62DF4              LH,15    ET:MOD,3          SKIP IF PR NOT 7446
     2797   01 009B9    21F07446 A            CI,15    X'7446'
     2798   01 009BA    69300954              BNE      PRNOBUF+1

     2800   01 009BB    4BB01AE9              AND,11   NOBITS+15         LOOK AT BYTE COUNT
     2801   01 009BC    21B00084 A            CI,11    132                ENFORCE LIMIT OF 132
     2802   01 009BD    682009BF              BLE      %+2
     2803   01 009BE    22B00084 A            LI,11    132

     2805   01 009BF    22F0008E A            LI,15    X'8E'             DATA-CHAINING TO POSTFIX
     2806   01 009C0    21900200 A            CI,9     XMODE2             UNLESS PREFIX SUPPRESSION
     2807   01 009C1    684009C3              BAZ      %+2                 IN THAT CASE USE
     2808   01 009C2    22F0001E A            LI,15    X'1E'                NORMAL CHANNEL END FLAG
     2809   01 009C3    75F0000B A            STB,15   11

     2811   01 009C4    95A00000 A            STD,10   *0                 AND RESTORE INTO CT:COM

     2813   01 009C5    02200060 A            LCI      6                 FETCH PROTOTYPE CCW LIST
     2814   01 009C6    2AA009CF              LM,10    PRPFX

     2816   01 009C7    30E00000 A            AW,14    0                 PREPARE TIC
     2817   01 009C8    25E0007F A            SLS,14   -1                 MUST BE DA(CCW)

     2819   01 009C9    20000002 A            AI,0     2                 POINT TO NEXT CCW IN CT:COM
     2820   01 009CA    02200060 A            LCI      6                  AND STORE PROPER CCW LIST
     2821   01 009CB    ABA00000 A            STM,10   *0
     2822   01 009CC    68000954              B        PRNOBUF+1

     2824   01 009CD    35F02BCF     PRERROR  STW,15   RETURNC
     2825   01 009CE    68000A31              B        RDERROR0

     2827   01 009CF    01002758     PRPFX    GEN,8,24 X'01',BA(POSTFIX) SEND 4-BYTE POSTFIX
     2828   01 009D0    1E000004 A            GEN,8,24 X'1E',4
     2829   01 009D1    01002754              GEN,8,24 X'01',BA(PREFIX)  SEND 4-BYTE PREFIX
     2830   01 009D2    8E000004 A            GEN,8,24 X'8E',4             FOR SPECIAL PRINT DEVICES
     2831   01 009D3    10000000 A            GEN,8,24 X'10',0           BECOMES TIC TO CT:COM FOR
     2832   01 009D4    00000000 A            GEN,8,24 X'00',0            THIS DEVICE

     2834   01 009D5    40000000 A   PREFIX   DATA     X'40000000'       PREFIX
     2835   01 009D6    0000000A A   POSTFIX  DATA     X'0000000A'       POSTFIX
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   58
A    2837                            *        COSMIC DISK/RAD HANDLER

     2839   01 009D7    68000A71     RDHAN    B        RDRSTRT
     2840   01 009D8    68000A71              B        RDRSTRT
     2841   01 009D9    68000A71              B        RDRSTRT
     2842   01 009DA    68000A9F              B        RDRETRY
     2843   01 009DB    680009FD              B        RDNOBUF
     2844   01 009DC    68000AA8              B        RDSTART
     2845   01 009DD    68000A2F              B        RDERROR

     2847   01 009DE    35F02BCF     RDDRIVE  STW,15   RETURNC

        2*  01 009DF    31201ABC              CW,2     BIT+4             LOOK FOR ON-SECTOR              *H00
        3*  01 009E0    684009E7              BAZ      RDDRIVE2           SKIP IF NORMAL CE              *H00

        5*  01 009E1    32023035              LW,0     CT:COM,1          POINTER TO CHANNEL PROGRAM      *H00

        7*  01 009E2    92C00000 A            LD,12    *0                GET SEEK CCDW                   *H00
        8*  01 009E3    4BC01ADA              AND,12   NOBITS+0           REMOVE MODIFIER BIT            *H00
        9*  01 009E4    49D01ABA              OR,13    BIT+2               ADD COMMAND-CHAIN BIT         *H00
       10*  01 009E5    95C00000 A            STD,12   *0                   RESTORE SEEK CCDW            *H00

       12*  01 009E6    68000A73              B        RDSIO                                             *H00

     2849   01 009E7    72002ED9     RDDRIVE2 LB,0     PHASES
     2850   01 009E8    21000003 A            CI,0     3                 PHASE 3
     2851   01 009E9    693009F4              BCS,3    RDDRIVE0          NO

     2853   01 009EA    22A00001 A            LI,10    1
     2854   01 009EB    71A2305D              CB,10    CT:ORD,1          PREVIOUS ORDER A WRITE
     2855   01 009EC    693009F4              BNE      RDDRIVE0          (SKIP IF NOT)

     2857   01 009ED    6AF00F49              BAL,15   RANDOM            GET RANDOM NUMBER
     2858   01 009EE    4B701AF1              AND,7    NOBITS+23         MASK LAST BYTE
     2859   01 009EF    717230AD              CB,7     CT:PC,1           COMPARE WITH THRESHOLD
     2860   01 009F0    692009F4              BG       RDDRIVE0          OVER - SKIP CHECKWRITE

     2862   01 009F1    22A00005 A            LI,10    5                 GET CHECKWRITE ORDER
     2867   01 009F2    75A2305D              STB,10   CT:ORD,1

        2*  01 009F3    68000A00              B        RDNOBUF0          REBUILD CHANNEL PROGRAM         *H01

     2870   01 009F4    6AF00EA5     RDDRIVE0 BAL,15   PUTBUF            CHECK POSITION
     2871   01 009F5    68000AA3              B        RDHAN1            POSITION ERROR

     2875   01 009F6    6AF00AE3     RDDRIVE1 BAL,15   RDORDR            GET DRIVE ORDER

        2*  01 009F7    21800010 A            CI,8     XDUAL             LOOK FOR DUAL ACCESS            *H01
        3*  01 009F8    684009FA              BAZ      %+2                SKIP IF SINGLE CONTROLLER      *H01
        4*  01 009F9    4F040000 A            HIO,0    0,2                 ELSE RELEASE THE DRIVE        *H01

     2878   01 009FA    6AF00AFD              BAL,15   POSITN            GET TRACK AND SECTOR
     2879   01 009FB    68000A29              B        RDHAN3
     2880   01 009FC    680009FE              B        RDNOBUF+1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   59
A    2882   01 009FD    35F02BCF     RDNOBUF  STW,15   RETURNC
     2883   01 009FE    6AF00EE5              BAL,15   GETBUF            GET NEW BUFFER
     2884   01 009FF    68000A94              B        RDXIT

        1*  01 00A00    22500002 A   RDNOBUF0 LI,5     2                                                 *H01
        2*  01 00A01    32623021              LW,6     CT:BUFAD,1                                        *H01
     2887   01 00A02    32023035              LW,0     CT:COM,1
     2888   01 00A03    20600004 A            AI,6     4                 START XFER AFTER POST HEADER
     2889   01 00A04    75A00006 A            STB,10   6                 COMBINE ORDER AND BUFFER ADD
     2890   01 00A05    B56A0000 A            STW,6    *0,5              FORM COMMAND 3

     2892   01 00A06    72A02ED7              LB,10    PASSES            LOOK FOR PASS 7
     2893   01 00A07    21A00007 A            CI,10    7
     2894   01 00A08    69300A19              BNE      RDHAN2
     2895   01 00A09    21300007 A            CI,3     ETXDPS            LOOK FOR A DISK
     2896   01 00A0A    69100A19              BL       RDHAN2

     2898   01 00A0B    72462E44              LB,4     ET:RPX,3
     2899   01 00A0C    32A82E91              LW,10    RP:CDWS,4         GET NUMBER OF CCDWS
     2900   01 00A0D    20A00002 A            AI,10    2                 ADJUST FOR SEEK AND SENSE

        1*  01 00A0E    25A00001 A            SLS,10   1                 (CONVERT DOUBLE TO SINGLE)      *H00
     2902   01 00A0F    71A62E4E              CB,10    ET:CDW,3          COMPARE WITH COMPUTED
     2903   01 00A10    68200A12              BLE      %+2                REQUIREMENT AND IMPOSE
     2904   01 00A11    72A62E4E              LB,10    ET:CDW,3            LIMIT IF NECESSARY
        1*  01 00A12    25A0007F A            SLS,10   -1                (CONVERT SINGLE TO DOUBLE)      *H00

     2906   01 00A13    20AFFFFE A            AI,10    -2                REMOVE SEEK AND SENSE

     2908   01 00A14    20AFFFFF A   RDHAN0   AI,10    -1                DECREMENT CCDW COUNT
     2909   01 00A15    68300A19              BEZ      RDHAN2            AND STOP IF EXHAUSTED
     2910   01 00A16    20500002 A            AI,5     2                 POINT TO NEXT CCDW
     2911   01 00A17    B56A0000 A            STW,6    *0,5              STORE THE BUFFER ADDRESS
     2912   01 00A18    68000A14              B        RDHAN0            AND CONTINUE THE LOOP

     2914   01 00A19    22A00004 A   RDHAN2   LI,10    4
     2915   01 00A1A    75A230BC              STB,10   CT:RETRY,1

        2*  01 00A1B    72A2305D              LB,10    CT:ORD,1          LOOK AT ORDER BYTE              *H01
        3*  01 00A1C    21A00005 A            CI,10    5                  AND SKIP TO SIO                *H01
        4*  01 00A1D    68300A73              BE       RDSIO               IF CHECKWRITE                 *H01

        6*  01 00A1E    21300007 A            CI,3     ETXDPS            LOOK FOR RAD                    *H00
        7*  01 00A1F    69100A73              BL       RDSIO              NO SEEK-OVERLAP                *H00

        9*  01 00A20    21900200 A            CI,9     XMODE2            LOOK FOR SEEK-OVERLAP           *H00
       10*  01 00A21    69400A73              BANZ     RDSIO              SUPPRESSION                    *H00

       12*  01 00A22    31102EB6              CW,1     BASEX             DO NOT OVERLAP                  *H01
       13*  01 00A23    68300A73              BE       RDSIO              SEEKS FOR BASE DEVICE          *H01

       15*  01 00A24    92C00000 A            LD,12    *0                FETCH SEEK CCDW                 *H00
       16*  01 00A25    49C01AB8              OR,12    BIT+0              SET MODIFIER                   *H00
       17*  01 00A26    4BD01ADC              AND,13   NOBITS+2            CLEAR COMMAND-CHAIN           *H00
       18*  01 00A27    95C00000 A            STD,12   *0                   RESTORE SEEK CCDW            *H00

     2916   01 00A28    68000A73              B        RDSIO

     2918   01 00A29    52D23062     RDHAN3   LH,13    CT:CA,1           GET CONTROLLER ADDRESS
     2919   01 00A2A    07D01F11              CAL4,13  CDESEL            (NO POSITIONS)
     2920   01 00A2B    02000000 A            NOP      0

        2*  01 00A2C    4B801A2A     RDHAN3A  AND,8    NERROR            GENERAL DESELECTION ENTRY       *H01
     2922   01 00A2D    4B901A23              AND,9    NCSEL             DESELECT THIS CONTROLLER
     2923   01 00A2E    68000A9A              B        RDNBUSY
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   60
A    2925   01 00A2F    35F02BCF     RDERROR  STW,15   RETURNC
     2926   01 00A30    6AF00B6A              BAL,15   GETSENSE          SENSE AND RESTORE CARRRIAGE

     2928   01 00A31    32B02BF3     RDERROR0 LW,11    TIOR+1            GET TIO STATUS
     2929   01 00A32    31B01B19              CW,11    Y0028             TEST FOR I/O PARITY
     2930   01 00A33    68400A3A              BAZ      RDHAN4            NONE

     2932   01 00A34    6AF00E20              BAL,15   IOPARITY
     2933   01 00A35    72A2305D              LB,10    CT:ORD,1          DRIVE ORDER
     2934   01 00A36    21A00002 A            CI,10    2                 IS IT READ
     2935   01 00A37    69400A54              BANZ     RDHAN4A           YES

     2937   01 00A38    6AF00ECC     RDERROR1 BAL,15   FORCEPUT          PUT BUFFER AND SET FORCE
     2938   01 00A39    68000A9A              B        RDNBUSY

     2940   01 00A3A    31B01B1A     RDHAN4   CW,11    Y0014             UNRECOVERABLE ERROR FLAGS
     2941   01 00A3B    69400A6F              BANZ     UNRECOV

     2942   01 00A3C    2130000D A            CI,3     ETXRADS           A PERIPHERAL?
     2943   01 00A3D    69200A4B              BG       RDHAN5            YES

        2*  01 00A3E    52B02BF1              LH,11    TDVRU1            GET TDV STATUS                  *H01

     2947   01 00A3F    21300007 A            CI,3     ETXDPS
     2948   01 00A40    69100A60              BL       RDHAN8            SKIP IF REAL RAD

     2949   01 00A41    21B04000 A            CI,11    X'4000'           FLAW MARK
     2950   01 00A42    68400A4B              BAZ      RDHAN5            SKIP IF NO FLAW MARK

        1*  01 00A43    72062E44              LB,0     ET:RPX,3          GET PARAMETER POINTER           *H00
        2*  01 00A44    21000006 A            CI,0     RPXDB              LOOK FOR DB, DC, DD, DE        *H00
        3*  01 00A45    69100A48              BL       RDHAN4B             THESE HAVE 7275-LIKE TDV      *H01

     2956   01 00A46    21B00400 A            CI,11    X'0400'           LOOK FOR OPERATIONAL ERROR
     2957   01 00A47    69400A5D              BANZ     RDHAN7             (FLAW WITH ERROR)

        1*        01 00A48           RDHAN4B  EQU      %                                                 *H00
     2959   01 00A48    21B0BB00 A            CI,11    X'BB00'           LOOK FOR OTHER ERROR BITS
     2960   01 00A49    68400A57              BAZ      RDHAN6            DISTINGUISH BETWEEN SIMPLE
     2961   01 00A4A    68000A5D              B        RDHAN7             AND ERRORED FLAWMARKS

        1*  01 00A4B    22015C40 A   RDHAN5   LI,0     X'15C40'          RECOVERABLE ERROR - SEV 0       *H01

        3*  01 00A4C    72F230BC              LB,15    CT:RETRY,1        CHECK RETRY COUNT               *H01
        4*  01 00A4D    21F00001 A            CI,15    1                  SKIP IF NOT EXHAUSTED          *H01
        5*  01 00A4E    69300A50              BNE      %+2                                               *H01

        7*  01 00A4F    22035CC0 A            LI,0     X'35CC0'          ELSE UNRECOVERED ERROR          *H01

     2964   01 00A50    31201AB8              CW,2     BIT+0             LOOK FOR RATE ERROR
     2965   01 00A51    68400A53              BAZ      %+2                SKIP IF NOT PRESENT
     2966   01 00A52    22035CB0 A            LI,0     X'35CB0'          RATE ERROR
     2967   01 00A53    6AF00E3F              BAL,15   IORECV+1          LOG I/O ERROR - RECOVERABLE

     2969   01 00A54    73F230BC     RDHAN4A  MTB,-1   CT:RETRY,1
     2970   01 00A55    69300A99              BNEZ     RDXIT1            START AGAIN
     2971   01 00A56    68000A84              B        RDOFF1

        1*  01 00A57    22005C50 A   RDHAN6   LI,0     X'05C50'          NORMAL FLAWMARK                 *H00
     2974   01 00A58    6AF00E3F              BAL,15   IORECV+1

        2*  01 00A59    33F02EE2              MTW,-1   SYSERRSP          FLAW MARKS ARE                  *H01
        3*  01 00A5A    33F02EE1              MTW,-1   SYSERRST           NOT REALLY ERRORS              *H01
        4*  01 00A5B    33102C1D              MTW,+1   FLAWS               (TALLIED SEPARATELY)          *H01
     2975   01 00A5C    68000AA6              B        RDHAN1A           CONTINUE

        1*  01 00A5D    22035C60 A   RDHAN7   LI,0     X'35C60'          ERRORED FLAWMARK                *H00
     2978   01 00A5E    6AF00E3F              BAL,15   IORECV+1
     2979   01 00A5F    68000AA6              B        RDHAN1A

     2981   01 00A60    21B02000 A   RDHAN8   CI,11    X'2000'           LOOK FOR SECTOR
     2982   01 00A61    68400A4B              BAZ      RDHAN5             NOT AVAILABLE

     2984   01 00A62    72462E44              LB,4     ET:RPX,3          POINT TO PARAMETER TABLE

     2986   01 00A63    32B82E64              LW,11    RP:SPT,4          COMPUTE NUMBER OF SECTORS
     2987   01 00A64    37B82E70              MW,11    RP:TPD,4           AVAILABLE ON THIS RAD
     2988   01 00A65    58B82E7F              SH,11    RP:INC,4            REDUCE BY CURRENT INCREMENT

     2990   01 00A66    31B23080              CW,11    CT:POS,1          COMPARE WITH CURRENT POSITION
     2991   01 00A67    69300A4B              BNE      RDHAN5             AND SKIP IF NOT THE SAME

     2993   01 00A68    32B02BF2              LW,11    TIOR              FETCH ACTUAL COMMAND
     2994   01 00A69    25B00001 A            SLS,11   1                  DOUBLE WORD AND EXTRACT
     2995   01 00A6A    92A0000B A            LD,10    *11                 ORDER-BYTE
     2996   01 00A6B    72A0000A A            LB,10    10

     2998   01 00A6C    21A00004 A            CI,10    X'04'             COMPARE WITH SENSE AND
     2999   01 00A6D    683009E7              BE       RDDRIVE2           ACCEPT IF PRESENT
     3000   01 00A6E    68000A4B              B        RDHAN5              ELSE RECORD AN ERROR

     3002   01 00A6F    6AF00E3C     UNRECOV  BAL,15   IOUNRECV
     3003   01 00A70    68000A54              B        RDHAN4A
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   61
A    3005   01 00A71    35F02BCF     RDRSTRT  STW,15   RETURNC
     3006   01 00A72    32023035              LW,0     CT:COM,1

     3008   01 00A73    22A00020 A   RDSIO    LI,10    X'20'
     3009   01 00A74    55A230B2              STH,10   CT:FT,1           SET FAULT TIME OUT

     3011   01 00A75    21800080 A            CI,8     XWAIT             EXIT IF DISCOVERED
     3012   01 00A76    69400A99              BANZ     RDXIT1             IN RATE-ERROR WAIT

        1*  01 00A77    6AF00D67              BAL,15   MFIMON            PE INJECTION                    *H01

     3016   01 00A78    32D00002 A            LW,13    2
     3017   01 00A79    2500007F A            SLS,0    -1                CREATE COMMAND DOUBLEWORD
     3018   01 00A7A    4C640000 A            SIO,6    0,2               DEVICE ADDRESS IN 2

     3019   01 00A7B    68C00A91              BCR,12   RDXIT2            SIO ACCEPTED
     3020   01 00A7C    69800A89              BCS,8    RDSIO4            NO DEVICE RECOGNITION

     3021   01 00A7D    31701ABB              CW,7     BIT+3             MANUAL
     3022   01 00A7E    6840099B              BCR,4    PRHAN8            YES

     3023   01 00A7F    21800010 A            CI,8     XDUAL             DUAL ACCESS
     3024   01 00A80    69400A8D              BCS,4    RDSIO5            YES-KEEP TRYING

     3025   01 00A81    6AF00E4F              BAL,15   SIOFAIL

     3026   01 00A82    73F230BC              MTB,-1   CT:RETRY,1
     3027   01 00A83    69200A97              BCS,2    RDXIT0            RETRY

     3029   01 00A84    6AF00ECC     RDOFF1   BAL,15   FORCEPUT          GIVE UP BUFFER

        2*  01 00A85    4B801A2A              AND,8    NERROR            ERASE ERROR STATE               *H01

        4*  01 00A86    21800040 A            CI,8     XWRAP             IF SURFACE IS NOT               *H01
        5*  01 00A87    68400A9A              BAZ      RDNBUSY            WRAPPED KEEP TRYING            *H01

        7*  01 00A88    680009F6              B        RDDRIVE1          CHANGE POSITION NOW             *H01

     3037   01 00A89    32D00002 A   RDSIO4   LW,13    2
     3038   01 00A8A    07D01F00              CAL4,13  NODEVREQ          NO DEV REC
     3039   01 00A8B    02000000 A            NOP
        1*  01 00A8C    68000A2C              B        RDHAN3A           DESELECT DEVICE                 *H01

     3042   01 00A8D    21800040 A   RDSIO5   CI,8     XWRAP             IS IT WRAPPED
     3043   01 00A8E    68400A99              BCR,4    RDXIT1            NO-WAIT

        2*  01 00A8F    49801A28              OR,8     INITAL            STARTS EVERYTHING OVER          *H01
        3*  01 00A90    68000A84              B        RDOFF1            PROBABLY NOT EXACTLY RIGHT!     *H01

     3046   01 00A91    49801A0D     RDXIT2   OR,8     BUSY              SET BUSY CONTROLLER
     3047   01 00A92    4B801A2A              AND,8    NERROR            CLEAR ERROR BIT
     3048   01 00A93    4B801A25     RDNMAN   AND,8    NMANUL            CLEAR MANUAL BIT
     3049   01 00A94    55823003     RDXIT    STH,8    CT:CS,1           REPLACE STATUS
     3050   01 00A95    55922FF9              STH,9    CT:OPS,1
     3051   01 00A96    E8002BCF              B        *RETURNC

     3053   01 00A97    22F00001 A   RDXIT0   LI,15    1
     3054   01 00A98    75F230BC              STB,15   CT:RETRY,1         SET RETRY=2 FOR POSIT ERR.

     3055   01 00A99    49801A29     RDXIT1   OR,8     ERROR             SET FAILURE IND.

     3056   01 00A9A    4B801A0E     RDNBUSY  AND,8    NBUSY

        2*  01 00A9B    21800010 A            CI,8     XDUAL             LOOK FOR DUAL ACCESS            *H01
        3*  01 00A9C    68400A9E              BAZ      %+2                SKIP IF SINGLE CONTROLLER      *H01
        4*  01 00A9D    4F040000 A            HIO,0    0,2                 ELSE RELEASE THE DEVICE       *H01

     3058   01 00A9E    68000A93              B        RDNMAN

     3060   01 00A9F    35F02BCF     RDRETRY  STW,15   RETURNC
     3061   01 00AA0    6AF00E4D              BAL,15   TIMEOUT           SOFTWARE TIME OUT
     3062   01 00AA1    6AF00B6A              BAL,15   GETSENSE          SENSE AND RESTORE CARRIAGE
     3063   01 00AA2    68000A54              B        RDHAN4A            THEN SIMPLY TRY AGAIN

     3065   01 00AA3    6AF00E57     RDHAN1   BAL,15   POSITERR          LOG POSITION ERROR
     3066   01 00AA4    73F230BC              MTB,-1   CT:RETRY,1
     3067   01 00AA5    69300A97              BCS,3    RDXIT0            RETRY 1 MORE TIME

     3069   01 00AA6    6AF00ECC     RDHAN1A  BAL,15   FORCEPUT
     3070   01 00AA7    680009F6              B        RDDRIVE1          GET NEXT POSITION
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   62
A    3072   01 00AA8    35F02BCF     RDSTART  STW,15   RETURNC
     3073   01 00AA9    32023035              LW,0     CT:COM,1
     3074   01 00AAA    32D02BFB              LW,13    BUFSIZ            BYTE COUNT
     3075   01 00AAB    48D01B12              EOR,13   Y2E               PUT IN FLAGS

     3077   01 00AAC    12A00B58              LD,10    RADSEEK
     3078   01 00AAD    30A00001 A            AW,10    1                 SEEK BYTE ADDRESS
     3079   01 00AAE    25A00002 A            SLS,10   2
     3080   01 00AAF    12E00B5A              LD,14    RADSENSE
     3081   01 00AB0    30E00001 A            AW,14    1                 SENSE STORAGE
     3082   01 00AB1    25E00002 A            SLS,14   2

     3084   01 00AB2    21300007 A            CI,3     ETXDPS
     3085   01 00AB3    69100AB6              BL       RDSTART2          SKIP IF NOT DISK
     3086   01 00AB4    20B00002 A            AI,11    2                 DISKS HAVE 4-BYTE SEEKS
     3087   01 00AB5    68000AB9              B        RDSTART0

     3089         01 00AB6           RDSTART2 EQU      %
     3090   01 00AB6    21300001 A            CI,3     ETXHSRAD          SKIP IF 7211
     3091   01 00AB7    68300AB9              BE       RDSTART0
     3092   01 00AB8    20FFFFFF A            AI,15    -1                RADS HAVE 3-BYTE SENSES

     3094   01 00AB9    02200060 A   RDSTART0 LCI      6                 SET FOR SIX WORDS
     3095   01 00ABA    ABA00000 A            STM,10   *0                STORE COMMANDS

     3097   01 00ABB    72202ED7              LB,2     PASSES
     3098   01 00ABC    21200007 A            CI,2     7                 LOOK FOR PASS 7
     3099   01 00ABD    69300ADB              BNE      RDSTART1
     3100   01 00ABE    21300007 A            CI,3     ETXDPS            LOOK FOR A DISK
     3101   01 00ABF    69100ADB              BL       RDSTART1

     3103   01 00AC0    72462E44              LB,4     ET:RPX,3
        1*  01 00AC1    32282E91              LW,2     RP:CDWS,4         GET NUMBER OF CDWS PER CYL      *H00
     3105   01 00AC2    20200002 A            AI,2     2                 ADJUST FOR SEEK AND SENSE

        1*  01 00AC3    25200001 A            SLS,2    1                 (CONVERT DOUBLE TO SINGLE)      *H00
     3107   01 00AC4    71262E4E              CB,2     ET:CDW,3          COMPARE WITH COMPUTED
     3108   01 00AC5    68200AC7              BLE      %+2                REQUIREMENT AND IMPOSE
     3109   01 00AC6    72262E4E              LB,2     ET:CDW,3            LIMIT IF NECESSARY
        1*  01 00AC7    2520007F A            SLS,2    -1                (CONVERT SINGLE TO DOUBLE)      *H00

     3111   01 00AC8    202FFFFE A            AI,2     -2                REMOVE SEEK AND SENSE
     3112   01 00AC9    4BD01ADD              AND,13   NOBITS+3          REMOVE CC BIT
     3113   01 00ACA    49D01AB8              OR,13    BIT+0             INSERT DC BIT

     3115         01 00ACB           RDSTART3 EQU      %
     3116   01 00ACB    20000002 A            AI,0     2                 POINT TO NEXT TRANSFER CCDW
     3117   01 00ACC    202FFFFF A            AI,2     -1                REPEAT (N-1 TIMES)
     3118   01 00ACD    68300AD0              BEZ      RDSTART4
     3119   01 00ACE    95C00000 A            STD,12   *0                SAVE TRANSFER CCDW
     3120   01 00ACF    68000ACB              B        RDSTART3          LOOP STORING CCDWS
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   63
A    3122         01 00AD0           RDSTART4 EQU      %
     3123   01 00AD0    32B82E64              LW,11    RP:SPT,4          COMPUTE THE BYTES
     3124   01 00AD1    37B82E58              MW,11    RP:BPS,4          IN A SINGLE CYLINDER

     3126   01 00AD2    22A00000 A            LI,10    0                 NOW COMPUTE THE BYTES
     3127   01 00AD3    36A02BFB              DW,10    BUFSIZ            REMAINING IN THE LAST CCDW

     3129   01 00AD4    21A00000 A            CI,10    0                 CHECK TO SEE IF BYTES REMAIN
     3130   01 00AD5    69300AD7              BNE      %+2
     3131   01 00AD6    32A02BFB              LW,10    BUFSIZ            NO REMAINDER => FULL BUFFER
     3132   01 00AD7    32D0000A A            LW,13    10

     3134   01 00AD8    49D01B12              OR,13    Y2E               INSERT THE CC AND ERROR FLAGS

     3136   01 00AD9    02200040 A            LCI      4                 STORE THE LAST TRANSFER CCDW
     3137   01 00ADA    ABC00000 A            STM,12   *0                AND THEN THE FINAL SENSE CCDW

     3139         01 00ADB           RDSTART1 EQU      %
     3140   01 00ADB    52223062              LH,2     CT:CA,1           GET CONTROLLER ADD
     3141   01 00ADC    55222FE5              STH,2    CT:DA,1           INITIALIZE DEVICE ADD
     3142   01 00ADD    72462E44              LB,4     ET:RPX,3

     3144   01 00ADE    32A23049              LW,10    CT:MAP,1          INITIALIZE POSITION TO
     3145   01 00ADF    92A0000A A            LD,10    *10               VALUE SPECIFIED BY USER
     3146   01 00AE0    58A82E7F              SH,10    RP:INC,4          (WILL START BY INCREMENTING)
     3147   01 00AE1    35A23080              STW,10   CT:POS,1
     3148   01 00AE2    680009F6              B        RDDRIVE1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   64
A    3150                            *        GETS A RAD ORDER FOR THE RAD

     3152   01 00AE3    72A2305D     RDORDR   LB,10    CT:ORD,1          GET CURRENT ORDER
     3153   01 00AE4    35F02BD2              STW,15   RETURNF
     3154   01 00AE5    21800040 A            CI,8     XWRAP
     3155   01 00AE6    68400AF5              BCR,4    RDORDR3           NO
     3156   01 00AE7    21802000 A            CI,8     XSORS
     3157   01 00AE8    69400AF0              BCS,4    RDORDR2           YES-SET READ
     3158   01 00AE9    21900010 A            CI,9     XWRYT             WRITE ONLY
     3159   01 00AEA    69400AF3              BCS,4    RDORDR1           MAYBE
     3160   01 00AEB    21900020 A            CI,9     XREAD             READ ONLY
     3161   01 00AEC    69400AF0              BCS,4    RDORDR2           YES
     3162   01 00AED    6AF00F49     RDORDR0  BAL,15   RANDOM
     3163   01 00AEE    21708000 A            CI,7     X'8000'
     3164   01 00AEF    69400AF5              BCS,4    RDORDR3           YES
     3165   01 00AF0    22A00012 A   RDORDR2  LI,10    X'12'             SET READ
     3166   01 00AF1    75A2305D     RDORDR4  STB,10   CT:ORD,1          PUT AWAY NEW ORDER
     3167   01 00AF2    E8002BD2              B        *RETURNF

     3169   01 00AF3    21900020 A   RDORDR1  CI,9     XREAD             TOGGEL
     3170   01 00AF4    69400AF7              BCS,4    RDORDR5           YES
     3171   01 00AF5    22A00001 A   RDORDR3  LI,10    1                 SET WRITE
     3172   01 00AF6    68000AF1              B        RDORDR4

     3174   01 00AF7    72502ED9     RDORDR5  LB,5     PHASES
     3175   01 00AF8    21500003 A            CI,5     3                 PHASE 3
     3176   01 00AF9    68300AED              BCR,3    RDORDR0           YES-FORCE RANDOM ORDER
     3177   01 00AFA    21A00001 A            CI,10    1                 CURRENTLY WRITING
     3178   01 00AFB    68400AF5              BCR,4    RDORDR3           NO-FORCE WRITE
     3179   01 00AFC    68000AF0              B        RDORDR2
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   65
A    3181                            *        GETS A RAD POSITION

     3183   01 00AFD    35F02BD2     POSITN   STW,15   RETURNF
     3184   01 00AFE    72462E44              LB,4     ET:RPX,3          GET PARAMETER TABLE INDEX
     3185   01 00AFF    22EFFFFD A            LI,14    -3                SET NO POSITION COUNT
     3186   01 00B00    52B22FEF              LH,11    CT:DS,1           SELECTION BITS
     3187   01 00B01    4B201AF5              AND,2    NOBITS+27         CLIP TO ONE OF 16
     3188   01 00B02    32723080              LW,7     CT:POS,1          LAST POSITION ACCESSED

     3190   01 00B03    21800040 A            CI,8     XWRAP
     3191   01 00B04    68400B27              BCR,4    POSITN2           NO
     3192   01 00B05    21803000 A            CI,8     XSORS+XKEYN
     3193   01 00B06    69400B27              BCS,4    POSITN2           YES

     3195   01 00B07    22000003 A            LI,0     3
     3196   01 00B08    71002ED9              CB,0     PHASES            PHASE 3
     3197   01 00B09    68300B0C              BCR,3    POSITN9           YES
     3198   01 00B0A    21900004 A            CI,9     XPSNSQ            SEQUENTIAL POSITIONING
     3199   01 00B0B    69400B27              BCS,4    POSITN2           YES

     3201   01 00B0C    20200001 A   POSITN9  AI,2     1                 CHANGE DEVICE

     3203   01 00B0D    31B41AC8     POSITN3  CW,11    BIT+16,2          SELECTED
     3204   01 00B0E    69400B14              BCS,4    POSITN0           YES
     3205   01 00B0F    31B41AEA              CW,11    NOBITS+16,2       ANY OTHER HIGER DEVICE
     3206   01 00B10    69400B0C              BCS,4    POSITN9           YES

     3208   01 00B11    22200000 A            LI,2     0
     3209   01 00B12    65E00B0D              BIR,14   POSITN3
     3210   01 00B13    E8002BD2              B        *RETURNF

     3212         01 00B14           POSITN0  EQU      %                 GET SEMI-RANDOM POSITION
     3213   01 00B14    32623049              LW,6     CT:MAP,1          GET USER-SPECIFIED LIMITS
     3214   01 00B15    92640006 A            LD,6     *6,2
     3215   01 00B16    38700006 A            SW,7     6                 COMPUTE RANGE
     3216   01 00B17    15602C0C              STD,6    REG6

     3218   01 00B18    6AF00F49              BAL,15   RANDOM            GET RANDOM NUMBER
     3219   01 00B19    3B700007 A            LAW,7    7                 (MAKE SURE IT IS POSITIVE)

     3221   01 00B1A    22600000 A            LI,6     0                 REMAINDER WILL BE BETWEEN
     3222   01 00B1B    36602C0D              DW,6     REG7              0 AND RANGE-1 (I THINK...)

     3224   01 00B1C    56682E7F              DH,6     RP:INC,4          RANDOM OFFSET MUST BE AN
     3225   01 00B1D    57682E7F              MH,6     RP:INC,4          INTEGRAL LOGICAL INCREMENT

     3227   01 00B1E    30702C0C              AW,7     REG6              OFFSET FROM START
     3228   01 00B1F    68000B37              B        POSITN6           CONVERT TO SEEK

     3230         01 00B20           POSITN5  EQU      %
     3231   01 00B20    72602ED7              LB,6     PASSES            IF NOT PASS 7, SIMPLY
     3232   01 00B21    21600007 A            CI,6     7                  ADVANCE POSITION
     3233   01 00B22    69300B26              BNE      POSITN1

     3235   01 00B23    20700001 A            AI,7     1                 POINT TO NEXT CYLINDER
     3236   01 00B24    37782E64              MW,7     RP:SPT,4           AND COMPUTE RELATIVE TRACK
     3237   01 00B25    68000B37              B        POSITN6             THEN TRY ANOTHER TRANSFER
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   66
A    3239   01 00B26    32723080     POSITN1  LW,7     CT:POS,1          RESTORE POSITION

     3241   01 00B27    50782E7F     POSITN2  AH,7     RP:INC,4          NEXT SEQUENTIAL POSITION

     3243   01 00B28    31B41AC8     POSITN4  CW,11    BIT+16,2
     3244   01 00B29    69400B37              BCS,4    POSITN6           SELECTED

     3246         01 00B2A           POSITN8  EQU      %
     3247   01 00B2A    20200001 A            AI,2     1                 UPDATE DEVICE ADDRESS

     3249   01 00B2B    32623049              LW,6     CT:MAP,1          INITIALIZE POSITION TO
     3250   01 00B2C    92640006 A            LD,6     *6,2              VALUE SPECIFIED BY USER
     3251   01 00B2D    32700006 A            LW,7     6

     3253   01 00B2E    31B41AE9              CW,11    NOBITS+15,2
     3254   01 00B2F    69400B28              BCS,4    POSITN4

     3256   01 00B30    49801A16              OR,8     WRAP              SET THE WRAP INDICATION
     3257   01 00B31    22200000 A            LI,2     0                 RESET UNIT POINTER
     3258   01 00B32    32623049              LW,6     CT:MAP,1          RESET STARTING SECTOR
     3259   01 00B33    92640006 A            LD,6     *6,2              FOR THE FIRST UNIT
     3260   01 00B34    32700006 A            LW,7     6                 (IN CASE IT'S SELECTED)
     3261   01 00B35    65E00B28              BIR,14   POSITN4           LOOP FOR MORE POSITIONS
     3262   01 00B36    E8002BD2              B        *RETURNF          NO POSITION FOUND

     3264   01 00B37    52682E7F     POSITN6  LH,6     RP:INC,4          GET POSITIONAL INCREMENT
     3265   01 00B38    72F230C1              LB,15    CT:SF,1            GET SURFACE SHIFT FACTOR
     3266   01 00B39    68300B3D              BEZ      %+4                 SKIP IF NO SHIFT USED

     3268   01 00B3A    3AF0000F A            LCW,15   15                COMPUTE RIGHT SHIFT
     3269   01 00B3B    20F00080 A            AI,15    X'80'              TO OBTAIN ORIGINAL
     3270   01 00B3C    A560000F A            S,6      *15                 SECTORS/BUFFER

     3272   01 00B3D    32F00006 A            LW,15    6                 SAVE SECTORS/BUFFER

     3274   01 00B3E    32623049              LW,6     CT:MAP,1          (GET POINTER TO MAPS)
     3275   01 00B3F    99740006 A            CLM,7    *6,2              TEST WITHIN MAP LIMITS
     3276   01 00B40    69100B27              BCS,1    POSITN2           POS.LT.START => INC

     3278   01 00B41    3070000F A            AW,7     15                FIND END OF TRANSMISSION
     3279   01 00B42    99740006 A            CLM,7    *6,2
     3280   01 00B43    69800B2A              BCS,8    POSITN8           POS.GT.STOP => NXT DEV

     3282   01 00B44    3870000F A            SW,7     15                RESTORE PREVIOUS POSITION
     3283   01 00B45    35723080              STW,7    CT:POS,1

     3285   01 00B46    22600000 A            LI,6     0
     3286   01 00B47    36682E64              DW,6     RP:SPT,4          SECTORS PER TRACK
     3287   01 00B48    72582EA0              LB,5     RP:SS,4           SECTOR SHIFT CONSTANT
     3288   01 00B49    21400004 A            CI,4     RPXDP             DP
     3289   01 00B4A    69100B4F              BL       POSITN7           NO

     3291   01 00B4B    3060000F A            AW,6     15                FIND END OF TRANSMISSION
     3292   01 00B4C    31682E64              CW,6     RP:SPT,4           GUARD AGAINST CYLINDER
     3293   01 00B4D    69200B20              BG       POSITN5             OVERFLOW, THEN RESTORE
     3294   01 00B4E    3860000F A            SW,6     15                   PREVIOUS POSITION

     3296   01 00B4F    256A0000 A   POSITN7  SLS,6    0,5
     3297   01 00B50    72582EA6              LB,5     RP:TS,4           TRACK SHIFT CONSTANT
     3298   01 00B51    257A0000 A            SLS,7    0,5
     3299   01 00B52    30700006 A            AW,7     6                 TRACK AND SECTOR
     3300   01 00B53    3572300D              STW,7    CT:SEEK,1
     3301   01 00B54    50223062              AH,2     CT:CA,1           CONTROLLER AND DEVICE
     3302   01 00B55    55222FE5              STH,2    CT:DA,1
     3303   01 00B56    33102BD2              MTW,1    RETURNF
     3304   01 00B57    E8002BD2              B        *RETURNF
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   67
A    3306                                     BOUND    8
     3307   01 00B58    00C0300D     RADSEEK  GEN,10,22 3,CT:SEEK
     3308   01 00B59    2C000002 A            GEN,8,24 X'2C',2
     3309   01 00B5A    01003094     RADSENSE GEN,10,22 4,CT:SENSE
     3310   01 00B5B    1E000004 A            GEN,8,24 X'1E',4
     3311   01 00B5C    04002D90     RDSENSE  GEN,8,24 4,BA(SENSEVAL)
     3312   01 00B5D    00000004 A            DATA     4
     3313   01 00B5E    04002D90     DPSENSE  GEN,8,24 4,BA(SENSEVAL)
     3314   01 00B5F    2A000010 A            GEN,8,24 X'2A',16          16 BYTES AND COMMAND CHAIN
     3315   01 00B60    33000000 A   RADREWD  GEN,8,24 X'33',0
     3316   01 00B61    28000000 A            GEN,8,24 X'28',0              IF DISK LIES ABOUT ITS
     3317   01 00B62    0A002DA0              GEN,8,24 X'0A',BA(SENSEVAL+4) MOVEMENT, THIS IS
     3318   01 00B63    0A000008 A            GEN,8,24 X'0A',8              NECESSARY...
     3319   01 00B64                 SENSEVAL RES      6

     3321         01 00B6A           GETSENSE EQU      %                 SENSE AND RESTORE
        1*  01 00B6A    22AFFFFF A            LI,10    -1                                                *H02
        2*  01 00B6B    22BFFFFF A            LI,11    -1                DEFAULT SENSE DATA              *H02
     3324   01 00B6C    15A00B64              STD,10   SENSEVAL+0
     3325   01 00B6D    15A00B66              STD,10   SENSEVAL+2

        2*  01 00B6E    32E02C5C              LW,14    COUNT4            GET CURRENT I/O TIME            *H01
        3*  01 00B6F    20E003E8 A            AI,14    2000/2             AND SET 2000 MS TIMEOUT        *H01

     3327   01 00B70    220005AE              LI,0     DA(RDSENSE)       SENSE FOR RADS
     3328   01 00B71    21300007 A            CI,3     ETXDPS
     3329   01 00B72    69100B74              BL       %+2               SKIP IF RAD
     3330   01 00B73    220005AF              LI,0     DA(DPSENSE)       SENSE FOR DISKS

        1*  01 00B74    4CA40000 A   GS3      SIO,10   0,2               ATTEMPT TO START RECOVERY       *H01
        2*  01 00B75    68C00B79              BCR,8+4  GS0                SKIP IF STARTED OK             *H01

        4*  01 00B76    31E02C5C              CW,14    COUNT4            LOOK FOR TIMEOUT                *H01
        5*  01 00B77    69200B74              BG       GS3                WHILE ATTEMPTING RESTART       *H01
        6*  01 00B78    68000B84              B        GS2                 MERGE WITH SERIOUS ERROR      *H01

     3334   01 00B79    22A00014 A   GS0      LI,10    20                SMALL DELAY
     3335   01 00B7A    64A00B7A              BDR,10   %

        1*  01 00B7B    4DA40000 A            TIO,10   0,2               CHECK DEVICE STATE              *H01

        3*  01 00B7C    31E02C5C              CW,14    COUNT4            CHECK DEVICE TIMEOUT            *H01
        4*  01 00B7D    68200B84              BLE      GS2                SKIP IF TIMEOUT                *H01

        6*  01 00B7E    31B01B17              CW,11    Y66               WAIT FOR CONTROLLER/DEVICE      *H01
        7*  01 00B7F    69400B79              BANZ     GS0                TO RETURN TO READY STATE       *H01

     3343   01 00B80    15A00B68              STD,10   SENSEVAL+4        SAVE OPERATIONAL STATUS
        1*  01 00B81    55200B68              STH,2    SENSEVAL+4         AND DEVICE ADDRESS AS WELL     *H01

        3*  01 00B82    31B01AB8              CW,11    BIT+0             IP MAY BE SET BY                *H01
        4*  01 00B83    68400B85              BAZ      GS1                SERIOUS IOP PROBLEM            *H01

        6*  01 00B84    4F040000 A   GS2      HIO,0    0,2               RESET CONTROLLER                *H02

        8*  01 00B85    12A00B64     GS1      LD,10    SENSEVAL+0                                        *H01
     3347   01 00B86    35A23094              STW,10   CT:SENSE,1        SAVE ALL SENSE INFORMATION
     3348   01 00B87    35B230EE              STW,11   CT:SENSE1,1        IN THE CONTROL TABLE

     3350   01 00B88    12A00B66              LD,10    SENSEVAL+2
     3351   01 00B89    35A23102              STW,10   CT:SENSE2,1
     3352   01 00B8A    35B23116              STW,11   CT:SENSE3,1

     3354   01 00B8B    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   68
A    3356                            ************************************************************************
     3357                            *                                                                      *
     3358                            *        SEVEN AND NINE TRACK MAG TAPE HANDLER                         *
     3359                            *                                                                      *
     3360                            *        MAP CONTENTS ALSO R4 AND R5                                   *
     3361                            *                                                                      *
     3362                            * R4(BIT  0-15)=J CURRENT RECORD NUMBER.                               *
     3363                            * R4(BIT 16-31)=N MAXIMUM NR OF RECORDS.                               *
     3364                            *                                                                      *
     3365                            * R5(BIT  0-15)= RESERVED FOR TIMEOUTS                                 *
     3366                            * R5(BIT 16)=SIOA DATA SIO ACCEPTED, IS CT:DA UNIT.                    *
     3367                            * R5(BIT 17)=SIOP DATA SIO PENDING, IS CT:DA UNIT.                     *
     3368                            * R5(BIT 18)=RWIA REWIND ACCEPTED, UNIT IS REWINDING.                  *
     3369                            * R5(BIT 19)=RWIP REWIND PENDING, STILL NEEDS AN SIO.                  *
     3370                            * R5(BIT 20)=DISCOVERED REWINDING AT MTSTART ENTRY, RWIA SET.          *
     3371                            *                                                                      *
     3372                            * R5(BIT 21-23)=UNASSIGNED                                             *
     3373                            *                                                                      *
     3374                            * R5(BITS 24-31) = ORDER                                               *
     3375                            *                 1=WRITE                                              *
     3376                            *                 2=READ FORWARD                                       *
     3377                            *                 C=READ BACKWARD                                      *
     3378                            *                                                                      *
     3379                            ************************************************************************

     3381   01 00B8C    68000C6A     MTHAN    B        MTRSTRT
     3382   01 00B8D    68000D0B              B        MTLOOP
     3383   01 00B8E    68000C6A              B        MTRSTRT
     3384   01 00B8F    68000C72              B        MTRETRY
     3385   01 00B90    68000C53              B        MTNOBUF
     3386   01 00B91    68000CF4              B        MTSTART
     3387   01 00B92    68000C77              B        MTERROR

     3389   01 00B93    35F02BCF     MTDRIVE  STW,15   RETURNC

     3391   01 00B94    6AF00D1A              BAL,15   GETMAP            LOAD MAP INTO R4/R5
     3392   01 00B95    31201AB9              CW,2     BIT+1             LOOK FOR DEVICE-END
     3393   01 00B96    69400BF0              BANZ     MTRESET           SKIP IF PRESENT

     3395   01 00B97    6AF00EA5              BAL,15   PUTBUF
     3396   01 00B98    68000D20              B        MTPOSERR          POSITION ERROR

     3400   01 00B99    4B501AF1     MTDRIVE5 AND,5    NOBITS+23
     3401   01 00B9A    2150000C A            CI,5     X'C'              READ BACKWARDS
     3402   01 00B9B    68400BDC              BCR,4    MTREAD            NO
     3403   01 00B9C    53F00004 A            MTH,-1   4                 DEC J, J<0 ?
     3404   01 00B9D    68100BA3              BCR,1    MTDRIVE0          NO
     3405   01 00B9E    22500002 A            LI,5     2                 RF INTO ORDER
     3406   01 00B9F    32402EDC              LW,4     MTLIMIT           J=0, N=MTLIMIT
     3407   01 00BA0    22EFFFFE A            LI,14    -2

     3409   01 00BA1    954E000B A   NEXTDEV  STD,4    *11,7
     3410   01 00BA2    68000BAC              B        MTDRIVE1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   69
A    3412   01 00BA3    954E000B A   MTDRIVE0 STD,4    *11,7             PUT MAP
     3413   01 00BA4    22EFFFFE A            LI,14    -2
     3414   01 00BA5    22000003 A            LI,0     3
     3415   01 00BA6    71002ED9              CB,0     PHASES            PHASE 3
     3416   01 00BA7    68300BAC              BCR,3    MTDRIVE1          YES
     3417   01 00BA8    21900008 A            CI,9     XDEVSL            LOOK FOR SERIAL DEVICE SELECTION
     3418   01 00BA9    69400BAE              BCS,4    MTDRIVE2          YES
     3419   01 00BAA    73002ED9              MTB,0    PHASES            PHASE 0 ?
     3420   01 00BAB    68300BAE              BCR,3    MTDRIVE2          YES

     3422   01 00BAC    20700001 A   MTDRIVE1 AI,7     1                 INC UNIT NR
     3423   01 00BAD    20200001 A            AI,2     1                 INC DEVICE ADDRESS

     3425   01 00BAE    52D22FEF     MTDRIVE2 LH,13    CT:DS,1           CHECK UNIT SELECTED
     3426   01 00BAF    31DE1AC8              CW,13    BIT+16,7          IS UNIT SELECTED
     3427   01 00BB0    69400BBF              BCS,4    MTDRIVE3          YES
     3428   01 00BB1    31DE1AEA              CW,13    NOBITS+16,7       ANY HIGHER # UNIT SELECTED
     3429   01 00BB2    69400BAC              BCS,4    MTDRIVE1          YES
     3430   01 00BB3    22700000 A            LI,7     0
     3431   01 00BB4    4B201B10              AND,2    YM16              UNIT<-0 (SAVE AIO INFO)
     3432   01 00BB5    65E00BAE              BIR,14   MTDRIVE2
     3433   01 00BB6    52D22FEF              LH,13    CT:DS,1           ANY DEVICES SELECTED
     3434   01 00BB7    69300CE2              BCS,3    MTXIT             YES

     3436   01 00BB8    4B901A23     MTCOFF   AND,9    NCSEL             DE-SELECT CONTROLLER
     3437   01 00BB9    52D23062              LH,13    CT:CA,1
     3438   01 00BBA    07D01F68              CAL4,13  NODEVSEL          NO DEVICES SELECTED
     3439   01 00BBB    02000000 A            NOP
     3440   01 00BBC    6AF00ECC              BAL,15   FORCEPUT
     3441   01 00BBD    4B801A2A              AND,8    NERROR
     3442   01 00BBE    68000D09              B        MTNBUSY
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   70
A    3444   01 00BBF    6AF00D1A     MTDRIVE3 BAL,15   GETMAP
     3445   01 00BC0    21502000 A            CI,5     XRWIA             IS IT REWINDING
     3446   01 00BC1    69400BCB              BCS,4    MTDRIVE4          YES-CHECK IT FOR TIMEOUT
     3447   01 00BC2    21501000 A            CI,5     XRWIP             IS IT WAITING TO BE REWOUND
     3448   01 00BC3    69400C1C              BCS,4    REWIND            YES-REWIND IT
     3449   01 00BC4    21504000 A            CI,5     XSIOP             IS SIO PENDING
     3450   01 00BC5    69400C54              BCS,4    MTNOBUF0          YES, START IT
     3451   01 00BC6    21508000 A            CI,5     XSIOA             IS IT XFERING DATA
     3452   01 00BC7    69400BD1              BCS,4    MTDRIVE6          YES
     3453   01 00BC8    21800020 A            CI,8     XNOBUF            NEED A BUFFER
     3454   01 00BC9    68400BAC              BCR,4    MTDRIVE1          NO-SOMEONES ALREADY GOT IT
     3455   01 00BCA    68000C54              B        MTNOBUF0

     3457   01 00BCB    53F00005 A   MTDRIVE4 MTH,-1   5                 HAS TIMER EXPIRED
     3458   01 00BCC    69200BD4              BGZ      MTDRIVE7           NO - LOOK FOR MANUAL REWIND

     3460   01 00BCD    6AF00D3E              BAL,15   PUTMAP            SAVE MAP IN EXTENDED SENSE

     3462   01 00BCE    22065B01 A            LI,0     X'65B01'          LOG REWIND-TIMEOUT
     3463   01 00BCF    6AF00E4E              BAL,15   TIMEOUT+1
     3464   01 00BD0    68000C1C              B        REWIND             AND TRY AGAIN

     3466   01 00BD1    53F230B2     MTDRIVE6 MTH,-1   CT:FT,1           FAULT TIME-OUT
     3467   01 00BD2    68200C74              BCR,2    MTRETRY1          YES
     3468   01 00BD3    68000BAC              B        MTDRIVE1

     3470   01 00BD4    21500800 A   MTDRIVE7 CI,5     XRWIAM            WAS DEVICE DISCOVERED
     3471   01 00BD5    68400BA1              BAZ      NEXTDEV           ALREADY REWINDING BY MTSTART

     3473   01 00BD6    4ED40000 A            TDV,13   0,2               IS DEVICE STILL REWINDING
     3474   01 00BD7    69800BA1              BCS,8    NEXTDEV           SKIP IF NO STATUS
     3475   01 00BD8    31D01ABF              CW,13    BIT+7
     3476   01 00BD9    69400BA1              BANZ     NEXTDEV            YES - GET NEXT DEVICE

     3478   01 00BDA    4B501A2D              AND,5    NSIORW             NO - CLEAR STATE AND
     3479   01 00BDB    68000C1C              B        REWIND             ISSUE NORMAL REWIND
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   71
A    3481   01 00BDC    53100004 A   MTREAD   MTH,1    4                 INC J
     3482   01 00BDD    32D02BF1              LW,13    TDVRU1            GET DEV STATUS
     3483   01 00BDE    31D01ABE              CW,13    BIT+6             EOT ?
     3484   01 00BDF    69400BE3              BCS,4    MTREAD0           YES
     3485   01 00BE0    52D00004 A            LH,13    4                 GET J
     3486   01 00BE1    31D02EDC              CW,13    MTLIMIT           J => MTLIMIT
     3487   01 00BE2    69100BA3              BCS,1    MTDRIVE0          NO, J<MTLIMIT.

     3489   01 00BE3    21500002 A   MTREAD0  CI,5     2                 READ FORWARD?
     3490   01 00BE4    68400C16              BCR,4    MTWRITE           NO

     3492   01 00BE5    21802000 A   MTREAD1  CI,8     XSORS             SOURCE DEVICE
     3493   01 00BE6    69400BEB              BCS,4    MTREAD2           YES
     3494   01 00BE7    21900020 A            CI,9     XREAD             READ
     3495   01 00BE8    68400C1C              BCR,4    REWIND            NO-REWIND TAPE
     3496   01 00BE9    21900010 A            CI,9     XWRYT             READ ONLY
     3497   01 00BEA    69400C1C              BCS,4    REWIND            NO-REWIND TAPE

     3499   01 00BEB    21300010 A   MTREAD2  CI,3     ETXTAPES          IS IT 7 TRACK
     3500   01 00BEC    68300C1C              BCR,3    REWIND            YES-REWIND TAPE

     3502   01 00BED    2250000C A   MTREAD3  LI,5     X'C'              CHANGE ORDER TO RB
     3503   01 00BEE    53F00004 A            MTH,-1   4                 DEC J
     3504   01 00BEF    68000BA3              B        MTDRIVE0
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   72
A    3506   01 00BF0    52D22FEF     MTRESET  LH,13    CT:DS,1
     3507   01 00BF1    49DE1AC8              OR,13    BIT+16,7          FORCE SELECTION OF DEVICE
     3508   01 00BF2    55D22FEF              STH,13   CT:DS,1
     3509   01 00BF3    49901A22              OR,9     CSEL
     3510   01 00BF4    32D02BF1              LW,13    TDVRU1            GET DEV STATUS
     3511   01 00BF5    31D01ABD              CW,13    BIT+5             AT LOAD POINT
     3512   01 00BF6    68400C1C              BCR,4    REWIND            NO-ITS AN AVR-REWIND TAPE

     3514   01 00BF7    2150000F A   MTRESET0 CI,5     X'F'              HAS HE AN ORDER
     3515   01 00BF8    68400C07              BCR,4    MTRESET3          NO-GIVE HIM A WRITE
     3516   01 00BF9    21802000 A            CI,8     XSORS
     3517   01 00BFA    69400C05              BCS,4    MTRESET5          YES
     3518   01 00BFB    73002ED9              MTB,0    PHASES            PHASE=0
     3519   01 00BFC    68300C07              BCR,3    MTRESET3          YES
     3520   01 00BFD    21900030 A            CI,9     XTOGL             RANDOM
     3521   01 00BFE    68400C03              BCR,4    MTRESET4          YES-WT TO RD OR RD TO WT
     3522   01 00BFF    21900020 A            CI,9     XREAD             WRITE ONLY
     3523   01 00C00    68400C07              BCR,4    MTRESET3          YES-KEEP ORDER
     3524   01 00C01    21900010 A            CI,9     XWRYT             READ ONLY
     3525   01 00C02    68400C05              BCR,4    MTRESET5          YES-KEEP ORDER

     3527   01 00C03    48501AF7     MTRESET4 EOR,5    NOBITS+29         FLIP ORDER
     3528   01 00C04    68000C08              B        MTRESET6

     3530   01 00C05    22500002 A   MTRESET5 LI,5     2                 RF ORDER
     3531   01 00C06    68000C08              B        MTRESET6

     3533   01 00C07    22500001 A   MTRESET3 LI,5     X'1'              CLEAR FLAGS,ORDER=WRITE

     3535   01 00C08    32402EDC     MTRESET6 LW,4     MTLIMIT           SET N=MTLIMIT
     3536   01 00C09    4B501AED              AND,5    NOBITS+19
     3537   01 00C0A    32A01B13              LW,10    Y1E               CEI,HTE,IUE,SIL
     3538   01 00C0B    21300010 A            CI,3     ETXTAPES          7T TAPE
     3539   01 00C0C    68300C0E              BCR,3    %+2               YES
     3540   01 00C0D    32A01B14              LW,10    Y1C               CEI,HTE,IUE
     3541   01 00C0E    30A02BFB              AW,10    BUFSIZ            BYTE COUNT
     3542   01 00C0F    32623035              LW,6     CT:COM,1
     3543   01 00C10    35AC0001 A            STW,10   1,6               COM2
     3544   01 00C11    32023035              LW,0     CT:COM,1
     3545   01 00C12    2500007F A            SLS,0    -1
     3546   01 00C13    30001ABC              AW,0     BIT+4
     3547   01 00C14    350C0008 A            STW,0    8,6               FORM TRANSFER IN CHANNEL COM
     3548   01 00C15    68000BA3              B        MTDRIVE0
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   73
A    3550   01 00C16    21801000 A   MTWRITE  CI,8     XKEYN             KEYING?
     3551   01 00C17    69400C39              BCS,4    MTWRITE5          YES-MUST BE WRITE ONLY
     3552   01 00C18    21900010 A            CI,9     XWRYT             WRITE
     3553   01 00C19    68400BEB              BCR,4    MTREAD2           NO
     3554   01 00C1A    21900020 A            CI,9     XREAD             WRITE ONLY
     3555   01 00C1B    69400BEB              BCS,4    MTREAD2           NO, IT IS TOGGLE

     3557   01 00C1C    21900200 A   REWIND   CI,9     XMODE2            CHECK FOR LWR MODE (STC)
     3558   01 00C1D    69400BF7              BANZ     MTRESET0           AND SKIP REWIND IF SET

     3560   01 00C1E    22D01194 A            LI,13    4500              300 SECONDS
     3561   01 00C1F    55D00005 A            STH,13   5                 SET REWIND TIMER
     3562   01 00C20    4B501A2D              AND,5    NSIORW
     3563   01 00C21    49501A31              OR,5     RWIP
     3564   01 00C22    954E000B A            STD,4    *11,7             PUT MAP
     3565   01 00C23    2200069E              LI,0     DA(REWINDI)
     3566   01 00C24    4CD40000 A            SIO,13   0,2
     3567   01 00C25    69800CEE              BCS,8    MTSIO4            NOT ACCEPTED
     3568   01 00C26    69400C41              BCS,4    REWIND3           NOT ACCEPTED
     3569   01 00C27    4B501A2D              AND,5    NSIORW
     3570   01 00C28    49501A30              OR,5     RWIA
     3571   01 00C29    31D01ABB              CW,13    BIT+3             DEVICE MANUAL
     3572   01 00C2A    69400BA3              BCS,4    MTDRIVE0          NO-GET NEXT DEVICE

     3574   01 00C2B    32D00002 A   REWIND1  LW,13    2
     3575   01 00C2C    07D01F0B              CAL4,13  MANLMSG
     3576   01 00C2D    02000000 A            NOP
     3577   01 00C2E    4FE40000 A            HIO,14   0,2

     3579   01 00C2F    52E22FEF     MTDOFF   LH,14    CT:DS,1
     3580   01 00C30    49EE1AC8              OR,14    BIT+16,7
     3581   01 00C31    48EE1AC8              EOR,14   BIT+16,7          DE-SELECT DEVICE
     3582   01 00C32    55E22FEF              STH,14   CT:DS,1
     3583   01 00C33    12E01A50              LD,14    ZEROS
     3584   01 00C34    95EE000B A            STD,14   *11,7             CLEAR MAP
     3585   01 00C35    2150C000 A            CI,5     XSIOA+XSIOP       WAS IT USING A BUFFER
     3586   01 00C36    68400CE2              BCR,4    MTXIT             NO
     3587   01 00C37    6AF00ECC              BAL,15   FORCEPUT          PUT BACK BUFFER
     3588   01 00C38    68000D09              B        MTNBUSY
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   74
A    3590         01 00C39           MTWRITE5 EQU      %
     3591   01 00C39    32E23080              LW,14    CT:POS,1          KEEP TRACK OF WHICH
     3592   01 00C3A    49EE1AC8              OR,14    BIT+16,7          UNITS HAVE BEEN WRITTEN
     3593   01 00C3B    35E23080              STW,14   CT:POS,1

     3595   01 00C3C    58E22FEF              SH,14    CT:DS,1           ALL SELECTED DEVICES WRITTEN
     3596   01 00C3D    4BE01AE9              AND,14   NOBITS+15
     3597   01 00C3E    69300C1C              BCS,3    REWIND            NO
     3598   01 00C3F    49801A16              OR,8     WRAP
     3599   01 00C40    68000C1C              B        REWIND

     3601   01 00C41    31D01ABB     REWIND3  CW,13    BIT+3             MANUAL
     3602   01 00C42    68400C2B              BCR,4    REWIND1           YES

     3604   01 00C43    31D01AB9              CW,13    BIT+1             DEVICE BUSY
     3605   01 00C44    69400C48              BANZ     REWIND5           SKIP IF UNIT BUSY

     3607   01 00C45    31D01ABD              CW,13    BIT+5             CHECK FOR CONTROLLER BUSY
     3608   01 00C46    69400CE2              BANZ     MTXIT             EXIT IF TRANSFER IN PROCESS
     3609   01 00C47    68000C4F              B        REWIND4

     3611         01 00C48           REWIND5  EQU      %
     3612   01 00C48    4ED40000 A            TDV,13   0,2               ERROR IF DEVICE DENIES
     3613   01 00C49    69800C4F              BCS,8    REWIND4           STATUS, OR IS NOT ALREADY
     3614   01 00C4A    31D01ABF              CW,13    BIT+7             REWINDING (STC TAPES).
     3615   01 00C4B    68400C4F              BAZ      REWIND4

     3617   01 00C4C    4B501A2D              AND,5    NSIORW            CLEAR FLAGS ONLY
     3618   01 00C4D    20502800 A            AI,5     XRWIAM+XRWIA      SET REWINDING FLAGS
     3619   01 00C4E    68000BA3              B        MTDRIVE0          THEN GET NEXT DEVICE

     3621         01 00C4F           REWIND4  EQU      %
     3622   01 00C4F    6AF00D3E              BAL,15   PUTMAP            SAVE MAP AS EXTENDED SENSE

     3624   01 00C50    22075C21 A            LI,0     X'75C21'          LOG SIO-FAILURE
     3625   01 00C51    6AF00E50              BAL,15   SIOFAIL+1          AT REWIND
     3626   01 00C52    68000CE2              B        MTXIT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   75
A    3628   01 00C53    35F02BCF     MTNOBUF  STW,15   RETURNC

     3630   01 00C54    6AF00D1A     MTNOBUF0 BAL,15   GETMAP
     3631   01 00C55    7552305D              STB,5    CT:ORD,1
     3632   01 00C56    72A2305D              LB,10    CT:ORD,1          GET ORDER
     3633   01 00C57    52D00004 A            LH,13    4                 GET J
     3634   01 00C58    35D2300D              STW,13   CT:SEEK,1         PUT CURRENT J INTO SEEK
     3635   01 00C59    55222FE5              STH,2    CT:DA,1           PUT CURRENT DEVICE ADDRESS
     3636   01 00C5A    32623021              LW,6     CT:BUFAD,1        GET BUFFER ADRS
     3637   01 00C5B    21800020 A            CI,8     XNOBUF            DOES HE NEED A BUFFER
     3638   01 00C5C    68400C5F              BCR,4    MTNOBUF2          NO-JUST A RESTART
     3639   01 00C5D    6AF00EE5              BAL,15   GETBUF
     3640   01 00C5E    68000CE2              B        MTXIT

     3642   01 00C5F    2150000C A   MTNOBUF2 CI,5     X'C'              RD BKD ORDER
     3643   01 00C60    68400C63              BCR,4    %+3               NO
     3644   01 00C61    30602BFB              AW,6     BUFSIZ
     3645   01 00C62    206FFFFF A            AI,6     -1                ADD BUFSIZ-1
     3646   01 00C63    20600004 A            AI,6     4                 START XFER AFTER POST HEADER
     3647   01 00C64    32023035              LW,0     CT:COM,1
     3648   01 00C65    75A00006 A            STB,10   6
     3649   01 00C66    B5600000 A            STW,6    *0

     3651   01 00C67    22C00008 A   MTNOBUF1 LI,12    XRETRY
     3652   01 00C68    75C230BC              STB,12   CT:RETRY,1
     3653   01 00C69    68000CC9              B        MTSIO             NOT ON BURST MODE

     3655   01 00C6A    35F02BCF     MTRSTRT  STW,15   RETURNC
     3656   01 00C6B    6AF00D1A              BAL,15   GETMAP
     3657   01 00C6C    21800020 A            CI,8     XNOBUF            DOES HE NEED A BUFFER
     3658   01 00C6D    69400BA3              BCS,4    MTDRIVE0          YES
     3659   01 00C6E    21800004 A            CI,8     XERROR
     3660   01 00C6F    68400BA3              BCR,4    MTDRIVE0          NO
     3661   01 00C70    20000002 A            AI,0     2                 POINT TO RETRY COMMANDS
     3662   01 00C71    68000CC9              B        MTSIO

     3664   01 00C72    35F02BCF     MTRETRY  STW,15   RETURNC
     3665   01 00C73    6AF00D1A              BAL,15   GETMAP            OBTAIN MAP FOR ERROR LOG

     3667         01 00C74           MTRETRY1 EQU      %
     3668   01 00C74    6AF00D3E              BAL,15   PUTMAP            SAVE MAP IN EXTENDED SENSE

     3670   01 00C75    6AF00E4D              BAL,15   TIMEOUT           LOG NORMAL TIMEOUT
     3671   01 00C76    68000C94              B        MTERROR2

1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   76
A    3674   01 00C77    35F02BCF     MTERROR  STW,15   RETURNC

     3676   01 00C78    32600001 A            LW,6     1                 COMPUTE HALFWORD DISPLACEMENT
     3677   01 00C79    25600001 A            SLS,6    1                  TO LEFT HALF OF SENSE3
     3678   01 00C7A    531C3116              MTH,1    CT:SENSE3,6         AND UPDATE COUNT OF ERRORS

     3680   01 00C7B    6AF00D1A              BAL,15   GETMAP
     3681   01 00C7C    31201AB9              CW,2     BIT+1             REWIND & INTERRUPT
     3682   01 00C7D    69400BF0              BANZ     MTRESET           YES
     3683   01 00C7E    32D02BF1              LW,13    TDVRU1            GET TDV STATUS
     3684   01 00C7F    31D01ABA              CW,13    BIT+2             WRITE VIOLATION
     3685   01 00C80    69400C98              BANZ     MTERROR4          YES
     3686   01 00C81    31D01B19              CW,13    Y0028             PARITY ERROR
     3687   01 00C82    69400C9C              BANZ     MTERROR5          YES
     3688   01 00C83    31D01B1A              CW,13    Y0014             UNRECOVERABLE ERROR
     3689   01 00C84    69400C9F              BANZ     MTERROR6          YES

     3691   01 00C85    6AF00D3E              BAL,15   PUTMAP            SAVE MAP IN EXTENDED SENSE

     3693   01 00C86    22005C40 A            LI,0     X'05C40'          RECOVERABLE ERROR
     3694   01 00C87    73F230BC              MTB,-1   CT:RETRY,1         UPDATE RETRY COUNT
     3695   01 00C88    69200C8A              BGZ      %+2                 SKIP IF RECOVERY ALLOWED
     3696   01 00C89    22035CC0 A            LI,0     X'35CC0'             ELSE CHANGE ERROR ID

     3698   01 00C8A    31201AB8              CW,2     BIT+0             LOOK FOR RATE ERROR
     3699   01 00C8B    68400C8D              BAZ      %+2                SKIP IF NOT PRESENT
     3700   01 00C8C    22035CB0 A            LI,0     X'35CB0'            ELSE CHANGE ERROR ID

     3702   01 00C8D    6AF00E3F              BAL,15   IORECV+1          LOG I/O ERROR - RECOVERABLE

     3704   01 00C8E    730230BC              MTB,0    CT:RETRY,1        CHECK REMAINING RETRIES
     3705   01 00C8F    69200CA8              BGZ      MTRERR             SKIP IF RECOVERY ALLOWED

     3707   01 00C90    22C00008 A            LI,12    XRETRY
     3708   01 00C91    75C230BC              STB,12   CT:RETRY,1
     3709   01 00C92    21500001 A            CI,5     X'1'              WRITE ORDER
     3710   01 00C93    69400CA2              BANZ     MTWERR3           YES

     3712   01 00C94    6AF00ECC     MTERROR2 BAL,15   FORCEPUT
     3713   01 00C95    22500000 A            LI,5     0                 CLEAR ORDER
     3714   01 00C96    32023035              LW,0     CT:COM,1          GET COMM ADD
     3715   01 00C97    68000C1C              B        REWIND

     3717   01 00C98    32D00002 A   MTERROR4 LW,13    2
     3718   01 00C99    07D01F55              CAL4,13  DEVWP
     3719   01 00C9A    02000000 A            NOP
     3720   01 00C9B    68000C2F              B        MTDOFF

     3722   01 00C9C    6AF00D3E     MTERROR5 BAL,15   PUTMAP            SAVE MAP IN EXTENDED SENSE

     3724   01 00C9D    6AF00E20              BAL,15   IOPARITY          LOG IO-PARITY ERROR
     3725   01 00C9E    68000C94              B        MTERROR2

     3727   01 00C9F    6AF00D3E     MTERROR6 BAL,15   PUTMAP            SAVE MAP IN EXTENDED SENSE

     3729   01 00CA0    6AF00E3C              BAL,15   IOUNRECV          LOG UN-RECOVERABLE IO ERROR
     3730   01 00CA1    68000C94              B        MTERROR2          REWIND AND RESTART

     3732   01 00CA2    12C00D36     MTWERR3  LD,12    ERASET
     3733   01 00CA3    12A00D32     MTWERR4  LD,10    SPCBAK
     3734   01 00CA4    32023035     MTWERR5  LW,0     CT:COM,1          GET COM STRING ADDRESS
     3735   01 00CA5    20000008 A            AI,0     8                 POINT TO TRANSFER & CHAN
     3736   01 00CA6    92E00000 A            LD,14    *0
     3737   01 00CA7    68000CC0              B        MTWERR2
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   77
A    3739   01 00CA8    32023035     MTRERR   LW,0     CT:COM,1          GET COM STRING ADDRESS
     3740   01 00CA9    20000008 A            AI,0     8                 POINT TO TRANSFER & CHAN
     3741   01 00CAA    21500001 A            CI,5     X'1'              WRITE ORDER
     3742   01 00CAB    69400CA2              BANZ     MTWERR3           YES
     3743   01 00CAC    31D01ABC              CW,13    BIT+4             UNRECOVERABLE READ ERROR
     3744   01 00CAD    69400CBB              BANZ     MTRERR1           YES
     3745   01 00CAE    21300010 A            CI,3     ETXTAPES          IS IT 7 TRACK
     3746   01 00CAF    68300CBB              BCR,3    MTRERR1           YES
     3747   01 00CB0    12A00D38              LD,10    MTSENSE
     3748   01 00CB1    30A00001 A            AW,10    1
     3749   01 00CB2    25A00002 A            SLS,10   2
     3750   01 00CB3    12E00D3A              LD,14    MTSETC
     3751   01 00CB4    30E00001 A            AW,14    1
     3752   01 00CB5    25E00002 A            SLS,14   2
     3753   01 00CB6    12C00D32              LD,12    SPCBAK
     3754   01 00CB7    21500002 A            CI,5     X'2'              READ FORWARD
     3755   01 00CB8    69400CC0              BCS,4    MTWERR2           YES
     3756   01 00CB9    12C00D34              LD,12    SPCFWD
     3757   01 00CBA    68000CC0              B        MTWERR2

     3759         01 00CBB           MTRERR1  EQU      %
     3760   01 00CBB    12A00D34              LD,10    SPCFWD            LOAD FOREWARD SPACE CDW
     3761   01 00CBC    21500002 A            CI,5     X'2'              CHECK FOR FOREWARD READ
     3762   01 00CBD    68400CBF              BAZ      %+2                SKIP IF BACKWARD READ
     3763   01 00CBE    12A00D32              LD,10    SPCBAK            LOAD BACKWARD SPACE CDW

     3765   01 00CBF    92C00000 A            LD,12    *0                LOAD TIC CDW

     3767         01 00CC0           MTWERR2  EQU      %
     3768   01 00CC0    200FFFFA A            AI,0     -6                POINT TO TRANSFER CDW + 1

     3770   01 00CC1    02200060 A            LCI      6                 STORE 3 CDWS
     3771   01 00CC2    ABA00000 A            STM,10   *0
     3772   01 00CC3    49801A29              OR,8     ERROR             SET ERROR-RECOVERY FLAG

     3774   01 00CC4    32B23049              LW,11    CT:MAP,1          RESTORE MAP POINTER

     3776   01 00CC5    4B501A2D              AND,5    NSIORW            CLEAR STATE FLAGS
     3777   01 00CC6    49501A2F              OR,5     SIOP               AND SET SIO PENDING

     3779   01 00CC7    954E000B A            STD,4    *11,7             THEN UPDATE THE MAP
     3780   01 00CC8    68000D09              B        MTNBUSY            AND RETIRE DEVICE 1 TIC
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   78
A    3782   01 00CC9    32C02BFA     MTSIO    LW,12    BLKSIZ            NR OF BYTES PER RECORD
     3783   01 00CCA    25C0007A A            SLS,12   -6                RIGHT SHIFT 6
     3784   01 00CCB    20C00020 A            AI,12    32
     3785   01 00CCC    55C230B2              STH,12   CT:FT,1
     3786   01 00CCD    4B501A2D              AND,5    NSIORW
     3787   01 00CCE    49501A2F              OR,5     SIOP              SIO PENDING
     3788   01 00CCF    954E000B A            STD,4    *11,7
     3789   01 00CD0    2500007F A            SLS,0    -1                COMPUTE DA(I/O PROGRAM)

     3791   01 00CD1    21800080 A            CI,8     XWAIT             EXIT IF DISCOVERED
     3792   01 00CD2    69400D09              BCS,4    MTNBUSY            IN RATE-ERROR WAIT

        1*  01 00CD3    6AF00D67              BAL,15   MFIMON            PE INJECTION                    *H01

     3796   01 00CD4    32600001 A            LW,6     1                 COMPUTE HALFWORD DISPLACEMENT
     3797   01 00CD5    25600001 A            SLS,6    1                  OF RIGHT HALF OF SENSE3
     3798   01 00CD6    20600001 A            AI,6     1                   AND UPDATE COUNT OF SIO'S
     3799   01 00CD7    531C3116              MTH,1    CT:SENSE3,6

     3801   01 00CD8    4CD40000 A            SIO,13   0,2
     3802   01 00CD9    69800CEE              BCS,8    MTSIO4            NOT ACCEPTED
     3803   01 00CDA    69400CE6              BCS,4    MTSIO1            SIO NOT ACCEPTED
     3804   01 00CDB    31D01ABB              CW,13    BIT+3             DEVICE MANUAL
     3805   01 00CDC    68400C2B              BCR,4    REWIND1           YES
     3806   01 00CDD    4B501A2D              AND,5    NSIORW            SIO ACCEPTED
     3807   01 00CDE    49501A2E              OR,5     SIOA
     3808   01 00CDF    954E000B A            STD,4    *11,7
     3809   01 00CE0    4B801A2A              AND,8    NERROR
     3810   01 00CE1    49801A0D              OR,8     BUSY

     3812         01 00CE2           MTXIT    EQU      %                 INSURE CONTROLLER MANUAL
     3813   01 00CE2    49801A24              OR,8     MANUL             (INHIBITS EXTERNAL TIMEOUTS)
     3814   01 00CE3    55823003              STH,8    CT:CS,1
     3815   01 00CE4    55922FF9              STH,9    CT:OPS,1
     3816   01 00CE5    E8002BCF              B        *RETURNC

     3818   01 00CE6    31D01ABB     MTSIO1   CW,13    BIT+3             MANUAL
     3819   01 00CE7    68400C2B              BCR,4    REWIND1           YES

     3821         01 00CE8           MTSIO3   EQU      %
     3822   01 00CE8    6AF00D3E              BAL,15   PUTMAP            SAVE MAP IN EXTENDED SENSE

     3824   01 00CE9    6AF00E4F              BAL,15   SIOFAIL           LOG SIO-FAILURE

     3826   01 00CEA    32623035              LW,6     CT:COM,1
     3827   01 00CEB    32EC0008 A            LW,14    8,6               GET TIC
     3828   01 00CEC    35EC0002 A            STW,14   2,6
     3829   01 00CED    68000D09              B        MTNBUSY           TRY AGAIN NEXT CLOCK

     3831         01 00CEE           MTSIO4   EQU      %
     3832   01 00CEE    69400CF0              BCS,4    MTSIO5            SKIP IF NO RECOGNITION
     3833   01 00CEF    68000CE2              B        MTXIT             ELSE RETRY ONE TIC LATER

     3835         01 00CF0           MTSIO5   EQU      %
     3836   01 00CF0    32D00002 A            LW,13    2
     3837   01 00CF1    07D01F00              CAL4,13  NODEVREQ          NO DEVICE RECOGNITION
     3838   01 00CF2    02000000 A            NOP
     3839   01 00CF3    68000C2F              B        MTDOFF
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   79
A    3841   01 00CF4    35F02BCF     MTSTART  STW,15   RETURNC
     3842   01 00CF5    72662E44              LB,6     ET:RPX,3
     3843   01 00CF6    22700000 A            LI,7     0
     3844   01 00CF7    35723080              STW,7    CT:POS,1          SET ALL UNITS NOT WRAPPED
     3845   01 00CF8    22D00000 A            LI,13    0
     3846   01 00CF9    52223062              LH,2     CT:CA,1
     3847   01 00CFA    32B23049              LW,11    CT:MAP,1

     3849   01 00CFB    12401A50     MTSTART1 LD,4     ZEROS             SET A CLEAR MAP
     3850   01 00CFC    52D22FEF              LH,13    CT:DS,1           SKIP DEVICE IF NOT
     3851   01 00CFD    31DE1AC8              CW,13    BIT+16,7          ACTUALLY SELECTED NOW
     3852   01 00CFE    68400D01              BAZ      MTSTART2
     3853   01 00CFF    55222FE5              STH,2    CT:DA,1           UPDATE CURRENT DEVICE ADDRESS

     3855   01 00D00    22501000 A            LI,5     XRWIP             SET REWIND PENDING

     3857   01 00D01    954E000B A   MTSTART2 STD,4    *11,7             LOAD THE MAP
     3858   01 00D02    35423116              STW,4    CT:SENSE3,1        AND CLEAR THE STATISTICS

     3860   01 00D03    20200001 A            AI,2     1
     3861   01 00D04    20700001 A            AI,7     1
     3862   01 00D05    717C2E7C              CB,7     RP:DPC,6          UNIT NR EXCEED DEV/CONT
     3863   01 00D06    69100CFB              BCS,1    MTSTART1          NO

     3865   01 00D07    21D00000 A            CI,13    0                 ANY DEVICES
     3866   01 00D08    68300BB8              BCR,3    MTCOFF            NO

     3868   01 00D09    4B801A0E     MTNBUSY  AND,8    NBUSY
     3869   01 00D0A    68000CE2              B        MTXIT             WAIT TILL NEXT CLOCK TICK
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   80
A    3871   01 00D0B    35F02BCF     MTLOOP   STW,15   RETURNC
     3872   01 00D0C    6AF00D1A              BAL,15   GETMAP
     3873   01 00D0D    31201AB9              CW,2     BIT+1             REWIND & INTERRUPT
     3874   01 00D0E    69400BF0              BCS,4    MTRESET           YES
     3875   01 00D0F    49801A29              OR,8     ERROR             FORCE RETRY
     3876   01 00D10    12C00D32              LD,12    SPCBAK
     3877   01 00D11    2150000C A            CI,5     X'C'              BACKWARD ORDER
     3878   01 00D12    68400D14              BCR,4    %+2               NO
     3879   01 00D13    12C00D34              LD,12    SPCFWD
     3880   01 00D14    20000008 A            AI,0     8                 POINT TO TRANS IN CHAN COM
     3881   01 00D15    92E00000 A            LD,14    *0
     3882   01 00D16    200FFFFA A            AI,0     -6
     3883   01 00D17    02200040 A            LCI      4
     3884   01 00D18    ABC00000 A            STM,12   *0                STORE RETRY COMMANDS
     3885   01 00D19    68000C67              B        MTNOBUF1

     3887   01 00D1A    2270000F A   GETMAP   LI,7     X'F'
     3888   01 00D1B    4B700002 A            AND,7    2                 GET UNIT ADDRESS
     3889   01 00D1C    32B23049              LW,11    CT:MAP,1
     3890   01 00D1D    924E000B A            LD,4     *11,7             GET MAP
     3891   01 00D1E    32023035              LW,0     CT:COM,1          GET COM STRING LOC
     3892   01 00D1F    E800000F A            B        *15

     3894         01 00D20           MTPOSERR EQU      %
     3895   01 00D20    6AF00D3E              BAL,15   PUTMAP            SAVE MAP IN EXTENDED SENSE

     3897   01 00D21    220A5C00 A            LI,0     X'A5C00'          DEFAULT POSITION ERROR
     3898   01 00D22    72F230BC              LB,15    CT:RETRY,1        CHECK RETRY COUNTER
     3899   01 00D23    21F00008 A            CI,15    XRETRY             ORIGINAL VALUE IMPLIES
     3900   01 00D24    68300D26              BE       %+2                NOT IN RETRY SEQUENCE NOW
     3901   01 00D25    22035C01 A            LI,0     X'35C01'          ELSE SET SPECIAL IDENT

     3903   01 00D26    6AF00E58              BAL,15   POSITERR+1        LOG POSITION ERROR

     3905   01 00D27    32023035              LW,0     CT:COM,1          GET COM ADD
     3906   01 00D28    31D2300D              CW,13    CT:SEEK,1         IS POS > SEEK
     3907   01 00D29    69200D2D              BCS,2    MTPOSER1          POSITION > SEEK
     3908   01 00D2A    12C00D34              LD,12    SPCFWD            GET SET FOR 2 RECORDS
     3909   01 00D2B    21500002 A            CI,5     2                 READ FORWARD
     3910   01 00D2C    68000D2F              B        MTPOSER2          CHECK IT

     3912   01 00D2D    12C00D32     MTPOSER1 LD,12    SPCBAK            GO BACK 2
     3913   01 00D2E    2150000C A            CI,5     X'C'              READ BACKWARDS

     3915   01 00D2F    69400CC9     MTPOSER2 BCS,4    MTSIO             YES-GET NEXT RECORD
     3916   01 00D30    12A0000C A            LD,10    12                GET SPACE COMMAND
     3917   01 00D31    68000CA4              B        MTWERR5           GET TIC
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   81
A    3919                                     BOUND    8
     3920   01 00D32    4B000000 A   SPCBAK   DATA     X'4B000000'       SEARCH BACK ORDER
     3921   01 00D33    24000000 A            DATA     X'24000000'
     3922   01 00D34    43000000 A   SPCFWD   DATA     X'43000000'       SEARCH FORWARD ORDER
     3923   01 00D35    24000000 A            DATA     X'24000000'
     3924   01 00D36    63000000 A   ERASET   DATA     X'63000000'       SET ERASE
     3925   01 00D37    24000000 A            DATA     X'24000000'
     3926   01 00D38    01003094 N   MTSENSE  DATA     X'1000000'+CT:SENSE
     3927   01 00D39    24000001 A            DATA     X'24000001'
     3928   01 00D3A    00C03094 N   MTSETC   DATA     X'C00000'+CT:SENSE
     3929   01 00D3B    24000001 A            DATA     X'24000001'
     3930   01 00D3C    13000000 A   REWINDI  DATA     X'13000000'       REWIND WITH INTERRUPT
     3931   01 00D3D    00000000 A            DATA     0

     3933         01 00D3E           PUTMAP   EQU      %
     3934   01 00D3E    35F02BD3              STW,15   RETURNG           SAVE RETURN ADDRESS

     3936   01 00D3F    354230EE              STW,4    CT:SENSE1,1       SAVE MAP AS EXTENDED
     3937   01 00D40    35523102              STW,5    CT:SENSE2,1        SENSE INFORMATION

     3939   01 00D41    52023003              LH,0     CT:CS,1           SAVE CONTROLLER STATE
     3940   01 00D42    5500000F A            STH,0    15
     3941   01 00D43    25F00078 A            SLS,15   -8
     3942   01 00D44    720230BC              LB,0     CT:RETRY,1        SAVE RETRY COUNTER
     3943   01 00D45    7500000F A            STB,0    15
     3944   01 00D46    25F00078 A            SLS,15   -8
     3945   01 00D47    32023094              LW,0     CT:SENSE,1        SAVE SENSE BYTE (WANG)
     3946   01 00D48    25000208 A            SCS,0    8
     3947   01 00D49    7500000F A            STB,0    15
     3948   01 00D4A    35F23094              STW,15   CT:SENSE,1        SAVE COMPOSITE

     3950   01 00D4B    E8002BD3              B        *RETURNG          AND RETURN
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   82
A    3952                            ************************************************************************
     3953                            *                                                                      *
     3954                            * HANDLER TO EXERCISE MEMORY-TO-MEMORY MOVE LOGIC                      *
     3955                            *  (MUST BE CONFIGURED BY THE OPERATOR)                                *
     3956                            *                                                                      *
     3957                            ************************************************************************

     3959   01 00D4C    00000044 A   MMLPRS   DATA     (68/4)*4          LP SIMULATION SIZE

     3961   01 00D4D    68000DC8     MMHAN    B        MMRGO             OVERRUN RESTART
     3962   01 00D4E    68000DC8              B        MMRGO             LOOP (DEVICE FROZEN)
     3963   01 00D4F    68000DC8              B        MMRGO             RESTART (AFTER ERRORS)
     3964   01 00D50    68000DC2              B        MMRTY             SOFTWARE TIMEOUT
     3965   01 00D51    68000D93              B        MMBUF             NEEDS A BUFFER
     3966   01 00D52    68000DEE              B        MMSTR             INITIALIZE
     3967   01 00D53    68000DCC              B        MMRDE             ERROR AT AIO
     3968   01 00D54    68000D85              B        MMNRM             NORMAL AT AIO

     3970         01 00D55           MMPE     EQU      %                 INTRODUCE PARITY ERROR
     3971   01 00D55    32E00006 A            LW,14    6                  BANK INHIBIT MASK IN CT:PC

     3973   01 00D56    02200090 A            LCI      9
     3974   01 00D57    AD700006 A            LMS,7    *6                GET INTERLEAVE STATE

     3976   01 00D58    25700062 A            SLS,7    -30               SHIFT INTERLEAVE STATE
     3977   01 00D59    68300D5E              BEZ      MMPE0              AND SKIP IF NOT INTERLEAVED

     3979   01 00D5A    4B6E0D60              AND,6    MMPETB0,7         MASK LOW-ORDER BITS

     3981   01 00D5B    327C0D63              LW,7     MMPETB1,6         FETCH BIT MASK
     3982   01 00D5C    717230AD              CB,7     CT:PC,1            COMPARE WITH BANK SELECTOR
     3983   01 00D5D    E940000F A            BANZ     *15                 AND RETURN IF INHIBITED

     3985   01 00D5E    02200020 A   MMPE0    LCI      2                 FETCH AND
     3986   01 00D5F    AD70000E A            LMS,7    *14                RESTORE BAD PARITY

     3988   01 00D60    E800000F A            B        *15

     3990         01 00D60           MMPETB0  EQU      %-1               ADDRESS TRANSFORM BITS
     3991   01 00D61    00000001 A            DATA     1                  2-WAY
     3992   01 00D62    00000003 A            DATA     3                   4-WAY

     3994         01 00D63           MMPETB1  EQU      %                 BANK INHIBIT BITS
     3995   01 00D63    00000001 A            DATA     1                  0
     3996   01 00D64    00000002 A            DATA     2                   1
     3997   01 00D65    00000004 A            DATA     4                    2
     3998   01 00D66    00000008 A            DATA     8                     3

        1*  01 00D67    21900400 A   MFIMON   CI,9     XMODE1            CHECK FOR PE INJECTION ENABLED  *H01
        2*  01 00D68    E840000F A            BAZ      *15                EXIT IF DISABLED               *H01

     4010   01 00D69    72602ED9              LB,6     PHASES            NO ERRORS
     4011   01 00D6A    21600002 A            CI,6     2                  IN PHASES 0 AND 1
        1*  01 00D6B    68100D70              BGE      MFIMON0                                           *H01

        3*  01 00D6C    21100000 A            CI,1     0                 LOOK FOR BACKGROUND             *H01
        4*  01 00D6D    E930000F A            BNE      *15                                               *H01

        6*  01 00D6E    21900200 A            CI,9     XMODE2            ALLOW ERRORS IF BIT SET         *H01
        7*  01 00D6F    E840000F A            BAZ      *15                                               *H01

        1*  01 00D70    3260000F A   MFIMON0  LW,6     15                SAVE LINK                       *H01
        2*  01 00D71    6AF00F49              BAL,15   RANDOM             GENERATE RANDOM NUMBER         *H01
        3*  01 00D72    32F00006 A            LW,15    6                   RESTORE LINK                  *H01

        5*  01 00D73    4B701AE9              AND,7    NOBITS+15         NORMALIZE RANDOM NUMBER         *H01
        6*  01 00D74    22600000 A            LI,6     0                  TO BUFFER SIZE                 *H01
        7*  01 00D75    37602BFB              MW,6     BUFSIZ                                            *H01
        8*  01 00D76    25600170 A            SLD,6    -16                                               *H01

       10*  01 00D77    21700008 A            CI,7     8                 MUST DISPLACE PAST              *H01
       11*  01 00D78    68100D7A              BGE      %+2                BUFFER HEADER                  *H01
       12*  01 00D79    22700008 A            LI,7     8                                                 *H01

     4030   01 00D7A    32623021              LW,6     CT:BUFAD,1        GET BA(BUFFER)
     4031   01 00D7B    30600007 A            AW,6     7                  AND ADD DISPLACEMENT

     4033   01 00D7C    2560007E A            SLS,6    -2                CONVERT TO WORD ADDRESS
     4034   01 00D7D    20600001 A            AI,6     1                  AND SKIP POSITION

     4036   01 00D7E    68000D55              B        MMPE              GO INJECT BAD PARITY

     4038         01 00D7F           MMHIO    EQU      %                 ISSUE HIO TO BOTH UNITS
     4039   01 00D7F    48201AD7              EOR,2    BIT+31
     4040   01 00D80    4F040000 A            HIO,0    0,2               HIO ONE UNIT
     4041   01 00D81    48201AD7              EOR,2    BIT+31
     4042   01 00D82    4F040000 A            HIO,0    0,2               THEN THEN OTHER UNIT
     4043   01 00D83    E800000F A            B        *15

     4045   01 00D84    EFFFFFFF A   MMASK    DATA     X'EFFFFFFF'       ERROR MASK - ALL BITS TESTED

     4047         01 00D85           MMNRM    EQU      %                 NORMAL INTERRUPT ON READ
     4048   01 00D85    35F02BCF              STW,15   RETURNC

     4050   01 00D86    49201AD7              OR,2     BIT+31            FORM WRITE-UNIT ADDRESS
     4051   01 00D87    4DE40000 A            TIO,14   0,2                GATHER AND TEST
     4052   01 00D88    31F00D84              CW,15    MMASK               WRITE-UNIT STATUS
     4053   01 00D89    69400DDF              BANZ     MMWTE                SKIP IF ANYTHING SHOWS

     4055   01 00D8A    48201AD7              EOR,2    BIT+31            FORM READ-UNIT ADDRESS
     4056   01 00D8B    22A00002 A            LI,10    2                  MAKE READ ORDER
     4057   01 00D8C    75A2305D              STB,10   CT:ORD,1

     4088   01 00D8D    6AF00EA5     MMNRM0   BAL,15   PUTBUF            RETURN BUFFER
     4089   01 00D8E    68000D90              B        %+2                PROCESS ANY POSITION ERROR
     4090   01 00D8F    68000DBD              B        MMXITR              ELSE RETIRE TILL NEXT TICK

     4092   01 00D90    6AF00E57              BAL,15   POSITERR          SIGNAL POSITION ERROR
     4093   01 00D91    6AF00ECC              BAL,15   FORCEPUT            RETURN THE BUFFER
     4094   01 00D92    68000DBC              B        MMXITI               AND EXIT IDLE
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   83
A    4096         01 00D93           MMBUF    EQU      %                 NEEDS A BUFFER
     4097   01 00D93    35F02BCF              STW,15   RETURNC

     4099         01 00D94           MMBUF1   EQU      %
     4100   01 00D94    3312300D              MTW,1    CT:SEEK,1         GENERATE NEW POSITION
     4101   01 00D95    22A00001 A            LI,10    1                  AND SET WRITE ORDER
     4102   01 00D96    75A2305D              STB,10   CT:ORD,1
     4103   01 00D97    6AF00EE5              BAL,15   GETBUF            GET A DATA BUFFER
     4104   01 00D98    68000DA8              B        MMBUF2             SKIP IF NONE

     4106   01 00D99    20600004 A            AI,6     4                 TRANSFER BEGINS AFTER HEADER
     4107   01 00D9A    32023035              LW,0     CT:COM,1           FETCH IOCD ADDRESS
     4108   01 00D9B    22500000 A            LI,5     0                   INITIALIZE IOCD INDEX

     4110   01 00D9C    32E00006 A            LW,14    6                 FETCH BA(BUFFER)
     4111   01 00D9D    32F01AE1              LW,15    NOBITS+7           MASK TO PRESERVE ORDER-BYTE
     4112   01 00D9E    C7EA0000 A            STS,14   *0,5              SAVE IN READ IOCD
     4113   01 00D9F    20500002 A            AI,5     2                  POINT TO WRITE IOCD
     4114   01 00DA0    C7EA0000 A            STS,14   *0,5                SAVE IN WRITE IOCD

     4116   01 00DA1    21900100 A            CI,9     XBURST            SKIP IF NOT BURST DEVICE
     4117   01 00DA2    68400DAA              BAZ      MMSIO
     4118   01 00DA3    33002BEA              MTW,0    BTIME             SKIP IF BURST WINDOW OPEN
     4119   01 00DA4    68100DAA              BGE      MMSIO
     4120   01 00DA5    49801A1B              OR,8     BTOUT             ELSE SET BURST-OFF FLAG
     4121   01 00DA6    4B801A0E              AND,8    NBUSY              AND EXIT (DEVICE IDLE)
     4122   01 00DA7    68000DBF              B        MMXITN

     4124         01 00DA8           MMBUF2   EQU      %                 NO BUFFERS AVAILABLE
     4125   01 00DA8    33F2300D              MTW,-1   CT:SEEK,1          DECREMENT POSITION
     4126   01 00DA9    68000DBF              B        MMXITN              AND EXIT (NOT-BUSY)

     4128         01 00DAA           MMSIO    EQU      %
     4129   01 00DAA    22A00020 A            LI,10    X'20'             SET FAULT TIMER
     4130   01 00DAB    55A230B2              STH,10   CT:FT,1            FOR SOFTWARE TIMEOUT

     4132   01 00DAC    21800080 A            CI,8     XWAIT             EXIT IF DISCOVERED IN
     4133   01 00DAD    69400DB9              BANZ     MMXITE             OVERRUN-WAIT CONDITION

        1*  01 00DAE    6AF00D67              BAL,15   MFIMON            PE INJECTION                    *H01

     4137   01 00DAF    2500007F A   MMSIO0   SLS,0    -1                MAKE DA(IOCDW)
     4138   01 00DB0    4C640000 A            SIO,6    0,2                DO READ-UNIT SIO
     4139   01 00DB1    69C00DE8              BCS,12   MMSFR               SKIP IF SIO FAILURE

     4141   01 00DB2    48201AD7              EOR,2    BIT+31            MAKE WRITE-UNIT ADDRESS
     4142   01 00DB3    20000001 A            AI,0     1                  POINT TO NEXT DA(IOCDW)
     4143   01 00DB4    4C640000 A            SIO,6    0,2                 DO WRITE-UNIT SIO
     4144   01 00DB5    69C00DEA              BCS,12   MMSFW                SKIP IF SIO FAILURE

     4146   01 00DB6    49801A0D              OR,8     BUSY              SET DEVICE BUSY
     4147   01 00DB7    4B801A2A              AND,8    NERROR             CLEAR ERROR BIT
     4148   01 00DB8    68000DBF              B        MMXITN              AND EXIT NORMALLY
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   84
A    4150         01 00DB9           MMXITE   EQU      %                 ERROR EXIT (OVERRUN-WAIT)
     4151   01 00DB9    4B801A0E              AND,8    NBUSY              CLEAR BUSY
     4152   01 00DBA    49801A29              OR,8     ERROR               SET ERROR BIT
     4153   01 00DBB    68000DBF              B        MMXITN               AND OTHERWISE NORMAL EXIT

     4155         01 00DBC           MMXITI   EQU      %                 IDLE EXIT (WILL NEED BUFFER)
     4156   01 00DBC    6AF00ECC              BAL,15   FORCEPUT           MARK BUFFER BAD AND RETURN

     4158         01 00DBD           MMXITR   EQU      %                 IDLE EXIT (GOES NEXT TICK)
     4159   01 00DBD    4B801A0E              AND,8    NBUSY             DEVICE IDLE
     4160   01 00DBE    4B801A2A              AND,8    NERROR             CLEAR ERROR BIT

     4162         01 00DBF           MMXITN   EQU      %                 NORMAL EXIT
     4163   01 00DBF    55823003              STH,8    CT:CS,1            SAVE CONTROLLER STATE
     4164   01 00DC0    55922FF9              STH,9    CT:OPS,1            SAVE OPERATIONAL STATE
     4165   01 00DC1    E8002BCF              B        *RETURNC          RETURN TO THE I/O SYSTEM

     4167         01 00DC2           MMRTY    EQU      %                 SOFTWARE TIMEOUT ENTRY
     4168   01 00DC2    35F02BCF              STW,15   RETURNC

     4170   01 00DC3    48201AD7              EOR,2    BIT+31            HIO WRITE UNIT
     4171   01 00DC4    4F040000 A            HIO,0    0,2                READ UNIT GETS IT LATER
     4172   01 00DC5    48201AD7              EOR,2    BIT+31

     4174   01 00DC6    6AF00E4D              BAL,15   TIMEOUT           SIGNAL TIMEOUT
     4175   01 00DC7    68000DBC              B        MMXITI             AND EXIT IDLE

     4177         01 00DC8           MMRGO    EQU      %                 ENTRY TO RESTART I/O
     4178   01 00DC8    35F02BCF              STW,15   RETURNC

     4180   01 00DC9    6AF00D7F              BAL,15   MMHIO             TERMINATE ALL CURRENT I/O
     4181   01 00DCA    32023035              LW,0     CT:COM,1           FETCH WA(IOCDW)
     4182   01 00DCB    68000DAA              B        MMSIO               AND SIMPLY START I/O
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   85
A    4184         01 00DCC           MMRDE    EQU      %                 ERROR DETECTED AT AIO
     4185   01 00DCC    35F02BCF              STW,15   RETURNC

     4187   01 00DCD    6AF00D7F              BAL,15   MMHIO             TERMINATE ALL CURRENT I/O

     4189   01 00DCE    12E02BF2              LD,14    TIOR              SAVE USABLE I/O
     4190   01 00DCF    35F23094              STW,15   CT:SENSE,1         STATUS FOR ACTUAL
     4191   01 00DD0    35F23116              STW,15   CT:SENSE3,1         UNIT IN ERROR AS
     4192   01 00DD1    35E23102              STW,14   CT:SENSE2,1          FULL SENSE INFORMATION

     4194   01 00DD2    32F02BF0              LW,15    AIOR
     4195   01 00DD3    35F230EE              STW,15   CT:SENSE1,1

     4197   01 00DD4    32B02BF3              LW,11    TIORU1            CHECK FOR I/O MEMORY
     4198   01 00DD5    31B01B19              CW,11    Y0028              PARITY FAILURE
     4199   01 00DD6    68400DD9              BAZ      MMRDE1              AND SKIP IF NORMAL ERROR

     4201   01 00DD7    6AF00E20              BAL,15   IOPARITY          SIGNAL PARITY ERROR
     4202   01 00DD8    68000DBC              B        MMXITI             EXIT IDLE

     4204         01 00DD9           MMRDE1   EQU      %
     4205   01 00DD9    31B01B1A              CW,11    Y0014             CHECK FOR UNRECOVERABLE
     4206   01 00DDA    68400DDD              BAZ      MMRDE2             ERROR - SKIP IF OK

     4208   01 00DDB    6AF00E3C              BAL,15   IOUNRECV          SIGNAL UNRECOVERABLE ERROR
     4209   01 00DDC    68000DBC              B        MMXITI             EXIT IDLE

        1*        01 00DDD           MMRDE2   EQU      %                                                 *H02
     4212   01 00DDD    6AF00E3E              BAL,15   IORECV            SIGNAL RECOVERABLE ERROR
     4213   01 00DDE    68000DBC              B        MMXITI             AND EXIT IDLE

     4215         01 00DDF           MMWTE    EQU      %                 STATUS ERROR ON WRITE UNIT
     4216   01 00DDF    15E02BF2              STD,14   TIOR               SAVE TIO STATUS
     4217   01 00DE0    4EF40000 A            TDV,15   0,2                 GATHER AND SAVE TDV STATUS
     4218   01 00DE1    15F02BF1              STD,15   TDVRU1

     4220   01 00DE2    02200000 A            LCI      0                 SAVE REGISTERS
     4221   01 00DE3    2B002DA4              STM,0    PREREGS
     4222   01 00DE4    6AF00E85              BAL,15   POLL              INITIALIZE FOR ERROR LOG
     4223   01 00DE5    02200000 A            LCI      0
     4224   01 00DE6    2A002DA4              LM,0     PREREGS           RESTORE REGISTERS
     4225   01 00DE7    68000DCD              B        MMRDE+1            JOIN READ-ERROR LOGIC

     4227         01 00DE8           MMSFR    EQU      %                 SIO FAILURE ON THE READ UNIT
     4228   01 00DE8    6AF00E4F              BAL,15   SIOFAIL            SIGNAL SIO FAILURE
     4229   01 00DE9    68000DBC              B        MMXITI              EXIT IDLE

     4231         01 00DEA           MMSFW    EQU      %                 SIO FAILURE ON THE WRITE UNIT
     4232   01 00DEA    48201AD7              EOR,2    BIT+31             FORM READ-UNIT ADDRESS
     4233   01 00DEB    4F040000 A            HIO,0    0,2                 STOP I/O ON THE READ UNIT
     4234   01 00DEC    48201AD7              EOR,2    BIT+31               REFORM WRITE-UNIT ADDRESS
     4235   01 00DED    68000DE8              B        MMSFR             JOIN READ SIO FAILURE LOGIC

     4237         01 00DEE           MMSTR    EQU      %                 INITIALIZE ENTRY
     4238   01 00DEE    35F02BCF              STW,15   RETURNC

     4240   01 00DEF    22B0FFFC A            LI,11    X'FFFC'           MM MOVE IS SUBJECT
     4241   01 00DF0    4BB02BFB              AND,11   BUFSIZ             TO 4-BYTE RESTRICTION

     4243   01 00DF1    21900200 A            CI,9     XMODE2            LOOK FOR LP SIMULATION
     4244   01 00DF2    68400DF6              BAZ      MMSTR0             SKIP IF NORMAL LENGTHS

     4246   01 00DF3    31B00D4C              CW,11    MMLPRS            RESTRICT LENGTH OF BLOCK
     4247   01 00DF4    68200DF6              BLE      %+2
     4248   01 00DF5    32B00D4C              LW,11    MMLPRS

     4250         01 00DF6           MMSTR0   EQU      %
     4251   01 00DF6    32D0000B A            LW,13    11                POSITION BLOCK LENGTH
     4252   01 00DF7    30B01B14              AW,11    Y1C               READ FLAGS: ICE, HTE, IUE
     4253   01 00DF8    30D01B15              AW,13    Y0C               WRITE FLAGS: HTE, IUE

     4255   01 00DF9    32A01ABE              LW,10    BIT+6             X'02000000' READ ORDER-BYTE
     4256   01 00DFA    32C01ABF              LW,12    BIT+7             X'01000000' WRITE ORDER-BYTE

     4258   01 00DFB    32023035              LW,0     CT:COM,1          SAVE READ AND WRITE
     4259   01 00DFC    02200040 A            LCI      4                  IOCDWS IN COMMAND BUFFER
     4260   01 00DFD    ABA00000 A            STM,10   *0

     4262   01 00DFE    22000000 A            LI,0     0                 INITIALIZE POSITION
     4263   01 00DFF    3502300D              STW,0    CT:SEEK,1
     4264   01 00E00    68000D94              B        MMBUF1             MERGE WITH BUFFER LOGIC
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   86
A    4266                            *        NONEXISTING HANDLERS

     4268   01 00E01    E800000F A   NOHAN    B        *15
     4269   01 00E02    E800000F A            B        *15
     4270   01 00E03    E800000F A            B        *15
     4271   01 00E04    E800000F A            B        *15
     4272   01 00E05    E800000F A            B        *15
     4273   01 00E06    E800000F A            B        *15
     4274   01 00E07    E800000F A            B        *15
     4275   01 00E08    E800000F A            B        *15

     4277                            *        AUDITOR INTERFACE ROUTINES

     4279   01 00E09    02200000 A   PREAUD   LCI      0
     4280   01 00E0A    2B002DA4              STM,0    PREREGS

        2*  01 00E0B    33000001 A            MTW,0    1                 I/O INTERRUPT-RELATED           *H00
        3*  01 00E0C    68300E10              BEZ      PREAUD0            ERRORS HAVE NO CTX             *H00

     4281   01 00E0D    55823003              STH,8    CT:CS,1
     4282   01 00E0E    55922FF9              STH,9    CT:OPS,1
     4283   01 00E0F    7312306C              MTB,1    CT:SEV,1          INCREMENT ERROR COUNTER

        1*        01 00E10           PREAUD0  EQU      %                                                 *H00
     4285   01 00E10    33102EE2              MTW,1    SYSERRSP          UPDATE ERRORS, THIS PASS,
     4286   01 00E11    33102EE1              MTW,1    SYSERRST           AS WELL AS TOTAL

     4288   01 00E12    32202DA4              LW,2     PREREGS           GET CODE WORD
     4289   01 00E13    4B201AE5              AND,2    NOBITS+11
     4290   01 00E14    32302C66              LW,3     RETURNS           GET RETURN STACK POINTER
     4291   01 00E15    203FFFFF A            AI,3     -1
     4292   01 00E16    32460000 A            LW,4     0,3               GET PSW1
     4293   01 00E17    32560001 A            LW,5     1,3               GET PSW2
     4294   01 00E18    E800000F A            B        *15

     4296   01 00E19    02200000 A   POSTAUD  LCI      0
     4297   01 00E1A    2A002DA4              LM,0     PREREGS

        2*  01 00E1B    33000001 A            MTW,0    1                 I/O INTERRUPT-RELATED           *H00
        3*  01 00E1C    E8302BD2              BEZ      *RETURNF           ERRORS HAVE NO CTX             *H00

     4298   01 00E1D    52823003              LH,8     CT:CS,1
     4299   01 00E1E    52922FF9              LH,9     CT:OPS,1
     4300   01 00E1F    E8002BD2              B        *RETURNF
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   87
A    4302                            *        I/O PARITY ERROR REPORT ROUTINE

     4304   01 00E20    22085C80 A   IOPARITY LI,0     X'85C80'          ERROR TYPE
     4305   01 00E21    35F02BD2              STW,15   RETURNF
     4306   01 00E22    6AF00E09              BAL,15   PREAUD

     4308   01 00E23    126230C6              LD,6     CT:TIO,1          COMPUTE WA(IOCDW) AND
     4309   01 00E24    32C00006 A            LW,12    6                  VERIFY VALIDITY BEFORE
     4310   01 00E25    25C00001 A            SLS,12   1                   FETCHING IOCDW
     4311   01 00E26    4BC01AE4              AND,12   NOBITS+10

     4313   01 00E27    12801A50              LD,8     ZEROS             CLEAR IOCD REGISTERS
     4314   01 00E28    31C02EDE              CW,12    MEMSIZE           IF IOCD NOT IN AVAIL MEMORY
     4315   01 00E29    68100E35              BGE      IOPAR0            THEN DO NOT FETCH

     4317   01 00E2A    9280000C A            LD,8     *12               ELSE LOAD IOCD
     4318   01 00E2B    4B801AE1              AND,8    NOBITS+7           AND CLEAR ORDER BYTE

     4320   01 00E2C    38900007 A            SW,9     7                 ORIGINAL BC - CURRENT BC
     4321   01 00E2D    4B901AE9              AND,9    NOBITS+15

     4323   01 00E2E    30800009 A            AW,8     9                 STARTING LOC + DISPLACEMENT
     4324   01 00E2F    2580007E A            SLS,8    -2                BYTE TO WORD ADDRESS

     4326   01 00E30    B2900008 A            LW,9     *8                GET CONTENTS

     4328   01 00E31    33002C04              MTW,0    SIGMA9            SKIP FAULT LIGHT
     4329   01 00E32    69100E35              BLZ      %+3                SAMPLE IF NOT SIGMA 5/6/7

     4331   01 00E33    6CD00010 A            RD,13    X'10'             READ FAULT REGISTER
     4332   01 00E34    75D00008 A            STB,13   8                 PUT FAULTS INTO ADDRESS

     4334   01 00E35    32602DA6     IOPAR0   LW,6     PREREGS+2         GET DEVICE ADDRESS
     4335   01 00E36    55100006 A            STH,1    6                  MERGE WITH CTX

     4337   01 00E37    32723021              LW,7     CT:BUFAD,1        GET BUFFER ADDRESS

     4339   01 00E38    2210C808 A            LI,1     X'C808'           WILL LOOK LIKE AN MFI

     4341   01 00E39    30102D11     IOPAR1   AW,1     CODE
     4342   01 00E3A    6AF00255              BAL,15   AUDITOR
     4343   01 00E3B    68000E19              B        POSTAUD

     4345                            *        I/O UNRECOVERABLE AND RECOVERABLE ERROR REPORT

     4347   01 00E3C    22085CA0 A   IOUNRECV LI,0     X'85CA0'          UNRECOVERABLE ERROR
     4348   01 00E3D    68000E3F              B        IORECV+1

     4350   01 00E3E    22035C40 A   IORECV   LI,0     X'35C40'          RECOVERABLE ERROR FLAG
     4351   01 00E3F    35F02BD2              STW,15   RETURNF
     4352   01 00E40    6AF00E09              BAL,15   PREAUD
     4353   01 00E41    32402DA6              LW,4     PREREGS+2
     4354   01 00E42    32502BF1              LW,5     TDVRU1            GET TDV STATUS
     4355   01 00E43    12602BF2              LD,6     TIOR              FETCH TIO STATUS (AT AIO)

     4357   01 00E44    22108088 A   IORECV1  LI,1     X'8088'
     4358   01 00E45    32C00006 A            LW,12    6                 GET ADDRESS OF TIO
     4359   01 00E46    25C00001 A            SLS,12   1                 WORD ADDRESS
     4360   01 00E47    4BC01AE4              AND,12   NOBITS+10

     4362   01 00E48    12801A50              LD,8     ZEROS             CLEAR IOCD REGISTERS
     4363   01 00E49    31C02EDE              CW,12    MEMSIZE           IF IOCD NOT IN AVAIL MEMORY
     4364   01 00E4A    68100E4C              BGE      %+2               THEN DO NOT FETCH
     4365   01 00E4B    9280000C A            LD,8     *12               ELSE LOAD IOCD

     4367   01 00E4C    68000E39              B        IOPAR1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   88
A    4369                            *        SIO FAILURE REPORT ROUTINE

     4371   01 00E4D    22065B00 A   TIMEOUT  LI,0     X'65B00'          TIMEOUT IDENT
     4372   01 00E4E    68000E50              B        SIOFAIL1

     4374   01 00E4F    22075C20 A   SIOFAIL  LI,0     X'75C20'          SIO FAILURE IDENT
     4375   01 00E50    35F02BD2     SIOFAIL1 STW,15   RETURNF
     4376   01 00E51    6AF00E09              BAL,15   PREAUD
     4377   01 00E52    6AF00E85              BAL,15   POLL              GET STATUS FOR BUSY DEVICES

     4379   01 00E53    32402DA6              LW,4     PREREGS+2
     4380   01 00E54    4E580000 A            TDV,5    0,4               GET TDV STATUS
     4381   01 00E55    4F680000 A            HIO,6    0,4               CLEAR AND SAVE AS TIO STATUS

     4386   01 00E56    68000E44              B        IORECV1

     4388                            *        POSITION ERROR REPORT ROUTINE

     4390   01 00E57    220A5C00 A   POSITERR LI,0     X'A5C00'
     4391   01 00E58    35F02BD2              STW,15   RETURNF
     4392   01 00E59    6AF00E09              BAL,15   PREAUD
     4393   01 00E5A    6AF00E85              BAL,15   POLL              GET STATUS FOR BUSY DEVICES
     4394   01 00E5B    32102DA5              LW,1     PREREGS+1         RESTORE CTX IN REG.1
     4395   01 00E5C    32802DAA              LW,8     PREREGS+6         GET BUFFER ADDRESS
     4396   01 00E5D    32702DB1              LW,7     PREREGS+13
     4397   01 00E5E    32623094              LW,6     CT:SENSE,1
     4398   01 00E5F    3252300D              LW,5     CT:SEEK,1
     4399   01 00E60    32402DA6              LW,4     PREREGS+2
     4400   01 00E61    55100004 A            STH,1    4
     4401   01 00E62    22108508 A            LI,1     X'8508'           MESSAGE CONTROL
     4402   01 00E63    68000E39              B        IOPAR1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   89
A    4404                            *        HIO'S ALL BUSY DEVICES & CLEANS CT:CS & CT:BUFAD

     4406   01 00E64    22400000 A   SETNBUSY LI,4     0                 NO EXCLUSION
     4407   01 00E65    221FFFED A   SETNBSY0 LI,1     -CTSIZ+1
     4408   01 00E66    35102BE7              STW,1    CLASTI            SET NO BUFFERS SPREAD IND.
     4409   01 00E67    35102BE9              STW,1    DLAST             INHIBIT DEVICE BUFFERS
     4410   01 00E68    32102BEF              LW,1     COUNT
     4411   01 00E69    2237A120 A            LI,3     500000            1 SEC DELAY
     4412   01 00E6A    64300E6A              BDR,3    %                 DELAY
     4413   01 00E6B    31100004 A   SETNBSY1 CW,1     4                 EXCLUSION CONTROLLER
     4414   01 00E6C    68300E7C              BCR,3    SETNBSY5          YES
     4415   01 00E6D    22300010 A            LI,3     16                MAXIMUM NR OF DEV/CONT
     4416   01 00E6E    52223062              LH,2     CT:CA,1           CONTROLLER ADDRESS
     4417   01 00E6F    4F040000 A   SETNBSY2 HIO,0    0,2               HALT DEVICE
     4418   01 00E70    20200001 A            AI,2     1                 INC DEVICE ADDRESS
     4419   01 00E71    64300E6F              BDR,3    SETNBSY2
     4420   01 00E72    46323021              XW,3     CT:BUFAD,1        CLEAR BUFFER ADDRESS
     4421   01 00E73    68200E76              BCR,2    SETNBSY4          NO ADDRESS
     4422   01 00E74    22000018 A            LI,0     XCHEKT+XFRESHN
     4423   01 00E75    75060000 A            STB,0    0,3               FREE BUFFER
     4424   01 00E76    52823003     SETNBSY4 LH,8     CT:CS,1
     4425   01 00E77    4B801A20              AND,8    CLEAN
     4426   01 00E78    55823003              STH,8    CT:CS,1
     4427   01 00E79    52922FF9              LH,9     CT:OPS,1
     4428   01 00E7A    4B901A13              AND,9    NLOOP             RESET LOOP
     4429   01 00E7B    55922FF9              STH,9    CT:OPS,1
     4430   01 00E7C    64100E6B     SETNBSY5 BDR,1    SETNBSY1          DEC CTX
     4431   01 00E7D    72102ED0              LB,1     SYSMODE
     4432   01 00E7E    4B101AF2              AND,1    NOBITS+24         RESET FREEZE
     4433   01 00E7F    75102ED0              STB,1    SYSMODE
     4434   01 00E80    22100020 A            LI,1     X'20'
     4435   01 00E81    6D101200 A            WD,1     X'1200'           CLEAR I/O INTERRUPT LEVEL
     4436   01 00E82    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   90
A    4438                            *        POLL THE BUSY DEVICES

     4440   01 00E83    22E0004F A   HIOPOLL  LI,14    X'4F'             HIO
     4441   01 00E84    68000E86              B        POLL+1

     4443   01 00E85    22E0004D A   POLL     LI,14    X'4D'             TIO
     4444   01 00E86    75E00E93              STB,14   POLLER            SET I/O INSTRUCTION

     4446   01 00E87    22100000 A            LI,1     0
     4447   01 00E88    22300001 A            LI,3     1

     4449   01 00E89    52663003     POLL1    LH,6     CT:CS,3
     4450   01 00E8A    21608004 A            CI,6     XBUSY+XERROR      BUSY OR WAITING ON ERROR
     4451   01 00E8B    69400E8D              BANZ     POLL2             YES
     4452   01 00E8C    68000E96              B        POLL5

     4454   01 00E8D    21E0004F A   POLL2    CI,14    X'4F'             IS IT HIO POLL
     4455   01 00E8E    69300E91              BNE      POLL3             NO

     4457   01 00E8F    49601A29              OR,6     ERROR             SET ERROR FOR AUTO RESTART
     4458   01 00E90    55663003              STH,6    CT:CS,3

     4460   01 00E91    12801A50     POLL3    LD,8     ZEROS
     4461   01 00E92    52762FE5              LH,7     CT:DA,3           GET DEVICE ADDRESS

     4463   01 00E93    4D8E0000 A   POLLER   TIO,8    0,7
     4464   01 00E94    158630C6              STD,8    CT:TIO,3          SAVE I/O STATUS
     4465   01 00E95    20110000 A            AI,1     X'10000'          INCREMENT DEVICE COUNT

     4467   01 00E96    20300001 A   POLL5    AI,3     1                 INC CTX
     4468   01 00E97    31302BEF              CW,3     COUNT             DONE
     4469   01 00E98    68200E89              BCR,2    POLL1             NO

     4471   01 00E99    35102D11              STW,1    CODE
     4472   01 00E9A    E800000F A            B        *15               EXIT POLLER
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   91
A    4474                            ************************************************************************
     4475                            *                                                                      *
     4476                            *        BUFFER EXCHANGE ROUTINE                                       *
     4477                            *                                                                      *
     4478                            *        PUTBUF RELEASES A BUFFER FOR USE BY ANOTHER DEVICE            *
     4479                            *        GETBUF FINDS A BUFFER FOR THE REQUESTING DEVICE               *
     4480                            *                                                                      *
     4481                            *        REGISTER SETTINGS                                             *
     4482                            *                                                                      *
     4483                            *        0  1  2  3  4  5  6  7  8  9  10 11 12 13 14 15               *
     4484                            *           C  A  E  O           C  C     U                            *
     4485                            *        -  T  I  L  R  -  -  -  T  T     A  -  -  -  *                *
     4486                            *           X  O  X  D           :  :                                  *
     4487                            *                                C  O                                  *
     4488                            *                                S  P                                  *
     4489                            *                                   S                                  *
     4490                            *                                                                      *
     4491                            ************************************************************************

     4493                                     BOUND    8
     4494   01 00E9C    00000000 A   PUTXP    DATA     0
     4495   01 00E9D    00000000 A            DATA     0
     4496   01 00E9E    00000EA0              DATA     %+2
     4497   01 00E9F    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
     4498   01 00EA0    22100000 A            LI,1     0                 GET CPU CTX
     4499   01 00EA1    22A00001 A            LI,10    1                 FORCE CPU NOT TO SIGN BUF.
     4500   01 00EA2    6AF00EC2              BAL,15   PUTB2
     4501   01 00EA3    02000000 A            NOP      0
     4502   01 00EA4    0E000E9C              LPSD,0   PUTXP             RETURN

     4504   01 00EA5    32623021     PUTBUF   LW,6     CT:BUFAD,1        GET CURRENT BUFFER ADRS
     4505   01 00EA6    72A2305D              LB,10    CT:ORD,1
     4506   01 00EA7    21800020 A            CI,8     XNOBUF            HAS HE A BUFFER TO GIVE UP
     4507   01 00EA8    E940000F A            BANZ     *15               **REALLY NOT A POSITION ERROR**
     4508   01 00EA9    21900040 A            CI,9     XNCHECK           CHECKABLE
     4509   01 00EAA    69400EC2              BCS,4    PUTB2             NO
     4510   01 00EAB    32E02BFB              LW,14    BUFSIZ
     4511   01 00EAC    21E0000C A            CI,14    XHEADER           IS THERE A FULL HEADER
     4512   01 00EAD    69100EC2              BCS,1    PUTB2             NO
     4513   01 00EAE    21A00001 A            CI,10    1                 IS IT A READ ORDER
     4514   01 00EAF    68300EC2              BCR,3    PUTB2             NO-DONT CHECK POSITION BYTES
     4515   01 00EB0    72EC0001 A            LB,14    1,6               GET CARD PARSHSIZ
     4516   01 00EB1    68300EB4              BCR,3    PUTB0             NOT A CARD BUFFER
     4517   01 00EB2    21E0000C A            CI,14    XHEADER           DOES IT HAVE A HEADER
     4518   01 00EB3    69100EC2              BCS,1    PUTB2             NO

     4520   01 00EB4    2060000B A   PUTB0    AI,6     11                POINT TO POSITION BYTES
     4521   01 00EB5    22EFFFFC A            LI,14    -4

     4523   01 00EB6    72CC0000 A   PUTB1    LB,12    0,6
     4524   01 00EB7    25C00378 A            SCD,12   -8                SEND BYTE TO R 13
     4525   01 00EB8    206FFFFF A            AI,6     -1                COUNT DOWN
     4526   01 00EB9    65E00EB6              BIR,14   PUTB1             LOOP

     4528   01 00EBA    206FFFF9 A            AI,6     -7                POINT TO 1ST BYTE
     4529   01 00EBB    31D2300D              CW,13    CT:SEEK,1         POSITION ADDRESS
     4530   01 00EBC    68300EC2              BCR,3    PUTB2
     4531   01 00EBD    E800000F A            B        *15               **REAL POSITION ERROR**
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   92
A    4533   01 00EBE    32623021     PUT      LW,6     CT:BUFAD,1        GET BUFFER ADDRESS
     4534   01 00EBF    72A2305D              LB,10    CT:ORD,1
     4535   01 00EC0    21800020 A            CI,8     XNOBUF            HAS HE A BUFFER TO GIVE UP
     4536   01 00EC1    E940000F A            BCS,4    *15               NO

     4538   01 00EC2    35F02BD1     PUTB2    STW,15   RETURNE
     4539   01 00EC3    49801A19              OR,8     NOBUF             TURN ON NEEDS A BUFFER IND.
     4540   01 00EC4    72EC0000 A            LB,14    0,6
     4541   01 00EC5    21A00001 A            CI,10    1                 IS IT A WRITE ORDER
     4542   01 00EC6    69400EC8              BCS,4    %+2               YES-DONT SIGN BUFFER
     4543   01 00EC7    6AF00F3D              BAL,15   SIGNBUF2          SIGN BUFFER ON READ
     4544   01 00EC8    4BE01A1D              AND,14   NBUFBIZ           SET BUFFER NOT BUSY
     4545   01 00EC9    75EC0000 A            STB,14   0,6               RESTORE FLAGS
     4546   01 00ECA    33102BD1              MTW,1    RETURNE
     4547   01 00ECB    E8002BD1              B        *RETURNE          NORMAL EXIT

     4549   01 00ECC    35F02BD0     FORCEPUT STW,15   RETURND
     4550   01 00ECD    6AF00EBE              BAL,15   PUT
     4551   01 00ECE    E8002BD0              B        *RETURND
     4552   01 00ECF    49E01A1F              OR,14    FRESHN
     4553   01 00ED0    75EC0000 A            STB,14   0,6
     4554   01 00ED1    E8002BD0              B        *RETURND
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   93
A    4556                                     BOUND    8
     4557   01 00ED2    00000000 A   GETXP    DATA     0
     4558   01 00ED3    00000000 A            DATA     0
     4559   01 00ED4    00000ED6              DATA     %+2
     4561   01 00ED5    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED

     4562   01 00ED6    22100000 A            LI,1     0                 GET CPU CTX
     4563   01 00ED7    52823003              LH,8     CT:CS,1
     4564   01 00ED8    52922FF9              LH,9     CT:OPS,1
     4565   01 00ED9    22C00080 A            LI,12    XBUFBIZ

     4567   01 00EDA    22A00001 A            LI,10    1                 INITIALIZE TO WRITE
     4568   01 00EDB    73002ED9              MTB,0    PHASES
     4569   01 00EDC    68300EE1              BEZ      GETXP0            SKIP IF PHASE 0

        1*  01 00EDD    21802000 A            CI,8     XSORSS            SKIP IF CPU                     *H02
        2*  01 00EDE    69400EE0              BANZ     %+2                IS CURRENTLY SOURCE            *H02

     4577   01 00EDF    20C00048 A            AI,12    XFRESHN+XNCHECK   IF NOT, INHIBIT THESE

     4578   01 00EE0    22A00002 A            LI,10    2                 INITIALIZE TO READ

     4580   01 00EE1    75A2305D     GETXP0   STB,10   CT:ORD,1          SAVE ORDER
     4581   01 00EE2    32602BE8              LW,6     CLAST
     4582   01 00EE3    6AF00EED              BAL,15   GETBUF1
     4583   01 00EE4    0E000ED2              LPSD,0   GETXP

     4585         01 00EE5           GETBUF   EQU      %
     4586   01 00EE5    21800020 A            CI,8     XNOBUF            EXIT IF NO BUFFER NEEDED
     4587   01 00EE6    E840000F A            BAZ      *15               **NOT SAME AS NONE AVAILABLE**

     4589   01 00EE7    72A2305D              LB,10    CT:ORD,1          GET THE ORDER
     4590   01 00EE8    22C00082 A            LI,12    XBUFBIZ+XFORCE
     4591   01 00EE9    21A00001 A            CI,10    1                 WRITE ORDER
     4592   01 00EEA    68400EEC              BCR,4    %+2               NO-INHIBIT ON BUSY & FORCE
     4593   01 00EEB    20C00048 A            AI,12    XNCHECK+XFRESHN   YES-INHIBIT BAD BUFFER ALSO

     4595   01 00EEC    32602BE9              LW,6     DLAST
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   94
A    4597   01 00EED    35F02BD1     GETBUF1  STW,15   RETURNE
     4598   01 00EEE    69100F04              BLZ      GETB8             EXIT IF NO BUFFERS READY
     4599   01 00EEF    22D00002 A            LI,13    2                 PREPARE TO SCAN TWICE

     4601   01 00EF0    33000001 A            MTW,0    1                 SKIP IF GETTING
     4602   01 00EF1    68300EF6              BEZ      GETB2              BUFFER FOR THE CPU

     4604   01 00EF2    72F02ED0              LB,15    SYSMODE           SKIP IF USING ORIGINAL
     4605   01 00EF3    21F00008 A            CI,15    XNONEW             BUFFER ALLOCATION SCHEME
     4606   01 00EF4    69400EF6              BANZ     %+2                 ELSE CONTINUE FROM WHERE
     4607   01 00EF5    32623021              LW,6     CT:BUFAD,1           THIS DEVICE LEFT OFF

     4609   01 00EF6    31602ECF     GETB2    CW,6     ENDCORE           CHECK FOR BUFFER IN WINDOW
     4610   01 00EF7    68200EFA              BLE      %+3                SKIP IF INSIDE

     4612   01 00EF8    38602BFA              SW,6     BLKSIZ            GET NEXT BUFFER
     4613   01 00EF9    68000EF6              B        GETB2              AND CHECK AGAIN

     4615   01 00EFA    38602BFA              SW,6     BLKSIZ            GET NEXT BUFFER
     4616   01 00EFB    68200F00              BLEZ     GETB2A             AND RESCAN IF END-OF-MEMORY

     4618   01 00EFC    71CC0000 A            CB,12    0,6               CHECK FOR BUFFER BUSY
     4619   01 00EFD    69400EF6              BANZ     GETB2              AND IGNORE IF IT IS

     4621   01 00EFE    31602ECE              CW,6     STRTCORE          TEST FOR BOTTOM OF WINDOW
     4622   01 00EFF    68100F06              BGE      GETB3              SKIP IF INSIDE

     4624   01 00F00    32602BF9     GETB2A   LW,6     ENDBYT            NO-WRAP AROUND TO UPPER CORE
     4625   01 00F01    35602BE7              STW,6    CLASTI            SET MEMORY WRAPPED IND.
     4626   01 00F02    64D00EF6              BDR,13   GETB2

     4628   01 00F03    49801A19              OR,8     NOBUF             SET NO BUFFER FLAG
     4629   01 00F04    4B801A0E     GETB8    AND,8    NBUSY             SET CONTRLLER NOT BUSY
     4630   01 00F05    E8002BD1              B        *RETURNE          EXCEPTION EXIT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   95
A    4632   01 00F06    21100000 A   GETB3    CI,1     0                 LOOK FOR CPU
     4633   01 00F07    69300F0D              BNE      GETB3A             SKIP IF NOT

     4635   01 00F08    22C00048 A            LI,12    XFRESHN+XNCHECK   LOOK FOR BAD BUFFER -
     4636   01 00F09    71CC0000 A            CB,12    0,6                (CPU SOURCE OR PHASE 0)
     4637   01 00F0A    68400F0D              BAZ      GETB3A            SKIP OTHERWISE

     4639   01 00F0B    22A00001 A            LI,10    1                 FORCE A WRITE ORDER
     4640   01 00F0C    75A0305D              STB,10   CT:ORD             FOR THE CPU

     4642   01 00F0D    72EC0000 A   GETB3A   LB,14    0,6               GET BUFFER STATUS
     4643   01 00F0E    21A00001 A            CI,10    1                 WRITE
     4644   01 00F0F    68400F17              BCR,4    GETB4             NO
     4645   01 00F10    21E00010 A            CI,14    XCHEKT            TEST FOR CHECKED BUFFER
     4646   01 00F11    69400F14              BCS,4    GETB5             CHECKED
     4647   01 00F12    21900001 A            CI,9     XCHASE            DEV NEED CHEKT BUF
     4648   01 00F13    69400EF6              BCS,4    GETB2             YES-FIND ANOTHER

     4650   01 00F14    21A00001 A   GETB5    CI,10    1                 IS IT A READ ORDER
     4651   01 00F15    68400F17              BCR,4    %+2               YES-DONT SIGN BUFFER
     4652   01 00F16    6AF00F26              BAL,15   SIGNBUF           SIGN BUFFER ON WRITE

     4654   01 00F17    49E01A1C     GETB4    OR,14    BUFBIZ
     4655   01 00F18    75EC0000 A            STB,14   0,6
     4656   01 00F19    35623021              STW,6    CT:BUFAD,1

     4658   01 00F1A    21100000 A            CI,1     0                 CPU
     4659   01 00F1B    68300F20              BCR,3    GETB6             YES

     4661   01 00F1C    35602BE9              STW,6    DLAST
     4662   01 00F1D    4B801A1A              AND,8    NNOBUF            TURN OFF NEEDS A BUFF IND.

     4664   01 00F1E    33102BD1              MTW,1    RETURNE
     4665   01 00F1F    E8002BD1              B        *RETURNE

     4667   01 00F20    4BE01A27     GETB6    AND,14   NFORCE            TURN OFF FORCED CHECK
     4668   01 00F21    49E01A1E              OR,14    CHEKT
     4669   01 00F22    75EC0000 A            STB,14   0,6
     4670   01 00F23    35602BE8              STW,6    CLAST             SAVE LAST BUFFER ADDRESS
     4671   01 00F24    33100ED2              MTW,1    GETXP
     4672   01 00F25    0E000ED2              LPSD,0   GETXP
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   96
A    4674                            *        PUTS DEVICE SIGNATURE INTO BUFFER (R6=BA(BUFFER))

     4676   01 00F26    32C02BFB     SIGNBUF  LW,12    BUFSIZ            GET BUFSIZ
     4677   01 00F27    21C0000C A            CI,12    XHEADER           BUFFER HAVE A FULL HEADER
     4678   01 00F28    69100F38              BCS,1    SIGNBUF5          NO-DONT INSERT POSITION

     4680   01 00F29    72CC0001 A            LB,12    1,6               GET CS FROM BUFFER
     4681   01 00F2A    68300F2D              BCR,3    SIGNBUF0          NOT SIGNED YET
     4682   01 00F2B    21C0000C A            CI,12    XHEADER           IS CP < HEADER
     4683   01 00F2C    69100F38              BCS,1    SIGNBUF5          YES

     4685   01 00F2D    32C00006 A   SIGNBUF0 LW,12    6                 GET BUFFER ADDRESS
     4686   01 00F2E    20600003 A            AI,6     3
     4687   01 00F2F    22EFFFFD A            LI,14    -3
     4688   01 00F30    32D2300D              LW,13    CT:SEEK,1         GET POSITION

     4690   01 00F31    75CC0001 A   SIGNBUF1 STB,12   1,6               SIGN ADDRESS
     4691   01 00F32    75DC0002 A            STB,13   2,6               SIGN POSITION
     4692   01 00F33    25C00178 A            SLD,12   -8                DOUBLE RIGHT 8
     4693   01 00F34    206FFFFF A            AI,6    -1
     4694   01 00F35    65E00F31              BIR,14   SIGNBUF1
     4695   01 00F36    75DC0002 A            STB,13   2,6               SIGN P1
     4696   01 00F37    72EC0000 A            LB,14    0,6               GET BS

     4698   01 00F38    4BE01A2C     SIGNBUF5 AND,14   BADBUF            SAVE CHECKED, FRESHN, AND
     4699   01 00F39    33000001 A            MTW,0    1                  NCHECK BITS IF DEVICE IS CPU
     4700   01 00F3A    68300F3C              BEZ      %+2                 ELSE SAVE ONLY CHECKED BIT
     4701   01 00F3B    4BE01A1E              AND,14   CHEKT
     4702   01 00F3C    68000F3F              B        SIGNBUF3

     4704   01 00F3D    22E00042 A   SIGNBUF2 LI,14    XNCHECK+XFORCE    KEEP NO CHECK & FORCE BITS
     4705   01 00F3E    4BE00009 A            AND,14   9                 MERGE INTO BS

     4707   01 00F3F    20600001 A   SIGNBUF3 AI,6     1                 POINT TO CTX BYTE
     4708   01 00F40    751C0000 A            STB,1    0,6               CTX VALUE
     4709   01 00F41    20600001 A            AI,6     1
     4710   01 00F42    52D22FE5              LH,13    CT:DA,1           DEVICE ADDRESS
     4711   01 00F43    4BD01AF5              AND,13   NOBITS+27
     4712   01 00F44    75DC0000 A            STB,13   0,6               UNIT ADD
     4713   01 00F45    20600001 A            AI,6     1
     4714   01 00F46    75AC0000 A            STB,10   0,6               ORDER
     4715   01 00F47    206FFFFD A            AI,6     -3
     4716   01 00F48    E800000F A            B        *15

     4718                            *        RANDOM NUMBER GENERATOR

     4720   01 00F49    32702BE4     RANDOM   LW,7     SEED              GET VALUE
     4721   01 00F4A    2570000F A            SLS,7    15                PRIME SHIFT
     4722   01 00F4B    30702BE4              AW,7     SEED
     4723   01 00F4C    46702BE5              XW,7     K0                CHANGE CONSTANT
     4724   01 00F4D    30702BE5              AW,7     K0
     4725   01 00F4E    35702BE4              STW,7    SEED
     4726   01 00F4F    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   97
A    4728                            ************************************************************************
     4729                            *                                                                      *
     4730                            *        BACKGROUND USER TASK                                          *
     4731                            *                                                                      *
     4732                            *        EXECUTED MAPPED (128K ONE-TO-ONE) OR                          *
     4733                            *         UNMAPPED (REAL EXTENDED ADDRESSING)                          *
     4734                            *                                                                      *
     4735                            *        SYSTEM BUFFER TESTER AND DATA SPREADER                        *
     4736                            *                                                                      *
     4737                            *        ALL REGISTERS ARE USEABLE EXCEPT 6 (BUFFER ADDRESS)           *
     4738                            *                                                                      *
     4739                            *        2   - BYTE ADDRESS OF THE FIRST DATA BYTE                     *
     4740                            *        3   - WORD ADDRESS OF THE FIRST REFLECTED WORD                *
     4741                            *        4   - NUMBER OF REFLECTED BYTES                               *
     4742                            *        5   - NUMBER OF NON-REFLECTED BYTES                           *
     4743                            *        6   - CURRENT BUFFER ADDRESS FROM GET BUFFER SUBROUTINE       *
     4744                            *        7   - COUNT OF TOTAL WORDS IN BOTH REFLECTED BUFFERS          *
     4745                            *                                                                      *
     4746                            ************************************************************************

        2*        01 00F50           B17BOMB  EQU      %                 PORT-STYLE BOMBER               *H02

        4*  01 00F50    52803003              LH,8     CT:CS             GET CPU CONTROLLER STATE        *H02
        5*  01 00F51    49801A14              OR,8     BOMBING            ASSUME BOMBING                 *H02

        7*  01 00F52    52902FF9              LH,9     CT:OPS            GET CPU OPERATOR SELECT         *H02
        8*  01 00F53    21900080 A            CI,9     XBOMBF             SKIP IF FORCED BOMBING         *H02
        9*  01 00F54    69400F57              BANZ     B17BOMB3                                          *H02

       11*  01 00F55    21900040 A            CI,9     XBOMBA            SKIP IF AUTOMATIC               *H02
       12*  01 00F56    68400F5B              BAZ      B17BOMB2           BOMBING INHIBITED              *H02

       14*  01 00F57    21900100 A   B17BOMB3 CI,9     XBURST            SKIP IF CONTINUOUS              *H02
       15*  01 00F58    68400F5E              BAZ      B17BOMB1                                          *H02

       17*  01 00F59    33002BEA              MTW,0    BTIME             SKIP IF BURST WINDOW            *H02
       18*  01 00F5A    68100F5E              BGEZ     B17BOMB1           IS CURRENTLY OPEN              *H02

       20*  01 00F5B    48801A14     B17BOMB2 EOR,8    BOMBING           DROP BOMBING IN PROGRESS        *H02
       21*  01 00F5C    55803003              STH,8    CT:CS              UPDATE CPU CONTROLLER STATE    *H02
       22*  01 00F5D    E800000F A            B        *15                 EXIT BOMBER                   *H02

       24*  01 00F5E    55803003     B17BOMB1 STH,8    CT:CS             UPDATE CPU CONTROLLER STATE     *H02

       26*  01 00F5F    720030C1              LB,0     CT:SF             BECOMES BYTE INCREMENT          *H02
       27*  01 00F60    69300F62              BNEZ     %+2                DEFAULTED TO ONE               *H02
       28*  01 00F61    22000001 A            LI,0     1                                                 *H02
       29*  01 00F62    35002C1A              STW,0    B17TARGT                                          *H02

       31*  01 00F63    32E03021              LW,14    CT:BUFAD          COMPUTE BA(END OF BUFFER)       *H02
       32*  01 00F64    30E02BFB              AW,14    BUFSIZ                                            *H02

       34*  01 00F65    32103021              LW,1     CT:BUFAD          GET BA(BUFFER)                  *H02
       35*  01 00F66    20100008 A            AI,1     8                  AND SKIP OVER HEADER           *H02

       37*  01 00F67    022000C0 A            LCI      12                FETCH BOMBS                     *H02
       38*  01 00F68    2A200F88              LM,2     B17BOMBS                                          *H02

       40*  01 00F69    72020000 A   B17BOMB0 LB,0     0,1               FETCH BYTE                      *H02

       42*  01 00F6A    48000002 A            EOR,0    2                 ONE'S COMPLEMENTS               *H02
       43*  01 00F6B    75020000 A            STB,0    0,1                                               *H02
       44*  01 00F6C    48000002 A            EOR,0    2                                                 *H02
       45*  01 00F6D    75020000 A            STB,0    0,1                                               *H02

       47*  01 00F6E    75220000 A            STB,2    0,1               STORE ONE'S AND FETCH           *H02
       48*  01 00F6F    72220000 A            LB,2     0,1                                               *H02
       49*  01 00F70    72220000 A            LB,2     0,1                                               *H02
       50*  01 00F71    72220000 A            LB,2     0,1                                               *H02
       51*  01 00F72    72220000 A            LB,2     0,1                                               *H02

       53*  01 00F73    73120000 A            MTB,1    0,1               FAST READ/PARTIAL WRITE         *H02
       54*  01 00F74    73E20000 A            MTB,-2   0,1                                               *H02
       55*  01 00F75    73320000 A            MTB,3    0,1                                               *H02
       56*  01 00F76    73520000 A            MTB,5    0,1                                               *H02
       57*  01 00F77    73920000 A            MTB,-7   0,1                                               *H02

       59*  01 00F78    75320000 A            STB,3    0,1               PARTIAL WRITE                   *H02
       60*  01 00F79    75420000 A            STB,4    0,1                WITH TOGGLING DATA BITS        *H02
       61*  01 00F7A    75520000 A            STB,5    0,1                                               *H02
       62*  01 00F7B    75620000 A            STB,6    0,1                                               *H02
       63*  01 00F7C    75720000 A            STB,7    0,1                                               *H02
       64*  01 00F7D    75820000 A            STB,8    0,1                                               *H02
       65*  01 00F7E    75920000 A            STB,9    0,1                                               *H02
       66*  01 00F7F    75A20000 A            STB,10   0,1                                               *H02
       67*  01 00F80    75B20000 A            STB,11   0,1                                               *H02
       68*  01 00F81    75C20000 A            STB,12   0,1                                               *H02
       69*  01 00F82    75D20000 A            STB,13   0,1                                               *H02

       71*  01 00F83    75020000 A            STB,0    0,1               REPLACE ORIGINAL BYTE           *H02

       73*  01 00F84    30102C1A              AW,1     B17TARGT          INCREMENT BUFFER POINTER        *H02
       74*  01 00F85    3110000E A            CW,1     14                 LOOK FOR END OF BUFFER         *H02
       75*  01 00F86    69100F69              BL       B17BOMB0                                          *H02

       77*  01 00F87    E800000F A            B        *15                                               *H02

       79*        01 00F88           B17BOMBS EQU      %                 BOMBS TO DROP INTO MEMORY       *H02
       80*  01 00F88    FFFFFFFF A            DATA     -1,4,-9,8                                         *H02
            01 00F89    00000004 A
            01 00F8A    FFFFFFF7 A
            01 00F8B    00000008 A
       81*  01 00F8C    FFFFFFEF A            DATA     -17,16,-33,32                                     *H02
            01 00F8D    00000010 A
            01 00F8E    FFFFFFDF A
            01 00F8F    00000020 A
       82*  01 00F90    FFFFFFBF A            DATA     -65,64,-129,128                                   *H02
            01 00F91    00000040 A
            01 00F92    FFFFFF7F A
            01 00F93    00000080 A

        1*  01 00F94    32602BF6     STARTRU  LW,6     BUFSTRTW          TEST FULL WRITE                 *H01
        2*  01 00F95    25600002 A            SLS,6    2                  LOGIC WITH PE INJECTION        *H01
        3*  01 00F96    35603021              STW,6    CT:BUFAD            (NO ERROR DETECTED)           *H01

        5*  01 00F97    22100000 A            LI,1     0                 CPU INDEX                       *H01
        6*  01 00F98    52902FF9              LH,9     CT:OPS             OPERATIONAL STATE              *H01
        7*  01 00F99    6AF00D67              BAL,15   MFIMON              PE INJECTION                  *H01

        9*  01 00F9A    22A00000 A            LI,10    0                 CLEAR ALL AVAILABLE             *H01
     4749   01 00F9B    32602BF6              LW,6     BUFSTRTW           MEMORY TO ZERO
     4750   01 00F9C    38602EDF              SW,6     PMEMSIZE

     4752   01 00F9D    B5AC2EDF     CLRMEM   STW,10   *PMEMSIZE,6
     4753   01 00F9E    65600F9D              BIR,6    CLRMEM

        2*  01 00F9F    32602EE7              LW,6     REALTIME          SAVE TIME AT WHICH              *H02
        3*  01 00FA0    35602C1F              STW,6    BUFBEGIN           BUFFER ACTIVITY STARTS         *H02
     4754   01 00FA1    68000FA7              B        RUSER

     4756   01 00FA2    32603021     BUFFEROK LW,6     CT:BUFAD          RESTORE BUFFER ADDRESS
     4757   01 00FA3    52902FF9              LH,9     CT:OPS
     4758   01 00FA4    21904000 A            CI,9     XLOOP
     4759   01 00FA5    69400FAD              BCS,4    RUSER0            YES-KEEP BUFFER
     4760   01 00FA6    0F000E9C              XPSD,0   PUTXP

     4762   01 00FA7    73002ED9     RUSER    MTB,0    PHASES            IN PHASE 0 THE CPU
     4763   01 00FA8    68300FAB              BEZ      %+3                WILL ALWAYS BE SELECTED

     4765   01 00FA9    52902FF9              LH,9     CT:OPS            OTHERWISE HANG AROUND
     4766   01 00FAA    68100FA7              BGEZ     RUSER              UNTIL IT IS...

     4768   01 00FAB    0F000ED2              XPSD,0   GETXP             GET AN UNCHECKED BUFFER
     4769   01 00FAC    68000FA7              B        RUSER             NO BUFFERS READY

     4771   01 00FAD    35602C13     RUSER0   STW,6    BUFAD             SAVE STARTING ADDRESS
     4772   01 00FAE    33102C32              MTW,1    BUFFERS+0         INCREMENT BUFFERS PROCESSED

     4774   01 00FAF    22400000 A            LI,4     0
     4775   01 00FB0    12202C12              LD,2     BUFAD-1           GET BUFFES ADDRESSS
     4776   01 00FB1    35202C0E              STW,2    SUM1

        1*  01 00FB2    6AF00D67              BAL,15   MFIMON            PE INJECTION                    *H01

        3*  01 00FB3    32002C32              LW,0     BUFFERS+0         FORCE SPREADING IF              *H00
        4*  01 00FB4    31002C21              CW,0     BUFTOTAL           PROCESSED .LE. TOTAL           *H00
        5*  01 00FB5    6820117E              BLE      BUFSPRD             (ALWAYS PHASE 0)              *H00

     4781   01 00FB6    720C0000 A            LB,0     0,6               GET BUFFER STATUS
     4782   01 00FB7    21000048 A            CI,0     XFRESHN+XNCHECK
     4783   01 00FB8    68400FBD              BAZ      RUSER3             IF GOOD BUFFER - CHECK IT

     4785   01 00FB9    4B001A2B              AND,0    NBADBUF           ELSE SET BUFFER GOOD
     4786   01 00FBA    750C0000 A            STB,0    0,6                AND RESPREAD (CPU SOURCE)
     4787   01 00FBB    33102C33              MTW,1    BUFFERS+1           INCREMENT BUFFERS RESPREAD
     4788   01 00FBC    6800117E              B        BUFSPRD

        1*        01 00FBD           RUSER3   EQU      %                                                 *H01
        2*  01 00FBD    6AF00F50              BAL,15   B17BOMB           TEST FOR BOMB TARGETS           *H02

        4*  01 00FBE    12202C12              LD,2     BUFAD-1           RESTORE BOMB DAMAGE             *H02
        5*  01 00FBF    22400000 A            LI,4     0                                                 *H02
        6*  01 00FC0    52902FF9              LH,9     CT:OPS                                            *H02

        8*  01 00FC1    21900800 A            CI,9     XMODE0            SKIP IF DATA-ERROR              *H01
        9*  01 00FC2    68400FD4              BAZ      RUSER4             INJECTOR DISABLED              *H01

       11*  01 00FC3    72002ED7              LB,0     PASSES            SKIP IF PASS 5                  *H01
       12*  01 00FC4    21000005 A            CI,0     5                  (TEMPORARY)                    *H01
       13*  01 00FC5    68300FD4              BE       RUSER4                                            *H01

       15*  01 00FC6    6AF00F49              BAL,15   RANDOM            PICK RANDOM NUMBER              *H01

       17*  01 00FC7    25700010 A            SLS,7    16                EXTRACT BYTE 2                  *H01
       18*  01 00FC8    72700007 A            LB,7     7                                                 *H01

       20*  01 00FC9    31702BFB              CW,7     BUFSIZ            GET BUFFER SIZE                 *H01
       21*  01 00FCA    68200FCC              BLE      %+2                AND CONSTRAIN                  *H01
       22*  01 00FCB    32702BFB              LW,7     BUFSIZ                                            *H01

       24*  01 00FCC    21700008 A            CI,7     8                 GUARD AGAINST                   *H01
       25*  01 00FCD    68100FCF              BGE      %+2                HEADER MODIFICATION            *H01
       26*  01 00FCE    22700008 A            LI,7     8                                                 *H01

       28*  01 00FCF    32603021              LW,6     CT:BUFAD          GET BUFFER ADDRESS              *H01
       29*  01 00FD0    30600007 A            AW,6     7                                                 *H01

       31*  01 00FD1    72FC0001 A            LB,15    1,6               GET BUFFER BYTE                 *H01
       32*  01 00FD2    48F01AF1              EOR,15   NOBITS+23          INVERT IT                      *H01
       33*  01 00FD3    75FC0001 A            STB,15   1,6                 RESTORE IT                    *H01

       35*  01 00FD4    32603021     RUSER4   LW,6     CT:BUFAD          RESTORE BUFFER ADDRESS          *H01

       37*  01 00FD5    72002ED7              LB,0     PASSES                                            *H01
     4791   01 00FD6    21000005 A            CI,0     5                  AND SKIP TO CHECK BUFFER
     4792   01 00FD7    6930109F              BNE      SEXCHECK            IF NOT IN PASS 5

     4794   01 00FD8    725C0001 A            LB,5     1,6               GET CS BYTE
     4795   01 00FD9    68300FDC              BCR,3    RUSER2            NOT A CARD BUFFER
     4796   01 00FDA    215000E9 A            CI,5     233               INSTRUCTION BUFFER ON CARD
     4797   01 00FDB    691010FA              BCS,1    PARSHBUF          NO
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   98
A    4799   01 00FDC    32500006 A   RUSER2   LW,5     6
     4800   01 00FDD    2550007E A            SLS,5    -2                BYTE TO WORD ADD
     4801   01 00FDE    72002ED3              LB,0     SYSOP             IS SYSOP SET
     4802   01 00FDF    68300FE7              BCR,3    DECODEI           NO
     4803   01 00FE0    320A0003 A            LW,0     3,5               GET INSTRUCTION DESCRIPTOR
     4804   01 00FE1    25000078 A            SLS,0    -8                LOOK AT INSTRUCTION 2
     4805   01 00FE2    71002ED3              CB,0     SYSOP             IS IT SELECTED
     4806   01 00FE3    68300FE7              BCR,3    DECODEI           YES
     4807   01 00FE4    25000070 A            SLS,0    -16               LOOK AT INSTRUCTION 1
     4808   01 00FE5    71002ED3              CB,0     SYSOP             IS IT SELECTED
     4809   01 00FE6    69300FA2              BCS,3    BUFFEROK          NO-GET ANOTHER BUFFER

     4811   01 00FE7    720C0003 A   DECODEI  LB,0     3,6               GET OP CODE
     4812   01 00FE8    32200006 A            LW,2     6
     4813   01 00FE9    20200010 A            AI,2     XHEADER+4         POINT TO FIRST DATA WORD
     4814   01 00FEA    2520007E A            SLS,2    -2                MAKE INTO A WORD ADDRESS
     4815   01 00FEB    22300004 A            LI,3     4
     4816   01 00FEC    30300002 A            AW,3     2                 POINT AT M0
     4817   01 00FED    02200040 A            LCI      4                 GET R0
     4818   01 00FEE    2AC40000 A            LM,12    0,2
     4819   01 00FEF    2A840004 A            LM,8     4,2               GET ORIG SORC & DEST
     4820   01 00FF0    72702ED1              LB,7     DATASEL           DATA SELECTION BYTE
     4821   01 00FF1    21700080 A            CI,7     XMATH             MATH SELECTED
     4822   01 00FF2    68401008              BCR,4    NOTSFC            NO-CHECK FLOAT
     4823   01 00FF3    21000037 A            CI,0     X'37'             MW-DW BLOCK?
     4824   01 00FF4    69300FF9              BCS,3    NOTMWC            NO
     4825   01 00FF5    37C60000 A            MW,12    0,3               YES-R0*M0
     4826   01 00FF6    6A10109C              BAL,1    SAVEPR            SAVE PARTIAL RESULTS
     4827   01 00FF7    36C60000 A            DW,12    0,3               (R0*M0)/M0
     4828   01 00FF8    68001056              B        1STHALF           COMPARE R13=R0?

     4830   01 00FF9    21000057 A   NOTMWC   CI,0     X'57'             MH-DH BLOCK?
     4831   01 00FFA    69301000              BCS,3    NOTMHC            NO
     4832   01 00FFB    D7D00003 A            MH,13    *3                (R0*M0)
     4833   01 00FFC    6A10109C              BAL,1    SAVEPR            SAVE PARTIAL RESULTS
     4834   01 00FFD    D6D00003 A            DH,13    *3                (R0*M0)/R0
     4835   01 00FFE    4BD01AE9              AND,13   NOBITS+15         MAKE POSITIVE
     4836   01 00FFF    68001056              B        1STHALF           COMPARE R13=R0?

     4838   01 01000    21000024 A   NOTMHC   CI,0     X'24'             SF?
     4839   01 01001    69301008              BCS,3    NOTSFC            NO
     4840   01 01002    32460000 A            LW,4     0,3               GET SHIFT COUNT (RIGHT)
     4841   01 01003    A4C00004 A            SF,12    *4                SHIFT RIGHT
     4842   01 01004    6A10109C              BAL,1    SAVEPR            SAVE PARTIAL RESULTS
     4843   01 01005    3A460000 A            LCW,4    0,3               MAKE POSITIVE
     4844   01 01006    24C80100 A            SF,12    X'100',4          SHIFT LEFT
     4845   01 01007    68001056              B        1STHALF

     4847   01 01008    21700040 A   NOTSFC   CI,7     XFLOAT            FLOATING POINT SELECTED
     4848   01 01009    6840102B              BCR,4    NOTFMSC           NO-CHECK DECIMAL
     4849   01 0100A    2100001D A            CI,0     X'1D'             FAL/FSL?
     4850   01 0100B    69301010              BCS,3    NOTFALC           NO
     4851   01 0100C    9DC00003 A            FAL,12   *3                R0+M0
     4852   01 0100D    6A10109C              BAL,1    SAVEPR            SAVE PARTIAL RESULTS
     4853   01 0100E    9CC00003 A            FSL,12   *3                (R0+M0)-M0
     4854   01 0100F    6800101B              B        CDFLT

     4856   01 01010    2100003D A   NOTFALC  CI,0     X'3D'             FAS/FSS?
     4857   01 01011    69301016              BCS,3    NOTFASC           NO
     4858   01 01012    3DC60000 A            FAS,12   0,3               R0+M0
     4859   01 01013    6A10109C              BAL,1    SAVEPR            SAVE PARTIAL RESULTS
     4860   01 01014    3CC60000 A            FSS,12   0,3               (R0+M0)-M0
     4861   01 01015    68001025              B        CWFLT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE   99
A    4863   01 01016    2100001F A   NOTFASC  CI,0     X'1F'             FML/FDL?
     4864   01 01017    69301020              BCS,3    NOTFMLC           NO
     4865   01 01018    9FC00003 A            FML,12   *3                R0*M0
     4866   01 01019    6A10109C              BAL,1    SAVEPR            SAVE PARTIAL RESULTS
     4867   01 0101A    9EC00003 A            FDL,12   *3                (R0*M0)/M0
     4868   01 0101B    92800002 A   CDFLT    LD,8     *2
     4869   01 0101C    1880000C A            SD,8     12                R0'-R0
     4870   01 0101D    1B800008 A            LAD,8    8                 MAKE DIFFERENCE POSITIVE
     4871   01 0101E    11801B28              CD,8     0TO31             LOSS CAN'T BE>31
     4872   01 0101F    68001029              B        FLTCOMP

     4874   01 01020    2100003F A   NOTFMLC  CI,0     X'3F'             FMS/FDS?
     4875   01 01021    6930102B              BCS,3    NOTFMSC           NO
     4876   01 01022    3FC60000 A            FMS,12   0,3               R0*M0
     4877   01 01023    6A10109C              BAL,1    SAVEPR            SAVE PARTIAL RESULTS
     4878   01 01024    3EC60000 A            FDS,12   0,3               (R0*M0)/M0
     4879   01 01025    B2800002 A   CWFLT    LW,8     *2
     4880   01 01026    3880000C A            SW,8     12                R0'-R0
     4881   01 01027    3B800008 A            LAW,8    8                 MAKE POSITIVE
     4882   01 01028    2180001F A            CI,8     31                LOSS CAN'T BE >31
     4883   01 01029    68200FA2     FLTCOMP  BCR,2    BUFFEROK          ISN'T
     4884   01 0102A    6800105B              B        MATHERR

     4886   01 0102B    21700020 A   NOTFMSC  CI,7     XDECIMAL          DECIMAL SELECTED
     4887   01 0102C    6840105E              BCR,4    NOTUNPKC          NO-CHECK BYTE STRING
     4888   01 0102D    2100007C A            CI,0     X'7C'             DSA?
     4889   01 0102E    69301035              BCS,3    NOTDSAC           NO
     4890   01 0102F    32460000 A            LW,4     0,3               GET SHIFT COUNT
     4891   01 01030    FC000004 A            DSA      *4                +SHIFT FIRST
     4892   01 01031    6A10109C              BAL,1    SAVEPR            SAVE PARTIAL RESULTS
     4893   01 01032    3A460000 A            LCW,4    0,3               -SHIFT COUNT
     4894   01 01033    FC000004 A            DSA      *4                -SHIFT
     4895   01 01034    68001056              B        1STHALF

     4897   01 01035    2100007B A   NOTDSAC  CI,0     X'7B'             DM/DD?
     4898   01 01036    6930103D              BCS,3    NOTDMC            NO
     4899   01 01037    20300002 A            AI,3     2                 POINT AT EDO
     4900   01 01038    FB800003 A            DM,8     *3                R0*M0
     4901   01 01039    6A10109C              BAL,1    SAVEPR            SAVE PARTIAL RESULTS
     4902   01 0103A    FA800003 A            DD,8     *3                (R0*M0)/M0
     4903   01 0103B    4BD01B09              AND,13   YFFFFFF           CLEAN OFF SIGN
     4904   01 0103C    68001056              B        1STHALF

     4906   01 0103D    21000079 A   NOTDMC   CI,0     X'79'             DA/DS?
     4907   01 0103E    69301043              BCS,3    NOTDAC            NO
     4908   01 0103F    F9000003 A            DA,0     *3                R0+M0
     4909   01 01040    6A10109C              BAL,1    SAVEPR            SAVE PARTIAL RESULTS
     4910   01 01041    F8000003 A            DS,0     *3                (R0+M0)-M0
     4911   01 01042    68001056              B        1STHALF

     4913   01 01043    2100007F A   NOTDAC   CI,0     X'7F'             DST?
     4914   01 01044    69301047              BCS,3    NOTDSTC           NO
     4915   01 01045    7F0012DC              DST,0    INTCHKBF
     4916   01 01046    68001051              B        DCFLT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  100
A    4918   01 01047    2100007E A   NOTDSTC  CI,0     X'7E'             DL/DC?
     4919   01 01048    6930104D              BCS,3    NOTDLC            NO
     4920   01 01049    FE000003 A            DL,0     *3                LOAD DECA WITH M0(16 BYTES)
     4921   01 0104A    6A10109C              BAL,1    SAVEPR            SAVE PARTIAL RESULTS
     4922   01 0104B    FD000003 A            DC,0     *3                DECA=M0?
     4923   01 0104C    6800105A              B        MATHCHK

     4925   01 0104D    21000077 A   NOTDLC   CI,0     X'77'             UNPK/PACK?
     4926   01 0104E    6930105E              BCS,3    NOTUNPKC          NO
     4927   01 0104F    778012DC              UNPK,8   INTCHKBF
     4928   01 01050    768012DC              PACK,8   INTCHKBF
     4929   01 01051    02200040 A   DCFLT    LCI      4
     4930   01 01052    2A8012DC              LM,8     INTCHKBF          PICK UP PARTIAL RESULTS
     4931   01 01053    2B8012D8              STM,8    PARTIALR          SAVE PARTIAL RESULTS
     4932   01 01054    7D0012DC              DC,0     INTCHKBF          DEC ACC=DESTINATION
     4933   01 01055    6930105B              BCS,3    MATHERR
     4934   01 01056    91C00002 A   1STHALF  CD,12    *2                R12-R13=RE
     4935   01 01057    6930105B              BCS,3    MATHERR           NO
     4936   01 01058    20200002 A   SECHALF  AI,2     2                 POINT AT R14 AN R15 IN BUFR
     4937   01 01059    91E00002 A            CD,14    *2                R14-R15=R0?
     4938   01 0105A    68300FA2     MATHCHK  BCR,3    BUFFEROK          YES-PUTBUF
     4939   01 0105B    02200040 A   MATHERR  LCI      4                 RECOVER R0'
     4940   01 0105C    2A8012D8              LM,8     PARTIALR          PICK UP PARATIAL RESULTS
     4941   01 0105D    68001085              B        BYTERR

     4943   01 0105E    21700010 A   NOTUNPKC CI,7     XBYTE             BYTE STRING SELECTED
     4944   01 0105F    68400FA2              BCR,4    BUFFEROK          NO-GET ANOTHER BUFFER
     4945   01 01060    15A012DC              STD,10   INTCHKBF          PRESET THE DEST.
     4946   01 01061    21000061 A            CI,0     X'61'             MBS?
     4947   01 01062    6930106C              BCS,3    NOTMBSC
     4948   01 01063    32C00003 A            LW,12    3
     4949   01 01064    25C00002 A            SLS,12   2                 MAKE INTO BYTE ADDRESS
     4950   01 01065    12A0000C A            LD,10    12                SAVE R AND RU1
     4951   01 01066    61C00000 A            MBS,12   0
     4952   01 01067    12E012DC              LD,14    INTCHKBF          PICK UP PARTIAL RESULTS
     4953   01 01068    60A00000 A            CBS,10   0                 SOURCE=DESTINATION?
     4954   01 01069    69301085              BCS,3    BYTERR            BYTE STRING DONT MATCH
     4955   01 0106A    11C0000A A            CD,12    10                REG=REG'
     4956   01 0106B    68001084              B        BYTECHK

     4958   01 0106C    21000063 A   NOTMBSC  CI,0     X'63'             EBS?
     4959   01 0106D    69301075              BCS,3    NOTEBSC           NO
     4960   01 0106E    32C00006 A            LW,12    6                 GET ADDRESS OF SOURCE STRING
     4961   01 0106F    20C00024 A            AI,12    XHEADER+24        ONLY 4 BYTES IN SOURCE
     4962   01 01070    02200000 A            LCI      0                 START AT LEFTMOST NIBBLE
     4963   01 01071    63C00000 A            EBS,12   0
     4964   01 01072    12E012DC              LD,14    INTCHKBF          PICK UP RESULTS
     4965   01 01073    4BF01B0A              AND,15   YFFFF
     4966   01 01074    68001082              B        BYTECHK1

     4968   01 01075    32400003 A   NOTEBSC  LW,4     3
     4969   01 01076    25400002 A            SLS,4    2
     4970   01 01077    49C00004 A            OR,12    4
     4971   01 01078    21000040 A            CI,0     X'40'             TTBS?
     4972   01 01079    6930107E              BCS,3    NOTTBSC           NO
     4973   01 0107A    40C00000 A            TTBS,12  0
     4974   01 0107B    12E0000C A            LD,14    12                PICK UP PARTIAL RESULTS
     4975   01 0107C    4BE01B0E              AND,14   YFF               KEEP MASK
     4976   01 0107D    68001082              B        BYTECHK1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  101
A    4978   01 0107E    21000041 A   NOTTBSC  CI,0     X'41'             TBS
     4979   01 0107F    69300FA2              BCS,3    BUFFEROK          NO-GET ANOTHER BUFFER
     4980   01 01080    41C00000 A            TBS,12   0
     4981   01 01081    12E012DC              LD,14    INTCHKBF          PICK UP PARTIAL RESULTS
     4982   01 01082    20200002 A   BYTECHK1 AI,2     2                 POINT TO PRE DETERM RESULTS
     4983   01 01083    91E00002 A            CD,14    *2                PREDICTED DEST=ACTUAL DEST
     4984   01 01084    68300FA2     BYTECHK  BE       BUFFEROK          YES

     4986   01 01085    02200040 A   BYTERR   LCI      4
     4987   01 01086    2BC02C2A              STM,12   STATUS+8          SAVE STATUS REPORT
     4988   01 01087    2B802C2E              STM,8    STATUS+12
     4989   01 01088    73002ED9              MTB,0    PHASES            PHASE 0?
     4990   01 01089    68300FA2              BEZ      BUFFEROK          YES-DON'T CHECK BUFFER

        2*  01 0108A    0F00108C              XPSD,0   BYTERROR          ENTER INSTRUCTION ERROR MONITOR *H01

        4*  01 0108B    68000FA2              B        BUFFEROK          RETURN TO CHECKER               *H01

        6*                                    BOUND    8                                                 *H01
        7*  01 0108C    00000000 A   BYTERROR DATA     0                                                 *H01
        8*  01 0108D    00000000 A            DATA     0                                                 *H01
        9*  01 0108E    00001090              DATA     %+2                                               *H01
       10*  01 0108F    07810000 A            DATA     X'07810000'       INHIBITED, REAL EXTENDED        *H01

       12*  01 01090    0F000200              XPSD,0   PUSHS             SAVE ENVIRONMENT, RESET RP      *H01
       13*  01 01091    00000880 A            DATA     X'880'             (BECOMES INSTRUCTION ERROR IDENT)

     5001   01 01092    32602C13              LW,6     BUFAD
     5002   01 01093    32500006 A            LW,5     6                 GET BYTE ADD OF BUFFER
     5003   01 01094    2560007E A            SLS,6    -2                CONVERT TO WORD ADD
     5004   01 01095    02200080 A            LCI      8
     5005   01 01096    2A8C0004 A            LM,8     4,6               GET DATA FROM BUFFER
     5006   01 01097    2B802C22              STM,8    STATUS            PUT INTO STATUS BUFFER
     5007   01 01098    324C0003 A            LW,4     3,6               GET INSTRUCTION DESCRIPTOR
     5008   01 01099    22108022 A            LI,1     X'8022'
     5009   01 0109A    22288010 A            LI,2     X'88010'
     5010   01 0109B    68001166              B        DATAUD            TO THE AUDITOR

     5012   01 0109C    02200040 A   SAVEPR   LCI      4
     5013   01 0109D    2BC012D8              STM,12   PARTIALR          SAVE PARTIAL RESULTS
     5014   01 0109E    E8000001 A            B        *1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  102
A    5016   01 0109F    725C0001 A   SEXCHECK LB,5     1,6               CHECK CS BYTE FOR 0
     5017   01 010A0    693010FA              BNEZ     PARSHBUF          NO-MUST BE A CARD BUFFER

     5019   01 010A1    32502BFB              LW,5     BUFSIZ
     5020   01 010A2    35502BF7              STW,5    SIZE              SIZE OF BUFFER BEING TESTED
     5021   01 010A3    2150000C A            CI,5     XHEADER           BUFSIZ < HEADER
     5022   01 010A4    69101119              BCS,1    SMALLB2           YES-HANDLE AS SMALL BUFFER

     5024   01 010A5    2030000C A   RUSER1   AI,3     XHEADER           POINT TO FIRST DATA BYTE
     5025   01 010A6    205FFFF8 A            AI,5     -XHEADER+4        FORM BUFSIZ-XHEADER+4

     5027   01 010A7    6AF0111D              BAL,15   GENMC             DETERMINE BUFFER MODE

     5029   01 010A8    22700005 A            LI,7     5                 SETUP POINTER TO STATISTICS

     5031   01 010A9    31C0000D A            CW,12    13                M:C
     5032   01 010AA    693010AD              BNE      %+3

     5034   01 010AB    21C00000 A            CI,12    0                 M:0
     5035   01 010AC    683010B1              BE       SEXBF1

     5037   01 010AD    21D00000 A            CI,13    0
     5038   01 010AE    683010B0              BE       %+2
     5039   01 010AF    20700001 A            AI,7     1                 7=>M=M,C=1
     5040   01 010B0    20700001 A            AI,7     1                 6=>M=1,C=0

     5042   01 010B1    331E2C32     SEXBF1   MTW,1    BUFFERS,7         5=>M=0,C=0

     5044   01 010B2    36401AD4              DW,4     EIGHT
     5045   01 010B3    15402C14              STD,4    RESIDUAL
     5046   01 010B4    21500000 A            CI,5     0                 AT LEAST ONE PAIR OF REFLECTS
     5047   01 010B5    683010EF              BCR,3    BUFEND0           NO
     5048   01 010B6    30502C15              AW,5     REFLECT
     5049   01 010B7    35502C16              STW,5    2REFLECT
     5050   01 010B8    32502C15              LW,5     REFLECT
     5051   01 010B9    2520037E A            SCD,2    -2
     5052   01 010BA    25200202 A            SCS,2    2                 DIVIDE BY 4
     5053   01 010BB    32941127              LW,9     MASK1,2           CLIP UNWANTED BYTES
     5054   01 010BC    4A860000 A            LS,8     0,3               GET FIRST PARTIAL WORD
     5055   01 010BD    48901127              EOR,9    MASK1             REVERSE MASK
     5056   01 010BE    683010C0              BCR,3    %+2               DONT LOAD IF MASK IS ZERO
     5057   01 010BF    CA862C16              LS,8     *2REFLECT,3       GET LAST PARTIAL WORD
     5058   01 010C0    B8862C15              SW,8     *REFLECT,3        TEST EQUALITY
     5059   01 010C1    683010CF              BEZ      CVA1
     5060   01 010C2    6AF0112B              BAL,15   BUFERR

     5062   01 010C3    32000003 A   SIG5BUF  LW,0     3
     5063   01 010C4    2211FFFF A            LI,1     X'1FFFF'
     5064   01 010C5    470010CA              STS,0    SIG5A             SET FIRST LOOP WORD
     5065   01 010C6    30002C15              AW,0     REFLECT
     5066   01 010C7    470010CB              STS,0    SIG5B
     5067   01 010C8    205FFFFF A            AI,5     -1                CORRECT FOR 1 WORD EACH BUFF
     5068   01 010C9    682010E8              BCR,2    BUFEND            DONE IF R5 1 OR LESS

     5070   01 010CA    308A10CA     SIG5A    AW,8     %,5               STORED ADDRESS
     5071   01 010CB    388A10CB     SIG5B    SW,8     %,5
     5072   01 010CC    645010CA              BDR,5    SIG5A
     5073   01 010CD    683010E8              BEZ      BUFEND            TO CHKSUM
     5074   01 010CE    6AF0112B              BAL,15   BUFERR

     5076   01 010CF    32002C03     CVA1     LW,0     SIGMA5            IS IT A SIGMA 5
     5077   01 010D0    691010C3              BCS,1    SIG5BUF
     5078   01 010D1    20300001 A            AI,3     1
     5079   01 010D2    221FFFFF A            LI,1     -1
     5080   01 010D3    229FFFFF A            LI,9     -1
     5081   01 010D4    32202C15              LW,2     REFLECT
     5082   01 010D5    202FFFDF A            AI,2     -33
     5083   01 010D6    681010DF              BCR,1    CVA3              MORE THAN 32 WORDS

     5085   01 010D7    3A200002 A   CVA2     LCW,2    2                 2'S COMP OF REMAINING CNT
     5086   01 010D8    25140000 A            SLS,1    0,2               CORRECT CVA MASK
     5087   01 010D9    29060000 A            CVA,0    0,3               FIRST HALF
     5088   01 010DA    32900001 A            LW,9     1                 PUT SAME MASK IN R11
     5089   01 010DB    A9862C15              CVA,8    *REFLECT,3        SECOND HALF
     5090   01 010DC    31000008 A            CW,0     8                 ARE THEY EQUAL
     5091   01 010DD    683010E8              BE       BUFEND
     5092   01 010DE    6AF0112B              BAL,15   BUFERR

     5094   01 010DF    29060000 A   CVA3     CVA,0    0,3
     5095   01 010E0    A9862C15              CVA,8    *REFLECT,3        SECOND HALF
     5096   01 010E1    31000008 A            CW,0     8                 TEST A SET OF 32
     5097   01 010E2    683010E4              BE       CVA4              GOOD
     5098   01 010E3    6AF0112B              BAL,15   BUFERR
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  103
A    5100   01 010E4    20300020 A   CVA4     AI,3     32                UPDATE WORD COUNT
     5101   01 010E5    202FFFE0 A            AI,2     -32
     5102   01 010E6    681010DF              BCR,1    CVA3              LOOP
     5103   01 010E7    683010D7              BEZ      CVA2              LAST FULL 32 COUNT

     5105   01 010E8    21400000 A   BUFEND   CI,4     0                 ANY RESIDUAL
     5106   01 010E9    68300FA2              BE       BUFFEROK          NO

     5108   01 010EA    12202C12              LD,2     BUFAD-1
     5109   01 010EB    30302BF7              AW,3     SIZE
     5110   01 010EC    38302C14              SW,3     RESIDUAL
     5111   01 010ED    20300001 A            AI,3     1                 POINT TO LAST 3 BYTES OF REFLECT 2
     5112   01 010EE    20400003 A            AI,4     3                 CHECK 3 MORE BYTES

     5114   01 010EF    6AF0111D     BUFEND0  BAL,15   GENMC
     5115   01 010F0    15C02C10              STD,12   MODIFIER
     5116   01 010F1    72A60000 A            LB,10    0,3               GET THE BYTE

     5118   01 010F2    644010F4     BUFEND2  BDR,4    BUFEND3           DEC BYTE COUNT(RESIDUAL)
     5119   01 010F3    68000FA2              B        BUFFEROK

     5121   01 010F4    30A02C10     BUFEND3  AW,10    MODIFIER          BI+1=BI + MI
     5122   01 010F5    66D02C10              AWM,13   MODIFIER          MI+1=MI + C
     5123   01 010F6    20300001 A            AI,3     1                 INC BYTE ADDRESS
     5124   01 010F7    71A60000 A            CB,10    0,3               BYTE OK
     5125   01 010F8    683010F2              BE       BUFEND2           YES
     5126   01 010F9    6AF0112B              BAL,15   BUFERR            NO-GO TO ERROR ROUTINE

     5128   01 010FA    35502BF7     PARSHBUF STW,5    SIZE
     5129   01 010FB    215000E9 A            CI,5     233               PASS 5 CARD BUFFER
     5130   01 010FC    68100FA2              BCR,1    BUFFEROK          YES-SKIP IT
     5131   01 010FD    31502BFB              CW,5     BUFSIZ            CP > BUFSIZ
     5132   01 010FE    6920110A              BCS,2    PARSH2            YES
     5133   01 010FF    2150000C A            CI,5     XHEADER           CP < XHEADER
     5134   01 01100    69101119              BCS,1    SMALLB2           YES
     5135   01 01101    21500078 A            CI,5     120               CP =< A CARD (120 BYTES)
     5136   01 01102    682010A5              BCR,2    RUSER1            YES
     5137   01 01103    205FFFF8 A            AI,5     -XHEADER+4
     5138   01 01104    2550007F A            SLS,5    -1                CP-8/2
     5139   01 01105    4B501B11              AND,5    X7FFFC            POINT TO BYTE 0
     5140   01 01106    2030000C A   PARSH0   AI,3     XHEADER           POINT TO FIRST DATA BYTE
     5141   01 01107    25400120 A   PARSH1   SLD,4    32                SET RESIDUAL WITH CP-HEADER+4
     5142   01 01108    15402C14              STD,4    RESIDUAL          SET REFLECT = 0
     5143   01 01109    680010EF              B        BUFEND0

     5145   01 0110A    2150000C A   PARSH2   CI,5     XHEADER           CP < HEADER
     5146   01 0110B    69101118              BCS,1    SMALLB1           YES
     5147   01 0110C    32E02BFB              LW,14    BUFSIZ
     5148   01 0110D    21E0000C A            CI,14    XHEADER           BUFSIZ < HEADER
     5149   01 0110E    69100FA2              BCS,1    BUFFEROK          YES-NOTHING TO CHECK
     5150   01 0110F    205FFFF8 A            AI,5     -XHEADER+4
     5151   01 01110    2550007F A            SLS,5    -1                CP REFLECT IN BYTES
     5152   01 01111    4B501B11              AND,5    X7FFFC            POINT TO BYTE 0
     5153   01 01112    20500008 A            AI,5     XHEADER-4         1ST REFLECT + HEADER
     5154   01 01113    31502BFB              CW,5     BUFSIZ            CP REFLECT =< BUFSIZ
     5155   01 01114    68201116              BCR,2    %+2               YES
     5156   01 01115    32502BFB              LW,5     BUFSIZ
     5157   01 01116    205FFFF8 A            AI,5     -XHEADER+4
     5158   01 01117    68001106              B        PARSH0
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  104
A    5160   01 01118    32502BFB     SMALLB1  LW,5     BUFSIZ
     5161   01 01119    205FFFFF A   SMALLB2  AI,5     -1                CHECK BUFSIZ-1 BYTES
     5162   01 0111A    20300005 A            AI,3     5                 POINT TO FIRST DATA BYTE
     5163   01 0111B    33102C0E              MTW,1    SUM1              SET NO HEADER IND.
     5164   01 0111C    68001107              B        PARSH1

     5166   01 0111D    72B60000 A   GENMC    LB,11    0,3               GET 1ST BYTE
     5167   01 0111E    20300001 A            AI,3     1
     5168   01 0111F    72C60000 A            LB,12    0,3               GET 2ND BYTE
     5169   01 01120    20300001 A            AI,3     1
     5170   01 01121    72D60000 A            LB,13    0,3               GET 3RD BYTE
     5171   01 01122    203FFFFE A            AI,3     -2
     5172   01 01123    38D0000C A            SW,13    12                2ND MODIFIER
     5173   01 01124    38C0000B A            SW,12    11                1ST MODIFIER IN R12
     5174   01 01125    38D0000C A            SW,13    12                CONSTANT IN R13
     5175   01 01126    E800000F A            B        *15

     5177   01 01127    FFFFFFFF A   MASK1    DATA     X'FFFFFFFF'
     5178   01 01128    00FFFFFF A            DATA     X'FFFFFF'
     5179   01 01129    0000FFFF A            DATA     X'FFFF'
     5180   01 0112A    000000FF A            DATA     X'FF'
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  105
A    5182                            *        BUFFER ERROR FINDER ROUTINE

        1*  01 0112B    72802ED9     BUFERR   LB,8     PHASES            RETURN IF CAUGHT IN             *H01
        2*  01 0112C    68300FA2              BEZ      BUFFEROK           PHASE ZERO (NOT CHECKING)      *H01

        4*  01 0112D    0F001130              XPSD,0   BUFERROR          ENTER DATA ERROR MONITOR        *H01

        6*  01 0112E    68000FA2              B        BUFFEROK          RETURN TO CHECKER               *H01

        8*                                    BOUND    8                                                 *H01
        9*  01 01130    00000000 A   BUFERROR DATA     0                                                 *H01
       10*  01 01131    00000000 A            DATA     0                                                 *H01
       11*  01 01132    00001134              DATA     %+2                                               *H01
       12*  01 01133    07180000 A            DATA     X'07180000'       INHIBITED, REAL EXTENDED        *H01

       14*  01 01134    0F000200              XPSD,0   PUSHS             SAVE ENVIRONMENT, RESET RP      *H01
       15*  01 01135    00000580 A            DATA     X'580'             (BECOMES DATA ERROR IDENT)     *H01

     5196   01 01136    32602C13              LW,6     BUFAD
     5197   01 01137    32302C13              LW,3     BUFAD
     5198   01 01138    12402C14              LD,4     RESIDUAL
     5199   01 01139    20300001 A            AI,3     1
     5200   01 0113A    72160000 A            LB,1     0,3               CTX
     5201   01 0113B    20300001 A            AI,3     1
     5202   01 0113C    72060000 A            LB,0     0,3               UNIT ADDRESS

     5204   01 0113D    52423062              LH,4     CT:CA,1           ADD CONTROLLER ADDRESS
     5205   01 0113E    21400080 A            CI,4     X'80'             TEST MULTI-UNIT CONTROLLER
     5206   01 0113F    68401141              BAZ      %+2               NO-DONT ADD UNIT NUMBER
     5207   01 01140    30400000 A            AW,4     0

     5209   01 01141    55100004 A            STH,1    4                 MERGE CTX WITH DEV ADD
     5210   01 01142    203FFFFE A            AI,3     -2
     5211   01 01143    22E00000 A            LI,14    0                 PRESET POSITION=0
     5212   01 01144    20300005 A            AI,3     5
     5213   01 01145    33002C0E              MTW,0    SUM1              IS THERE A HEADER
     5214   01 01146    6930114E              BNEZ     BUFERR00          NO

     5216   01 01147    20300003 A            AI,3     3
     5217   01 01148    221FFFFC A            LI,1     -4

     5219   01 01149    72F60000 A   BUFERR0  LB,15    0,3               GET POSITION
     5220   01 0114A    25E00008 A            SLS,14   8
     5221   01 0114B    30E0000F A            AW,14    15                MERGE IN POSITION BYTES
     5222   01 0114C    20300001 A            AI,3     1
     5223   01 0114D    65101149              BIR,1    BUFERR0

     5225   01 0114E    6AF0111D     BUFERR00 BAL,15   GENMC             GENERATE MI & C
     5226   01 0114F    15C02C10              STD,12   MODIFIER
     5227   01 01150    3270000D A            LW,7     13                CONS INTO R7 BYTE 3
     5228   01 01151    22100002 A            LI,1     2
     5229   01 01152    75C20007 A            STB,12   7,1               MODIFIER INTO R7 BYTE 2
     5230   01 01153    22800000 A            LI,8     0                 SET ERROR COUNT=0
     5231   01 01154    35802C0E              STW,8    SUM1              ERROR ADDRESS
     5232   01 01155    21500000 A            CI,5     0                 SMALL BUFFER
     5233   01 01156    6830115C              BE       BUFERR2           YES-JUST CHECK RESIDUALS

     5235   01 01157    6AF0116C              BAL,15   BYTCHK            CHECK 1ST REFLECTION BUF
     5236   01 01158    32502C15              LW,5     REFLECT
     5237   01 01159    6AF0116C              BAL,15   BYTCHK            CHECK 2ND REFLECTION BUF
     5238   01 0115A    32C02C10              LW,12    MODIFIER          SAVE CURRENT MODIFIER
     5239   01 0115B    32B0000A A            LW,11    10                SAVE CURRENT BYTE

     5241   01 0115C    32502C14     BUFERR2  LW,5     RESIDUAL          ANY RESIDUAL
     5242   01 0115D    6830115F              BCR,3    %+2               NO
     5243   01 0115E    6AF0116D              BAL,15   BYTCHK+1          CHECK RESIDUAL OR CHKSUM BYTE
     5244   01 0115F    46602C0E              XW,6     SUM1              BUFFER ADDRESS
     5245   01 01160    32502C0E              LW,5     SUM1              ERROR BYTE ADDRESS
     5246   01 01161    3290000E A            LW,9     14                POSITION
     5247   01 01162    32102C13              LW,1     BUFAD             GET BUFFER ADDRESS
     5248   01 01163    20100003 A            AI,1     3
     5249   01 01164    72A20000 A            LB,10    0,1                THEN FETCH ORDER BYTE

     5251   01 01165    22108600 A            LI,1     X'8600'
     5252   01 01166    6AF00255     DATAUD   BAL,15   AUDITOR
     5253   01 01167    32602C13              LW,6     BUFAD
     5254   01 01168    720C0000 A            LB,0     0,6               STATUS BYTE
     5255   01 01169    49001A1F              OR,0     FRESHN            SET BUFFER BAD IND.
     5256   01 0116A    750C0000 A            STB,0    0,6
        1*  01 0116B    6800065B              B        RTCXIT2           LEAVE ERROR MONITOR             *H01
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  106
A    5259   01 0116C    25500002 A   BYTCHK   SLS,5    2
     5260   01 0116D    32A0000B A            LW,10    11                GET 1ST BYTE
     5261   01 0116E    35C02C10              STW,12   MODIFIER          INITIALIZE CURRENT MODIFIER
     5262   01 0116F    71A60000 A   BYTCHK2  CB,10    0,3               BI+1=BI+MI
     5263   01 01170    68301179              BCR,3    BYTCHK4           YES
     5264   01 01171    21800000 A            CI,8     0                 1ST ERROR
     5265   01 01172    69301178              BCS,3    BYTCHK3           NO
     5266   01 01173    22100001 A            LI,1     1
     5267   01 01174    75A20007 A            STB,10   7,1               PUT SHOULD BE IN R7 BYTE 1
     5268   01 01175    72060000 A            LB,0     0,3
     5269   01 01176    75000007 A            STB,0    7                 PUT IS INTO R7 BYTE 0
     5270   01 01177    35302C0E              STW,3    SUM1              SAVE ERROR BYTE ADDRESS
     5271   01 01178    20800001 A   BYTCHK3  AI,8     1                 INC ERROR COUNT
     5272   01 01179    30A02C10     BYTCHK4  AW,10    MODIFIER          BI+MI INTO BI+1
     5273   01 0117A    66D02C10              AWM,13   MODIFIER          MI+C INTO MI+1
     5274   01 0117B    20300001 A            AI,3     1                 INCREMENT BYTE ADDRESS
     5275   01 0117C    6450116F              BDR,5    BYTCHK2
     5276   01 0117D    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  107
A    5278                            ************************************************************************
     5279                            *                                                                      *
     5280                            *        DATA     SPREADER                                             *
     5281                            *                                                                      *
     5282                            *        THE DATA BUFFER CONTAINS THE FOLLOWING BYTE CONFIGURATION     *
     5283                            *                                                                      *
     5284                            *        8   CONTROL INFORMATION BYTES                                 *
     5285                            *        7   CHECK SUM BYTES                                           *
     5286                            *                                                                      *
     5287                            *        TWO EQUAL SIZE REFLECTED DATA AREAS OF VARIOUS SIZES          *
     5288                            *        THE LEFT OVER BYTES FROM AN INEQUALITY OF THE ABOVE           *
     5289                            *        THE LAST BYTE IS ADDED TO THE CHECK SUM                       *
     5290                            *                                                                      *
     5291                            ************************************************************************

     5293   01 0117E    72C02ED7     BUFSPRD  LB,12    PASSES
     5294   01 0117F    21C00005 A            CI,12    5                 PASS 5?
     5295   01 01180    693011A5              BCS,3    SEXBUF            NO
     5296   01 01181    32200006 A            LW,2     6
     5297   01 01182    20200010 A            AI,2     XHEADER+4         POINT TO FIRST DATA BYTE
     5298   01 01183    2520047E A            SAS,2    -2                MAKE A WORD ADDRESS
     5299   01 01184    32300006 A            LW,3     6                 GET BUFFAD
     5300   01 01185    2530047E A            SAS,3    -2                MAKE INTO WORD ADDRESS

     5302                            * SELECTOP- CHOOSES TYPE OF BUFFER TO BE GENERATED AUTOMATICALLY
     5303                            * STANDARD SEX BUFFER OR ARITHMETIC BUFFERS SUCH AS:
     5304                            * MATH(STANDARD ARITHMETIC),FLOATING(LONG AND SHORT),DECIMAL
     5305                            * AND BYTE STRING(INCLUDES EBS IF DEC OPT AVAILABLE).

     5307   01 01186    72C02ED1              LB,12    DATASEL           GET DATA SELECTIONS
     5308   01 01187    731012E6              MTB,1    OPSX              INCREMENT OP CODE INDEX
     5309   01 01188    727012E6              LB,7     OPSX
     5310   01 01189    21700003 A   MATHAVL  CI,7     FLOATX            COMPARE WITH FLOAT OP CODE DISP.
     5311   01 0118A    6810118E              BCR,1    FLOTAVL
     5312   01 0118B    21C00080 A            CI,12    X'80'             MATH AVAILABLE
     5313   01 0118C    694011E8              BCS,4    MATHG             YES
     5314   01 0118D    22700003 A            LI,7     FLOATX
     5315   01 0118E    21700007 A   FLOTAVL  CI,7     DECX              COMP. WITH DEC. OP CODE DISP.
     5316   01 0118F    68101193              BCR,1    DECAVL
     5317   01 01190    21C00040 A            CI,12    X'40'             FLOAT AVAILABLE
     5318   01 01191    694011FC              BCS,4    FLOATG            YES
     5319   01 01192    22700007 A            LI,7     DECX
     5320   01 01193    2170000D A   DECAVL   CI,7     BYTEX
     5321   01 01194    68101198              BCR,1    BYTEAVL
     5322   01 01195    21C00020 A            CI,12    X'20'             DECIMAL AVAILABLE
     5323   01 01196    69401221              BCS,4    DECIMALG          YES
     5324   01 01197    2270000D A            LI,7     BYTEX
     5325   01 01198    21700010 A   BYTEAVL  CI,7     EBSX
     5326   01 01199    6920119F              BCS,2    ROPSX             RESET OP CODE INDEX
     5327   01 0119A    6930119D              BCS,3    NOTEBSG           NOT EBS INSTRUCTION
     5328   01 0119B    21C00020 A            CI,12    X'20'             DECIMAL AVAILABLE
     5329   01 0119C    6840119F              BCR,4    ROPSX             NOT AVAILABLE-RESET POINTER
     5330   01 0119D    21C00010 A   NOTEBSG  CI,12    X'10'             BYTE STRING AVAILABLE
     5331   01 0119E    6940125B              BCS,4    BYTEG             YES
     5332   01 0119F    22700000 A   ROPSX    LI,7     MATHX
     5333   01 011A0    757012E6              STB,7    OPSX
     5334   01 011A1    72C02ED1              LB,12    DATASEL           GET CPU CAPABILITY
     5335   01 011A2    21C000F0 A            CI,12    X'F0'             ANY INSTRUCTIONS SELECTED
     5336   01 011A3    684011E8              BCR,4    MATHG             N0-FORCE MATH BUFFER
     5337   01 011A4    68001189              B        MATHAVL
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  108
A    5339   01 011A5    12C01A50     SEXBUF   LD,12    ZEROS             SET MOD & CONS = 0
     5340   01 011A6    72E02ED3              LB,14    SYSOP
     5341   01 011A7    72B02ED1              LB,11    DATASEL

     5343   01 011A8    21B00007 A            CI,11    7
     5344   01 011A9    684011BD              BAZ      FIXED1            NO DATA MODES SELECTED

     5346   01 011AA    21B00008 A            CI,11    8                 USE SYSOP
     5347   01 011AB    694011BD              BANZ     FIXED1            YES

     5349   01 011AC    32A02ED2              LW,10    DATAMODE          CURRENT DATA MODE
     5350   01 011AD    32E02C05              LW,14    BYTE

     5352   01 011AE    25A00001 A   NEWMODE1 SLS,10   1
     5353   01 011AF    21A00007 A            CI,10    7                 IS IT ZERO
     5354   01 011B0    694011B2              BANZ     %+2               NOT ZERO
     5355   01 011B1    22A00001 A            LI,10    1

     5357   01 011B2    71A02ED1              CB,10    DATASEL           SELECTED IN DATASEL
     5358   01 011B3    684011AE              BAZ      NEWMODE1          NO-TRY AGAIN
     5359   01 011B4    35A02ED2              STW,10   DATAMODE
     5360   01 011B5    21A00001 A            CI,10    XDATFX            FIXED
     5361   01 011B6    694011BC              BANZ     FIXED             YES-M=0 C=0
     5362   01 011B7    21A00002 A            CI,10    XDATSQ            SEQUENTIAL
     5363   01 011B8    694011BB              BANZ     SEQUENT           YES-M=1 C=0

     5365   01 011B9    32C02C10              LW,12    MODIFIER
     5366   01 011BA    20D00001 A            AI,13    1                 NO -M=M C=1
     5367   01 011BB    20C00001 A   SEQUENT  AI,12    1                 CHANGE MODIFIER
     5368   01 011BC    20E00001 A   FIXED    AI,14    1                 CHANGE BYTE
     5369   01 011BD    15C02C10     FIXED1   STD,12   MODIFIER
     5370   01 011BE    35E02C05              STW,14   BYTE

     5372   01 011BF    22500002 A            LI,5     2                 SETUP INDEX TO STATISTICS
     5373   01 011C0    72402ED1              LB,4     DATASEL
     5374   01 011C1    21400008 A            CI,4     8
     5375   01 011C2    694011C9              BANZ     SEXBF0
     5376   01 011C3    21400007 A            CI,4     7
     5377   01 011C4    684011C9              BAZ      SEXBF0
     5378   01 011C5    32502ED2              LW,5     DATAMODE
     5379   01 011C6    21500004 A            CI,5     4
     5380   01 011C7    694011C9              BANZ     %+2
     5381   01 011C8    20500001 A            AI,5     1

     5383   01 011C9    331A2C32     SEXBF0   MTW,1    BUFFERS,5

     5385   01 011CA    22400000 A            LI,4     0
     5386   01 011CB    12202C12              LD,2     BUFAD-1           GET BUFFES ADDRESSS
     5387   01 011CC    32502BFB              LW,5     BUFSIZ
     5388   01 011CD    2150000C A            CI,5     XHEADER
     5389   01 011CE    681011D3              BCR,1    FULLBUF           THIS BUFFER HAS A HEADER

     5391   01 011CF    20300005 A            AI,3     5                 POINT TO FIRST DATA BYTE
     5392   01 011D0    205FFFFF A            AI,5     -1
     5393   01 011D1    25400120 A            SLD,4    32                5 INTO 4 & CLEAR 5
     5394   01 011D2    680011D6              B        SMALLBUF          SMALL BUFFER

     5396   01 011D3    2030000C A   FULLBUF  AI,3     XHEADER           POINT TO FIRST DATA BYTE
     5397   01 011D4    205FFFF8 A            AI,5     -XHEADER+4
     5398   01 011D5    36401AD4              DW,4     EIGHT             FORM RESIDUAL & REFLECT
     5399   01 011D6    15402C14     SMALLBUF STD,4    RESIDUAL
     5400   01 011D7    21500000 A            CI,5     0                 SMALL BUFFER
     5401   01 011D8    683011E2              BCR,3    STRODD            YES
     5402   01 011D9    25500002 A            SLS,5    2                 GET REFLECT IN BYTES
     5403   01 011DA    75E60000 A   STRLUP   STB,14   0,3               FIRST HALF
     5404   01 011DB    F5E62C15              STB,14   *REFLECT,3        SECOND HALF
     5405   01 011DC    30E02C10              AW,14    MODIFIER          B+M
     5406   01 011DD    66D02C10              AWM,13   MODIFIER          C+M TO M
     5407   01 011DE    20300001 A            AI,3     1
     5408   01 011DF    645011DA              BDR,5    STRLUP
     5409   01 011E0    21400000 A            CI,4     0                 RESIDUAL=0
     5410   01 011E1    68300FA2              BCR,3    BUFFEROK          YES
     5411   01 011E2    F5E62C15     STRODD   STB,14   *REFLECT,3
     5412   01 011E3    30E02C10              AW,14    MODIFIER
     5413   01 011E4    66D02C10              AWM,13   MODIFIER
     5414   01 011E5    20300001 A            AI,3     1
     5415   01 011E6    644011E2              BDR,4    STRODD
     5416   01 011E7    68000FA2              B        BUFFEROK          EXIT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  109
A    5418   01 011E8    6AF012AE     MATHG    BAL,15   GETOPDES          GET OP CODE DESCRIPTOR
     5419   01 011E9    720C0003 A            LB,0     3,6               GET OP CODE
     5420   01 011EA    21000024 A            CI,0     X'24'             SF?
     5421   01 011EB    693011F4              BCS,3    NOTSHIFT          NO
     5422   01 011EC    328012D4              LW,8     RAND#STK          GET A RANDOM #
     5423   01 011ED    4B801ADB              AND,8    NOBITS+1          NOT>3F
     5424   01 011EE    20800010 A            AI,8     16
     5425   01 011EF    72C012D5              LB,12    RAND#STK+1        GET RANDOM BYTE
     5426   01 011F0    4BC01AF6              AND,12   NOBITS+28         NOT>7
     5427   01 011F1    3AC0000C A            LCW,12   12                MAKE NEGATIVE
     5428   01 011F2    4BC01AF0              AND,12   NOBITS+22         MAKE A DOUBLE SHIFT
     5429   01 011F3    68001212              B        FLTSHRT-1         FILL REST OF BUF WITH ZEROS

     5431   01 011F4    22800000 A   NOTSHIFT LI,8     0
     5432   01 011F5    329012D4              LW,9     RAND#STK          R13
     5433   01 011F6    32C012D5              LW,12    RAND#STK+1        M
     5434   01 011F7    21000040 A            CI,0     X'40'             FULL WORD INST.
     5435   01 011F8    68401213              BCR,4    FLTSHRT           YES
     5436   01 011F9    4BC01B0A              AND,12   YFFFF             KEEP 1ST HALF OF M
     5437   01 011FA    4B901AE9              AND,9    NOBITS+15         KEEP 2ND HALF OF R13
     5438   01 011FB    68001213              B        FLTSHRT           FILL REST OF BUF WITH ZEROS
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  110
A    5440   01 011FC    6AF012AE     FLOATG   BAL,15   GETOPDES          GET OP CODE DESCRIPTOR
     5441   01 011FD    32C012D5              LW,12    RAND#STK+1        GET 2ND RAND WORD
     5442   01 011FE    6AF0121A              BAL,15   NRMLIZE
     5443   01 011FF    3280000C A            LW,8     12
     5444   01 01200    32C012D4              LW,12    RAND#STK          1ST RAND NUMBER
     5445   01 01201    6AF0121A              BAL,15   NRMLIZE
     5446   01 01202    22E00000 A            LI,14    0
     5447   01 01203    72F0000C A            LB,15    12                MAKE EXPONENT
     5448   01 01204    4BF01AF1              AND,15   NOBITS+23         GET ABSOLUTE VALUE
     5449   01 01205    36E012E8              DW,14    D98
     5450   01 01206    20E00010 A            AI,14    16
     5451   01 01207    727C0003 A            LB,7     3,6               GET OP CODE
     5452   01 01208    21700002 A            CI,7     2                 MUL/DIV INSTRUCTION?
     5453   01 01209    6840120D              BCR,4    NOTMULF           NO
     5454   01 0120A    25E00160 A            SLD,14   -32               R14 TO R15 & CLEAR R14
     5455   01 0120B    36E01B23              DW,14    X3E               FORCE EXP 0 TO ED
     5456   01 0120C    20E00021 A            AI,14    X'21'             FORCE EXP 21 TO 56
     5457   01 0120D    75E0000C A   NOTMULF  STB,14   12
     5458   01 0120E    75E00008 A            STB,14   8
     5459   01 0120F    727C0003 A            LB,7     3,6               GET OP CODE
     5460   01 01210    21700020 A            CI,7     X'20'             LONG OR SHORT
     5461   01 01211    69101215              BCS,1    FLOTGLNG          FLOATING LONG
     5462   01 01212    22900000 A            LI,9     0
     5463   01 01213    22D00000 A   FLTSHRT  LI,13    0
     5464   01 01214    68001217              B        FLOTSHRT

     5466   01 01215    329012D6     FLOTGLNG LW,9     RAND#STK+2        ADD EXTRA PRECISION
     5467   01 01216    32D012D7              LW,13    RAND#STK+3
     5468   01 01217    12A01A50     FLOTSHRT LD,10    ZEROS
     5469   01 01218    12E01A50              LD,14    ZEROS
     5470   01 01219    680012AB              B        SETBUF

     5472   01 0121A    22700002 A   NRMLIZE  LI,7     2                 ***THIS ROUTINE CHECKS 4 MOST
     5473   01 0121B    32D012E7              LW,13    NORMASK           SIGNIFICANT BITS OF FRACTION
     5474   01 0121C    45CE1AD7              CS,12    ZERO-1,7          PORTION. IF ALL ONES,RESETS
     5475   01 0121D    6930121F              BCS,3    %+2               BIT 11; OR SETS IT IF ALL
     5476   01 0121E    48C01AC3              EOR,12   BIT+11            ZEROES, TO INSURE NORMALIZED
     5477   01 0121F    6470121C              BDR,7    NRMLIZE+2         NUMBERS, +IVE OR -IVE
     5478   01 01220    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  111
A    5480   01 01221    6AF012AE     DECIMALG BAL,15   GETOPDES          GET OP CODE DESCRIPTOR
     5481   01 01222    727C0003 A            LB,7     3,6               GET OP CODE
     5482   01 01223    2170007C A            CI,7     X'7C'             DSA?
     5483   01 01224    6930122D              BCS,3    NOTDSA
     5484   01 01225    22000010 A            LI,0     16                GEN. 15 DEC DEGITS + A SIGN
     5485   01 01226    6AF012B7              BAL,15   PACKDEC
     5486   01 01227    728012D6              LB,8     RAND#STK+2
     5487   01 01228    4B801AF5              AND,8    NOBITS+27         FORCE NR 1 TO 16
     5488   01 01229    20800001 A            AI,8     1
     5489   01 0122A    22900000 A            LI,9     0
     5490   01 0122B    12A01A50              LD,10    ZEROS
     5491   01 0122C    68001257              B        DECENDBF

     5493   01 0122D    2170007B A   NOTDSA   CI,7     X'7B'             DM/DD?
     5494   01 0122E    69301239              BCS,3    NOTDM             NO
     5495   01 0122F    22000010 A            LI,0     16
     5496   01 01230    6AF012B7              BAL,15   PACKDEC
     5497   01 01231    15C012D8              STD,12   PARTIALR
     5498   01 01232    15E012DA              STD,14   PARTIALR+2
     5499   01 01233    6AF012B0              BAL,15   RANDOM#
     5500   01 01234    22000010 A            LI,0     16
     5501   01 01235    6AF012B7              BAL,15   PACKDEC
     5502   01 01236    128012D8              LD,8     PARTIALR
     5503   01 01237    12A012DA              LD,10    PARTIALR+2
     5504   01 01238    68001257              B        DECENDBF

     5506   01 01239    21700077 A   NOTDM    CI,7     X'77'             UNPK/PACK?
     5507   01 0123A    6930123D              BCS,3    NOTUNPK           NO
     5508   01 0123B    22000010 A            LI,0     16
     5509   01 0123C    68001247              B        DST1

     5511   01 0123D    2170007E A   NOTUNPK  CI,7     X'7E'             DL?
     5512   01 0123E    69301244              BCS,3    NOTDL             NO
     5513   01 0123F    22000020 A            LI,0     32
     5514   01 01240    6AF012B7              BAL,15   PACKDEC
     5515   01 01241    12801A50              LD,8     ZEROS
     5516   01 01242    12A01A50              LD,10    ZEROS
     5517   01 01243    680012AB              B        SETBUF

     5519   01 01244    2170007F A   NOTDL    CI,7     X'7F'             DST?
     5520   01 01245    6930124B              BCS,3    NOTDST            NO
     5521   01 01246    22000020 A            LI,0     32                GEN. 31 DEC. DIGITS + A SIGN
     5522   01 01247    6AF012B7     DST1     BAL,15   PACKDEC
     5523   01 01248    12801A50              LD,8     ZEROS
     5524   01 01249    12A01A50              LD,10    ZEROS
     5525   01 0124A    68001257              B        DECENDBF

     5527   01 0124B    22000020 A   NOTDST   LI,0     32
     5528   01 0124C    6AF012B7              BAL,15   PACKDEC
     5529   01 0124D    4BC01ADB              AND,12   NOBITS+1          AVOID OVERFLOW
     5530   01 0124E    15C012D8              STD,12   PARTIALR
     5531   01 0124F    15E012DA              STD,14   PARTIALR+2
     5532   01 01250    6AF012B0              BAL,15   RANDOM#
     5533   01 01251    22000020 A            LI,0     32
     5534   01 01252    6AF012B7              BAL,15   PACKDEC
     5535   01 01253    4BC01ADB              AND,12   NOBITS+1          AVOID OVERFLOW
     5536   01 01254    128012D8              LD,8     PARTIALR
     5537   01 01255    12A012DA              LD,10    PARTIALR+2
     5538   01 01256    25C0017C A            SLD,12   -4                GET RID OF UPPER DIGIT
     5539   01 01257    02200040 A   DECENDBF LCI      4
     5540   01 01258    2BC40000 A            STM,12   0,2
     5541   01 01259    2B840004 A            STM,8    4,2
     5542   01 0125A    68000FA2              B        BUFFEROK          PUT BUFFER
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  112
A    5544   01 0125B    6AF012AE     BYTEG    BAL,15   GETOPDES          GET OP CODE DESCRIPTOR
     5545   01 0125C    22000000 A            LI,0     0
     5546   01 0125D    350012EB              STW,0    MASKFILL          SET MASK/FILL TO ZERO
     5547   01 0125E    727012D4              LB,7     RAND#STK
     5548   01 0125F    4B701AF6              AND,7    NOBITS+28         FORCE BC 0 TO 7
     5549   01 01260    20700001 A            AI,7     1
     5550   01 01261    757012ED              STB,7    BYTCOUNT          SAVE BYTE COUNT
     5551   01 01262    727C0003 A            LB,7     3,6               GET OP CODE
     5552   01 01263    21700063 A            CI,7     X'63'             EBS?
     5553   01 01264    69301271              BCS,3    NOTEBS            NO
     5554   01 01265    22000008 A            LI,0     8                 GEN. 7 DEC. DIGITS + A SIGN
     5555   01 01266    750012ED              STB,0    BYTCOUNT
     5556   01 01267    6AF012B7              BAL,15   PACKDEC           BYTCOUNT-1 DEC. DIGITS + A SIGN
     5557   01 01268    3280000F A            LW,8     15                SAVE SOURCE STRING
     5558   01 01269    12C01A50              LD,12    ZEROS             CLEAR UPPER DECA TO ZEROS
     5559   01 0126A    7740000A A            UNPK,4   10                PREDICTED RESULTS
     5560   01 0126B    4BB01B0A              AND,11   YFFFF
     5561   01 0126C    32E012EC              LW,14    X2323             IMME ADDIATE SIGNIFICANCE STARTS
     5562   01 0126D    32F012EC              LW,15    X2323
     5563   01 0126E    32D00008 A            LW,13    8                 GET SOURCE STRING BACK
     5564   01 0126F    22800000 A            LI,8     0
     5565   01 01270    680012A8              B        SETRARU1+1        SET UP R AND RU1

     5567   01 01271    21700061 A   NOTEBS   CI,7     X'61'             MBS/CBS?
     5568   01 01272    69301277              BCS,3    TTBSOTBS          NO
     5569   01 01273    12A012D4              LD,10    RAND#STK          DESTINATION STRING=
     5570   01 01274    12C012D4              LD,12    RAND#STK          SOURCE STRING
     5571   01 01275    12E01A50              LD,14    ZEROS
     5572   01 01276    680012A7              B        SETRARU1

     5574   01 01277    12E012D4     TTBSOTBS LD,14    RAND#STK          TRANSLATION TABLE
     5575   01 01278    4BE012EA              AND,14   X0707             NO TRANSLATION BYTE INDEX
     5576   01 01279    4BF012EA              AND,15   X0707             OVER 7.
     5577   01 0127A    12C012D6              LD,12    RAND#STK+2        SOURCE STRING
     5578   01 0127B    12A01A50              LD,10    ZEROS
     5579   01 0127C    21700040 A            CI,7     X'40'             TTBS?
     5580   01 0127D    68301293              BCR,3    TTBS              YES
     5581   01 0127E    720012ED              LB,0     BYTCOUNT          GET BYTE COUNT
     5582   01 0127F    22800008 A            LI,8     8
     5583   01 01280    38800000 A            SW,8     0                 GIVES BYTES TO BE SHIFTED
     5584   01 01281    25800003 A            SLS,8    3                 GIVES BITS TO BE SHIFTED
     5585   01 01282    3A800008 A            LCW,8    8                 MAKE NEGATIVE
     5586   01 01283    4B801AF0              AND,8    NOBITS+22         MAKE SHIFT LOGICAL DOUBLE
     5587   01 01284    A5E00008 A            S,14     *8                RIGHT DOUBLE SHIFT
     5588   01 01285    720012ED              LB,0     BYTCOUNT          GET BYTE COUNT  BACK
     5589   01 01286    22800008 A            LI,8     8
     5590   01 01287    38800000 A            SW,8     0                 BYTE SHIFT COUNT
     5591   01 01288    25800003 A            SLS,8    3                 X8
     5592   01 01289    49801ACF              OR,8     BIT+23            MAKE A DOUBLE SHIFT
     5593   01 0128A    A5E00008 A            S,14     *8                SLD LEFT
     5594   01 0128B    728012ED              LB,8     BYTCOUNT
     5595   01 0128C    22100000 A            LI,1     0
     5596   01 0128D    7272000E A   TTBS4    LB,7     14,1              GET TRANS. BYTE INDEX
     5597   01 0128E    729E000C A            LB,9     12,7              GET TRANSLATION BYTE
     5598   01 0128F    7592000A A            STB,9    10,1              DESTINATION STRING
     5599   01 01290    20100001 A            AI,1     1
     5600   01 01291    6480128D              BDR,8    TTBS4
     5601   01 01292    680012A7              B        SETRARU1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  113
A    5603   01 01293    727012D4     TTBS     LB,7     RAND#STK          GET A RANDOM BYTE
     5604   01 01294    4B701AF6              AND,7    NOBITS+28         KEEP BETWEEN 0 & 7
     5605   01 01295    728E12D4              LB,8     RAND#STK,7        SELECT A MASK
     5606   01 01296    758012EB              STB,8    MASKFILL
     5607   01 01297    7580000A A            STB,8    10                PRESET R10
     5608   01 01298    22B00000 A            LI,11    0                 SET BYTE INDEX=0
     5609   01 01299    728012ED              LB,8     BYTCOUNT          GET BYTE COUNT(BC)
     5610   01 0129A    3270000B A   TESTNBYT LW,7     11
     5611   01 0129B    727E000E A            LB,7     14,7              GET TRANS. BYTE INDEX
     5612   01 0129C    729E000C A            LB,9     12,7              GET TRANSLATION BYTE
     5613   01 0129D    719012EB              CB,9     MASKFILL          ANY BITS MATHC
     5614   01 0129E    694012A2              BCS,4    TTBS3             YES-ALL DONE
     5615   01 0129F    20B00001 A            AI,11    1                 NO-INC INDEX
     5616   01 012A0    6480129A              BDR,8    TESTNBYT
     5617   01 012A1    729012EB              LB,9     MASKFILL          NO MATCHES-FORCE MASK
     5618   01 012A2    7580000B A   TTBS3    STB,8    11                BC-INC INTO R11
     5619   01 012A3    20B04B70              AI,11    BA(INTCHKBF)      DEST. BA + INC
     5620   01 012A4    728012EB              LB,8     MASKFILL
     5621   01 012A5    4B900008 A            AND,9    8
     5622   01 012A6    7590000A A            STB,9    10                PUT INTO DESTINATION STRING
     5623   01 012A7    328012EB     SETRARU1 LW,8        MASKFILL
     5624   01 012A8    22904B70              LI,9     BA(INTCHKBF)
     5625   01 012A9    720012ED              LB,0     BYTCOUNT
     5626   01 012AA    75000009 A            STB,0    9
     5627   01 012AB    02200080 A   SETBUF   LCI      8
     5628   01 012AC    2B840000 A            STM,8    0,2
     5629   01 012AD    68000FA2              B        BUFFEROK          PUT THE BUFFER

     5631   01 012AE    32DE12EE     GETOPDES LW,13    OPDESTAB,7        GET INSTRUCTION DESCRIPTOR
     5632   01 012AF    35D60003 A            STW,13   3,3               STORE INTO BUFFER
     5633   01 012B0    35F0000A A   RANDOM#  STW,15   10                SAVE RETURN
     5634   01 012B1    221FFFFC A            LI,1     -4                GET 4 WORDS
     5635   01 012B2    6AF00F49     GETRAND# BAL,15   RANDOM
     5636   01 012B3    49701AC7              OR,7     BIT+15            FORCE NON ZERO VALUE
     5637   01 012B4    357212D8              STW,7    RAND#STK+4,1
     5638   01 012B5    651012B2              BIR,1    GETRAND#
     5639   01 012B6    E800000A A            B        *10               RETURN TO CALLER
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  114
A    5641                            *PACKDEC- GENERATES R0-1 DECIMAL DIGITS AND A SIGN.
     5642                            *RESULTS ARE STORED IN R15-R12.

     5644   01 012B7    35F012E9     PACKDEC  STW,15   PACKDECR          SAVE RETURN ADDRESS
     5645   01 012B8    22704B50              LI,7     BA(RAND#STK)
     5646   01 012B9    12E01A50              LD,14    ZEROS
     5647   01 012BA    15E012DC              STD,14   INTCHKBF          CLEAR FIRST 4 WORDS ON INTCHKBF
     5648   01 012BB    15E012DE              STD,14   INTCHKBF+2        TO ZEROS
     5649   01 012BC    2500015F A            SLD,0    -33               RIGHT DOUBLE 33
     5650   01 012BD    201FFFFF A            AI,1     -1
     5651   01 012BE    720E0000 A   GETPACK# LB,0     0,7
     5652   01 012BF    210000A0 A            CI,0     X'A0'             M.S.D. < 10
     5653   01 012C0    691012C2              BCS,1    %+2               YES
     5654   01 012C1    200FFF60 A            AI,0     -X'A0'            FORCE M.S.D. 9 OR LESS
     5655   01 012C2    21000008 A            CI,0     8                 L.S.D. < 8
     5656   01 012C3    684012C5              BCR,4    %+2               YES
     5657   01 012C4    4B001B27              AND,0    0TO9+1            FORCE L.S.D. 8 OR 9
     5658   01 012C5    750212DC              STB,0    INTCHKBF,1
     5659   01 012C6    20700001 A            AI,7     1
     5660   01 012C7    641012BE              BDR,1    GETPACK#
     5661   01 012C8    750012DC              STB,0    INTCHKBF
     5662   01 012C9    2210000D A            LI,1     X'D'              MINUS SIGN
     5663   01 012CA    21000001 A            CI,0     1                 ODD NUMBER
     5664   01 012CB    694012CD              BCS,4    %+2               YES
     5665   01 012CC    2210000C A            LI,1     X'C'              PLUS SIGN
     5666   01 012CD    22700003 A            LI,7     3
     5667   01 012CE    751E12DC              STB,1    INTCHKBF,7
     5668   01 012CF    32F012DC              LW,15    INTCHKBF
     5669   01 012D0    32E012DD              LW,14    INTCHKBF+1
     5670   01 012D1    12C012DE              LD,12    INTCHKBF+2
     5671   01 012D2    E80012E9              B        *PACKDECR         RETURN TO CALLER
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  115
A    5673                            * DATA CONSTANTS AND TABLES FOR ARITHMETIC INSTRUCTION ADDITION TO SEX
     5674                                     BOUND    8
     5675   01 012D4                 RAND#STK RES      4                 AREA FOR STORAGE OF RAND. #'S
     5676   01 012D8                 PARTIALR RES      4
     5677   01 012DC                 INTCHKBF RES      4                 INTERNAL CHECK BUFFER

     5679                            * OP CODE TABLE

     5681         01 012E0           OPCODES  EQU      %
     5682         00000000           MATHX    EQU      BA(%)-BA(OPCODES)
     5683   01 012E0    37       A            DATA,1   X'37'             MW/DW
     5684   01 012E0 1  57       A            DATA,1   X'57'             MH/DH
     5685   01 012E0 2  24       A            DATA,1   X'24'             SF/SF
     5686         00000003           FLOATX   EQU      BA(%)-BA(OPCODES)
     5687   01 012E0 3  1D       A            DATA,1   X'1D'             FAL/FSL
     5688   01 012E1    1F       A            DATA,1   X'1F'             FML/FDL
     5689   01 012E1 1  3D       A            DATA,1   X'3D'             FAS/FSS
     5690   01 012E1 2  3F       A            DATA,1   X'3F'             FMS/FDS
     5691         00000007           DECX     EQU      BA(%)-BA(OPCODES)
     5692   01 012E1 3  77       A            DATA,1   X'77'             UNPK/PACK
     5693   01 012E2    79       A            DATA,1   X'79'             DA/DS
     5694   01 012E2 1  7B       A            DATA,1   X'7B'             DM/DD
     5695   01 012E2 2  7C       A            DATA,1   X'7C'             DSA/DSA
     5696   01 012E2 3  7E       A            DATA,1   X'7E'             DL/DC
     5697   01 012E3    7F       A            DATA,1   X'7F'             DST/DC
     5698         0000000D           BYTEX    EQU      BA(%)-BA(OPCODES)
     5699   01 012E3 1  61       A            DATA,1   X'61'             MBS/CBS
     5700   01 012E3 2  40       A            DATA,1   X'40'             TTBS
     5701   01 012E3 3  41       A            DATA,1   X'41'             TBS
     5702         00000010           EBSX     EQU      BA(%)-BA(OPCODES)
     5703   01 012E4    63       A            DATA,1   X'63'             EBS
     5704                                     BOUND    8
     5705   01 012E6    00000000 A   OPSX     DATA     0
     5706   01 012E7    00F00000 A   NORMASK  DATA     X'00F00000'
     5707   01 012E8    00000062 A   D98      DATA     98
     5708   01 012E9    00000000 A   PACKDECR DATA     0
     5709   01 012EA    07070707 A   X0707    DATA     X'07070707'
     5710   01 012EB    00000000 A   MASKFILL DATA     0
     5711   01 012EC    23232323 A   X2323    DATA     X'23232323'
     5712   01 012ED    00000000 A   BYTCOUNT DATA     0

     5714                            * OP CODE DESCRIPTOR TABLE

     5716   01 012EE    37C036C0 A   OPDESTAB DATA     X'37C036C0'       MW/DW DESCRIPTOR
     5717   01 012EF    57D056D0 A            DATA     X'57D056D0'       MH/DH DESCRIPTOR
     5718   01 012F0    24C024C0 A            DATA     X'24C024C0'       SF/SF DESCRIPTOR
     5719   01 012F1    1DC01CC0 A            DATA     X'1DC01CC0'       FAL/FSL DESCRIPTOR
     5720   01 012F2    1FC01EC0 A            DATA     X'1FC01EC0'       FML/FDL DESCRIPTOR
     5721   01 012F3    3DC03CC0 A            DATA     X'3DC03CC0'       FAS/FSS DESCRIPTOR
     5722   01 012F4    3FC03EC0 A            DATA     X'3FC03EC0'       FMS/FDS DESCRIPTOR
     5723   01 012F5    77007600 A            DATA     X'77007600'       UNPK/PACK DESCRIPTOR
     5724   01 012F6    79007800 A            DATA     X'79007800'       DA/DS DESCRIPTOR
     5725   01 012F7    7B007A00 A            DATA     X'7B007A00'       DM/DD DESCRIPTOR
     5726   01 012F8    7C007C00 A            DATA     X'7C007C00'       DSA/DSA DESCRIPTOR
     5727   01 012F9    7E007D00 A            DATA     X'7E007D00'       DL/DC DESCRIPTOR
     5728   01 012FA    7F007D00 A            DATA     X'7F007D00'       DST/DC DESCRIPTOR
     5729   01 012FB    61C060A0 A            DATA     X'61C060A0'       MBS/CBS DESCRIPTOR
     5730   01 012FC    40C00000 A            DATA     X'40C00000'       TTBS DESCRIPTOR
     5731   01 012FD    41C00000 A            DATA     X'41C00000'       TBS DESCRIPTOR
     5732   01 012FE    63C00000 A            DATA     X'63C00000'       EBS DESCRIPTOR
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  116
A    5734                            *        COMMUNICATIONS CONTROL PACKAGE

     5736   01 012FF    09F02C68     CCP      PSW,15   RETURN0S          PUSH RETURN INTO STACK
     5737   01 01300    69B00199              BCS,11   RESTART1          STACK OVERFLOW
     5738   01 01301    35302C8E              STW,3    BUFFER            SET PROMPT CHAR.

     5740   01 01302    31301AFC              CW,3     RUNPRMPT          CHECK FOR RUN MODE
     5741   01 01303    68301309              BE       CCPA

     5743   01 01304    22301341     CCPC     LI,3     CCP3              FIX TO RE-ENTER CCP
     5744   01 01305    35302BC6              STW,3    RETURN3            AFTER PROMPT/MESSAGE

     5746   01 01306    21200000 A            CI,2     0                 IS THERE A MESSAGE
     5747   01 01307    68301436              BCR,3    SETHALT           NO-ENTER EXEC
     5748   01 01308    680014B8              B        Q3ERR+1           YES-TYPE IT

     5750   01 01309    CD002EAF     CCPA     TIO,0    *COCDEV           IS THERE A COC
     5751   01 0130A    6880130F              BCR,8    CCP1              YES

     5753   01 0130B    72E02EB1              LB,14    COCSTATE          IS COC STATE 0
     5754   01 0130C    68301339              BEZ      CCP24             YES
     5755   01 0130D    22E00000 A            LI,14    0                 SET COCSTATE 0
     5756   01 0130E    68001313              B        CCP11

     5758   01 0130F    72E02EB1     CCP1     LB,14    COCSTATE          IS COCSTATE 0
     5759   01 01310    69301317              BCS,3    CCP2              NO
     5760   01 01311    6AF01394              BAL,15   TIOCOC2           START COC
     5761   01 01312    22E00003 A            LI,14    3                 SET COCSTATE 3
     5762   01 01313    2210003F A   CCP11    LI,1     X'3F'             START WITH LINE NR 3F
     5763   01 01314    75E22EB9              STB,14   COCL,1            SET COC LINE STATE
     5764   01 01315    64101314              BDR,1    %-1               D0 1 THRU 3F
     5765   01 01316    75E22EB9              STB,14   COCL,1            DO 0
     5766   01 01317    73802C44     CCP2     MTB,8    2SEC              2 SECONDS ELAPSED
     5767   01 01318    6930131A              BCS,3    %+2               NO
     5768   01 01319    49E01AD6              OR,14    BIT+30            FORCE COC LINE STATE CHECK
     5769   01 0131A    21E00002 A            CI,14    2                 ANY OUTPUT OR LINE ANSWER
     5770   01 0131B    68401339              BCR,4    CCP24             NO
     5771   01 0131C    48E01AD6              EOR,14   BIT+30            RESET COCSTATE 2 IND.
     5772   01 0131D    22100000 A            LI,1     0
     5773   01 0131E    75102EB3              STB,1    COCNR             SET USER COUNT = 0
     5774   01 0131F    72222EB9     CCP21    LB,2     COCL,1            GET COC LINE STATE
     5775   01 01320    68301336              BCR,3    CCP23             ITS 0
     5776   01 01321    6D103001 A            WD,1     X'3001'           TURN RECEIVER ON
     5777   01 01322    68101336              BCR,1    CCP23             RECEVIER WONT TURN ON
     5778   01 01323    21200003 A            CI,2     3                 IS COC LINE STATE = 3
     5779   01 01324    69301328              BCS,3    CCP22             NO
     5780   01 01325    6D103004 A            WD,1     X'3004'           TEST XMIT STATUS
     5781   01 01326    68201336              BCR,2    CCP23             XMITTER NOT CLEAR TO SEND
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  117
A    5783   01 01327    22200014 A            LI,2     X'14'             CHANGE STATE TO XMIT LOGON
     5784   01 01328    21200014 A   CCP22    CI,2     X'14'             XMITTING ANY MSG
     5785   01 01329    6840132F              BCR,4    CCP25             NO
     5786   01 0132A    72341FB3              LB,3     LOGONMSG-4,2      GET A BYTE OF THE MSG
     5787   01 0132B    6AF019EA              BAL,15   COCXMIT           TRANSMIT IT TO USER
     5788   01 0132C    49E01AD6              OR,14    BIT+30            SET COCSTAE 2 IND
     5789   01 0132D    20200001 A            AI,2     1                 INC COC LINE STATE
     5790   01 0132E    75222EB9              STB,2    COCL,1
     5791   01 0132F    212000C0 A   CCP25    CI,2     X'C0'             IS HE LOGGED ON
     5792   01 01330    68401336              BCR,4    CCP23             NO
     5793   01 01331    49E01AD1              OR,14    BIT+25            SET OBSERVER IND
     5794   01 01332    73102EB3              MTB,1    COCNR             INC COC NUMBER OF USERS
     5795   01 01333    72202EB0              LB,2     COCMX             LIMIT ON COC LINES
     5796   01 01334    71202EB3              CB,2     COCNR             LIMIT > NR OF LINES LOGGED ON
     5797   01 01335    68201339              BCR,2    CCP24             NO-DONT LOG ON ANY MORE

     5799   01 01336    20100001 A   CCP23    AI,1     1                 INC LINE NR
     5800   01 01337    21100040 A            CI,1     X'40'             DONE YET
     5801   01 01338    6910131F              BCS,1    CCP21             NO

     5803   01 01339    75E02EB1     CCP24    STB,14   COCSTATE
     5804   01 0133A    21E00080 A            CI,14    X'80'             COC CONTROL
     5805   01 0133B    69401347              BCS,4    CCP4              YES

     5807   01 0133C    6AF0135B              BAL,15   TIOTTY            ANY INPUT
     5808   01 0133D    68001356              B        CCP6              NO

     5810   01 0133E    6AF019D2              BAL,15   ECHO              XMIT TO OBSERVERS
     5811   01 0133F    02000000 A            NOP

     5813   01 01340    6AF013DB              BAL,15   EXEC              PROCESS INPUT

     5815   01 01341    32002C8E     CCP3     LW,0     BUFFER
     5816   01 01342    31001AFC              CW,0     RUNPRMPT          IN RUN MODE
     5817   01 01343    69301309              BNE      CCPA              NO

     5819   01 01344    08F02C68     CCPB     PLW,15   RETURN0S          PULL RETURN ADDRESS FROM STACK
     5820   01 01345    69E00199              BCS,14   RESTART1          STACK UNDERFLOW
     5821   01 01346    E800000F A            B        *15

     5823   01 01347    6AF0138A     CCP4     BAL,15   TIOCOC            ANY INPUT
     5824   01 01348    68001351              B        CCP5              NO

     5826   01 01349    71102EB2              CB,1     COCLINE           FROM CONTROL CONSULE
     5827   01 0134A    69301358              BNE      CCP61             NO

     5829   01 0134B    2130001B A            CI,3     ESCAPE            DO NOT ECHO AN ESCAPE
     5830   01 0134C    6830134F              BE       CCP41

     5832   01 0134D    6AF019B2              BAL,15   TTYOUT            XMIT TO ALL OBSERVERS
     5833   01 0134E    02000000 A            NOP

     5835   01 0134F    6AF013DB     CCP41    BAL,15   EXEC              TRANSLATE INPUT
     5836   01 01350    68001341              B        CCP3

     5838   01 01351    6AF0135B     CCP5     BAL,15   TIOTTY            ANY OBSERVER INPUT
     5839   01 01352    68001341              B        CCP3              NO

     5841   01 01353    6AF019D2              BAL,15   ECHO              XMIT TO EVERY ONE ELSE
     5842   01 01354    02000000 A            NOP
     5843   01 01355    68001341              B        CCP3

     5845   01 01356    6AF0138A     CCP6     BAL,15   TIOCOC            ANY OBSERVER INPUT
     5846   01 01357    68001341              B        CCP3              NO

     5848   01 01358    6AF019B2     CCP61    BAL,15   TTYOUT            XMIT TO EVERYONE ELSE
     5849   01 01359    02000000 A            NOP
     5850   01 0135A    68001341              B        CCP3
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  118
A    5852                            *        TESTS FOR LOCAL TTY ACCEPTABLE INPUT
     5853                            *        SKIP ON EXIT IF TRUE. R3 HAS INPUT CHAR.

     5855   01 0135B    CDC02EAE     TIOTTY   TIO,12   *TTYDEV
     5856   01 0135C    7400000E A            STCF     14                SAVE CC'S
     5857   01 0135D    6980137B              BCS,8    TTYOFF            NO ADDRESS RECOGNITION
     5858   01 0135E    68401361              BCR,4    TIOTTY1           TTY NOT BUSY
     5859   01 0135F    19C01B30              CLM,12   TTYOUTS           STILL DONING OUTPUT
     5860   01 01360    E890000F A            BCR,9    *15               YES

     5862   01 01361    19C01B2E     TIOTTY1  CLM,12   TTYINS            PREVIOUSLY DOING INPUT
     5863   01 01362    69901368              BCS,9    TIOTTY3           NO-RESTART IT
     5864   01 01363    4BD01AE9              AND,13   NOBITS+15         KEEP BYTE COUNT
     5865   01 01364    51D02BFD              CH,13    TTYBC             TTYBC = BYTE COUNT
     5866   01 01365    69101370              BCS,1    TIOTTY4           NO

     5868   01 01366    7030000E A   TIOTTY2  LCF      14                IS TTY BUSY
     5869   01 01367    E940000F A            BCS,4    *15               YES

     5871         01 01368           SIOTTY   EQU      %
     5872   01 01368    22000008 A   TIOTTY3  LI,0     TTYSIZ
     5873   01 01369    55002BFD              STH,0    TTYBC             INITIALIZE TTYBC
     5874   01 0136A    22000D03              LI,0     DA(TTYI)
     5875   01 0136B    CC002EAE              SIO,0    *TTYDEV           START TTY INPUT
     5876   01 0136C    CDD02EAE              TIO,13   *TTYDEV           GET STATUS
     5877   01 0136D    21D00008 A            CI,13    TTYSIZ            IS BYTE COUNT = TTYSIZ
     5878   01 0136E    6840136C              BCR,4    %-2               NO-WAIT TILL IT IS
     5879   01 0136F    E800000F A            B        *15

     5881   01 01370    5A102BFD     TIOTTY4  LCH,1    TTYBC
     5882   01 01371    72321A0A              LB,3     TTYBYTI+TTYSIZ/4,1 GET INPUT BYTE
     5883   01 01372    53F02BFD              MTH,-1   TTYBC             DEC TTYBC
     5884   01 01373    33002EB1              MTW,0    COCSTATE          COC CONTROL
     5885   01 01374    68101377              BCR,1    TIOTTY5           NO-TTY CONTROL

     5887   01 01375    73002C47              MTB,0    MSGMOD            SKIP IF NO MESSAGE
     5888   01 01376    68301378              BEZ      %+2                MODE CURRENTLY

     5890   01 01377    20F00001 A   TIOTTY5  AI,15    1                 ELSE SKIP ON RETURN

     5892   01 01378    51D02BFD              CH,13    TTYBC             TTYBC = BYTE COUNT
     5893   01 01379    68301366              BCR,3    TIOTTY2           YES-RESTART TTY INPUT
     5894   01 0137A    E800000F A            B        *15

     5896   01 0137B    33002EB1     TTYOFF   MTW,0    COCSTATE          COC CONTROL
     5897   01 0137C    E910000F A            BCS,1    *15               YES

     5899   01 0137D    22100000 A            LI,1     0

     5901   01 0137E    72022EB9     TTYOFF1  LB,0     COCL,1
     5902   01 0137F    21000040 A            CI,0     X'40'             IS HE LOGGED ON
     5903   01 01380    68101385              BCR,1    TTYOFF2           YES-GIVE HIM CONTROL
     5904   01 01381    20100001 A            AI,1     1
     5905   01 01382    21100040 A            CI,1     X'40'
     5906   01 01383    6910137E              BCS,1    TTYOFF1
     5907   01 01384    E800000F A            B        *15

     5909   01 01385    22000080 A   TTYOFF2  LI,0     X'80'             SET COC LINE STATE 80 (CONTROL)
     5910   01 01386    75022EB9              STB,0    COCL,1
     5911   01 01387    75002EB1              STB,0    COCSTATE          SET COCSTATE 80 (CONTROL)
     5912   01 01388    75102EB2              STB,1    COCLINE           SET COC CONTROL LINE NR
     5913   01 01389    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  119
A    5915                            *        TESTS FOR ACCEPTABLE COC INPUT
     5916                            *        SKIP ON EXIT IF TRUE. LINE NR IN R1 & CHAR IN R3.

     5918   01 0138A    72E02EB1     TIOCOC   LB,14    COCSTATE
     5919   01 0138B    E830000F A            BCR,3    *15               NO COC

     5921   01 0138C    CDD02EAF     TIOCOC0  TIO,13   *COCDEV
     5922   01 0138D    7400000C A            STCF     12                SAVE CC'S
     5923   01 0138E    698013D0              BCS,8    COCRST            REALLY RESET COC IF NOT THERE
     5924   01 0138F    4BD01AE9              AND,13   NOBITS+15         KEEP BYTE COUNT
     5925   01 01390    51D02BFC              CH,13    COCBC             COCBC = BYTE COUNT
     5926   01 01391    69101399              BCS,1    TIOCOC3           NO

     5928   01 01392    7030000C A   TIOCOC1  LCF      12                IS COC BUSY
     5929   01 01393    E940000F A            BCS,4    *15               YES

     5931         01 01394           SIOCOC   EQU      %
     5932   01 01394    22000010 A   TIOCOC2  LI,0     COCSIZ
     5933   01 01395    55002BFC              STH,0    COCBC             INITIALIZE COCBC
     5934   01 01396    22000D00              LI,0     DA(COC)
     5935   01 01397    CC002EAF              SIO,0    *COCDEV           START COC INPUT
     5936   01 01398    E800000F A            B        *15

     5938   01 01399    5A202BFC     TIOCOC3  LCH,2    COCBC
     5939   01 0139A    72341A06              LB,3     COCBYT+COCSIZ/4,2 GET INPUT CHAR
     5940   01 0139B    4B301AF2              AND,3    NOBITS+24
     5941   01 0139C    20200001 A            AI,2     1                 INC COCBC
     5942   01 0139D    72141A06              LB,1     COCBYT+COCSIZ/4,2 GET LINE NR
     5943   01 0139E    4B101AF3              AND,1    NOBITS+25
     5944   01 0139F    72361A96              LB,3     EBCDIC,3          CONVERT ASCII TO EBCDIC
     5945   01 013A0    72222EB9              LB,2     COCL,1            GET COC LINE STATE
     5946   01 013A1    53E02BFC              MTH,-2   COCBC             DEC COCBC
     5947   01 013A2    21200080 A            CI,2     X'80'             FROM CONTROL CONSOLE
     5948   01 013A3    684013A8              BCR,4    TIOCOC5           NO

     5950   01 013A4    20F00001 A   TIOCOC4  AI,15    1                 SET SKIP ON EXIT
     5951   01 013A5    51D02BFC              CH,13    COCBC             COCBC = BYTE COUNT
     5952   01 013A6    68301392              BCR,3    TIOCOC1           YES-CHECK FOR COC READY
     5953   01 013A7    E800000F A            B        *15

     5955   01 013A8    21200024 A   TIOCOC5  CI,2     X'24'             COC LINE STATE < 24
     5956   01 013A9    691013B1              BCS,1    TIOCOC6           YES
     5957   01 013AA    21200040 A            CI,2     X'40'             LOGGED ON
     5958   01 013AB    6910138C              BCS,1    TIOCOC0           NO
     5959   01 013AC    21F019D8              CI,15    ECHO1+1           FROM ECHO
     5960   01 013AD    6830138C              BCR,3    TIOCOC0           YES-WAIT FOR CONTROL INPUT

     5962   01 013AE    73002C47              MTB,0    MSGMOD            MESSAGE MODE SET
     5963   01 013AF    6830138C              BEZ      TIOCOC0           NORMAL EXIT IF NOT MESSAGE MODE
     5964   01 013B0    680013A4              B        TIOCOC4            ELSE SKIP RETURN
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  120
A    5966   01 013B1    2130001B A   TIOCOC6  CI,3     ESCAPE            WAS INPUT CHAR AN ESCAPE
     5967   01 013B2    693013C4              BCS,3    TIOCOC7           NO
     5968   01 013B3    21200020 A            CI,2     X'20'             WAITING FOR AN ESCAPE
     5969   01 013B4    6840138C              BCR,4    TIOCOC0           NO-IGNORE IT

     5971   01 013B5    20200002 A            AI,2     2                 INC COC LINE STATE

     5973   01 013B6    75222EB9     TIOCOC8  STB,2    COCL,1
     5974   01 013B7    21200024 A            CI,2     X'24'             SECOND ESCAPE
     5975   01 013B8    6930138C              BCS,3    TIOCOC0           NO
     5976   01 013B9    72202EB0              LB,2     COCMX             LIMIT ON COC LINES
     5977   01 013BA    71202EB3              CB,2     COCNR             LIMIT > NR OF LINES LOGGED ON
     5978   01 013BB    6820138C              BCR,2    TIOCOC0           NO-DONT LOG ON ANY MORE

     5980   01 013BC    49E01AD1              OR,14    BIT+25            SET OBSERVER STATE
     5981   01 013BD    75E02EB1              STB,14   COCSTATE           UPDATE COC STATE
     5982   01 013BE    22200040 A            LI,2     X'40'               UPDATE LINE STATE
     5983   01 013BF    75222EB9              STB,2    COCL,1

     5985   01 013C0    32D00001 A            LW,13    1                 GET LINE NUMBER
     5986   01 013C1    07D01FBB              CAL4,13  ONMSG              ANNOUNCE NEW USER
     5987   01 013C2    02000000 A            NOP                          JUST LOGGED ON
     5988   01 013C3    6800138C              B        TIOCOC0

     5990   01 013C4    19201B2C     TIOCOC7  CLM,2    10TO13            XMITTING QUESTION MARK
     5991   01 013C5    689019FA              BCR,9    COCLOFF           YES-MUST  BE BAD LINE
     5992   01 013C6    21200022 A            CI,2     X'22'
     5993   01 013C7    693013CC              BCS,3    TIOCOC9
     5994   01 013C8    22200080 A            LI,2     X'80'
     5995   01 013C9    75222EB9              STB,2    COCL,1
     5996   01 013CA    21300004 A            CI,3     4
     5997   01 013CB    68301566              BCR,3    SWITCH+1
     5998   01 013CC    22200010 A   TIOCOC9  LI,2     X'10'
     5999   01 013CD    49E01AD6              OR,14    BIT+30            SET XMIT IND.
     6000   01 013CE    75E02EB1              STB,14   COCSTATE
     6001   01 013CF    680013B6              B        TIOCOC8

     6003   01 013D0    22100000 A   COCRST   LI,1     0                 COC DID NOT RESPOND TO TIO:
     6004   01 013D1    75102EB1              STB,1    COCSTATE           RESET COC STATE
     6005   01 013D2    2210007F A            LI,1     X'7F'               RESET DEVICE ADDRESS
     6006   01 013D3    35102EAF              STW,1    COCDEV               (NON-EXISTANT)
     6007   01 013D4    22100080 A            LI,1     X'80'                 RESET CONTROL TO TTY
     6008   01 013D5    75102EB2              STB,1    COCLINE
     6009   01 013D6    E800000F A            B        *15

     6011   01 013D7    21E00080 A   COCOFF   CI,14    X'80'             COC CONTROL
     6012   01 013D8    E840000F A            BCR,4    *15               NO
     6013   01 013D9    22100080 A            LI,1     X'80'             SET SWITCH TO LOCAL IND
     6014   01 013DA    68001568              B        SWITCH0           ENTER SWITCH ROUTINE
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  121
A    6016                            *        EXECUTIVE-INTERPRETS ALL INCOMING CHARS FROM CONDEV
     6017                            *                 AND RESPONDS ACCORDINGLY.

     6019   01 013DB    35F02BC6     EXEC     STW,15   RETURN3

     6021   01 013DC    72002C47              LB,0     MSGMOD            SKIP IF ALREADY
     6022   01 013DD    6930142A              BNEZ     INMSGMOD           IN MESSAGE MODE

     6024   01 013DE    2130004D A            CI,3     SMSGMOD           SKIP IF MESSAGE MODE
     6025   01 013DF    6830142C              BE       INMSGMOD+2         START CHARACTER

     6027   01 013E0    21300000 A            CI,3     0                 NULL CHAR
     6028   01 013E1    E8302BC6              BCR,3    *RETURN3          YES-IGNORE

     6030   01 013E2    2130006F A            CI,3     XPLANE
     6031   01 013E3    6830151D              BCR,3    EXPLAIN1

     6033   01 013E4    2130001B A            CI,3     ESCAPE
     6034   01 013E5    6830142F              BCR,3    SETHALT1          YES

     6036   01 013E6    32702BE1              LW,7     CCI               PICK UP CHAR COUNT
     6037   01 013E7    753E2C8E              STB,3    BUFFER,7          PUT CHAR INTO BUFFER

     6038   01 013E8    2130007E A            CI,3     EQUAL
     6039   01 013E9    683014BB              BCR,3    EQUALS            YES

     6041   01 013EA    75302C49              STB,3    LASTBYTE
     6042   01 013EB    20700001 A            AI,7     1                 INCREMENT CCI
     6043   01 013EC    35702BE1              STW,7    CCI

        2*  01 013ED    31702EAA              CW,7     LIMIT             LOOK FOR BUFFER OVERFLOW        *H02
        3*  01 013EE    681014AF              BGE      Q0ERR              IN INPUT ESPECIALLY            *H02

     6044   01 013EF    22001507 A            LI,0     X'1507'           CHECK BUFFER BEGINNING
     6045   01 013F0    51002C8E              CH,0     BUFFER             FOR PROMPT-SEQUENCE
     6046   01 013F1    68301442              BE       STMNTMOD            (MEANS STATEMENT MODE)

     6048   01 013F2    21300015 A            CI,3     RETURN            LOOK FOR CARRIAGE RETURN
     6049   01 013F3    E8302BDD              BE       *DED:3
     6050   01 013F4    2130006E A            CI,3     PROMPT            LOOK FOR '>'
     6051   01 013F5    68301436              BE       SETHALT
     6052   01 013F6    2130005E A            CI,3     EOR               LOOK FOR ';'
     6053   01 013F7    683013FC              BE       DATAMOD
     6054   01 013F8    2130004C A            CI,3     ERASE             LOOK FOR '<'
     6055   01 013F9    68301421              BE       DATAIN5
     6056   01 013FA    2130006B A            CI,3     DELIMETR          LOOK FOR ','
     6057   01 013FB    E9302BC6              BNE      *RETURN3           RETURN IF NOT PRESENT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  122
A    6059   01 013FC    32702BE2     DATAMOD  LW,7     OCI
     6060   01 013FD    6AF0187A              BAL,15   SPULL             GET LAST FIELD
     6061   01 013FE    21300000 A            CI,3     0                 ANY CHARS INPUTTED
     6062   01 013FF    68301408              BE       DATAIN0           NO-BLANK FIELD

     6064   01 01400    32702BE2              LW,7     OCI
     6065   01 01401    6AF0183D              BAL,15   SPUSH             PUSH IT BACK IN
     6066   01 01402    207FFFFF A            AI,7     -1                GET POSITION OF DELIMITER
     6067   01 01403    32C0000A A            LW,12    10                GET DELIMITER
     6068   01 01404    75CE2C8E              STB,12   BUFFER,7          PUSH IN DELIMITER
     6069   01 01405    32702BE2              LW,7     OCI
     6070   01 01406    6AF0187A              BAL,15   SPULL
     6071   01 01407    6AF018C2              BAL,15   STORETBL

     6073   01 01408    72B00006 A   DATAIN0  LB,11    6                 GET FIELD CHAR COUNT(C)
     6074   01 01409    20B00001 A            AI,11    1                 SPACE
     6075   01 0140A    30B02BE2              AW,11    OCI               OLD CHAR COUNT
     6076   01 0140B    22C0007D A            LI,12    SPACER

     6078   01 0140C    20700001 A   DATAIN1  AI,7     1
     6079   01 0140D    3170000B A            CW,7     11                IS CCI=OCI+C+S
     6080   01 0140E    68101411              BCR,1    DATAIN2           YES

     6082   01 0140F    75CE2C8E              STB,12   BUFFER,7          FILL IN SPACES
     6083   01 01410    6800140C              B        DATAIN1

     6085   01 01411    35702BE2     DATAIN2  STW,7    OCI               UPDATE OCI=CCI
     6086   01 01412    2220B238              LI,2     BA(BUFFER)
     6087   01 01413    31702BE1              CW,7     CCI               NEW CCI < OLD CCI
     6088   01 01414    69101416              BCS,1    DATAIN3           YES

     6090   01 01415    30202BE1              AW,2     CCI               GET ADRS OF LAST CHAR

     6092   01 01416    35702BE1     DATAIN3  STW,7    CCI
     6093   01 01417    6AF01818              BAL,15   UPDATE
     6094   01 01418    6800143E              B        EXECMSG-1
     6095   01 01419    6800141E              B        DATAIN4

     6097   01 0141A    31402C41              CW,4     NE                LAST FIELD?
     6098   01 0141B    E9202BDD              BCS,2    *DED:3            YES

     6100   01 0141C    6AF017F5              BAL,15   ADVANCE
     6101   01 0141D    680017E0              B        SETCNTR           (IN SET)

     6103   01 0141E    32702BE0     DATAIN4  LW,7     BCI
     6104   01 0141F    6AF017F5              BAL,15   ADVANCE
     6105   01 01420    E8002BC4              B        *RETURN1

     6107   01 01421    22C00040 A   DATAIN5  LI,12    SPACE
     6108   01 01422    207FFFFF A            AI,7     -1                POINT TO BYTE BEFORE ERASE

     6110   01 01423    207FFFFF A   DATAIN6  AI,7     -1                POINT TO BYTE TO BE CLEARED
     6111   01 01424    31702BE2              CW,7     OCI               LESS THAN OR EQUAL
     6112   01 01425    E8202BC6              BCR,2    *RETURN3          YES-EXIT

     6114   01 01426    75CE2C8E              STB,12   BUFFER,7          CLEAR UNWANTED CHARS
     6115   01 01427    68001423              B        DATAIN6
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  123
A    6117   01 01428    32702BE2     REFIELD  LW,7     OCI               SET CCI=OCI
     6118   01 01429    6800143B              B        EXECCCI

     6120   01 0142A    2130005D A   INMSGMOD CI,3     RMSGMOD           RETURN IF NOT RESET
     6121   01 0142B    E9302BC6              BNE      *RETURN3           MESSAGE MODE CHARACTER

     6123   01 0142C    48001AF1              EOR,0    NOBITS+23         INVERT MESSAGE MODE
     6124   01 0142D    75002C47              STB,0    MSGMOD
     6125   01 0142E    E8002BC6              B        *RETURN3

     6127   01 0142F    22207D74     SETHALT1 LI,2     BA(PCPMSG)
     6128   01 01430    6AF01995              BAL,15   MSGOUT
     6129   01 01431    02000000 A            NOP
     6130   01 01432    68001436              B        SETHALT

     6132   01 01433    32B02C8E     CHKFLG   LW,11    BUFFER
     6133   01 01434    31B01AFC              CW,11    RUNPRMPT
        1*  01 01435    68301437              BE       SETFLAG                                           *H02

     6136   01 01436    32B01AFF     SETHALT  LW,11    HLTPRMPT

     6138   01 01437    35B02C8E     SETFLAG  STW,11   BUFFER
     6139   01 01438    22700004 A            LI,7     STRTBUF
     6140   01 01439    32102EAE              LW,1     TTYDEV
     6141   01 0143A    35102C48              STW,1    OUTDEV            RESET OUTDEV TO TTY

     6143   01 0143B    35702BE1     EXECCCI  STW,7    CCI
     6144   01 0143C    35702BE2              STW,7    OCI

     6146   01 0143D    2220B238     EXECBUF  LI,2     BA(BUFFER)
     6147   01 0143E    6AF01871              BAL,15   PUSH7             TERMINATE BUFFER

     6149   01 0143F    6AF01995     EXECMSG  BAL,15   MSGOUT
     6150   01 01440    02000000 A            NOP
     6151   01 01441    E8002BC6              B        *RETURN3

     6153   01 01442    21300015 A   STMNTMOD CI,3     RETURN            LOOK FOR CARRIAGE RETURN
     6154   01 01443    6830144D              BE       STATMENT
     6155   01 01444    2130004C A            CI,3     ERASE             LOOK FOR '<'
     6156   01 01445    68301428              BE       REFIELD
     6157   01 01446    2130006E A            CI,3     PROMPT            LOOK FOR '>'
     6158   01 01447    68301433              BE       CHKFLG
     6159   01 01448    2130006B A            CI,3     DELIMETR          LOOK FOR ','
     6160   01 01449    E9302BC6              BNE      *RETURN3           RETURN IF NOT PRESENT

     6162   01 0144A    35702BE2              STW,7    OCI
     6163   01 0144B    6AF01871              BAL,15   PUSH7             TERMINATE BUFFER
     6164   01 0144C    E8002BC6              B        *RETURN3
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  124
A    6166                            *        STATMENT-INPUT STATEMENT LINES.

        1*        01 0144D           STATMENT EQU      %                                                 *H02
        2*  01 0144D    22700004 A            LI,7     STRTBUF           INITIALIZE FOR SCAN             *H02
     6172   01 0144E    35702BE2              STW,7    OCI

     6174   01 0144F    2240001C A            LI,4     28                BYTES/ENTRY
     6175   01 01450    22507020              LI,5     BA(DIRTABE)       LAST BA OF TABLE
     6176   01 01451    22606CD8              LI,6     BA(DIRTAB)        BA OF DIRECTIVE TABLE
     6177   01 01452    6AF018F1              BAL,15   SCAN
     6178   01 01453    680014B2              B        QERR

     6180   01 01454    B2802C3A              LW,8     *APTO             END ACTION POINTER
     6181   01 01455    35802BDA              STW,8    DID:1
     6182   01 01456    681014A4              BCR,1    NODEST            NO DESTINATION EXPECTED

     6184   01 01457    32702BE1              LW,7     CCI
     6185   01 01458    723E2C8E              LB,3     BUFFER,7          GET DELIMITER
     6186   01 01459    2130006B A            CI,3     DELIMETR
     6187   01 0145A    6930143D              BCS,3    EXECBUF           NO
     6188   01 0145B    20700001 A            AI,7     1
     6189   01 0145C    35702BE2              STW,7    OCI
     6190   01 0145D    22507218              LI,5     BA(DESTABE)
     6191   01 0145E    22607020              LI,6     BA(DESTAB)        BA OF DESTINATION TABLE
     6192   01 0145F    31801B77              CW,8     EXPDIR            EXPLAIN DIRECTIVE
     6193   01 01460    69301462              BCS,3    %+2               NO
     6194   01 01461    22606CD8              LI,6     BA(DIRTAB)        START SEARCH AT DIRECT. TAB
     6195   01 01462    6AF018F1              BAL,15   SCAN
     6196   01 01463    680014B2              B        QERR

     6198   01 01464    02200050 A            LCI      5
     6199   01 01465    AA902C3A              LM,9     *APTO             RETRIEVE DISCRIPTORS

     6201   01 01466    02200050 A   STMNTQ1  LCI      5
     6202   01 01467    2B902BDB              STM,9    DED:1
     6203   01 01468    31801AB9              CW,8     BIT+1             QUALIFIER 1 EXPECTED?
     6204   01 01469    684014A7              BCR,4    NOQ1              NO
     6205   01 0146A    32702BE1              LW,7     CCI
     6206   01 0146B    723E2C8E              LB,3     BUFFER,7
     6207   01 0146C    2130006B A            CI,3     DELIMETR
     6208   01 0146D    693014A7              BCS,3    NOQ1
     6209   01 0146E    20700001 A            AI,7     1
     6210   01 0146F    35702BE2              STW,7    OCI
     6211   01 01470    72102BDC              LB,1     DED:2             DATA FORMAT FOR Q1 Q2
     6212   01 01471    6AF0187D              BAL,15   PULL
     6213   01 01472    35D02BD6              STW,13   Q1

     6215   01 01473    32D02BDA              LW,13    DID:1             DO NOT LIMIT Q1
     6216   01 01474    4BD01AE1              AND,13   NOBITS+7           IF SCANNING PARAMETERS
     6217   01 01475    21D016A7              CI,13    ERRORS              FOR THE ERROR COMMAND
     6218   01 01476    6830147B              BE       STMNTQ0

     6220   01 01477    32D02BDC              LW,13    DED:2
     6221   01 01478    4BD01AE5              AND,13   NOBITS+11
     6222   01 01479    31D02BD6              CW,13    Q1                Q1>N
     6223   01 0147A    682014B1              BLE      Q1ERR             YES
     6224   01 0147B    31801ABA     STMNTQ0  CW,8     BIT+2             QUALIFIER 2 EXPECTED?
     6225   01 0147C    684014A9              BCR,4    NOQ2              NO
     6226   01 0147D    21A0006B A            CI,10    DELIMETR
     6227   01 0147E    693014A9              BCS,3    NOQ2              NO
     6228   01 0147F    20700001 A            AI,7     1
     6229   01 01480    35702BE2              STW,7    OCI
     6230   01 01481    22100002 A            LI,1     2                 FORCE HEX FORMAT FOR Q2
     6231   01 01482    6AF0187D              BAL,15   PULL              GET Q2
     6232   01 01483    35D02C4C              STW,13   WQ2
     6233   01 01484    21D00000 A            CI,13    0                 Q2=0
     6234   01 01485    69301487              BCS,3    %+2               NO
     6235   01 01486    22D00001 A            LI,13    1                 FORCE Q2=1
     6236   01 01487    31D02BD6              CW,13    Q1                IS Q2<Q1
     6237   01 01488    6810148B              BCR,1    %+3               NO
     6238   01 01489    30D02BD6              AW,13    Q1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  125
A    6240   01 0148A    20DFFFFF A   STMNTQ2  AI,13    -1
     6241   01 0148B    35D02BD7              STW,13   Q2
     6242   01 0148C    32D02BDC              LW,13    DED:2
     6243   01 0148D    4BD01AE5              AND,13   NOBITS+11
     6244   01 0148E    31D02BD7              CW,13    Q2                Q2>N
     6245   01 0148F    6910148A              BCS,1    STMNTQ2           YES
     6246   01 01490    31801ABB              CW,8     BIT+3             QUALIFIER 3 EXPECTED?
     6247   01 01491    684014AC              BCR,4    NOQ3
     6248   01 01492    21A0006B A            CI,10    DELIMETR
     6249   01 01493    693014AC              BCS,3    NOQ3
     6250   01 01494    20700001 A            AI,7     1
     6251   01 01495    35702BE2              STW,7    OCI
     6252   01 01496    72102BDD              LB,1     DED:3             DATA FORMAT FOR Q3
     6253   01 01497    31901AC5              CW,9     BIT+13            SPECIAL TABLE?
     6254   01 01498    6840149D              BAZ      NOTSPEC           NO

     6256   01 01499    32502BD6              LW,5     Q1
     6257   01 0149A    B21A0009 A            LW,1     *9,5              GET INDICATED TP
     6258   01 0149B    2510006C A            SLS,1    -20               RIGHT 20 BITS
     6259   01 0149C    4B101AF6              AND,1    NOBITS+28

     6261   01 0149D    6AF0187D     NOTSPEC  BAL,15   PULL              GET Q3

     6263   01 0149E    3A300003 A   STMNTXIT LCW,3    3                 INVERT CHAR COUNT
     6264   01 0149F    25300002 A            SLS,3    2
     6265   01 014A0    32C61AF9              LW,12    NOBITS+31,3       GET PROPER MASK
     6266   01 014A1    35C02BD5              STW,12   Q0
     6267   01 014A2    35D02BD8              STW,13   Q3
     6268   01 014A3    E8002BDA              B        *DID:1

     6270   01 014A4    02200050 A   NODEST   LCI      5
     6271   01 014A5    2A901C49              LM,9     MEMDES
     6272   01 014A6    68001466              B        STMNTQ1

     6274   01 014A7    22D00000 A   NOQ1     LI,13    0
     6275   01 014A8    35D02BD6              STW,13   Q1
     6276   01 014A9    22D00000 A   NOQ2     LI,13    0
     6277   01 014AA    35D02BD7              STW,13   Q2
     6278   01 014AB    35D02C4C              STW,13   WQ2
     6279   01 014AC    22D00000 A   NOQ3     LI,13    0
     6280   01 014AD    22300008 A            LI,3     8
     6281   01 014AE    6800149E              B        STMNTXIT

        2*  01 014AF    22207E98     Q0ERR    LI,2     BA(FLDERROR)      TOO MANY CHARACTERS INPUT       *H02
        3*  01 014B0    680014B2              B        QERR                                              *H02
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  126
A    6283   01 014B1    22207E54     Q1ERR    LI,2     BA(Q1ERROR)       INVALID QUALIFIER

     6284   01 014B2    6AF01995     QERR     BAL,15   MSGOUT
     6285   01 014B3    02000000 A            NOP
     6286   01 014B4    68001428              B        REFIELD

     6288   01 014B5    22207E6C     Q2ERR    LI,2     BA(Q2ERROR)       INVALID CHARACTER
     6289   01 014B6    680014B2              B        QERR

     6291   01 014B7    22207E84     Q3ERR    LI,2     BA(Q3ERROR)       INVALID REQUEST
     6292   01 014B8    6AF01995              BAL,15   MSGOUT
     6293   01 014B9    02000000 A            NOP
     6294   01 014BA    68001433              B        CHKFLG

     6296   01 014BB    35702BE1     EQUALS   STW,7    CCI               SAVE BUFFER POINTER
     6297   01 014BC    32702BE2              LW,7     OCI
     6298   01 014BD    22100002 A            LI,1     2                 SET HEX INPUT
     6299   01 014BE    6AF0187D              BAL,15   PULL              GET THE VALUE
     6300   01 014BF    32601B02              LW,6     X8200000          HEX
     6301   01 014C0    72002C49              LB,0     LASTBYTE          HEX INPUT
     6302   01 014C1    2100007A A            CI,0     DECIMAL
     6303   01 014C2    693014C4              BCS,3    %+2               NO
     6304   01 014C3    32601B03              LW,6     X8100000          DECIMAL
     6305   01 014C4    35C02C4B              STW,12   WK0               SAVE REMAINDER
     6306   01 014C5    6AF0183D              BAL,15   SPUSH             PUT RESULTS IN BUFFER
     6307   01 014C6    32D02C4B     LW:13WK0 LW,13    WK0               GET REMAINDER
     6308   01 014C7    683014C9              BCR,3    EQUALS1           REMAINDER=0
     6309   01 014C8    6AF0183D              BAL,15   SPUSH             PUSH REMAINDER INTO BUFFER
     6310   01 014C9    2220B238     EQUALS1  LI,2     BA(BUFFER)
     6311   01 014CA    30202BE1              AW,2     CCI
     6312   01 014CB    6AF01995              BAL,15   MSGOUT            OUTPUT RESULTS
     6313   01 014CC    02000000 A            NOP
     6314   01 014CD    68001428              B        REFIELD
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  127
A    6316                            *        EXECUTIVE DIRECTIVE ROUTINES

        1*  01 014CE    6AF00E64     AIO      BAL,15   SETNBUSY          STOP ALL ACTIVITY FOR AIO       *H00

        3*  01 014CF    22400020 A            LI,4     X'20'             DISARM/DISABLE I/O INTERRUPT    *H00
        4*  01 014D0    6D401100 A            WD,4     X'1100'                                           *H00

        6*  01 014D1    22400000 A            LI,4     0                 CLEAR ADDRESS                   *H00
     6319   01 014D2    31402EAE     CHKTTY   CW,4     TTYDEV            IF TTYDEV
     6320   01 014D3    683014E2              BCR,3    INCADR            GET NEXT ADDR
     6321   01 014D4    CF000004 A            HIO,0    *4                HALT THE DEVICE
     6322   01 014D5    698014E2              BCS,8    INCADR
     6323   01 014D6    22001641              LI,0     DA(SIOINT)        ISSUE SIO;ORDER=X'FD';FLG=X'1C'
     6324   01 014D7    CC000004 A            SIO,0    *4                B.C.=1;DELAY FOR ABOUT 1 MILSEC
     6325   01 014D8    22180000 A            LI,1     X'80000'          DELAY FOR ABOUT .5 SECS
     6326   01 014D9    651014D9              BIR,1    %
     6327   01 014DA    CDE00004 A            TIO,14   *4                GET STATUS
     6328   01 014DB    31F01ABB              CW,15    BIT+3             AUTOMATIC MODE
     6329   01 014DC    684014E2              BCR,4    INCADR            NO
     6330   01 014DD    31F01B17              CW,15    Y66               IF DEV & CONT. READY
     6331   01 014DE    694014E2              BCS,4    INCADR            NO
     6332   01 014DF    21400080 A            CI,4     X'80'             MUC
     6333   01 014E0    684014E2              BCR,4    INCADR            NO
     6334   01 014E1    49401AF5              OR,4     NOBITS+27

     6335   01 014E2    20400001 A   INCADR   AI,4     1                 INC ADDR
     6336   01 014E3    31402C06              CW,4     LASTADR           LAST ADDR
     6337   01 014E4    691014D2              BCS,1    CHKTTY            NO
     6338   01 014E5    220FF000 A            LI,0     X'FF000'          DELAY
     6339   01 014E6    650014E6              BIR,0    %

     6340   01 014E7    22400000 A            LI,4     0                 SET ADDR TO ZERO
     6341   01 014E8    31402EAE     CHKTTY1  CW,4     TTYDEV            TTYDEV
     6342   01 014E9    683014F6              BCR,3    INCADR1           YES
     6343   01 014EA    CDE00004 A            TIO,14   *4                ADDR OK
     6344   01 014EB    698014F6              BCS,8    INCADR1           NO
     6345   01 014EC    31F01AB8              CW,15    BIT               INTERUPT PENDING
     6346   01 014ED    694014F3              BCS,4    INTPEND           YES
     6347   01 014EE    22207E18              LI,2     BA(NOINTMSG)      OUTPUT NO INTERUPT MSG
     6348   01 014EF    32D00004 A            LW,13    4
     6349   01 014F0    6AF0198D              BAL,15   MSG13
     6350   01 014F1    CF000004 A            HIO,0    *4                HALT DEVICE
     6351   01 014F2    680014F6              B        INCADR1           GET NEXT ADDR
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  128
A    6353   01 014F3    21400080 A   INTPEND  CI,4     X'80'             MUC
     6354   01 014F4    684014F6              BCR,4    INCADR1           NO
     6355   01 014F5    49401AF5              OR,4     NOBITS+27

     6356   01 014F6    20400001 A   INCADR1  AI,4     1                 INCR ADDR
     6357   01 014F7    31402C06              CW,4     LASTADR           LAST
     6358   01 014F8    691014E8              BCS,1    CHKTTY1           NO
     6359   01 014F9    CF002EAE              HIO,0    *TTYDEV           HALT DEV
     6360   01 014FA    22180000 A            LI,1     X'80000'          DELAY
     6361   01 014FB    651014FB              BIR,1    %
     6362   01 014FC    22001641              LI,0     DA(SIOINT)
     6363   01 014FD    CC002EAE              SIO,0    *TTYDEV           SIO TO TTYDEV
     6364   01 014FE    22480000 A            LI,4     X'80000'          DELAY ABOUT .5 SECS OF SEC
     6365   01 014FF    654014FF              BIR,4    %
     6366   01 01500    6EC00000 A   AIOINT   AIO,12   0                 AIO TO GET INT PRIORITY
     6367   01 01501    68801503              BCR,8    INTACK            INT ACKNOWLEDGED
     6368   01 01502    68001506              B        AIODONE           ALL INT ACKNOWLEDGED

     6370   01 01503    20400001 A   INTACK   AI,4     1                 INCR INDEX
        1*  01 01504    D5C82BF6              STH,12   *BUFSTRTW,4        STORE ADDRESS IN TABLE         *H00
     6372   01 01505    68001500              B        AIOINT            GET NEXT ONE

     6374   01 01506    22800020 A   AIODONE  LI,8     X'20'             ARM AND ENABLE I/O INT
     6375   01 01507    6D801200 A            WD,8     X'1200'
     6376   01 01508    22207E38              LI,2     BA(IPTMSG)        OUTPUT INT. PRIORITY TABLE MSG
     6377   01 01509    6AF01995              BAL,15   MSGOUT
     6378   01 0150A    02000000 A            NOP      0

     6379   01 0150B    22500001 A            LI,5     1
        1*  01 0150C    D2DA2BF6     GETIP    LH,13    *BUFSTRTW,5       FETCH ADDRESS FROM TABLE        *H00
     6381   01 0150D    22207E48              LI,2     BA(IPMSG)         OUTPUT INT. PRIORITIES
     6382   01 0150E    6AF0198D              BAL,15   MSG13
     6383   01 0150F    20500001 A            AI,5     1                 INCR INDEX
     6384   01 01510    31500004 A            CW,5     4                 DONE
     6385   01 01511    6820150C              BCR,2    GETIP             NOT YET

        2*  01 01512    22207F24              LI,2     BA(NULMSG)        BLANK LINE                      *H00
        3*  01 01513    6AF01995              BAL,15   MSGOUT                                            *H00
        4*  01 01514    02000000 A            NOP                                                        *H00

        6*  01 01515    6800163C              B        BOOTERR0          FORCE HALT MODE                 *H00
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  129
A    6388   01 01516    32102EA9     EXPLAIN  LW,1     MSGDEV            USE TTY DEVICE
     6389   01 01517    33002BD6              MTW,0    Q1                 UNLESS Q1 NONZERO
     6390   01 01518    6930151A              BNEZ     %+2                 THEN USE MSG DEVICE
     6391   01 01519    32102EAE              LW,1     TTYDEV
     6392   01 0151A    35102C48              STW,1    OUTDEV            MSG ROUTINE USES OUTDEV
     6393   01 0151B    22700004 A            LI,7     STRTBUF
     6394   01 0151C    35702BE2              STW,7    OCI

     6396   01 0151D    32202BDF     EXPLAIN1 LW,2     DED:5             FETCH POINTER TO
     6397   01 0151E    32102C48              LW,1     OUTDEV             EXPLANATION OF LAST
     6398   01 0151F    6AF01939              BAL,15   MSG                 DIRECTIVE/DESTINATION
     6399   01 01520    02000000 A            NOP

     6401   01 01521    22207F24     EXPLAIN3 LI,2     BA(NULMSG)        ISSUE BLANK LINE
     6402   01 01522    32102C48              LW,1     OUTDEV
     6403   01 01523    6AF01939              BAL,15   MSG
     6404   01 01524    02000000 A            NOP

     6406   01 01525    6AF01692              BAL,15   POSTMSG           RESTORE MSG DEVICE
     6407   01 01526    68001433              B        CHKFLG

     6409   01 01527    22700004 A   ABSTRACT LI,7     STRTBUF
     6410   01 01528    35702BE2              STW,7    OCI
     6411   01 01529    22207F28              LI,2     BA(ABSMSG)

     6413   01 0152A    32102EA9     ABS1     LW,1     MSGDEV            USE TTY DEVICE
     6414   01 0152B    33002BD6              MTW,0    Q1                 UNLESS Q1 NONZERO
     6415   01 0152C    6930152E              BNEZ     %+2                 THEN USE MSG DEVICE
     6416   01 0152D    32102EAE              LW,1     TTYDEV
     6417   01 0152E    35102C48              STW,1    OUTDEV
     6418   01 0152F    6AF01939              BAL,15   MSG
     6419   01 01530    68001521              B        EXPLAIN3          (PREVIOUSLY SKIPPED TO ABS3)

     6421   01 01531    20200004 A   ABS2     AI,2     4                 MSG ROUTINE LEAVE R2 POINTING
     6422   01 01532    4B201B11              AND,2    X7FFFC             AT THE EM BYTE.  COMPUTE
     6423   01 01533    2120AF00              CI,2     BA(MSGEND)          BA(NEXT WORD)
     6424   01 01534    68101521              BGE      EXPLAIN3             COMPARE WITH END OF LIST
     6425   01 01535    6800152A              B        ABS1

     6427   01 01536    72340000 A   ABS3     LB,3     0,2               ZERO BYTE
     6428   01 01537    68301531              BEZ      ABS2              YES-GET NEXT MESSAGE
     6429   01 01538    20200001 A            AI,2     1
     6430   01 01539    68001536              B        ABS3
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  130
A    6432   01 0153A    32102BD6     START    LW,1     Q1                GET PASS
     6433   01 0153B    691014B7              BCS,1    Q3ERR             PASS < 0
     6434   01 0153C    21100008 A            CI,1     8                 PASS < 8
     6435   01 0153D    681014B7              BCR,1    Q3ERR             NO
     6436   01 0153E    75102ED7              STB,1    PASSES            SET NEW PASS
     6437   01 0153F    32002ED6              LW,0     PASSER            GET PASS SELECTIONS
     6438   01 01540    49021AB8              OR,0     BIT,1
     6439   01 01541    35002ED6              STW,0    PASSER            FORCE SELECTION OF NEW PASS
     6440   01 01542    6AF00E64              BAL,15   SETNBUSY
     6441   01 01543    53102BF4              MTH,1    SETPASS           FORCE SETPASS#PASSES

     6443   01 01544    32102C4C              LW,1     WQ2               LOOK AT SECOND PARAMETER
     6444   01 01545    68201551              BLEZ     START0             SKIP IF NOT CT INDEX

     6446   01 01546    31102BEF              CW,1     COUNT             ERROR IF NOT VALID
     6447   01 01547    692014B7              BG       Q3ERR              CT INDEX

     6449   01 01548    32202EB7              LW,2     SORCEX            GET PREVIOUS SOURCE DEVICE
     6450   01 01549    52843003              LH,8     CT:CS,2            AND RESET ITS SOURCE
     6451   01 0154A    4B801A10              AND,8    NSORS               INDICATION FLAG
     6452   01 0154B    55843003              STH,8    CT:CS,2

     6454   01 0154C    20100001 A            AI,1     1                 INCREMENT CT INDEX
     6455   01 0154D    31102BEF              CW,1     COUNT              RESET IF OVERFLOWED
     6456   01 0154E    68201550              BLE      %+2
     6457   01 0154F    22100000 A            LI,1     0
     6458   01 01550    35102EB7              STW,1    SORCEX

     6460   01 01551    22100040 A   START0   LI,1     X'40'             (CLOCK 4 ZERO INTERRUPT)
     6461   01 01552    6D101700 A            WD,1     X'1700'           TRIGGER RTC4
     6462   01 01553    68001563              B        SETRUN

     6464   01 01554    32002BD6     BRANCH   LW,0     Q1
     6465   01 01555    32102C66              LW,1     RETURNS           LOCATION OF LAST RETURN
     6466   01 01556    21102C60              CI,1     RETI              RETURN STACK EMPTY
     6467   01 01557    6920155A              BCS,2    BRANCH1           NO
     6468   01 01558    B5002C68              STW,0    *RETURN0S         YES-OPERATE ON RETURN 0 STACK
     6469   01 01559    68001563              B        SETRUN

     6471   01 0155A    201FFFFD A   BRANCH1  AI,1     -3
     6472   01 0155B    32220000 A            LW,2     0,1
     6473   01 0155C    20100002 A            AI,1     2
     6474   01 0155D    4B201B1F              AND,2    XFF00
     6475   01 0155E    21204B00 A            CI,2     X'4B00'           CAL4
     6476   01 0155F    69301561              BCS,3    %+2               NO
     6477   01 01560    200FFFFF A            AI,0     -1
     6478   01 01561    35020000 A            STW,0    0,1
     6479   01 01562    20100001 A            AI,1     1

     6480   01 01563    32B01AFC     SETRUN   LW,11    RUNPRMPT
     6481   01 01564    68001437              B        SETFLAG

     6483                            *        SWITCH CONTROL BETWEEN CONTROL AND OBSERVER Q1

     6485   01 01565    32102BD6     SWITCH   LW,1     Q1
     6486   01 01566    6AF01568              BAL,15   SWITCH0           DO THE SWITCH
     6487   01 01567    68001433              B        CHKFLG

     6489   01 01568    72202EB2     SWITCH0  LB,2     COCLINE           GET LINE NUMBER OF CONTROLLER

     6491   01 01569    21100000 A            CI,1     0                 VERIFY COC LINE NUMBER
     6492   01 0156A    691014B7              BL       Q3ERR              INVALID IF .LT. 0
     6493   01 0156B    21100040 A            CI,1     64                  LOCAL TTY IF .GE. 64
     6494   01 0156C    69101576              BL       SWITCH2

     6496   01 0156D    22300040 A            LI,3     X'40'             STATE OF OLD CONTROLLER
     6497   01 0156E    22100080 A            LI,1     X'80'             STATE OF NEW CONTROLLER
     6498   01 0156F    22400040 A            LI,4     X'40'

     6500   01 01570    21200080 A   SWITCH1  CI,2     X'80'             SKIP IF CONTROLLER
     6501   01 01571    69401573              BANZ     %+2                WAS LOCAL TTY
     6502   01 01572    75342EB9              STB,3    COCL,2              ELSE MAKE IT OBSERVER

     6504   01 01573    75102EB2              STB,1    COCLINE           NEW CONTROLLER
     6505   01 01574    75402EB1              STB,4    COCSTATE           NEW COC STATE
     6506   01 01575    E800000F A            B        *15                 RETURN

     6508   01 01576    72622EB9     SWITCH2  LB,6     COCL,1            GET STATE OF SPECIFIED LINE
     6509   01 01577    21600060 A            CI,6     X'60'              SKIP IF NOT OBSERVER
     6510   01 01578    684014B7              BAZ      Q3ERR               OR LOGGING

     6512   01 01579    22300040 A            LI,3     X'40'             STATE OF OLD CONTROLLER
     6513   01 0157A    22400080 A            LI,4     X'80'              STATE OF NEW CONTROLLER
     6514   01 0157B    75422EB9              STB,4    COCL,1              STATE OF SPECIFIED LINE
     6515   01 0157C    68001570              B        SWITCH1

     6517   01 0157D    221000CE A   TDV      LI,1     X'CE'             TDV INSTRUCTION
     6518   01 0157E    68001586              B        TEST

     6520   01 0157F    221000CD A   TIO      LI,1     X'CD'             TIO INSTRUCTION
     6521   01 01580    68001586              B        TEST

     6523   01 01581    22000000 A   SIO      LI,0     0
     6524   01 01582    35002BD7              STW,0    Q2
     6525   01 01583    221000CC A            LI,1     X'CC'             SIO INSTRUCTION
     6526   01 01584    68001586              B        TEST

     6528   01 01585    221000CF A   HIO      LI,1     X'CF'             HIO INSTRUCTION
     6529   01 01586    75101596     TEST     STB,1    TEST1
     6530   01 01587    32202EAE              LW,2     TTYDEV            USE TTY DEVICE
     6531   01 01588    32102BD8              LW,1     Q3                 UNLESS Q3 IS NONZERO
     6532   01 01589    6830158B              BEZ      %+2                 THEN USE MSG DEVICE
     6533   01 0158A    32202EA9              LW,2     MSGDEV
     6534   01 0158B    35202C48              STW,2    OUTDEV
     6535   01 0158C    2220AAD4              LI,2     BA(IOEXP)
     6536   01 0158D    35202BDF              STW,2    DED:5             SET UP EXPLAIN MSG
     6537   01 0158E    22201521              LI,2     EXPLAIN3
     6538   01 0158F    35202BDD              STW,2    DED:3             SET EXIT
     6539   01 01590    2220AB9C              LI,2     BA(IOHDG)
     6540   01 01591    32102C48              LW,1     OUTDEV
     6541   01 01592    6AF01939              BAL,15   MSG
     6542   01 01593    02000000 A            NOP
     6543   01 01594    32002C4C              LW,0     WQ2
     6544   01 01595    02300000 A   TEST0    LCFI     0,0               PRESET CC'S AND FLTG = 0
     6545   01 01596    CD402BD6     TEST1    TIO,4    *Q1               IO INSTRUCTION
     6546   01 01597    74002BEC              STCF     TESTCC            SAVE CC'S
     6547   01 01598    6840159A              BCR,4    %+2               NO DEVICE DEPENDANT COND.
     6548   01 01599    698015B1              BCS,8    TEST5             NO ADDRESS RECOGNITION
     6549   01 0159A    22700001 A            LI,7     1                 SET CCI=1
     6550   01 0159B    32601B06              LW,6     X3200000          3 HEX DIGITS
     6551   01 0159C    32D02BD6              LW,13    Q1
     6552   01 0159D    6AF0183E              BAL,15   PUSH
     6553   01 0159E    32601B07              LW,6     X2200000          2 HEX DIGITS
     6554   01 0159F    72D02BEC              LB,13    TESTCC            GET CC'S
     6555   01 015A0    6AF0183E              BAL,15   PUSH
     6556   01 015A1    32601B02              LW,6     X8200000          8 HEX DIGITS
     6557   01 015A2    228FFFFE A            LI,8     -2
     6558   01 015A3    32D00004 A   TEST2    LW,13    4
     6559   01 015A4    6AF0183E              BAL,15   PUSH
     6560   01 015A5    32D00005 A            LW,13    5
     6561   01 015A6    6AF0183E              BAL,15   PUSH
     6562   01 015A7    25400001 A            SLS,4    1                 FORM WORD ADRS FROM CDW1
     6563   01 015A8    4B401AE8              AND,4    NOBITS+14
     6564   01 015A9    31402EDE              CW,4     MEMSIZE           OUT OF BOUNDS
     6565   01 015AA    681015AD              BCR,1    TEST3             YES
     6566   01 015AB    92400004 A            LD,4     *4                GET COMMAND DOUBLE WORD
     6567   01 015AC    658015A3              BIR,8    TEST2

     6569   01 015AD    2220B238     TEST3    LI,2     BA(BUFFER)
     6570   01 015AE    32102C48              LW,1     OUTDEV
     6571   01 015AF    6AF01939              BAL,15   MSG               OUTPUT A LINE
     6572   01 015B0    02000000 A            NOP

     6574   01 015B1    33102BD6     TEST5    MTW,1    Q1
     6575   01 015B2    32102BD6              LW,1     Q1
     6576   01 015B3    31102BD7              CW,1     Q2                DONE
     6577   01 015B4    68201595              BCR,2    TEST0             NO
     6578   01 015B5    68001521              B        EXPLAIN3

     6580   01 015B6    32102BD6     SELECT   LW,1     Q1                GET CTX
     6581   01 015B7    31102BEF              CW,1     COUNT              AND SKIP IF INVALID
     6582   01 015B8    692014B7              BG       Q3ERR

     6584   01 015B9    52022FF9              LH,0     CT:OPS,1          DO NOT ALLOW SELECTION
     6585   01 015BA    21008000 A            CI,0     XCSEL             OF DEVICES ALREADY SELECTED
     6586   01 015BB    694014B7              BANZ     Q3ERR             (DISASTER IF TAPE)

     6588   01 015BC    52022FEF              LH,0     CT:DS,1
     6589   01 015BD    49002C4C              OR,0     WQ2               MERGE IN UNITS SELECTED
     6590   01 015BE    55022FEF              STH,0    CT:DS,1
     6591   01 015BF    2100FFFF A            CI,0     X'FFFF'           ERROR IF NO
     6592   01 015C0    684014B7              BAZ      Q3ERR              DEVICES SELECTED

     6594   01 015C1    32902BD8              LW,9     Q3                SKIP IF OPTIONS
     6595   01 015C2    693015C4              BNEZ     %+2                ARE PRESENT ON COMMAND
     6596   01 015C3    52922FF9              LH,9     CT:OPS,1            ELSE RETAIN CURRENT OPTIONS
     6597   01 015C4    49901A22              OR,9     CSEL                 FORCING SELECTION
     6598   01 015C5    55922FF9              STH,9    CT:OPS,1

     6600   01 015C6    52823003              LH,8     CT:CS,1           GET STATUS
     6601   01 015C7    49801A28              OR,8     INITAL             AND SET INITIALIZE
     6602   01 015C8    49801A19              OR,8     NOBUF               AND BUFFER NEEDED
     6603   01 015C9    55823003              STH,8    CT:CS,1
     6604   01 015CA    68001433              B        CHKFLG

     6606   01 015CB    32102BD6     DESELECT LW,1     Q1                GET CTX AND
     6607   01 015CC    31102BEF              CW,1     COUNT              SKIP IF INVALID
     6608   01 015CD    692014B7              BG       Q3ERR

     6610   01 015CE    33002C4C              MTW,0    WQ2               SKIP IF DEVICES
     6611   01 015CF    693015D3              BNEZ     DSELECT1           EXPLICITLY SPECIFIED

     6613   01 015D0    33000001 A            MTW,0    1                 ELSE CHECK FOR CPU
     6614   01 015D1    683014B7              BEZ      Q3ERR              (NEEDS EXPLICIT DEVICES)
     6615   01 015D2    680015D9              B        DSELECT2

     6617   01 015D3    52022FEF     DSELECT1 LH,0     CT:DS,1           GET DEVICE BITS
     6618   01 015D4    49002C4C              OR,0     WQ2                AND CLEAR SELECTED
     6619   01 015D5    48002C4C              EOR,0    WQ2                 DEVICES
     6620   01 015D6    55022FEF              STH,0    CT:DS,1

     6622   01 015D7    2100FFFF A            CI,0     X'FFFF'           SKIP IF OTHER DEVICES
     6623   01 015D8    69401433              BANZ     CHKFLG             ARE STILL SELECTED

     6625   01 015D9    52922FF9     DSELECT2 LH,9     CT:OPS,1          CLEAR CONTROLLER
     6626   01 015DA    4B901AEA              AND,9    NOBITS+16          SELECTED BIT
     6627   01 015DB    55922FF9              STH,9    CT:OPS,1

     6629   01 015DC    52823003              LH,8     CT:CS,1           RETURN POSSIBLE
     6630   01 015DD    6AF00ECC              BAL,15   FORCEPUT           BUFFER

        1*  01 015DE    22000050 A            LI,0     XDUAL+XWRAP       LEAVE WRAP AND DUAL             *H01
        2*  01 015DF    4B800000 A            AND,8    0                  AND RESTORE CONDITIONS         *H01
        3*  01 015E0    55823003              STH,8    CT:CS,1                                           *H01

     6635   01 015E1    52222FE5              LH,2     CT:DA,1           GET DEVICE ADDRESS
     6636   01 015E2    21100000 A            CI,1     0                  SKIP IF NOT A CPU
     6637   01 015E3    68301433              BE       CHKFLG

     6639   01 015E4    4F040000 A            HIO,0    0,2               RESET DEVICE
     6640   01 015E5    68001433              B        CHKFLG

     6642   01 015E6    22A00001 A   WRITE    LI,10    1
     6643   01 015E7    680015E9              B        READ0

     6645   01 015E8    22A00002 A   READ     LI,10    2
     6646   01 015E9    32202BD6     READ0    LW,2     Q1
     6647   01 015EA    21200080 A            CI,2     X'80'             MUC
     6648   01 015EB    684014B7              BCR,4    Q3ERR             NO
     6649   01 015EC    4B201B21              AND,2    X1FF0
     6650   01 015ED    32102BEF              LW,1     COUNT
     6651   01 015EE    51223062     READ1    CH,2     CT:CA,1
     6652   01 015EF    683015F2              BCR,3    READ2             FOUND IT
     6653   01 015F0    641015EE              BDR,1    READ1
     6654   01 015F1    680014B7              B        Q3ERR

     6656   01 015F2    CF002BD6     READ2    HIO,0    *Q1
     6657   01 015F3    32502C4C              LW,5     WQ2               SEEK SPECIFIED
     6658   01 015F4    681015F6              BGEZ     %+2               YES
     6659   01 015F5    3252300D              LW,5     CT:SEEK,1
     6660   01 015F6    3550300D              STW,5    CT:SEEK           SAVE POSITION
     6661   01 015F7    32602BD8              LW,6     Q3                BUFFER ADD SPECIFIED
     6662   01 015F8    693015FA              BCS,3    %+2               YES
     6663   01 015F9    32623021              LW,6     CT:BUFAD,1
     6664   01 015FA    20600004 A            AI,6     4
     6665   01 015FB    75A00006 A            STB,10   6
     6666   01 015FC    32702BFB              LW,7     BUFSIZ
     6667   01 015FD    49701B01              OR,7     XA000000          FORM FLAGS AND XFER COUNT
     6668   01 015FE    1560161C              STD,6    IO1               SET UP 2ND IOCD
     6669   01 015FF    22000B0D              LI,0     DA(IO)            ANTICIPATE RAD
     6670   01 01600    72323071              LB,3     CT:ETX,1
     6671   01 01601    2130000D A            CI,3     ETXRADS           IS IT RADS
     6672   01 01602    6820160B              BCR,2    READ4             ITS A RAD
     6673   01 01603    225FFFFF A            LI,5     -1
     6674   01 01604    22000B0B              LI,0     DA(REW)           REWIND TAPE
     6675   01 01605    6AF0160D     READ3    BAL,15   RWIO
     6676   01 01606    22000B0C              LI,0     DA(SRF)           SPACE RECORD FORWARD
     6677   01 01607    20500001 A            AI,5     1                 INC CURRENT RECORD NR
     6678   01 01608    3150300D              CW,5     CT:SEEK           OBJECT RECORD
     6679   01 01609    69101605              BCS,1    READ3             NOT YET-GET ANORTHER
     6680   01 0160A    22000B0E              LI,0     DA(IO1)           POINT TO MT COMM PAIR
     6681   01 0160B    6AF0160D     READ4    BAL,15   RWIO
     6682   01 0160C    68001433              B        CHKFLG

     6684   01 0160D    CCD02BD6     RWIO     SIO,13   *Q1               DRIVE DEVICE
     6685   01 0160E    69C014B7              BCS,12   Q3ERR              EXIT IF SIO-REJECT

     6687   01 0160F    22D00064 A   RWIO1    LI,13    100               DELAY TO AVOID
     6688   01 01610    64D01610              BDR,13   %                 CHANNEL OVERLOADING

     6690   01 01611    CDD02BD6              TIO,13   *Q1
     6691   01 01612    69C0160F              BCS,12   RWIO1             WAIT FOR CHANNEL-END

     6693   01 01613    31D01B17              CW,13    Y66               THEN WAIT FOR
     6694   01 01614    6940160F              BCS,4    RWIO1              DEVICE/CONTROLLER READY
     6695   01 01615    E800000F A            B        *15

     6697                                     BOUND    8
     6698   01 01616    33000000 A   REW      DATA     X'33000000'
     6699   01 01617    00000000 A            DATA     0
     6700   01 01618    43000000 A   SRF      DATA     X'43000000'
     6701   01 01619    00000000 A            DATA     0
     6702   01 0161A    0300C034 N   IO       DATA     X'03000000'+BA(CT:SEEK)
     6703   01 0161B    2A000004 A            DATA     X'2A000004'
     6704   01 0161C    00000000 A   IO1      DATA     0
     6705   01 0161D    00000000 A            DATA     0
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  131
A    6707         01 0161E           BOOT     EQU      %
     6708   01 0161E    6AF00E64              BAL,15   SETNBUSY          STOP ALL SEX I/O
     6709   01 0161F    22F00FFF A            LI,15    X'FFF'             STOP ALL NON-SEX I/O
     6710   01 01620    CF00000F A            HIO,0    *15                 (INCLUDING CONSOLE)
     6711   01 01621    64F01620              BDR,15   %-1
     6712   01 01622    CD002BD6              TIO,0    *Q1               TEST BOOT DEVICE
     6713   01 01623    69C01639              BCS,12   BOOTERR            AND SKIP IF NOT READY
     6714   01 01624    022000C0 A            LCI      12
     6715   01 01625    2A001640              LM,0     HWBOOT            GET HARDCORE BOOT
     6716   01 01626    2B000022 A            STM,0    X'22'

     6718   01 01627    33002C4C              MTW,0    WQ2               IF Q2 .NE. 0 THEN
     6719   01 01628    6830162B              BEZ      %+3                ASSUME BOOT DEVICE IS A RAD

     6721   01 01629    22000003 A            LI,0     X'03'             USE SEEK
     6722   01 0162A    7500002A A            STB,0    X'2A'              IN PLACE OF RESTORE/REWIND

     6724   01 0162B    32002BD6              LW,0     Q1
     6725   01 0162C    35000025 A            STW,0    X'25'
     6726   01 0162D    21000080 A            CI,0     X'80'             SKIP IF BOOT DEVICE IS A MUC
     6727   01 0162E    69401630              BANZ     %+2                ELSE STEP I/O LIST POINTER
     6728   01 0162F    33100026 A            MTW,1    X'26'               TO AVOID SILLY REWIND
     6729   01 01630    32102D13              LW,1     GROUP0
     6730   01 01631    6D101100 A            WD,1     X'1100'
     6731   01 01632    3290164C              LW,9     PIE
     6732   01 01633    02200060 A            LCI      6
     6733   01 01634    2AA02EAE              LM,10    TTYDEV
     6734   01 01635    22C00000 A            LI,12    0                 DIO ADRESS IS ZERO
     6735   01 01636    72E0000E A            LB,14    14                MTL USES WORD FOR LINE #
     6736   01 01637    22F00000 A            LI,15    0                 CLEAR PSEUDO SENSE SWITCHES
     6737   01 01638    0E80163E              LPSD,8   BOOTPZE

     6739         01 01639           BOOTERR  EQU      %
     6740   01 01639    22207E84              LI,2     BA(Q3ERROR)
     6741   01 0163A    6AF01995              BAL,15   MSGOUT
     6742   01 0163B    02000000 A            NOP

        2*        01 0163C           BOOTERR0 EQU      %                                                 *H00
     6743   01 0163C    53102BF4              MTH,1    SETPASS           FORCE RESTART OF CURRENT PASS
     6744   01 0163D    68001436              B        SETHALT            AND ENTER HALT MODE

     6746                                     BOUND    8
     6747   01 0163E    00000026 A   BOOTPZE  DATA     X'26'
     6748   01 0163F    00000000 A            DATA     0

     6750   01 01640    22100064 A   HWBOOT   LI,1     100               DELAY TO AVOID RATE ERRORS
     6751   01 01641    64100023 A            BDR,1    X'23'
     6752   01 01642    68000028 A            BCR,0    X'28'
     6753   01 01643    00000080 A            DATA     X'80'
     6754   01 01644    22000015 A            LI,0     X'15'
     6755   01 01645    CC000025 A            SIO,0    *X'25'
     6756   01 01646    CD000025 A            TIO,0    *X'25'
     6757   01 01647    69C00022 A            BCS,12   X'22'

     6759   01 01648    33000094 A            GEN,8,24 X'33',X'25'**2    SAME AS T85 BOOTSTRAP
     6760   01 01649    2E000002 A            GEN,8,24 X'2E',2           (ALTHOUGH IT IS ALSO WRONG)
     6761   01 0164A    020000A8 A            GEN,8,24 X'02',X'2A'**2
     6762   01 0164B    0E000058 A            GEN,8,24 X'0E',88

     6764   01 0164C    31415926 A   PIE      DATA     X'31415926'

     6766   01 0164D    32102EA9     PRINT    LW,1     MSGDEV
     6767   01 0164E    32F02BD8              LW,15    Q3                Q3>=0
     6768   01 0164F    68301658              BCR,3    DISPLAY+1         NO

     6770   01 01650    35102C48              STW,1    OUTDEV
     6771   01 01651    21FFFFF0 A            CI,15    X'FFFF0'          MORE THAN 15 LINES
     6772   01 01652    68401654              BCR,4    %+2               NO
     6773   01 01653    22F00031 A            LI,15    X'31'             FORCE NEWPAGE
     6774   01 01654    20F000C0 A            AI,15    X'C0'
     6775   01 01655    75F02C8D              STB,15   LPFLG
     6776   01 01656    68001658              B        DISPLAY+1

     6778   01 01657    32102EAE     DISPLAY  LW,1     TTYDEV
     6779   01 01658    22700000 A            LI,7     0

     6781   01 01659    6AF016EB     DISPLAY1 BAL,15   HEADING
     6782   01 0165A    6AF017FF              BAL,15   OUT
     6783   01 0165B    E8002BC5              B        *RETURN2
     6784   01 0165C    E8002BDD              B        *DED:3            COMPLETION EXIT

        2*                           * ENTERED AFTER MODIFYING THE OPERATOR TABLE                        *H01

        4*  01 0165D    32F02C1B     OPRXIT   LW,15    LMSSET            SKIP IF LMS                     *H02
        5*  01 0165E    31F02C1C              CW,15    LMSOLD             MARGIN-CONTROLS                *H02
        6*  01 0165F    68301675              BE       SYSXIT              WERE UNCHANGED                *H02

        8*  01 01660    22800C00 A            LI,8     X'0C00'           STOP MFI/PFI                    *H02
        9*  01 01661    6D801100 A            WD,8     X'1100'            MACHINE INDEPENDENT            *H02

       11*  01 01662    32E0000F A            LW,14    15                SET SPECIFIED MARGIN            *H02
       12*  01 01663    6AF01666              BAL,15   SETLMS             CONTROLS INTO ALL BANKS        *H02

       14*  01 01664    6D801200 A            WD,8     X'1200'           START MFI/PFI                   *H02
       15*  01 01665    68001675              B        SYSXIT             MACHINE INDEPENDENT            *H02

       17*        01 01666           SETLMS   EQU      %                 SET LMS CLOCK MARGINS           *H02
       18*  01 01666    02200000 A            LCI      0                  INTO ALL BANKS OF MEMORY       *H02
       19*  01 01667    0B002C64              PSM,0    REGISTER            (SAVE ENVIRONMENT)            *H02

       21*  01 01668    35E02C1C              STW,14   LMSOLD            SAVE SYSTEM LMS CLOCK MARGINS   *H02

       23*  01 01669    32E02ECF              LW,14    ENDCORE           BA(END OF MEMORY)               *H02
       24*  01 0166A    25E0007E A            SLS,14   -2                 CONVERTED TO WORD              *H02

       26*  01 0166B    32F02C1C              LW,15    LMSOLD                                            *H02

       28*  01 0166C    227FFFFC A   SETLMS0  LI,7     -4                ASSUME 4-WAY INTERLEAVE         *H02

       30*  01 0166D    02200070 A            LCI      7                 SET CLOCK-MARGIN CONTROLS       *H02
       31*  01 0166E    ADFE000E A            LMS,15   *14,7              (SHOULD WORK ALWAYS R.E.A.)    *H02
       32*  01 0166F    6570166D              BIR,7    %-2                 LOOP FOR INTERLEAVING         *H02

       34*  01 01670    20EFE000 A            AI,14    -X'2000'          REDUCE BY 8K                    *H02
       35*  01 01671    6920166C              BGZ      SETLMS0            LOOP FOR ALL OF MEMORY         *H02

       37*  01 01672    02200000 A            LCI      0                 RESTORE ENVIRONMENT             *H02
       38*  01 01673    0A002C64              PLM,0    REGISTER                                          *H02
       39*  01 01674    E800000F A            B        *15                                               *H02

     6786         01 01675           SYSXIT   EQU      %
     6787   01 01675    6AF017FC     DISPXIT  BAL,15   UNTIE             RE-INSTATE FLAG AND BUFFER
     6788   01 01676    68001521              B        EXPLAIN3

     6790   01 01677    32102EAE     REPLACE  LW,1     TTYDEV
     6791   01 01678    22700000 A            LI,7     0
     6792   01 01679    6AF016EB              BAL,15   HEADING
     6793   01 0167A    6AF017FF              BAL,15   OUT
     6794   01 0167B    68001682              B        STORE1            MORE INPUT NEEDED
     6795   01 0167C    E8002BDD              B        *DED:3             COMPLETION EXIT

     6797   01 0167D    32102EAE     STORE    LW,1     TTYDEV
     6798   01 0167E    22700000 A            LI,7     0
     6799   01 0167F    6AF016EB              BAL,15   HEADING
     6800   01 01680    22F0143B              LI,15    EXECCCI           SET RETURN TO EXECCCI
     6801   01 01681    68001684              B        STORE2

     6803   01 01682    6AF017EB     STORE1   BAL,15   RESET
     6804   01 01683    32F02BC5              LW,15    RETURN2

     6806   01 01684    35F02BC4     STORE2   STW,15   RETURN1           ESTABLISH RETURN
     6807   01 01685    6800143B              B        EXECCCI

     6809   01 01686    22700000 A   SPREAD   LI,7     0
     6810   01 01687    6AF016EB              BAL,15   HEADING
     6811   01 01688    32D02BD8              LW,13    Q3                GET VALUE TO BE SPREAD

     6813   01 01689    72A02C49     SPREAD1  LB,10    LASTBYTE          GET LAST DELIMETER
     6814   01 0168A    6AF018C2              BAL,15   STORETBL
     6815   01 0168B    6AF01818              BAL,15   UPDATE
     6816   01 0168C    68001689              B        SPREAD1
     6817   01 0168D    68001689              B        SPREAD1

     6819   01 0168E    31402C41              CW,4     NE                DONE?
     6820   01 0168F    69201675              BCS,2    DISPXIT           YES

     6822   01 01690    6AF017F5              BAL,15   ADVANCE
     6823   01 01691    680017E0              B        SETCNTR

     6825                            *        RESTORE MSG DEV TO EXER IF USED

     6827   01 01692    32102BEF     POSTMSG  LW,1     COUNT
     6828   01 01693    32302C48              LW,3     OUTDEV
     6829   01 01694    51323062     POSTMSG1 CH,3     CT:CA,1           IS IT IN CONT. TABLE
     6830   01 01695    68301698              BCR,3    POSTMSG2          YES
     6831   01 01696    64101694              BDR,1    POSTMSG1          KEEP LOOKING
     6832   01 01697    680016A3              B        POSTMSG3          NOT IN TABLES

     6834   01 01698    52C23003     POSTMSG2 LH,12    CT:CS,1           CONTROLLER SELECTION
     6835   01 01699    E810000F A            BCR,1    *15               NOT BUSY-EXIT
     6836   01 0169A    22000020 A            LI,0     X'20'             RESET PRINTERS FAULT TIMER
     6837   01 0169B    550230B2              STH,0    CT:FT,1
     6838   01 0169C    32023035              LW,0     CT:COM,1          GET LOC OF COM PAIRS
     6839   01 0169D    92C00000 A            LD,12    *0                GET COMMAND PAIR
     6840   01 0169E    15C02C8A              STD,12   LPCOM             PUT INTO LP COMMANDS
     6841   01 0169F    22C000C2 A            LI,12    X'C2'             TWO SPACES
     6842   01 016A0    75C02C8C              STB,12   LPBUF             ESTABLISH NEW PAGE FORMAT
     6843   01 016A1    22001644              LI,0     DA(LPOUT)
     6844   01 016A2    4C060000 A            SIO,0    0,3               RESTART DEVICE

     6846   01 016A3    22000000 A   POSTMSG3 LI,0     0
     6847   01 016A4    75002C48              STB,0    OUTDEV            CLEAR LP BUSY FLAG
     6848   01 016A5    75002C8D              STB,0    LPFLG
     6849   01 016A6    E800000F A            B        *15               EXIT 'OUT'

     6851                            *        ERROR LOG DIRECTIVE

     6853   01 016A7    32B02D1E     ERRORS   LW,11    EFSTART
     6854   01 016A8    35B016EA              STW,11   EFSTART1
     6855   01 016A9    12002EE4              LD,0     ERRFILE           SAVE POINTERS
     6856   01 016AA    150016E8              STD,0    ERRFILEP

     6858   01 016AB    6AF017F9              BAL,15   TIEUP             SAVE PROMPT

     6860   01 016AC    32002BD6              LW,0     Q1                SKIP TO RESET ERROR LOG
     6861   01 016AD    691016B6              BLZ      ERRORS2            IF PARAMETER Q1<0
        1*  01 016AE    35002CF8              STW,0    IDENTSAV             (SAVE IDENTSEL)              *H01

        3*  01 016AF    32002BD8              LW,0     Q3                Q3=0 => Q2 IS STARTING          *H01
        4*  01 016B0    693016B3              BNEZ     ERRORS0            SEQUENCE NUMBER                *H01

        6*  01 016B1    46002C4C              XW,0     WQ2               GET STARTING SEQUENCE NUMBER    *H01
        7*  01 016B2    680016B4              B        %+2                                               *H01

        1*  01 016B3    22000000 A   ERRORS0  LI,0     0                 USE LARGEST POSSIBLE            *H01
        2*  01 016B4    32101ADA              LW,1     NOBITS             RANGE OF SEQUENCE NUMBERS      *H01
     6864   01 016B5    680016C2              B        ERRORS3

     6866   01 016B6    35B02EE6     ERRORS2  STW,11   EFSECTOR

     6868   01 016B7    12202C6A              LD,2     ERRFILEI
     6869   01 016B8    15202EE4              STD,2    ERRFILE           INITIALIZE ERRFILE
     6870   01 016B9    152016E8              STD,2    ERRFILEP

     6872   01 016BA    12001A50              LD,0     ZEROS             FORCE NO RANGE
     6873   01 016BB    35040001 A            STW,0    1,2                RESET ERROR LOG BUFFER
     6874   01 016BC    35002CFD              STW,0    SEQUENCE            RESET ERROR LOG SEQUENCE
        1*  01 016BD    35002D20              STW,0    EFWRAP                                            *H01

        3*  01 016BE    32B02EE6              LW,11    EFSECTOR          CLEAR FIRST SECTOR              *H01
        4*  01 016BF    12C02D1C              LD,12    EFWRITE            OF ERROR LOG ON DISK           *H01
        5*  01 016C0    6AF00388              BAL,15   BASEDRVR                                          *H01

        7*  01 016C1    680016E3              B        ERRXIT0                                           *H01

     6876   01 016C2    15002CF6     ERRORS3  STD,0    SEQRNG            ESTABLISH LOG RANGE

     6880   01 016C3    32202C4C              LW,2     WQ2
     6881   01 016C4    35202CFB              STW,2    WORDSEL           SAVE COMPARE VALUE
     6882   01 016C5    32202BD8              LW,2     Q3
     6883   01 016C6    35202CFA              STW,2    MASKSEL           SAVE COMPARE MASK

        2*  01 016C7    33002CFD              MTW,0    SEQUENCE          DO NOT WRITE LAST LOG BUFFER    *H01
        3*  01 016C8    683016CC              BEZ      NEXTSECT           TO DISK IF NULL ERROR LOG      *H01

     6885   01 016C9    32B02EE6              LW,11    EFSECTOR
     6886   01 016CA    12C02D1C              LD,12    EFWRITE           WRITE OUT CURRENT ERRBUF
     6887   01 016CB    6AF00388              BAL,15   BASEDRVR

     6889   01 016CC    12C02C6A     NEXTSECT LD,12    ERRFILEI          POINT TO START
     6890   01 016CD    15C02C6C              STD,12   ERRLOG             OF ERROR LOG BUFFER
     6891   01 016CE    33102C6C              MTW,1    ERRLOG              (EFSECTOR WORD)

     6893   01 016CF    32B016EA              LW,11    EFSTART1          READ ERRFILE
     6894   01 016D0    12C016E6              LD,12    EFREAD             FROM THE BASE DEVICE
     6895   01 016D1    6AF00388              BAL,15   BASEDRVR
     6896   01 016D2    66D016EA              AWM,13   EFSTART1

     6898   01 016D3    B2B02C6C     TRYERRLG LW,11    *ERRLOG           TEST BUFFER STATE
     6899   01 016D4    691016CC              BLZ      NEXTSECT           SKIP IF END OF BUFFER
     6900   01 016D5    683016E1              BEZ      ERRXIT              SKIP IF END OF FILE

        2*  01 016D6    02200030 A            LCI      3                 GET FIRST THREE                 *H01
        3*  01 016D7    AA002C6C              LM,0     *ERRLOG            WORDS OF ENTRY                 *H01
        4*  01 016D8    52200002 A            LH,2     2                                                 *H01

        6*  01 016D9    32002CF8              LW,0     IDENTSAV          GET IDENT SELECTION             *H01
        7*  01 016DA    51202EAC              CH,2     LOGLEV             COMPARE WITH DISPLAY           *H01
        8*  01 016DB    681016DD              BGE      %+2                 THRESHOLD AND SKIP IF OK      *H01
        9*  01 016DC    220FFFFF A            LI,0     -1                   ELSE INHIBIT DISPLAY         *H01

       11*  01 016DD    35002CF9              STW,0    IDENTSEL          SAVE INSTANTANEOUS IDENTSEL     *H01

     6902   01 016DE    6AF002DC              BAL,15   LOGGER            PROCESS LOG BUFFER
     6903   01 016DF    680016E1              B        ERRXIT             SKIP IF BREAK
     6904   01 016E0    680016D3              B        TRYERRLG            CONTINUE PROCESSING

     6906   01 016E1    120016E8     ERRXIT   LD,0     ERRFILEP          RESTORE CURRENT
     6907   01 016E2    15002EE4              STD,0    ERRFILE            POSITION IN BUFFER

        1*  01 016E3    22301341     ERRXIT0  LI,3     CCP3                                              *H01
     6910   01 016E4    35302BC6              STW,3    RETURN3           RESTORE RETURN3
     6911   01 016E5    68001521              B        EXPLAIN3

     6913                                     BOUND    8
     6914   01 016E6    0200BB90 N   EFREAD   DATA     X'2000000'+BA(ERRBUF)
     6915   01 016E7    0A000400 A            DATA     X'A000000'+EBSIZ*4
     6916   01 016E8                 ERRFILEP RES      2
     6917   01 016EA    00000000 A   EFSTART1 DATA     0

     6919                            *        EXECUTIVE SUB ROUTINES

     6921   01 016EB    35F02BC7     HEADING  STW,15   RETURN4
     6922   01 016EC    35102C48              STW,1    OUTDEV            SET 'OUT' DEVICE
     6923   01 016ED    32202C64              LW,2     REGISTER
     6924   01 016EE    202FFFF1 A            AI,2     -15
     6925   01 016EF    2231FFFF A            LI,3     X'1FFFF'
     6926   01 016F0    47201D03              STS,2    REGADD            SET REGISTER DISPLAY
     6927   01 016F1    32202BDE              LW,2     DED:4             BA OF HEADING
     6928   01 016F2    6AF01939              BAL,15   MSG
     6929   01 016F3    02000000 A            NOP
     6930   01 016F4    6AF016F6              BAL,15   UPTIME            UPDATE TIME
     6931   01 016F5    680017B5              B        SET+1

     6933                            *        UPDATES REAL TIME TABLE

     6935   01 016F6    226FFFFC A   UPTIME   LI,6     -4
     6936   01 016F7    22400000 A            LI,4     0
     6937   01 016F8    32502EE7              LW,5     REALTIME          GET REALTIME
     6938   01 016F9    30502C58              AW,5     CLK4PULS          INCLUDE PULSE COUNTS
     6939   01 016FA    30502C5C              AW,5     COUNT4            INCLUDE CURRENT PULSES

     6941   01 016FB    364C1A56     UPTIME1  DW,4     500HZ+4,6
     6942   01 016FC    355C2C54              STW,5    DAYS+4,6          SAVE QUOTIENT
     6943   01 016FD    25400160 A            SLD,4    -32                AND USE REMAINDER
     6944   01 016FE    656016FB              BIR,6    UPTIME1

     6946   01 016FF    E800000F A            B        *15

     6948   01 01700    02200030 A   SNAP     LCI      3
     6949   01 01701    2A102BD6              LM,1     Q1                PICK UP QUALIFIERS
     6950   01 01702    21100010 A            CI,1     X'10'             LOC GREATER THAN 16
     6951   01 01703    691014B7              BL       Q3ERR             NO

     6953   01 01704    6AF01718              BAL,15   UNSNAP+1          UNSNAP ANY PREVIOUS SNAP

     6955   01 01705    32202C4C              LW,2     WQ2               IF Q3<Q2
     6956   01 01706    31200003 A            CW,2     3                  THEN ASSUME Q3 IS COUNT
     6957   01 01707    68201709              BLE      %+2
     6958   01 01708    30300002 A            AW,3     2

     6960   01 01709    02200030 A            LCI      3
     6961   01 0170A    2B10176E              STM,1    SNAPADD           STORE SNAPF,SNAPL,SNAPWORD

     6963   01 0170B    32A01771              LW,10    XPSDSNAP          XPSD,0 SNAPSHOT
     6964   01 0170C    C6A0176E              XW,10    *SNAPADD          INSERT SNAPSHOT
     6965   01 0170D    32B20001 A            LW,11    1,1
     6966   01 0170E    30101775              AW,1     BRANCH2           FORM B   SNAPADD+2
     6967   01 0170F    35101774              STW,1    EXECUTE2
     6968   01 01710    201FFFFF A            AI,1     -1                FORM B   SNAPADD+1

     6970   01 01711    7200000B A            LB,0     11                GET ORDER
     6971   01 01712    21000002 A            CI,0     2                 IS IT A NOP
     6972   01 01713    68301715              BE       %+2               YES-KEEP IT
     6973   01 01714    32B00001 A            LW,11    1                 REPLACE WITH RETURN

     6975   01 01715    15A01772              STD,10   EXECUTE           SAVE SNAPPED INSTRUCTION
     6976   01 01716    68001433              B        CHKFLG

     6978   01 01717    22F01433     UNSNAP   LI,15    CHKFLG
     6979   01 01718    22A00000 A            LI,10    0
     6980   01 01719    46A01772              XW,10    EXECUTE           CLEAR LAST SNAP
     6981   01 0171A    E830000F A            BCR,3    *15               EXIT IF NO SNAP
     6982   01 0171B    B5A0176E              STW,10   *SNAPADD          RESTORE SNAPPED LOC
     6983   01 0171C    E800000F A            B        *15

     6985                            *        SNAPS CONTENTS OF LOC Q2 WHEN LOC Q1 IS ACCESSED.

     6987                                     BOUND    8
     6988   01 0171E    00000000 A   SNAPSHOT DATA     0
     6989   01 0171F    00000000 A            DATA     0
     6990   01 01720    00001722              DATA     %+2
     6991   01 01721    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED

     6993   01 01722    0B002C64              PSM,0    REGISTER
     6994   01 01723    32001AFB              LW,0     SNPRMPT
     6995   01 01724    35002C8E              STW,0    BUFFER

     6997   01 01725    22700004 A            LI,7     4
     6998   01 01726    32601B02              LW,6     X8200000          8 CHARS IN HEX
     6999   01 01727    33F0171E              MTW,15   SNAPSHOT
     7000   01 01728    22D1FFFF A            LI,13    X'1FFFF'
     7001   01 01729    4BD0171E              AND,13   SNAPSHOT
     7002   01 0172A    6AF0183D              BAL,15   SPUSH             PUSH SNAP ADDRESS

     7004   01 0172B    32A02C64              LW,10    REGISTER
     7005   01 0172C    20AFFFF1 A            AI,10    -15               GET ADDRESS OF REGISTERS
     7006   01 0172D    32D0176F              LW,13    SNAPWORD
     7007   01 0172E    69101748              BLZ      SNAP0             SNAP HALT

     7009   01 0172F    21D00010 A            CI,13    X'10'             IS IT A REGISTER
     7010   01 01730    69101732              BL       %+2               YES
     7011   01 01731    22A00000 A            LI,10    0
     7012   01 01732    30A0176F              AW,10    SNAPWORD
     7013   01 01733    6AF0183D              BAL,15   SPUSH             OUTPUT ADDRESS

     7015   01 01734    2221FFFF A            LI,2     X'1FFFF'
     7016   01 01735    4B201770              AND,2    SNAPFLAG          PREPARE TRUE STOP ADDRESS

     7018   01 01736    32302C64              LW,3     REGISTER
     7019   01 01737    203FFFF1 A            AI,3     -15

     7021   01 01738    21200010 A            CI,2     X'10'             IS STOP ADDRESS A REGISTER
     7022   01 01739    6910173B              BL       %+2
     7023   01 0173A    22300000 A            LI,3     0
     7024   01 0173B    30300002 A            AW,3     2

     7026         01 0173C           SNAP5    EQU      %
     7027   01 0173C    32D00007 A            LW,13    7                 FETCH BUFFER POINTER
     7028   01 0173D    20D00009 A            AI,13    9                  ALLOW FOR NEXT HEX ENTRY
     7029   01 0173E    31D02EAA              CW,13    LIMIT               COMPARE WITH WIDTH OF LINE
     7030   01 0173F    69201748              BG       SNAP0                AND STOP IF OVERFLOW

     7032   01 01740    B2D0000A A            LW,13    *10               FETCH CONTENTS
     7033   01 01741    6AF0183E              BAL,15   PUSH

     7035   01 01742    22D1FFFF A            LI,13    X'1FFFF'
     7036   01 01743    4BD0000A A            AND,13   10
     7037   01 01744    31D00003 A            CW,13    3                 COMPARE FOR LIMIT
     7038   01 01745    68101748              BGE      SNAP0             AND STOP IF AT OR BEYOND

     7040   01 01746    20A00001 A            AI,10    1                 UPDATE POINTER
     7041   01 01747    6800173C              B        SNAP5

     7043   01 01748    32102EAE     SNAP0    LW,1     TTYDEV
     7044   01 01749    2220B238              LI,2     BA(BUFFER)
     7045   01 0174A    6AF01939              BAL,15   MSG
     7046   01 0174B    6800174F              B        SNAP2             BREAK EXIT

     7048   01 0174C    32D0176F              LW,13    SNAPWORD          SNAPWORD>0
     7049   01 0174D    49D01770              OR,13    SNAPFLAG
     7050   01 0174E    6810175E              BGEZ     SNAP4             YES-NOT A HALT SNAP

     7052   01 0174F    222FFFF8 A   SNAP2    LI,2     -8                GIVE CAL40 INDICATION
     7053   01 01750    3230176E              LW,3     SNAPADD           SAVE SNAP ADDRESS IN R0
     7054   01 01751    1240171E              LD,4     SNAPSHOT          GET RETURN ADDRESS

     7056   01 01752    02200040 A            LCI      4
     7057   01 01753    0B202C66              PSM,2    RETURNS

     7059   01 01754    12201AFE              LD,2     SYSHALT
     7060   01 01755    6AF012FF              BAL,15   CCP

     7062   01 01756    02200040 A            LCI      4
     7063   01 01757    0A202C66              PLM,2    RETURNS

     7065   01 01758    3130176E              CW,3     SNAPADD           RESNAP WHILE IN CCP
     7066   01 01759    69301761              BNE      SNAPXIT           YES
     7067   01 0175A    1140171E              CD,4     SNAPSHOT          BRANCH
     7068   01 0175B    69301761              BNE      SNAPXIT           YES
     7069   01 0175C    32001772              LW,0     EXECUTE           UNSNAP WHILE IN CCP
     7070   01 0175D    68301761              BEZ      SNAPXIT           YES

     7072   01 0175E    1240171E     SNAP4    LD,4     SNAPSHOT          GET MACHINE ENVIRONMENT
     7073   01 0175F    4B401B0B              AND,4    YFFFE             CLEAR ADDRESS
     7074   01 01760    20401772              AI,4     EXECUTE           DIVERT TO EXECUTE

     7076   01 01761    1540176C     SNAPXIT  STD,4    SNAPPSD

     7078   01 01762    21200000 A            CI,2     0                 COME FROM CAL40
     7079   01 01763    69301768              BNE      SNAP3              YES (???)

     7081   01 01764    22700004 A            LI,7     STRTBUF
     7082   01 01765    6AF01871              BAL,15   PUSH7             TERMINATE BUFFER

     7084   01 01766    32001AFC              LW,0     RUNPRMPT
     7085   01 01767    35002C8E              STW,0    BUFFER

     7087   01 01768    02200000 A   SNAP3    LCI      0
     7088   01 01769    0A002C64              PLM,0    REGISTER
     7089   01 0176A    0E80176C              LPSD,8   SNAPPSD

     7091                                     BOUND    8
     7092   01 0176C    00000000 A   SNAPPSD  DATA     0
     7093   01 0176D    00000000 A            DATA     0

     7095   01 0176E    00000000 A   SNAPADD  DATA     0
     7096   01 0176F    00000000 A   SNAPWORD DATA     0
     7097   01 01770    00000000 A   SNAPFLAG DATA     0

     7099   01 01771    0F80171E     XPSDSNAP XPSD,8   SNAPSHOT

     7101                                     BOUND    8
     7102   01 01772    00000000 A   EXECUTE  DATA     0
     7103   01 01773    00000000 A   EXECUTE1 DATA     0
     7104   01 01774    68001774     EXECUTE2 B        %                 CHANGE % TO SNAPADD+2
     7105   01 01775    68000002 A   BRANCH2  B        2
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  132
A    7107                            *        RELOADS CONFIGURATOR AND BRANCHES TO IT

     7109   01 01776    22500002 A   CONFIGUR LI,5     2                 READ
     7110   01 01777    75502D1A              STB,5    CONFXFER

     7112   01 01778    32B02D21              LW,11    DATAPOS           IS IT OUT THERE
     7113   01 01779    6830177D              BEZ      CONFIGR1          NO

     7115   01 0177A    32B02D22              LW,11    CONFPOS
     7116   01 0177B    12C02D1A              LD,12    CONFXFER
     7117   01 0177C    6AF00388              BAL,15   BASEDRVR          READ IT IN

     7119   01 0177D    6AF00E64     CONFIGR1 BAL,15   SETNBUSY          SHUT DOWN FIRST
     7120   01 0177E    0EA03512              LPSD,10  INITPSD           ENTER CONFIGURATOR INHIBITED

     7122                            *        WRITES PROGRAM AND OR DATA TO BASE RAD

     7124   01 0177F    22500001 A   REDUMP   LI,5     X'01'             WRITE ORDER
     7127   01 01780    68001782              B        RELOAD+1

     7129                            *        READS PROGRAM AND OR DATA FROM BASE RAD

     7131   01 01781    22500002 A   RELOAD   LI,5     X'02'             READ ORDER
     7132   01 01782    33002D21              MTW,0    DATAPOS           HAS BASE DEV BEEN WRITEN
     7133   01 01783    683014B7              BEZ      Q3ERR             NO-ILLEGAL REQUEST

     7135   01 01784    32002BD6              LW,0     Q1                GET QUALIFIER
     7136   01 01785    21000007 A            CI,0     7                 GREATER THAN 7
     7137   01 01786    692014B7              BG       Q3ERR             YES-KILL IT

     7139   01 01787    25000008 A            SLS,0    8
     7140   01 01788    30500000 A            AW,5     0
     7141   01 01789    6800014C              B        XFERPRGM

     7143                            *        SETS THE TIME ACCORDING TO THE DATE-TIME TABLE

     7145   01 0178A    226FFFFC A   SETIME   LI,6     -4
     7146   01 0178B    22400000 A            LI,4     0
     7147   01 0178C    35402C5C              STW,4    COUNT4            RESET CURRENT PULSE COUNT

     7149   01 0178D    325C2C54     SETIME1  LW,5     DAYS+4,6          GET TIME VALUE
     7150   01 0178E    375C1A56              MW,5     500HZ+4,6
     7151   01 0178F    30400005 A            AW,4     5                 ACCUMULATE PRODUCTS
     7152   01 01790    6560178D              BIR,6    SETIME1

     7154   01 01791    35402EE7              STW,4    REALTIME          SET REAL TIME WITH NEW VAL
     7155   01 01792    68001675              B        DISPXIT

     7157   01 01793    120017B0     SEARCH   LD,0     COMSEL            (CS,12 *6,4)(BCS,3 COMPARE5)
     7158   01 01794    68001796              B        COMPAR1

     7160   01 01795    120017B2     COMPAR   LD,0     COMWORD           (CW,12 *6,4)(BCR,4 COMPARE5)

     7162   01 01796    351017A3     COMPAR1  STW,1    COMPAR4           SET COMPARE TYPE
     7163   01 01797    350018ED              STW,0    COMPRWA1

     7165   01 01798    22207EAC              LI,2     BA(SELERR)
     7166   01 01799    72000009 A            LB,0     9                 GET TABLE COUNT(M)
     7167   01 0179A    21000001 A            CI,0     1                 ONLY ONE TABLE IN ARRAY?
     7168   01 0179B    693014B2              BNE      QERR              NO

     7170   01 0179C    4B901AFA              AND,9    NOTHORZ           AND OFF HORIZONTAL IND.
     7171   01 0179D    35902BDB              STW,9    DED:1
     7172   01 0179E    32102EAE              LW,1     TTYDEV
     7173   01 0179F    22700000 A            LI,7     0
     7174   01 017A0    6AF016EB              BAL,15   HEADING

     7176   01 017A1    32C02BD8              LW,12    Q3                GET COMPARE VALUE

     7178   01 017A2    6AF018E4              BAL,15   COMPRTBL
     7179   01 017A3    00000000 A   COMPAR4  DATA     0                 BRANCH ON NO COMPARE

     7181   01 017A4    6AF018D9              BAL,15   LOADTBL           SET D & GET VALUE
     7182   01 017A5    6AF0183E              BAL,15   PUSH
     7183   01 017A6    2220B238              LI,2     BA(BUFFER)
     7184   01 017A7    6AF01995              BAL,15   MSGOUT
     7185   01 017A8    68001675              B        DISPXIT

     7187   01 017A9    6AF01818     COMPAR5  BAL,15   UPDATE
     7188   01 017AA    02000000 A            NOP
     7189   01 017AB    02000000 A            NOP

     7191   01 017AC    31402C41              CW,4     NE                DONE?
     7192   01 017AD    69201675              BG       DISPXIT           YES

     7194   01 017AE    6AF017F5              BAL,15   ADVANCE
     7195   01 017AF    680017DF              B        SETCNTR-1

     7197                                     BOUND    8
     7198   01 017B0    C5C80001 A   COMSEL   CS,12    *1,4
     7199   01 017B1    693017A9              BNE      COMPAR5           BRANCH IF NOT EQUAL

     7201   01 017B2    B1C80001 A   COMWORD  CW,12    *1,4
     7202   01 017B3    684017A9              BAZ      COMPAR5           BRANCH IF NO ONES COMPARE

     7204                            *        SET NO,NE,MO,CINC,CNTRO,CAT,AP,NI,MI,APTI,CCI,CNTRI
     7205                            *            REPLACE FLAG WITH 40 AND SAVE IN FLAG0
     7206                            *            SAVE BUFFER IN BUFFERO

     7208   01 017B4    35F02BC7     SET      STW,15   RETURN4
     7209   01 017B5    20700001 A            AI,7     1                 POINT TO 1ST BYTE AFTER CR
     7210   01 017B6    35702BEB              STW,7    ADDRESS           SAVE THE MSG ADDRESS
     7211   01 017B7    32902BDB              LW,9     DED:1             GET ARRAY POINTER
     7212   01 017B8    72500009 A            LB,5     9                 GET M
     7213   01 017B9    35502C42              STW,5    M                 NUMBER OF TABLES IN ARRAY
     7214   01 017BA    35902C3F              STW,9    AP                SAVE ARRAY POINTER
     7215   01 017BB    6AF017F9              BAL,15   TIEUP
     7216   01 017BC    32402BD6              LW,4     Q1                ESTABLISH N
     7217   01 017BD    35402C3B              STW,4    NO
     7218   01 017BE    32502BD7              LW,5     Q2                LIMIT OF N
     7219   01 017BF    35502C41              STW,5    NE
     7220   01 017C0    32602C3F              LW,6     AP                GET FIRST TABLE POINTER
     7221   01 017C1    4B601AE8              AND,6    NOBITS+14
     7222   01 017C2    326C0000 A            LW,6     0,6
     7223   01 017C3    691017D6              BCS,1    SET2              ITS A COUNTER POINTER
     7224   01 017C4    22800000 A            LI,8     0
     7225   01 017C5    35802C40              STW,8    CAT               CLEAR COUNTER POINTER
     7226   01 017C6    35802C3D              STW,8    CNTRO             CLEAR COUNTER VALUE
     7227   01 017C7    32702BEB              LW,7     ADDRESS           GET BEGINNING OF BUFFER
     7228   01 017C8    758E2C8E              STB,8    BUFFER,7
     7229   01 017C9    21940000 A            CI,9     X'40000'          SPECIAL TABLE POINTER
     7230   01 017CA    684017D0              BCR,4    SET1              NO
     7231   01 017CB    32002BD9              LW,0     Q4
     7232   01 017CC    66002C3F              AWM,0    AP                UPDATE AP
     7233   01 017CD    32602C3F              LW,6     AP                GET  POINTER
     7234   01 017CE    4B601AE8              AND,6    NOBITS+14
     7235   01 017CF    326C0000 A            LW,6     0,6
     7236   01 017D0    35702BE0     SET1     STW,7    BCI
     7237   01 017D1    35702BE2              STW,7    OCI
     7238   01 017D2    32402C3B              LW,4     NO
     7239   01 017D3    22500000 A            LI,5     0
     7240   01 017D4    35502C3C              STW,5    MO
     7241   01 017D5    E8002BC7              B        *RETURN4

     7243   01 017D6    21940000 A   SET2     CI,9     X'40000'          SPECIAL TABLE?
     7244   01 017D7    684017DB              BCR,4    SET3              NO
     7245   01 017D8    32002BD9              LW,0     Q4                GET TABLE NUMBER
     7246   01 017D9    200FFFFF A            AI,0     -1
     7247   01 017DA    66002C3F              AWM,0    AP                UPDATE AP
     7248   01 017DB    33102C3F     SET3     MTW,1    AP
     7249   01 017DC    35602C40              STW,6    CAT
     7250   01 017DD    4B601AE8              AND,6    NOBITS+14
     7251   01 017DE    328C0000 A            LW,8     0,6               PICK UP ORIGINAL COUNTER
     7252   01 017DF    35802C3D              STW,8    CNTRO
     7253   01 017E0    32D02C3D     SETCNTR  LW,13    CNTRO
     7254   01 017E1    32702BEB              LW,7     ADDRESS           GET BEGINNING OF BUFFER
     7255   01 017E2    32602C40              LW,6     CAT
     7256   01 017E3    683017E5              BCR,3    %+2
     7257   01 017E4    6AF0183E              BAL,15   PUSH              ENTER COUNTER VALUE
     7258   01 017E5    32602C3F              LW,6     AP                RESET TABLE POINTER
     7259   01 017E6    4B601AE8              AND,6    NOBITS+14
     7260   01 017E7    326C0000 A            LW,6     0,6
     7261   01 017E8    32902C3F              LW,9     AP
     7262   01 017E9    32802C3D              LW,8     CNTRO
     7263   01 017EA    680017D0              B        SET1

     7265                            *        RESET NI,MI,OCI,CNTRI,API
     7266                            *        TO    NO,MO,BCI,CNTRO,AP1+MO

     7268   01 017EB    32402C3B     RESET    LW,4     NO
     7269   01 017EC    32502C3C              LW,5     MO
     7270   01 017ED    32702BE0              LW,7     BCI
     7271   01 017EE    35702BE2              STW,7    OCI
     7272   01 017EF    32802C3D              LW,8     CNTRO
     7273   01 017F0    32902C3F              LW,9     AP
     7274   01 017F1    32602C3F              LW,6     AP
     7275   01 017F2    4B601AE8              AND,6    NOBITS+14
     7276   01 017F3    B26A0006 A            LW,6     *6,5
     7277   01 017F4    E800000F A            B        *15

     7279                            *        SET NO,MO,CNTRO TO NI,MI,CNTRI

     7281   01 017F5    35402C3B     ADVANCE  STW,4    NO
     7282   01 017F6    35502C3C              STW,5    MO
     7283   01 017F7    35802C3D              STW,8    CNTRO
     7284   01 017F8    E800000F A            B        *15

     7286                            *        TIE UP CCP AND PREVENT EXIT

     7288   01 017F9    32D02C8E     TIEUP    LW,13    BUFFER
     7289   01 017FA    35D02C3E              STW,13   BUFFERO
     7290   01 017FB    E800000F A            B        *15

     7292                            *        UNTIES CCP AND ALLOWS EXIT

     7294   01 017FC    32B02C3E     UNTIE    LW,11    BUFFERO
     7295   01 017FD    35B02C8E              STW,11   BUFFER
     7296   01 017FE    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  133
A    7298                            *        MOVES TABLE ELEMENT APM+N FROM TABLE, CONVERTS
     7299                            *        VALUE VIA 'D' AND PUTS THE VALUE INTO THE BUFFER
     7300                            *        AT BYTE CCI.  WHEN A LINE FULL OF INFO HAS BEEN
     7301                            *        INSERTED, THE LINE IS OUTPUT TO THE DEVICE INDICATED
     7302                            *        BY 'OUTDEV'.

     7304   01 017FF    35F02BC8     OUT      STW,15   RETURN5
     7305   01 01800    6AF018D9     OUT1     BAL,15   LOADTBL           GET ELEMENT APM+N
     7306   01 01801    6AF0183E              BAL,15   PUSH              PUT INTO BUFFER
     7307   01 01802    6AF01818              BAL,15   UPDATE
     7308   01 01803    68001800              B        OUT1
     7309   01 01804    68001809              B        OUT2
     7310   01 01805    6800180C              B        OUT3
     7311   01 01806    6AF01811              BAL,15   OUTLINE
     7312   01 01807    33102BC8     OUT4     MTW,1    RETURN5
     7313   01 01808    E8002BC8              B        *RETURN5

     7315   01 01809    6AF01811     OUT2     BAL,15   OUTLINE
     7316   01 0180A    32702BE0              LW,7     BCI
     7317   01 0180B    68001800              B        OUT1

     7319   01 0180C    6AF01811     OUT3     BAL,15   OUTLINE
     7320   01 0180D    31402C41              CW,4     NE                DONE?
     7321   01 0180E    69201807              BCS,2    OUT4              YES
     7322   01 0180F    6AF017F5              BAL,15   ADVANCE
     7323   01 01810    680017E0              B        SETCNTR

     7325                            *        OUTPUTS THE BUFFER ON THE 'OUTDEV' DEVICE.

     7327   01 01811    35F02BC5     OUTLINE  STW,15   RETURN2
     7328   01 01812    32102C48              LW,1     OUTDEV
     7329   01 01813    2220B237              LI,2     BA(BUFFER)-1
     7330   01 01814    30202BEB              AW,2     ADDRESS           COMPUTE OUTPUT BUFFER ADD
     7331   01 01815    6AF01939              BAL,15   MSG
     7332   01 01816    E8002BDD              B        *DED:3            STOP IF BREAK
     7333   01 01817    E8002BC8              B        *RETURN5

     7335                            *        UPDATES NI,MI,APTI,CINC,CNTRI

     7337   01 01818    21920000 A   UPDATE   CI,9     X'20000'          HORIZONTAL FORMAT?
     7338   01 01819    69401826              BCS,4    UPDATE1           YES
     7339   01 0181A    20500001 A            AI,5     1                 INCREMENT MI
     7340   01 0181B    32602C3F              LW,6     AP
     7341   01 0181C    4B601AE8              AND,6    NOBITS+14
     7342   01 0181D    B26A0006 A            LW,6     *6,5              GET TABLE POINTER
     7343   01 0181E    31502C42              CW,5     M                 MI=M
     7344   01 0181F    68101826              BCR,1    UPDATE1           YES
     7345   01 01820    72A00006 A            LB,10    6                 GET CHAR COUNT(C)
     7346   01 01821    30A00007 A            AW,10    7                 C+CCI
     7347   01 01822    38A02BEB              SW,10    ADDRESS           S+C+CCI

     7349   01 01823    31A02EAA              CW,10    LIMIT             CHECK FOR ROOM LEFT
     7350   01 01824    E820000F A            BLE      *15                ON LINE, EXIT IF NO OVERFLOW
     7351   01 01825    68001839              B        UPDATE3             ELSE CAUSE PRINTING

     7353   01 01826    20800001 A   UPDATE1  AI,8     1                 INCREMENT CNTR
     7354   01 01827    20400001 A            AI,4     1                 INCREMENT NI
     7355   01 01828    21920000 A            CI,9     X'20000'          VERTICAL FORMAT?
     7356   01 01829    68401838              BCR,4    UPDATE2           YES
     7357   01 0182A    72A00006 A            LB,10    6                 GET C
     7358   01 0182B    30A00007 A            AW,10    7                 C+CCI
     7359   01 0182C    38A02BEB              SW,10    ADDRESS           S+C+CCI

     7361   01 0182D    31A02EAA              CW,10    LIMIT             CHECK FOR ROOM LEFT
     7362   01 0182E    69201838              BG       UPDATE2            ON LINE, PRINT ON OVERFLOW

     7364   01 0182F    31402C41              CW,4     NE                DONE?
     7365   01 01830    E820000F A            BCR,2    *15               NO
     7366   01 01831    20500001 A            AI,5     1                 INC MI
     7367   01 01832    32602C3F              LW,6     AP
     7368   01 01833    4B601AE8              AND,6    NOBITS+14
     7369   01 01834    B26A0006 A            LW,6     *6,5              GET NEXT POINTER
     7370   01 01835    31502C42              CW,5     M                 MI>=M
     7371   01 01836    6910183B              BCS,1    UPDATE4           NO
     7372   01 01837    20F00001 A            AI,15    1
     7373   01 01838    20F00001 A   UPDATE2  AI,15    1
     7374   01 01839    20F00001 A   UPDATE3  AI,15    1
     7375   01 0183A    E800000F A            B        *15
     7376   01 0183B    32402C3B     UPDATE4  LW,4     NO                RESET NI=NO
     7377   01 0183C    E800000F A            B        *15

     7379                            *        PUSHES THE CONTENTS OF R13 INTO THE BUFFER AND
     7380                            *        PRECEEDS THE VALUE WITH 'S' SPACES.

     7382   01 0183D    33F02C4A     SPUSH    MTW,15   SUPRESS           SPPRESS LEADING ZEROS
     7383   01 0183E    22E01A41     PUSH     LI,14    SIXTEENS          ADDRESS OF POWERS OF 16
     7384   01 0183F    31601AC1              CW,6     BIT+9             D=4(ADDRESS FORMAT)
     7385   01 01840    69401875              BCS,4    PUSH8             YES
     7386   01 01841    31601AC2              CW,6     BIT+10            D=2(HEX)
     7387   01 01842    69401847              BCS,4    PUSH1             YES
     7388   01 01843    22E01A37              LI,14    TENS              ADDRESS OF POWERS OF 10
     7389   01 01844    31601AC3              CW,6     BIT+11            D=1(DECIMAL)
     7390   01 01845    69401847              BCS,4    PUSH1             YES
     7391   01 01846    22E01A32              LI,14    ONES              ADDRESS OF POWERS OF 1
     7392   01 01847    22100002 A   PUSH1    LI,1     2                 PREPARE TO FETCH RADIX
     7393   01 01848    B212000E A            LW,1     *14,1              AND SAVE FOR OVERFLOW
     7394   01 01849    35102C0F              STW,1    SUM2                COMPARISON

     7396   01 0184A    72100006 A            LB,1     6                 GET CHARACTER COUNT
     7397   01 0184B    4B101AF2              AND,1    NOBITS+24         7F
     7398   01 0184C    6830186A              BCR,3    PUSH5             C=0

     7400   01 0184D    22C00000 A   PUSH2    LI,12    0                 DIVIDE BY RADIX**N
     7401   01 0184E    B6C2000E A            DW,12    *14,1
     7402   01 0184F    69301852              BCS,3    PUSH2A            SKIP IF QUOTIENT>0
     7403   01 01850    32002C4A              LW,0     SUPRESS            ELSE CHECK FOR LEADING
     7404   01 01851    69101860              BCS,1    PUSH4A              ZERO SUPPRESSION (SKIP)

     7406   01 01852    31D02C0F     PUSH2A   CW,13    SUM2              SKIP IF QUOTIENT
     7407   01 01853    69101856              BL       %+3                LESS THAN RADIX (NORMAL)

     7409   01 01854    32D02C0F              LW,13    SUM2              FORCE QUOTIENT TO
     7410   01 01855    20DFFFFF A            AI,13    -1                 RADIX-1

     7412   01 01856    21D00010 A            CI,13    X'10'             LOOK FOR EBCDIC CHARACTER
     7413   01 01857    6920185E              BCS,2    PUSH4             YES
     7414   01 01858    21D00009 A            CI,13    9                 GREATER THAN 9?
     7415   01 01859    6920185B              BCS,2    PUSH3             YES
     7416   01 0185A    20D00039 A            AI,13    X'39'
     7417   01 0185B    20D000B7 A   PUSH3    AI,13    X'B7'
     7418   01 0185C    22000000 A            LI,0     0                 RESET SUPPRESS FLAG
     7419   01 0185D    35002C4A              STW,0    SUPRESS
     7420   01 0185E    75DE2C8E     PUSH4    STB,13   BUFFER,7          INSERT CHAR INTO BUFFER
     7421   01 0185F    20700001 A            AI,7     1                 INCRMENT CCI
     7422   01 01860    32D0000C A   PUSH4A   LW,13    12                GET REMAINDER
     7423   01 01861    6410184D              BDR,1    PUSH2
     7424   01 01862    21000000 A            CI,0     0                 STILL SUPPRESSING ZEROS
     7425   01 01863    69101852              BCS,1    PUSH2A            YES-GO PUSH A ZERO(F0)
     7426   01 01864    31601AC1              CW,6     BIT+9             D=4
     7427   01 01865    6840186A              BCR,4    PUSH5             NO
     7428   01 01866    207FFFFE A            AI,7     -2                BA OF DECIMAL POINT
     7429   01 01867    22C0004B A            LI,12    X'4B'             PERIOD(DECIMAL POINT)
     7430   01 01868    75CE2C8E              STB,12   BUFFER,7
     7431   01 01869    20700002 A            AI,7     2                 RESTORE CCI
     7432   01 0186A    21F0047A     PUSH5    CI,15    CAL48             FROM CAL4D
     7433   01 0186B    E830000F A            BCR,3    *15               YES-GET OUT
     7434   01 0186C    21F01992              CI,15    MSG13A            FROM MSG13(CAL4D SIMULATOR)
     7435   01 0186D    E830000F A            BCR,3    *15               YES
     7436   01 0186E    22C00040 A            LI,12    SPACE
     7437   01 0186F    75CE2C8E              STB,12   BUFFER,7
     7438   01 01870    20700001 A            AI,7     1                 INCRMENT CCI
     7439   01 01871    22000000 A   PUSH7    LI,0     0
     7440   01 01872    35002C4A              STW,0    SUPRESS           RESET SUPRESS
     7441   01 01873    750E2C8E              STB,0    BUFFER,7          TERMINATE CHAR.
     7442   01 01874    E800000F A            B        *15

     7444   01 01875    25C0037E A   PUSH8    SCD,12   -2                RING RIGHT 2 R12,R13
     7445   01 01876    25C0007A A            SLS,12   -6                RIGHT 6 R12
     7446   01 01877    25C00308 A            SCD,12   8                 RING LEFT 8 R12,R13
     7447   01 01878    68001847              B        PUSH1

     7449                            *        PULLS A FROM THE BUFFER AT BYTE CCI AND CONVERTS
     7450                            *        THE VALUE VIA 'D' IN R1 AND PUTS THE RESULTS IN R13.

     7452   01 01879    35002BC6     SPULLP   STW,0    RETURN3
     7453   01 0187A    52100006 A   SPULL    LH,1     6                 GET 'D'
     7454   01 0187B    2510007C A            SLS,1    -4                RIGHT 4
     7455   01 0187C    4B101AF6              AND,1    NOBITS+28         7
     7456   01 0187D    22300000 A   PULL     LI,3     0
     7457   01 0187E    320014C6              LW,0     LW:13WK0
     7458   01 0187F    350018B3     PULL0    STW,0    OPERATOR          PRESET OPERATOR TO LW,13
     7459   01 01880    320014C6              LW,0     LW:13WK0
     7460   01 01881    35D02C4B              STW,13   WK0               PRESET VALUE=0
     7461   01 01882    22D00000 A            LI,13    0
     7462   01 01883    72AE2C8E     PULL1    LB,10    BUFFER,7          GET BYTE CCI
     7463   01 01884    21A00015 A            CI,10    RETURN
     7464   01 01885    683018AB              BCR,3    PULL5             YES
     7465   01 01886    21A0006B A            CI,10    DELIMETR
     7466   01 01887    683018AB              BCR,3    PULL5             YES
     7467   01 01888    21A0005E A            CI,10    EOR
     7468   01 01889    683018AB              BCR,3    PULL5             YES
     7469   01 0188A    21A0004C A            CI,10    ERASE
     7470   01 0188B    683018C0              BCR,3    PULL9             YES
     7471   01 0188C    21A00040 A            CI,10    SPACE
     7472   01 0188D    683018A9              BCR,3    PULL4             YES-SKIP IT
     7473   01 0188E    21A0004B A            CI,10    POINT
     7474   01 0188F    683018A9              BCR,3    PULL4             YES-SKIP IT
     7475   01 01890    21A0007A A            CI,10    DECIMAL
     7476   01 01891    683018B5              BCR,3    PULL6             YES
     7477   01 01892    21A00060 A            CI,10    MINUS
     7478   01 01893    683018B7              BCR,3    PULL7             YES
     7479   01 01894    21A0005C A            CI,10    MULTIPLY
     7480   01 01895    683018B8              BCR,3    PULL7+1
     7481   01 01896    21A00061 A            CI,10    DIVIDE
     7482   01 01897    683018B9              BCR,3    PULL7+2
     7483   01 01898    21A0004E A            CI,10    PLUS
     7484   01 01899    683018BA              BCR,3    PULL7+3
     7485   01 0189A    21A0007E A            CI,10    EQUAL
     7486   01 0189B    683018B1              BCR,3    PULL8
     7487   01 0189C    21100007 A            CI,1     7                 EBSIDIC FORMAT?
     7488   01 0189D    684018A6              BCR,4    PULL3             YES
     7489   01 0189E    19A01B26              CLM,10   0TO9              IS CHAR 0 TO 9
     7490   01 0189F    689018A5              BCR,9    PULL2             YES
     7491   01 018A0    19A01B2A              CLM,10   ATOF              IS CHAR A TO F
     7492   01 018A1    699014B5              BCS,9    Q2ERR             NO-ERROR EXIT
     7493   01 018A2    21100001 A            CI,1     1                 DECIMAL FORMAT
     7494   01 018A3    683014B5              BCR,3    Q2ERR             YES
     7495   01 018A4    20A00009 A            AI,10    9                 CHAR IS A TO F
     7496   01 018A5    4BA01AF5     PULL2    AND,10   NOBITS+27         F
     7497   01 018A6    37D21A4A     PULL3    MW,13    RADIX,1           BI+1 + BI*RADIX
     7498   01 018A7    30D0000A A            AW,13    10
     7499   01 018A8    20300001 A            AI,3     1                 INCRMENT DIGIT COUNTER
     7500   01 018A9    20700001 A   PULL4    AI,7     1                 INCRMENT CCI
     7501   01 018AA    68001883              B        PULL1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  134
A    7503   01 018AB    21100004 A   PULL5    CI,1     4                 D=4
     7504   01 018AC    693018B1              BCS,3    PULL8             NO
     7505   01 018AD    22C00000 A            LI,12    0
     7506   01 018AE    25C0037C A            SCD,12   -4                R12,R13 RIGHT RING 4
     7507   01 018AF    25C00002 A            SLS,12   2
     7508   01 018B0    25C00302 A            SCD,12   2                 DOUBLE LEFT RING 2
     7509   01 018B1    46D02C4B     PULL8    XW,13    WK0               REVERSE POSITION OF VALUES
     7510   01 018B2    22C00000 A            LI,12    0
     7511   01 018B3    00000000 A   OPERATOR DATA     0
     7512   01 018B4    E800000F A            B        *15

     7514   01 018B5    22100001 A   PULL6    LI,1     1                 SET DECIMAL MODE
     7515   01 018B6    680018A9              B        PULL4

     7517   01 018B7    30001ABF     PULL7    AW,0     BIT+7
     7518   01 018B8    30001B08              AW,0     X1100000
     7519   01 018B9    30001B04              AW,0     X5F00000
     7520   01 018BA    38001ABE              SW,0     BIT+6             FORM AW,13 WK0
     7521   01 018BB    46D02C4B              XW,13    WK0               EXCHANGE VALUE FOR 0
     7522   01 018BC    22C00000 A            LI,12    0
     7523   01 018BD    670018B3              EXU      OPERATOR          PERFORM ARITHMETIC OP
     7524   01 018BE    20700001 A            AI,7     1
     7525   01 018BF    6800187F              B        PULL0

     7527   01 018C0    20700001 A   PULL9    AI,7     1
     7528   01 018C1    6800187D              B        PULL              RESTART INPUT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  135
A    7530                            *        STORE TABLE ELEMENT FROM R13

     7532   01 018C2    32100006 A   STORETBL LW,1     6
     7533   01 018C3    4B101AE8              AND,1    NOBITS+14         ADDR ONLY
     7538   01 018C4    F2E80001 A            LB,14    *1,4
     7539   01 018C5    21660000 A            CI,6     X'60000'          BYTE ADDRESSING
     7540   01 018C6    684018CB              BCR,4    EORTBL            YES
     7541   01 018C7    D2E80001 A            LH,14    *1,4
     7542   01 018C8    21620000 A            CI,6     X'20000'          HALFWORD ADDRESSING
     7543   01 018C9    694018CB              BCS,4    EORTBL            YES
     7544   01 018CA    B2E80001 A            LW,14    *1,4              WORD ADDRESSING
     7545   01 018CB    21A0005E A   EORTBL   CI,10    EOR               EXCLUSIVE OR DELIMETER
     7546   01 018CC    683018CE              BCR,3    %+2               YES
     7547   01 018CD    22E00000 A            LI,14    0                 PRESET REG WITH ZERO
     7548   01 018CE    48E0000D A            EOR,14   13                OPERATE ON REG 14
     7549   01 018CF    21660000 A            CI,6     X'60000'          BYTE ADDRESSING?
     7550   01 018D0    684018D7              BCR,4    STOREBA           YES
     7551   01 018D1    21620000 A            CI,6     X'20000'          HALF WORD ADDRESSING?
     7552   01 018D2    694018D5              BCS,4    STOREHA           YES
     7553   01 018D3    B5E80001 A            STW,14   *1,4
     7554   01 018D4    E800000F A            B        *15

     7556   01 018D5    D5E80001 A   STOREHA  STH,14   *1,4
     7557   01 018D6    E800000F A            B        *15

     7559   01 018D7    F5E80001 A   STOREBA  STB,14   *1,4
     7560   01 018D8    E800000F A            B        *15

     7562                            *        LOAD TABLE ELEMENT

     7564   01 018D9    32100006 A   LOADTBL  LW,1     6
     7565   01 018DA    4B101AE8              AND,1    NOBITS+14         ADDR ONLY
     7566   01 018DB    F2D80001 A            LB,13    *1,4
     7567   01 018DC    21660000 A            CI,6     X'60000'          BYTE ADDRESSING
     7568   01 018DD    E840000F A            BCR,4    *15               YES
     7569   01 018DE    D2D80001 A            LH,13    *1,4
     7570   01 018DF    4BD01AE9              AND,13   NOBITS+15
     7571   01 018E0    21620000 A            CI,6     X'20000'          HALFWORD ADDRESSING
     7572   01 018E1    E940000F A            BCS,4    *15               YES
     7573   01 018E2    B2D80001 A            LW,13    *1,4              WORD ADDRESSING
     7574   01 018E3    E800000F A            B        *15

     7576                            *        COMPARE TABLE ELEMENT

     7578   01 018E4    32100006 A   COMPRTBL LW,1     6
     7579   01 018E5    4B101AE8              AND,1    NOBITS+14
     7580   01 018E6    21640000 A            CI,6     X'40000'          WORD?
     7581   01 018E7    694018EC              BANZ     COMPRWA

     7583   01 018E8    21620000 A            CI,6     X'20000'          HALFWORD?
     7584   01 018E9    694018EF              BANZ     COMPRHA

     7586   01 018EA    F1C80001 A   COMPRBA  CB,12    *1,4
     7587   01 018EB    E800000F A            B        *15

     7589   01 018EC    32D02BD5     COMPRWA  LW,13    Q0                GET THE MASK
     7590   01 018ED    C5C80001 A   COMPRWA1 CS,12    *1,4
     7591   01 018EE    E800000F A            B        *15

     7593   01 018EF    D1C80001 A   COMPRHA  CH,12    *1,4
     7594   01 018F0    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  136
A    7596                            *        SCANS THE TABLE WHOS BA IS IN R6 AND ENDING BA
     7597                            *        IS IN R5 FOR A MATCH.  SKIPS ON EXIT IF ONLY ONE
     7598                            *        MATCH IS FOUND.

     7600   01 018F1    35F02BC8     SCAN     STW,15   RETURN5
     7601   01 018F2    35702BE1              STW,7    CCI
     7602   01 018F3    35502C41              STW,5    NE                ENDING TABLE ADDRESS(BYTE)
     7603   01 018F4    22500000 A            LI,5     0                 COUNTS THE NR OF MATCHES.

     7605   01 018F5    35602C3B     SCAN1    STW,6    NO                BA OF CURRENT ENTRY
     7606   01 018F6    31602C41              CW,6     NE                ARE WE DONE?
     7607   01 018F7    6810190E              BCR,1    SCAN3             YES
     7608   01 018F8    22100009 A            LI,1     9                 8 BYTES/ENTRY
     7609   01 018F9    32702BE2              LW,7     OCI               OLD BUFFER POINTER

     7611   01 018FA    723E2C8E     SCAN2    LB,3     BUFFER,7
     7612   01 018FB    2130006B A            CI,3     DELIMETR
     7613   01 018FC    6830191D              BCR,3    SCAN5             YES
     7614   01 018FD    21300015 A            CI,3     RETURN
     7615   01 018FE    6830190A              BCR,3    SCAN5A            YES
     7616   01 018FF    21300040 A            CI,3     SPACE
     7617   01 01900    68301906              BCR,3    SCAN2A

     7619   01 01901    713C0000 A            CB,3     0,6               TABLE BYTE=BUFFER BYTE?
     7620   01 01902    69301925              BCS,3    SCAN7             NO-GET NEXT ENTRY
     7621   01 01903    2130007A A            CI,3     DECIMAL
     7622   01 01904    6830191A              BCR,3    SCAN4             YES

     7624   01 01905    20600001 A            AI,6     1                 INCREMENT TABLE POINTER
     7625   01 01906    20700001 A   SCAN2A   AI,7     1                 INCREMENT BUFFER POINTER
     7626   01 01907    641018FA              BDR,1    SCAN2             COMPAIR ALL 8 CHARS.

     7628   01 01908    22207E98     SCAN2B   LI,2     BA(FLDERROR)      FIELD OVERFLOW
     7629   01 01909    E8002BC8              B        *RETURN5

     7631   01 0190A    31602C3B     SCAN5A   CW,6     NO                CHECK FOR IMPLICIT NULL
        1*  01 0190B    6930191D              BNE      SCAN5              FIELD (IGNORED) ELSE PROCESS   *H02

        3*  01 0190C    22200000 A            LI,2     0                 IGNORE IMPLICIT NULL FIELD      *H02
        4*  01 0190D    E8002BC8              B        *RETURN5                                          *H02

     7635   01 0190E    22207EAC     SCAN3    LI,2     BA(SELERR)
     7636   01 0190F    21500001 A            CI,5     1
     7637   01 01910    E9102BC8              BCS,1    *RETURN5          NO MATCHES(R5<1)
     7638   01 01911    68301928              BCR,3    SCAN8             EXACTLY ONE MATCH(R5=1)

        2*  01 01912    6AF0192B              BAL,15   SCANOUT           LAST OF MANY MATCHES            *H02

        4*  01 01913    22700000 A            LI,7     0                 DELIVER BLANK LINE              *H02
        5*  01 01914    75701936              STB,7    SCANBUF                                           *H02

        7*  01 01915    222064D7              LI,2     BA(SCANBUF)-1                                     *H02
        8*  01 01916    6AF01995              BAL,15   MSGOUT                                            *H02
        9*  01 01917    02000000 A            NOP                                                        *H02

     7640   01 01918    32702BE1     SCAN9    LW,7     CCI
     7641   01 01919    6800143D              B        EXECBUF

     7643   01 0191A    6AF0187D     SCAN4    BAL,15   PULL              GET VERTICAL TABLE NUMBER
     7644   01 0191B    22207EAC              LI,2     BA(SELERR)
     7645   01 0191C    35D02BD9              STW,13   Q4

     7647   01 0191D    35702BE1     SCAN5    STW,7    CCI
     7648   01 0191E    21500000 A            CI,5     0                 FIRST MATCH?
     7649   01 0191F    68301921              BCR,3    SCAN6             YES

        2*  01 01920    6AF0192B              BAL,15   SCANOUT           DISPLAY ENTRY NAME              *H02

     7651   01 01921    20500001 A   SCAN6    AI,5     1                 INCREMENT MATCH COUNT
     7652   01 01922    32602C3B              LW,6     NO                BA OF CURRENT ENTRY
     7653   01 01923    2560007E A            SLS,6    -2                FORM WORD ADDRESS
     7654   01 01924    35602C3A              STW,6    APTO
     7655   01 01925    32602C3B     SCAN7    LW,6     NO                BA OF CURRENT ENTRY
     7656   01 01926    30600004 A            AW,6     4                 INC BY ENTRY SIZE IN BYTES
     7657   01 01927    680018F5              B        SCAN1

     7659   01 01928    33202C3A     SCAN8    MTW,2    APTO              SET DISCRIPTOR POINTER
     7660   01 01929    33102BC8              MTW,1    RETURN5
     7661   01 0192A    E8002BC8              B        *RETURN5
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  137
A    7663                            *        MOVES ENTRY NAME TO SCANBUFF AND OUTPUTS IT.

     7665   01 0192B    35F02BC9     SCANOUT  STW,15   RETURN6
     7666   01 0192C    02200020 A            LCI      2
     7667   01 0192D    AAE02C3A              LM,14    *APTO             PICK UP ENTRY NAME
     7668   01 0192E    15E01936              STD,14   SCANBUF
     7669   01 0192F    222064D7              LI,2     BA(SCANBUF)-1
     7670   01 01930    6AF01995              BAL,15   MSGOUT            OUTPUT ENTRY NAME
     7671   01 01931    68001918              B        SCAN9
     7672   01 01932    E8002BC9              B        *RETURN6

     7674                                     BOUND    8
     7675   01 01934    00000000 A            DATA     0,RETURN
            01 01935    00000015 A
     7676   01 01936    00000000 A   SCANBUF  DATA     0,0,0
            01 01937    00000000 A
            01 01938    00000000 A
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  138
A    7678                            *        MSG      OUTPUTS MSG ON MSGDEV OR CONDEV, WHICHEVER
     7679                            *                 IS SPECIFIED IN R1.
     7680                            *                 SKIPS ON RETURN FOR NORMAL EXIT
     7681                            *                 NO SKIP IF CONDEV HTS BREAK CHAR.

     7683   01 01939    35F02BC9     MSG      STW,15   RETURN6
     7684   01 0193A    21200040 A            CI,2     X'40'             IS MSG WORD ADDRESS > 16
     7685   01 0193B    68201940              BLE      MSGXIT
     7686   01 0193C    31102EAE              CW,1     TTYDEV            TEST FOR MSG DEVICE
     7687   01 0193D    69301942              BNE      MSG2              YES

     7689   01 0193E    6AF01995     MSG7     BAL,15   MSGOUT
     7690   01 0193F    E8002BC9              B        *RETURN6

     7692   01 01940    33102BC9     MSGXIT   MTW,1    RETURN6
     7693   01 01941    E8002BC9              B        *RETURN6

     7695   01 01942    35202C46     MSG2     STW,2    MSGWK0            SAVE MSG ADDRESS
     7696   01 01943    73002C48              MTB,0    OUTDEV             SKIP IF LP
     7697   01 01944    6930193E              BNEZ     MSG7                NOT OPERATIONAL

     7699   01 01945    CDC02C48              TIO,12   *OUTDEV           MSG DEVICE BUSY
     7700   01 01946    6980194E              BCS,8    MSG9              NO ADDRESS REQ
     7701   01 01947    68401949              BCR,4    %+2               NO
     7702   01 01948    CF002C48              HIO,0    *OUTDEV
     7703   01 01949    31D01ABB              CW,13    BIT+3             SKIP IF LP
     7704   01 0194A    69401953              BANZ     MSG3               AUTOMATIC MODE
     7705   01 0194B    22207EC0              LI,2     BA(LPMAN)
     7706   01 0194C    6AF01995              BAL,15   MSGOUT            ISSUE LP MANUAL MESSAGE
     7707   01 0194D    6800194E              B        MSG9               AND SWITCH BACK TO CONSOLE

     7709   01 0194E    32202C46     MSG9     LW,2     MSGWK0            RESTORE MSG ADDRESS
     7710   01 0194F    75102C48              STB,1    OUTDEV            SET LP NOT OPERATIONAL FLAG
     7711   01 01950    6800193E              B        MSG7

     7713   01 01951    2130FFFF A   MSG3D    CI,3     X'FFFF'           BC=0 FOR NEWPAGE
     7714   01 01952    6940196B              BCS,4    MSG5              NO-OUTPUT LINE FIRST

     7716   01 01953    22300000 A   MSG3     LI,3     0                 SET LPBUF CHAR COUNT=1
     7717   01 01954    72002C8D              LB,0     LPFLG             LP FLAG=0
     7718   01 01955    6930195D              BCS,3    MSG3A             NO-USE LPBUF'S FORMAT BYTE

     7720   01 01956    220000F1 A            LI,0     X'F1'             FORMAT CHAR=TOP OF PAGE
     7721   01 01957    72C40000 A            LB,12    0,2
     7722   01 01958    21C00080 A            CI,12    NEWPAGE           TOP OF FORM
     7723   01 01959    6830195E              BCR,3    MSG3B             YES

     7725   01 0195A    220000C0 A            LI,0     X'C0'             FORMAT CHAR=RETURN
     7726   01 0195B    21C00015 A            CI,12    RETURN            IS 1ST CHAR=RETURN
     7727   01 0195C    68301988              BCR,3    MSG8              YES

     7729   01 0195D    202FFFFF A   MSG3A    AI,2     -1                SKIP RETURN
     7730   01 0195E    75002C8C     MSG3B    STB,0    LPBUF             STORE FORMAT BYTE
     7731   01 0195F    20200001 A            AI,2     1                 POINT TO NEXT MSG BYTE
     7732   01 01960    35202C8A     MSG3C    STW,2    LPCOM             BUILD 2ND COM PAIR
     7733   01 01961    72C40000 A   MSG4     LB,12    0,2               GET CHAR
     7734   01 01962    21C00080 A            CI,12    NEWPAGE
     7735   01 01963    68301951              BCR,3    MSG3D             YES
     7736   01 01964    21C00015 A            CI,12    RETURN
     7737   01 01965    6830196B              BCR,3    MSG5              YES
     7738   01 01966    21C00000 A            CI,12    0                 IS IT A ZERO BYTE?
     7739   01 01967    68301977              BCR,3    MSG5B             YES
     7740   01 01968    20300001 A            AI,3     1                 INC LPBUF COUNT
     7741   01 01969    20200001 A            AI,2     1                 INC MSG ADDRESS
     7742   01 0196A    68001961              B        MSG4

     7744   01 0196B    2130FFFF A   MSG5     CI,3     X'FFFF'           ANY CHARS
     7745   01 0196C    68401960              BCR,4    MSG3C             NO-RESTART CHAR COUNT
     7746   01 0196D    30301B01              AW,3     XA000000          SET HTE AND SIL FLAGS
     7747   01 0196E    35302C8B              STW,3    LPCOM+1
     7748   01 0196F    32F02C5C     MSG5A    LW,15    COUNT4            GET REAL TIME COUNT
     7749   01 01970    20F001F4 A            AI,15    500               1 SECOND
     7750   01 01971    22001644     MSG6     LI,0     DA(LPOUT)
     7751   01 01972    CCD02C48              SIO,13   *OUTDEV           START THE PRINTER
     7752   01 01973    68C0197A              BCR,12   MSG6A             YES
     7753   01 01974    31F02C5C              CW,15    COUNT4            TIMED OUT YET
     7754   01 01975    69201971              BCS,2    MSG6              NO
     7755   01 01976    6800194E              B        MSG9              YES-DEFAULT TO TTY

     7757   01 01977    2130FFFF A   MSG5B    CI,3     X'FFFF'           ANY CHARS
     7758   01 01978    6940196B              BCS,4    MSG5              YES-CONTINUE
     7759   01 01979    68001940              B        MSGXIT            NO-DONE

     7761   01 0197A    CDD02C48     MSG6A    TIO,13   *OUTDEV
     7762   01 0197B    68C0197F              BCR,12   MSG6B             LP DONE
     7763   01 0197C    31F02C5C              CW,15    COUNT4            TIMED OUT YET
     7764   01 0197D    6920197A              BCS,2    MSG6A             NO
     7765   01 0197E    6800194E              B        MSG9              YES-DEFAULT TO TTY

     7767   01 0197F    CED02C48     MSG6B    TDV,13   *OUTDEV
     7768   01 01980    31D01ABE              CW,13    BIT+6             DOES IT NEED ANOTHER SIO
     7769   01 01981    6940196F              BCS,4    MSG5A             YES
     7770   01 01982    22D00000 A            LI,13    0
     7771   01 01983    75D02C8D              STB,13   LPFLG             CLEAR LP FLAG
     7772   01 01984    21C00000 A            CI,12    0                 IS IT A ZERO CHAR?
     7773   01 01985    69301942              BNE      MSG2              NO
     7774   01 01986    68001940              B        MSGXIT

     7776   01 01987    20000001 A            AI,0     1                 INCREMENT NR OF CR'S
     7777   01 01988    20200001 A   MSG8     AI,2     1                 LOOK AT NEXT BYTE
     7778   01 01989    72C40000 A            LB,12    0,2               GET IT
     7779   01 0198A    21C00015 A            CI,12    RETURN            IS IT A CR
     7780   01 0198B    68301987              BCR,3    MSG8-1            YES
     7781   01 0198C    6800195D              B        MSG3A

     7783   01 0198D    35F02BC9     MSG13    STW,15   RETURN6           SAVE RETURN ADDRESS
     7784   01 0198E    32700002 A            LW,7     2
     7785   01 0198F    207F4DCC N            AI,7     -BA(BUFFER)+4
     7786   01 01990    32601B05              LW,6     X4200000
     7787   01 01991    6AF0183E              BAL,15   PUSH
     7788   01 01992    6AF01995     MSG13A   BAL,15   MSGOUT
     7789   01 01993    02000000 A            NOP
     7790   01 01994    E8002BC9              B        *RETURN6
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  139
A    7792                            *        MSGOUT - OUTPUT MESSAGE TERMINATED BY EM (X'00')

     7794                            *        BA(MSG) IN R2

     7796                            *        SKIP RETURN IF NORMAL EXIT, ELSE SIMPLE RETURN
     7797                            *        IF BREAK DETECTED ON CONSOLE DEVICE.

     7799   01 01995    35F02BCA     MSGOUT   STW,15   RETURN7           SAVE LINK

     7801   01 01996    21200040 A            CI,2     X'40'             EXIT NORMAL IF
     7802   01 01997    691019B0              BL       MSGOUT4            WA(MSG)<X'10'

     7804   01 01998    72340000 A   MSGOUT0  LB,3     0,2               GET MESSAGE BYTE
     7805   01 01999    683019B0              BEZ      MSGOUT4            STOP IF EM (X'00')

     7807   01 0199A    21300080 A            CI,3     NEWPAGE           CHECK FOR EJECT
     7808   01 0199B    6830199E              BE       MSGOUT1            AND CONVERT TO RETURN

     7810   01 0199C    21300015 A            CI,3     RETURN            CHECK FOR RETURN
     7811   01 0199D    693019A2              BNE      MSGOUT2            AND SKIP IF NOT PRESENT

     7813   01 0199E    32302EAA     MSGOUT1  LW,3     LIMIT             RESTORE CHARACTER
     7814   01 0199F    35302C45              STW,3    CC6                COUNTER
     7815   01 019A0    22300015 A            LI,3     RETURN              FORCE RETURN
     7816   01 019A1    680019AC              B        MSGOUT3              AND OUTPUT CHARACTER

     7818   01 019A2    33F02C45     MSGOUT2  MTW,15   CC6               DECREMENT CHARACTER COUNT
     7819   01 019A3    681019AC              BGEZ     MSGOUT3            SKIP IF NO OVERFLOW

     7821   01 019A4    21300040 A            CI,3     SPACE             CHECK FOR FIRST BLANK
     7822   01 019A5    693019AC              BNE      MSGOUT3            AND CONTINUE IF UNEQUAL

     7824   01 019A6    20200001 A            AI,2     1                 FETCH NEXT CHARACTER
     7825   01 019A7    72F40000 A            LB,15    0,2                AND RESTORE BYTE
     7826   01 019A8    202FFFFF A            AI,2     -1                  POINTER

     7828   01 019A9    21F00000 A            CI,15    0                 IF NEXT BYTE IS EM
     7829   01 019AA    683019AC              BE       MSGOUT3            JUST PRINT THE BLANK
     7830   01 019AB    6800199E              B        MSGOUT1             ELSE REPLACE BLANK WITH NL

     7832   01 019AC    6AF019B2     MSGOUT3  BAL,15   TTYOUT            OUTPUT CHARACTER
     7833   01 019AD    E8002BCA              B        *RETURN7           RETURN IF BREAK

     7835   01 019AE    20200001 A            AI,2     1                 UPDATE BA(MSG)
     7836   01 019AF    68001998              B        MSGOUT0            CONTINUE

     7838   01 019B0    33102BCA     MSGOUT4  MTW,1    RETURN7           NORMAL EXIT:
     7839   01 019B1    E8002BCA              B        *RETURN7           SKIP ONE LOCATION
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  140
A    7841                            *        OUTPUTS CHAR IN R3 TO TTY AND ECHOS TO COC
     7842                            *                 SKIPS ON RETURN FOR NORMAL EXIT

     7844   01 019B2    35F02BCB     TTYOUT   STW,15   RETURN8

     7846   01 019B3    32102C5C              LW,1     COUNT4            COMPUTE 100 MS
     7847   01 019B4    20100038 A            AI,1     56                 TIMEOUT THRESHOLD

     7849   01 019B5    CDC02EAE     TTYOUT1  TIO,12   *TTYDEV           CHECK TTY STATE
     7850   01 019B6    698019CC              BCS,8    TTYOUT6            NO RECOGNITION
     7851   01 019B7    68C019C4              BCR,12   TTYOUT2             READY

     7853   01 019B8    19C01B30              CLM,12   TTYOUTS           BUSY - SKIP IF
     7854   01 019B9    699019BF              BCS,9    TTYOUT5            NOT DOING OUTPUT

     7856   01 019BA    31102C5C              CW,1     COUNT4            SKIP BACK IF
     7857   01 019BB    692019B5              BG       TTYOUT1            THRESHOLD NOT CROSSED

     7859   01 019BC    33002EB1              MTW,0    COCSTATE          IF COC IN CONTROL
     7860   01 019BD    681019B5              BGEZ     TTYOUT1            SKIP TO START OUTPUT
     7861   01 019BE    680019C9              B        TTYOUT3             IMMEDIATELY, ELSE WAIT

     7863   01 019BF    CFD02EAE     TTYOUT5  HIO,13   *TTYDEV           STOP NON-OUTPUT

     7865   01 019C0    31102C5C              CW,1     COUNT4            WAIT FOR
     7866   01 019C1    692019C0              BG       %-1                TIMEOUT THREHOLD

     7868   01 019C2    CDD02EAE              TIO,13   *TTYDEV           CHECK FOR DEVICE
     7869   01 019C3    69C019C2              BCS,12   %-1                READY (WAITING)

     7871   01 019C4    33002EB1     TTYOUT2  MTW,0    COCSTATE          SKIP BREAK TEST
     7872   01 019C5    691019C9              BLZ      TTYOUT3            IF COC IN CONTROL

     7874   01 019C6    31D01ABC              CW,13    BIT+4             TEST FOR BREAK (UE)
     7875   01 019C7    684019C9              BAZ      TTYOUT3            SKIP IF NOT PRESENT

     7877   01 019C8    22300080 A            LI,3     NEWPAGE           FORCE NEWPAGE

     7879   01 019C9    75301A0C     TTYOUT3  STB,3    TTYBYTO           STORE BYTE FOR OUTPUT

     7881   01 019CA    22000D05              LI,0     DA(TTYO)          OUTPUT SINGLE BYTE
     7882   01 019CB    CCC02EAE              SIO,12   *TTYDEV            ON TTY DEVICE

     7884   01 019CC    6AF019D2     TTYOUT6  BAL,15   ECHO              ECHO TO ALL USERS
     7885   01 019CD    680019D0              B        TTYOUT7            BREAK EXIT

     7887   01 019CE    33102BCB              MTW,1    RETURN8           NORMAL EXIT
     7888   01 019CF    E8002BCB              B        *RETURN8

     7890   01 019D0    33102C4D     TTYOUT7  MTW,1    BREAK             ON BREAK - HIT FLAG
     7891   01 019D1    E8002BCB              B        *RETURN8           AND EXIT IMMEDIATELY
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  141
A    7893                            *        ECHO'S CHARS TO ALL REMOTE TERMINALS.
     7894                            *                 SKIPS ON RETURN FOR NORMAL EXIT
     7895                            *                 NO SKIP IF CONDEV HTS BREAK CHAR.

     7897   01 019D2    35F02BCC     ECHO     STW,15   RETURN9           SAVE LINK

     7899   01 019D3    72E02EB1              LB,14    COCSTATE          SKIP IF NOBODY
     7900   01 019D4    21E000C0 A            CI,14    X'C0'              LOGGED ON
     7901   01 019D5    684019E6              BCR,4    ECHO4

     7903   01 019D6    15202C0A              STD,2    REG2              SAVE REGISTERS 2 AND 3

     7905   01 019D7    6AF0138C     ECHO1    BAL,15   TIOCOC0           CHECK FOR INPUT FROM
     7906   01 019D8    680019DD              B        ECHO2              CONTROL CONSOLE (SKIP NONE)

     7908   01 019D9    21300000 A            CI,3     0                 LOOK FOR BREAK
     7909   01 019DA    693019DD              BNE      ECHO2              SKIP IF NOT PRESENT

     7911   01 019DB    22300080 A            LI,3     NEWPAGE           ELSE FORCE NEW PAGE
     7912   01 019DC    35302C0B              STW,3    REG3

     7914   01 019DD    12202C0A     ECHO2    LD,2     REG2              RESTORE REGISTERS
     7915   01 019DE    22100000 A            LI,1     0                  SET LINE 0

     7917   01 019DF    72022EB9     ECHO3    LB,0     COCL,1            FETCH LINE STATE
     7918   01 019E0    210000C0 A            CI,0     X'C0'              CHECK FOR LOGGED ON
     7919   01 019E1    684019E3              BAZ      %+2                 SKIP IF NOT
     7920   01 019E2    6AF019EA              BAL,15   COCXMIT              ELSE SEND THIS BYTE

     7922   01 019E3    20100001 A            AI,1     1                 UPDATE LINE NUMBER
     7923   01 019E4    21100040 A            CI,1     X'40'              COMPARE FOR LAST LINE
     7924   01 019E5    691019DF              BL       ECHO3               CONTINUE IF NOT DONE

     7926   01 019E6    21300080 A   ECHO4    CI,3     NEWPAGE           CHECK FOR BREAK
     7927   01 019E7    E8302BCC              BE       *RETURN9           EXIT IMMEDIATELY IF TRUE

     7929   01 019E8    33102BCC              MTW,1    RETURN9           NORMAL EXIT
     7930   01 019E9    E8002BCC              B        *RETURN9           SKIP ONE LOCATION
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  142
A    7932                            *        TRANSMIT CHARACTER TO LINE, CR HANDLED AUTOMATICALLY

     7934   01 019EA    72D61A56     COCXMIT  LB,13    ASCII,3           CONVERT TO ASCII

     7936   01 019EB    32C02C5C     COCXMIT1 LW,12    COUNT4            ALLOW .3 SECOND
     7937   01 019EC    20C00096 A            AI,12    150                TIMEOUT

     7939   01 019ED    31C02C5C     COCXMIT2 CW,12    COUNT4            CHECK FOR TIMEOUT
     7940   01 019EE    691019FA              BCS,1    COCXMIT3           SKIP TO RESET LINE

     7942   01 019EF    6D103004 A            WD,1     X'3004'           SENSE TRANSMIT STATUS
     7943   01 019F0    682019FA              BCR,2    COCXMIT3           SKIP TO RESET ON ERROR

     7945   01 019F1    681019ED              BCR,1    COCXMIT2          LOOP IF STILL BUSY

     7947   01 019F2    25D00008 A            SLS,13   8                 SHIFT DATA BYTE
     7948   01 019F3    30D00001 A            AW,13    1                  INSERT LINE NUMBER
     7949   01 019F4    6DD03005 A            WD,13    X'3005'             TRANSMIT CHARACTER

     7951   01 019F5    25D00078 A            SLS,13   -8                REPOSITION CHARACTER
     7952   01 019F6    21D0000D A            CI,13    X'0D'              LOOK FOR RETURN
     7953   01 019F7    E930000F A            BNE      *15                 EXIT IF NOT TRUE

     7955   01 019F8    22D0000A A            LI,13    X'0A'             SET LINE FEED
     7956   01 019F9    680019EB              B        COCXMIT1

     7958         01 019FA           COCLOFF  EQU      %
     7959   01 019FA    22000003 A   COCXMIT3 LI,0     3                 LINE STATUS NOW RESET
     7960   01 019FB    75022EB9              STB,0    COCL,1            SET IT
     7961   01 019FC    6D103002 A            WD,1     X'3002'           TURN RECEIVER OFF
     7962   01 019FD    6D103003 A            WD,1     X'3003'           HANG UP LINE
     7963   01 019FE    E800000F A            B        *15

     7965                                     BOUND    8
     7966   01 01A00    02006808 N   COC      DATA     X'2000000'+BA(COCBYT)
     7967   01 01A01    08000010 A            DATA     X'8000000'+COCSIZ
     7968   01 01A02                 COCBYT   RES,1    COCSIZ

     7970                                     BOUND    8
     7971   01 01A06    06006820 N   TTYI     DATA     X'6000000'+BA(TTYBYTI)
     7972   01 01A07    08000008 A            DATA     X'8000000'+TTYSIZ
     7973   01 01A08                 TTYBYTI  RES,1    TTYSIZ

     7975                                     BOUND    8
     7976   01 01A0A    05006830 N   TTYO     DATA     X'5000000'+BA(TTYBYTO)
     7977   01 01A0B    08000001 A            DATA     X'8000001'
     7978   01 01A0C    00000000 A   TTYBYTO  DATA     0
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  143
A    7980                            *        BIT CONTROL CONSTANTS

     7982                            *        NAMES ARE USED TO SET A CONTROL BIT.
     7983                            *        NNAMES ARE USED TO CLEAR A CONTROL BIT.
     7984                            *        THESE BIT POSITIONS ARE CONTROLLED BY THE
     7985                            *        EQU TABLE AT THE FRONT OF THE LISTING.

     7987   01 01A0D    00008000 A   BUSY     DATA     XBUSY
     7988   01 01A0E    FFFF7FFF A   NBUSY    DATA     -XBUSY-1
     7989   01 01A0F    00002000 A   SORS     DATA     XSORS
     7990   01 01A10    FFFFDFFF A   NSORS    DATA     -XSORS-1
     7991   01 01A11    00001000 A   KEYN     DATA     XKEYN
     7992   01 01A12    FFFFEFFF A   NKEYN    DATA     -XKEYN-1
     7993   01 01A13    FFFFBFFF A   NLOOP    DATA     -XLOOP-1
        1*  01 01A14    00000080 A   BOMBING  DATA     XBOMB                                             *H02
        2*  01 01A15    00000100 A   BURSTING DATA     XBURST                                            *H02
     7994   01 01A16    00000040 A   WRAP     DATA     XWRAP
     7995   01 01A17    00000080 A   WAIT     DATA     XWAIT
     7996   01 01A18    00000040 A   NCHECK   DATA     XNCHECK
     7997   01 01A19    00000020 A   NOBUF    DATA     XNOBUF
     7998   01 01A1A    FFFFFFDF A   NNOBUF   DATA     -XNOBUF-1
     7999   01 01A1B    00000100 A   BTOUT    DATA     XBTOUT
     8000   01 01A1C    00000080 A   BUFBIZ   DATA     XBUFBIZ
     8001   01 01A1D    FFFFFF7F A   NBUFBIZ  DATA     -XBUFBIZ-1
     8002   01 01A1E    00000010 A   CHEKT    DATA     XCHEKT
     8003   01 01A1F    00000008 A   FRESHN   DATA     XFRESHN
     8004   01 01A20    00000018 A   CLEAN    DATA     XCLEAN
     8005   01 01A21    00000002 A   WORDRES  DATA     XWORDRES
     8006   01 01A22    00008000 A   CSEL     DATA     XCSEL
     8007   01 01A23    FFFF7FFF A   NCSEL    DATA     -XCSEL-1
     8008   01 01A24    00000008 A   MANUL    DATA     XMANUL
     8009   01 01A25    FFFFFFF7 A   NMANUL   DATA     -XMANUL-1
     8010   01 01A26    00000002 A   FORCE    DATA     XFORCE
     8011   01 01A27    FFFFFFFD A   NFORCE   DATA     -XFORCE-1
     8012   01 01A28    00000001 A   INITAL   DATA     XINITAL
     8013   01 01A29    00000004 A   ERROR    DATA     XERROR
     8014   01 01A2A    FFFFFFFB A   NERROR   DATA     -XERROR-1
     8015   01 01A2B    FFFFFFB7 A   NBADBUF  DATA     -XFRESHN-XNCHECK-1     FLAGS TO SET BUFFER GOOD
     8016   01 01A2C    00000058 A   BADBUF   DATA     XFRESHN+XNCHECK+XCHEKT  USED TO PRESERVE STATE

     8018   01 01A2D    FFFF07FF A   NSIORW   DATA     -XSIOA-XSIOP-XRWIA-XRWIP-XRWIAM-1
     8019   01 01A2E    00008000 A   SIOA     DATA     XSIOA
     8020   01 01A2F    00004000 A   SIOP     DATA     XSIOP
     8021   01 01A30    00002000 A   RWIA     DATA     XRWIA
     8022   01 01A31    00001000 A   RWIP     DATA     XRWIP
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  144
A    8024                            *        POWERS OF ONE

     8026                                     BOUND    8
     8027   01 01A32    00000000 A   ONES     DATA     0
     8028   01 01A33    00000001 A            DATA     1
     8029   01 01A34    00000100 A            DATA     X'100'
     8030   01 01A35    00010000 A            DATA     X'10000'
     8031   01 01A36    01000000 A            DATA     X'1000000'

     8033                            *        POWERS OF TEN

     8035   01 01A37    00000000 A   TENS     DATA     0
     8036   01 01A38    00000001 A            DATA     1
     8037   01 01A39    0000000A A            DATA     10
     8038   01 01A3A    00000064 A            DATA     100
     8039   01 01A3B    000003E8 A            DATA     1000
     8040   01 01A3C    00002710 A            DATA     10000
     8041   01 01A3D    000186A0 A            DATA     100000
     8042   01 01A3E    000F4240 A            DATA     1000000
     8043   01 01A3F    00989680 A            DATA     10000000
     8044   01 01A40    05F5E100 A            DATA     100000000

     8046                            *        POWERS OF SIXTEEN

     8048   01 01A41    00000000 A   SIXTEENS DATA     0
     8049   01 01A42    00000001 A            DATA     1
     8050   01 01A43    00000010 A            DATA     X'10'
     8051   01 01A44    00000100 A            DATA     X'100'
     8052   01 01A45    00001000 A            DATA     X'1000'
     8053   01 01A46    00010000 A            DATA     X'10000'
     8054   01 01A47    00100000 A            DATA     X'100000'
     8055   01 01A48    01000000 A            DATA     X'1000000'
     8056   01 01A49    10000000 A            DATA     X'10000000'

     8058                            *        RADIXS
     8059                                     BOUND    8

     8061   01 01A4A    00000100 A   RADIX    DATA     X'100'            EBCDIC
     8062   01 01A4B    0000000A A            DATA     10                DECIMAL
     8063   01 01A4C    00000010 A            DATA     X'10'             HEXIDECIMAL
     8064   01 01A4D    00000000 A            DATA     0
     8065   01 01A4E    00000010 A            DATA     X'10'             ADDRESS FORMAT
     8066   01 01A4F    00000000 A            DATA     0
     8067   01 01A50    00000000 A   ZEROS    DATA     0
     8068   01 01A51    00000000 A            DATA     0

     8070                            *        GRADUATIONS OF A 500 HZ CKLOCK

     8072   01 01A52    02932E00 A   500HZ    DATA     24*60*60*500
     8073   01 01A53    001B7740 A            DATA     60*60*500
     8074   01 01A54    00007530 A            DATA     60*500
     8075   01 01A55    000001F4 A            DATA     500
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  145
A    8077                            *        CONVERSION TABLE EBCDIC TO ASCII

     8079   01 01A56    00010203 A   ASCII    DATA     X'00010203'
     8080   01 01A57    04090607 A            DATA     X'04090607'
     8081   01 01A58    0705150B A            DATA     X'0705150B'
     8082   01 01A59    0C0D0E0F A            DATA     X'0C0D0E0F'
     8083   01 01A5A    10111213 A            DATA     X'10111213'
     8084   01 01A5B    140D1617 A            DATA     X'140D1617'
     8085   01 01A5C    18191A1B A            DATA     X'18191A1B'
     8086   01 01A5D    1C1D1E1F A            DATA     X'1C1D1E1F'
     8087   01 01A5E    00000000 A            DATA     0
     8088   01 01A5F    00000000 A            DATA     0
     8089   01 01A60    00000000 A            DATA     0
     8090   01 01A61    00000000 A            DATA     0
     8091   01 01A62    00000000 A            DATA     0
     8092   01 01A63    00000000 A            DATA     0
     8093   01 01A64    00000000 A            DATA     0
     8094   01 01A65    00000000 A            DATA     0
     8095   01 01A66    20000000 A            DATA     X'20000000'
     8096   01 01A67    00000000 A            DATA     0
     8097   01 01A68    0000602E A            DATA     X'0000602E'
     8098   01 01A69    3C282B7C A            DATA     X'3C282B7C'
     8099   01 01A6A    26000000 A            DATA     X'26000000'
     8100   01 01A6B    00000000 A            DATA     0
     8101   01 01A6C    00002124 A            DATA     X'00002124'
     8102   01 01A6D    2A293B7E A            DATA     X'2A293B7E'
     8103   01 01A6E    2D2F0000 A            DATA     X'2D2F0000'
     8104   01 01A6F    00000000 A            DATA     0
     8105   01 01A70    00005E2C A            DATA     X'00005E2C'
     8106   01 01A71    255F3E3F A            DATA     X'255F3E3F'
     8107   01 01A72    00000000 A            DATA     0
     8108   01 01A73    00000000 A            DATA     0
     8109   01 01A74    00003A23 A            DATA     X'00003A23'
     8110   01 01A75    40273D22 A            DATA     X'40273D22'
     8111   01 01A76    00616263 A            DATA     X'00616263'
     8112   01 01A77    64656667 A            DATA     X'64656667'
     8113   01 01A78    68690000 A            DATA     X'68690000'
     8114   01 01A79    00000000 A            DATA     0
     8115   01 01A7A    006A6B6C A            DATA     X'006A6B6C'
     8116   01 01A7B    6D6E6F70 A            DATA     X'6D6E6F70'
     8117   01 01A7C    71720000 A            DATA     X'71720000'
     8118   01 01A7D    00000000 A            DATA     0
     8119   01 01A7E    00007374 A            DATA     X'00007374'
     8120   01 01A7F    75767778 A            DATA     X'75767778'
     8121   01 01A80    797A0000 A            DATA     X'797A0000'
     8122   01 01A81    00000000 A            DATA     0
     8123   01 01A82    005C7B7D A            DATA     X'005C7B7D'
     8124   01 01A83    5B5D0000 A            DATA     X'5B5D0000'
     8125   01 01A84    00000000 A            DATA     0
     8126   01 01A85    00000000 A            DATA     0
     8127   01 01A86    00414243 A            DATA     X'00414243'
     8128   01 01A87    44454647 A            DATA     X'44454647'
     8129   01 01A88    48490000 A            DATA     X'48490000'
     8130   01 01A89    00000000 A            DATA     0
     8131   01 01A8A    004A4B4C A            DATA     X'004A4B4C'
     8132   01 01A8B    4D4E4F50 A            DATA     X'4D4E4F50'
     8133   01 01A8C    51520000 A            DATA     X'51520000'
     8134   01 01A8D    00000000 A            DATA     0
     8135   01 01A8E    00005354 A            DATA     X'00005354'
     8136   01 01A8F    55565758 A            DATA     X'55565758'
     8137   01 01A90    595A0000 A            DATA     X'595A0000'
     8138   01 01A91    00000000 A            DATA     0
     8139   01 01A92    30313233 A            DATA     X'30313233'
     8140   01 01A93    34353637 A            DATA     X'34353637'
     8141   01 01A94    38390000 A            DATA     X'38390000'
     8142   01 01A95    0000007F A            DATA     X'0000007F'
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  146
A    8144                            *        CONVERSION TABLE ASCII TO EBCDIC

     8146   01 01A96    00010203 A   EBCDIC   DATA     X'00010203'
     8147   01 01A97    04090607 A            DATA     X'04090607'
     8148   01 01A98    0805150B A            DATA     X'0805150B'
     8149   01 01A99    0C150E0F A            DATA     X'0C150E0F'
     8150   01 01A9A    10111213 A            DATA     X'10111213'
     8151   01 01A9B    140A1617 A            DATA     X'140A1617'
     8152   01 01A9C    18191A1B A            DATA     X'18191A1B'
     8153   01 01A9D    1C1D1E1F A            DATA     X'1C1D1E1F'
     8154   01 01A9E    405A7F7B A            DATA     X'405A7F7B'
     8155   01 01A9F    5B6C507D A            DATA     X'5B6C507D'
     8156   01 01AA0    4D5D5C4E A            DATA     X'4D5D5C4E'
     8157   01 01AA1    6B604B61 A            DATA     X'6B604B61'
     8158   01 01AA2    F0F1F2F3 A            DATA     X'F0F1F2F3'
     8159   01 01AA3    F4F5F6F7 A            DATA     X'F4F5F6F7'
     8160   01 01AA4    F8F97A5E A            DATA     X'F8F97A5E'
     8161   01 01AA5    4C7E6E6F A            DATA     X'4C7E6E6F'
     8162   01 01AA6    7CC1C2C3 A            DATA     X'7CC1C2C3'
     8163   01 01AA7    C4C5C6C7 A            DATA     X'C4C5C6C7'
     8164   01 01AA8    C8C9D1D2 A            DATA     X'C8C9D1D2'
     8165   01 01AA9    D3D4D5D6 A            DATA     X'D3D4D5D6'
     8166   01 01AAA    D7D8D9E2 A            DATA     X'D7D8D9E2'
     8167   01 01AAB    E3E4E5E6 A            DATA     X'E3E4E5E6'
     8168   01 01AAC    E7E8E9B4 A            DATA     X'E7E8E9B4'
     8169   01 01AAD    B1B56A6D A            DATA     X'B1B56A6D'
     8170   01 01AAE    4AC1C2C3 A            DATA     X'4AC1C2C3'
     8171   01 01AAF    C4C5C6C7 A            DATA     X'C4C5C6C7'
     8172   01 01AB0    C8C9D1D2 A            DATA     X'C8C9D1D2'
     8173   01 01AB1    D3D4D5D6 A            DATA     X'D3D4D5D6'
     8174   01 01AB2    D7D8D9E2 A            DATA     X'D7D8D9E2'
     8175   01 01AB3    E3E4E5E6 A            DATA     X'E3E4E5E6'
     8176   01 01AB4    E7E8E9B2 A            DATA     X'E7E8E9B2'
     8177   01 01AB5    4FB31BFF A            DATA     X'4FB31BFF'
     8178   01 01AB6    15000000 A            DATA     X'15000000'
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  147
A    8180                            *        BIT TABLE

     8182                                     BOUND    8
     8183   01 01AB8    80000000 A   BIT      DATA     X'80000000'
     8184   01 01AB9    40000000 A            DATA     X'40000000'
     8185   01 01ABA    20000000 A            DATA     X'20000000'
     8186   01 01ABB    10000000 A            DATA     X'10000000'
     8187   01 01ABC    08000000 A            DATA     X'08000000'
     8188   01 01ABD    04000000 A            DATA     X'04000000'
     8189   01 01ABE    02000000 A            DATA     X'02000000'
     8190   01 01ABF    01000000 A            DATA     X'01000000'
     8191   01 01AC0    00800000 A            DATA     X'00800000'
     8192   01 01AC1    00400000 A            DATA     X'00400000'
     8193   01 01AC2    00200000 A            DATA     X'00200000'
     8194   01 01AC3    00100000 A            DATA     X'00100000'
     8195   01 01AC4    00080000 A            DATA     X'00080000'
     8196   01 01AC5    00040000 A            DATA     X'00040000'
     8197   01 01AC6    00020000 A            DATA     X'00020000'
     8198   01 01AC7    00010000 A            DATA     X'00010000'
     8199   01 01AC8    00008000 A            DATA     X'00008000'
     8200   01 01AC9    00004000 A            DATA     X'00004000'
     8201   01 01ACA    00002000 A            DATA     X'00002000'
     8202   01 01ACB    00001000 A            DATA     X'00001000'
     8203   01 01ACC    00000800 A            DATA     X'00000800'
     8204   01 01ACD    00000400 A            DATA     X'00000400'
     8205   01 01ACE    00000200 A            DATA     X'00000200'
     8206   01 01ACF    00000100 A            DATA     X'00000100'
     8207   01 01AD0    00000080 A            DATA     X'00000080'
     8208   01 01AD1    00000040 A            DATA     X'00000040'
     8209   01 01AD2    00000020 A            DATA     X'00000020'
     8210   01 01AD3    00000010 A            DATA     X'00000010'
     8211   01 01AD4    00000008 A   EIGHT    DATA     X'00000008'
     8212   01 01AD5    00000004 A            DATA     X'00000004'
     8213   01 01AD6    00000002 A            DATA     X'00000002'
     8214   01 01AD7    00000001 A            DATA     X'00000001'
     8215   01 01AD8    00000000 A   ZERO     DATA     0
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  148
A    8217                            *        NOBITS TABLE

     8219   01 01AD9    FFFFFFFF A            DATA     X'FFFFFFFF'
     8220   01 01ADA    7FFFFFFF A   NOBITS   DATA     X'7FFFFFFF'
     8221   01 01ADB    3FFFFFFF A            DATA     X'3FFFFFFF'
     8222   01 01ADC    1FFFFFFF A            DATA     X'1FFFFFFF'
     8223   01 01ADD    0FFFFFFF A            DATA     X'0FFFFFFF'
     8224   01 01ADE    07FFFFFF A            DATA     X'07FFFFFF'
     8225   01 01ADF    03FFFFFF A            DATA     X'03FFFFFF'
     8226   01 01AE0    01FFFFFF A            DATA     X'01FFFFFF'
     8227   01 01AE1    00FFFFFF A            DATA     X'00FFFFFF'
     8228   01 01AE2    007FFFFF A            DATA     X'007FFFFF'
     8229   01 01AE3    003FFFFF A            DATA     X'003FFFFF'
     8230   01 01AE4    001FFFFF A            DATA     X'001FFFFF'
     8231   01 01AE5    000FFFFF A            DATA     X'000FFFFF'
     8232   01 01AE6    0007FFFF A            DATA     X'0007FFFF'
     8233   01 01AE7    0003FFFF A            DATA     X'0003FFFF'
     8234   01 01AE8    0001FFFF A            DATA     X'0001FFFF'
     8235   01 01AE9    0000FFFF A            DATA     X'0000FFFF'
     8236   01 01AEA    00007FFF A            DATA     X'00007FFF'
     8237   01 01AEB    00003FFF A            DATA     X'00003FFF'
     8238   01 01AEC    00001FFF A            DATA     X'00001FFF'
     8239   01 01AED    00000FFF A            DATA     X'00000FFF'
     8240   01 01AEE    000007FF A            DATA     X'000007FF'
     8241   01 01AEF    000003FF A            DATA     X'000003FF'
     8242   01 01AF0    000001FF A            DATA     X'000001FF'
     8243   01 01AF1    000000FF A            DATA     X'000000FF'
     8244   01 01AF2    0000007F A            DATA     X'0000007F'
     8245   01 01AF3    0000003F A            DATA     X'0000003F'
     8246   01 01AF4    0000001F A            DATA     X'0000001F'
     8247   01 01AF5    0000000F A            DATA     X'0000000F'
     8248   01 01AF6    00000007 A            DATA     X'00000007'
     8249   01 01AF7    00000003 A            DATA     X'00000003'
     8250   01 01AF8    00000001 A            DATA     X'00000001'
     8251   01 01AF9    00000000 A            DATA     0
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  149
A    8253                            *        CONSTANTS

     8255   01 01AFA    FFFDFFFF A   NOTHORZ  DATA     X'FFFDFFFF'
     8256   01 01AFB    15E2D540 A   SNPRMPT  DATA     X'15E2D540'       SNAP LINE PROMPT
     8257   01 01AFC    1507D96E A   RUNPRMPT DATA     X'15070000'+PROMPT+X'100'*RUN
     8258                                     BOUND    8
     8259   01 01AFE    00000000 A   SYSHALT  DATA     0
     8260   01 01AFF    1507C86E A   HLTPRMPT DATA     X'15070000'+PROMPT+X'100'*HALT
     8261   01 01B00    00FF0000 A   XFF0000  DATA     X'FF0000'
     8262   01 01B01    0A000000 A   XA000000 DATA     X'A000000'
     8263   01 01B02    08200000 A   X8200000 DATA     X'8200000'
     8264   01 01B03    08100000 A   X8100000 DATA     X'8100000'
     8265   01 01B04    05F00000 A   X5F00000 DATA     X'5F00000'
     8266   01 01B05    04200000 A   X4200000 DATA     X'4200000'
     8267   01 01B06    03200000 A   X3200000 DATA     X'3200000'
     8268   01 01B07    02200000 A   X2200000 DATA     X'2200000'
     8269   01 01B08    01100000 A   X1100000 DATA     X'1100000'
     8270   01 01B09    FFFFFF00 A   YFFFFFF  DATA     X'FFFFFF00'
     8271   01 01B0A    FFFF0000 A   YFFFF    DATA     X'FFFF0000'
     8272   01 01B0B    FFFE0000 A   YFFFE    DATA     X'FFFE0000'
     8273   01 01B0C    7F800000 A   Y7F8     DATA     X'7F800000'
        1*  01 01B0D    FF800000 A   YFF8     DATA     X'FF800000'                                       *H01
     8274   01 01B0E    FF000000 A   YFF      DATA     X'FF000000'
     8275   01 01B0F    A0480000 A   YA048    DATA     X'A0480000'
     8276   01 01B10    FFFFFFF0 A   YM16     DATA     X'FFFFFFF0'
     8277   01 01B11    0007FFFC A   X7FFFC   DATA     X'7FFFC'
     8278   01 01B12    2E000000 A   Y2E      DATA     X'2E000000'       COM CHAIN FLAGS
     8279   01 01B13    1E000000 A   Y1E      DATA     X'1E000000'
     8280   01 01B14    1C000000 A   Y1C      DATA     X'1C000000'
     8281   01 01B15    0C000000 A   Y0C      DATA     X'0C000000'
     8282   01 01B16    60000000 A   Y6       DATA     X'60000000'
     8283   01 01B17    66000000 A   Y66      DATA     X'66000000'
     8284   01 01B18    1B000000 A   Y1B      DATA     X'1B000000'
     8285   01 01B19    00280000 A   Y0028    DATA     X'00280000'
     8286   01 01B1A    00140000 A   Y0014    DATA     X'00140000'
     8287   01 01B1B    0007F800 A   X7F800   DATA     X'7F800'
     8288   01 01B1C    005C0000 A   X5C0000  DATA     X'5C0000'
     8289   01 01B1D    FCFDFEFF A   LASTMAP  DATA     X'FCFDFEFF'       LAST FOUR PAGES
     8290   01 01B1E    04040404 A   NEXTMAP  DATA     X'04040404'        DECREMENT TO NEXT FOUR PAGES
     8291   01 01B1F    0000FF00 A   XFF00    DATA     X'FF00'
     8292   01 01B20    00001F00 A   X1F00    DATA     X'1F00'
     8293   01 01B21    00001FF0 A   X1FF0    DATA     X'1FF0'           MASK
     8294   01 01B22    0000007C A   X7C      DATA     X'7C'
     8295   01 01B23    0000003E A   X3E      DATA     X'3E'
     8296   01 01B24    07000000 A   Y07      DATA     X'07000000'

     8298                                     BOUND    8
     8299   01 01B26    000000F0 A   0TO9     DATA     X'F0',X'F9'
            01 01B27    000000F9 A
     8300   01 01B28    00000000 A   0TO31    DATA     0,X'1F'
            01 01B29    0000001F A
     8301   01 01B2A    000000C1 A   ATOF     DATA     X'C1',X'C6'
            01 01B2B    000000C6 A
     8302   01 01B2C    00000010 A   10TO13   DATA     X'10',X'13'
            01 01B2D    00000013 A
     8303   01 01B2E    00000D02     TTYINS   DATA     DA(TTYI)-1,DA(TTYI)
            01 01B2F    00000D03
     8304   01 01B30    00000D04     TTYOUTS  DATA     DA(TTYO)-1,DA(TTYO)
            01 01B31    00000D05
     8305   01 01B32    00001939     MSGRTN   DATA     MSG,COC-1
            01 01B33    000019FF
        1*  01 01B34    00000F94     BCKGND   DATA     STARTRU,CCP-1     BACKGROUND LIMITS               *H01
            01 01B35    000012FE
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  150
A    8307                            ************************************************************************
     8308                            *                                                                      *
     8309                            *        DIRECTIVE TABLE: 5 WORDS PER ENTRY                            *
     8310                            *                                                                      *
     8311                            *        FIRST 8 BYTES=DIRECTIVE NAME IN EBCDIC(2 WORDS)               *
     8312                            *        LAST WORD=DIRECTIVE DISCRIPTOR(DIR)                           *
     8313                            *                                                                      *
     8314         00000004           DIR      COM,1,1,1,1,28      AF(1),AF(2),AF(3),AF(4),AF(5)
     8315                            *                                                                      *
     8316                            *        AF(1)=BIT0=DESTINATION EXPECTED                               *
     8317                            *        AF(2)=BIT1=QUALIFIER 1 EXPECTED                               *
     8318                            *        AF(3)=BIT2=QUALIFIER 2 EXPECTED                               *
     8319                            *        AF(4)=BIT3=QUALIFIER 3 EXPECTED                               *
     8320                            *        AF(5)=ADDRESS OF DIRECTIVE EXECUTION                          *
     8321                            *                                                                      *
     8322                            ************************************************************************

     8324         01 01B36           DIRTAB   EQU      %
     8325   01 01B36    C1C2E2E3 A            TEXT     'ABSTRACT'
            01 01B37    D9C1C3E3 A
     8326   01 01B38    40001527              DIR      0,1,0,0,ABSTRACT
     8327   01 01B39    02000002 A            DATA     X'2000002',0,0
            01 01B3A    00000000 A
            01 01B3B    00000000 A
     8328   01 01B3C    0000869C              DATA     BA(ABSEXP)

     8330   01 01B3D    C1C9D640 A            TEXT     'AIO  '
            01 01B3E    40404040 A
     8331   01 01B3F    000014CE              DIR      0,0,0,0,AIO
     8332   01 01B40    02000002 A            DATA     X'2000002',0,0
            01 01B41    00000000 A
            01 01B42    00000000 A
     8333   01 01B43    000086FC              DATA     BA(AIOEXP)

     8335   01 01B44    C2D6D6E3 A            TEXT     'BOOT '
            01 01B45    40404040 A
     8336   01 01B46    4000161E              DIR      0,1,0,0,BOOT
     8337   01 01B47    02000002 A            DATA     X'2000002',0,0
            01 01B48    00000000 A
            01 01B49    00000000 A
     8338   01 01B4A    0000873C              DATA     BA(BOTEXP)

     8340   01 01B4B    C2D9C1D5 A            TEXT     'BRANCH'
            01 01B4C    C3C84040 A
     8341   01 01B4D    40001554              DIR      0,1,0,0,BRANCH
     8342   01 01B4E    02000002 A            DATA     X'2000002',0,0
            01 01B4F    00000000 A
            01 01B50    00000000 A
     8343   01 01B51    0000879C              DATA     BA(BRAEXP)

     8345   01 01B52    C3D6D4D7 A            TEXT     'COMPARE'
            01 01B53    C1D9C540 A
     8346   01 01B54    F0001795              DIR      1,1,1,1,COMPAR
     8347   01 01B55    02000002 A            DATA     X'2000002',0,0
            01 01B56    00000000 A
            01 01B57    00000000 A
     8348   01 01B58    000087E4              DATA     BA(COMEXP)

     8350   01 01B59    C3D6D5C6 A            TEXT     'CONFIGUR'
            01 01B5A    C9C7E4D9 A
     8351   01 01B5B    00001776              DIR      0,0,0,0,CONFIGUR
     8352   01 01B5C    02000002 A            DATA     X'2000002',0,0
            01 01B5D    00000000 A
            01 01B5E    00000000 A
     8353   01 01B5F    000088C8              DATA     BA(CONEXP)

     8355   01 01B60    C4C5E2C5 A            TEXT     'DESELECT'
            01 01B61    D3C5C3E3 A
     8356   01 01B62    600015CB              DIR      0,1,1,0,DESELECT
     8357   01 01B63    02000002 A            DATA     X'2000002',0,0
            01 01B64    00000000 A
            01 01B65    00000000 A
     8358   01 01B66    00009084              DATA     BA(DESEXP)

     8360   01 01B67    C4C9E2D7 A            TEXT     'DISPLAY '
            01 01B68    D3C1E840 A
     8361   01 01B69    E0001657     DISPDIR  DIR      1,1,1,0,DISPLAY
     8362   01 01B6A    02000002 A            DATA     X'2000002',0,0
            01 01B6B    00000000 A
            01 01B6C    00000000 A
     8363   01 01B6D    00008904              DATA     BA(DISEXP)

     8365   01 01B6E    C5D9D9D6 A            TEXT     'ERRORS'
            01 01B6F    D9E24040 A
     8366   01 01B70    700016A7              DIR      0,1,1,1,ERRORS
     8367   01 01B71    02000002 A            DATA     X'2000002',0,0
            01 01B72    00000000 A
            01 01B73    00000000 A
     8368   01 01B74    00008A04              DATA     BA(ERREXP)

     8370   01 01B75    C5E7D7D3 A            TEXT     'EXPLAIN'
            01 01B76    C1C9D540 A
     8371   01 01B77    C0001516     EXPDIR   DIR      1,1,0,0,EXPLAIN
     8372   01 01B78    02000002 A            DATA     X'2000002',0,0
            01 01B79    00000000 A
            01 01B7A    00000000 A
     8373   01 01B7B    00008978              DATA     BA(EXPEXP)

     8375   01 01B7C    C8C1D3E3 A            TEXT     'HALT '
            01 01B7D    40404040 A
     8376   01 01B7E    00001436              DIR      0,0,0,0,SETHALT
     8377   01 01B7F    02000002 A            DATA     X'2000002',0,0
            01 01B80    00000000 A
            01 01B81    00000000 A
     8378   01 01B82    00008CD4              DATA     BA(HLTEXP)

     8380   01 01B83    C8C9D640 A            TEXT     'HIO  '
            01 01B84    40404040 A
     8381   01 01B85    70001585              DIR      0,1,1,1,HIO
     8382   01 01B86    02000002 A            DATA     X'2000002',0,0
            01 01B87    00000000 A
            01 01B88    00000000 A
     8383   01 01B89    00009550              DATA     BA(HIOEXP)

     8385   01 01B8A    D7D9C9D5 A            TEXT     'PRINT'
            01 01B8B    E3404040 A
     8386   01 01B8C    F000164D              DIR      1,1,1,1,PRINT
     8387   01 01B8D    02000002 A            DATA     X'2000002',0,0
            01 01B8E    00000000 A
            01 01B8F    00000000 A
     8388   01 01B90    00008DE8              DATA     BA(PRIEXP)

     8390   01 01B91    D9C5C4E4 A            TEXT     'REDUMP'
            01 01B92    D4D74040 A
     8391   01 01B93    4000177F              DIR      0,1,0,0,REDUMP
     8392   01 01B94    02000002 A            DATA     X'2000002',0,0
            01 01B95    00000000 A
            01 01B96    00000000 A
     8393   01 01B97    00008E64              DATA     BA(REDEXP)

     8395   01 01B98    D9C5C1C4 A            TEXT     'READ '
            01 01B99    40404040 A
     8396   01 01B9A    700015E8              DIR      0,1,1,1,READ
     8397   01 01B9B    02000002 A            DATA     X'2000002',0,0
            01 01B9C    00000000 A
            01 01B9D    00000000 A
     8398   01 01B9E    00008CFC              DATA     BA(REAEXP)

     8400   01 01B9F    D9C5D3D6 A            TEXT     'RELOAD'
            01 01BA0    C1C44040 A
     8401   01 01BA1    40001781              DIR      0,1,0,0,RELOAD
     8402   01 01BA2    02000002 A            DATA     X'2000002',0,0
            01 01BA3    00000000 A
            01 01BA4    00000000 A
     8403   01 01BA5    00008E64              DATA     BA(RELEXP)

     8405   01 01BA6    D9C5D7D3 A            TEXT     'REPLACE'
            01 01BA7    C1C3C540 A
     8406   01 01BA8    E0001677     REPLDIR  DIR      1,1,1,0,REPLACE
     8407   01 01BA9    02000002 A            DATA     X'2000002',0,0
            01 01BAA    00000000 A
            01 01BAB    00000000 A
     8408   01 01BAC    00008FF8              DATA     BA(REPEXP)

     8410   01 01BAD    D9E4D540 A            TEXT     'RUN  '
            01 01BAE    40404040 A
     8411   01 01BAF    00001563              DIR      0,0,0,0,SETRUN
     8412   01 01BB0    02000002 A            DATA     X'2000002',0,0
            01 01BB1    00000000 A
            01 01BB2    00000000 A
     8413   01 01BB3    00009060              DATA     BA(RUNEXP)

     8415   01 01BB4    E2C5C1D9 A            TEXT     'SEARCH'
            01 01BB5    C3C84040 A
     8416   01 01BB6    F0001793              DIR      1,1,1,1,SEARCH
     8417   01 01BB7    02000002 A            DATA     X'2000002',0,0
            01 01BB8    00000000 A
            01 01BB9    00000000 A
     8418   01 01BBA    00009150              DATA     BA(SEAEXP)

     8420   01 01BBB    E2C5D3C5 A            TEXT     'SELECT'
            01 01BBC    C3E34040 A
     8421   01 01BBD    700015B6              DIR      0,1,1,1,SELECT
     8422   01 01BBE    02000002 A            DATA     X'2000002',0,0
            01 01BBF    00000000 A
            01 01BC0    00000000 A
     8423   01 01BC1    00009084              DATA     BA(SELEXP)

     8425   01 01BC2    E2C9D640 A            TEXT     'SIO  '
            01 01BC3    40404040 A
     8426   01 01BC4    70001581              DIR      0,1,1,1,SIO
     8427   01 01BC5    02000002 A            DATA     X'2000002',0,0
            01 01BC6    00000000 A
            01 01BC7    00000000 A
     8428   01 01BC8    000091F4              DATA     BA(SIOEXP)

     8430   01 01BC9    E2D5C1D7 A            TEXT     'SNAP '
            01 01BCA    40404040 A
     8431   01 01BCB    70001700              DIR      0,1,1,1,SNAP
     8432   01 01BCC    02000002 A            DATA     X'2000002',0,0
            01 01BCD    00000000 A
            01 01BCE    00000000 A
     8433   01 01BCF    00009278              DATA     BA(SNAEXP)

     8435   01 01BD0    E2D7D9C5 A            TEXT     'SPREAD'
            01 01BD1    C1C44040 A
     8436   01 01BD2    F0001686              DIR      1,1,1,1,SPREAD
     8437   01 01BD3    02000002 A            DATA     X'2000002',0,0
            01 01BD4    00000000 A
            01 01BD5    00000000 A
     8438   01 01BD6    00009340              DATA     BA(SPREXP)

     8440   01 01BD7    E2E3C1D9 A            TEXT     'START'
            01 01BD8    E3404040 A
     8441   01 01BD9    7000153A              DIR      0,1,1,1,START
     8442   01 01BDA    02000002 A            DATA     X'2000002',0,0
            01 01BDB    00000000 A
            01 01BDC    00000000 A
     8443   01 01BDD    000093C4              DATA     BA(STAEXP)

     8445   01 01BDE    E2E3D6D9 A            TEXT     'STORE'
            01 01BDF    C5404040 A
     8446   01 01BE0    E000167D     STORDIR  DIR      1,1,1,0,STORE
     8447   01 01BE1    02000002 A            DATA     X'2000002',0,0
            01 01BE2    00000000 A
            01 01BE3    00000000 A
     8448   01 01BE4    00009478              DATA     BA(STOEXP)

     8450   01 01BE5    E2E6C9E3 A            TEXT     'SWITCH'
            01 01BE6    C3C84040 A
     8451   01 01BE7    40001565              DIR      0,1,0,0,SWITCH
     8452   01 01BE8    02000002 A            DATA     X'2000002',0,0
            01 01BE9    00000000 A
            01 01BEA    00000000 A
     8453   01 01BEB    000094D8              DATA     BA(SWIEXP)

     8455   01 01BEC    E3C9D640 A            TEXT     'TIO  '
            01 01BED    40404040 A
     8456   01 01BEE    7000157F              DIR      0,1,1,1,TIO
     8457   01 01BEF    02000002 A            DATA     X'2000002',0,0
            01 01BF0    00000000 A
            01 01BF1    00000000 A
     8458   01 01BF2    00009550              DATA     BA(TIOEXP)

     8460   01 01BF3    E3C4E540 A            TEXT     'TDV  '
            01 01BF4    40404040 A
     8461   01 01BF5    7000157D              DIR      0,1,1,1,TDV
     8462   01 01BF6    02000002 A            DATA     X'2000002',0,0
            01 01BF7    00000000 A
            01 01BF8    00000000 A
     8463   01 01BF9    00009550              DATA     BA(TDVEXP)

     8465   01 01BFA    E4D5E2D5 A            TEXT     'UNSNAP'
            01 01BFB    C1D74040 A
     8466   01 01BFC    00001717              DIR      0,0,0,0,UNSNAP
     8467   01 01BFD    02000002 A            DATA     X'2000002',0,0
            01 01BFE    00000000 A
            01 01BFF    00000000 A
     8468   01 01C00    00009624              DATA     BA(UNSEXP)

     8470   01 01C01    E6D9C9E3 A            TEXT     'WRITE'
            01 01C02    C5404040 A
     8471   01 01C03    700015E6              DIR      0,1,1,1,WRITE
     8472   01 01C04    02000002 A            DATA     X'2000002',0,0
            01 01C05    00000000 A
            01 01C06    00000000 A
     8473   01 01C07    00008CFC              DATA     BA(WRIEXP)
     8474         01 01C08           DIRTABE  EQU      %
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  151
A    8476                            ************************************************************************
     8477                            *                                                                      *
     8478                            *        DESTINATION TABLE: 7 WORDS PER ENTRY                          *
     8479                            *                                                                      *
     8480                            *        FIRST 2 WORDS (8 BYTES)=DESTINATION NAME IN EBCDIC            *
     8481                            *        THIRD WORD=ARRAY POINTER (DES1)                               *
     8482                            *                                                                      *
     8483         00000004           DES1     COM,8,6,1,17        AF(1),AF(2),AF(3),AF(4)
     8484                            *                                                                      *
     8485                            *        AF(1)=NUMBER OF TABLES IN ARRAY (M)                           *
     8486                            *        AF(2)=SPECIAL TABLE INDICATOR (I)                             *
     8487                            *        AF(3)=FORMAT: 0=VERTICAL, 1=HORIZONTAL                        *
     8488                            *        AF(4)=LOCATION OF FIRST TABLE POINTER                         *
     8489                            *                                                                      *
     8490                            *        FOURTH WORD=ELEMENT LIMIT (DES2)                              *
     8491                            *                                                                      *
     8492         00000004           DES2     COM,8,24            AF(1),AF(2)
     8493                            *                                                                      *
     8494                            *        AF(1)=FORMAT OF Q1 & Q2: 0=EBCDIC, 1=DECIMAL, 2=HEX           *
     8495                            *        AF(2)=NUMBER OF ELEMENTS/TABLE (N)                            *
     8496                            *                                                                      *
     8497                            *        FIFTH WORD=LOC TO BE ACCESSED IF TABLE IS ALTERED             *
     8498                            *        SIXTH WORD=BYTE ADDRESS OF TABLE HEADING                      *
     8499                            *        SEVENTH WORD=BYTE ADDRESS OF EXPLANATION MESSAGE              *
     8500                            *                                                                      *
     8501                            ************************************************************************

     8503         01 01C08           DESTAB   EQU      %

     8505   01 01C08    C2E4C6C6 A            TEXT     'BUFFERS'
            01 01C09    C5D9E240 A
        1*  01 01C0A    0A001C9A              DES1     10,0,0,BT0P                                       *H02
     8507   01 01C0B    02000002 A            DES2     2,2
     8508   01 01C0C    02001675              DES2     2,DISPXIT
     8509   01 01C0D    000097AC              DATA     BA(BTHDG)
     8510   01 01C0E    00009658              DATA     BA(BTEXP)

     8512   01 01C0F    C2E8E3C5 A            TEXT     'BYTES'
            01 01C10    E2404040 A
     8513   01 01C11    01021CA4     BYTDES   DES1     1,0,1,B0P
     8514   01 01C12    02000000 A            DES2     2,0
     8515   01 01C13    02001675              DES2     2,DISPXIT
     8516   01 01C14    00000000 A            DATA     0
     8517   01 01C15    0000A134              DATA     BA(BYTEXP)

     8519   01 01C16    C3D6C3D3 A            TEXT     'COCLINES'
            01 01C17    C9D5C5E2 A
     8520   01 01C18    01021D0B              DES1     1,0,1,COCOP
     8521   01 01C19    02000040 A            DES2     2,X'40'
     8522   01 01C1A    02001675              DES2     2,DISPXIT
     8523   01 01C1B    00009FB0              DATA     BA(COCHDG)
     8524   01 01C1C    00009EC4              DATA     BA(COCEXP)

     8526   01 01C1D    C3D6D5E3 A            TEXT     'CONTROL'
            01 01C1E    D9D6D340 A
        1*  01 01C1F    0F001CA6     CONDES   DES1     15,0,0,CT0P                                       *H01
     8528   01 01C20    02000014 A            DES2     2,CTSIZ
     8529   01 01C21    02001675              DES2     2,SYSXIT
     8530   01 01C22    00009E44              DATA     BA(CTHDG)
     8531   01 01C23    00009800              DATA     BA(CTEXP)

     8533   01 01C24    C37A4040 A            TEXT     'C:   '
            01 01C25    40404040 A
     8534   01 01C26    01041CA6              DES1     1,1,0,CT0P
     8535   01 01C27    02000014 A            DES2     2,CTSIZ
     8536   01 01C28    02001675              DES2     2,SYSXIT
     8537   01 01C29    00000000 A            DATA
     8538   01 01C2A    00009800              DATA     BA(CTEXP)

     8540   01 01C2B    C5D3C5D4 A            TEXT     'ELEMENT'
            01 01C2C    C5D5E340 A
     8541   01 01C2D    05001CBE              DES1     5,0,0,ET0P
     8542   01 01C2E    02000028 A            DES2     2,ETSIZ
     8543   01 01C2F    02001675              DES2     2,DISPXIT
     8544   01 01C30    0000A0B4              DATA     BA(ETHDG)
     8545   01 01C31    00009FD0              DATA     BA(ETEXP)

     8547   01 01C32    C57A4040 A            TEXT     'E:   '
            01 01C33    40404040 A
     8548   01 01C34    01041CBE              DES1     1,1,0,ET0P
     8549   01 01C35    02000028 A            DES2     2,ETSIZ
     8550   01 01C36    02001675              DES2     2,DISPXIT
     8551   01 01C37    00000000 A            DATA     0
     8552   01 01C38    00009FD0              DATA     BA(ETIEXP)

     8554   01 01C39    C9D6D740 A            TEXT     'IOP  '
            01 01C3A    40404040 A
     8555   01 01C3B    04001CC4              DES1     4,0,0,IO0P
     8556   01 01C3C    02000010 A            DES2     2,IOPSIZ
     8557   01 01C3D    02001675              DES2     2,DISPXIT
     8558   01 01C3E    0000AEDC              DATA     BA(IOPHDG)
     8559   01 01C3F    0000AE0C              DATA     BA(IOPEXP)

     8561   01 01C40    C97A4040 A            TEXT     'I:   '
            01 01C41    40404040 A
     8562   01 01C42    01041CC4              DES1     1,1,0,IO0P
     8563   01 01C43    02000010 A            DES2     2,IOPSIZ
     8564   01 01C44    02001675              DES2     2,DISPXIT
     8565   01 01C45    0000AEDC              DATA     BA(IOPHDG)
     8566   01 01C46    0000AE0C              DATA     BA(IOPEXP)

     8568   01 01C47    D4C5D4D6 A            TEXT     'MEMORY'
            01 01C48    D9E84040 A
     8569   01 01C49    01021CD4     MEMDES   DES1     1,0,1,M0P
     8570   01 01C4A    02000000 A            DES2     2,0
     8571   01 01C4B    02001675              DES2     2,DISPXIT
     8572   01 01C4C    00000000 A            DATA
     8573   01 01C4D    0000A0E0              DATA     BA(MEMEXP)

     8575   01 01C4E    D6D7C5D9 A            TEXT     'OPERATOR'
            01 01C4F    C1E3D6D9 A
        1*  01 01C50    12001CD6     OPDES    DES1     18,0,0,OT1P                                       *H00
     8577   01 01C51    02000002 A            DES2     2,2
        1*  01 01C52    0200165D              DES2     2,OPRXIT                                          *H01
     8579   01 01C53    0000A43C              DATA     BA(OTHDG)
     8580   01 01C54    0000A19C              DATA     BA(OTEXP)

     8582   01 01C55    D67A4040 A            TEXT     'O:   '
            01 01C56    40404040 A
     8583   01 01C57    01041CD6              DES1     1,1,0,OT1P
        1*  01 01C58    02000012 A            DES2     2,18                                              *H00
        2*  01 01C59    0200165D              DES2     2,OPRXIT                                          *H01
     8586   01 01C5A    00000000 A            DATA
     8587   01 01C5B    00001433              DATA     DA(OTEXP)

     8589   01 01C5C    D7C1D9C1 A            TEXT     'PARAMETR'
            01 01C5D    D4C5E3D9 A
     8590   01 01C5E    08001CC9              DES1     8,0,0,RP0P
     8591   01 01C5F    0200000C A            DES2     2,RPSIZ
     8592   01 01C60    02001675              DES2     2,DISPXIT
     8593   01 01C61    0000ADC8              DATA     BA(RPHDG)
     8594   01 01C62    0000AC44              DATA     BA(RPEXP)

     8596   01 01C63    D9C5C7C9 A            TEXT     'REGISTER'
            01 01C64    E2E3C5D9 A
     8597   01 01C65    01021D02              DES1     1,0,1,REG0P
     8598   01 01C66    02000010 A            DES2     2,16
     8599   01 01C67    02001675              DES2     2,DISPXIT
     8600   01 01C68    00000000 A            DATA     0
     8601   01 01C69    0000AAA8              DATA     BA(REGEXP)

     8603   01 01C6A    E2E3C1E3 A            TEXT     'STATUS'
            01 01C6B    E4E24040 A
        1*  01 01C6C    0E001CF4              DES1     14,0,0,STT1P                                      *H02
     8605   01 01C6D    01000002 A            DES2     1,2
     8606   01 01C6E    02001675              DES2     2,SYSXIT
     8607   01 01C6F    0000AA54              DATA     BA(STTHDG)
     8608   01 01C70    0000A864              DATA     BA(STTEXP)

     8610   01 01C71    E2E8E2E3 A            TEXT     'SYSTEM'
            01 01C72    C5D44040 A
     8611   01 01C73    0C001CE8              DES1     12,0,0,ST1P
     8612   01 01C74    01000002 A            DES2     1,2
     8613   01 01C75    02001675              DES2     2,SYSXIT
     8614   01 01C76    0000A80C              DATA     BA(STHDG)
     8615   01 01C77    0000A4A0              DATA     BA(STEXP)

     8617   01 01C78    E27A4040 A            TEXT     'S:      '
            01 01C79    40404040 A
     8618   01 01C7A    01041CE8              DES1     1,1,0,ST1P
        1*  01 01C7B    0200001A A            DES2     2,26                                              *H02
     8620   01 01C7C    02001675              DES2     2,SYSXIT
     8621   01 01C7D    00000000 A            DATA
     8622   01 01C7E    0000A4A0              DATA     BA(STEXP)

     8624   01 01C7F    E3C9D4C5 A            TEXT     'TIME '
            01 01C80    40404040 A
     8625   01 01C81    06021D05              DES1     6,0,1,DT1P
     8626   01 01C82    01000002 A            DES2     1,2
     8627   01 01C83    0100178A              DES2     1,SETIME
     8628   01 01C84    0000AC18              DATA     BA(DTHDG)
     8629   01 01C85    0000ABC8              DATA     BA(DTEXP)

     8631         01 01C86           DESTABE  EQU      %

     8633   01 01C86    02001CBC     CFDES    DES1     2,0,0,CF1P
     8634   01 01C87    02000028 A            DES2     2,ETSIZ
     8635   01 01C88    02001675              DES2     2,SYSXIT
     8636   01 01C89    00009EA0              DATA     BA(CFHDG)
     8637   01 01C8A    00000000 A            DATA     0

     8639   01 01C8B    00021D0D     ERRDES   DES1     0,0,1,ELTPNR1     GENERAL ERROR LOG
     8640   01 01C8C    02000001 A            DES2     2,1
     8641   01 01C8D    0200033B              DES2     2,LOGEND
     8642   01 01C8E    0000B34C              DATA     BA(LOGHDG)
     8643   01 01C8F    0000826C              DATA     BA(LOGEXP)

     8645   01 01C90    07021D39     ERRDES1  DES1     7,0,1,ELTPNR5     DEVICE ERROR LOG
     8646   01 01C91    02000001 A            DES2     2,1
     8647   01 01C92    0200033B              DES2     2,LOGEND
     8648   01 01C93    00007BB8              DATA     BA(LOGHDG1)
     8649   01 01C94    0000826C              DATA     BA(LOGEXP)

     8651   01 01C95    08021D43     ERRDES2  DES1     8,0,1,ELTPNR6     EXTENDED STATUS ERROR LOG
     8652   01 01C96    02000001 A            DES2     2,1
     8653   01 01C97    0200033B              DES2     2,LOGEND
     8654   01 01C98    00007BEC              DATA     BA(LOGHDG2)
     8655   01 01C99    0000826C              DATA     BA(LOGEXP)
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  152
A    8657                            ************************************************************************
     8658                            *                                                                      *
     8659                            *        TABLE POINTERS                                                *
     8660                            *                                                                      *
     8661         00000004           TPNR     COM,8,1,3,3,17      AF(1),AF(2),AF(3),AF(4),AF(5)
     8662                            *                                                                      *
     8663                            *        AF(1)=NUMBER OF CHARS/FIELD (C)                               *
     8664                            *        AF(2)=WRITE PROTECTED TABLE (P)                               *
     8665                            *        AF(3)=DATA FORMAT: 0=EBCDIC,1=DECIMAL,2=HEX,4=ADRS (D)        *
     8666                            *        AF(4)=TABLE TYPE: 0=BYTE,1=HALFWORD,2=WORD (T)                *
     8667                            *        AF(5)=ADDRESS OF FIRST TABLE ELEMENT (AT)                     *
     8668                            *                                                                      *
     8669                            ************************************************************************

     8671   01 01C9A    06242C21     BT0P     TPNR     6,0,2,2,BUFTOTAL
     8672   01 01C9B    06242C32              TPNR     6,0,2,2,BUFFERS+0
     8673   01 01C9C    06242C33              TPNR     6,0,2,2,BUFFERS+1
     8674   01 01C9D    06242C34              TPNR     6,0,2,2,BUFFERS+2
     8675   01 01C9E    06242C35              TPNR     6,0,2,2,BUFFERS+3
     8676   01 01C9F    06242C36              TPNR     6,0,2,2,BUFFERS+4
     8677   01 01CA0    06242C37              TPNR     6,0,2,2,BUFFERS+5
     8678   01 01CA1    06242C38              TPNR     6,0,2,2,BUFFERS+6
     8679   01 01CA2    06242C39              TPNR     6,0,2,2,BUFFERS+7
        1*  01 01CA3    04142C20              TPNR     4,0,1,2,BUFRATE                                   *H02

     8681   01 01CA4    88C42BD6     B0P      TPNR     136,1,4,2,Q1
     8682   01 01CA5    02200000 A            TPNR     2,0,2,0,0

     8684   01 01CA6    83A42BD6     CT0P     TPNR     131,1,2,2,Q1
     8685   01 01CA7    04A22FE5              TPNR     4,1,2,1,CT:DA
     8686   01 01CA8    04222FEF              TPNR     4,0,2,1,CT:DS
     8687   01 01CA9    04222FF9              TPNR     4,0,2,1,CT:OPS
     8688   01 01CAA    04A23003              TPNR     4,1,2,1,CT:CS
     8689   01 01CAB    08A4300D              TPNR     8,1,2,2,CT:SEEK
     8690   01 01CAC    08C43021              TPNR     8,1,4,2,CT:BUFAD
     8691   01 01CAD    05A43035              TPNR     5,1,2,2,CT:COM
     8692   01 01CAE    05A43049              TPNR     5,1,2,2,CT:MAP
     8693   01 01CAF    02A0305D              TPNR     2,1,2,0,CT:ORD
     8694   01 01CB0    02A0306C              TPNR     2,1,2,0,CT:SEV
     8695   01 01CB1    02A03071              TPNR     2,1,2,0,CT:ETX
     8696   01 01CB2    02A03076              TPNR     2,1,2,0,CT:REL
     8697   01 01CB3    02A030AD              TPNR     2,1,2,0,CT:PC
     8698   01 01CB4    02A030C1              TPNR     2,1,2,0,CT:SF
        1*  01 01CB5    02A0307B              TPNR     2,1,2,0,CT:DUAL                                   *H01

     8701   01 01CB6    08A43080              TPNR     8,1,2,2,CT:POS
     8702   01 01CB7    08A43094              TPNR     8,1,2,2,CT:SENSE
     8703   01 01CB8    02A030A8              TPNR     2,1,2,0,CT:WAIT
     8704   01 01CB9    02A030B2              TPNR     2,1,2,0,CT:FT
     8705   01 01CBA    02A030BC              TPNR     2,1,2,0,CT:RETRY
     8706   01 01CBB    04A23062              TPNR     4,1,2,1,CT:CA

     8708   01 01CBC    04A2314E     CF1P     TPNR     4,1,2,1,MODTAB
     8709   01 01CBD    04A2315D              TPNR     4,1,2,1,AD1TAB

     8711   01 01CBE    83A42BD6     ET0P     TPNR     131,1,2,2,Q1
     8712   01 01CBF    04A22DF4              TPNR     4,1,2,1,ET:MOD
     8713   01 01CC0    02822E08              TPNR     2,1,0,1,ET:MNE
     8714   01 01CC1    06A42E1C              TPNR     6,1,2,2,ET:HNDLR
     8715   01 01CC2    03A02E44              TPNR     3,1,2,0,ET:RPX
     8716   01 01CC3    03A02E4E              TPNR     3,1,2,0,ET:CDW

     8718   01 01CC4    83A42BD6     IO0P     TPNR     131,1,2,2,Q1
     8719   01 01CC5    0320312A              TPNR     3,0,2,0,IOPR
     8720   01 01CC6    03A0312E              TPNR     3,1,2,0,IOPW
     8721   01 01CC7    04923132              TPNR     4,1,1,1,IOPKW
     8722   01 01CC8    0494313A              TPNR     4,1,1,2,IOPRE

     8724   01 01CC9    83A42BD6     RP0P     TPNR     131,1,2,2,Q1
     8725   01 01CCA    04A42E58              TPNR     4,1,2,2,RP:BPS
     8726   01 01CCB    03A42E64              TPNR     3,1,2,2,RP:SPT
     8727   01 01CCC    03A02E9D              TPNR     3,1,2,0,RP:HPT
     8728   01 01CCD    04A42E70              TPNR     4,1,2,2,RP:TPD
     8729   01 01CCE    03A02E7C              TPNR     3,1,2,0,RP:DPC
     8730   01 01CCF    03A22E7F              TPNR     3,1,2,1,RP:INC
     8731   01 01CD0    05A42E85              TPNR     5,1,2,2,RP:BUFS
     8732   01 01CD1    03942E91              TPNR     3,1,1,2,RP:CDWS
     8733   01 01CD2    02A02EA0              TPNR     2,1,2,0,RP:SS
     8734   01 01CD3    02A02EA6              TPNR     2,1,2,0,RP:TS

     8736   01 01CD4    86A42BD6     M0P      TPNR     134,1,2,2,Q1
     8737   01 01CD5    08240000 A            TPNR     8,0,2,2,0
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  153
A    8739   01 01CD6    04242EA9     OT1P     TPNR     4,0,2,2,MSGDEV
     8740   01 01CD7    02142EAA              TPNR     2,0,1,2,LIMIT
     8741   01 01CD8    04242EAB              TPNR     4,0,2,2,LOGDEV
     8742   01 01CD9    02222EAC              TPNR     2,0,2,1,LOGLEV
     8743   01 01CDA    02222EAD              TPNR     2,0,2,1,HLTLEV
     8744   01 01CDB    04242EAE              TPNR     4,0,2,2,TTYDEV
     8745   01 01CDC    04242EAF              TPNR     4,0,2,2,COCDEV
     8746   01 01CDD    02202EB0              TPNR     2,0,2,0,COCMX
     8747   01 01CDE    02A02EB1              TPNR     2,1,2,0,COCSTATE
     8748   01 01CDF    02A02EB2              TPNR     2,1,2,0,COCLINE
     8749   01 01CE0    02A02EB3              TPNR     2,1,2,0,COCNR
     8750   01 01CE1    04A42EB4              TPNR     4,1,2,2,BASEDEV
     8751   01 01CE2    04A42EB5              TPNR     4,1,2,2,SORCEDEV
     8752   01 01CE3    06A42C18              TPNR     6,1,2,2,AIOCOUNT
        1*  01 01CE4    06A42C19              TPNR     6,1,2,2,AIOUNEXP                                  *H00
        2*  01 01CE5    04142D20              TPNR     4,0,1,2,EFWRAP                                    *H01
        3*  01 01CE6    04222C1B              TPNR     4,0,2,1,LMSSET                                    *H01
        4*  01 01CE7    04242C1D              TPNR     4,0,2,2,FLAWS                                     *H01

     8754   01 01CE8    06242ECB     ST1P     TPNR     6,0,2,2,BLKSIZE
     8755   01 01CE9    06242ECC              TPNR     6,0,2,2,BUFSIZE
     8756   01 01CEA    08442ECD              TPNR     8,0,4,2,FIRSTBUF
     8757   01 01CEB    08442ECE              TPNR     8,0,4,2,STRTCORE
     8758   01 01CEC    08442ECF              TPNR     8,0,4,2,ENDCORE
     8759   01 01CED    02202ED0              TPNR     2,0,2,0,SYSMODE
     8760   01 01CEE    02202ED1              TPNR     2,0,2,0,DATASEL
     8761   01 01CEF    02202ED3              TPNR     2,0,2,0,SYSOP
     8762   01 01CF0    06142EE1              TPNR     6,0,1,2,SYSERRST
     8763   01 01CF1    06242C01              TPNR     6,0,2,2,MAPOP
     8764   01 01CF2    03242C09              TPNR     3,0,2,2,SLCTMAP
     8765   01 01CF3    03242C08              TPNR     3,0,2,2,SLCTREG

     8767   01 01CF4    02202ED4     STT1P    TPNR     2,0,2,0,CYCLER
     8768   01 01CF5    02A02ED5              TPNR     2,1,2,0,CYCLES
     8769   01 01CF6    02202ED6              TPNR     2,0,2,0,PASSER
     8770   01 01CF7    02A02ED7              TPNR     2,1,2,0,PASSES
     8771   01 01CF8    02202ED8              TPNR     2,0,2,0,PHASER
     8772   01 01CF9    02A02ED9              TPNR     2,1,2,0,PHASES
     8773   01 01CFA    03122EDA              TPNR     3,0,1,1,BON
     8774   01 01CFB    03122EDB              TPNR     3,0,1,1,BOF
     8775   01 01CFC    04242EDC              TPNR     4,0,2,2,MTLIMIT
     8776   01 01CFD    08942EDD              TPNR     8,1,1,2,PASSTIME
     8777   01 01CFE    06242BF6              TPNR     6,0,2,2,BUFSTRTW
     8778   01 01CFF    06242EDF              TPNR     6,0,2,2,PMEMSIZE
     8779   01 01D00    08242C00              TPNR     8,0,2,2,REGOPS
        1*  01 01D01    04242EE3              TPNR     4,0,2,2,RCELIMIT                                  *H02

     8781   01 01D02    86A42BD6     REG0P    TPNR     134,1,2,2,Q1
     8782   01 01D03    08241D03     REGADD   TPNR     8,0,2,2,%

     8784   01 01D04    08240000 A   CAL4CP   TPNR     8,0,2,2,0

     8786   01 01D05    02142C4E     DT1P     TPNR     2,0,1,2,MONTHS
     8787   01 01D06    02142C50              TPNR     2,0,1,2,DAYS
     8788   01 01D07    02142C4F              TPNR     2,0,1,2,YEARS
     8789   01 01D08    02142C51              TPNR     2,0,1,2,HOURS
     8790   01 01D09    02142C52              TPNR     2,0,1,2,MINUTES
     8791   01 01D0A    02142C53              TPNR     2,0,1,2,SECONDS

     8793   01 01D0B    82A42BD6     COCOP    TPNR     130,1,2,2,Q1
     8794   01 01D0C    02A02EB9              TPNR     2,1,2,0,COCL
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  154
A    8796   01 01D0D    05242D00     ELTPNR1  TPNR     5,0,2,2,ERRTAB
     8797   01 01D0E    05242D01              TPNR     5,0,2,2,ERRTAB+1
     8798   01 01D0F    02102D02              TPNR     2,0,1,0,ERRTAB+1+1
     8799   01 01D10    02102D0D              TPNR     2,0,1,0,ERRTAB+13
     8800   01 01D11    02102D0E              TPNR     2,0,1,0,ERRTAB+14
     8801   01 01D12    08242D03              TPNR     8,0,2,2,ERRTAB+1+2
     8802   01 01D13    08242D04              TPNR     8,0,2,2,ERRTAB+1+3
     8803   01 01D14    08242D05              TPNR     8,0,2,2,ERRTAB+1+4
     8804   01 01D15    08242D06              TPNR     8,0,2,2,ERRTAB+1+5
     8805   01 01D16    08242D07              TPNR     8,0,2,2,ERRTAB+1+6
     8806   01 01D17    08242D08              TPNR     8,0,2,2,ERRTAB+1+7

     8808   01 01D18    05242D00     ELTPNR2  TPNR     5,0,2,2,ERRTAB
     8809   01 01D19    05242D01              TPNR     5,0,2,2,ERRTAB+1
     8810   01 01D1A    02102D02              TPNR     2,0,1,0,ERRTAB+1+1
     8811   01 01D1B    02102D0D              TPNR     2,0,1,0,ERRTAB+13
     8812   01 01D1C    02102D0E              TPNR     2,0,1,0,ERRTAB+14
     8813   01 01D1D    02242D03              TPNR     2,0,2,2,ERRTAB+1+2
     8814   01 01D1E    02242D04              TPNR     2,0,2,2,ERRTAB+1+3
     8815   01 01D1F    04242D05              TPNR     4,0,2,2,ERRTAB+1+4
     8816   01 01D20    06242D06              TPNR     6,0,2,2,ERRTAB+1+5
     8817   01 01D21    06242D07              TPNR     6,0,2,2,ERRTAB+1+6
     8818   01 01D22    08442D08              TPNR     8,0,4,2,ERRTAB+1+7

     8820   01 01D23    05242D00     ELTPNR3  TPNR     5,0,2,2,ERRTAB
     8821   01 01D24    05242D01              TPNR     5,0,2,2,ERRTAB+1
     8822   01 01D25    02102D02              TPNR     2,0,1,0,ERRTAB+1+1
     8823   01 01D26    02102D0D              TPNR     2,0,1,0,ERRTAB+13
     8824   01 01D27    02102D0E              TPNR     2,0,1,0,ERRTAB+14
     8825   01 01D28    06242D03              TPNR     6,0,2,2,ERRTAB+1+2 CTX/DEV
     8826   01 01D29    08442D04              TPNR     8,0,4,2,ERRTAB+1+3
     8827   01 01D2A    08442D05              TPNR     8,0,4,2,ERRTAB+1+4
     8828   01 01D2B    08242D06              TPNR     8,0,2,2,ERRTAB+1+5
     8829   01 01D2C    05242D07              TPNR     5,0,2,2,ERRTAB+1+6
     8830   01 01D2D    08242D08              TPNR     8,0,2,2,ERRTAB+1+7
     8831   01 01D2E    02242D09              TPNR     2,0,2,2,ERRTAB+1+8 ORDER-BYTE FROM HEADER

     8833   01 01D2F    05242D00     ELTPNR4  TPNR     5,0,2,2,ERRTAB
     8834   01 01D30    05242D01              TPNR     5,0,2,2,ERRTAB+1
     8835   01 01D31    02102D02              TPNR     2,0,1,0,ERRTAB+1+1
     8836   01 01D32    02102D0D              TPNR     2,0,1,0,ERRTAB+13
     8837   01 01D33    02102D0E              TPNR     2,0,1,0,ERRTAB+14
     8838   01 01D34    06242D03              TPNR     6,0,2,2,ERRTAB+1+2 CTX/DEV
     8839   01 01D35    08242D04              TPNR     8,0,2,2,ERRTAB+1+3
     8840   01 01D36    08242D05              TPNR     8,0,2,2,ERRTAB+1+4
     8841   01 01D37    08242D06              TPNR     8,0,2,2,ERRTAB+1+5
     8842   01 01D38    08442D07              TPNR     8,0,4,2,ERRTAB+1+6
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  155
A    8844   01 01D39    02222D04     ELTPNR5  TPNR     2,0,2,1,ERRTAB+4  DEVICE ERROR STATUS
     8845   01 01D3A    04242D06              TPNR     4,0,2,2,ERRTAB+6
     8846   01 01D3B    08242D00              TPNR     8,0,2,2,ERRTAB
     8847   01 01D3C    08242D01              TPNR     8,0,2,2,ERRTAB+1
     8848   01 01D3D    08242D02              TPNR     8,0,2,2,ERRTAB+2
     8849   01 01D3E    08242D03              TPNR     8,0,2,2,ERRTAB+3
     8850   01 01D3F    08242D05              TPNR     8,0,2,2,ERRTAB+5

     8852   01 01D40    08242D07              TPNR     8,0,2,2,ERRTAB+7  EXTENDED SENSE INFORMATION
     8853   01 01D41    08242D08              TPNR     8,0,2,2,ERRTAB+8
     8854   01 01D42    08242D09              TPNR     8,0,2,2,ERRTAB+9

     8856   01 01D43    08242D00     ELTPNR6  TPNR     8,0,2,2,ERRTAB+0  EXTENDED STATUS
     8857   01 01D44    08242D01              TPNR     8,0,2,2,ERRTAB+1
     8858   01 01D45    08242D02              TPNR     8,0,2,2,ERRTAB+2
     8859   01 01D46    08242D03              TPNR     8,0,2,2,ERRTAB+3
     8860   01 01D47    08242D04              TPNR     8,0,2,2,ERRTAB+4
     8861   01 01D48    08242D05              TPNR     8,0,2,2,ERRTAB+5
     8862   01 01D49    08242D06              TPNR     8,0,2,2,ERRTAB+6
     8863   01 01D4A    08242D07              TPNR     8,0,2,2,ERRTAB+7

     8865   01 01D4B    05242D00     ELTPNR7  TPNR     5,0,2,2,ERRTAB     SEQ
     8866   01 01D4C    05242D01              TPNR     5,0,2,2,ERRTAB+1   IDENT
     8867   01 01D4D    02102D02              TPNR     2,0,1,0,ERRTAB+1+1 HR
     8868   01 01D4E    02102D0D              TPNR     2,0,1,0,ERRTAB+13  MN
     8869   01 01D4F    02102D0E              TPNR     2,0,1,0,ERRTAB+14  SC
     8870   01 01D50    02142D03              TPNR     2,0,1,2,ERRTAB+1+2 PI
     8871   01 01D51    02142D04              TPNR     2,0,1,2,ERRTAB+1+3 FI
     8872   01 01D52    06142D05              TPNR     6,0,1,2,ERRTAB+1+4 ERRORS
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  156
A    8874   01 01D53    00005B00 A   IDENTS   DATA     X'5B00'           SOFTWARE TIME OUT
     8875   01 01D54    00005C10 A            DATA     X'5C10'           UNEXPECTED I/O INTER.
     8876   01 01D55    00005C20 A            DATA     X'5C20'           SIO FAILURE
     8877   01 01D56    00005C40 A            DATA     X'5C40'           RECOVERABLE I/O ERROR
     8878   01 01D57    00004010 A            DATA     X'4010'           MEMORY PROTECT VIOLATION
     8879   01 01D58    00004020 A            DATA     X'4020'           PRIVILEGED INST. VIOLATION
     8880   01 01D59    00004040 A   OBIDENT  DATA     X'4040'           NONEXISTANT MEMORY ACCESS
     8881   01 01D5A    00004080 A   NXIDENT  DATA     X'4080'           NONEXISTANT INST. ACCESS
     8882   01 01D5B    00004100 A            DATA     X'4100'           UNIMPLEMENTED INST. ACCESS
     8883   01 01D5C    00004200 A            DATA     X'4200'           STACK LIMIT FAULT
     8884   01 01D5D    00004600 A            DATA     X'4600'           WATCHDOG TIMER RUNOUT
     8885   01 01D5E    00004610 A            DATA     X'4610'           DIO BUSS HANG UP
     8886   01 01D5F    00004620 A            DATA     X'4620'           MEMORY BUSS HANG UP
     8887   01 01D60    00004640 A            DATA     X'4640'           PROCESSOR BUSS HANG UP
     8888   01 01D61    00004680 A            DATA     X'4680'           WATCHDOG TIMER RUN OUT
     8889   01 01D62    00005C80 A            DATA     X'5C80'           I/O-MEMORY PARITY
     8890   01 01D63    00005C00 A            DATA     X'5C00'           POSITION ERROR
     8891   01 01D64    00005CA0 A            DATA     X'5CA0'           UNRECOVERABLE I/O ERROR
     8892   01 01D65    00008000 A            DATA     X'8000'           DATA ERROR
     8893   01 01D66    00008010 A            DATA     X'8010'           INSTRUCTION ERROR
     8894   01 01D67    000042E0 A            DATA     X'42E0'           SYSTEM RETURN STACK FAULT
     8895   01 01D68    000042F0 A            DATA     X'42F0'           SYSTEM REGISTER STACK FAULT
     8896   01 01D69    00005100 A            DATA     X'5100'           POWER FAILURE
     8897   01 01D6A    00005600 A            DATA     X'5600'           MEMORY PARITY INTERRUPT
     8898   01 01D6B    00005680 A            DATA     X'5680'           PROCESSOR FAULT INTERRUPT
     8899   01 01D6C    00005700 A            DATA     X'5700'           MEMORY FAULT INTERRUPT
     8900   01 01D6D    00004C00 A            DATA     X'4C00'           CPU-MEMORY PARITY TRAP
     8901   01 01D6E    00004C20 A            DATA     X'4C20'           CPU-DATA BUSS PARITY TRAP
     8902   01 01D6F    00004C40 A            DATA     X'4C40'           CPU-MAP PARITY TRAP
     8903   01 01D70    00004D00 A            DATA     X'4D00'           INVALID REGISTER DESIGNATION
     8904   01 01D71    00004D10 A            DATA     X'4D10'           INVALID REGISTER DESIGNATION
     8905   01 01D72    00004D20 A            DATA     X'4D20'           ILLEGAL MMC CONFIGURATION
     8906   01 01D73    00004D80 A            DATA     X'4D80'           NON-EXISTANT REGISTER BLOCK
     8907   01 01D74    00004DC0 A            DATA     X'4DC0'           INTRAP INSTRUCTION VIOLATION
     8908   01 01D75    00004DF0 A            DATA     X'4DF0'           PDF VIOLATION
     8909   01 01D76    00002000 A            DATA     X'2000'           DOUBLE PDF FAULT
     8910   01 01D77    00001000 A            DATA     X'1000'           NEW PASS
     8911   01 01D78    00001010 A            DATA     X'1010'           NEW PHASE
     8912   01 01D79    00005C30 A            DATA     X'5C30'           IMPOSSIBLE INTERRUPT
     8913   01 01D7A    00005CB0 A            DATA     X'5CB0'           RATE ERROR
     8914   01 01D7B    00005CC0 A            DATA     X'5CC0'           I/O ERROR RETRY EXHAUSTED
     8915   01 01D7C    00005C50 A            DATA     X'5C50'           FLAW MARK
        1*  01 01D7D    00005C60 A            DATA     X'5C60'           FLAW MARK WITH ERROR            *H00
        2*  01 01D7E    00005C70 A            DATA     X'5C70'           UNEXPECTED I/O INTERRUPT        *H00
        3*  01 01D7F    00003000 A            DATA     X'3000'           RP DISCREPANCY                  *H01
     8916         0000002D           IDENTSIZ EQU      %-IDENTS
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  157
A    8918   01 01D80    00001DAE              DATA     EM000             UNIDENTIFIED TRAP
     8919   01 01D81    00001DB4     HDGMSG   DATA     EM5B0             5B00
     8920   01 01D82    00001DC1              DATA     EM5C1             5C10
     8921   01 01D83    00001DC8              DATA     EM5C2             5C20
     8922   01 01D84    00001DCC              DATA     EM5C4             5C40
     8923   01 01D85    00001DD3              DATA     EM401             4010
     8924   01 01D86    00001E68              DATA     EM402             4020
     8925   01 01D87    00001DDA              DATA     EM404             4040
     8926   01 01D88    00001DE2              DATA     EM408             4080
     8927   01 01D89    00001DEB              DATA     EM410             4100
     8928   01 01D8A    00001DF4              DATA     EM420             4200
     8929   01 01D8B    00001DFA              DATA     EM460             4600
     8930   01 01D8C    00001DFA              DATA     EM460             4610
     8931   01 01D8D    00001DFA              DATA     EM460             4620
     8932   01 01D8E    00001DFA              DATA     EM460             4640
     8933   01 01D8F    00001DFA              DATA     EM460             4680
     8934   01 01D90    00001E01              DATA     EM5C8             5C80
     8935   01 01D91    00001E0E              DATA     EM5C0             5C00
     8936   01 01D92    00001E13              DATA     EM5CA             5CA0
     8937   01 01D93    00001E1A              DATA     EM800             8000
     8938   01 01D94    00001E1E              DATA     EM801             8010
     8939   01 01D95    00001E24              DATA     EM42E             42E0
     8940   01 01D96    00001E2C              DATA     EM42F             42F0
     8941   01 01D97    00001E34              DATA     EM510             5100
     8942   01 01D98    00001E39              DATA     EM560             5600
     8943   01 01D99    00001E45              DATA     EM568             5680
     8944   01 01D9A    00001E07              DATA     EM570             5700
     8945   01 01D9B    00001E40              DATA     EM4C0             4C00
     8946   01 01D9C    00001E40              DATA     EM4C0             4C20
     8947   01 01D9D    00001E40              DATA     EM4C0             4C40
     8948   01 01D9E    00001E4D              DATA     EM4D0             4D00
     8949   01 01D9F    00001E4D              DATA     EM4D0             4D10
     8950   01 01DA0    00001E4D              DATA     EM4D0             4D20
     8951   01 01DA1    00001E4D              DATA     EM4D0             4D80
     8952   01 01DA2    00001E4D              DATA     EM4D0             4DC0
     8953   01 01DA3    00001E4D              DATA     EM4D0             4DF0
     8954   01 01DA4    00001E55              DATA     EM200             2000
     8955   01 01DA5    00001E5A              DATA     EM100             1000
     8956   01 01DA6    00001E79              DATA     EM101             1010
     8957   01 01DA7    00001E5D              DATA     EM5C3             5C30
     8958   01 01DA8    00001E64              DATA     EM5CB             5CB0
     8959   01 01DA9    00001E71              DATA     EM5CC             5CC0
     8960   01 01DAA    00001E7D              DATA     EM5C5             5C50
        1*  01 01DAB    00001E81              DATA     EM5C6                                             *H00
        2*  01 01DAC    00001DB9              DATA     EM5C7                                             *H00
        3*  01 01DAD    00001E87              DATA     EM300                                             *H01
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  158
A    8962         01 01DAE           EM000    TEXTS    CR,'--UNIDENTIFIED TRAP',EM

     8963         01 01DB4           EM5B0    TEXTS    CR,'--SOFTWARE TIMEOUT',EM

        1*        01 01DB9           EM5C7    TEXTS    CR,'--UNRECOGNIZED I/O INTERRUPT',EM              *H00

        2*        01 01DC1           EM5C1    TEXTS    CR,'--UNEXPECTED I/O INTERRUPT',EM                *H00

     8965         01 01DC8           EM5C2    TEXTS    CR,'--SIO FAILURE',EM

     8966         01 01DCC           EM5C4    TEXTS    CR,'--RECOVERABLE I/O ERROR',EM

     8967         01 01DD3           EM401    TEXTS    CR,'--MEMORY PROTECT VIOLATION',EM

     8968         01 01DDA           EM404    TEXTS    CR,'--NON-EXISTANT MEMORY ACCESS',EM

     8969         01 01DE2           EM408    TEXTS    CR,'--NON-EXISTANT INSTRUCTION ACCESS',EM

     8970         01 01DEB           EM410    TEXTS    CR,'--UNIMPLEMENTED INSTRUCTION ACCESS',EM

     8971         01 01DF4           EM420    TEXTS    CR,'--STACK LIMIT FAULT',EM

     8972         01 01DFA           EM460    TEXTS    CR,'--WATCHDOG TIMER RUN OUT',EM

     8973         01 01E01           EM5C8    TEXTS    CR,'--I/O-MEMORY PARITY',EM

     8974         01 01E07           EM570    TEXTS    CR,'--MEMORY FAULT INTERRUPT',EM

     8975         01 01E0E           EM5C0    TEXTS    CR,'--POSITION ERROR',EM

     8976         01 01E13           EM5CA    TEXTS    CR,'--UNRECOVERABLE I/O ERROR',EM

     8977         01 01E1A           EM800    TEXTS    CR,'--DATA ERROR',EM

     8978         01 01E1E           EM801    TEXTS    CR,'--INSTRUCTION ERROR',EM

     8979         01 01E24           EM42E    TEXTS    CR,'--SYSTEM RETURN STACK FAULT',EM

     8980         01 01E2C           EM42F    TEXTS    CR,'--SYSTEM REGISTER STACK FAULT',EM

     8981         01 01E34           EM510    TEXTS    CR,'--POWER FAILURE',EM

     8982         01 01E39           EM560    TEXTS    CR,'--MEMORY PARITY INTERRUPT',EM

     8983         01 01E40           EM4C0    TEXTS    CR,'--CPU-PARITY TRAP',EM

     8984         01 01E45           EM568    TEXTS    CR,'--PROCESSOR FAULT INTERRUPT',EM

     8985         01 01E4D           EM4D0    TEXTS    CR,'--INSTRUCTION EXCEPTION TRAP',EM

     8986         01 01E55           EM200    TEXTS    CR,'--DOUBLE PDF FAULT',EM

     8987         01 01E5A           EM100    TEXTS    CR,'--NEW PASS',EM

     8988         01 01E5D           EM5C3    TEXTS    CR,'--IMPOSSIBLE I/O INTERRUPT',EM

     8989         01 01E64           EM5CB    TEXTS    CR,'--RATE ERROR',EM

     8990         01 01E68           EM402    TEXTS    CR,'--PRIVILEGED INSTRUCTION VIOLATION',EM

     8991         01 01E71           EM5CC    TEXTS    CR,'--I/O ERROR RETRY EXHAUSTED',EM

     8992         01 01E79           EM101    TEXTS    CR,'--NEW PHASE',EM

     8993         01 01E7D           EM5C5    TEXTS    CR,'--FLAW MARK',EM

        1*        01 01E81           EM5C6    TEXTS    CR,'--FLAW MARK WITH ERROR',EM                    *H00

        2*        01 01E87           EM300    TEXTS    CR,'--RP NOT EXPECTED VALUE',EM                   *H01

1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  159
A    8995   01 01E8E    00001E9A     LOGMSG   DATA     LOGMSG0
     8996   01 01E8F    00001EA0              DATA     LOGMSG1
     8997   01 01E90    00001EA5              DATA     LOGMSG2
     8998   01 01E91    00001EA8              DATA     LOGMSG3
     8999   01 01E92    00001EAD              DATA     LOGMSG4
     9000   01 01E93    00001EB7              DATA     LOGMSG5
     9001   01 01E94    00001EB9              DATA     LOGMSG6
     9002   01 01E95    00001EC5              DATA     LOGMSG7
     9003   01 01E96    00001ECE              DATA     LOGMSG8
     9004   01 01E97    00001EDC              DATA     LOGMSG9
     9005   01 01E98    00001EE5              DATA     LOGMSGA
     9006   01 01E99    00001EEA              DATA     LOGMSGB
     9007         0000000C           LMSGSIZ  EQU      %-LOGMSG

     9009         01 01E9A           LOGMSG0  TEXTS       CR,' SEQ  IDENT HR MN SC',EM

     9010         01 01EA0           LOGMSG1  TEXTS    '   PSW1     PSW2  ',EM

     9011         01 01EA5           LOGMSG2  TEXTS    '   INST ',EM

     9012         01 01EA8           LOGMSG3  TEXTS    '   STACK1   STACK2 ',EM

     9013         01 01EAD           LOGMSG4  TEXTS    ' STATUS 0 STATUS 1 STATUS 2 STATUS 3',EM

     9014         01 01EB7           LOGMSG5  TEXTS    ' CT DEV',EM

     9015         01 01EB9           LOGMSG6  TEXTS  ' BUFADD   ERRADD   ISSBMIC0 COUNT POSITION OP',EM

     9016         01 01EC5           LOGMSG7  TEXTS    '   SEEK    SENSE   POSITION  BUFFER',EM

     9017                            LOGMSG8  TEXTS   '   AIOR    TDVRU1    TIOR    TIORU1';
     9018         01 01ECE                    ,'    COM1     COM2',EM

     9019         01 01EDC           LOGMSG9  TEXTS    ' CI PI SORS BLKSIZ BUFSIZ FIRSTBUF',EM

     9020         01 01EE5           LOGMSGA  TEXTS    ' IN1 IN2  BUFADD',EM

     9021         01 01EEA           LOGMSGB  TEXTS    ' PI FI ERRORS',EM

     9022                            LOGHDG1  TEXTS    CR,'CTX DEV   TIOR    TIORU1  OP  BUF    SEEK';
     9023         01 01EEE                    ,'    SENSE',EM

     9024         01 01EFB           LOGHDG2  TEXTS    CR,'EXTENDED STATUS',EM

1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  160
A    9026                            *        MESSAGES

     9028   01 01F00    155A5A40 A   NODEVREQ DATA     OPMSG
        1*        01 01F01                    TEXTS    '     NO DEVICE RECOGNITION - DESELECTED',EM      *H01

     9034   01 01F0B    155A5A40 A   MANLMSG  DATA     OPMSG
     9035         01 01F0C                    TEXTS    '     DEVICE MANUAL',EM

     9036   01 01F11    155A5A40 A   CDESEL   DATA     OPMSG
     9037         01 01F12                    TEXTS    '     NO POSITIONS - DESELECTED',EM

     9038   01 01F1A    155A5A40 A   DEVNOP   DATA     OPMSG
     9039         01 01F1B                    TEXTS    '     DEVICE NOT OPERATIONAL',EM

     9040   01 01F22    155A5A40 A   R0STK    DATA     OPMSG
     9041         01 01F23                    TEXTS    'RETURN0 STACK LIMIT EXCEEDED'

     9042   01 01F2A    15155A5A A   RSTRTMSG DATA     X'15155A5A'
     9043         01 01F2B                    TEXTS    ' SYSTEM WAS RESTARTED'

     9044   01 01F31    15155A5A A   STRTMSG  DATA     X'15155A5A'
     9045         01 01F32                    TEXTS    ' ENTER RUN OR START TO BEGIN',EM

     9046   01 01F3A    15155A5A A   BOOTMSG  DATA     X'15155A5A'
     9047         01 01F3B                    TEXTS    ' SYSTEM WAS REBOOTED'

     9048   01 01F40    15155A5A A            DATA     X'15155A5A'
     9049         01 01F41                    TEXTS    ' ENTER RUN OR START TO BEGIN',EM

     9050   01 01F49    155A5A40 A   BASERMSG DATA     OPMSG
     9051         01 01F4A                    TEXTS    'BASE DEVICE ERROR: R7-R9 STATUS, R15 LINK',EM

     9052   01 01F55    155A5A40 A   DEVWP    DATA     OPMSG
     9053         01 01F56                    TEXTS    '     DEVICE WRITE PROTECTED',EM

     9054   01 01F5D    155A5A40 A   PCPMSG   DATA     OPMSG
     9055         01 01F5E                    TEXTS    'PCP HALT',EM

        1*  01 01F61    155A5A40 A   PASSTRAP DATA     OPMSG                                             *H01
        2*        01 01F62                    TEXTS    'SINGLE PASS MODE HALT',EM                        *H01

     9056   01 01F68    155A5A40 A   NODEVSEL DATA     OPMSG
     9057         01 01F69                    TEXTS    '     NO DEVICES SELECTED',EM

     9058   01 01F70    155A5A40 A   PASSMSG  DATA     OPMSG
     9059         01 01F71                    TEXTS    'PASS 0',EM

        1*        01 01F73           PASSMSG0 TEXTS    ', CPU SOURCE',EM                                 *H02

        2*        01 01F77           PASSMSG1 TEXTS    ', NO SOURCE',EM                                  *H02

        3*        01 01F7A           PASSMSG2 TEXTS    ', BOMBING CONTINUOUSLY',EM                       *H02

        4*        01 01F80           PASSMSG3 TEXTS    ', BOMBING IN BURSTS',EM                          *H02

        5*        01 01F85           PASSMSG4 TEXTS    EM                                                *H02

     9060   01 01F86    15404040 A   NOINTMSG DATA     X'15404040'
     9061         01 01F87                    TEXTS    '     NO INTERRUPT PENDING',EM

        1*  01 01F8E    15154040 A   IPTMSG   DATA     X'15154040'                                       *H00
     9063         01 01F8F                    TEXTS    'PRIORITYS',CR,EM

     9064   01 01F92    15404040 A   IPMSG    DATA     X'15404040'
     9065         01 01F93                    TEXTS    '     ',EM

1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  161
A    9067                            *        SYNTAX ERROR MESSAGES

     9069   01 01F95    405C5C5C A   Q1ERROR  DATA     SYNTAXER
     9070         01 01F96                    TEXTS    'INVALID QUALIFIER',EM


     9072   01 01F9B    405C5C5C A   Q2ERROR  DATA     SYNTAXER
     9073         01 01F9C                    TEXTS    'INVALID CHARACTER',EM


     9075   01 01FA1    405C5C5C A   Q3ERROR  DATA     SYNTAXER
     9076         01 01FA2                    TEXTS    'INVALID REQUEST',EM


     9078   01 01FA6    405C5C5C A   FLDERROR DATA     SYNTAXER
     9079         01 01FA7                    TEXTS    'TOO MANY CHARS',EM


     9081   01 01FAB    405C5C5C A   SELERR   DATA     SYNTAXER
     9082         01 01FAC                    TEXTS    'SELECTION ERROR',EM

1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  162
A    9084                            *        OPERATOR MESSAGES

     9086   01 01FB0    155A5A40 A   LPMAN    DATA     OPMSG
     9087         01 01FB1                    TEXTS    'LINE PRINTER MANUAL',CR,EM

     9088   01 01FB7    6F6F6F6F A   LOGONMSG TEXT     '????'            QUESTION MARK MSG
     9089   01 01FB8    1B7A1515 A            DATA     X'1B7A1515'       ESCAPE COLON CR CR
     9090   01 01FB9    E2C5E740 A            TEXT     'SEX ',VERSION,':'
            01 01FBA    C8F0F27A A
     9091   01 01FBB    155A5A40 A   ONMSG    DATA     OPMSG
     9092   01 01FBC    40404040 A            TEXT     '     ON',CR,EM
            01 01FBD    40D6D515 A
            01 01FBE    00404040 A
     9093         01 01FBF           SEXMSG   TEXTS    CR,TITLE,EM


     9095         01 01FC9           NULMSG   TEXTS    CR,EM             NULL MESSAGE (BLANK LINE)

1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  163
A    9097                            *        EXPLANATION MESSAGES FOR FUNCTIONS AND DIRECTIVES

     9099                            ABSMSG TEXTS CR,CR,TITLE;
     9100                             ,CR,CR,'EVEN CYCLES EXERCISE FULL MEMORY UNMAPPED,';
     9101                             ,CR,'ODD CYCLES MAP (128K LIMIT) IF CONFIGURED (S:9 AND S:10),';
        1*                            ,CR,'REGISTER POINTER IS DECREMENTED EACH PASS (S:11, S:10),';     *H01
        2*                            ,CR,'ALL CYCLES AND PASSES ARE SELECTABLE (S:12, S:14),';          *H01
     9104                             ,CR,'AND ALL PASSES START WITH PHASE 0.';
     9105                             ,CR,CR,'PASS 0=2048 ON PAGE';
     9106                             ,CR,'PASS 1=16 ON BYTE 0';
     9107                             ,CR,'PASS 2=MAX (64K LIMIT) ON BYTE 1';
     9108                             ,CR,'PASS 3=RANDOM 16 TO 2048 ON BYTE 2';
     9109                             ,CR,'PASS 4=RANDOM 2048 TO MAX ON BYTE 3';
     9110                             ,CR,'PASS 5=48 ON DBL WORD (INSTRUCTION TEST)';
     9111                             ,CR,'PASS 6=FULL TRACK ON BYTE 0';
     9112                             ,CR,'PASS 7=FULL CYLINDER ON BYTE 1 (DATA-CHAINING)';
        1*                            ,CR,CR,'PHASE 0=BUFFER INITIALIZATION AND KEYING (SOURCE DEVICE)'; *H01
     9114                             ,CR,'PHASE 1=KEYING (NON-SOURCE RADS/DISKS), RUN TIME SAVED';
     9115                             ,CR,'PHASE 2=NORMAL, RUN TIME OF PHASE 1 (AT LEAST 2 MINUTES)';
     9116                             ,CR,'PHASE 3=RANDOM, RUN TIME ONE HALF OF PHASE 2';
     9117                             ,CR,CR,'PHASES 2 AND 3 CAN BE FROZEN,';
     9118         01 01FCA            ,CR,'PHASES 1, 2, AND 3 CAN BE DESELECTED (S:16)',EM

     9119                            LOGEXP TEXTS CR,CR,'ERROR LOG OUTPUT';
     9120                             ,CR,CR,'SEQ=ERROR LOG SEQUENCE NUMBER';
     9121                             ,CR,'IDENT=5-DIGIT ERROR LOG CODE: SIDCC';
     9122                             ,CR,' S=SEVERITY LEVEL (SEE O:3 AND O:4)';
     9123                             ,CR,' ID=IDENTIFIER (USUALLY TRAP OR INTERRUPT LOCATION)';
     9124                             ,CR,' CC=CONDITION CODES OR OTHER IDENTIFYING INFORMATION';
     9125                             ,CR,CR,'DATA ERRORS:';
     9126                             ,CR,' ISSBMICO=IS, SHOULD BE, MODIFIER, CONSTANT';
     9127                             ,CR,' ERRADD=BA OF ERROR';
     9128                             ,CR,' BUFADD=BA OF BUFFER';
     9129                             ,CR,' COUNT=NUMBER OF ERRORS FOUND IN THE BUFFER';
     9130                             ,CR,' POSITION=LAST POSITION TRANSFERED, OP=LAST OPERATION';
     9131                             ,CR,' IN1 IN2=FAILING INSTRUCTION PAIR';
     9132                             ,CR,CR,'STATUS 0-3';
     9133                             ,CR,' WDT: INST, EFF ADD, GROUP 8/9';
     9134                             ,CR,' MEM PARITY ERROR: SNAPPED STATUS 0-2, CONTENTS OF LOCATION';
     9135                             ,CR,' I/O PARITY ERROR: CTX/DEV, BA(BUFFER), LOCATION, CONTENTS';
     9136                             ,CR,CR,'EXTENDED STATUS FOR WATCHDOG TIMER TRAP';
     9137                             ,CR,' GROUPS 0-3 PLUS ';
     9138                             ,'4 WORDS OF FAM(MIOPS) OR GROUPS 0-7(RIOPS)';
     9139                             ,CR,' GROUPS 8-F(MIOPS) OR GROUPS 0-7(RIOPS)';
     9140                             ,CR,CR,'EXTENDED STATUS FOR INSTRUCTION ERRORS';
     9141                             ,CR,' ORIG REGS(4) ORIG MEMS(4)';
     9142                             ,CR,' RESL REGS(4) PARTIAL RESL REGS(4)';
     9143                             ,CR,CR,'BYTE STRING INST 41 61 63';
     9144                             ,CR,' ORIG REGS(2) EXPT MEMS(2) ORIG MEMS(4)';
     9145                             ,CR,' RESL REGS(2) RESL MEMS(2) ORIG MEMS(4)';
     9146                             ,CR,CR,'BYTE STRING INST 40';
     9147                             ,CR,' RESL REGS(2) RESL REGS(2) ORIG MEMS(4)';
     9148         01 0209B            ,CR,' RESL REGS(2) RESL REGS(2) ORIG MEMS(4)',EM

     9149                            ABSEXP TEXTS CR,CR,'ABSTRACT - OUTPUTS EXPLANATION OF SEX';
     9150                             ,CR,'USE TTY DEVICE (Q1=0) ELSE USE MSG DEVICE';
     9151         01 021A7            ,CR,'H>ABSTRACT,Q1',EM

     9152                            AIOEXP TEXTS CR,CR,'AIO - DETERMINES AND DISPLAYS I/O';
     9153                             ,' INTERRUPT PRIORITY';
     9154         01 021BF            ,CR,'H>AIO',EM

     9155                            BOTEXP TEXTS CR,CR,'BOOT - BOOTS FROM SPECIFIED DEVICE';
     9156                             ,CR,'Q1=>BOOT ADDRESS, Q2>0=>BOOT DEVICE IS A RAD';
     9157         01 021CF            ,CR,'H>BOOT,Q1,Q2',EM

     9158                            BRAEXP TEXTS CR,CR,'BRANCH - TRANSFERS CONTROL TO LOCATION';
     9159                             ,' SPECIFIED BY Q1';
     9160         01 021E7            ,CR,'H>BRANCH,Q1',EM

     9161                            COMEXP TEXTS CR,CR,'COMPARE - PERFORMS LOGICAL-AND OF THE';
     9162                             ,' VALUE SPECIFIED BY Q3';
     9163                             ,CR,'AND THE CONTENTS OF THE DESTINATION';
     9164                             ,' SPECIFIED BY Q1 THROUGH Q2';
     9165                             ,CR,'WHENEVER THE RESULT IS NONZERO, THE CORRESPONDING';
     9166                             ,' LOCATION IS DISPLAYED';
     9167         01 021F9            ,CR,'H>COMPARE,DESTINATION,Q1,Q2,Q3',EM

     9168                            CONEXP TEXTS CR,CR,'CONFIGURE - LOADS AND RUNS THE CONFIGURATOR';
     9169         01 02232            ,CR,'H>CONFIGURE',EM

     9170                            DISEXP TEXTS CR,CR,'DISPLAY - OUTPUTS THE CONTENTS OF THE';
     9171                             ,CR,'SPECIFIED DESTINATION FROM Q1 TO Q2 ON THE TTY';
     9172         01 02241            ,CR,'H>DISPLAY,DESTINATION,Q1,Q2',EM

1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  164
A    9174                            EXPEXP TEXTS CR,CR,'EXPLAIN - OUTPUTS EXPLANATION OF';
     9175                             ,' SPECIFIED DIRECTIVE OR DESTINATION';
     9176                             ,CR,'USE TTY DEVICE (Q1=0) ELSE USE MSG DEVICE';
     9177         01 0225E            ,CR,'H>EXPLAIN,DESTINATION,Q1',EM

     9178                            ERREXP TEXTS CR,CR,'ERROR - DISPLAY CONTENTS OF ERROR LOG';
        1*                            ,CR,CR,'THE ERROR LOG ON THE BASE DEVICE (OR THE IN-MEMORY BUFFER)';
        2*                            ,CR,'IS SCANNED FOR ANY ENTRIES QUALIFIED FOR DISPLAY ON THE TTY.';*H01
        3*                            ,CR,'DISPLAY OCCURS ONLY IF THE SEVERITY LEVEL OF AN ENTRY';       *H01
        4*                            ,CR,'IS GREATER THAN OR EQUAL TO THE L PARAMETER OF THE OP TABLE.';*H01
     9180                             ,CR,CR,'Q1 SPECIFIES A DESIRED IDENT, ALL IDENTS USED IF Q1 NULL.';
     9181                             ,CR,CR,'Q2 AND Q3 SPECIFIY A VALUE AND A MASK, RESPECTIVELY.';
     9182                             ,CR,'THESE WILL CAUSE DATA FROM THE FIRST LINE OF';
     9183                             ,CR,'THE LOG ENTRY TO BE MASKED (Q3) AND COMPARED (Q2).';
     9184                             ,CR,'EQUALITY RESULTS IN DISPLAY.  IF Q2 AND Q3 ARE NULL,';
        1*                            ,CR,'NO COMPARISON TAKES PLACE.  IF Q3 ALONE IS NULL, HOWEVER,';   *H01
        2*                            ,CR,'Q2 IS USED AS THE SEQUENCE NUMBER AT WHICH TO START DISPLAY.';*H01
     9186                             ,CR,CR,'IF Q1<0 THE ENTIRE ERROR LOG IS CLEARED';
     9187         01 02281            ,CR,CR,'H>ERRORS,Q1,Q2,Q3',EM

     9188                            HLTEXP TEXTS CR,CR,'HALT - IMPOSES HALT MODE (H>)';
     9189         01 02335            ,CR,'H>HALT',EM

     9190         01 0233F           REAEXP EQU   %
     9191                            WRIEXP TEXTS CR,CR,'READ/WRITE - PERFORMS INDICATED OPERATION';
     9192                             ,CR,'DEVICE IS SPECIFIED BY Q1, POSITION BY Q2';
     9193                             ,CR,'Q2<0 IMPLIES USE OF CURRENT POSITION';
     9194                             ,CR,'BYTE-ADDRESS OF BUFFER IS SPECIFIED BY Q3';
     9195                             ,CR,'Q3=0 IMPLIES USE OF CURRENT BUFFER';
     9196                             ,CR,'H>READ,Q1,Q2,Q3';
     9197         01 0233F            ,CR,'H>WRITE,Q1,Q2,Q3',EM

     9198                            PRIEXP TEXTS CR,CR,'PRINT - SIMILAR TO DISPLAY';
     9199                             ,CR,'OUTPUT IS ALWAYS TO MSG DEVICE';
     9200                             ,CR,'IF Q3>15 THEN ISSUE A FORM-SKIP BEFORE OUTPUT';
     9201         01 0237A            ,CR,'H>PRINT,Q1,Q2,Q3',EM

     9202         01 02399           REDEXP   EQU      %
     9203                            RELEXP TEXTS CR,CR,'RELOAD/REDUMP - READ/WRITE CURRENT IMAGE ';
     9204                             ,CR,'OF SEX FROM THE BASE DEVICE AND RESTART';
     9205                             ,CR,CR,'THE OPTION IS SPECIFIED BY Q1 AS FOLLOWS:';
     9206                             ,CR,'0=>TRANSFER CONFIGURATOR, PROGRAM, AND DATA';
     9207                             ,CR,'1=>TRANSFER CONFIGURATOR AND PROGRAM';
     9208                             ,CR,'2=>TRANSFER CONFIGURATOR AND DATA';
     9209                             ,CR,'3=>TRANSFER CONFIGURATOR';
     9210                             ,CR,'4=>TRANSFER PROGRAM AND DATA';
     9211                             ,CR,'5=>TRANSFER PROGRAM';
     9212                             ,CR,'6=>TRANSFER DATA';
     9213                             ,CR,'7=>RESTART PROGRAM (NO TRANSFER PERFORMED)';
     9214                             ,CR,CR,'H>RELOAD,Q1';
     9215         01 02399            ,CR,'H>REDUMP,Q1',EM

     9216                            REPEXP TEXTS CR,CR,'REPLACE - DISPLAYS THEN MODIFIES';
     9217                             ,CR,'THE SPECIFIED DESTINATION FROM Q1 TO Q2';
     9218         01 023FE            ,CR,'H>REPLACE,DESTINATION,Q1,Q2',EM

     9219                            RUNEXP TEXTS CR,CR,'RUN - IMPOSES RUN MODE (R>)';
     9220         01 02418            ,CR,'H>RUN',EM

     9221         01 02421           DESEXP EQU   %
     9222                            SELEXP TEXTS CR,CR,'SELECT/DESELECT - SELECT OR DESELECT DEVICE';
     9223                             ,CR,'CONTROL TABLE INDEX IS SPECIFIED BY Q1';
     9224                             ,CR,'UNITS SPECIFIED BY Q2 (8000=>UNIT 0, ETC.)';
     9225                             ,CR,'FOR SELECT ONLY, Q3 IS NEW VALUE OF OPS';
     9226                             ,CR,'H>SELECT,Q1,Q2,Q3';
     9227         01 02421            ,CR,'H>DESELECT,Q1,Q2',EM

     9228                            SEAEXP TEXTS CR,CR,'SEARCH - SIMILAR TO COMPARE';
     9229                             ,CR,'AN ARITHMETIC COMPARE IS PERFORMED AND EQUALITY';
     9230                             ,CR,'RESULTS IN THE DISPLAY OF THE CORRESPONDING LOCATION';
     9231         01 02454            ,CR,'H>SEARCH,DESTINATION,Q1,Q2,Q3',EM

1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  165
A    9233                            SIOEXP TEXTS CR,CR,'SIO - ISSUES SIO AND DISPLAYS STATUS';
     9234                             ,CR,'DEVICE SPECIFIED BY Q1, DA(CDW) BY Q2';
     9235                             ,CR,'USE MSG DEVICE (Q3=0) ELSE USE TTY DEVICE';
     9236         01 0247D            ,CR,'H>SIO,Q1,Q2',EM

     9237                            SNAEXP TEXTS CR,CR,'SNAP - SETS INSTRUCTION BREAKPOINT';
     9238                             ,CR,'WHEN INSTRUCTION LOCATED AT Q1 IS EXECUTED, MEMORY';
     9239                             ,CR,'LOCATIONS Q2 THROUGH Q3 ARE DUMPED TO THE TTY DEVICE';
     9240                             ,CR,'IF Q2<0, HALT MODE IS ENTERED (NO DUMP)';
     9241         01 0249E            ,CR,'H>SNAP,Q1,Q2,Q3',EM

     9242                            SPREXP TEXTS CR,CR,'SPREAD - COPIES A VALUE INTO THE DESTINATION';
     9243                             ,CR,'RANGE SPECIFIED BY Q1 THROUGH Q2';
     9244                             ,CR,'VALUE SPECIFIED BY Q3';
     9245         01 024D0            ,CR,'H>SPREAD,DESTINATION,Q1,Q2,Q3',EM

     9246                            STAEXP TEXTS CR,CR,'START - STARTS EXERCISE';
     9247                             ,CR,'PASS IS SPECIFIED BY Q1, PHASE IS ALWAYS 0';
     9248                             ,CR,'SOURCE DEVICE IS SPECIFIED BY Q2, A VALID CT INDEX';
     9249                             ,CR,'IF Q2=0 NORMAL SOURCE DEVICE SELECTION OCCURS';
     9250         01 024F1            ,CR,'H>START,Q1,Q2',EM

     9251                            STOEXP TEXTS CR,CR,'STORE - STORES INTO DESTINATION';
     9252                             ,CR,'RANGE SPECIFIED BY Q1 THROUGH Q2';
     9253         01 0251E            ,CR,'H>STORE,DESTINATION,Q1,Q2',EM

     9254                            SWIEXP TEXTS CR,CR,'SWITCH - ASSIGNS THE SYSTEM CONTROL TERMINAL';
     9255                             ,CR,'Q1 IS A LINE NUMBER (HEX AND .LT. 40)';
     9256                             ,CR,'OR THE LOCAL TTY (80)';
     9257         01 02536            ,CR,'H>SWITCH,Q1',EM

     9258         01 02554           TDVEXP EQU   %
     9259         01 02554           HIOEXP EQU   %
     9260                            TIOEXP TEXTS CR,CR,'TIO/HIO/TDV - PERFORM I/O INSTRUCTION';
     9261                             ,CR,'ISSUES THE INDICATED INSTRUCTION AND DISPLAYS STATUS';
     9262                             ,CR,'USE TTY DEVICE (Q3=0) ELSE USE MSG DEVICE';
     9263                             ,CR,'DEVICES SPECIFIED BY Q1 TO Q2';
     9264                             ,CR,'H>TIO,Q1,Q2,Q3';
     9265                             ,CR,'H>HIO,Q1,Q2,Q3';
     9266         01 02554            ,CR,'H>TDV,Q1,Q2,Q3',EM

     9267                            UNSEXP TEXTS CR,CR,'UNSNAP - CANCEL INSTRUCTION BREAKPOINT';
     9268         01 02589            ,CR,'H>UNSNAP',EM

1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  166
A    9270                            *        EXPLANATION AND HEADING MESSAGES

     9272                            BTEXP    TEXTS    CR,CR,'BUFFER TABLE';
     9273                             ,CR,'AVAIL=BUFFERS AVAILABLE FOR THIS PASS';
     9274                             ,CR,'TOTAL=BUFFERS PROCESSED BY CPU';
     9275                             ,CR,'REFIL=BUFFERS RESPREAD BY CPU (PHASE>0)';
     9276                             ,CR,' SFIX=FIXED BUFFERS SPREAD';
     9277                             ,CR,' SSEQ=SEQUENTIAL BUFFERS SPREAD';
     9278                             ,CR,' SRND=RANDOM BUFFERS SPREAD';
     9279                             ,CR,' CFIX=FIXED BUFFERS CHECKED';
     9280                             ,CR,' CSEQ=SEQUENTIAL BUFFERS CHECKED';
        1*                            ,CR,' CRND=RANDOM BUFFERS CHECKED';                                *H02
        2*        01 02596            ,CR,' RATE=PROCESSING RATE (BUFFERS/SECOND)'                       *H02

     9282                            BTHDG    TEXTS    CR,CR,'BUFFER TABLE';
        1*                            ,CR,' AVAIL  TOTAL  REFIL   SFIX   SSEQ   SRND';                   *H02
        2*        01 025EB            ,'   CFIX   CSEQ   CRND RATE',EM                                   *H02

     9284                            CTEXP  TEXTS CR,CR,'CONTROL TABLE';
     9285                             ,CR,'CTX=CONTROL TABLE INDEX (HEX)';
     9286                             ,CR,'C:1  DEV=DEVICE ADDRESS';
     9287                             ,CR,'C:2  UNIT=UNIT SELECT BITS (8000=UNIT 0, ETC.)';
     9288                             ,CR,'C:3  OPS=OPERATION SELECTION';
     9289                             ,CR,' 8000=SELECTED';
     9290                             ,CR,' 4000=LOOP';
     9291                             ,CR,' 2000=SOURCEABLE';
     9292                             ,CR,' 1000=KEYED';
        1*                            ,CR,'  800=DATA ERROR INJECTION (BY CPU HANDLER)';                 *H01
        2*                            ,CR,'  400=PE INJECTION IN PHASE 2/3 (BY ALL HANDLERS)';           *H01
        3*                            ,CR,'  200=PE INJECTION IN PHASE 0/1 (BY CPU HANDLER, IF 400 SET)';*H02
        4*                            ,CR,'      NO PREFIX (7446), SHORT TRANSFER (MM)';                 *H01
        5*                            ,CR,'      NO REWIND (TAPES), NO SEEK OVERLAP (DISKS)';            *H01
     9296                             ,CR,'  100=BURSTABLE';
        1*                            ,CR,'   80=RATE-ERROR RESTRICTED, FORCE BOMBING';                  *H02
        2*                            ,CR,'   40=INHIBIT BUFFER AND HEADER CHECK, AUTO BOMBING';         *H02
     9299                             ,CR,'   20=READ ENABLE';
     9300                             ,CR,'   10=WRITE ENABLE';
     9301                             ,CR,'    8=SELECT UNITS SEQUENTIALLY';
     9302                             ,CR,'    4=SELECT POSITIONS SEQUENTIALLY';
     9303                             ,CR,'    2=FORCE CHECK AFTER READ';
     9304                             ,CR,'    1=DEVICE NEEDS CHECKED BUFFER';
     9305                             ,CR,'C:4  CS=CONTROLLER STATUS';
     9306                             ,CR,' 8000=BUSY (TRANSFERRING DATA)';
     9307                             ,CR,' 2000=SOURCE DEVICE';
     9308                             ,CR,' 1000=BEING KEYED';
     9309                             ,CR,'  100=ON BURST WAIT';
        1*                            ,CR,'   80=ON RATE-ERROR WAIT, OR CPU BOMBING';                    *H02
     9311                             ,CR,'   40=SURFACE IS KEYED';
     9312                             ,CR,'   20=NEEDS A BUFFER';
     9313                             ,CR,'   10=DUAL ACCESS';
     9314                             ,CR,'    8=MANUAL';
     9315                             ,CR,'    4=ERRORED';
     9316                             ,CR,'    2=BYPASSED DUE TO 4-BYTE RESTRICTION';
     9317                             ,CR,'    1=INITIALIZE';
     9318                             ,CR,'C:5  SEEK=SEEK ADDRESS';
     9319                             ,CR,'C:6  BUFFER=I/O BUFFER ADDRESS';
     9320                             ,CR,'C:7  COMS=COMMAND BUFFER ADDRESS';
     9321                             ,CR,'C:8  MAPS=DEVICE MAP BUFFER ADDRESS';
     9322                             ,CR,'C:9  OP=CURRENT OPERATION (ORDER BYTE)';
     9323                             ,CR,'C:10 EC=CURRENT ERROR COUNT';
     9324                             ,CR,'C:11 EL=ELEMENT TABLE INDEX';
     9325                             ,CR,'C:12 NC=INDEX OF NEXT CONTROLLER ON SAME IOP';
     9326                             ,CR,'C:13 PC=PROBABILITY OF CHECKWRITE';
     9327                             ,CR,'C:14 SF=POSITIONAL INCREMENT SHIFT FACTOR';
     9328                             ,CR,'C:15 DUAL=CTX OF DUAL-ACCESS CONTROLLER';
     9329                             ,CR,'C:16 POS=CURRENT POSITION';
     9330                             ,CR,'C:17 SENSE=FIRST WORD OF SENSE INFORMATION';
     9331                             ,CR,'C:18 WAIT=RATE-ERROR WAIT TIMER';
     9332                             ,CR,'C:19 FT=I/O FAULT TIMER';
     9333                             ,CR,'C:20 RETRY=CURRENT REMAINING I/O RETRIES';
     9334         01 02600            ,CR,'C:21 CA=CONTROLLER ADDRESS'

     9335                            CTHDG  TEXTS CR,CR,'CONTROL TABLE';
     9336                             ,CR,'CTX DEV  UNIT OPS   CS    SEEK    ';
        1*        01 02791            ,'BUFFER   COMS  MAPS OP EC EL NC PC SF DL',EM                     *H01

     9338                            CFHDG  TEXTS CR,CR,'CURRENT CONFIGURATION';
     9339         01 027A8            ,CR,'MODL ADDR',EM

     9340                            COCEXP TEXTS CR,CR,'COC LINE STATE TABLE';
     9341                             ,CR,'LN=LINE INDEX (HEX)';
     9342                             ,CR,'ST=STATE AS FOLLOWS:';
     9343                             ,CR,'00=LINE IS HUNG-UP';
     9344                             ,CR,'03=LINE IS READY';
     9345                             ,CR,'10-1F=TRANSMITTING LOGON REQUEST MESSAGE';
     9346                             ,CR,'20-22=WAITING FOR PASSWORD';
     9347                             ,CR,'24-27=TRANSMITTING LOGON SUCCESS MESSAGE';
     9348                             ,CR,'40=OBSERVER';
     9349         01 027B1            ,CR,'80=CONTROLLER'

     9350                            COCHDG TEXTS CR,CR,'COC LINE STATE TABLE';
     9351         01 027EC            ,CR,'LN ST',EM

     9352         01 027F4           ETIEXP EQU   %
     9353                            ETEXP  TEXTS CR,CR,'ELEMENT TABLE';
     9354                             ,CR,'ETX=ELEMENT TABLE INDEX (HEX)';
     9355                             ,CR,'E:1  MOD=MODEL NUMBER (HEX)';
     9356                             ,CR,'E:2  MN=DEVICE MNEMONIC';
     9357                             ,CR,'E:3  HANDLR=ADDRESS OF HANDLER (HEX)';
     9358                             ,CR,'E:4  RPX=RELATIVE PARAMETER TABLE INDEX (HEX)';
     9359         01 027F4            ,CR,'E:5  CDW=SIZE OF CDWS IN COMMAND BUFFER (COMS)'

     9360                            ETHDG  TEXTS CR,CR,'ELEMENT TABLE';
     9361         01 0282D            ,CR,'ETX MOD  MN HANDLR RPX CDW',EM

     9362                            MEMEXP TEXTS CR,CR,'MEMORY TABLE (WORD)';
     9363                             ,CR,'Q1 AND Q2 ARE ADDRESS LIMITS IF Q1<Q2';
     9364         01 02838            ,CR,'Q2 IS COUNT IF Q2<Q1',EM

     9365                            BYTEXP TEXTS CR,CR,'MEMORY TABLE (BYTE)';
     9366                             ,CR,'Q1 IS A BYTE ADDRESS XXXXXX.Y WHERE:';
     9367                             ,CR,'XXXXXX => WORD ADDRESS';
     9368         01 0284D            ,CR,'Y=> BYTE DISPLACEMENT',EM

     9369                            OTEXP  TEXTS CR,CR,'OPERATOR TABLE';
     9370                             ,CR,'O:0  MSG=MESSAGE DEVICE ADDRESS';
     9371                             ,CR,'O:1  CH=CHARACTERS PER LINE FOR CONSOLE (DEC)';
     9372                             ,CR,'O:2  LOG=ERROR MESSAGE DEVICE ADDRESS';
     9373                             ,CR,'O:3  L=DISPLAY IF ERROR SEVERITY .GE. L (HEX)';
     9374                             ,CR,'O:4  H=HALT IF ERROR SEVERITY .GE. H (HEX)';
     9375                             ,CR,'O:5  TTY=LOCAL TTY ADDRESS';
     9376                             ,CR,'O:6  COC=COC ADDRESS';
     9377                             ,CR,'O:7  MX=MAXIMUM COC LINES LOGGED';
     9378                             ,CR,'O:8  CS=COC STATES';
     9379                             ,CR,'O:9  CL=LINE NUMBER OF CONTROL CONSOLE';
     9380                             ,CR,'O:10 CN=NUMBER OF LINES LOGGED ';
     9381                             ,CR,'O:11 BASE=BASE DEVICE ADDRESS';
     9382                             ,CR,'O:12 SORS=SOURCE DEVICE ADDRESS';
        1*                            ,CR,'O:13 AIOC=COUNT OF I/O INTERRUPTS';                           *H00
        2*                            ,CR,'O:14 AIOU=COUNT OF UNRECOGNIZED I/O INTERRUPTS';              *H00
        3*                            ,CR,'O:15 WRAP=COUNT OF ERROR LOG FILE WRAP-AROUNDS';              *H01
        4*                            ,CR,'O:16 LMS=SET CLOCK MARGIN CONTROL WORD (00-15)';              *H01
        5*        01 02867            ,CR,'O:17 FLAW=COUNT OF FLAW MARKS ENCOUNTERED'                    *H01

     9384                            OTHDG  TEXTS CR,CR,'OPERATOR TABLE';
     9385                             ,CR,'MSG  CH LOG   L  H TTY  COC  MX CS CL CN';
        1*        01 0290F            ,' BASE SORS   AIOC   AIOU WRAP  LMS FLAW',EM                      *H00

1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  167
A    9388                            STEXP  TEXTS CR,CR,'SYSTEM TABLE';
     9389                             ,CR,'S:0  BLKSIZ=BYTES/BUFFER';
     9390                             ,CR,'S:1  BUFSIZ=BYTES/TRANSFER';
     9391                             ,CR,'S:2  FIRSTBUF=BYTE ADDRESS OF FIRST BUFFER';
     9392                             ,CR,'S:3  STRTCORE=USER SELECTED LOW CORE LIMIT';
     9393                             ,CR,'S:4  ENDCORE=USER SELECTED UPPER CORE LIMIT';
     9394                             ,CR,'S:5  SM=SYSTEM CONTROL MODES';
     9395                             ,CR,' 80=INHIBIT PHASE CHANGE (FREEZE PHASES 2 OR 3)';
     9396                             ,CR,' 40=INHIBIT LARGE MEMORY (128K LIMIT)';
        1*                            ,CR,' 20=ENABLE 9-LIKE LMS FOR SIGMA 7';                           *H02
     9398                             ,CR,' 10=INHIBIT ERROR LOG';
     9399                             ,CR,' 08=INHIBIT NEW BUFFER MANAGEMENT';
     9400                             ,CR,' 04=INHIBIT FULL SENSE DISPLAY (FOR NON-DISKS)';
     9401                             ,CR,' 02=INHIBIT PARITY FAULT LIGHT RESET (TCP MEMORY)';
        1*                            ,CR,' 01=ENTER HALT AT PASS COMPLETION';                           *H00
     9402                             ,CR,'S:6  DS=DATA SELECTION';
     9403                             ,CR,' 80=MATH';
     9404                             ,CR,' 40=FLOAT';
     9405                             ,CR,' 20=DECIMAL';
     9406                             ,CR,' 10=BYTE';
     9407                             ,CR,'  8=FILL ALL BUFFERS WITH VALUE IN S:7 (SO)';
     9408                             ,CR,'  4=RANDOM';
     9409                             ,CR,'  2=SEQUENTIAL';
     9410                             ,CR,'  1=FIXED';
     9411                             ,CR,'S:7  SO=SELECT INSTRUCTION (PASS 5) ELSE DATA BYTE';
     9412                             ,CR,'S:8  ERRORS=COUNT OF TOTAL I/O ERRORS';
     9413                             ,CR,'S:9  MAPOPT=MAP OPTION PRESENT IF NONZERO';
     9414                             ,CR,'S:10 MAP=RUNNING MAPPED IF NONZERO';
     9415         01 02928            ,CR,'S:11 REG=CURRENT REGISTER BLOCK'

     9416                            STHDG  TEXTS CR,CR,'SYSTEM TABLE';
     9417                             ,CR,'BLKSIZ BUFSIZ FIRSTBUF STRTCORE ENDCORE  SM DS';
     9418         01 02A03            ,' SO ERRORS MAPOPT MAP REG',EM

     9419                            STTEXP TEXTS CR,CR,'STATUS TABLE';
     9420                             ,CR,'S:12 CS=CYCLE SELECTOR';
     9421                             ,CR,'S:13 CI=CYCLE INDICATOR';
     9422                             ,CR,'S:14 PS=PASS SELECTOR(80=PASS 0, ETC.)';
     9423                             ,CR,'S:15 PI=PASS INDICATOR';
     9424                             ,CR,'S:16 FS=PHASE SELECTOR';
     9425                             ,CR,'S:17 FI=PHASE INDICATOR';
     9426                             ,CR,'S:18 BON=BURST ON TIME (SECONDS)';
     9427                             ,CR,'S:19 BOF=BURST OFF TIME (SECONDS)';
     9428                             ,CR,'S:20 RECL=MT RECORD LIMIT (HEX)';
     9429                             ,CR,'S:21 PASSTIME=TIME LEFT IN PHASES 2 AND 3 (SECONDS*16)';
     9430                             ,CR,'S:22 MSTART=FIRST MEMORY BUFFER';
     9431                             ,CR,'S:23 MEMSIZ=SIZE OF MEMORY FOR THIS PASS';
        1*                            ,CR,'S:24 REGISTER=REGISTER PAGES PRESENT (BIT PER PAGE)';         *H02
        2*        01 02A19            ,CR,'S:25 RCE=NUMBER OF SOFT HITS TO DISPLAY (MOS)'                *H02

     9433                            STTHDG TEXTS CR,CR,'STATUS TABLE';
     9434                             ,CR,'CS CI PS PI FS FI BON BOF RECL PASSTIME';
        1*        01 02A95            ,' MSTART MEMSIZ REGISTER  RCE',EM                                 *H02

     9436                            REGEXP TEXTS CR,CR,'REGISTER TABLE';
     9437         01 02AAA            ,CR,'CURRENT REGISTER CONTENTS',EM

     9438                            IOEXP  TEXTS CR,CR,'I/O INSTRUCTION RESULTS';
     9439                             ,CR,'DEV=DEVICE ADDRESS (HEX)';
     9440                             ,CR,'CC=RESULTING CONDITION CODES (HEX)';
     9441                             ,CR,'CPDA=COMMAND PAIR DOUBLEWORD ADDRESS (HEX)';
     9442                             ,CR,'ST AND BC=RESULTING STATUS AND BYTE COUNT';
     9443         01 02AB5            ,CR,'COM1 AND COM2=COMMAND PAIR'

     9444                            IOHDG  TEXTS CR,CR,'DEV CC   CPDA    ST  BC    ';
     9445         01 02AE7            ,'COM1     COM2',EM

     9446                            DTEXP  TEXTS CR,CR,'CURRENT DATE AND TIME';
     9447                             ,CR,'MO=MONTH';
     9448                             ,CR,'DY=DAY';
     9449                             ,CR,'YR=YEAR';
     9450                             ,CR,'HR=HOUR';
     9451                             ,CR,'MN=MINUTES';
     9452         01 02AF2            ,CR,'SC=SECONDS'

     9453                            DTHDG  TEXTS CR,CR,'CURRENT DATE AND TIME';
     9454         01 02B06            ,CR,'MO DY YR HR MN SC',EM

     9455                            RPEXP  TEXTS CR,CR,'RELATIVE PARAMETER TABLE';
     9456                             ,CR,'RPX=RELATIVE PARAMETER TABLE INDEX (SEE E:4)';
     9457                             ,CR,'BPS=BYTES PER SECTOR (TRACK FOR DISK)';
     9458                             ,CR,'SPT=SECTORS PER TRACK (TRACKS PER CYLINDER FOR DISK)';
     9459                             ,CR,'HPT=HEADS PER TRACK (CYLINDER FOR DISK)';
     9460                             ,CR,'TPD=TRACKS PER DEVICE (CYLINDERS FOR DISK)';
     9461                             ,CR,'DPC=DEVICES PER CONTROLLER';
     9462                             ,CR,'INC=CURRENT SECTOR INCREMENT (TRACK FOR DISK)';
     9463                             ,CR,'BPD=CURRENT TRANSFERS PER DEVICE';
     9464         01 02B11            ,CR,'CDW=CURRENT I/O CDWS PER TRANSFER'

     9465                            RPHDG  TEXTS CR,CR,'RELATIVE PARAMETER TABLE';
     9466         01 02B72            ,CR,'RPX BPS  SPT HPT TPD  DPC INC BPD   CDW',EM

     9467                            IOPEXP TEXTS CR,CR,'IOP TABLE';
     9468                             ,CR,'IOP=IOP TABLE INDEX (HEX)';
     9469                             ,CR,'I:1  RES=RATE-ERROR RESTRICTION (TRUE IF NONZERO)';
     9470                             ,CR,'I:2  LST=CTX OF LAST WAITING CONTROLLER';
     9471                             ,CR,'I:3  KWPS=CAPACITY OF CHANNEL IN KWORDS/SECOND';
     9472         01 02B83            ,CR,'I:4  OVRN=COUNT OF RATE ERRORS'

     9473                            IOPHDG TEXTS CR,CR,'IOP TABLE';
     9474         01 02BB7            ,CR,'IOP RES LST KWPS OVRN',EM

     9475         01 02BC0           MSGEND EQU   %
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  168
A    9477                            *        TEMPORARY STORAGE

     9479   01 02BC0                 RETURN0  RES      4
     9480   01 02BC4    00001675     RETURN1  DATA     DISPXIT
     9481   01 02BC5    00001675     RETURN2  DATA     DISPXIT
     9482   01 02BC6    00001341     RETURN3  DATA     CCP3
     9483   01 02BC7    00001341     RETURN4  DATA     CCP3
     9484   01 02BC8    00001341     RETURN5  DATA     CCP3
     9485   01 02BC9    00001341     RETURN6  DATA     CCP3
     9486   01 02BCA    00001341     RETURN7  DATA     CCP3
     9487   01 02BCB    00001341     RETURN8  DATA     CCP3
     9488   01 02BCC    00001341     RETURN9  DATA     CCP3
     9489   01 02BCD    00001341     RETURNA  DATA     CCP3
     9490   01 02BCE    00001341     RETURNB  DATA     CCP3
     9491   01 02BCF    00000000 A   RETURNC  DATA     0
     9492   01 02BD0    00000000 A   RETURND  DATA     0
     9493   01 02BD1    00000000 A   RETURNE  DATA     0
     9494   01 02BD2    00000000 A   RETURNF  DATA     0
     9495   01 02BD3    00000000 A   RETURNG  DATA     0

     9497                                     BOUND    8
     9498   01 02BD4    00000000 A            DATA     0
     9499   01 02BD5    00000000 A   Q0       DATA     0
     9500   01 02BD6    00000000 A   Q1       DATA     0
     9501   01 02BD7    00000000 A   Q2       DATA     0
     9502   01 02BD8    00000000 A   Q3       DATA     0
     9503   01 02BD9    00000000 A   Q4       DATA     0
     9504   01 02BDA    00000000 A   DID:1    DATA     0
     9505   01 02BDB    00000000 A   DED:1    DATA     0
     9506   01 02BDC    00000000 A   DED:2    DATA     0
     9507   01 02BDD    00001341     DED:3    DATA     CCP3
     9508   01 02BDE    00000000 A   DED:4    DATA     0
     9509   01 02BDF    00007F28     DED:5    DATA     BA(ABSMSG)
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  169
A    9511   01 02BE0    00000000 A   BCI      DATA     0
     9512   01 02BE1    00000000 A   CCI      DATA     0
     9513   01 02BE2    00000000 A   OCI      DATA     0
     9514   01 02BE3    00000000 A   CTSIZE   DATA     0
     9515   01 02BE4    55523779 A   SEED     DATA     X'55523779'
     9516   01 02BE5    41020848 A   K0       DATA     X'41020848'
     9517   01 02BE6    00001000 A   PASSET   DATA     X'1000'
     9518   01 02BE7    00000000 A   CLASTI   DATA     0
     9519   01 02BE8    FFFFFFFF A   CLAST    DATA     -1
     9520   01 02BE9    FFFFFFFF A   DLAST    DATA     -1
     9521   01 02BEA    00000000 A   BTIME    DATA     0
     9522   01 02BEB    00000000 A   ADDRESS  DATA     0
     9523   01 02BEC    00000000 A   TESTCC   DATA     0

     9525                                     BOUND    8
     9526   01 02BEE    00000001 A   CONQS    DATA     1
     9527   01 02BEF    00000000 A   COUNT    DATA     0
     9528   01 02BF0    00000000 A   AIOR     DATA     0
     9529   01 02BF1    00000000 A   TDVRU1   DATA     0
     9530   01 02BF2    00000000 A   TIOR     DATA     0
     9531   01 02BF3    00000000 A   TIORU1   DATA     0
     9532   01 02BF4    12345670 A   SETPASS  DATA     X'12345670'
     9533   01 02BF5    00000000 A   BUFSTRT  DATA     0
     9534   01 02BF6    00000000 A   BUFSTRTW DATA     0
     9535   01 02BF7    00000000 A   SIZE     DATA     0

     9537                                     BOUND    8
     9538   01 02BF8    00000000 A   STTBYT   DATA     0
     9539   01 02BF9    00000000 A   ENDBYT   DATA     0
     9540   01 02BFA    00000800 A   BLKSIZ   DATA     X'800'
     9541   01 02BFB    000007FC A   BUFSIZ   DATA     X'7FC'
     9542   01 02BFC    00000000 A   COCBC    DATA     0
     9543   01 02BFD    00000000 A   TTYBC    DATA     0

     9545                                     BOUND    8
     9546   01 02BFE    00000000 A   WK1      DATA     0
     9547   01 02BFF    00000000 A   WK2      DATA     0
     9548   01 02C00    00000000 A   REGOPS   DATA     0
     9549   01 02C01    00000000 A   MAPOP    DATA     0
     9550   01 02C02    00000000 A   LOCKOP   DATA     0
     9551   01 02C03    00000000 A   SIGMA5   DATA     0
     9552   01 02C04    00000000 A   SIGMA9   DATA     0
     9553   01 02C05    00000000 A   BYTE     DATA     0
     9554   01 02C06    00000000 A   LASTADR  DATA     0
     9555   01 02C07    00000000 A   LASTREG  DATA     0
     9556   01 02C08    00000000 A   SLCTREG  DATA     0
     9557   01 02C09    00000000 A   SLCTMAP  DATA     0

     9559                                     BOUND    8
     9560   01 02C0A    00000000 A   REG2     DATA     0
     9561   01 02C0B    00000000 A   REG3     DATA     0
     9562   01 02C0C    00000000 A   REG6     DATA     0
     9563   01 02C0D    00000000 A   REG7     DATA     0
     9564   01 02C0E    00000000 A   SUM1     DATA     0
     9565   01 02C0F    00000000 A   SUM2     DATA     0
     9566   01 02C10    00000000 A   MODIFIER DATA     0
     9567   01 02C11    00000000 A   CONSTANT DATA     0
     9568   01 02C12    00000000 A            DATA     0
     9569   01 02C13    00000000 A   BUFAD    DATA     0
     9570   01 02C14    00000000 A   RESIDUAL DATA     0
     9571   01 02C15    00000000 A   REFLECT  DATA     0
     9572   01 02C16    00000000 A   2REFLECT DATA     0
     9573   01 02C17    00000000 A   PARSHSIZ DATA     0
     9574   01 02C18    00000000 A   AIOCOUNT DATA     0
        1*  01 02C19    00000000 A   AIOUNEXP DATA     0                                                 *H00
        2*  01 02C1A    00000000 A   B17TARGT DATA     0                                                 *H02
        3*  01 02C1B    00000000 A   LMSSET   DATA     0                 SET CLOCK MARGIN CONTROL WORD   *H01
        4*  01 02C1C    00000000 A   LMSOLD   DATA     0                                                 *H01
        5*  01 02C1D    00000000 A   FLAWS    DATA     0                                                 *H01
        6*  01 02C1E    00000000 A   RCETOTAL DATA     0                 CURRENT REMAINING SOFT-HITS     *H02
        7*  01 02C1F    00000000 A   BUFBEGIN DATA     0                 REALTIME START OF BUFFER ACTIVITY
        8*  01 02C20    00000000 A   BUFRATE  DATA     0                 NUMBER OF BUFFERS PER SECOND    *H02
     9575   01 02C21    00000000 A   BUFTOTAL DATA     0                 TOTAL AVAILABLE BUFFERS

     9577                                     BOUND    8
     9578   01 02C22                 STATUS   RES      16
     9579   01 02C32                 BUFFERS  RES      8
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  170
A    9581   01 02C3A    00000000 A   APTO     DATA     0
     9582   01 02C3B    00000000 A   NO       DATA     0
     9583   01 02C3C    00000000 A   MO       DATA     0
     9584   01 02C3D    00000000 A   CNTRO    DATA     0
     9585   01 02C3E    00000000 A   BUFFERO  DATA     0
     9586   01 02C3F    00000000 A   AP       DATA     0
     9587   01 02C40    00000000 A   CAT      DATA     0
     9588   01 02C41    00000000 A   NE       DATA     0
     9589   01 02C42    00000000 A   M        DATA     0

     9591   01 02C43    00000000 A   FAULTS   DATA     0
     9592   01 02C44    00000000 A   2SEC     DATA     0
     9593   01 02C45    00000000 A   CC6      DATA     0
     9594   01 02C46    00000000 A   MSGWK0   DATA     0
     9595   01 02C47    00000000 A   MSGMOD   DATA     0
     9596   01 02C48    00000000 A   OUTDEV   DATA     0
     9597   01 02C49    00000000 A   LASTBYTE DATA     0
     9598   01 02C4A    00000000 A   SUPRESS  DATA     0
     9599   01 02C4B    00000000 A   WK0      DATA     0
     9600   01 02C4C    00000000 A   WQ2      DATA     0
     9601   01 02C4D    00000000 A   BREAK    DATA     0

     9603   01 02C4E    00000000 A   MONTHS   DATA     0
     9604   01 02C4F    00000000 A   YEARS    DATA     0
     9605   01 02C50    00000000 A   DAYS     DATA     0
     9606   01 02C51    00000000 A   HOURS    DATA     0
     9607   01 02C52    00000000 A   MINUTES  DATA     0
     9608   01 02C53    00000000 A   SECONDS  DATA     0

     9610   01 02C54                 PCOUNT   RES      4

     9612   01 02C58    00000021 A   CLK4PULS DATA     33                66 MILLISECOND CLOCK
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  171
A    9614   01 02C59    00000000 A   COUNT1   DATA     0
     9615   01 02C5A    00000000 A   COUNT2   DATA     0
     9616   01 02C5B    00000000 A   COUNT3   DATA     0
     9617   01 02C5C    00000000 A   COUNT4   DATA     0
     9618   01 02C5D    0000B000 A   XB000    DATA     X'B000'

     9620                                     BOUND    8
     9621   01 02C5E    00002D2F     REGI     DATA     RUREGS-1
     9622   01 02C5F    80408000 A            DATA     X'80008000'+X'10000'*STACKSIZ*16
     9623   01 02C60    00002D7F     RETI     DATA     PSDS-1
     9624   01 02C61    80108000 A            DATA     X'80008000'+X'10000'*STACKSIZ*4
     9625   01 02C62    00002BBF     RETURN0I DATA     RETURN0-1
     9626   01 02C63    80048000 A            DATA     X'80048000'

     9628   01 02C64    00002D2F     REGISTER DATA     RUREGS-1
     9629   01 02C65    80408000 A            DATA     X'80008000'+X'10000'*STACKSIZ*16
     9630   01 02C66    00002D7F     RETURNS  DATA     PSDS-1
     9631   01 02C67    80108000 A            DATA     X'80008000'+X'10000'*STACKSIZ*4
     9632   01 02C68    00002BBF     RETURN0S DATA     RETURN0-1
     9633   01 02C69    80048000 A            DATA     X'80048000'

     9635   01 02C6A    00002EE7     ERRFILEI DATA     ERRBUF0-1
     9636   01 02C6B    80FC8000 A            DATA     X'80008000'+X'10000'*(EBSIZ-4)
     9637   01 02C6C    00002EE7     ERRLOG   DATA     ERRBUF0-1
     9638   01 02C6D    80FC8000 A            DATA     X'80008000'+X'10000'*(EBSIZ-4)

     9640                                     BOUND    8
     9641   01 02C6E    0400B1EC N   BASECP0  DATA     X'04000000'+BA(BASESENS)    SENSE
     9642   01 02C6F    22000010 A            DATA     X'22000000'+16
     9643   01 02C70    33000000 A            DATA     X'33000000'                 RESTORE
     9644   01 02C71    20000000 A            DATA     X'20000000'
     9645   01 02C72    0A00B1FC N            DATA     X'0A000000'+BA(BASEHEAD)    READ ONE HEADER
        1*  01 02C73    2A000004 A            DATA     X'2A000000'+4                                     *H01

     9648   01 02C74    0300B1E4 N   BASECP1  DATA     X'3000000'+BA(BASESEEK)
     9649   01 02C75    00000000 A            DATA     0

     9651   01 02C76                 BASECP2  RES      2

     9653   01 02C78    28000002 A   SEEKCNT  DATA     X'28000002'
     9654   01 02C79    00000000 A   BASESEEK DATA     0
     9655   01 02C7A    00000000 A   SAVEREGS DATA     0
     9656   01 02C7B                 BASESENS RES      4                 RECOVERY SENSE INFORMATION
     9657   01 02C7F                 BASEHEAD RES      1                 RECOVERY HEAD INFORMATION
        1*  01 02C80                 BASESTND RES      1                                                 *H01

     9659                                     BOUND    8
     9660   01 02C82    FD00C000 A   SIOINT   DATA     X'FD00C000'
     9661   01 02C83    1C000001 A            DATA     X'1C000001'

     9663   01 02C84    00010000 A   BOOTDC   DATA     X'00010000'       TRK 0 SEC 1
     9664   01 02C85    2A000002 A            DATA     X'2A000002'       2-BYTE SEEK FOR RAD

     9666   01 02C86    00000100 A   BOOTDP   DATA     X'00000100'       CYL 0 TRK 1 SEC 0
     9667   01 02C87    2A000004 A            DATA     X'2A000004'       4-BYTE SEEK FOR DISK
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  172
A    9669                                     BOUND    8
     9670   01 02C88    0500B230 N   LPOUT    DATA     X'5000000'+BA(LPBUF)
     9671   01 02C89    8A000001 A            DATA     X'8A000001'
     9672   01 02C8A    00000000 A   LPCOM    DATA     0
     9673   01 02C8B    00000000 A            DATA     0
     9674   01 02C8C    00000000 A   LPBUF    DATA     0
     9675   01 02C8D    00000000 A   LPFLG    DATA     0

     9677                                     BOUND    8
     9678   01 02C8E    1507D96E A   BUFFER   DATA     X'15070000'+PROMPT+X'100'*RUN
     9679   01 02C8F                          RES      33

     9681   01 02CB0    15404040 A   OUTBUF   DATA     X'15404040'
     9682   01 02CB1                          RES      33

     9684   01 02CD2    00000000 A   ERRHDG   DATA     0
     9685   01 02CD3    40404040 A   LOGHDG   DATA     LOGERR
     9686   01 02CD4                          RES      33

     9688                                     BOUND    8
     9689   01 02CF6    00000000 A   SEQRNG   DATA     0
     9690   01 02CF7    00000000 A            DATA     0
        1*  01 02CF8    00000000 A   IDENTSAV DATA     0                                                 *H01
     9691   01 02CF9    00000000 A   IDENTSEL DATA     0
     9692   01 02CFA    00000000 A   MASKSEL  DATA     0
     9693   01 02CFB    00000000 A   WORDSEL  DATA     0
     9694   01 02CFC    00000000 A   LOGFLG   DATA     0
     9695   01 02CFD    00000000 A   SEQUENCE DATA     0
     9696   01 02CFE    00000000 A   IDENT    DATA     0
     9697   01 02CFF    00000000 A   ERRCODE  DATA     0
     9698   01 02D00                 ERRTAB   RES      16

     9700                                     BOUND    8
     9701   01 02D10    00000000 A            DATA     0
     9702   01 02D11    00000000 A   CODE     DATA     0

     9704                                     BOUND    8
     9705   01 02D12    68000166     RECOVERY B        RESTART
     9706   01 02D13    00001C70 A   GROUP0   DATA     X'1C70'           CP4,MP7,MP9,CT4,I/O,CP

     9708   01 02D14    010000A8 N   BOOTXFER DATA     X'1000000'+BA(BOOTSW)
     9709   01 02D15    0A000058 A            DATA     X'A000058'

     9711   01 02D16    01000100 A   PRGMXFER DATA     X'1000100'
     9712   01 02D17    0A00BA90 N            DATA     X'A000000'+BA(ERRBUF)-X'100'

     9714   01 02D18    0100BF94 N   DATAXFER DATA     X'1000000'+BA(CT:DA)
     9715   01 02D19    0A00233C A            DATA     X'A000000'+BA(CONFGEND)-BA(CT:DA)

     9717   01 02D1A    0100CFF0 N   CONFXFER DATA     X'1000000'+BA(CONFIG)
     9718   01 02D1B    0A0012E0 A            DATA     X'A000000'+BA(CONFGEND)-BA(CONFIG)

     9720                                     BOUND    8
     9721   01 02D1C    0100BB90 N   EFWRITE  DATA     X'1000000'+BA(ERRBUF)
     9722   01 02D1D    0A000400 A            DATA     X'A000000'+EBSIZ*4
     9723   01 02D1E    00000000 A   EFSTART  DATA     0
     9724   01 02D1F    00000000 A   EFLIMIT  DATA     0
        1*  01 02D20    00000000 A   EFWRAP   DATA     0                                                 *H01
     9725   01 02D21    00000000 A   DATAPOS  DATA     0
     9726   01 02D22    00000000 A   CONFPOS  DATA     0
     9727   01 02D23    00000000 A   EBINC    DATA     0

     9729                                     BOUND    64
     9730   01 02D30                 RUREGS   RES      STACKSIZ*16
     9731   01 02D70                 OVREGS   RES      16
     9732   01 02D80                 PSDS     RES      STACKSIZ*4
     9733   01 02D90                 OVRETS   RES      4
     9734   01 02D94                 REGS42   RES      16
     9735   01 02DA4                 PREREGS  RES      16
     9736   01 02DB4                 BASEREGS RES      16
     9737   01 02DC4                 DEVREGS  RES      16
     9738   01 02DD4                 AUDREGS  RES      16
     9739   01 02DE4                 REGS51   RES      16
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  173
A    9741                            *        ELEMENT TABLE

     9743                            *        TABLE OF MODEL NUMBERS FOR THE SIGMA SERIES

     9745                                     BOUND 4
     9746   01 02DF4                 ET:MOD   RES,2    1
     9747         00000001           ETXHSRAD EQU      HA(%)-HA(ET:MOD)
     9748   01 02DF4 2  7211     A            DATA,2   X'7211'           HS  HIGH SPEED RAD CONTROLLER
     9749         00000002           ETXEP    EQU      HA(%)-HA(ET:MOD)
     9750   01 02DF5    7231     A            DATA,2   X'7231'           EP  EXTENDED RAD CONTROLLER
     9751         00000003           ETXEP4   EQU      HA(%)-HA(ET:MOD)
     9752   01 02DF5 2  7235     A            DATA,2   X'7235'           FOUR BYTE INTEPFACE
     9753   01 02DF6    7236     A            DATA,2   X'7236'           EP  REPACKED RAD  4BYTE
     9754   01 02DF6 2  7201     A            DATA,2   X'7201'           SS  SLOW SPEED RAD CONTROLLER
     9755   01 02DF7    7205     A            DATA,2   X'7205'           FOUR BYTE INTERFACE FOR THE 7201
     9756         00000007           ETXDPS   EQU      HA(%)-HA(ET:MOD)
     9757   01 02DF7 2  7272     A            DATA,2   X'7272'           DA - DC32Q
     9758   01 02DF8    3281     A            DATA,2   X'3281'           DB - T3281
        1*  01 02DF8 2  3282     A            DATA,2   X'3282'           DC - T3282                      *H00
        2*  01 02DF9    3283     A            DATA,2   X'3283'           DD - T3283                      *H00
        3*  01 02DF9 2  328F     A            DATA,2   X'328F'           DE - T328F                      *H01
     9759   01 02DFA    7240     A            DATA,2   X'7240'           DP  DISC PACK CONT
     9760         0000000D           ETXRADS  EQU      HA(%)-HA(ET:MOD)
     9761   01 02DFA 2  7270     A            DATA,2   X'7270'           DP - ISS DRIVE
     9762   01 02DFB    7330     A            DATA,2   X'7330'           BT  POTTER OR STC TAPE
     9763         0000000F           ETX9T    EQU      HA(%)-HA(ET:MOD)
     9764   01 02DFB 2  7320     A            DATA,2   X'7320'           9T  NINE TRACK TAPE CONTROLLER
     9765         00000010           ETXTAPES EQU      HA(%)-HA(ET:MOD)
     9766   01 02DFC    7361     A            DATA,2   X'7361'           7T  SEVEN TRACK TAPE CONTROLLER
     9767   01 02DFC 2  7441     A            DATA,2   X'7441'           PR  1500 LPM PRINTER
     9768   01 02DFD    7446     A            DATA,2   X'7446'           PR  1250 LPM PRINTER
     9769   01 02DFD 2  7445     A            DATA,2   X'7445'           PR  1000 LPM PRINTER
     9770   01 02DFE    7440     A            DATA,2   X'7440'           PR  600 LPM PRINTER
     9771   01 02DFE 2  7450     A            DATA,2   X'7450'           PR  225 LPM PRINTER
     9772   01 02DFF    7140     A            DATA,2   X'7140'           CR  1500 CARD PER MINUTE READER
     9773   01 02DFF 2  7122     A            DATA,2   X'7122'           CR  UPTIME 400 CPM READER
     9774   01 02E00    7120     A            DATA,2   X'7120'           CR  UNIVAC 400 CPM READER
     9775   01 02E00 2  7121     A            DATA,2   X'7121'           CR  200 CPM READER
     9776         0000001A           ETX7160  EQU      HA(%)-HA(ET:MOD)
     9777   01 02E01    7160     A            DATA,2   X'7160'           CP  300 CPM PUNCH
     9778   01 02E01 2  7165     A            DATA,2   X'7165'           CP  100 CPM PUNCH
     9779   01 02E02    7060     A            DATA,2   X'7060'           PT  PAPER TAPE HANDLER
     9780   01 02E02 2  7020     A            DATA,2   X'7020'           TY  ASR TYPE 35 TTY
     9781   01 02E03    7010     A            DATA,2   X'7010'           TY  KSR
     9782   01 02E03 2  7012     A            DATA,2   X'7012'           TY  ASR TYPE 35 KEYBOARD
     9783   01 02E04    7555     A            DATA,2   X'7555'           TY  TYPE 13D KEYBOARD DISPLAY
     9784         00000021           ETXMM    EQU      HA(%)-HA(ET:MOD)
     9785   01 02E04 2  2242     A            DATA,2   X'2242'           MM  MEMORY TO MEMORY MOVE
     9786   01 02E05    2248     A            DATA,2   X'2248'           MS  MAINTENANCE SUBCONTROLLER

     9788                                     BOUND    4
     9789   01 02E06                          RES      ET:MOD+(ETSIZ/2)-%
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  174
A    9791                            *        TABLE OF DEVICE CONTROLLER MNEMONICS

     9793   01 02E08                 ET:MNE   RES,2    1
     9794   01 02E08 2  C8E2     A            DATA,2   C'HS'             HS  HIGH SPEED RAD CONTROLLER
     9795   01 02E09    C5D7     A            DATA,2   C'EP'             EP  EXTENDED RAD CONTROLLER
     9796   01 02E09 2  C5D7     A            DATA,2   C'EP'             EP  4 BYTE INTEPFACE FOR EP
     9797   01 02E0A    C5D7     A            DATA,2   C'EP'             EP  REPACKED RAD 4 BYTE
     9798   01 02E0A 2  D4E2     A            DATA,2   C'MS'             SS  SLOW SPEED RAD CONTROLLER
     9799   01 02E0B    D4E2     A            DATA,2   C'MS'             SS  4 BYTE INTERFACE FOR SS
     9800   01 02E0B 2  C4C1     A            DATA,2   C'DA'             DA  DISK A
     9801   01 02E0C    C4C2     A            DATA,2   C'DB'             DB  DISK B
        1*  01 02E0C 2  C4C3     A            DATA,2   'DC'              DC - T3282                      *H00
        2*  01 02E0D    C4C4     A            DATA,2   'DD'              DD - T3283                      *H00
        3*  01 02E0D 2  C4C5     A            DATA,2   'DE'              DE - T328F                      *H01
     9802   01 02E0E    C4D7     A            DATA,2   C'DP'             DP  DISCPACK CONTROLLER
     9803   01 02E0E 2  C4D7     A            DATA,2   C'DP'             DP  4 BYTE INTERFACE FOR DP
     9804   01 02E0F    C2E3     A            DATA,2   C'BT'             BT  POTTER OR STC TAPE
     9805   01 02E0F 2  F9E3     A            DATA,2   C'9T'             9T  NINE TRACK TAPE CONTROLLER
     9806   01 02E10    F7E3     A            DATA,2   C'7T'             7T  SEVEN TRACK TAPE CONTROLLER
     9807   01 02E10 2  D7D9     A            DATA,2   C'PR'             PR  1500 LPM PRINTER
     9808   01 02E11    D7D9     A            DATA,2   C'PR'             PR  1250 LPM PRINTER
     9809   01 02E11 2  D7D9     A            DATA,2   C'PR'             PR  1000 LPM PRINTER
     9810   01 02E12    D7D9     A            DATA,2   C'PR'             PR  600 LPM PRINTER
     9811   01 02E12 2  D7D9     A            DATA,2   C'PR'             PR  225 LPM PRINTER
     9812   01 02E13    C3D9     A            DATA,2   C'CR'             CR  1500 CARD PER MINUTE READER
     9813   01 02E13 2  C3D9     A            DATA,2   C'CR'             CR  UPTIME 400 CPM READER
     9814   01 02E14    C3D9     A            DATA,2   C'CR'             CR  UNIVAC 400 CPM READER
     9815   01 02E14 2  C3D9     A            DATA,2   C'CR'             CR  200 CPM READER
     9816   01 02E15    C3D7     A            DATA,2   C'CP'             CP  300 CPM PUNCH
     9817   01 02E15 2  C3D7     A            DATA,2   C'CP'             CP  100 CPM PUNCH
     9818   01 02E16    D7E3     A            DATA,2   C'PT'             PT  PAPER TAPE READER AND PUNCH
     9819   01 02E16 2  E3E8     A            DATA,2   C'TY'             TY  ASR TYPE 35 TTY
     9820   01 02E17    E3E8     A            DATA,2   C'TY'             TY  KSR
     9821   01 02E17 2  E3E8     A            DATA,2   C'TY'             TY  ASR TYPE 35 KEYBOARD
     9822   01 02E18    E3E8     A            DATA,2   C'TY'             TY  TYPE 13D KEYBOARD DISPLAY
     9823   01 02E18 2  D4D4     A            DATA,2   C'MM'             MM  MEMORY TO MEMORY MOVE
     9824   01 02E19    D4E2     A            DATA,2   C'MS'             MS  MAINTENANCE SUBCONTROLLER

     9826                                     BOUND    4
     9827   01 02E1A                          RES      ET:MNE+(ETSIZ/2)-%
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  175
A    9829                            *        TABLE OF HANDLER ADDRESSES

     9831   01 02E1C                 ET:HNDLR RES      1
     9832   01 02E1D    000009D7              DATA     RDHAN             HS  HIGH SPEED RAD CONTROLLER
     9833   01 02E1E    000009D7              DATA     RDHAN             EP  EXTENDED RAD CONTROLLER
     9834   01 02E1F    000009D7              DATA     RDHAN             EP  4BYTE INTERFACE FOR EP
     9835   01 02E20    000009D7              DATA     RDHAN             EP  REPACKED RAD 4 BYTE
     9836   01 02E21    000009D7              DATA     RDHAN             SS  SLOW SPEED RAD CONTROLLER
     9837   01 02E22    000009D7              DATA     RDHAN             SS  4BYTE INTERFACE FOR SS
     9838   01 02E23    000009D7              DATA     RDHAN             DA  DISK A CONTROLLER
     9839   01 02E24    000009D7              DATA     RDHAN             DB  DISK B CONTROLLER
        1*  01 02E25    000009D7              DATA     RDHAN             DC - T3282                      *H00
        2*  01 02E26    000009D7              DATA     RDHAN             DD - T3283                      *H00
        3*  01 02E27    000009D7              DATA     RDHAN             DE - T3283                      *H01
     9840   01 02E28    000009D7              DATA     RDHAN             DP  CDC DISC PACK CONTROLLER
     9841   01 02E29    000009D7              DATA     RDHAN             DP  CDC DISC, 4 BYTE
     9842   01 02E2A    00000B8C              DATA     MTHAN             BT  POTTER OR STC TAPE
     9843   01 02E2B    00000B8C              DATA     MTHAN             9T  NINE TRACK TAPE CONTROLLER
     9844   01 02E2C    00000B8C              DATA     MTHAN             7T  SEVEN TRACK TAPE CONTROLLER
     9845   01 02E2D    0000093E              DATA     PRHAN             PR  1500 LPM PRINTER
     9846   01 02E2E    0000093E              DATA     PRHAN             PR  1250 LPM PRINTER
     9847   01 02E2F    0000093E              DATA     PRHAN             PR  1000 LPM PRINTER
     9848   01 02E30    0000093E              DATA     PRHAN             PR  600 LPM PRINTER
     9849   01 02E31    0000093E              DATA     PRHAN             PR  225 LPM PRINTER
     9850   01 02E32    000008F7              DATA     CRHAN             CR  1500 CARD PER MINUTE READER
     9851   01 02E33    000008F7              DATA     CRHAN             CR  UPTIME 400 CPM READER
     9852   01 02E34    000008F7              DATA     CRHAN             CR  UNIVAC 400 CPM READER
     9853   01 02E35    000008F7              DATA     CRHAN             CR  200 CPM READER
     9854   01 02E36    00000911              DATA     CPHAN             CP  300 CPM PUNCH
     9855   01 02E37    00000911              DATA     CPHAN             CP  100 CPM PUNCH
     9856   01 02E38    00000E01              DATA     NOHAN             PT  PAPER TAPE READER AND PUNCH
     9857   01 02E39    00000E01              DATA     NOHAN             TY  ASR TYPE 35 TTY
     9858   01 02E3A    00000E01              DATA     NOHAN             TY  KSR
     9859   01 02E3B    00000E01              DATA     NOHAN             TY  ASR TYPE 35 KEYBOARD
     9860   01 02E3C    00000E01              DATA     NOHAN             TY  TYPE 13D KEYBOARD DISPLAY
     9861   01 02E3D    00000D4D              DATA     MMHAN             MM  MEMORY TO MEMORY MOVE
     9862   01 02E3E    00000E01              DATA     NOHAN             MS  MAINTENANCE SUBCONTROLLER

     9864                                     BOUND    4
     9865   01 02E3F                          RES      ET:HNDLR+(ETSIZ)-%
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  176
A    9867                            *        RELATIVE PARAMETER INDEX TABLE

     9869   01 02E44                 ET:RPX   RES,1    1
     9870   01 02E44 1  01       A            DATA,1   RPXHS             HS
     9871   01 02E44 2  02       A            DATA,1   RPXEP             EP
     9872   01 02E44 3  02       A            DATA,1   RPXEP             EP
     9873   01 02E45    02       A            DATA,1   RPXEP             EP
     9874   01 02E45 1  03       A            DATA,1   RPXSS             SS
     9875   01 02E45 2  03       A            DATA,1   RPXSS             SS
     9876   01 02E45 3  05       A            DATA,1   RPXDA             DA
     9877   01 02E46    06       A            DATA,1   RPXDB             DB
        1*  01 02E46 1  07       A            DATA,1   RPXDC             DC - T3282                      *H00
        2*  01 02E46 2  08       A            DATA,1   RPXDD             DD - T3283                      *H00
        3*  01 02E46 3  09       A            DATA,1   RPXDE             DE - T328F                      *H01
     9878   01 02E47    04       A            DATA,1   RPXDP             DP
     9879   01 02E47 1  04       A            DATA,1   RPXDP             DP
     9880   01 02E47 2  0A       A            DATA,1   RPXBT             BT
     9881   01 02E47 3  0B       A            DATA,1   RPX9T             9T
     9882   01 02E48    0C       A            DATA,1   RPX7T             7T

     9884         00000017                    DO       BA(ET:RPX)+ETSIZ-BA(%)
     9885   01 02E48 1  00       A            DATA,1   0
     9886                                     FIN
            01 02E48 2  00       A
            01 02E48 3  00       A
            01 02E49    00       A
            01 02E49 1  00       A
            01 02E49 2  00       A
            01 02E49 3  00       A
            01 02E4A    00       A
            01 02E4A 1  00       A
            01 02E4A 2  00       A
            01 02E4A 3  00       A
            01 02E4B    00       A
            01 02E4B 1  00       A
            01 02E4B 2  00       A
            01 02E4B 3  00       A
            01 02E4C    00       A
            01 02E4C 1  00       A
            01 02E4C 2  00       A
            01 02E4C 3  00       A
            01 02E4D    00       A
            01 02E4D 1  00       A
            01 02E4D 2  00       A
            01 02E4D 3  00       A
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  177
A       1*                           *        TABLE OF COMMAND BUFFER LENGTHS (WORDS)                    *H00

     9890                                     BOUND    4
     9891   01 02E4E                 ET:CDW   RES,1    1
     9892   01 02E4E 1  06       A            DATA,1   6                 7211 HS
     9893   01 02E4E 2  06       A            DATA,1   6                 7231 EP
     9894   01 02E4E 3  06       A            DATA,1   6                 7235 EP
     9895   01 02E4F    06       A            DATA,1   6                 7236 EP
     9896   01 02E4F 1  06       A            DATA,1   6                 7201 SS
     9897   01 02E4F 2  06       A            DATA,1   6                 7205 SS

        2*                           * WHEN USING FULL BUFFERS (64K) THERE WILL BE ENOUGH ROOM           *H00
        3*                           * IN THE COMMAND BUFFER TO DATA-CHAIN A FULL CYLINDER TRANSFER      *H00

        5*  01 02E4F 3  0C       A            DATA,1   12                DA - 7272                       *H00
        6*  01 02E50    14       A            DATA,1   20                DB - 3281                       *H00
        7*  01 02E50 1  14       A            DATA,1   20                DC - 3282                       *H00
        8*  01 02E50 2  0E       A            DATA,1   14                DD - 3283                       *H00
        9*  01 02E50 3  0E       A            DATA,1   14                DE - 328F                       *H01
       10*  01 02E51    08       A            DATA,1   8                 DP - 7240                       *H00
       11*  01 02E51 1  08       A            DATA,1   8                 DP - 7270                       *H00

     9902   01 02E51 2  0A       A            DATA,1   10                7330 RT
     9903   01 02E51 3  0A       A            DATA,1   10                7320 9T
     9904   01 02E52    0A       A            DATA,1   10                7361 7T
     9905   01 02E52 1  02       A            DATA,1   2                 7441 PR
     9906   01 02E52 2  08       A            DATA,1   8                 7446 PR (BENSON)
     9907   01 02E52 3  02       A            DATA,1   2                 7445 PR
     9908   01 02E53    02       A            DATA,1   2                 7440 PR
     9909   01 02E53 1  02       A            DATA,1   2                 7450 PR
     9910   01 02E53 2  02       A            DATA,1   2                 7140 CR
     9911   01 02E53 3  02       A            DATA,1   2                 7122 CR
     9912   01 02E54    02       A            DATA,1   2                 7120 CR
     9913   01 02E54 1  02       A            DATA,1   2                 7121 CR
     9914   01 02E54 2  06       A            DATA,1   6                 7160 CP
     9915   01 02E54 3  06       A            DATA,1   6                 7165 CP
     9916   01 02E55    02       A            DATA,1   2                 7060 PT
     9917   01 02E55 1  02       A            DATA,1   2                 7020 TY
     9918   01 02E55 2  02       A            DATA,1   2                 7010 TY
     9919   01 02E55 3  02       A            DATA,1   2                 7012 TY
     9920   01 02E56    02       A            DATA,1   2                 7155 TY (KBD)
     9921   01 02E56 1  04       A            DATA,1   4                 2242 MM

     9923         00000006                    DO       BA(ET:CDW)+ETSIZ-BA(%)
     9924   01 02E56 2  00       A            DATA,1   0
     9925                                     FIN
            01 02E56 3  00       A
            01 02E57    00       A
            01 02E57 1  00       A
            01 02E57 2  00       A
            01 02E57 3  00       A
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  178
A    9927                                     BOUND    4

     9929                            *        RELATIVE PARAMETER INDICES  FOR MUC'S

     9931         00000001           RPXHS    EQU      1
     9932         00000002           RPXEP    EQU      2
     9933         00000003           RPXSS    EQU      3
     9934         00000004           RPXDP    EQU      4
     9935         00000005           RPXDA    EQU      5
     9936         00000006           RPXDB    EQU      6
        1*        00000007           RPXDC    EQU      7                 DC - T3282                      *H00
        2*        00000008           RPXDD    EQU      8                 DD - T3283                      *H00
        3*        00000009           RPXDE    EQU      9                 DE - T328F                      *H01
        4*        0000000A           RPXBT    EQU      10                                                *H01
        5*        0000000B           RPX9T    EQU      11                                                *H01
        6*        0000000C           RPX7T    EQU      12                                                *H01
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  179
A    9941                            *        TABLE OF BYTES PER SECTOR

     9943   01 02E58                 RP:BPS   RES      1
     9944   01 02E59    00000400 A            DATA     1024              HS
     9945   01 02E5A    00000400 A            DATA     1024              EP
     9946   01 02E5B    00000168 A            DATA     360               SS
     9947   01 02E5C    00001800 A            DATA     1024*6            DP (7240/7270)
     9948   01 02E5D    00003000 A            DATA     1024*12           DA (7272/DC32Q)
     9949   01 02E5E    00004000 A            DATA     1024*16           DB (T3281)
        1*  01 02E5F    00004000 A            DATA     1024*16           DC - T3282                      *H00
        2*  01 02E60    00004000 A            DATA     1024*16           DD - T3283                      *H00
        3*  01 02E61    00004000 A            DATA     1024*16           DE - T328F                      *H01
     9950                                     BOUND 4
     9951   01 02E62                          RES      RP:BPS+(RPSIZ)-%

     9953                            *        TABLE OF SECTORS PER TRACK

     9955   01 02E64                 RP:SPT   RES      1
     9956   01 02E65    00000052 A            DATA     82                HS  HIGH SPEED RAD CONTROLLER
     9957   01 02E66    0000000C A            DATA     12                EP  EXTENDED RAD CONTROLLER
     9958   01 02E67    00000010 A            DATA     16                SS  SLOW SPEED RAD CONTROLLER
     9959   01 02E68    00000014 A            DATA     20                DP (7240/7270)
     9960   01 02E69    00000014 A            DATA     20                DA (7272/DC32Q)
     9961   01 02E6A    0000001E A            DATA     30                DB (T3281)
        1*  01 02E6B    0000001E A            DATA     30                DC - T3282                      *H00
        2*  01 02E6C    00000013 A            DATA     19                DD - T3283                      *H00
        3*  01 02E6D    00000013 A            DATA     19                DE - T328F                      *H01
     9962                                     BOUND    4
     9963   01 02E6E                          RES      RP:SPT+(RPSIZ)-%

     9965                            *        TABLE OF TRACKS PER DEVICE

     9967   01 02E70                 RP:TPD   RES      1
     9968   01 02E71    00000040 A            DATA     64                HS  HIGH SPEED RAD CONTROLLER
     9969   01 02E72    00000200 A            DATA     512               EP  EXTENDED RAD CONTROLLER
     9970   01 02E73    00000200 A            DATA     512               SS  SLOW SPEED RAD CONTROLLER
     9971   01 02E74    00000196 A            DATA     406               DP (7240/7270)
     9972   01 02E75    00000196 A            DATA     406               DA (7272/DC32Q)
     9973   01 02E76    0000022B A            DATA     555               DB (T3281)
        1*  01 02E77    00000463 A            DATA     1123              DC - T3282                      *H00
        2*  01 02E78    0000032F A            DATA     815               DD - T3283                      *H00
        3*  01 02E79    0000022B A            DATA     555               DE - T328F                      *H01
     9974                                     BOUND    4
     9975   01 02E7A                          RES      RP:TPD+(RPSIZ)-%
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  180
A    9977                            *        TABLE OF DEVICES PER CONTROLLER

     9979   01 02E7C                 RP:DPC   RES,1    1
     9980   01 02E7C 1  04       A            DATA,1   4                 HS  HIGH SPEED RAD CONTROLLER
     9981   01 02E7C 2  08       A            DATA,1   8                 EP  EXTENDED RAD CONTROLLER
     9982   01 02E7C 3  08       A            DATA,1   8                 SS  SLOW SPEED RAD CONTROLLER
     9983   01 02E7D    08       A            DATA,1   8                 DP (7240/7270)
     9984   01 02E7D 1  08       A            DATA,1   8                 DA (7272/DC32Q)
     9985   01 02E7D 2  08       A            DATA,1   8                 DB (T3281)
        1*  01 02E7D 3  08       A            DATA,1   8                 DC - T3282                      *H00
        2*  01 02E7E    08       A            DATA,1   8                 DD - T3283                      *H00
        3*  01 02E7E 1  08       A            DATA,1   8                 DE - T328F                      *H01
     9986   01 02E7E 2  04       A            DATA,1   4                 BT (POTTER OR STC)
     9987   01 02E7E 3  08       A            DATA,1   8                 9T  9 TRACK TAPE
     9988   01 02E7F    08       A            DATA,1   8                 7T  7 TRACK TAPE
     9989                                     BOUND    4
     9990   01 02E80                          RES      RP:DPC+(RPSIZ/4)-%
     9991   01 02E7F                 RP:INC   RES,2    RPSIZ

     9993                                     BOUND    4
     9994   01 02E85                 RP:BUFS  RES,4    RPSIZ             BUFFERS/DEVICE
     9995   01 02E91                 RP:CDWS  RES,4    RPSIZ             CDWS/TRANSFER

     9997                            *        TABLE OF HEAD'S PER TRACK

     9999   01 02E9D                 RP:HPT   RES,1    1
    10000   01 02E9D 1  01       A            DATA,1   1                 HS
    10001   01 02E9D 2  01       A            DATA,1   1                 EP
    10002   01 02E9D 3  01       A            DATA,1   1                 SS
    10003   01 02E9E    14       A            DATA,1   20                DP
    10004   01 02E9E 1  14       A            DATA,1   20                RD  DPA
    10005   01 02E9E 2  1E       A            DATA,1   30                DB (T3281)
        1*  01 02E9E 3  1E       A            DATA,1   30                DC - T3282                      *H00
        2*  01 02E9F    13       A            DATA,1   19                DD - T3283                      *H00
        3*  01 02E9F 1  13       A            DATA,1   19                DE - T328F                      *H01
    10006                                     BOUND    4
    10007   01 02EA0                          RES      RP:HPT+(RPSIZ/4)-%

    10009                            *        TABLE OF SECTOR SHIFTS

    10011   01 02EA0                 RP:SS    RES,1    1                 SECTOR SHIFTS
    10012   01 02EA0 1  10       A            DATA,1   16                HS
    10013   01 02EA0 2  10       A            DATA,1   16                EP
    10014   01 02EA0 3  10       A            DATA,1   16                SS
    10015   01 02EA1    08       A            DATA,1   8                 DP
    10016   01 02EA1 1  08       A            DATA,1   8                 RD  DPA
    10017   01 02EA1 2  08       A            DATA,1   8                 RD  DPB
        1*  01 02EA1 3  08       A            DATA,1   8                 DC - T3282                      *H00
        2*  01 02EA2    08       A            DATA,1   8                 DD - T3283                      *H00
        3*  01 02EA2 1  08       A            DATA,1   8                 DE - T328F                      *H01
    10018                                     BOUND    4
    10019   01 02EA3                          RES      RP:SS+(RPSIZ/4)-%
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  181
A   10021                            *        TABLE OF HEAD SHIFTS

    10023   01 02EA3                 RP:HS    RES,1    1                 HEAD SHIFTS
    10024   01 02EA3 1  00       A            DATA,1   0                 HS
    10025   01 02EA3 2  00       A            DATA,1   0                 EP
    10026   01 02EA3 3  00       A            DATA,1   0                 SS
    10027   01 02EA4    08       A            DATA,1   8                 DP
    10028   01 02EA4 1  08       A            DATA,1   8                 RD  DPA
    10029   01 02EA4 2  08       A            DATA,1   8                 RD  DPB
        1*  01 02EA4 3  08       A            DATA,1   8                 DC - T3282                      *H00
        2*  01 02EA5    08       A            DATA,1   8                 DD - T3283                      *H00
        3*  01 02EA5 1  08       A            DATA,1   8                 DD - T328F                      *H01
    10030                                     BOUND    4
    10031   01 02EA6                          RES      RP:HS+(RPSIZ/4)-%

    10033                            *        TABLE  OF TRACK SHIFTS

    10035   01 02EA6                 RP:TS    RES,1    1                 TRACK SHIFTS
    10036   01 02EA6 1  17       A            DATA,1   23                HS
    10037   01 02EA6 2  14       A            DATA,1   20                EP
    10038   01 02EA6 3  14       A            DATA,1   20                SS
    10039   01 02EA7    10       A            DATA,1   16                DP
    10040   01 02EA7 1  10       A            DATA,1   16                RD  DPA
    10041   01 02EA7 2  10       A            DATA,1   16                RD  DPB
        1*  01 02EA7 3  10       A            DATA,1   16                DC - T3282                      *H00
        2*  01 02EA8    10       A            DATA,1   16                DD - T3283                      *H00
        3*  01 02EA8 1  10       A            DATA,1   16                DE - T328F                      *H01
    10042                                     BOUND    4
    10043   01 02EA9                          RES      RP:TS+(RPSIZ/4)-%
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  182
A   10045                            *        OPERATOR TABLE

    10047   01 02EA9    00000001 A   MSGDEV   DATA     1                 DEFAULT TO TTY
    10048   01 02EAA    00000050 A   LIMIT    DATA     80
    10049   01 02EAB    00000001 A   LOGDEV   DATA     1
    10050   01 02EAC    00010000 A   LOGLEV   DATA     X'10000'
    10051   01 02EAD    00040000 A   HLTLEV   DATA     X'40000'
    10052   01 02EAE    00000001 A   TTYDEV   DATA     1
    10053   01 02EAF    0000007F A   COCDEV   DATA     X'7F'             DEFAULT TO NON-EXISTANT DEV
    10054   01 02EB0    40000000 A   COCMX    DATA     X'40000000'
    10055   01 02EB1    00000000 A   COCSTATE DATA     0
    10056   01 02EB2    80000000 A   COCLINE  DATA     X'80000000'
    10057   01 02EB3    00000000 A   COCNR    DATA     0
    10058   01 02EB4    00000000 A   BASEDEV  DATA     0
    10059   01 02EB5    00000000 A   SORCEDEV DATA     0
    10060   01 02EB6    00000000 A   BASEX    DATA     0
    10061   01 02EB7    00000000 A   SORCEX   DATA     0
    10062   01 02EB8    00000000 A   BASETX   DATA     0

    10064                            *        TABLE OF COC LINE STATES INDEXED BY LINE NUMBER.

    10066   01 02EB9                 COCL     RES,1    X'40'
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  183
A   10068                            *        SYSTEM TABLE

    10070                                     BOUND    8
    10071   01 02ECA    00000000 A            DATA     0
    10072   01 02ECB    00000800 A   BLKSIZE  DATA     X'800'
    10073   01 02ECC    000007FC A   BUFSIZE  DATA     X'7FC'
    10074   01 02ECD    00000000 A   FIRSTBUF DATA     0
    10075   01 02ECE    00000000 A   STRTCORE DATA     0
    10076   01 02ECF    00000000 A   ENDCORE  DATA     0
        1*  01 02ED0    04000000 A   SYSMODE  GEN,8,24 XSNSX,0           DEFAULT SYSTEM MODE             *H02
    10078   01 02ED1    07000000 A   DATASEL  DATA     X'7000000'
    10079   01 02ED2    00000000 A   DATAMODE DATA     0
    10080   01 02ED3    00000000 A   SYSOP    DATA     0
    10081   01 02ED4    FF000000 A   CYCLER   DATA     X'FF000000'
    10082   01 02ED5    00000000 A   CYCLES   DATA     0
    10083   01 02ED6    FF000000 A   PASSER   DATA     X'FF000000'       SELECT PASSES 0 THRU 7
    10084   01 02ED7    00000000 A   PASSES   DATA     0
    10085   01 02ED8    F0000000 A   PHASER   DATA     X'F0000000'
    10086   01 02ED9    00000000 A   PHASES   DATA     0
    10087   01 02EDA    00050000 A   BON      GEN,16,16 5,0              BURST-ON TIME
    10088   01 02EDB    000A0000 A   BOF      GEN,16,16 10,0             BURST-OFF TIME
    10089   01 02EDC    00000080 A   MTLIMIT  DATA     X'80'
    10090   01 02EDD    00000000 A   PASSTIME DATA     0
    10091   01 02EDE    00000000 A   MEMSIZE  DATA     0                 MEMORY SIZE IN WORDS
    10092   01 02EDF    00000000 A   PMEMSIZE DATA     0                 MEMORY SIZE, THIS PASS
    10093   01 02EE0    00000000 A   MEMLIMIT DATA     0                 MAX MEMORY SIZE
    10094   01 02EE1    00000000 A   SYSERRST DATA     0                 I/O ERRORS, TOTAL
    10095   01 02EE2    00000000 A   SYSERRSP DATA     0                 I/O ERRORS, THIS PASS
        1*  01 02EE3    00000080 A   RCELIMIT DATA     X'80'             NUMBER OF SOFT-HITS TO DISPLAY  *H02

    10097                            *        ERROR FILE BUFFER

    10099                                     BOUND    8
    10100         01 02EE4           ERRBUF   EQU      %
    10101   01 02EE4    00002EE7     ERRFILE  DATA     ERRBUF0-1
    10102   01 02EE5    80FC8000 A            DATA     X'80008000'+X'10000'*(EBSIZ-4)
    10103   01 02EE6    00000000 A   EFSECTOR DATA     0
    10104   01 02EE7    00000000 A   REALTIME DATA     0
    10105   01 02EE8    00000000 A   ERRBUF0  DATA     0
    10106   01 02EE9                          RES      EBSIZ-4
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  184
A   10108                            *        CONTROLLER TABLE

    10110   01 02FE5                 CT:DA    RES,2    CTSIZ             DEVICE ADDRESS
    10111   01 02FEF                 CT:DS    RES,2    CTSIZ             DEVICE SELECTION
    10112   01 02FF9                 CT:OPS   RES,2    CTSIZ             OPERATION SELECTION
    10113   01 03003                 CT:CS    RES,2    CTSIZ             CONTROLLER STATUS
    10114   01 0300D                 CT:SEEK  RES,4    CTSIZ             CURRENT SEEK ADDRESS
    10115   01 03021                 CT:BUFAD RES,4    CTSIZ             CURRENT BUFFER ADDRESS
    10116   01 03035                 CT:COM   RES,4    CTSIZ             LOCATION OF COMMAND STRINGS
    10117   01 03049                 CT:MAP   RES,4    CTSIZ             LOCATION OF MAPS
    10118   01 0305D                 CT:ORD   RES,1    CTSIZ             CURRENT ORDER
    10119   01 03062                 CT:CA    RES,2    CTSIZ             CURRENT CONTROLLER ADDRESS
    10120   01 0306C                 CT:SEV   RES,1    CTSIZ             CURRENT ERRORS
    10121   01 03071                 CT:ETX   RES,1    CTSIZ             ELEMENT TABLE INDEX
    10122   01 03076                 CT:REL   RES,1    CTSIZ             RELATIVE CONTROLLER
    10123   01 0307B                 CT:DUAL  RES,1    CTSIZ             DUAL CONTROLLER RELATED CTX
    10124   01 03080                 CT:POS   RES,4    CTSIZ             CURRENT POSITION
    10125   01 03094                 CT:SENSE RES,4    CTSIZ             CURRENT SENSE ADDRESS
    10126   01 030A8                 CT:WAIT  RES,1    CTSIZ             DATA OVERRUN WAIT IN 1/16 SECS
    10127   01 030AD                 CT:PC    RES,1    CTSIZ             NR OF POSITIONS PER DEVICE
    10128   01 030B2                 CT:FT    RES,2    CTSIZ             CURRENT FAULT TIME OUT
    10129   01 030BC                 CT:RETRY RES,1    CTSIZ             CURRENT RETRY COUNT
    10130   01 030C1                 CT:SF    RES,1    CTSIZ             SURFACE SHIFT FACTOR

    10132                                     BOUND    8
    10133   01 030C6                 CT:TIO   RES,8    CTSIZ             TIO ERROR STATUS

    10135   01 030EE                 CT:SENSE1 RES,4   CTSIZ             EXTENDED SENSE
    10136   01 03102                 CT:SENSE2 RES,4   CTSIZ              INFORMATION (BYTES 4-15)
    10137   01 03116                 CT:SENSE3 RES,4   CTSIZ

    10139                            *        IOP TABLE

    10141   01 0312A                 IOPR     RES,1    IOPSIZ            DATA OVERRUN RESTRICTION
    10142   01 0312E                 IOPW     RES,1    IOPSIZ            LAST CONTROLLER RETIRED (CTX)
    10143   01 03132                 IOPKW    RES,2    IOPSIZ            CAPACITY (KWORDS/SEC)
    10144   01 0313A                 IOPRE    RES,4    IOPSIZ            COUNT OF RATE ERRORS

    10146   01 0314A                 INTERUPT RES,2    INTSIZ            INTERRUPT LEVELS

    10148   01 0314E                 MODTAB   RES,2    CTSIZ
    10149   01 03158                 WAYTAB   RES,1    CTSIZ
    10150   01 0315D                 AD1TAB   RES,2    CTSIZ
    10151   01 03167                 CT:MOD   RES,2    CTSIZ
    10152   01 03171                 CT:MNE   RES,2    CTSIZ

    10154                                     BOUND    8
    10155   01 0317C                 COMMAP   RES      32*CTSIZ          OVERFLOWS INTO CONFIGURATOR
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  185
A   10157   01 033FC    680033FD     CONFIG   B        %+1               SYSTEM RESET DURING CONFIG

    10159   01 033FD    73002EB1              MTB,0    COCSTATE          SKIP COC PROCESSING
    10160   01 033FE    68303421              BEZ      CONFIG0            IF ONE NOT PRESENT

    10162   01 033FF    6AF013D0              BAL,15   COCRST            ERASE COC FROM SYSTEM

    10164   01 03400    2210003F A            LI,1     X'3F'             RESET ALL LINES
    10165   01 03401    6AF019FA              BAL,15   COCLOFF            AND SET STATE AS SUCH
    10166   01 03402    64103401              BDR,1    %-1
    10167   01 03403    6AF019FA              BAL,15   COCLOFF

    10169   01 03404    68003421              B        CONFIG0

    10171   01 03405    32220000 A   INITIAL  LW,2     0,1
    10172   01 03406    69103421              BCS,1    CONFIG0
    10173   01 03407    32020005 A            LW,0     5,1               GET LOAD DEV ADDR
    10174   01 03408    35000025 A            STW,0    X'25'

    10176   01 03409    02200060 A            LCI      6                 LOAD REMOTE INFORMATION
    10177   01 0340A    2A92000D A            LM,9     13,1               FROM THE LOADER TABLES
    10178   01 0340B    35A02EAE              STW,10   TTYDEV
    10179   01 0340C    3190164C              CW,9     PIE                 AND SKIP IF NOT IN REMOTE
    10180   01 0340D    69303421              BNE      CONFIG0

    10182   01 0340E    35B02EAF              STW,11   COCDEV            SAVE COC ADDRESS
    10183   01 0340F    35D02EB1              STW,13   COCSTATE          SAVE COC STATE
    10184   01 03410    25E00018 A            SLS,14   24
    10185   01 03411    35E02EB2              STW,14   COCLINE           SAVE COC CONTROLLING LINE

    10187   01 03412    22F00003 A            LI,15    3                 SET ALL COC LINES
    10188   01 03413    2240003F A            LI,4     X'3F'              TO SOME PREDERMINED
    10189   01 03414    75F82EB9              STB,15   COCL,4              STATE
    10190   01 03415    64403414              BDR,4    %-1
    10191   01 03416    75F82EB9              STB,15   COCL,4

    10193   01 03417    72402EB2              LB,4     COCLINE           POINTER TO CONTROLLING
    10194   01 03418    72D0000D A            LB,13    13                 TERMINAL (IT WILL
    10195   01 03419    21D00080 A            CI,13    X'80'               REMAIN LOGGED-ON)
    10196   01 0341A    6940341E              BANZ     %+4

    10198   01 0341B    22400080 A            LI,4     X'80'             LOCAL TTY IS
    10199   01 0341C    75402EB2              STB,4    COCLINE            CONTROLLING TERMINAL
    10200   01 0341D    68003421              B        CONFIG0

    10202   01 0341E    75D82EB9              STB,13   COCL,4            SET CONTROLLER STATUS

    10204   01 0341F    22D00001 A            LI,13    1                 SET NUMBER OF USERS
    10205   01 03420    75D02EB3              STB,13   COCNR              CURRENTLY LOGGED ON

        1*  01 03421    0E803512     CONFIG0  LPSD,8   INITPSD           SET MA TO 1                     *H02
        2*  01 03422    0F003514     CONFIG3  XPSD,0   INITPSD1           SET EA AND MA TO 1             *H02
        3*  01 03423    32003515     CONFIG4  LW,0     INITPSD1+1          CHECK PREVIOUS MA             *H02
        4*  01 03424    4B001AC0              AND,0    BIT+8                (FOR LARGE PHYSICAL SPACE)   *H02
    10211   01 03425    68303428              BEZ      %+3                   SKIP IF 128K LIMIT
        1*  01 03426    32001AC1              LW,0     BIT+9                  ELSE SET 4KK LIMIT         *H01
    10213   01 03427    68003429              B        %+2
    10214   01 03428    22020000 A            LI,0     X'20000'          SET 128K LIMIT

    10216   01 03429    72102ED0              LB,1     SYSMODE           CHECK SYSTEM MODE BYTE
    10217   01 0342A    21100040 A            CI,1     XNOMEM             SKIP IF LARGE MEMORY
    10218   01 0342B    6840342D              BAZ      %+2                 IS ACCEPTABLE
    10219   01 0342C    22020000 A            LI,0     X'20000'             ELSE 128K LIMIT
    10220   01 0342D    35002EE0              STW,0    MEMLIMIT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  186
A   10222   01 0342E    2200344C              LI,0     LASTLOC
    10223   01 0342F    32101D59              LW,1     OBIDENT           OUT OF BOUNDS IDENT.
    10224   01 03430    15000028 A            STD,0    RECOVER           SET TRAP RETURN FOR MEMORY
    10225   01 03431    320033FC              LW,0     CONFIG            ADDRESS OF CONFIGURATOR
    10226   01 03432    35000026 A            STW,0    X'26'             SET SYSTEM RESET RECOVERY
    10227   01 03433    32000060 A            LW,0     X'60'             GET XPSD,0 TRAP0
    10228   01 03434    221FFF20 A            LI,1     -X'E0'
    10229   01 03435    35020140 A            STW,0    X'140',1          SPREAD FROM X'60' TO X'13F'
    10230   01 03436    65103435              BIR,1    %-1
    10231   01 03437    35102D21              STW,1    DATAPOS           RESET CONFIGURED INDICATOR
    10232   01 03438    32001AFC              LW,0     RUNPRMPT
    10233   01 03439    35002C8E              STW,0    BUFFER
    10234   01 0343A    6AF0019B              BAL,15   INITENV           INITIALIZE ENVIRONMENT
    10235   01 0343B    22200000 A            LI,2     0                  .
    10236   01 0343C    35202EB6              STW,2    BASEX
        1*  01 0343D    35202EB4              STW,2    BASEDEV                                           *H01
        2*  01 0343E    35202EB5              STW,2    SORCEDEV                                          *H01

    10237   01 0343F    22100008 A            LI,1     8                 CLEAR REGOPS, MAPOP,LOCKOP,
    10238   01 03440    35222BFF              STW,2    WK2,1                 SIGMA5, SIGMA9, BYTE,
    10239   01 03441    64103440              BDR,1    %-1                   LASTADR & LASTREG FLAGS.

    10240   01 03442    221FFBE9 A            LI,1     CT:DA-CONFIG
    10241   01 03443    352233FC              STW,2    CONFIG,1          CLEAR INTERMEDIATE
    10242   01 03444    65103443              BIR,1    %-1               TABLES.
    10243   01 03445    35202BEF              STW,2    COUNT

        1*  01 03446    20202000 A   INCMEM   AI,2     X'2000'           INCREMENT BY 8K                 *H01

    10246   01 03447    32340000 A            LW,3     0,2               TRAP IF END OF CORE
    10247   01 03448    31202EE0              CW,2     MEMLIMIT          TEST FOR END OF MEMORY
    10248   01 03449    69103446              BL       INCMEM             AND SKIP IF NOT

    10250   01 0344A    12002D12              LD,0     RECOVERY
    10251   01 0344B    15000028 A            STD,0    RECOVER           RESTORE RECOVER

    10253   01 0344C    35202EDE     LASTLOC  STW,2    MEMSIZE           FOUND LAST LOCATION+1
    10254   01 0344D    35202EDF              STW,2    PMEMSIZE
    10255   01 0344E    35201C4A              STW,2    MEMDES+1
    10256   01 0344F    22300002 A            LI,3     2
    10257   01 03450    75301C4A              STB,3    MEMDES+1
    10258   01 03451    25200002 A            SLS,2    2
    10259   01 03452    35201C12              STW,2    BYTDES+1
    10260   01 03453    35202ECF              STW,2    ENDCORE
    10261   01 03454    22300004 A            LI,3     4
    10262   01 03455    75301C12              STB,3    BYTDES+1

    10264   01 03456    07801FBF              CAL4,8   SEXMSG
    10265   01 03457    02000000 A            NOP

        1*  01 03458    32D02EDE              LW,13    MEMSIZE           COMPUTE LWA MEMORY              *H02
        2*  01 03459    20DFFFFF A            AI,13    -1                 AND DISPLAY FOR OPERATOR       *H02

        4*  01 0345A    326038B3              LW,6     X6200000          SIX HEX DIGITS                  *H02
        5*  01 0345B    22702F8C A            LI,7     BA(MSGMEM)+4-BA(BUFFER)                           *H02
        6*  01 0345C    6AF0183E              BAL,15   PUSH                                              *H02

        8*  01 0345D    226000D4 A            LI,6     'M'               RESTORE PUSH DAMAGE             *H02
        9*  01 0345E    756E2C8E              STB,6    BUFFER,7           TO MESSAGE ITSELF              *H02

       11*  01 0345F    07803870              CAL4,8   MSGMEM                                            *H02
       12*  01 03460    02000000 A            NOP      0,0                                               *H02
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  187
A   10272   01 03461    33102BEF              MTW,1    COUNT             SET COUNT
    10273   01 03462    22000087 A            LI,0     X'87'             MATH & NORMAL DATA
    10274   01 03463    75002ED1              STB,0    DATASEL
    10275   01 03464    328038AF              LW,8     GRP0LEVS
    10276   01 03465    5580314A              STH,8    INTERUPT          STORE GRP. 0 LEVS
    10277   01 03466    22A00000 A            LI,10    0                 SET CPU ADDR TO ZERO
    10278   01 03467    220034A2              LI,0     CHK5:7            SET UP RECOVER
    10279   01 03468    32101D5A              LW,1     NXIDENT           IF NOT SIGMA 8/9
    10280   01 03469    15000028 A            STD,0    RECOVER
    10281   01 0346A    02200080 A            LCI      8                 SET CC1-2 FOR WORD ALIGNMENT
    10282   01 0346B    2C8033FC              LRA,8    CONFIG            TRAPS IF SIGMA 5/6/7
    10283   01 0346C    22003478              LI,0     SIG9CPU           TEST FOR T-SERIES
    10284   01 0346D    32101D5A              LW,1     NXIDENT
    10285   01 0346E    15000028 A            STD,0    RECOVER

        2*  01 0346F    02200000 A            LCI      0                 STORE ENTIRE                    *H02
        3*  01 03470    271038B4              STBS     CONFGEND           BRANCH STACK                   *H02

    10287   01 03471    12002D12              LD,0     RECOVERY          NO TRAP IF T-SERIES
    10288   01 03472    15000028 A            STD,0    RECOVER
    10289   01 03473    5280314A              LH,8     INTERUPT
    10290   01 03474    49801B22              OR,8     X7C
    10291   01 03475    5580314A              STH,8    INTERUPT
    10292   01 03476    228F8501 A            LI,8     X'F8501'          T-SERIES CPU
    10293   01 03477    6800347B              B        T85GO

    10295   01 03478    12002D12     SIG9CPU  LD,0     RECOVERY
    10296   01 03479    15000028 A            STD,0    RECOVER           RESTORE RECOVER
    10297   01 0347A    228F8601 A            LI,8     X'F8601'          SIGMA 8/9 CPU

    10299   01 0347B    35802C04     T85GO    STW,8    SIGMA9            (SAVE MACHINE TYPE)
    10300   01 0347C    22801C00 A            LI,8     X'1C00'
    10301   01 0347D    35802C06              STW,8    LASTADR           STORE LAST IOP ADDR
    10302   01 0347E    228000F0 A            LI,8     X'F0'             16 REGISTER BLOCKS MAXIMUM
    10303   01 0347F    35802C07              STW,8    LASTREG           STORE LAST REG BLK #
    10304   01 03480    5280314A              LH,8     INTERUPT          GET GROUP 0 INT LEVELS
    10305   01 03481    49801ACD              OR,8     BIT+21            SET PROC.FAULT INT. LEV.
    10306   01 03482    5580314A              STH,8    INTERUPT          SAVE LEVELS
    10307   01 03483    22D000F9 A            LI,13    X'F9'             DEFINE A 9 FOR CPU MSG BUF

    10309   01 03484    6CA00045 A            RD,10    X'45'             GET CPU ADDR
    10310   01 03485    3200000A A            LW,0     10                SAVE 'INTERNAL CONTROLS' WORD
    10311   01 03486    31A01AC2              CW,10    BIT+10            IS IT A SIGMA 8
    10312   01 03487    68403489              BCR,4    %+2               NO
    10313   01 03488    20DFFFFF A            AI,13    -1

    10315   01 03489    49A038AC              OR,10    BIT345            SET BITS 3,4,5
    10316   01 0348A    25A00210 A            SCS,10   16
    10317   01 0348B    4BA01B20              AND,10   X1F00

    10319   01 0348C    31001ACA              CW,0     BIT+18            TEST FOR SIGMA 9 - MODEL 3
    10320   01 0348D    69403491              BCS,4    CPUAD1            BRANCH IF 'YES'
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  188
A   10322         01 0348E           CPUADDR  EQU      %
    10323   01 0348E    72002ED1              LB,0     DATASEL
    10324   01 0348F    49001AD3              OR,0     BIT+27            SET BYTE STRING INST BIT
    10325   01 03490    75002ED1              STB,0    DATASEL

    10327         01 03491           CPUAD1   EQU      %
    10328   01 03491    55A02FE5              STH,10   CT:DA
    10329   01 03492    55A03062              STH,10   CT:CA
        1*  01 03493    2200A040 A            LI,0     XCSEL+XSORSS+XBOMBA SELECT, SOURCE, AUTO BOMB     *H02
    10331   01 03494    55002FF9              STH,0    CT:OPS
    10332   01 03495    22008000 A            LI,0     X'8000'           SELECT CPU NUMBER 0
    10333   01 03496    55002FEF              STH,0    CT:DS              (EVENTUALLY MULTI-PROCESSOR)

    10335   01 03497    2210000A A            LI,1     10
    10336   01 03498    75D23847              STB,13   MSGCPU,1          STORE CPU TYPE # IN MSG BUF
    10337   01 03499    32802C04              LW,8     SIGMA9            DISTINGUISH BETWEEN
    10338   01 0349A    218F8501 A            CI,8     X'F8501'          SIGMA AND T-SERIES CPUS
    10339   01 0349B    6830349F              BE       T85CPU            (SKIP IF T-SERIES)
    10340   01 0349C    07823847              CAL4,8   MSGCPU,1          OUTPUT CPU TYPE
    10341   01 0349D    02000000 A            NOP
    10342   01 0349E    680034B7              B        CPUOPT            DETERMINE CPU OPTIONS

    10344   01 0349F    0782384B     T85CPU   CAL4,8   MSGT85,1
    10345   01 034A0    02000000 A            NOP
    10346   01 034A1    680034B7              B        CPUOPT            CONTINUE WITH OPTIONS

    10348         01 034A2           CHK5:7   EQU      %
    10349   01 034A2    22800800 A            LI,8     X'800'
    10350   01 034A3    35802C06              STW,8    LASTADR           STORE LAST IOP ADDR
    10351   01 034A4    228001F0 A            LI,8     X'1F0'
    10352   01 034A5    35802C07              STW,8    LASTREG           STORE LAST REG.BLK. #
    10353   01 034A6    220034B1              LI,0     SIG5CPU           SET UP RECOVER
    10354   01 034A7    32101D5A              LW,1     NXIDENT           FOR A SIGMA 5 CPU
    10355   01 034A8    15000028 A            STD,0    RECOVER
    10356   01 034A9    2280BF94              LI,8     BA(CT:DA)         SET UP FOR A MBS INST.
    10357   01 034AA    2290BF94              LI,9     BA(CT:DA)
    10358   01 034AB    73100009 A            MTB,1    9
    10359   01 034AC    61800000 A            MBS,8    0                 TRAP TO X'40' IF A SIGMA 5 CPU

    10361   01 034AD    12002D12              LD,0     RECOVERY          RESTORE RECOVER
    10362   01 034AE    15000028 A            STD,0    RECOVER
    10363   01 034AF    22D000F7 A            LI,13    X'F7'             DEFINE A 7 FOR CPU MSG BUF
    10364   01 034B0    6800348E              B        CPUADDR
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  189
A   10366         01 034B1           SIG5CPU  EQU      %
    10367   01 034B1    228F8201 A            LI,8     X'F8201'          LOAD SELL  #
    10368   01 034B2    35802C03              STW,8    SIGMA5            SET FLAG TO A NEG. VALUE
    10369   01 034B3    228000F0 A            LI,8     X'F0'             16 PAGES
    10370   01 034B4    35802C07              STW,8    LASTREG
    10371   01 034B5    22D000F5 A            LI,13    X'F5'             DEFINE A 5 FOR CPU MSG BUF
    10372   01 034B6    68003491              B        CPUAD1

    10374         01 034B7           CPUOPT   EQU      %
    10375   01 034B7    220034C3              LI,0     CHKDEC            SET RECOVER IF FLOATING
    10376   01 034B8    32101D5B              LW,1     NXIDENT+1         POINT OPTION NOT PRESENT
    10377   01 034B9    15000028 A            STD,0    RECOVER
    10378   01 034BA    22800000 A            LI,8     0
    10379   01 034BB    3D8038A1              FAS,8    FASDATA           TRAP TO X'41' IF NO FP OPTION
    10380   01 034BC    12002D12              LD,0     RECOVERY          RESTORE RECOVER
    10381   01 034BD    15000028 A            STD,0    RECOVER
    10382   01 034BE    72002ED1              LB,0     DATASEL
    10383   01 034BF    49001AD1              OR,0     BIT+25            SET FLOATING POINT BIT
    10384   01 034C0    75002ED1              STB,0    DATASEL
    10385   01 034C1    07823852              CAL4,8   MSGFP,1           OUTPUT FLOATING POINT MSG
    10386   01 034C2    02000000 A            NOP

    10388         01 034C3           CHKDEC   EQU      %                 CHECK DECIMAL OPTION
    10389   01 034C3    32802C03              LW,8     SIGMA5
    10390   01 034C4    693034D0              BNEZ     CHKRTC            SKIP THIS REST IF SIGMA 5 CPU
    10391   01 034C5    220034D0              LI,0     CHKRTC            SET RECOVER IF DECIMAL OPTION
    10392   01 034C6    32101D5B              LW,1     NXIDENT+1         NOT IMPLEMENTED
    10393   01 034C7    15000028 A            STD,0    RECOVER
    10394   01 034C8    7E1038A2              DL,1     DLDATA            TRAP TO X'41' IF NO DEC OPT.
    10395   01 034C9    12002D12              LD,0     RECOVERY          RESTORE RECOVER
    10396   01 034CA    15000028 A            STD,0    RECOVER
    10397   01 034CB    72002ED1              LB,0     DATASEL
    10398   01 034CC    49001AD2              OR,0     BIT+26            SET DECIMAL BIT
    10399   01 034CD    75002ED1              STB,0    DATASEL
    10400   01 034CE    07823857              CAL4,8   MSGDEC,1          OUTPUT DECIMAL MSG
    10401   01 034CF    02000000 A            NOP

    10403         01 034D0           CHKRTC   EQU      %                 CHECK CLOCK OPTION
    10404   01 034D0    22100000 A            LI,1     0
    10405   01 034D1    46102C59              XW,1     COUNT1            RESET COUNTER
    10406   01 034D2    351038AE              STW,1    SAVAD1            SAVE ORIGNAL CONTENTS
    10407   01 034D3    22100FFF A            LI,1     X'FFF'            SET UP DELAY COUNT
    10408   01 034D4    22808000 A            LI,8     X'8000'           ARM AND ENABLE CLOCK1
    10409   01 034D5    6D801200 A            WD,8     X'1200'           INT LEVEL
    10410   01 034D6    641034D6              BDR,1    %                 DELAY
    10411   01 034D7    6D801100 A            WD,8     X'1100'           DISABLE CLOCKS
    10412   01 034D8    32802C59              LW,8     COUNT1
    10413   01 034D9    683034DD              BEZ      CHKREG            IF COUNTER NOT CHANGED
    10414   01 034DA    5280314A              LH,8     INTERUPT
    10415   01 034DB    498038B0              OR,8     XC300             SET COUNTER 1 AND 2 BITS
    10416   01 034DC    5580314A              STH,8    INTERUPT          STORE IN INTERUPT TABLE
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  190
A   10418   01 034DD    328038AE     CHKREG   LW,8     SAVAD1
    10419   01 034DE    35802C59              STW,8    COUNT1            RESTORE COUNT1
    10420   01 034DF    22000000 A            LI,0     0
    10421   01 034E0    35002C00              STW,0    REGOPS            CLR REGOPS
    10422   01 034E1    350038A5              STW,0    REGBLK#           RESET REG BLOCK #

    10424         01 034E2           CHKRB    EQU      %
    10425   01 034E2    220034EE              LI,0     INCREG#           SET RECOVER
    10426   01 034E3    321038A3              LW,1     RBIDENT
    10427   01 034E4    15000028 A            STD,0    RECOVER
    10428   01 034E5    2F0038A5              LRP      REGBLK#           TRAP TO X'4D' IF NO REG BLK
    10429   01 034E6    32801AE9              LW,8     NOBITS+15         A REG IN THAT BLOCK IS REFRENCED
    10430   01 034E7    2180FFFF A            CI,8     X'FFFF'           THEN THAT REG WILL CONTAIN ALL
    10431   01 034E8    693034EE              BNE      INCREG#           0'S OR 1'S
    10432   01 034E9    327038A5              LW,7     REGBLK#
    10433   01 034EA    2570007C A            SLS,7    -4
    10434   01 034EB    32802C00              LW,8     REGOPS
    10435   01 034EC    498E1AB8              OR,8     BIT,7             SET REG BLK #
    10436   01 034ED    35802C00              STW,8    REGOPS            SAVE IT

    10438   01 034EE    2F001AD8     INCREG#  LRP      ZERO              LOAD REG BLK 0
    10439   01 034EF    12002D12              LD,0     RECOVERY
    10440   01 034F0    15000028 A            STD,0    RECOVER           RESTORE RECOVER
    10441   01 034F1    327038A5              LW,7     REGBLK#
    10442   01 034F2    20700010 A            AI,7     X'10'             INCREMENT REG BLOCK #
    10443   01 034F3    357038A5              STW,7    REGBLK#
    10444   01 034F4    31702C07              CW,7     LASTREG
    10445   01 034F5    682034E2              BLE      CHKRB             CHECK NEXT REG BLOCK

    10447   01 034F6    22D00000 A            LI,13    0                 CLEAR COUNTER
    10448   01 034F7    35D02C07              STW,13   LASTREG
    10449   01 034F8    35D02C08              STW,13   SLCTREG
    10450   01 034F9    32802C00              LW,8     REGOPS            GET REGISTER SELECTION BITS

    10452   01 034FA    25800001 A   SHIFTL   SLS,8    1                 SHIFT MASK LEFT
    10453   01 034FB    688034FE              BCR,8    NOONE              SKIP IF ZERO SHIFTED OUT
    10454   01 034FC    20D00001 A            AI,13    1                   ELSE INCREMENT NUMBER
    10455   01 034FD    680034FA              B        SHIFTL               OF PAGES PRESENT AND LOOP

    10457   01 034FE    07D2385A     NOONE    CAL4,13  MSGREG,1          NUMBER OF BLOCKS PRESENT
    10458   01 034FF    02000000 A            NOP
    10459   01 03500    68003501              B        CHKMAP            TEST MAP OPTION
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  191
A   10461         01 03501           CHKMAP   EQU      %                 TEST MAP OPTION
        1*  01 03501    32802C04              LW,8     SIGMA9             SKIP IF SIGMA 8/9 OR T-SERIES  *H02
        2*  01 03502    69303518              BNEZ     CHKIF8                                            *H02

        4*  01 03503    22800000 A            LI,8     0                 STORE INVALID INSTRUCTION       *H02
        5*  01 03504    35803FFF A            STW,8    X'3FFF'            IN TEST LOCATION (REAL)        *H02

        7*  01 03505    328038A7              LW,8     BROK              STORE VALID INSTRUCTION         *H02
        8*  01 03506    35803DFF A            STW,8    X'3DFF'            IN TEST LOCATION (VIRTUAL)     *H02

       10*  01 03507    2200351C              LI,0     LPSDINST          SETUP RECOVERY                  *H02
       11*  01 03508    32101D5A              LW,1     NXIDENT            IF TRAP OCCURS                 *H02
       12*  01 03509    15000028 A            STD,0    RECOVER                                           *H02

       14*  01 0350A    226038A8              LI,6     MAPIMAG           MAP 3000-3FFF                   *H02
       15*  01 0350B    327038AA              LW,7     CSTART                                            *H02
       16*  01 0350C    6F680000 A            MMC,6    4                                                 *H02

       18*  01 0350D    22800000 A            LI,8     0                 INITIALIZE FOR NO MAP           *H02
       19*  01 0350E    0E003510              LPSD,0   MAPMODE            AND ATTEMPT TO GO VIRTUAL      *H02

       21*                                    BOUND    8                                                 *H02
       22*  01 03510    00403FFF A   MAPMODE  DATA     X'00403FFF'       START AT VIRTUAL 3FFF           *H02
       23*  01 03511    07000000 A            DATA     X'07000000'        (REAL 3DFF)                    *H02

       25*  01 03512    00003422     INITPSD  DATA     CONFIG3           SET MA AND EA                   *H02
       26*  01 03513    07810000 A            DATA     X'07810000'                                       *H02

    10481   01 03514    00000000 A   INITPSD1 DATA     0
    10482   01 03515    00000000 A            DATA     0
    10483   01 03516    00003423              DATA     CONFIG4           SET MA AND EA TO 1
    10484   01 03517    07810000 A            DATA     X'07810000'        MAINTAIN INHIBITS

    10486         01 03518           CHKIF8   EQU      %
    10487   01 03518    6C800045 A            RD,8     X'45'
    10488   01 03519    4B801AC2              AND,8    BIT+10            SAVE SIG 8 BIT
    10489   01 0351A    69203527              BCS,2    CHKLOK            SKIP TEST IF SIGMA 8

    10491         01 0351B           MAPOPT   EQU      %
    10492   01 0351B    228FFFFF A            LI,8     -1                SET MAP IND.

    10494   01 0351C    0E00351E     LPSDINST LPSD,0   MASTMOD

    10496                                     BOUND    8
    10497   01 0351E    00003520     MASTMOD  DATA     %+2
    10498   01 0351F    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
    10499   01 03520    12002D12              LD,0     RECOVERY
    10500   01 03521    15000028 A            STD,0    RECOVER           RESTORE RECOVER
    10501   01 03522    218FFFFF A            CI,8     -1                MAP PRESENT
    10502   01 03523    69203527              BCS,2    CHKLOK            NO
    10503   01 03524    35802C01              STW,8    MAPOP             SAVE IT
    10504   01 03525    07823861              CAL4,8   MSGMAP,1          OUTPUT MAP MSG
    10505   01 03526    02000000 A            NOP

    10507   01 03527    2200353C     CHKLOK   LI,0     CHKINT
    10508   01 03528    32101D57              LW,1     OBIDENT-2         (PROTECTION VIOLATION)
    10509   01 03529    15000028 A            STD,0    RECOVER           SET UP RECOVER
    10510   01 0352A    22800001 A            LI,8     1                 SET WL=01 FOR PAGE 1F
    10511   01 0352B    22600008 A            LI,6     8
    10512   01 0352C    327038B1              LW,7     CSTART1
    10513   01 0352D    6F620000 A            MMC,6    1                 LOAD WL REGS
    10514   01 0352E    0E003530              LPSD,0   KEY1              SET WK=01

    10516                                     BOUND    8
    10517   01 03530    00003532     KEY1     DATA     %+2               ATTEMPT WRITE IN PAGE 1F
    10518   01 03531    17810000 A            DATA     X'17810000'       WK=WL=01, REAL EXTENDED
    10519   01 03532    35803E00 A            STW,8    X'3E00'
    10520   01 03533    0E003534              LPSD,0   KEY0
    10521   01 03534    00003536     KEY0     DATA     %+2
    10522   01 03535    07810000 A            DATA     X'07810000'       INHIBIT, REAL EXTENDED
    10523   01 03536    220FFFFF A            LI,0     -1
    10524   01 03537    35002C02              STW,0    LOCKOP            SET LOCK OPTION PRESENT
    10525   01 03538    12002D12              LD,0     RECOVERY
    10526   01 03539    15000028 A            STD,0    RECOVER           RESTORE RECOVER
    10527   01 0353A    07823863              CAL4,8   MSGWL,1           OUTPUT WRITE LOCK MSG
    10528   01 0353B    02000000 A            NOP
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  192
A   10530         01 0353C           CHKINT   EQU      %
    10531   01 0353C    6D000021 A            WD,0     X'21'             RESET EI INHIBIT
    10532   01 0353D    22700002 A            LI,7     2                 SET GROUP # TO 2

    10534         01 0353E           NXTGRUP  EQU      %
    10535   01 0353E    22000000 A            LI,0     0
    10536   01 0353F    350038AB              STW,0    LEVCNT            RESET LEVEL COUNTER
    10537   01 03540    22A08000 A            LI,10    X'8000'           LEVEL 0

    10539         01 03541           NXTLEVEL EQU      %
    10540   01 03541    22003564              LI,0     EXTINT            SET UP RECOVER FOR EXT INTERRUPT
    10541   01 03542    321038A4              LW,1     INTIDENT
    10542   01 03543    15000028 A            STD,0    RECOVER
    10543   01 03544    22B00010 A            LI,11    X'10'
    10544   01 03545    6DAE1200 A            WD,10    X'1200',7         ARM AND ENABLE
    10545   01 03546    6DAE1700 A            WD,10    X'1700',7         TRIGGER INT LEVEL
    10546   01 03547    64B03547              BDR,11   %                 DELAY
    10547   01 03548    6DAE1100 A            WD,10    X'1100',7         DISARM INT LEVEL
    10548   01 03549    12002D12              LD,0     RECOVERY
    10549   01 0354A    15000028 A            STD,0    RECOVER           RESTORE RECOVER

    10551         01 0354B           LASTLEV  EQU      %
    10552   01 0354B    21A00001 A            CI,10    1
    10553   01 0354C    6830354F              BE       YESLAST           YES
    10554   01 0354D    25A0007F A            SLS,10   -1                SET BIT FOR NEXT LEVEL
    10555   01 0354E    68003541              B        NXTLEVEL          CHECK NEXT LEVEL
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  193
A   10557         01 0354F           YESLAST  EQU      %
    10558   01 0354F    328038AB              LW,8     LEVCNT            STORE LEVEL COUNT
    10559   01 03550    558E314A              STH,8    INTERUPT,7        IN INTERUPT TABLE
    10560   01 03551    2170000F A            CI,7     X'F'
    10561   01 03552    69303562              BNE      INCRGRP           INCR GRP # IF NOT LAST GRP
    10562   01 03553    6D000031 A            WD,0     X'31'             SET EI INHIBIT
    10563   01 03554    22400000 A            LI,4     0                 CLEAR INDEX

    10565   01 03555    52D8314A     GETLEV   LH,13    INTERUPT,4        GET INT LEVELS OF A GROUP
    10566   01 03556    6830355E              BCR,3    CHKLAST           CHECK IF LAST
    10567   01 03557    4BD01AE9              AND,13   NOBITS+15
    10568   01 03558    22702F7F A            LI,7     BA(MSGGRP)-BA(BUFFER)+27
    10569   01 03559    32601B05              LW,6     X4200000
    10570   01 0355A    6AF0183E              BAL,15   PUSH
    10571   01 0355B    32D00004 A            LW,13    4                 LOAD GROUP #
    10572   01 0355C    07D23867              CAL4,13  MSGGRP,1          OUTPUT GROUP # MSG
    10573   01 0355D    02000000 A            NOP

    10575   01 0355E    20400001 A   CHKLAST  AI,4     1                 INCR GROUP #
    10576   01 0355F    21400010 A            CI,4     X'10'             DONE
    10577   01 03560    69303555              BCS,3    GETLEV            NOT YET
    10578   01 03561    68003567              B        CHKIOP            DO IOP CHECKS

    10580         01 03562           INCRGRP  EQU      %
    10581   01 03562    20700001 A            AI,7     1                 INCREMENT GROUP #
    10582   01 03563    6800353E              B        NXTGRUP           CHECK NEXT GROUP

    10584         01 03564           EXTINT   EQU      %
    10585   01 03564    6DAE1100 A            WD,10    X'1100',7         DISARM INT LEVEL
    10586   01 03565    66A038AB              AWM,10   LEVCNT            ADD TO LEVEL COUNT
    10587   01 03566    6800354B              B        LASTLEV
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  194
A   10589                            *        DETERMINE IOP TYPE'S

    10591   01 03567    22800000 A   CHKIOP   LI,8     0
    10592   01 03568    22C00000 A   TESTIOP0 LI,12    0
    10593   01 03569    35C00020 A            STW,12   X'20'             PRESET LOC 20
    10594   01 0356A    22900064 A            LI,9     100               ANTICIPATE IIOP
    10595   01 0356B    CDC00008 A            TIO,12   *8
    10596   01 0356C    32C00020 A            LW,12    X'20'
    10597   01 0356D    68303584              BCR,3    IOP               IIOP
    10598   01 0356E    35C038A6              STW,12   SAVX20            SAVE RESPONSE
    10599   01 0356F    2290007D A            LI,9     125               ANTICIPATE MIOP
    10600   01 03570    33002C04              MTW,0    SIGMA9            SIGMA 9
    10601   01 03571    68103573              BCR,1    %+2               NO
    10602   01 03572    22900096 A            LI,9     150
    10603   01 03573    CDC00008 A   TESTIOP1 TIO,12   *8                ADDRESS RESPONSE
    10604   01 03574    6880357C              BCR,8    TESTIOP2+1        YES
    10605   01 03575    20800001 A   TESTIOP3 AI,8     1
    10606   01 03576    218000FF A            CI,8     X'FF'             ANY MORE ADDS ON IOP
    10607   01 03577    69403573              BCS,4    TESTIOP1          YES
    10608   01 03578    31802C06              CW,8     LASTADR           DONE YET
    10609   01 03579    69103568              BCS,1    TESTIOP0          NO
    10610   01 0357A    6800358C              B        CHKMUC

    10612   01 0357B    CDC00008 A   TESTIOP2 TIO,12   *8
    10613   01 0357C    32C00020 A            LW,12    X'20'
    10614   01 0357D    31C038A6              CW,12    SAVX20            SAME AS FIRST RESPONSE
    10615   01 0357E    69303584              BCS,3    IOP               NO-MUST BE MIOP
    10616   01 0357F    20800001 A            AI,8     1
    10617   01 03580    218000FF A            CI,8     X'FF'             ANY MORE ADDS ON IOP
    10618   01 03581    6940357B              BCS,4    TESTIOP2          YES
    10619   01 03582    229002EE A            LI,9     750               IS AN SIOP
    10620   01 03583    208FFFFF A            AI,8     -1
    10621   01 03584    32300008 A   IOP      LW,3     8
    10622   01 03585    25300078 A            SLS,3    -8
    10623   01 03586    55963132              STH,9    IOPKW,3
    10624   01 03587    22900000 A            LI,9     0                 CLEAR COUNT OF
    10625   01 03588    3596313A              STW,9    IOPRE,3            DATA OVERRUNS
    10626   01 03589    49801AF1              OR,8     NOBITS+23
    10627   01 0358A    358038AE              STW,8    SAVAD1            SAVE ADDR
    10628   01 0358B    68003575              B        TESTIOP3
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  195
A   10630         01 0358C           CHKMUC   EQU      %
    10631   01 0358C    22D00000 A            LI,13    0
    10632   01 0358D    35D038B2              STW,13   DUPSCFLG          CLEAR FLAG

    10634   01 0358E    20D00001 A   INCDEV#  AI,13    1                 INCR ADDR

    10636   01 0358F    72B02EB1     INCDEV#1 LB,11    COCSTATE          SKIP IF COC NOT PRESENT
    10637   01 03590    68303597              BEZ      INCDEV#2

    10639   01 03591    31D02EAF              CW,13    COCDEV            ELSE DO NOT CONFIGURE
    10640   01 03592    69303597              BNE      INCDEV#2           THE COC DEVICE

    10642   01 03593    21D00080 A            CI,13    X'80'             LOOK FOR MUC
    10643   01 03594    6840358E              BAZ      INCDEV#            AND SKIP IF NOT

    10645   01 03595    20D00010 A            AI,13    X'10'             ELSE SKIP TO NEXT MUC
    10646   01 03596    6800358F              B        INCDEV#1

    10648   01 03597    31D02EAE     INCDEV#2 CW,13    TTYDEV
    10649   01 03598    6830358E              BCR,3    INCDEV#           IGNORE IF TTYDEV
    10650   01 03599    31D038AE              CW,13    SAVAD1            LAST I/O ADDR
    10651   01 0359A    6920364C              BCS,2    CONFIG1           YES
    10652   01 0359B    21D00080 A            CI,13    X'80'             MUC
    10653   01 0359C    694035A3              BCS,4    YESMUC            YES
    10654   01 0359D    31D00025 A            CW,13    X'25'             SAME AS LOAD DEV?
    10655   01 0359E    683035EE              BCR,3    YESCR             MUST BE CR
    10656   01 0359F    21D00020 A            CI,13    X'20'             LAST DEV # CHECKED
    10657   01 035A0    684035A3              BCR,4    YESMUC            NO
    10658   01 035A1    48D01AD2              EOR,13   BIT+26            RESET BIT
    10659   01 035A2    49D01AD0              OR,13    BIT+24            SET MUC BIT

    10661   01 035A3    CF00000D A   YESMUC   HIO,0    *13
    10662   01 035A4    CDB0000D A            TIO,11   *13
    10663   01 035A5    6980358E              BCS,8    INCDEV#           NO ADDR RECOGNITION

    10665   01 035A6    31B01ABB              CW,11    BIT+3             AUTO MODE
        1*  01 035A7    6840358E              BAZ      INCDEV#           MANUAL - NOT CONFIGURED         *H01
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  196
A   10672   01 035A8    21D00080 A   AUTOMOD  CI,13    X'80'             MUC
    10673   01 035A9    684035CC              BCR,4    NOTMUC            NO
    10674   01 035AA    328038B2              LW,8     DUPSCFLG          IF FLAG SET
    10675   01 035AB    693035B9              BNEZ     MUCTYPE           SJIP
    10676   01 035AC    3280000D A            LW,8     13                GET ADDR
    10677   01 035AD    25800178 A            SLD,8    -8                SHIFT SUCH THAT SUB CHANEL BITS
    10678   01 035AE    4B901ADA              AND,9    NOBITS            OF MUC BECOME THE
    10679   01 035AF    25800004 A            SLS,8    4                 DEV. # BITS
    10680   01 035B0    25800104 A            SLD,8    4
    10681   01 035B1    CD000008 A            TIO,0    *8                IF PERIPHERAL ADDR NOT RECOG.
    10682   01 035B2    698035B9              BCS,8    MUCTYPE           NO ILLEGAL CONFIGURATION
    10683   01 035B3    07D2383E              CAL4,13  CHANLMSG,1        OUTPUT DUP CHANNEL MSG
    10684   01 035B4    02000000 A            NOP      0
    10685   01 035B5    46D00008 A            XW,13    8
    10686   01 035B6    07D2383E              CAL4,13  CHANLMSG,1
    10687   01 035B7    02000000 A            NOP      0
    10688   01 035B8    46D00008 A            XW,13    8

    10690         01 035B9           MUCTYPE  EQU      %
    10691   01 035B9    31B01B16              CW,11    Y6                DEV OPERATIONAL
    10692   01 035BA    684035BF              BCR,4    FINDMUC           YES
    10693   01 035BB    331038B2              MTW,1    DUPSCFLG          SET FLAG

    10695   01 035BC    07D21F1A     NOTOP    CAL4,13  DEVNOP,1          OUTPUT NOT OPERATIONAL MSG
    10696   01 035BD    02000000 A            NOP
    10697   01 035BE    6800358E              B        INCDEV#

    10699   01 035BF    6AF035F4     FINDMUC  BAL,15   MUCFIND           FIND TYPE OF MULTI UNIT CONT.
    10700   01 035C0    4BD01B21              AND,13   X1FF0             ZERO OUT DEV #

    10702   01 035C1    32102BEF     GETCNT   LW,1     COUNT             GET COUNT
    10703   01 035C2    55D2315D              STH,13   AD1TAB,1          STORE ADDR
    10704   01 035C3    6AF037AF              BAL,15   FINDETX           FIND ETX AND SAVE IT
    10705   01 035C4    33102BEF              MTW,1    COUNT             NORMAL RETURN;INCR COUNT
    10706   01 035C5    02000000 A            NOP                        ERROR RETURN
    10707   01 035C6    21D00080 A            CI,13    X'80'             MUC ?
    10708   01 035C7    6840358E              BCR,4    INCDEV#           NO
    10709   01 035C8    20D00010 A            AI,13    X'10'
    10710   01 035C9    22000000 A            LI,0     0
    10711   01 035CA    350038B2              STW,0    DUPSCFLG          RESET DUP CH FLAG
    10712   01 035CB    6800358F              B        INCDEV#1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  197
A   10714   01 035CC    31B01B17     NOTMUC   CW,11    Y66               DEVICE OPERATIONAL ?
    10715   01 035CD    694035BC              BCS,4    NOTOP
    10716   01 035CE    22400000 A            LI,4     0
    10717   01 035CF    225FFFFC A            LI,5     -4
    10718   01 035D0    7288389F     GETORD   LB,8     ORDERS,4          GET ORDER
    10719   01 035D1    758037D6              STB,8    CPSIO
    10720   01 035D2    22001BEB              LI,0     DA(CPSIO)
    10721   01 035D3    22EF8000 A            LI,14    X'F8000'
    10722   01 035D4    CC00000D A            SIO,0    *13
    10723   01 035D5    CDA0000D A   DOTIO    TIO,10   *13
    10724   01 035D6    31A00000 A            CW,10    0
    10725   01 035D7    683035DA              BE       ORDEROUT          ORDER OUT OCCURS WHEN
    10726   01 035D8    65E035D5              BIR,14   DOTIO              DA-RETURNED .EQ. DA-GIVEN
    10727   01 035D9    680035F0              B        HELP              UNABLE TO CONFIGURE

    10729   01 035DA    31B01ABC     ORDEROUT CW,11    BIT+4             UNUSUAL END?
    10730   01 035DB    684035E0              BCR,4    NOUE
    10731   01 035DC    CF00000D A            HIO,0    *13               YES, HALT DEVICE
    10732   01 035DD    20400001 A            AI,4     1                 TRY NEXT ORDER
    10733   01 035DE    655035D0              BIR,5    GETORD
    10734   01 035DF    680035F0              B        HELP              CANNOT CONFIGUR DEV

    10736   01 035E0    218000FF A   NOUE     CI,8     X'FF'             IF ORDER=X'FF'
    10737   01 035E1    683035F0              BCR,3    HELP              CANNOT TELL
    10738   01 035E2    21800003 A            CI,8     3                 IF ORDER=3
    10739   01 035E3    683035EC              BCR,3    YESLP             IT IS A LP
    10740   01 035E4    21800002 A            CI,8     2                 IF ORDER=2
    10741   01 035E5    683035EE              BCR,3    YESCR             IT IS A CR
    10742   01 035E6    22907165 A            LI,9     X'7165'           CP
    10743   01 035E7    CEB0000D A            TDV,11   *13               GET STATUS
    10744   01 035E8    31B01ABC              CW,11    BIT+4
    10745   01 035E9    684035EB              BCR,4    %+2
    10746   01 035EA    22907160 A            LI,9     X'7160'
    10747   01 035EB    680035C1              B        GETCNT

    10749   01 035EC    22907445 A   YESLP    LI,9     X'7445'           LP MODEL #
    10750   01 035ED    680035C1              B        GETCNT

    10752   01 035EE    22907140 A   YESCR    LI,9     X'7140'           CR MODEL #
    10753   01 035EF    680035C1              B        GETCNT

    10755   01 035F0    07D23802     HELP     CAL4,13  HELPMSG,1         OUTPUT CANNOT CONFIGUR MSG
    10756   01 035F1    02000000 A            NOP
    10757   01 035F2    CF00000D A            HIO,0    *13
    10758   01 035F3    6800358E              B        INCDEV#
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  198
A   10760         01 035F4           MUCFIND  EQU      %                 RESTORE AND READ HEADER
    10761   01 035F4    22001BEC              LI,0     DA(CPSEEK0)       FOR DISKS, REWIND FOR TAPES
    10762   01 035F5    6AE03643              BAL,14   SEEKSIO1          (NOP FOR RADS)

    10764   01 035F6    32C01B1C              LW,12    X5C0000           ISSUE 4 BYTE SEEK TO
    10765   01 035F7    6AE03642              BAL,14   SEEKSIO           DETERMINE TYPE OF MUC

    10767   01 035F8    31901AD7              CW,9     BIT+31            IF BC=3
    10768   01 035F9    6940363A              BCS,4    MAGTAP9           IT IS A 9T CONTROLLER
    10769   01 035FA    31901AD5              CW,9     BIT+29            IF BYTE COUNT REMAINING IS 4
    10770   01 035FB    6940363C              BCS,4    MAGTAP7           IT IS A 7T CONTROLLER
    10771   01 035FC    31901AD6              CW,9     BIT+30            IF BC=2
    10772   01 035FD    6940361B              BCS,4    EPSS              BRANCH FOR MORE CHECKS
    10773   01 035FE    31901ABA              CW,9     BIT+2             SECTOR UNAVAILABLE?
    10774   01 035FF    6940362F              BCS,4    HS                YES-IT IS A  HS RAD

    10776   01 03600    22C00007 A   DISC     LI,12    X'07'             CYL:0, TRK:0, SEC:7
    10777   01 03601    22001BEE              LI,0     DA(CPSEEK1)        ISSUE READ/SEEK
    10778   01 03602    6AE03643              BAL,14   SEEKSIO1

    10780   01 03603    31901ABA              CW,9     BIT+2             SKIP IF SECTOR UNAVAILABLE
    10781   01 03604    69403623              BANZ     CDC                (EITHER CDC OR ISS DISK)

    10783   01 03605    32C037E8              LW,12    CYL406            SEEK: CYL-406, TRK-0, SEC-0
    10784   01 03606    6AE03643              BAL,14   SEEKSIO1

    10786   01 03607    31901ABA              CW,9     BIT+2             SECTOR UNAVAILABLE?
    10787   01 03608    6940361F              BANZ     DC32Q              YES - MUST BE DC32Q

        1*  01 03609    32C037E7              LW,12    CYL555            SEEK: CYL-555, TRK-0, SEC-0     *H00
        2*  01 0360A    6AE03643              BAL,14   SEEKSIO1                                          *H00

        4*  01 0360B    31901ABA              CW,9     BIT+2             SECTOR UNAVAILABLE?             *H00
        5*  01 0360C    69403617              BANZ     T3281              YES - MUST BE 3281             *H00

        7*  01 0360D    32C037E6              LW,12    CYL815            SEEK: CYL-815, TRK-0, SEC-0     *H00
        8*  01 0360E    6AE03643              BAL,14   SEEKSIO1                                          *H00

       10*  01 0360F    31901ABA              CW,9     BIT+2             SECTOR UNAVAILABLE?             *H00
       11*  01 03610    69403613              BANZ     T3283              YES - MUST BE 3283             *H00

       13*  01 03611    22903282 A            LI,9     X'3282'           SET DC - T3282                  *H00
       14*  01 03612    E800000F A            B        *15                                               *H00

       16*  01 03613    22001BEC     T3283    LI,0     DA(CPSEEK0)       RESTORE CARRIAGE                *H00
       17*  01 03614    6AE03643              BAL,14   SEEKSIO1           TO AVOID PROBLEMS              *H00

       19*  01 03615    22903283 A            LI,9     X'3283'           SET DD - T3283                  *H00
       20*  01 03616    E800000F A            B        *15                                               *H00

       22*  01 03617    22001BEC     T3281    LI,0     DA(CPSEEK0)       RESTORE CARRIAGE                *H00
       23*  01 03618    6AE03643              BAL,14   SEEKSIO1           TO AVOID PROBLEMS              *H00

       25*  01 03619    22903281 A            LI,9     X'3281'           SET DB - T3281                  *H00
       26*  01 0361A    E800000F A            B        *15                                               *H00
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  199
A   10792   01 0361B    31901ABA     EPSS     CW,9     BIT+2             IF SECTOR UNAVAILABLE BIT SET
    10793   01 0361C    69403631              BCS,4    EPRAD             IT IS A EP RAD

    10795   01 0361D    22907201 A            LI,9     X'7201'           LOAD MODEL # OF MEDIUM SPEED RAD
    10796   01 0361E    E800000F A            B        *15               EXIT

    10798         01 0361F           DC32Q    EQU      %                 DC32Q KNOWN AS 7272
    10799   01 0361F    22001BEC              LI,0     DA(CPSEEK0)       RESTORE CARRIAGE
    10800   01 03620    6AE03643              BAL,14   SEEKSIO1           TO AVOID PROBLEMS

    10802   01 03621    22907272 A            LI,9     X'7272'           DESIGNATION FOR DC32Q - D225
    10803   01 03622    E800000F A            B        *15

    10805         01 03623           CDC      EQU      %
    10806   01 03623    22001BEC              LI,0     DA(CPSEEK0)       RESTORE/READ TO AVOID
    10807   01 03624    6AE03643              BAL,14   SEEKSIO1           PROBLEMS WITH LATER I/O

    10809   01 03625    32C037E9              LW,12    CYL203            SEEK: CYL-203, TRK-0, SEC-0
    10810   01 03626    6AE03642              BAL,14   SEEKSIO            DO SIMPLE SEEK

    10812   01 03627    31901ABA              CW,9     BIT+2             SKIP IF SECTOR AVAILABLE
    10813   01 03628    6840362D              BAZ      ISS

    10815   01 03629    22001BEC              LI,0     DA(CPSEEK0)       RESTORE CARRIAGE
    10816   01 0362A    6AE03643              BAL,14   SEEKSIO1           TO AVOID PROBLEMS

    10818   01 0362B    22907240 A            LI,9     X'7240'           DESIGNATE CDC DRIVE
    10819   01 0362C    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  200
A   10821         01 0362D           ISS      EQU      %
    10822   01 0362D    22907270 A            LI,9     X'7270'           DESIGNATE ISS DRIVE
    10823   01 0362E    E800000F A            B        *15

    10825   01 0362F    22907211 A   HS       LI,9     X'7211'           HS RAD MODEL #
    10826   01 03630    E800000F A            B        *15               EXIT

    10828         01 03631           EPRAD    EQU      %
    10829   01 03631    22C00000 A            LI,12    0                 SET T=0;S=0
    10830   01 03632    22001BF1              LI,0     DA(CPSEEK2)
    10831   01 03633    6AE03643              BAL,14   SEEKSIO1          SEEK & READ 3 BYTES
    10832   01 03634    2190FFFF A            CI,9     X'FFFF'           IF BYTE COUNT NOT 0
    10833   01 03635    69403638              BCS,4    EP4BYT            IT IS A 4 BYTE EP RAD
    10834   01 03636    22907231 A            LI,9     X'7231'
    10835   01 03637    E800000F A            B        *15               EXIT

    10837         01 03638           EP4BYT   EQU      %
    10838   01 03638    22907235 A            LI,9     X'7235'           LOAD MODEL #
    10839   01 03639    E800000F A            B        *15               EXIT

    10841         01 0363A           MAGTAP9  EQU      %
    10842   01 0363A    22907320 A            LI,9     X'7320'           LOAD 9T MODEL #
    10843   01 0363B    E800000F A            B        *15

    10845   01 0363C    31901ABC     MAGTAP7  CW,9     BIT+4             BIT 4 OF TDV STATUS SET
    10846   01 0363D    69403640              BCS,4    BDPTAPE           YES, MUST BE 7330
    10847   01 0363E    22907361 A            LI,9     X'7361'           LOAD 7T MODEL #
    10848   01 0363F    E800000F A            B        *15

    10850   01 03640    22907330 A   BDPTAPE  LI,9     X'7330'
    10851   01 03641    E800000F A            B        *15

    10853                            ****     THIS ROUTINE ISSUES A SEEK ORDER

    10855   01 03642    22001BF0     SEEKSIO  LI,0     DA(CPSEEK)        STORE IOCD ADDR
    10856   01 03643    35C0389D     SEEKSIO1 STW,12   SEEKDATA          STORE SEEK ADDRESS
    10857   01 03644    CCA0000D A            SIO,10   *13               ISSUE SEEK
    10858   01 03645    69403644              BCS,4    %-1               NOT YET
    10859   01 03646    CDA0000D A   SEEKSIO2 TIO,10   *13
    10860   01 03647    69C03646              BCS,8+4  %-1               DELAY FOR CHANNEL-END
    10861   01 03648    31B01AB9              CW,11    BIT+1             IS DEVICE BUSY
    10862   01 03649    69403646              BCS,4    SEEKSIO2          YES
    10863   01 0364A    CE80000D A            TDV,8    *13
    10864   01 0364B    E800000E A            B        *14               EXIT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  201
A   10866         01 0364C           CONFIG1  EQU      %
    10867   01 0364C    33F02BEF              MTW,-1   COUNT             DECR COUNT
    10868   01 0364D    07A01C86              CAL4,10  CFDES             OUTPUT CURRENT CONFIG  TO TTY
    10869   01 0364E    02002BEE              NOP      CONQS

    10871   01 0364F    33102BEF     GETCARD  MTW,1    COUNT

    10873   01 03650    6AF03784     NOCNTINC BAL,15   TTYHAN            READ A CARD
    10874   01 03651    32102BEF              LW,1     COUNT
    10875   01 03652    5292314E              LH,9     MODTAB,1          GET MODEL #
    10876   01 03653    22200000 A            LI,2     0                 SET DEV. # =0
    10877   01 03654    21D00080 A            CI,13    X'80'             SKIP IF NOT A MUC
    10878   01 03655    68403658              BCR,4    %+3
    10879   01 03656    4BD01B21              AND,13   X1FF0             ZERO OUT DEV . #
    10880   01 03657    22200010 A            LI,2     16                SET DEV COUNT TO 16
    10881   01 03658    55D2315D              STH,13   AD1TAB,1          STORE ADDR IN TABLE
    10882   01 03659    6800365C              B        CHKADR
    10883   01 0365A    51D2315D              CH,13    AD1TAB,1          SERCH FOR ADR IN AD1TAB
    10884   01 0365B    68303669              BE       INADTAB           CHECK IF DUPLICAT ADR

    10886   01 0365C    6410365A     CHKADR   BDR,1    %-2               SERCH REMAINING TABLE
    10887   01 0365D    32102BEF              LW,1     COUNT

    10889         01 0365E           TIOCHK   EQU      %
    10890   01 0365E    CD00000D A            TIO,0    *13
    10891   01 0365F    68803663              BCR,8    DEVTHER
    10892   01 03660    20D00001 A            AI,13    1
    10893   01 03661    6420365E              BDR,2    TIOCHK
    10894   01 03662    680037A9              B        DVRECEX           REPORT DC ADDR NOT RECOGNISED

    10896         01 03663           DEVTHER  EQU      %
    10897   01 03663    6AF037AF              BAL,15   FINDETX           CHK MOD#;FIND ETX & SAVE IT
    10898   01 03664    6800364F              B        GETCARD           NORMAL RETURN

    10900   01 03665    02000000 A   INVALID# NOP                        ERROR RETURN
    10901   01 03666    078037EF              CAL4,8   NODEVMES          REPORT INVALID MODEL #
    10902   01 03667    02000000 A            NOP      0
    10903   01 03668    680037AC              B        CARDERR

    10905         01 03669           INADTAB  EQU      %
    10906   01 03669    5282314E              LH,8     MODTAB,1
    10907   01 0366A    31800009 A            CW,8     9                 CHECK IF SAME MODEL #
    10908   01 0366B    68303650              BE       NOCNTINC          IGNORE CARD IF YES

    10910   01 0366C    6AF037AF     CHNGMOD# BAL,15   FINDETX           CHK MOD#;FIND ETX & SAVE IT
    10911   01 0366D    68003650              B        NOCNTINC          NORMAL RETURN
    10912   01 0366E    68003665              B        INVALID#          ERROR RETURN
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  202
A   10914         01 0366F           CONFIG2  EQU      %
    10915   01 0366F    33F02BEF              MTW,-1   COUNT             GET CORRECT COUNT
    10916   01 03670    22500001 A            LI,5     1                 SET WEIGHT TO 1
    10917   01 03671    22100001 A            LI,1     1                 SET CTX COUNT TO 1
    10918   01 03672    32202BEF              LW,2     COUNT             GET CARD COUNT
    10919   01 03673    68303726              BEZ      TRYOPT            SKIP IF NO DEVICES

    10921         01 03674           CHKWAYT  EQU      %
    10922   01 03674    71543158              CB,5     WAYTAB,2          SEARCH WAYTAB
    10923   01 03675    6830367C              BE       FINDWAYT          WEIGHT FOUND

    10925         01 03676           NXTWAYT  EQU      %
    10926   01 03676    64203674              BDR,2    CHKWAYT           SEARCH REMAINING WEIGHT'S
    10927   01 03677    32202BEF              LW,2     COUNT             GET CARD COUNT
    10928   01 03678    20500001 A            AI,5     1                 INCR WEIGHT
    10929   01 03679    21500028 A            CI,5     ETSIZ             IF ALL THE WEIGHT'S SEARCHED
    10930   01 0367A    692036AE              BG       CHKDUAL           CHECK FOR DUAL ACCESS CONTROLLER
    10931   01 0367B    68003674              B        CHKWAYT           SEARCH FOR THE NEXT WEIGHT

    10933         01 0367C           FINDWAYT EQU      %
    10934   01 0367C    52B4314E              LH,11    MODTAB,2          GET MODEL #
    10935   01 0367D    52CA2E08              LH,12    ET:MNE,5          GET MNEMONIC
    10936   01 0367E    52D4315D              LH,13    AD1TAB,2          GET DC ADDRESS

    10938   01 0367F    22008080 A            LI,0     XCSEL+XWAIT       SET BASIC OPS BITS

    10940   01 03680    21500021 A            CI,5     ETXMM             SKIP IF MEMORY TO MEMORY MOVE
    10941   01 03681    68303683              BE       %+2
    10942   01 03682    20000100 A            AI,0     XBURST            ELSE SET BURST MODE DEVICE

    10944   01 03683    22F00000 A            LI,15    0
    10945   01 03684    75F230AD              STB,15   CT:PC,1           CLEAR PROBABILITY OF CHECKWRITE
    10946   01 03685    75F230C1              STB,15   CT:SF,1            AND SET DEFAULT SURFACE SHIFT

    10948   01 03686    21500010 A            CI,5     ETXTAPES          SKIP IF THIS DEVICE
    10949   01 03687    6920368F              BG       FILLCT             IS A SIMPLE PERIPHERAL

        1*  01 03688    220080BC A            LI,0     XCSEL+XTOGL+XPSNSQ+XWAIT+XDEVSL                   *H02

    10953   01 03689    2150000D A            CI,5     ETXRADS           CONTROL CHECKWRITE FREQ
    10954   01 0368A    6920368F              BG       FILLCT            FOR RADS AND DISKS

        1*  01 0368B    22F00004 A            LI,15    X'04'             SET DEFAULT                     *H01
        2*  01 0368C    75F230C1              STB,15   CT:SF,1            SURFACE SHIFT                  *H01

        4*  01 0368D    22F000FF A            LI,15    X'FF'             SET DEFAULT                     *H01
        5*  01 0368E    75F230AD              STB,15   CT:PC,1            CHECKWRITE PROBABILITY         *H01
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  203
A   10959         01 0368F           FILLCT   EQU      %
    10960   01 0368F    55022FF9              STH,0    CT:OPS,1          FILL COLUMNS OF CT MATRIX
    10961   01 03690    55D23062              STH,13   CT:CA,1
    10962   01 03691    75523071              STB,5    CT:ETX,1
    10963   01 03692    55B23167              STH,11   CT:MOD,1
    10964   01 03693    55C23171              STH,12   CT:MNE,1
    10965   01 03694    3260000D A            LW,6     13
    10966   01 03695    25600078 A            SLS,6    -8                GET IOP ADDRESS
    10967   01 03696    723C312E              LB,3     IOPW,6            ANY OTHER CONTROLLER ON THIS IOP
    10968   01 03697    6930369A              BCS,3    LINKDC            YES;LINK VIA THEIR CTX VALUES
    10969   01 03698    75123076              STB,1    CT:REL,1          STORE CTX VALUE
    10970   01 03699    6800369D              B        FILLIOPW          SET IOPW

    10972         01 0369A           LINKDC   EQU      %
    10973   01 0369A    72463076              LB,4     CT:REL,3          GET LAST GUY ON THIS IOP
    10974   01 0369B    75423076              STB,4    CT:REL,1          LINK IT TO CURRENT ONE
    10975   01 0369C    75163076              STB,1    CT:REL,3          LINK CURRENT ONE TO LAST ONE

    10977         01 0369D           FILLIOPW EQU      %
    10978   01 0369D    751C312E              STB,1    IOPW,6            SET IOPW

    10980   01 0369E    22600001 A            LI,6     1                 DEFAULT NUMBER OF DEVICES
    10981   01 0369F    727A2E44              LB,7     ET:RPX,5          GET RELATIVE PARAM. INDEX
    10982   01 036A0    683036A2              BEZ      %+2               SKIP IF ZERO
    10983   01 036A1    726E2E7C              LB,6     RP:DPC,7          GET # OF DEV. PER CONTROLLER
    10984   01 036A2    6AF03793              BAL,15   FINDDV            SET CT:DS AND CT:DA
    10985   01 036A3    2150000D A            CI,5     ETXRADS
    10986   01 036A4    682036A7              BCR,2    RADY              BRANCH IF A RAD OR A DISC PAK

    10988         01 036A5           INCTX    EQU      %
    10989   01 036A5    20100001 A            AI,1     1                 INCREMENT CTX
    10990   01 036A6    68003676              B        NXTWAYT           SEARCH NEXT ETX

    10992         01 036A7           RADY     EQU      %
    10993   01 036A7    33002EB6              MTW,0    BASEX             GOT ONE YET
    10994   01 036A8    693036A5              BCS,3    INCTX             YES
    10995   01 036A9    52822FEF              LH,8     CT:DS,1
    10996   01 036AA    2180FFFF A            CI,8     X'FFFF'           ANY DEVICE SELECTED
    10997   01 036AB    684036A5              BCR,4    INCTX             NONE
    10998   01 036AC    35102EB6              STW,1    BASEX
    10999   01 036AD    680036A5              B        INCTX
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  204
A   11001                            *        LOOK FOR DEVICE-SHARING CONTROLLERS

        1*  01 036AE    22100000 A   CHKDUAL  LI,1     0                 INITIALIZE CTX                  *H01

        3*  01 036AF    20100001 A   CHKDUAL0 AI,1     1                 UPDATE CTX                      *H01
        4*  01 036B0    31102BEF              CW,1     COUNT              AND STOP AT END                *H01
        5*  01 036B1    692036D9              BG       FILLCOM                                           *H01

        7*  01 036B2    72823071              LB,8     CT:ETX,1          LOOK FOR ROTATING MEMORY        *H01
        8*  01 036B3    2180000D A            CI,8     ETXRADS            (SKIP ALL ELSE)                *H01
        9*  01 036B4    692036AF              BG       CHKDUAL0                                          *H01

       11*  01 036B5    32200001 A            LW,2     1                 PREPARE SCAN TO END OF CT       *H01
       12*  01 036B6    52322FEF              LH,3     CT:DS,1            SAVE DEVICE SELECTION BITS     *H01

       14*  01 036B7    20200001 A   CHKDUAL1 AI,2     1                 LOOK AT NEXT CTX                *H01
       15*  01 036B8    31202BEF              CW,2     COUNT              AND STOP AT END                *H01
       16*  01 036B9    692036AF              BG       CHKDUAL0                                          *H01

       18*  01 036BA    72843071              LB,8     CT:ETX,2          LOOK FOR ROTATING MEMORY        *H01
       19*  01 036BB    2180000D A            CI,8     ETXRADS            (SKIP ALL ELSE)                *H01
       20*  01 036BC    692036B7              BG       CHKDUAL1                                          *H01

       22*  01 036BD    52542FEF              LH,5     CT:DS,2           GET DEVICE SELECTION BITS       *H01
       23*  01 036BE    4B500003 A            AND,5    3                  AND LOOK FOR DEVICES IN COMMON *H01
       24*  01 036BF    683036B7              BEZ      CHKDUAL1            SKIP IF NOTHING IN COMMON     *H01

       26*  01 036C0    22400000 A            LI,4     0                 LOOK FOR 16 COMMON PAIRS        *H01

       28*  01 036C1    31581AC8     CHKDUAL2 CW,5     BIT+16,4          GET NEXT DEVICE PAIR            *H01
       29*  01 036C2    694036C7              BANZ     MAYDUAL                                           *H01

       31*  01 036C3    20400001 A   CHKDUAL3 AI,4     1                 UPDATE PAIR INDEX               *H01
       32*  01 036C4    21400010 A            CI,4     16                 STOP AFTER 16 CHECKS           *H01
       33*  01 036C5    691036C1              BL       CHKDUAL2                                          *H01
       34*  01 036C6    680036B7              B        CHKDUAL1                                          *H01

       36*  01 036C7    52D23062     MAYDUAL  LH,13    CT:CA,1           GET CONTROLLER ADDRESS          *H01
       37*  01 036C8    52E43062              LH,14    CT:CA,2            GET CONTROLLER ADDRESS         *H01

       39*  01 036C9    30D00004 A            AW,13    4                 OFFSET BY DEVICE ADDRESSES      *H01
       40*  01 036CA    30E00004 A            AW,14    4                                                 *H01

       42*  01 036CB    22001BEC              LI,0     DA(CPSEEK0)       DO RESTORE/READ HEADER          *H01
       43*  01 036CC    CC00000D A            SIO,0    *13                TO FIRST DEVICE OF PAIR        *H01
       44*  01 036CD    69C036AF              BCS,8+4  CHKDUAL0            SKIP CONTROLLER IF TROUBLE    *H01

       46*  01 036CE    CDF0000E A            TIO,15   *14               CHECK STATE OF SECOND DEVICE    *H01
       47*  01 036CF    68C036D7              BCR,8+4  NOTDUAL            SKIP IF SIO POSSIBLE           *H01

       49*  01 036D0    22B00010 A            LI,11    XDUAL             FOUND A DUAL-ACCESS PAIR        *H01
       50*  01 036D1    55B43003              STH,11   CT:CS,2            SET FLAGS IN CTX               *H01
       51*  01 036D2    55B23003              STH,11   CT:CS,1                                           *H01

       53*  01 036D3    7514307B              STB,1    CT:DUAL,2         CTX ENTRIES POINT TO EACH OTHER *H01
       54*  01 036D4    7522307B              STB,2    CT:DUAL,1                                         *H01

       56*  01 036D5    6AE03646              BAL,14   SEEKSIO2          WAIT FOR DEVICE READY           *H01

       58*  01 036D6    680036AF              B        CHKDUAL0          LOOK FOR ANOTHER CONTROLLER PAIR*H01

       60*  01 036D7    6AE03646     NOTDUAL  BAL,14   SEEKSIO2          WAIT FOR DEVICE READY           *H01

       62*  01 036D8    680036C3              B        CHKDUAL3                                          *H01
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  205
A   11051                            *        FILL CT:COM AND CT:MAP
    11052                            *        CHECK IOP AND SYSTEM BANDWIDTHS
    11053                            *        SELECT A BASEDEVICE

    11055         01 036D9           FILLCOM  EQU      %
    11056   01 036D9    2250317C              LI,5     COMMAP
    11057   01 036DA    22100001 A            LI,1     1                 SET CTX TO 1

    11059         01 036DB           SETCOM   EQU      %
    11060   01 036DB    72323071              LB,3     CT:ETX,1          GET ETX VALUE
    11061   01 036DC    72062E4E              LB,0     ET:CDW,3           NUMBER OF CDWS IN COMS
    11062   01 036DD    693036DF              BNEZ     %+2               SKIP IF NOT ZERO
    11063   01 036DE    46000005 A            XW,0     5
    11064   01 036DF    35523035              STW,5    CT:COM,1          STORE COMM PAIR ADDR
    11065   01 036E0    30500000 A            AW,5     0
    11066   01 036E1    20100001 A            AI,1     1                 INCR CTX
    11067   01 036E2    31102BEF              CW,1     COUNT             DONE
    11068   01 036E3    682036DB              BLE      SETCOM            NOT YET
    11069   01 036E4    22100001 A            LI,1     1                 SET CTX TO 1

    11071         01 036E5           FILLMAP  EQU      %
    11072   01 036E5    72323071              LB,3     CT:ETX,1          GET ETX VALUE
    11073   01 036E6    72462E44              LB,4     ET:RPX,3          GET REL. PARAM. INDEX
    11074   01 036E7    6830371E              BEZ      ENDMAP            BRANCH IF ZERO
    11075   01 036E8    72782E7C              LB,7     RP:DPC,4          GET DEV. PER CONTROLLER
    11076   01 036E9    32B82E64              LW,11    RP:SPT,4          GET SECTORS PER TRACK
    11077   01 036EA    37B82E70              MW,11    RP:TPD,4          FIND TOTAL # OF SECTORS PER DEV
    11078   01 036EB    22A00000 A            LI,10    0
    11079   01 036EC    52262DF4              LH,2     ET:MOD,3          TEST FOR 7240
    11080   01 036ED    21207240 A            CI,2     X'7240'           AND REDUCE TOTAL SECTORS
    11081   01 036EE    693036F0              BNE      %+2               BY A FACTOR OF TWO (UNLIKE
    11082   01 036EF    25B0007F A            SLS,11   -1                7270, ONLY HAS 203 CYLS)

    11084   01 036F0    21300007 A            CI,3     ETXDPS            DO NOT INCLUDE THE
    11085   01 036F1    691036F3              BL       %+2                LAST TRACK IN THE MAP
    11086   01 036F2    20BFFFFF A            AI,11    -1                  (VOLINIT LABEL FOR DISKS)

    11088   01 036F3    22200000 A            LI,2     0

    11090         01 036F4           SETMAP   EQU      %
    11091   01 036F4    95A40005 A            STD,10   *5,2              STORE MAP INFO
    11092   01 036F5    20200001 A            AI,2     1                 INCR INDEX
    11093   01 036F6    31200007 A            CW,2     7                 MAP INFO STORED FOR ALL DEVICES
    11094   01 036F7    691036F4              BL       SETMAP            NO
    11095   01 036F8    21400003 A            CI,4     RPXSS             INDEX FOR 7201
    11096   01 036F9    69303718              BCS,3    NO7201            NO
    11097   01 036FA    02200000 A            LCI      0
    11098   01 036FB    2B002DA4              STM,0    PREREGS
    11099   01 036FC    52B22FEF              LH,11    CT:DS,1

    11101   01 036FD    31BE1AC8     LASTDEV  CW,11    BIT+16,7
    11102   01 036FE    69403700              BCS,4    GETBASE
    11103   01 036FF    647036FD              BDR,7    LASTDEV
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  206
A   11105   01 03700    50723062     GETBASE  AH,7     CT:CA,1
    11106   01 03701    35702EB4              STW,7    BASEDEV
    11107   01 03702    35302EB8              STW,3    BASETX
    11108   01 03703    35102EB6              STW,1    BASEX
    11109   01 03704    22B01800 A            LI,11    X'1800'

    11111   01 03705    35B038AD     WRITE721 STW,11   PATR7201
    11112   01 03706    12C037D2              LD,12    CPWR7201
    11113   01 03707    6AF00388              BAL,15   BASEDRVR
    11114   01 03708    32B038AD              LW,11    PATR7201
    11115   01 03709    20BFF800 A            AI,11    -X'800'
    11116   01 0370A    68103705              BCR,1    WRITE721
    11117   01 0370B    22B02000 A            LI,11    X'2000'

    11119   01 0370C    20BFF800 A   MSRAD0   AI,11    -X'800'           DECREMENT 1 QUADRANT
    11120   01 0370D    12C037D4              LD,12    CPRD7201
    11121   01 0370E    6AF00388              BAL,15   BASEDRVR
    11122   01 0370F    52B02C79              LH,11    BASESEEK
    11123   01 03710    31901ABA              CW,9     BIT+2             SECTOR UNAVAILABLE
    11124   01 03711    6940370C              BCS,4    MSRAD0            YES-GET NEXT QUARTER RAD
    11125   01 03712    022000B0 A            LCI      11
    11126   01 03713    2A002DA4              LM,0     PREREGS
    11127   01 03714    20B00800 A            AI,11    X'800'
    11128   01 03715    32702EB4              LW,7     BASEDEV           GET DEVICE ADD
    11129   01 03716    4B701AF5              AND,7    NOBITS+27         KEEP UNIT NUMBER
    11130   01 03717    95AE0005 A            STD,10   *5,7

    11132   01 03718    25200001 A   NO7201   SLS,2    1
    11133   01 03719    35523049              STW,5    CT:MAP,1
    11134   01 0371A    30500002 A            AW,5     2
    11135   01 0371B    20100001 A            AI,1     1                 INC CTX
    11136   01 0371C    31102BEF              CW,1     COUNT             DONE YET
    11137   01 0371D    682036E5              BLE      FILLMAP           NOT YET

    11139                            * NOTE: LATER ON, WHEN IT IS DETERMINED THAT THERE IS NO
    11140                            * BASE DEVICE PRESENT, THE FIRST BUFFER STARTS AFTER THE
    11141                            * CONFIGURATOR.  OTHERWISE THE CONFIGURATOR IS READ IN AGAIN.

    11143   01 0371E    35502BF6     ENDMAP   STW,5    BUFSTRTW
    11144   01 0371F    25500002 A            SLS,5    2
    11145   01 03720    35502ECE              STW,5    STRTCORE
    11146   01 03721    35502BF5              STW,5    BUFSTRT           STARTING BUFFER LOCATION

    11148   01 03722    205F406C N            AI,5     -BA(CT:DA)        COMPUTE NUMBER OF DATA BYTES
    11149   01 03723    35502C0E              STW,5    SUM1               SAVE FOR FINDSECT
    11150   01 03724    30501B01              AW,5     XA000000
    11151   01 03725    35502D19              STW,5    DATAXFER+1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  207
A   11153         01 03726           TRYOPT   EQU      %                 (DISPLAY IOPT, CONFIGT)
    11154   01 03726    32102EB6              LW,1     BASEX             GET BASE DEVICE INDEX
    11155   01 03727    68303729              BEZ      %+2                AND SKIP IF NONE
        1*  01 03728    52122FE5              LH,1     CT:DA,1             ELSE LOAD BASE DEVICE ADDRESS *H01

        3*  01 03729    32D00001 A            LW,13    1                 POSITION ADDRESS FOR DISPLAY    *H01

        5*  01 0372A    07A21C1F              CAL4,10  CONDES,1          DISPLAY CONTROL TABLE           *H01
        6*  01 0372B    02022BEE              NOP      CONQS,1                                           *H01

        8*  01 0372C    07A21C50              CAL4,10  OPDES,1           DISPLAY OPERATOR TABLE          *H01
        9*  01 0372D    02001A50              NOP      ZEROS                                             *H01

    11159   01 0372E    07803879              CAL4,8   WARNING           SURFACE SCRATCH WARNING
    11160   01 0372F    07D0381E              CAL4,13  CHNGBASE           BASEDEV CHANGE OPTION
    11161   01 03730    02000000 A            NOP      0
    11162   01 03731    07000000 A            CAL4,0   0                 REQUEST COMMAND INPUT

    11164   01 03732    21D00000 A            CI,13    0                 SKIP IF BASE DEVICE
    11165   01 03733    6930373E              BNEZ     CHKCA              ADDRESS IS PRESENT

    11167   01 03734    35D02EB6              STW,13   BASEX             CLEAR BASE INDEX
    11168   01 03735    35D02EB4              STW,13   BASEDEV           CLEAR BASE DEVICE

    11170   01 03736    078037FA              CAL4,8   NORADMSG
    11171   01 03737    02000000 A            NOP      0

    11173   01 03738    2200E2D0              LI,0     BA(CONFGEND)
    11174   01 03739    35002ECE              STW,0    STRTCORE          SAVE CONFIGURATOR
    11175   01 0373A    35002BF5              STW,0    BUFSTRT
    11176   01 0373B    220038B4              LI,0     CONFGEND
    11177   01 0373C    35002BF6              STW,0    BUFSTRTW
    11178   01 0373D    68003778              B        SETGETCT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  208
A   11180   01 0373E    3280000D A   CHKCA    LW,8     13
        1*  01 0373F    21800080 A            CI,8     X'80'             ERROR IF NOT                    *H01
        2*  01 03740    6840374E              BAZ      NOTRAD             MULTI-DEVICE CONTROLLER        *H01

    11183   01 03741    4B801B21              AND,8    X1FF0
    11184   01 03742    22100001 A            LI,1     1
    11185   01 03743    32202BEF              LW,2     COUNT

    11187   01 03744    51823062     COMOPT   CH,8     CT:CA,1           HAS CONTROLLER BEEN CONFIGURED
    11188   01 03745    6830374B              BCR,3    CHKDS             YES
    11189   01 03746    20100001 A            AI,1     1
    11190   01 03747    64203744              BDR,2    COMOPT

    11192   01 03748    07D0382A     NOTHERE  CAL4,13  OPTNOOK           DEVICE NOT CONFIGURED
    11193   01 03749    02000000 A            NOP      0
    11194   01 0374A    68003726              B        TRYOPT

        1*  01 0374B    72323071     CHKDS    LB,3     CT:ETX,1          GET ETX                         *H01
    11204   01 0374C    2130000D A            CI,3     ETXRADS           MAKE SURE IT IS A RAD
    11205   01 0374D    68203751              BLE      ENDOPT

    11207   01 0374E    07D03833     NOTRAD   CAL4,13  NONRAD            DEVICE IS NOT A RAD OR DP
    11208   01 0374F    02000000 A            NOP      0
    11209   01 03750    68003726              B        TRYOPT
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  209
A   11211         01 03751           ENDOPT   EQU      %
    11212   01 03751    35D02EB4              STW,13   BASEDEV
    11213   01 03752    35102EB6              STW,1    BASEX

        2*  01 03753    3220000D A            LW,2     13                GET BASE DEVICE ADDRESS         *H01
        3*  01 03754    4B201AF5              AND,2    NOBITS+27          AND MASK OFF CONTROLLER        *H01

    11216   01 03755    32323049              LW,3     CT:MAP,1          GET MAP FOR BASEX
    11217   01 03756    25200001 A            SLS,2    1                 GET A WORD ADDRESS
    11218   01 03757    22000400 A            LI,0     X'400'            PROTECT FIRST 1024 SECTORS
    11219   01 03758    B5040003 A            STW,0    *3,2              OF BASEDEV
    11220   01 03759    7242307B              LB,4     CT:DUAL,1         IS IT DUAL DEVICE
    11221   01 0375A    68403760              BCR,4    DUALNOT           NO
    11222   01 0375B    32383049              LW,3     CT:MAP,4
        1*  01 0375C    3220000D A            LW,2     13                GET BASE DEVICE ADDRESS         *H01
    11224   01 0375D    4B201AF5              AND,2    NOBITS+27
    11225   01 0375E    25200001 A            SLS,2    1
    11226   01 0375F    B5040003 A            STW,0    *3,2

    11228   01 03760    72323071     DUALNOT  LB,3     CT:ETX,1
    11229   01 03761    72462E44              LB,4     ET:RPX,3          GET PARAMETER INDEX
    11230   01 03762    2210BA90              LI,1     BA(ERRBUF)-X'100' PROGRAM SIZE IN BYTES
    11231   01 03763    6AF0377E              BAL,15   FINDSECT          FIND NR OF SECTORS FOR PRGM
    11232   01 03764    20100001 A            AI,1     1
    11233   01 03765    35102D21              STW,1    DATAPOS           DATA POSITION
    11234   01 03766    32102C0E              LW,1     SUM1              NR OF DATA BYTES
    11235   01 03767    6AF0377E              BAL,15   FINDSECT          NR OF SECTORS OF DATA
    11236   01 03768    30102D21              AW,1     DATAPOS
    11237   01 03769    35102D22              STW,1    CONFPOS           CONFIGURATOR POSITION
    11238   01 0376A    22102740 A            LI,1     BA(CONFGEND)-BA(ERRBUF) CONFIGURATOR SIZE IN BYTES
    11239   01 0376B    6AF0377E              BAL,15   FINDSECT          NR OF SECTORS FOR CONFIGURATOR
    11240   01 0376C    30102D22              AW,1     CONFPOS
    11241   01 0376D    35102D1E              STW,1    EFSTART           ERROR FILE STARTING POSITION
    11242   01 0376E    35102EE6              STW,1    EFSECTOR
    11243   01 0376F    22100400 A            LI,1     EBSIZ*4           ERROR BUFFER SIZE IN BYTES
    11244   01 03770    6AF0377E              BAL,15   FINDSECT          NR OF SECTORS FOR FILE
    11245   01 03771    35102D23              STW,1    EBINC             SAVE
    11246   01 03772    32002D1E              LW,0     EFSTART           STARTING FILE POSITION
    11247   01 03773    30000001 A            AW,0     1                 INC BY FILE  SIZE
    11248   01 03774    21000200 A            CI,0     X'200'            OVER RUN PROTECTION
    11249   01 03775    68203773              BCR,2    %-2               NO
    11250   01 03776    38000001 A            SW,0     1
    11251   01 03777    35002D1F              STW,0    EFLIMIT           SET FILE STORAGE AREA LIMIT

    11253   01 03778    35302EB8     SETGETCT STW,3    BASETX

    11254   01 03779    22D000F1 A            LI,13    X'F1'             SET FLAG TO
    11255   01 0377A    75D02C8D              STB,13   LPFLG             SKIP TO TOP OF PAGE

    11260   01 0377B    22F00000 A            LI,15    0                 RESET PASS TO 0
    11261   01 0377C    75F02ED7              STB,15   PASSES
    11262   01 0377D    68000140              B        INITIAL1
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  210
A   11264   01 0377E    22000000 A   FINDSECT LI,0     0
    11265   01 0377F    36082E58              DW,0     RP:BPS,4          DIVIDE BY BYTES/SECTOR
    11266   01 03780    210FFFFF A            CI,0     -1                ANY REMAINDER
    11267   01 03781    68403783              BCR,4    %+2               NO
    11268   01 03782    20100001 A            AI,1     1                 ROUND UP TO NEAREST SECTOR
    11269   01 03783    E800000F A            B        *15

    11271   01 03784    32D02EAE     TTYHAN   LW,13    TTYDEV
    11272   01 03785    12001A50              LD,0     ZEROS             CLEAR IM1 AND IM2
    11273   01 03786    150037D0              STD,0    IM1
    11274   01 03787    079037C9              CAL4,9   IMDIS
    11275   01 03788    02001A50              NOP      ZEROS
    11276   01 03789    72102C49              LB,1     LASTBYTE
    11277   01 0378A    21100015 A            CI,1     RETURN            WAS IT A PROMPT CHAR
    11278   01 0378B    68303784              BCR,3    TTYHAN            YES-GO BACK FOR DATA
    11279   01 0378C    35D02EAE              STW,13   TTYDEV            RESTORE TTY ADDRESS
    11280   01 0378D    32102BEF              LW,1     COUNT
    11281   01 0378E    32D037D0              LW,13    IM1
    11282   01 0378F    6830366F              BCR,3    CONFIG2
    11283   01 03790    55D2314E              STH,13   MODTAB,1
    11284   01 03791    32D037D1              LW,13    IM2
    11285   01 03792    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  211
A   11287                            *        THE FOLLOWING IS THE CT:DS ROUTINE.  IT USES REGISTERS 6
    11288                            *        AND 13 TO FIND THE DEVICES TO BE TESTED.  THE FIRST
    11289                            *        DEVICE ON THE CONTROLLER BECOMES CT:DA.  NOTE THAT
    11290                            *        MANUAL DEVICES ARE NOW IGNORED.

    11292   01 03793    22700000 A   FINDDV   LI,7     0
    11293   01 03794    22A00000 A            LI,10    0

    11295   01 03795    CDBE000D A   TTIO1    TIO,11   *13,7             CHECK DEVICE STATUS
    11296   01 03796    69C0379F              BCS,8+4  TTIO3              SKIP IF WRONG RESPONSE

    11298   01 03797    31B01ABB              CW,11    BIT+3             CHECK DEVICE MODE
    11299   01 03798    6840379F              BAZ      TTIO3              SKIP IF NOT AUTOMATIC

    11301   01 03799    32A0000A A            LW,10    10                CHECK FOR FIRST DEVICE
    11302   01 0379A    6930379E              BNEZ     TTIO2              SKIP IF NOT FIRST

    11304   01 0379B    32800007 A            LW,8     7                 COMPUTE TRUE DEVICE
    11305   01 0379C    3080000D A            AW,8     13                 ADDRESS AND SET CT:DA
    11306   01 0379D    55822FE5              STH,8    CT:DA,1

    11308   01 0379E    49AE1AC8     TTIO2    OR,10    BIT+16,7          DEVICE SELECTION BIT

    11310   01 0379F    20700001 A   TTIO3    AI,7     1                 POINT TO NEXT DEVICE
    11311   01 037A0    64603795              BDR,6    TTIO1              AND CONTINUE

    11313   01 037A1    55A22FEF              STH,10   CT:DS,1           SAVE DEVICE SELECTION BITS
    11314   01 037A2    21A0FFFF A            CI,10    X'FFFF'            AND RETURN IF ANY SELECTED
    11315   01 037A3    E940000F A            BANZ     *15

    11317   01 037A4    55D22FE5              STH,13   CT:DA,1           ELSE INITIALIZE CT:DA
    11318   01 037A5    55622FF9              STH,6    CT:OPS,1           CLEAR OPERATOR MODES

    11320   01 037A6    07D23809              CAL4,13  DEVIP,1           AND ISSUE TROUBLE MESSAGE
    11321   01 037A7    02000000 A            NOP
    11322   01 037A8    E800000F A            B        *15

    11324   01 037A9    52D2315D     DVRECEX  LH,13    AD1TAB,1
    11325   01 037AA    07D03812              CAL4,13  WEIRDDV
    11326   01 037AB    02000000 A            NOP      0

    11328   01 037AC    078037EA     CARDERR  CAL4,8   TYERRMSG
    11329   01 037AD    02000000 A            NOP
    11330   01 037AE    68003650              B        NOCNTINC
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  212
A   11332                            *        ROUTINE TO VALIDATE MODEL NUMBER (R9) AND
    11333                            *        TO SAVE ELEMENT TABLE INDEX (WAYTAB)

    11335   01 037AF    222FFFD8 A   FINDETX  LI,2     -ETSIZ
    11336   01 037B0    51942E08              CH,9     ET:MOD+ETSIZ/2,2  MATCH
    11337   01 037B1    683037B5              BCR,3    STORETX           YES
    11338   01 037B2    652037B0              BIR,2    %-2               CHECK REMAINIG MODEL #'S
    11339   01 037B3    20F00001 A            AI,15    1                 INCR ADDR FOR ERROR RETURN
    11340   01 037B4    E800000F A            B        *15               EXIT

    11342   01 037B5    20200028 A   STORETX  AI,2     ETSIZ
    11343   01 037B6    75223158              STB,2    WAYTAB,1          SAVE ETX
    11344   01 037B7    5592314E              STH,9    MODTAB,1          STORE MODEL #
    11345   01 037B8    21907205 A            CI,9     X'7205'           CHECK FOR 4 BYTE INTERFACE
    11346   01 037B9    683037C1              BCR,3    Y4BYT
    11347   01 037BA    21907235 A            CI,9     X'7235'
    11348   01 037BB    683037C1              BCR,3    Y4BYT
    11349   01 037BC    21907236 A            CI,9     X'7236'
    11350   01 037BD    683037C1              BCR,3    Y4BYT
    11351   01 037BE    21907241 A            CI,9     X'7241'
    11352   01 037BF    683037C1              BCR,3    Y4BYT
    11353   01 037C0    E800000F A            B        *15

    11355   01 037C1    3270000D A   Y4BYT    LW,7     13                COMPUTE IOP TABLE INDEX
    11356   01 037C2    25700078 A            SLS,7    -8                 (IOP NUMBER)

    11358   01 037C3    22A000E1 A            LI,10    225               START WITH LOWER BANDWIDTH
    11359   01 037C4    33002C04              MTW,0    SIGMA9             CHECK FOR SIGMA 5/6/7
    11360   01 037C5    681037C7              BGEZ     %+2                 SKIP IF TRUE
    11361   01 037C6    22A000FA A            LI,10    250                  ELSE INCREASE BANDWIDTH
    11362   01 037C7    55AE3132              STH,10   IOPKW,7
    11363   01 037C8    E800000F A            B        *15
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  213
A   11365   01 037C9    020037CE     IMDIS    DES1     2,0,0,IMP
    11366   01 037CA    02000001 A            DES2     2,1
    11367   01 037CB    02001675              DES2     2,DISPXIT
    11368   01 037CC    00000000 A            DATA     0
    11369   01 037CD    00000000 A            DATA     0

    11371   01 037CE    042437D0     IMP      TPNR     4,0,2,2,IM1
    11372   01 037CF    042437D1              TPNR     4,0,2,2,IM2

    11374                                     BOUND    8
    11375   01 037D0    00000000 A   IM1      DATA     0
    11376   01 037D1    00000000 A   IM2      DATA     0

    11378                                     BOUND    8
    11379   01 037D2    0100E2B4 N   CPWR7201 DATA     X'1000000'+BA(PATR7201)
    11380   01 037D3    0A000004 A            DATA     X'0A000004'
    11381   01 037D4    0200E2B4 N   CPRD7201 DATA     X'2000000'+BA(PATR7201)
    11382   01 037D5    0A000004 A            DATA     X'0A000004'
    11383   01 037D6    0000E280     CPSIO    DATA     BA(JUNK)
    11384   01 037D7    0E000001 A            DATA     X'0E000001'
    11385   01 037D8    33000000 A   CPSEEK0  DATA     X'33000000'
    11386   01 037D9    28000000 A            DATA     X'28000000'
    11387   01 037DA    0A00E280 N            DATA     X'0A000000'+BA(JUNK) READ ONE HEADER
    11388   01 037DB    0A000004 A            DATA     X'0A000000'+4
    11389   01 037DC    0A00E280 N   CPSEEK1  DATA     X'0A000000'+BA(JUNK) READ ONE HEADER
    11390   01 037DD    2A000004 A            DATA     X'2A000000'+4         THEN SEEK
    11391   01 037DE    0300E274 N            DATA     X'03000000'+BA(SEEKDATA)
    11392   01 037DF    08000004 A            DATA     X'08000000'+4        (HEAD WAS IN MOTION)
    11393   01 037E0    0300E274 N   CPSEEK   DATA     X'03000000'+BA(SEEKDATA)
    11394   01 037E1    08000004 A            DATA     X'08000004'
    11395   01 037E2    0300E274 N   CPSEEK2  DATA     X'03000000'+BA(SEEKDATA)
    11396   01 037E3    28000002 A            DATA     X'28000000'+2
    11397   01 037E4    0200E278 N            DATA     X'02000000'+BA(EPDATA)
    11398   01 037E5    0A000003 A            DATA     X'0A000003'

        1*  01 037E6    032F0000 A   CYL815   DATA     815**16           FIRST UNAVAILABLE CYL, T3283    *H00
        2*  01 037E7    022B0000 A   CYL555   DATA     555**16           FIRST UNAVAILABLE CYL, T3282    *H00
    11400   01 037E8    01960000 A   CYL406   DATA     406**16           FIRST UNAVAILABLE CYL, DD225
    11401   01 037E9    00CB0000 A   CYL203   DATA     203**16           FIRST UNAVAILABLE CYL, CDC
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  214
A   11403         01 037EA           TYERRMSG TEXTS    CR,'LAST ENTRY IGNORED',EM

    11404   01 037EF    155A5A40 A   NODEVMES DATA     OPMSG
    11405         01 037F0                    TEXTS    'MODEL NUMBER ERROR (SEE ELEMENT TABLE)',EM

    11406   01 037FA    155A5A40 A   NORADMSG DATA     OPMSG
    11407         01 037FB                    TEXTS    'BASE DEVICE NOT AVAILABLE',EM

    11408   01 03802    155A5A40 A   HELPMSG  DATA     OPMSG
    11409         01 03803                    TEXTS    '     CANNOT CONFIGURE',EM

    11410   01 03809    155A5A40 A   DEVIP    DATA     OPMSG
    11411         01 0380A                    TEXTS    '     DEVICE-INTERFACE PROBLEM',EM

    11412   01 03812    155A5A40 A   WEIRDDV  DATA     OPMSG
    11413         01 03813                    TEXTS    '     ADDRESS NOT RECOGNIZED, CHANGE ENTRY',EM

    11414   01 0381E    155A5A40 A   CHNGBASE DATA     OPMSG
    11415         01 0381F                    TEXTS    '     BASE DEVICE ADDRESS IN REG 13 (X''D'')',EM

    11416   01 0382A    155A5A40 A   OPTNOOK  DATA     OPMSG
    11417         01 0382B                    TEXTS    '     BASE DEVICE NOT CONFIGURED',EM

    11418   01 03833    155A5A40 A   NONRAD   DATA     OPMSG
    11419         01 03834                    TEXTS    '     BASE DEVICE NOT ROTATING MEMORY',EM

    11420   01 0383E    155A5A40 A   CHANLMSG DATA     OPMSG
    11421         01 0383F                    TEXTS    '     DUPLICATE CHANNEL ADDRESS',EM

    11422   01 03847    80404040 A   MSGCPU   DATA     X'80404040'
    11423         01 03848                    TEXTS    'SIGMA X CPU',EM

    11424   01 0384B    80404040 A   MSGT85   DATA     X'80404040'
    11425         01 0384C                    TEXTS    'TELEFILE T-SERIES CPU',EM

    11426   01 03852    15404040 A   MSGFP    DATA     X'15404040'
    11427         01 03853                    TEXTS    'FLOATING POINT',EM

    11428   01 03857    15404040 A   MSGDEC   DATA     X'15404040'
    11429         01 03858                    TEXTS    'DECIMAL',EM

    11430   01 0385A    15404040 A   MSGREG   DATA     X'15404040'
    11431         01 0385B                    TEXTS    '     REGISTER BLOCKS',EM

    11432   01 03861    15404040 A   MSGMAP   DATA     X'15404040'
    11433         01 03862                    TEXTS    'MAP',EM

    11434   01 03863    15404040 A   MSGWL    DATA     X'15404040'
    11435         01 03864                    TEXTS    'WRITE LOCK',EM

    11436   01 03867    15404040 A   MSGGRP   DATA     X'15404040'
    11437         01 03868                    TEXTS    '1234 GROUP INT. LEVELS 1234    ',EM

    11438   01 03870    15404040 A   MSGMEM   DATA     X'15404040'
        1*        01 03871                    TEXTS    '012345 MEMORY LAST WORD ADDRESS',EM              *H02

    11440                            WARNING TEXTS CR,CR,'********* THIS PROGRAM WILL WRITE ON ALL';
    11441                             ,CR,'*WARNING* CONFIGURED TAPES AND DISKS. PROTECT,';
    11442         01 03879            ,CR,'********* RECONFIGURE, OR DESELECT AT THIS TIME.',CR,CR,EM

1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  215
A   11444   01 0389D    00000000 A   SEEKDATA DATA     0
    11445   01 0389E    00000000 A   EPDATA   DATA     0
    11447   01 0389F    FF03021D A   ORDERS   DATA     X'FF03021D'
    11448   01 038A0    00000000 A   JUNK     DATA     0
    11449   01 038A1    00000000 A   FASDATA  DATA     0
    11450   01 038A2    0000000A A   DLDATA   DATA     X'A'
    11451   01 038A3    00004D00 A   RBIDENT  DATA     X'4D00'
    11452   01 038A4    00000000 A   INTIDENT DATA     X'000'
    11453   01 038A5    00000000 A   REGBLK#  DATA     0
    11454   01 038A6    00000000 A   SAVX20   DATA     0

        2*  01 038A7    6800351B     BROK     B        MAPOPT            LOCATED VIRTUAL 3FFF, REAL 3DFF *H02

        4*  01 038A8    18191A1B A   MAPIMAG  DATA     X'18191A1B',X'1C1D1E1E' (3E00=>3C00)              *H02
            01 038A9    1C1D1E1E A

        6*  01 038AA    02003000 A   CSTART   DATA     X'02003000'       START MAPPING AT 3000           *H02

    11458   01 038AB    00000000 A   LEVCNT   DATA     0
    11459   01 038AC    1C000000 A   BIT345   DATA     X'1C000000'
    11460   01 038AD    00000000 A   PATR7201 DATA     0
    11461   01 038AE    00000000 A   SAVAD1   DATA     0
    11462   01 038AF    000038F0 A   GRP0LEVS DATA     X'38F0'
    11463   01 038B0    0000C300 A   XC300    DATA     X'C300'
    11464   01 038B1    01002000 A   CSTART1  DATA     X'01002000'
    11465   01 038B2    00000000 A   DUPSCFLG DATA     0
        1*  01 038B3    06200000 A   X6200000 DATA     X'06200000'                                       *H02

    11467         01 038B4           CONFGEND EQU      %
    11468         01 03405                    END      INITIAL

  CONTROL SECTION SUMMARY: 01 038B4   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   21:59 JUN 20,'83    TELEFILE SYSTEM EXERCISER 960-0050-H02                                PAGE  216
A  ABSEXP          8328/DATA    9149-TEXTS
   ABSMSG          6411/LI      9099-TEXTS   9509/DATA
   ABSTRACT        6409-LI      8326/DIR
   ABS1            6413-LW      6425/B
   ABS2            6421-AI      6428/BEZ
   ABS3            6427-LB      6430/B
   ADDRESS         7210/STW     7227/LW      7254/LW      7330/AW      7347/SW      7359/SW      9522-DATA
   ADVANCE         6100/BAL     6104/BAL     6822/BAL     7194/BAL     7281-STW     7322/BAL
   AD1TAB          8709/TPNR   10150-RES    10703/STH    10881/STH    10883/CH     10936/LH     11324/LH
   AIO           6317.1-BAL     8331/DIR
   AIOCOUNT       286.7/STW     2098/STW     2360/MTW     8752/TPNR    9574-DATA
   AIODONE         6368/B       6374-LI
   AIOEXP          8333/DATA    9152-TEXTS
   AIOINT          6366-AIO     6372/B
   AIOR            2363/STW     4194/LW      9528-DATA
   AIOUNEXP       286.8/STW   2098.1/STW   2538.5/MTW   8752.1/TPNR  9574.1-DATA
   AIOXIT          2392/LI      2486/LI      2508-MTW   2538.8/BNEZ    2545/B
   AIO0            2448/BAZ     2456/BEZ     2459/BAZ     2492-EQU
   AIO1            2375/BCR     2378-LW
   AIO10           2413-EQU     2427/BAZ     2435/BNE     2439/BNE     2443/BANZ
   AIO11           2399/BNE     2415/BNE     2421-EQU   2423.3/BAZ   2423.6/BL    2423.9/BANZ
   AIO2            2385-CH      2517/BLE
   AIO2A           2388-LB      2537/BE
   AIO2B         2396.3/BE    2423.2-CI
   AIO3            2386/BNE     2515-AI
   AIO3A           2520/BANZ    2523/BAZ     2533/B     2538.1-LI
   AIO3B           2529/BE      2535-LB
   AIO3C           2528-CH      2532/BLE
   AIO4            2364/BCS     2423/B     2538.4-LI
   AIO4A         2538.2/B    2538.10-LW
   AIO5            2500/BCS     2504-BAL
   AIO6            2410/BAZ     2444/B       2446-EQU
   AIO7            2467-LB      2471/BCR
   AIO8            2402/BAZ     2406/BANZ    2411/B       2417-EQU
   AIO9            2396/BANZ    2425-EQU
   AIO9A           2432/BE      2441-LB
   AP              7214/STW     7220/LW      7232/AWM     7233/LW      7247/AWM     7248/MTW     7258/LW
      7261/LW      7273/LW      7274/LW      7340/LW      7367/LW      9586-DATA
   APTO            6180/LW*     6199/LM*     7654/STW     7659/MTW     7667/LM*     9581-DATA
   ASCII           7934/LB      8079-DATA
   ATOF            7491/CLM     8301-DATA
   AUDA             476/BCR      478-CI
   AUDB             479/BCR      481-CI
   AUDC             515-LH       539/BLE
   AUDCONT          572/B        582-LW
   AUDC1            517/BAZ      537-AI
   AUDE             512/BAZ      543-CI
   AUDHALT          565/B        569/BGE      574-BAL
   AUDITOR          385/BAL   390.21/BAL      440-STW      963/BAL      994/BAL     1366/BAL     1549/BAL
      1620/BAL     2118/BAL     2125/BAL     2320/BAL     4342/BAL     5252/BAL
   AUDREGS          494/STM      502/STW      504/LD       505/LW       541/LW       560/LH       567/LH
       607/LM      9738-RES
   AUD4             452/BCR      455/BCR      459/BCR      463-CI
   AUD5             464/BCR      466-CI
   AUD6             467/BCR      469-CI
   AUD7             470/BCR      472-CI
   AUD8             473/BCR      475-CI
   AUTOMOD        10672-CI
   BADBUF          4698/AND     8016-DATA
   BASECP0          921/LI      9641-DATA
   BASECP1          873/STW      884/LI       924/LI      9648-DATA
   BASECP2        860.1/STD     9651-RES
   BASEDERR         892/BCS      920-EQU    950.3/B
   BASEDEV          885/SIO*     888/TIO*     918/HIO*     928/TDV*     929/TIO*    8750/TPNR   10058-DATA
   10236.1/STW    11106/STW    11128/LW     11168/STW    11212/STW
   BASEDRVR         236/BAL      245/BAL      253/BAL      261/BAL   316.10/BAL      591/BAL      856-STW
    6874.5/BAL     6887/BAL     6895/BAL     7117/BAL    11113/BAL    11121/BAL
   BASEDRV1         884-LI       926/BIR
   BASEDRV2         888-TIO      916/BIR
   BASEHEAD        9645/DATA    9657-RES
   BASEREGS         856/STW    900.3/BAZ*     912/B*       931/LW       933/BCS*     936/STM      938/LI
       950/LM      9736-RES
   BASERMSG         942/LI      9050-DATA
   BASESEEK         880/STW     9648/DATA    9654-DATA   11122/LH
   BASESENS        9641/DATA    9656-RES
   BASESTND       860.4/STW    900.1/LH    9657.1-RES
   BASETX           224/LW       859/LW     10062-DATA   11107/STW    11253/STW
   BASEWAIT         889/BCS      914-LI
   BASEX            857/LW   2915.12/CW     10060-DATA   10236/STW    10993/MTW    10998/STW    11108/STW
     11154/LW     11167/STW    11213/STW
   BCI             6103/LW      7236/STW     7270/LW      7316/LW      9511-DATA
   BCKGND        390.12/CLM   8305.1-DATA
   BDPTAPE        10846/BCS    10850-LI
   BIT              299/OR       804/EOR      805/OR       831/EOR      891/CW      1107/CW      1110/CW
      1162/CW      1305/AW    1423.2/CW    1474.1/CW      1543/LCW   1617.2/CW    1617.8/CW      1834/LW
      1842/CW      2149/CW      2156/CW      2166/OR      2181/LW      2312/CW      2366/LW      2447/CW
      2501/CW      2616/SW      2619/EOR     2648/CW      2744/CW      2748/CW      2750/CW      2761/CW
      2775/CW    2847.2/CW    2847.9/OR   2915.16/OR      2964/CW      3021/CW      3113/OR      3203/CW
      3243/CW    3343.3/CW      3392/CW      3426/CW      3475/CW      3483/CW      3507/OR      3511/CW
      3546/AW      3571/CW      3580/OR      3581/EOR     3592/OR      3601/CW      3604/CW      3607/CW
      3614/CW      3681/CW      3684/CW      3698/CW      3743/CW      3804/CW      3818/CW      3851/CW
      3873/CW      4039/EOR     4041/EOR     4050/OR      4055/EOR     4141/EOR     4170/EOR     4172/EOR
      4232/EOR     4234/EOR     4255/LW      4256/LW      5476/EOR     5592/OR      5636/OR      5768/OR
      5771/EOR     5788/OR      5793/OR      5980/OR      5999/OR      6203/CW      6224/CW      6246/CW
      6253/CW      6328/CW      6345/CW      6438/OR      7384/CW      7386/CW      7389/CW      7426/CW
      7517/AW      7520/SW      7703/CW      7768/CW      7874/CW      8183-DATA 10206.4/AND  10211.1/LW
     10305/OR     10311/CW     10319/CW     10324/OR     10383/OR     10398/OR     10435/OR     10488/AND
     10658/EOR    10659/OR     10665/CW     10729/CW     10744/CW     10767/CW     10769/CW     10771/CW
     10773/CW     10780/CW     10786/CW   10788.4/CW  10788.10/CW     10792/CW     10812/CW     10845/CW
     10861/CW  11002.28/CW     11101/CW     11123/CW     11298/CW     11308/OR
   BIT345         10315/OR     11459-DATA
   BLKSIZ          1916/STW     1955/DW      1957/MW      2073/OR      2115/LW      2233/OR      2478/LW
      3782/LW      4612/SW      4615/SW      9540-DATA
   BLKSIZE         1917/STW     8754/TPNR   10072-DATA
   BOF             1709/LCH     8774/TPNR   10088-GEN
   BOMBING       4746.5/OR   4746.20/EOR   7993.1-DATA
   BON             1715/LH      8773/TPNR   10087-GEN
   BOOT            6707-EQU     8336/DIR
   BOOTCP1          163/LI       176-DATA     232/STW
   BOOTDC           225/LD      9663-DATA
   BOOTDP           229/LD      9666-DATA
   BOOTERR         6713/BCS     6739-EQU
   BOOTERR0      6385.6/B     6742.2-EQU
   BOOTLUP          166-LI       170/BCS
   BOOTMSG          266/LI      9046-DATA
   BOOTPZE         6737/LPSD    6747-DATA
   BOOTSEEK         176/DATA     182-DATA     231/STW
   BOOTSW           163-LI      9708/DATA
   BOOTXFER         222/STB      235/LD      9708-DATA
   BOTEXP          8338/DATA    9155-TEXTS
   BRAEXP          8343/DATA    9158-TEXTS
   BRANCH          6464-LW      8341/DIR
   BRANCH1         6467/BCS     6471-AI
   BRANCH2         6966/AW      7105-B
   BREAK            617/STW      848/MTW     7890/MTW     9601-DATA
   BROK         10461.7/LW   11454.2-B
   BTEXP           8510/DATA    9272-TEXTS
   BTHDG           8509/DATA    9282-TEXTS
   BTIME           1710/MTW     1713/MTW     1717/STW     1772/MTW     2711/MTW     4118/MTW  4746.17/MTW
      9521-DATA
   BTOUT           2714/OR      4120/OR      7999-DATA
   BT0P          8505.1/DES1    8671-TPNR
   BUFAD           4771/STW     4775/LD    4789.4/LD      5001/LW      5108/LD      5196/LW      5197/LW
      5247/LW      5253/LW      5386/LD      9569-DATA
   BUFBEGIN      1739.3/SW    4753.3/STW   9574.7-DATA
   BUFBIZ          4654/OR      8000-DATA
   BUFEND          5068/BCR     5073/BEZ     5091/BE      5105-CI
   BUFEND0         5047/BCR     5114-BAL     5143/B
   BUFEND2         5118-BDR     5125/BE
   BUFEND3         5118/BDR     5121-AW
   BUFERR          5060/BAL     5074/BAL     5092/BAL     5098/BAL     5126/BAL   5183.1-LB
   BUFERROR      5183.4/XPSD  5183.9-DATA
   BUFERR0         5219-LB      5223/BIR
   BUFERR00        5214/BNEZ    5225-BAL
   BUFERR2         5233/BE      5241-LW
   BUFFER           740/LI      1151/AI      1176/LI      5738/STW     5815/LW      6037/STB     6045/CH
      6068/STB     6082/STB     6086/LI      6114/STB     6132/LW      6138/STW     6146/LI      6185/LB
      6206/LB      6310/LI      6569/LI      6995/STW     7044/LI      7085/STW     7183/LI      7228/STB
      7288/LW      7295/STW     7329/LI      7420/STB     7430/STB     7437/STB     7441/STB     7462/LB
      7611/LB      7785/AI      9678-DATA   10233/STW  10266.5/LI   10266.9/STB    10568/LI
   BUFFERO         7289/STW     7294/LW      9585-DATA
   BUFFEROK        4756-LW      4809/BCS     4883/BCR     4938/BCR     4944/BCR     4979/BCS     4984/BE
      4990/BEZ   4990.4/B       5106/BE      5119/B       5130/BCR     5149/BCS   5183.2/BEZ   5183.6/B
      5410/BCR     5416/B       5542/B       5629/B
   BUFFERS       1739.5/LW      2096/STW     4772/MTW   4777.3/LW      4787/MTW     5042/MTW     5383/MTW
      8672/TPNR    8673/TPNR    8674/TPNR    8675/TPNR    8676/TPNR    8677/TPNR    8678/TPNR    8679/TPNR
      9579-RES
   BUFRATE       1739.8/STW   8679.1/TPNR  9574.8-DATA
   BUFSIZ          1919/STW     1967/LW      2023/DW      2101/LW      2116/LW      2569/LW      2671/LW
      2788/LW      3074/LW      3127/DW      3131/LW      3541/AW      3644/AW    4013.7/MW      4241/AND
      4510/LW      4676/LW   4746.32/AW   4789.20/CW   4789.22/LW      5019/LW      5131/CW      5147/LW
      5154/CW      5156/LW      5160/LW      5387/LW      6666/LW      9541-DATA
   BUFSIZE         1920/STW     8755/TPNR   10073-DATA
   BUFSPRD       4777.5/BLE     4788/B       5293-LB
   BUFSTRT         9533-DATA   11146/STW    11175/STW
   BUFSTRTW        1856/LW      1901/LW      1929/SW      2174/STW*    2178/STW*    2180/LW    4747.1/LW
      4749/LW    6370.1/STH*  6379.1/LH*     8777/TPNR    9534-DATA   11143/STW    11177/STW
   BUFTOTAL        1956/STW   4777.4/CW      8671/TPNR    9575-DATA
   BURSTING     2090.27/OR   2090.33/EOR   7993.2-DATA
   BUSY            3046/OR      3810/OR      4146/OR      7987-DATA
   BYTCHK          5235/BAL     5237/BAL     5243/BAL     5259-SLS
   BYTCHK2         5262-CB      5275/BDR
   BYTCHK3         5265/BCS     5271-AI
   BYTCHK4         5263/BCR     5272-AW
   BYTCOUNT        5550/STB     5555/STB     5581/LB      5588/LB      5594/LB      5609/LB      5625/LB
      5712-DATA
   BYTDES          8513-DES1   10259/STW    10262/STB
   BYTE            5350/LW      5370/STW     9553-DATA
   BYTEAVL         5321/BCR     5325-CI
   BYTECHK         4956/B       4984-BE
   BYTECHK1        4966/B       4976/B       4982-AI
   BYTEG           5331/BCS     5544-BAL
   BYTERR          4941/B       4954/BCS     4986-LCI
   BYTERROR      4990.2/XPSD  4990.7-DATA
   BYTEX           5320/CI      5324/LI      5698-EQU
   BYTEXP          8517/DATA    9365-TEXTS
   B0P             8513/DES1    8681-TPNR
   B17BOMB       4746.2-EQU   4789.2/BAL
   B17BOMBS     4746.38/LM   4746.79-EQU
   B17BOMB0     4746.40-LB   4746.75/BL
   B17BOMB1     4746.15/BAZ  4746.18/BGEZ 4746.24-STH
   B17BOMB2     4746.12/BAZ  4746.20-EOR
   B17BOMB3      4746.9/BANZ 4746.14-CI
   B17TARGT     4746.29/STW  4746.73/AW    9574.2-DATA
   CAL4A           1127/BCR     1198-LW
   CAL4B           1128/BCR     1175-LW
   CAL4CP          8784-TPNR
   CAL4D           1129/B       1150-LW
   CAL4END         1131-PLW     1186/LI
   CAL4END1        1134-BAL     1189/LI
   CAL4SET         1171/B       1177-AI
   CAL4SET1        1176-LI      1199/B
   CAL4XIT         1119/LI      1124/BCR     1137-LCI     1146/B       1165/B
   CAL40           1123/BCR     1144-LW
   CAL48           1125/BCR     1158-LW      7432/CI
   CAL49           1126/BCR     1169-LW
   CARDERR        10903/B      11328-CAL4
   CAT             7225/STW     7249/STW     7255/LW      9587-DATA
   CATALOG            2-EQU        3/EQU
   CCI             6036/LW      6043/STW     6087/CW      6090/AW      6092/STW     6143/STW     6184/LW
      6205/LW      6296/STW     6311/AW      7601/STW     7640/LW      7647/STW     9512-DATA
   CCP              580/BAL      944/BAL     1091/BAL     1145/BAL     1693/BAL  2321.10/BAL     2512/BAL
      5736-PSW     7060/BAL   8305.1/DATA
   CCPA            5741/BE      5750-TIO     5817/BNE
   CCPB            5819-PLW
   CCPC            5743-LI
   CCP1            5751/BCR     5758-LB
   CCP11           5756/B       5762-LI
   CCP2            5759/BCS     5766-MTB
   CCP21           5774-LB      5801/BCS
   CCP22           5779/BCS     5784-CI
   CCP23           5775/BCR     5777/BCR     5781/BCR     5792/BCR     5799-AI
   CCP24           5754/BEZ     5770/BCR     5797/BCR     5803-STB
   CCP25           5785/BCR     5791-CI
   CCP3             420/LI      1192/LI      5743/LI      5815-LW      5836/B       5839/B       5843/B
      5846/B       5850/B     6908.1/LI      9482/DATA    9483/DATA    9484/DATA    9485/DATA    9486/DATA
      9487/DATA    9488/DATA    9489/DATA    9490/DATA    9507/DATA
   CCP4            5805/BCS     5823-BAL
   CCP41           5830/BE      5835-BAL
   CCP5            5824/B       5838-BAL
   CCP6            5808/B       5845-BAL
   CCP61           5827/BNE     5848-BAL
   CC6             7814/STW     7818/MTW     9593-DATA
   CDC            10781/BANZ   10805-EQU
   CDESEL          2919/CAL4    9036-DATA
   CDFLT           4854/B       4868-LD
   CFDES           8633-DES1   10868/CAL4
   CFHDG           8636/DATA    9338-TEXTS
   CFSIZ             22-EQU
   CF1P            8633/DES1    8708-TPNR
   CHANLMSG       10683/CAL4   10686/CAL4   11420-DATA
   CHEKT           4668/OR      4701/AND     8002-DATA
   CHKADR         10882/B      10886-BDR
   CHKCA          11165/BNEZ   11180-LW
   CHKDEC         10375/LI     10388-EQU
   CHKDS          11188/BCR  11195.1-LB
   CHKDUAL        10930/BG   11002.1-LI
   CHKDUAL0     11002.3-AI   11002.9/BG  11002.16/BG  11002.44/BCS 11002.58/B
   CHKDUAL1    11002.14-AI  11002.20/BG  11002.24/BEZ 11002.34/B
   CHKDUAL2    11002.28-CW  11002.33/BL
   CHKDUAL3    11002.31-AI  11002.62/B
   CHKFLG          1163/BCS     6132-LW      6158/BE      6294/B       6407/B       6487/B       6604/B
      6623/BANZ    6637/BE      6640/B       6682/B       6976/B       6978/LI
   CHKIF8       10461.2/BNEZ   10486-EQU
   CHKINT         10507/LI     10530-EQU
   CHKIOP         10578/B      10591-LI
   CHKLAST        10566/BCR    10575-AI
   CHKLOK         10489/BCS    10502/BCS    10507-LI
   CHKMAP         10459/B      10461-EQU
   CHKMUC         10610/B      10630-EQU
   CHKRB          10424-EQU    10445/BLE
   CHKREG         10413/BEZ    10418-LW
   CHKRTC         10390/BNEZ   10391/LI     10403-EQU
   CHKTTY          6319-CW      6337/BCS
   CHKTTY1         6341-CW      6358/BCS
   CHKWAYT        10921-EQU    10926/BDR    10931/B
   CHK5:7         10278/LI     10348-EQU
   CHNGBASE       11160/CAL4   11414-DATA
   CHNGMOD#       10910-BAL
   CLAST           1960/STW     4581/LW      4670/STW     9519-DATA
   CLASTI          2201/LW      4408/STW     4625/STW     9518-DATA
   CLEAN           4425/AND     8004-DATA
   CLK4PULS        1731/AW      1733/DW      1734/SW      6938/AW      9612-DATA
   CLOCKSON         337-WD      1545/BAL
   CLRMEM          4752-STW     4753/BIR
   CLRPDF          1360/LPSD    1363-DATA
   CNTRO           7226/STW     7252/STW     7253/LW      7262/LW      7272/LW      7283/STW     9584-DATA
   COC             5934/LI      7966-DATA    8305/DATA
   COCBC           5925/CH      5933/STH     5938/LCH     5946/MTH     5951/CH      9542-DATA
   COCBYT          5939/LB      5942/LB      7966/DATA    7968-RES
   COCDEV          5750/TIO*    5921/TIO*    5935/SIO*    6006/STW     8745/TPNR   10053-DATA   10182/STW
     10639/CW
   COCEXP          8524/DATA    9340-TEXTS
   COCHDG          8523/DATA    9350-TEXTS
   COCL            5763/STB     5765/STB     5774/LB      5790/STB     5901/LB      5910/STB     5945/LB
      5973/STB     5983/STB     5995/STB     6502/STB     6508/LB      6514/STB     7917/LB      7960/STB
      8794/TPNR   10066-RES    10189/STB    10191/STB    10202/STB
   COCLINE         5826/CB      5912/STB     6008/STB     6489/LB      6504/STB     8748/TPNR   10056-DATA
     10185/STW    10193/LB     10199/STB
   COCLOFF          278/BAL      280/BAL     5991/BCR     7958-EQU    10165/BAL    10167/BAL
   COCMX           5795/LB      5976/LB      8746/TPNR   10054-DATA
   COCNR           5773/STB     5794/MTB     5796/CB      5977/CB      8749/TPNR   10057-DATA   10205/STB
   COCOFF          1087/BAL     6011-CI
   COCOP           8520/DES1    8793-TPNR
   COCRST         274.1/BAL     5923/BCS     6003-LI     10162/BAL
   COCSIZ            24-EQU     5932/LI      5939/LB      5942/LB      7967/DATA    7968/RES
   COCSTATE         272/MTB      298/LB       300/STB     1086/LB      5753/LB      5758/LB      5803/STB
      5884/MTW     5896/MTW     5911/STB     5918/LB      5981/STB     6000/STB     6004/STB     6505/STB
      7859/MTW     7871/MTW     7899/LB      8747/TPNR   10055-DATA   10159/MTB    10183/STW    10636/LB
   COCXMIT         5787/BAL     7920/BAL     7934-LB
   COCXMIT1        7936-LW      7956/B
   COCXMIT2        7939-CW      7945/BCR
   COCXMIT3        7940/BCS     7943/BCR     7959-LI
   CODE             724/STD      754/MTH      791/MTW     1619/AW      4341/AW      4471/STW     9702-DATA
   COMEXP          8348/DATA    9161-TEXTS
   COMMAP         10155-RES    11056/LI
   COMOPT         11187-CH     11190/BDR
   COMPAR          7160-LD      8346/DIR
   COMPAR1         7158/B       7162-STW
   COMPAR4         7162/STW     7179-DATA
   COMPAR5         7187-BAL     7199/BNE     7202/BAZ
   COMPRBA         7586-CB
   COMPRHA         7584/BANZ    7593-CH
   COMPRTBL        7178/BAL     7578-LW
   COMPRWA         7581/BANZ    7589-LW
   COMPRWA1        7163/STW     7590-CS
   COMSEL          7157/LD      7198-CS
   COMWORD         7160/LD      7201-CW
   CONDES        8526.1-DES1 11155.5/CAL4
   CONEXP          8353/DATA    9168-TEXTS
   CONFGEND        9715/DATA    9718/DATA 10285.3/STBS   11173/LI     11176/LI     11238/LI     11467-EQU
   CONFIG           932/CI      9717/DATA    9718/DATA   10157-B      10225/LW     10240/LI     10241/STW
     10282/LRA
   CONFIGR1        7113/BEZ     7119-BAL
   CONFIGUR        7109-LI      8351/DIR
   CONFIG0        10160/BEZ    10169/B      10172/BCS    10180/BNE    10200/B    10206.1-LPSD
   CONFIG1        10651/BCS    10866-EQU
   CONFIG2        10914-EQU    11282/BCR
   CONFIG3      10206.2-XPSD             10461.25/DATA
   CONFIG4      10206.3-LW     10483/DATA
   CONFPOS          259/LW      7115/LW      9726-DATA   11237/STW    11240/AW
   CONFXFER         258/STB      260/LD      7110/STB     7116/LD      9717-DATA
   CONQS           9526-DATA   10869/NOP  11155.6/NOP
   CONSTANT        9567-DATA
   COUNT            538/CW      1726/CW      1889/LW      1962/LW      2062/LW      2221/LW      2249/LW
      2267/LW      2326/LW      2516/CW      2531/CW      4410/LW      4468/CW      6446/CW      6455/CW
      6581/CW      6607/CW      6650/LW      6827/LW      9527-DATA   10243/STW    10272/MTW    10702/LW
     10705/MTW    10867/MTW    10871/MTW    10874/LW     10887/LW     10915/MTW    10918/LW     10927/LW
   11002.4/CW  11002.15/CW     11067/CW     11136/CW     11185/LW     11280/LW
   COUNT1           203/MTW      343/STW     9614-DATA   10405/XW     10412/LW     10419/STW
   COUNT2           204/MTW      344/STW     9615-DATA
   COUNT3           205/MTW      345/STW     9616-DATA
   COUNT4           206/MTW      346/STW     1730/LW      1739/STW     2508/MTW   3325.2/LW    3331.4/CW
    3336.3/CW      6939/AW      7147/STW     7748/LW      7753/CW      7763/CW      7846/LW      7856/CW
      7865/CW      7936/LW      7939/CW      9617-DATA
   CPDRIVE         2587-STW
   CPHAN           2580-B       9854/DATA    9855/DATA
   CPNOBUF         2584/B       2590/B       2592-STW     2625/B
   CPRD7201       11120/LD     11381-DATA
   CPSEEK         10855/LI     11393-DATA
   CPSEEK0        10761/LI  10788.16/LI  10788.22/LI     10799/LI     10806/LI     10815/LI  11002.42/LI
     11385-DATA
   CPSEEK1        10777/LI     11389-DATA
   CPSEEK2        10830/LI     11395-DATA
   CPSIO          10719/STB    10720/LI     11383-DATA
   CPSTART         2585/B       2609-STW
   CPSTOP          2621/LD      2628-DATA
   CPUADDR        10322-EQU    10364/B
   CPUAD1         10320/BCS    10327-EQU    10372/B
   CPUOPT         10342/B      10346/B      10374-EQU
   CPWR7201       11112/LD     11379-DATA
   CR               133-EQU     8962/TEXTS   8963/TEXTS 8963.1/TEXTS 8963.2/TEXTS   8965/TEXTS   8966/TEXTS
      8967/TEXTS   8968/TEXTS   8969/TEXTS   8970/TEXTS   8971/TEXTS   8972/TEXTS   8973/TEXTS   8974/TEXTS
      8975/TEXTS   8976/TEXTS   8977/TEXTS   8978/TEXTS   8979/TEXTS   8980/TEXTS   8981/TEXTS   8982/TEXTS
      8983/TEXTS   8984/TEXTS   8985/TEXTS   8986/TEXTS   8987/TEXTS   8988/TEXTS   8989/TEXTS   8990/TEXTS
      8991/TEXTS   8992/TEXTS   8993/TEXTS 8993.1/TEXTS 8993.2/TEXTS   9009/TEXTS   9022/TEXTS   9024/TEXTS
      9063/TEXTS   9087/TEXTS   9092/TEXT    9093/TEXTS   9095/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS
      9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS
      9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS
      9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS   9099/TEXTS   9119/TEXTS   9119/TEXTS
      9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS
      9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS
      9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS
      9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS   9119/TEXTS
      9119/TEXTS   9119/TEXTS   9119/TEXTS   9149/TEXTS   9149/TEXTS   9149/TEXTS   9149/TEXTS   9152/TEXTS
      9152/TEXTS   9152/TEXTS   9155/TEXTS   9155/TEXTS   9155/TEXTS   9155/TEXTS   9158/TEXTS   9158/TEXTS
      9158/TEXTS   9161/TEXTS   9161/TEXTS   9161/TEXTS   9161/TEXTS   9161/TEXTS   9168/TEXTS   9168/TEXTS
      9168/TEXTS   9170/TEXTS   9170/TEXTS   9170/TEXTS   9170/TEXTS   9174/TEXTS   9174/TEXTS   9174/TEXTS
      9174/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS
      9178/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS
      9178/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS   9178/TEXTS   9188/TEXTS   9188/TEXTS   9188/TEXTS
      9191/TEXTS   9191/TEXTS   9191/TEXTS   9191/TEXTS   9191/TEXTS   9191/TEXTS   9191/TEXTS   9191/TEXTS
      9198/TEXTS   9198/TEXTS   9198/TEXTS   9198/TEXTS   9198/TEXTS   9203/TEXTS   9203/TEXTS   9203/TEXTS
      9203/TEXTS   9203/TEXTS   9203/TEXTS   9203/TEXTS   9203/TEXTS   9203/TEXTS   9203/TEXTS   9203/TEXTS
      9203/TEXTS   9203/TEXTS   9203/TEXTS   9203/TEXTS   9203/TEXTS   9216/TEXTS   9216/TEXTS   9216/TEXTS
      9216/TEXTS   9219/TEXTS   9219/TEXTS   9219/TEXTS   9222/TEXTS   9222/TEXTS   9222/TEXTS   9222/TEXTS
      9222/TEXTS   9222/TEXTS   9222/TEXTS   9228/TEXTS   9228/TEXTS   9228/TEXTS   9228/TEXTS   9228/TEXTS
      9233/TEXTS   9233/TEXTS   9233/TEXTS   9233/TEXTS   9233/TEXTS   9237/TEXTS   9237/TEXTS   9237/TEXTS
      9237/TEXTS   9237/TEXTS   9237/TEXTS   9242/TEXTS   9242/TEXTS   9242/TEXTS   9242/TEXTS   9242/TEXTS
      9246/TEXTS   9246/TEXTS   9246/TEXTS   9246/TEXTS   9246/TEXTS   9246/TEXTS   9251/TEXTS   9251/TEXTS
      9251/TEXTS   9251/TEXTS   9254/TEXTS   9254/TEXTS   9254/TEXTS   9254/TEXTS   9254/TEXTS   9260/TEXTS
      9260/TEXTS   9260/TEXTS   9260/TEXTS   9260/TEXTS   9260/TEXTS   9260/TEXTS   9260/TEXTS   9267/TEXTS
      9267/TEXTS   9267/TEXTS   9272/TEXTS   9272/TEXTS   9272/TEXTS   9272/TEXTS   9272/TEXTS   9272/TEXTS
      9272/TEXTS   9272/TEXTS   9272/TEXTS   9272/TEXTS   9272/TEXTS   9272/TEXTS   9282/TEXTS   9282/TEXTS
      9282/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS
      9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS
      9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS
      9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS
      9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS
      9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS
      9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9284/TEXTS   9335/TEXTS
      9335/TEXTS   9335/TEXTS   9338/TEXTS   9338/TEXTS   9338/TEXTS   9340/TEXTS   9340/TEXTS   9340/TEXTS
      9340/TEXTS   9340/TEXTS   9340/TEXTS   9340/TEXTS   9340/TEXTS   9340/TEXTS   9340/TEXTS   9340/TEXTS
      9350/TEXTS   9350/TEXTS   9350/TEXTS   9353/TEXTS   9353/TEXTS   9353/TEXTS   9353/TEXTS   9353/TEXTS
      9353/TEXTS   9353/TEXTS   9353/TEXTS   9360/TEXTS   9360/TEXTS   9360/TEXTS   9362/TEXTS   9362/TEXTS
      9362/TEXTS   9362/TEXTS   9365/TEXTS   9365/TEXTS   9365/TEXTS   9365/TEXTS   9365/TEXTS   9369/TEXTS
      9369/TEXTS   9369/TEXTS   9369/TEXTS   9369/TEXTS   9369/TEXTS   9369/TEXTS   9369/TEXTS   9369/TEXTS
      9369/TEXTS   9369/TEXTS   9369/TEXTS   9369/TEXTS   9369/TEXTS   9369/TEXTS   9369/TEXTS   9369/TEXTS
      9369/TEXTS   9369/TEXTS   9369/TEXTS   9384/TEXTS   9384/TEXTS   9384/TEXTS   9388/TEXTS   9388/TEXTS
      9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS
      9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS
      9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS
      9388/TEXTS   9388/TEXTS   9388/TEXTS   9388/TEXTS   9416/TEXTS   9416/TEXTS   9416/TEXTS   9419/TEXTS
      9419/TEXTS   9419/TEXTS   9419/TEXTS   9419/TEXTS   9419/TEXTS   9419/TEXTS   9419/TEXTS   9419/TEXTS
      9419/TEXTS   9419/TEXTS   9419/TEXTS   9419/TEXTS   9419/TEXTS   9419/TEXTS   9419/TEXTS   9433/TEXTS
      9433/TEXTS   9433/TEXTS   9436/TEXTS   9436/TEXTS   9436/TEXTS   9438/TEXTS   9438/TEXTS   9438/TEXTS
      9438/TEXTS   9438/TEXTS   9438/TEXTS   9438/TEXTS   9444/TEXTS   9444/TEXTS   9446/TEXTS   9446/TEXTS
      9446/TEXTS   9446/TEXTS   9446/TEXTS   9446/TEXTS   9446/TEXTS   9446/TEXTS   9453/TEXTS   9453/TEXTS
      9453/TEXTS   9455/TEXTS   9455/TEXTS   9455/TEXTS   9455/TEXTS   9455/TEXTS   9455/TEXTS   9455/TEXTS
      9455/TEXTS   9455/TEXTS   9455/TEXTS   9455/TEXTS   9465/TEXTS   9465/TEXTS   9465/TEXTS   9467/TEXTS
      9467/TEXTS   9467/TEXTS   9467/TEXTS   9467/TEXTS   9467/TEXTS   9467/TEXTS   9473/TEXTS   9473/TEXTS
      9473/TEXTS  11403/TEXTS  11440/TEXTS  11440/TEXTS  11440/TEXTS  11440/TEXTS  11440/TEXTS  11440/TEXTS
   CRDRIVE         2556-STW
   CRHAN           2549-B       9850/DATA    9851/DATA    9852/DATA    9853/DATA
   CRNOBUF         2553/B       2559/B       2561-STW     2576/B
   CRSTART         2554/B       2566-STW
   CSEL            3509/OR      6597/OR      8006-DATA
   CSTART      10461.15/LW   11454.6-DATA
   CSTART1        10512/LW     11464-DATA
   CT:BUFAD         523/LW    2885.2/LW      3636/LW      4030/LW      4337/LW      4420/XW      4504/LW
      4533/LW      4607/LW      4656/STW  4746.31/LW   4746.34/LW    4747.3/STW     4756/LW   4789.28/LW
   4789.35/LW      6663/LW      8690/TPNR   10115-RES
   CT:CA           2088/LH      2385/CH      2528/CH      2918/LH      3140/LH      3301/AH      3437/LH
      3846/LH      4416/LH      5204/LH      6651/CH      6829/CH      8706/TPNR   10119-RES    10329/STH
     10961/STH 11002.36/LH  11002.37/LH     11105/AH     11187/CH
   CT:COM           908/LW      2574/LW      2617/LW      2622/LW      2677/LW      2719/LW      2793/LW
    2847.5/LW      2887/LW      3006/LW      3073/LW      3542/LW      3544/LW      3647/LW      3714/LW
      3734/LW      3739/LW      3826/LW      3891/LW      3905/LW      4107/LW      4181/LW      4258/LW
      6838/LW      8691/TPNR   10116-RES    11064/STW
   CT:CS            515/LH      1721/LH    1820.8/STH     2034/LH      2036/STH     2050/LH      2052/STH
      2069/LH      2086/STH   2090.2/LH   2090.53/STH   2208.2/LH    2208.7/STH     2214/LH      2219/STH
      2225/LH      2243/STH     2252/LH      2271/LH      2283/STH     2389/LH      2468/LH      2474/STH
      2489/LH      3049/STH     3814/STH     3939/LH      4163/STH     4281/STH     4298/LH      4424/LH
      4426/STH     4449/LH      4458/STH     4563/LH    4746.4/LH   4746.21/STH  4746.24/STH     6450/LH
      6452/STH     6600/LH      6603/STH     6629/LH    6631.3/STH     6834/LH      8688/TPNR   10113-RES
  11002.50/STH 11002.51/STH
   CT:DA            519/LH       860/LH       910/LH      1747/LH      2431/CH      2438/CH      3141/STH
      3302/STH     3635/STH     3853/STH     4461/LH      4710/LH      6635/LH      8685/TPNR    9714/DATA
      9715/DATA   10110-RES    10240/LI     10328/STH    10356/LI     10357/LI     11148/AI   11155.1/LH
     11306/STH    11317/STH
   CT:DS           3186/LH      3425/LH      3433/LH      3506/LH      3508/STH     3579/LH      3582/STH
      3595/SH      3850/LH      6588/LH      6590/STH     6617/LH      6620/STH     8686/TPNR   10111-RES
     10333/STH    10995/LH  11002.12/LH  11002.22/LH     11099/LH     11313/STH
   CT:DUAL       8698.1/TPNR   10123-RES 11002.53/STB 11002.54/STB    11220/LB
   CT:ETX           775/LB      1748/LB      2259/LB      2340/LB      2388/LB      2535/LB      6670/LB
      8695/TPNR   10121-RES    10962/STB  11002.7/LB  11002.18/LB     11060/LB     11072/LB   11195.1/LB
     11228/LB
   CT:FT            907/STH     1754/MTH   2720.2/STH     3009/STH     3466/MTH     3785/STH     4130/STH
      6837/STH     8704/TPNR   10128-RES
   CT:MAP          3144/LW      3213/LW      3249/LW      3258/LW      3274/LW      3774/LW      3847/LW
      3889/LW      8692/TPNR   10117-RES    11133/STW    11216/LW     11222/LW
   CT:MNE         10152-RES    10964/STH
   CT:MOD         10151-RES    10963/STH
   CT:OPS          1720/LH      2046/LH    2090.3/LH   2090.50/STH     2212/LH      2254/LH      2268/LH
      2327/LH      2337/LH      2390/LH      2469/LH      3050/STH     3815/STH     4164/STH     4282/STH
      4299/LH      4427/LH      4429/STH     4564/LH    4746.7/LH    4747.6/LH      4757/LH      4765/LH
    4789.6/LH      6584/LH      6596/LH      6598/STH     6625/LH      6627/STH     8687/TPNR   10112-RES
     10331/STH    10960/STH    11318/STH
   CT:ORD           524/LB      2568/STB     2611/STB     2787/STB     2854/CB      2867/STB   2915.2/LB
      2933/LB      3152/LB      3166/STB     3631/STB     3632/LB      4057/STB     4102/STB     4505/LB
      4534/LB      4580/STB     4589/LB      4640/STB     8693/TPNR   10118-RES
   CT:PC           2859/CB      3982/CB      8697/TPNR   10127-RES    10945/STB  10955.5/STB
   CT:POS          2990/CW      3147/STW     3188/LW      3239/LW      3283/STW     3591/LW      3593/STW
      3844/STW     8701/TPNR   10124-RES
   CT:REL          2467/LB      8696/TPNR   10122-RES    10969/STB    10973/LB     10974/STB    10975/STB
   CT:RETRY        2915/STB   2962.3/LB      2969/MTB     3026/MTB     3054/STB     3066/MTB     3652/STB
      3694/MTB     3704/MTB     3708/STB     3898/LB      3942/LB      8705/TPNR   10129-RES
   CT:SEEK          526/LW      3300/STW     3307/GEN     3634/STW     3906/CW      4100/MTW     4125/MTW
      4263/STW     4398/LW      4529/CW      4688/LW      6659/LW      6660/STW     6678/CW      6702/DATA
      8689/TPNR   10114-RES
   CT:SENSE         527/LW      3309/GEN     3347/STW     3926/DATA    3928/DATA    3945/LW      3948/STW
      4190/STW     4397/LW      8702/TPNR   10125-RES
   CT:SENSE1        529/LW      3348/STW     3936/STW     4195/STW    10135-RES
   CT:SENSE2        530/LW      3351/STW     3937/STW     4192/STW    10136-RES
   CT:SENSE3        531/LW      3352/STW     3678/MTH     3799/MTH     3858/STW     4191/STW    10137-RES
   CT:SEV          4283/MTB     8694/TPNR   10120-RES
   CT:SF           1986/LB      1990/STB     1992/LB      2016/LB      3265/LB   4746.26/LB      8698/TPNR
     10130-RES    10946/STB  10955.2/STB
   CT:TIO           522/LD      4308/LD      4464/STD    10133-RES
   CT:WAIT         1788/MTB     2487/STB     8703/TPNR   10126-RES
   CTEXP           8531/DATA    8538/DATA    9284-TEXTS
   CTHDG           8530/DATA    9335-TEXTS
   CTSIZ             19-EQU     4407/LI      8528/DES2    8535/DES2   10110/RES    10111/RES    10112/RES
     10113/RES    10114/RES    10115/RES    10116/RES    10117/RES    10118/RES    10119/RES    10120/RES
     10121/RES    10122/RES    10123/RES    10124/RES    10125/RES    10126/RES    10127/RES    10128/RES
     10129/RES    10130/RES    10133/RES    10135/RES    10136/RES    10137/RES    10148/RES    10149/RES
     10150/RES    10151/RES    10152/RES    10155/RES
   CTSIZE          1931/DW   2090.29/LW      2332/STW     9514-DATA
   CT0P          8526.1/DES1    8534/DES1    8684-TPNR
   CVA1            5059/BEZ     5076-LW
   CVA2            5085-LCW     5103/BEZ
   CVA3            5083/BCR     5094-CVA     5102/BCR
   CVA4            5097/BE      5100-AI
   CWFLT           4861/B       4879-LW
   CYCLER          1828/LB      1831/STB     1835/CW      8767/TPNR   10081-DATA
   CYCLES          1827/MTB     1832/LB      1837/STB     1865/LB      2112/LB      2136/CB      8768/TPNR
     10082-DATA
   CYCLEX          1827-MTB     1836/BCR
   CYL203         10809/LW     11401-DATA
   CYL406         10783/LW     11400-DATA
   CYL555       10788.1/LW   11399.2-DATA
   CYL815       10788.7/LW   11399.1-DATA
   DATAIN0         6062/BE      6073-LB
   DATAIN1         6078-AI      6083/B
   DATAIN2         6080/BCR     6085-STW
   DATAIN3         6088/BCS     6092-STW
   DATAIN4         6095/B       6103-LW
   DATAIN5         6055/BE      6107-LI
   DATAIN6         6110-AI      6115/B
   DATAMOD         6053/BE      6059-LW
   DATAMODE        5349/LW      5359/STW     5378/LW     10079-DATA
   DATAPOS          251/LW      7112/LW      7132/MTW     9725-DATA   10231/STW    11233/STW    11236/AW
   DATASEL         4820/LB      5307/LB      5334/LB      5341/LB      5357/CB      5373/LB      8760/TPNR
     10078-DATA   10274/STB    10323/LB     10325/STB    10382/LB     10384/STB    10397/LB     10399/STB
   DATAUD          5010/B       5252-BAL
   DATAXFER         250/STB      252/LD      9714-DATA   11151/STW
   DAYS            6942/STW     7149/LW      8787/TPNR    9605-DATA
   DCFLT           4916/B       4929-LCI
   DC32Q          10787/BANZ   10798-EQU
   DECAVL          5316/BCR     5320-CI
   DECENDBF        5491/B       5504/B       5525/B       5539-LCI
   DECIMAL          146-EQU     6302/CI      7475/CI      7621/CI
   DECIMALG        5323/BCS     5480-BAL
   DECODEI         4802/BCR     4806/BCR     4811-LB
   DECX            5315/CI      5319/LI      5691-EQU
   DED:1           6202/STM     7171/STW     7211/LW      9505-DATA
   DED:2           6211/LB      6220/LW      6242/LW      9506-DATA
   DED:3           6049/BE*     6098/BCS*    6252/LB      6538/STW     6784/B*      6795/B*      7332/B*
      9507-DATA
   DED:4           6927/LW      9508-DATA
   DED:5           6396/LW      6536/STW     9509-DATA
   DELIMETR         135-EQU     6056/CI      6159/CI      6186/CI      6207/CI      6226/CI      6248/CI
      7465/CI      7612/CI
   DESELECT        6606-LW      8356/DIR
   DESEXP          8358/DATA    9221-EQU
   DESTAB          6191/LI      8503-EQU
   DESTABE         6190/LI      8631-EQU
   DES1            8483-COM
   DES2            8492-COM
   DEVDRIVE          48-EQU     2498/BCS     2502/BCS
   DEVERROR          47-EQU     2496/BCS
   DEVIATED        1215/B       1352-LW
   DEVIATES        1359/MTW     1375-DATA
   DEVIATID        1356/LW      1374-DATA
   DEVIAT4C        1228/XPSD    1340-DATA    1348/ANLZ*   1349/LD
   DEVIAT46        1204-DATA    1212/ANLZ*   1213/LD      1227/XPSD
   DEVIP          11320/CAL4   11410-DATA
   DEVLOOP           42-EQU     2463/BCR     2490/B       2494/BCS
   DEVNOBUF          45-EQU     1767/BAL
   DEVNOP          2781/CAL4    9038-DATA   10695/CAL4
   DEVREGS         1211/STM     1347/STM     1368/LM      9737-RES
   DEVRETRY          44-EQU     1756/BAL
   DEVRSTRT          43-EQU     1794/BAL
   DEVSTART          46-EQU     1762/BAL
   DEVTHER        10891/BCR    10896-EQU
   DEVWAIT           41-EQU     1791/BAL
   DEVWP           3718/CAL4    9052-DATA
   DID:1           6181/STW     6215/LW      6268/B*      9504-DATA
   DIR             8314-COM
   DIRTAB          6176/LI      6194/LI      8324-EQU
   DIRTABE         6175/LI      8474-EQU
   DISC           10776-LI
   DISEXP          8363/DATA    9170-TEXTS
   DISPDIR          729/LW      1198/LW      8361-DIR
   DISPLAY         6768/BCR     6776/B       6778-LW      8361/DIR
   DISPLAY1         743/BEZ     6781-BAL
   DISPXIT         6787-BAL     6820/BCS     7155/B       7185/B       7192/BG      8508/DES2    8515/DES2
      8522/DES2    8543/DES2    8550/DES2    8557/DES2    8564/DES2    8571/DES2    8592/DES2    8599/DES2
      9480/DATA    9481/DATA   11367/DES2
   DIVERT          1219-STW     1246/BAL     1393/BAL     1530/BAL
   DIVERTED        1219/STW     1354/LW      1376-DATA
   DIVERTS         1220/LPSD    1223-DATA
   DIVERT4C        1228-XPSD    1391/LW
   DIVERT46        1227-XPSD    1244/LW
   DIVIDE           152-EQU     7481/CI
   DLAST           2204/MTW     2208/STW     4409/STW     4595/LW      4661/STW     9520-DATA
   DLDATA         10394/DL     11450-DATA
   DOTIO          10723-TIO    10726/BIR
   DPSENSE         3313-GEN     3330/LI
   DSELECT1        6611/BNEZ    6617-LH
   DSELECT2        6615/B       6625-LH
   DST1            5509/B       5522-BAL
   DTEXP           8629/DATA    9446-TEXTS
   DTHDG           8628/DATA    9453-TEXTS
   DT1P            8625/DES1    8786-TPNR
   DUALNOT        11221/BCR    11228-LB
   DUPSCFLG       10632/STW    10674/LW     10693/MTW    10711/STW    11465-DATA
   DVRECEX        10894/B      11324-LH
   D98             5449/DW      5707-DATA
   EBCDIC          5944/LB      8146-DATA
   EBINC           9727-DATA   11245/STW
   EBSIZ             21-EQU     6915/DATA    9636/DATA    9638/DATA    9722/DATA   10102/DATA   10106/RES
     11243/LI
   EBSX            5325/CI      5702-EQU
   ECHO            5810/BAL     5841/BAL     7884/BAL     7897-STW
   ECHO1           5959/CI      7905-BAL
   ECHO2           7906/B       7909/BNE     7914-LD
   ECHO3           7917-LB      7924/BL
   ECHO4           7901/BCR     7926-CI
   EFLIMIT          594/CW      9724-DATA   11251/STW
   EFREAD          6894/LD      6914-DATA
   EFSECTOR       304.2/STW    316.8/LW       589/LW       593/AW       597/STW     6866/STW   6874.3/LW
      6885/LW     10103-DATA   11242/STW
   EFSTART        304.1/LW     594.4/LW      6853/LW      9723-DATA   11241/STW    11246/LW
   EFSTART1        6854/STW     6893/LW      6896/AWM     6917-DATA
   EFWRAP         312.1/STW    594.3/MTW   6874.1/STW   8752.2/TPNR  9724.1-DATA
   EFWRITE        316.9/LD       590/LD    6874.4/LD      6886/LD      9721-DATA
   EIGHT           5044/DW      5398/DW      8211-DATA
   ELTPNR1          705/AI       712/AI      8639/DES1    8796-TPNR
   ELTPNR2          712/AI       716/AI      8808-TPNR
   ELTPNR3          716/AI       720/AI      8820-TPNR
   ELTPNR4          720/AI      8833-TPNR
   ELTPNR5         8645/DES1    8844-TPNR
   ELTPNR6         8651/DES1    8856-TPNR
   ELTPNR7          705/AI      8865-TPNR
   EM               132-EQU     8962/TEXTS   8963/TEXTS 8963.1/TEXTS 8963.2/TEXTS   8965/TEXTS   8966/TEXTS
      8967/TEXTS   8968/TEXTS   8969/TEXTS   8970/TEXTS   8971/TEXTS   8972/TEXTS   8973/TEXTS   8974/TEXTS
      8975/TEXTS   8976/TEXTS   8977/TEXTS   8978/TEXTS   8979/TEXTS   8980/TEXTS   8981/TEXTS   8982/TEXTS
      8983/TEXTS   8984/TEXTS   8985/TEXTS   8986/TEXTS   8987/TEXTS   8988/TEXTS   8989/TEXTS   8990/TEXTS
      8991/TEXTS   8992/TEXTS   8993/TEXTS 8993.1/TEXTS 8993.2/TEXTS   9009/TEXTS   9010/TEXTS   9011/TEXTS
      9012/TEXTS   9013/TEXTS   9014/TEXTS   9015/TEXTS   9016/TEXTS   9017/TEXTS   9019/TEXTS   9020/TEXTS
      9021/TEXTS   9022/TEXTS   9024/TEXTS 9028.1/TEXTS   9035/TEXTS   9037/TEXTS   9039/TEXTS   9045/TEXTS
      9049/TEXTS   9051/TEXTS   9053/TEXTS   9055/TEXTS 9055.2/TEXTS   9057/TEXTS   9059/TEXTS 9059.1/TEXTS
    9059.2/TEXTS 9059.3/TEXTS 9059.4/TEXTS 9059.5/TEXTS   9061/TEXTS   9063/TEXTS   9065/TEXTS   9070/TEXTS
      9073/TEXTS   9076/TEXTS   9079/TEXTS   9082/TEXTS   9087/TEXTS   9092/TEXT    9093/TEXTS   9095/TEXTS
      9099/TEXTS   9119/TEXTS   9149/TEXTS   9152/TEXTS   9155/TEXTS   9158/TEXTS   9161/TEXTS   9168/TEXTS
      9170/TEXTS   9174/TEXTS   9178/TEXTS   9188/TEXTS   9191/TEXTS   9198/TEXTS   9203/TEXTS   9216/TEXTS
      9219/TEXTS   9222/TEXTS   9228/TEXTS   9233/TEXTS   9237/TEXTS   9242/TEXTS   9246/TEXTS   9251/TEXTS
      9254/TEXTS   9260/TEXTS   9267/TEXTS   9282/TEXTS   9335/TEXTS   9338/TEXTS   9350/TEXTS   9360/TEXTS
      9362/TEXTS   9365/TEXTS   9384/TEXTS   9416/TEXTS   9433/TEXTS   9436/TEXTS   9444/TEXTS   9453/TEXTS
      9465/TEXTS   9473/TEXTS  11403/TEXTS  11405/TEXTS  11407/TEXTS  11409/TEXTS  11411/TEXTS  11413/TEXTS
     11415/TEXTS  11417/TEXTS  11419/TEXTS  11421/TEXTS  11423/TEXTS  11425/TEXTS  11427/TEXTS  11429/TEXTS
     11431/TEXTS  11433/TEXTS  11435/TEXTS  11437/TEXTS             11438.1/TEXTS  11440/TEXTS
   EM000           8918/DATA    8962-TEXTS
   EM100           8955/DATA    8987-TEXTS
   EM101           8956/DATA    8992-TEXTS
   EM200           8954/DATA    8986-TEXTS
   EM300         8960.3/DATA  8993.2-TEXTS
   EM4C0           8945/DATA    8946/DATA    8947/DATA    8983-TEXTS
   EM4D0           8948/DATA    8949/DATA    8950/DATA    8951/DATA    8952/DATA    8953/DATA    8985-TEXTS
   EM401           8923/DATA    8967-TEXTS
   EM402           8924/DATA    8990-TEXTS
   EM404           8925/DATA    8968-TEXTS
   EM408           8926/DATA    8969-TEXTS
   EM410           8927/DATA    8970-TEXTS
   EM42E           8939/DATA    8979-TEXTS
   EM42F           8940/DATA    8980-TEXTS
   EM420           8928/DATA    8971-TEXTS
   EM460           8929/DATA    8930/DATA    8931/DATA    8932/DATA    8933/DATA    8972-TEXTS
   EM5B0           8919/DATA    8963-TEXTS
   EM5CA           8936/DATA    8976-TEXTS
   EM5CB           8958/DATA    8989-TEXTS
   EM5CC           8959/DATA    8991-TEXTS
   EM5C0           8935/DATA    8975-TEXTS
   EM5C1           8920/DATA  8963.2-TEXTS
   EM5C2           8921/DATA    8965-TEXTS
   EM5C3           8957/DATA    8988-TEXTS
   EM5C4           8922/DATA    8966-TEXTS
   EM5C5           8960/DATA    8993-TEXTS
   EM5C6         8960.1/DATA  8993.1-TEXTS
   EM5C7         8960.2/DATA  8963.1-TEXTS
   EM5C8           8934/DATA    8973-TEXTS
   EM510           8941/DATA    8981-TEXTS
   EM560           8942/DATA    8982-TEXTS
   EM568           8943/DATA    8984-TEXTS
   EM570           8944/DATA    8974-TEXTS
   EM800           8937/DATA    8977-TEXTS
   EM801           8938/DATA    8978-TEXTS
   ENDBYT          1959/STW     2207/LW      4624/LW      9539-DATA
   ENDCORE         2596/CW      4609/CW   6784.23/LW      8758/TPNR   10076-DATA   10260/STW
   ENDMAP         11074/BEZ    11143-STW
   ENDMSG           158-EQU
   ENDOPT         11205/BLE    11211-EQU
   EOR              136-EQU     6052/CI      7467/CI      7545/CI
   EORTBL          7540/BCR     7543/BCS     7545-CI
   EPDATA         11397/DATA   11445-DATA
   EPRAD          10793/BCS    10828-EQU
   EPSS           10772/BCS    10792-CW
   EP4BYT         10833/BCS    10837-EQU
   EQUAL            148-EQU     6038/CI      7485/CI
   EQUALS          6039/BCR     6296-STW
   EQUALS1         6308/BCR     6310-LI
   ERASE            142-EQU     6054/CI      6155/CI      7469/CI
   ERASET          3732/LD      3924-DATA
   ERRBUF           180/DATA    6914/DATA    9712/DATA    9721/DATA   10100-EQU    11230/LI     11238/LI
   ERRBUF0          600/STW     9635/DATA    9637/DATA   10101/DATA   10105-DATA
   ERRCODE          629/STM      643/LB       681/CW       689/LB       698/LW       751/LW       806/STW
       832/STW     9697-DATA
   ERRDES           694/LM      8639-DES1
   ERRDES1          773/LM      8645-DES1
   ERRDES2          816/LM      8651-DES1
   ERREXP          8368/DATA    9178-TEXTS
   ERRFILE          315/STD      446/LD       508/PSM      534/PSM      548/PSM      556/LW       603/STD
      6855/LD      6869/STD     6907/STD    10101-DATA
   ERRFILEI         314/LD       602/LD      6868/LD      6889/LD      9635-DATA
   ERRFILEP        6856/STD     6870/STD     6906/LD      6916-RES
   ERRHDG           576/LW       671/STW     9684-DATA
   ERRLOG           447/STD      558/MTW      585/LW       604/STD      620/LM*      691/AWM      758/LM*
       764/MTW      767/LM*      770/MTW      809/LM*      813/AWM     6890/STD     6891/MTW     6898/LW*
    6900.3/LM*     9637-DATA
   ERROR           3055/OR      3772/OR      3875/OR      4152/OR      4457/OR      8013-DATA
   ERRORS          6217/CI      6853-LW      8366/DIR
   ERRORS0       6861.4/BNEZ  6862.1-LI
   ERRORS2         6861/BLZ     6866-STW
   ERRORS3         6864/B       6876-STD
   ERRTAB           631/STB      633/STB      641/LI       759/STM      762/STW      768/STM      810/STM
       835/LM       836/STM     8796/TPNR    8797/TPNR    8798/TPNR    8799/TPNR    8800/TPNR    8801/TPNR
      8802/TPNR    8803/TPNR    8804/TPNR    8805/TPNR    8806/TPNR    8808/TPNR    8809/TPNR    8810/TPNR
      8811/TPNR    8812/TPNR    8813/TPNR    8814/TPNR    8815/TPNR    8816/TPNR    8817/TPNR    8818/TPNR
      8820/TPNR    8821/TPNR    8822/TPNR    8823/TPNR    8824/TPNR    8825/TPNR    8826/TPNR    8827/TPNR
      8828/TPNR    8829/TPNR    8830/TPNR    8831/TPNR    8833/TPNR    8834/TPNR    8835/TPNR    8836/TPNR
      8837/TPNR    8838/TPNR    8839/TPNR    8840/TPNR    8841/TPNR    8842/TPNR    8844/TPNR    8845/TPNR
      8846/TPNR    8847/TPNR    8848/TPNR    8849/TPNR    8850/TPNR    8852/TPNR    8853/TPNR    8854/TPNR
      8856/TPNR    8857/TPNR    8858/TPNR    8859/TPNR    8860/TPNR    8861/TPNR    8862/TPNR    8863/TPNR
      8865/TPNR    8866/TPNR    8867/TPNR    8868/TPNR    8869/TPNR    8870/TPNR    8871/TPNR    8872/TPNR
      9698-RES
   ERRXIT          6900/BEZ     6903/B       6906-LD
   ERRXIT0       6874.7/B     6908.1-LI
   ESCAPE           154-EQU     5829/CI      5966/CI      6033/CI
   ET:CDW          2902/CB      2904/LB      3107/CB      3109/LB      8716/TPNR    9891-RES     9923/DO
     11061/LB
   ET:HNDLR        1749/LW      2391/LW      8714/TPNR    9831-RES     9865/RES
   ET:MNE          8713/TPNR    9793-RES     9827/RES    10935/LH
   ET:MOD          2643/LH      2682/LH      2730/LH      2796/LH      8712/TPNR    9746-RES     9747/EQU
      9749/EQU     9751/EQU     9756/EQU     9760/EQU     9763/EQU     9765/EQU     9776/EQU     9784/EQU
      9789/RES    11079/LH     11336/CH
   ET:RPX           865/LB      1896/LB      1966/LB      2898/LB    2951.1/LB      2984/LB      3103/LB
      3142/LB      3184/LB      3842/LB      8715/TPNR    9869-RES     9884/DO     10981/LB     11073/LB
     11229/LB
   ETEXP           8545/DATA    9353-TEXTS
   ETHDG           8544/DATA    9360-TEXTS
   ETIEXP          8552/DATA    9352-EQU
   ETSIZ             18-EQU     8542/DES2    8549/DES2    8634/DES2    9789/RES     9827/RES     9865/RES
      9884/DO      9923/DO     10929/CI     11335/LI     11336/CH     11342/AI
   ETXDPS           227/CI       779/CI       922/CI      1892/CI      1978/CI      2007/CI    2423.5/CI
      2895/CI    2915.6/CI      2947/CI      3084/CI      3100/CI      3328/CI      9756-EQU    11084/CI
   ETXEP           9749-EQU
   ETXEP4          2070/CI      2230/CI      9751-EQU
   ETXHSRAD        1981/CI      3090/CI      9747-EQU
   ETXMM           2434/CI      2536/CI      9784-EQU    10940/CI
   ETXRADS          776/CI      1894/CI      2009/CI      2260/CI      2942/CI      6671/CI      9760-EQU
     10953/CI     10985/CI   11002.8/CI  11002.19/CI     11204/CI
   ETXTAPES        2341/CI      3499/CI      3538/CI      3745/CI      9765-EQU    10948/CI
   ETX7160         2614/CI      9776-EQU
   ETX9T           9763-EQU
   ET0P            8541/DES1    8548/DES1    8711-TPNR
   EXEC            5813/BAL     5835/BAL     6019-STW
   EXECBUF         6146-LI      6187/BCS     7641/B
   EXECCCI         6118/B       6143-STW     6800/LI      6807/B
   EXECMSG         6094/B       6149-BAL
   EXECUTE         6975/STD     6980/XW      7069/LW      7074/AI      7102-DATA
   EXECUTE1        7103-DATA
   EXECUTE2        6967/STW     7104-B
   EXIT             413/STD      415/STH      421/STW      423/LRP      427/MTB      430/LPSD     432/LPSD
       435-RES
   EXPDIR          6192/CW      8371-DIR
   EXPEXP          8373/DATA    9174-TEXTS
   EXPLAIN         6388-LW      8371/DIR
   EXPLAIN1        6031/BCR     6396-LW
   EXPLAIN3        6401-LI      6419/B       6424/BGE     6537/LI      6578/B       6788/B       6911/B
   EXTINT         10540/LI     10584-EQU
   FASDATA        10379/FAS    11449-DATA
   FAULTS          1657/STB     1676/OR      9591-DATA
   FILEFULL         509/BCS      535/BCS      549/BCS      585-LW
   FILEIT           482/BCR      485-SLS
   FILER1           507-LCF      608/B
   FILLCOM      11002.5/BG     11055-EQU
   FILLCT         10949/BG     10954/BG     10959-EQU
   FILLIOPW       10970/B      10977-EQU
   FILLMAP        11071-EQU    11137/BLE
   FINDDV         10984/BAL    11292-LI
   FINDETX        10704/BAL    10897/BAL    10910/BAL    11335-LI
   FINDMUC        10692/BCR    10699-BAL
   FINDSECT       11231/BAL    11235/BAL    11239/BAL    11244/BAL    11264-LI
   FINDWAYT       10923/BE     10933-EQU
   FIRSTBUF        1909/STW     1954/SW      2117/LW      8756/TPNR   10074-DATA
   FIXED           5361/BANZ    5368-AI
   FIXED1          5344/BAZ     5347/BANZ    5369-STD
   FIXEF7           303/BAZ    316.6/BANZ     321-BAL
   FLAWS          286.6/STW   2974.4/MTW   8752.4/TPNR  9574.5-DATA
   FLDERROR      6281.2/LI      7628/LI      9078-DATA
   FLOATG          5318/BCS     5440-BAL
   FLOATX          5310/CI      5314/LI      5686-EQU
   FLOTAVL         5311/BCR     5315-CI
   FLOTGLNG        5461/BCS     5466-LW
   FLOTSHRT        5464/B       5468-LD
   FLTCOMP         4872/B       4883-BCR
   FLTSHRT         5429/B       5435/BCR     5438/B       5463-LI
   FORCE           8010-DATA
   FORCEPUT        2655/BAL     2937/BAL     3029/BAL     3069/BAL     3440/BAL     3587/BAL     3712/BAL
      4093/BAL     4156/BAL     4549-STW     6630/BAL
   FRESHN          4552/OR      5255/OR      8003-DATA
   FULLBUF         5389/BCR     5396-AI
   GENCT         1850.2/BAL     2325-LI
   GENCT1          2327-LH      2331/BDR
   GENMC           5027/BAL     5114/BAL     5166-LB      5225/BAL
   GETBASE        11102/BCS    11105-AH
   GETBUF          2562/BAL     2593/BAL     2668/BAL     2883/BAL     3639/BAL     4103/BAL     4585-EQU
   GETBUF1         4582/BAL     4597-STW
   GETB2           4602/BEZ     4609-CW      4613/B       4619/BANZ    4626/BDR     4648/BCS
   GETB2A          4616/BLEZ    4624-LW
   GETB3           4622/BGE     4632-CI
   GETB3A          4633/BNE     4637/BAZ     4642-LB
   GETB4           4644/BCR     4654-OR
   GETB5           4646/BCS     4650-CI
   GETB6           4659/BCR     4667-AND
   GETB8           4598/BLZ     4629-AND
   GETCARD        10871-MTW    10898/B
   GETCNT         10702-LW     10747/B      10750/B      10753/B
   GETIP         6379.1-LH      6385/BCR
   GETLEV         10565-LH     10577/BCS
   GETMAP          2418/BAL     3391/BAL     3444/BAL     3630/BAL     3656/BAL     3665/BAL     3680/BAL
      3872/BAL     3887-LI
   GETOPDES        5418/BAL     5440/BAL     5480/BAL     5544/BAL     5631-LW
   GETORD         10718-LB     10733/BIR
   GETPACK#        5651-LB      5660/BDR
   GETRAD          1890/BAL     2063/BAL     2222/BAL     2337-LH
   GETRAD1         1963/BAL     2340-LB
   GETRAND#        5635-BAL     5638/BIR
   GETSENSE        2926/BAL     3062/BAL     3321-EQU
   GETXP           4557-DATA    4583/LPSD    4671/MTW     4672/LPSD    4768/XPSD
   GETXP0          4569/BEZ     4580-STB
   GROUP0           347/LW      6729/LW      9706-DATA
   GRP0LEVS       10275/LW     11462-DATA
   GS0           3331.2/BCR     3334-LI    3336.7/BANZ
   GS1           3343.4/BAZ   3343.8-LD
   GS2           3331.6/B     3336.4/BLE   3343.6-HIO
   GS3           3331.1-SIO   3331.5/BG
   HALT             139-EQU     8260/DATA
   HDGMSG           667/LW       670/LW      8919-DATA
   HEADING         6781/BAL     6792/BAL     6799/BAL     6810/BAL     6921-STW     7174/BAL
   HELP           10727/B      10734/B      10737/BCR    10755-CAL4
   HELPMSG        10755/CAL4   11408-DATA
   HIO             6528-LI      8381/DIR
   HIOEXP          8383/DATA    9259-EQU
   HIOPOLL         1571/BAL     4440-LI
   HLTEXP          8378/DATA    9188-TEXTS
   HLTLEV           568/CH      8743/TPNR   10051-DATA
   HLTPRMPT         579/LW       943/LW      1090/LW    2321.9/LW      6136/LW      8260-DATA
   HOURS            497/LW      8789/TPNR    9606-DATA
   HS             10774/BCS    10825-LI
   HWBOOT          6715/LM      6750-LI
   IDENT            582/LW       733/STW      752/LW       817/LW      9696-DATA
   IDENTS           663/CS      8874-DATA    8916/EQU
   IDENTSAV      6861.1/STW   6900.6/LW    9690.1-DATA
   IDENTSEL         554/STW      635/LW   6900.11/STW     9691-DATA
   IDENTSIZ         660/LI       663/CS       670/LW      8916-EQU
   IMDIS          11274/CAL4   11365-DES1
   IMP            11365/DES1   11371-TPNR
   IM1            11273/STD    11281/LW     11371/TPNR   11375-DATA
   IM2            11284/LW     11372/TPNR   11376-DATA
   INADTAB        10884/BE     10905-EQU
   INCADR          6320/BCR     6322/BCS     6329/BCR     6331/BCS     6333/BCR     6335-AI
   INCADR1         6342/BCR     6344/BCS     6351/B       6354/BCR     6356-AI
   INCDEV#        10634-AI     10643/BAZ    10649/BCR    10663/BCS  10665.1/BAZ    10697/B      10708/BCR
     10758/B
   INCDEV#1       10636-LB     10646/B      10712/B
   INCDEV#2       10637/BEZ    10640/BNE    10648-CW
   INCMEM       10244.1-AI     10248/BL
   INCREG#        10425/LI     10431/BNE    10438-LRP
   INCRGRP        10561/BNE    10580-EQU
   INCTX          10988-EQU    10994/BCS    10997/BCR    10999/B
   INITAL          2085/OR      2241/OR      2279/OR    3043.2/OR      6601/OR      8012-DATA
   INITENV          292/BAL      331-LCI    10234/BAL
   INITIAL        10171-LW     11468/END
   INITIAL1         221-LI     11262/B
   INITPSD         7120/LPSD 10206.1/LPSD             10461.25-DATA
   INITPSD1     10206.2/XPSD 10206.3/LW     10481-DATA
   INMSGMOD        6022/BNEZ    6025/BE      6120-CI
   INTACK          6367/BCR     6370-AI
   INTCHKBF        4915/DST     4927/UNPK    4928/PACK    4930/LM      4932/DC      4945/STD     4952/LD
      4964/LD      4981/LD      5619/AI      5624/LI      5647/STD     5648/STD     5658/STB     5661/STB
      5667/STB     5668/LW      5669/LW      5670/LD      5677-RES
   INTERLEV        1470/BAL     1473/BAL     1502-CW
   INTERUPT       10146-RES    10276/STH    10289/LH     10291/STH    10304/LH     10306/STH    10414/LH
     10416/STH    10559/STH    10565/LH
   INTIDENT       10541/LW     11452-DATA
   INTPEND         6346/BCS     6353-CI
   INTSIZ            26-EQU    10146/RES
   INT5A            211/XPSD    1070-DATA
   INT5B            212/XPSD    1685-DATA
   INT5C            213/XPSD    2349-DATA
   INT5D            214/XPSD    1079-DATA
   INT50            201/XPSD    1536-DATA
   INT501          1543-LCW     1556/DATA
   INT51            202/XPSD    1562-DATA
   INT56            207/XPSD    1581-DATA
   INT56A          1598-LD      1609/BGEZ
   INT56B          1591/BGEZ  1613.1-EQU
   INT56C          1600/BCS     1608-AI
   INT56D          1496/BANZ    1500/B       1603/BCS     1606/BANZ    1611-BAL
   INT57            208/XPSD    1640-DATA
   INT58            209/XPSD    1052-DATA
   INT59            210/XPSD    1061-DATA
   INVALID#       10900-NOP    10912/B
   IO              6669/LI      6702-DATA
   IOEXP           6535/LI      9438-TEXTS
   IOHDG           6539/LI      9444-TEXTS
   IOP            10597/BCR    10615/BCS    10621-LW
   IOPARITY        2932/BAL     3724/BAL     4201/BAL     4304-LI
   IOPAR0          4315/BGE     4334-LW
   IOPAR1          4341-AW      4367/B       4402/B
   IOPEXP          8559/DATA    8566/DATA    9467-TEXTS
   IOPHDG          8558/DATA    8565/DATA    9473-TEXTS
   IOPKW           1270/LH      8721/TPNR   10143-RES    10623/STH    11362/STH
   IOPR            2455/LB      8719/TPNR   10141-RES
   IOPRE           2453/MTW     8722/TPNR   10144-RES    10625/STW
   IOPSIZ            25-EQU     8556/DES2    8563/DES2   10141/RES    10142/RES    10143/RES    10144/RES
   IOPW            2465/LB      2476/STB     8720/TPNR   10142-RES    10967/LB     10978/STB
   IORECV          2967/BAL     2974/BAL     2978/BAL     3702/BAL     4212/BAL     4348/B       4350-LI
   IORECV1         4357-LI      4386/B
   IOUNRECV        3002/BAL     3729/BAL     4208/BAL     4347-LI
   IO0P            8555/DES1    8562/DES1    8718-TPNR
   IO1             6668/STD     6680/LI      6704-DATA
   IPMSG           6381/LI      9064-DATA
   IPTMSG          6376/LI    9061.1-DATA
   ISS            10813/BAZ    10821-EQU
   I56             1612/B       1617-LI
   I560            1332/BEZ     1335/B     1617.3/BAZ   1617.6/BANZ  1617.9/BAZ  1617.15/BGZ     1619-AW
   I561            1624/BNE     1630-CI
   JUNK           11383/DATA   11387/DATA   11389/DATA   11448-DATA
   KEYN            2083/OR   2090.52/OR      2239/OR      7991-DATA
   KEY0           10520/LPSD   10521-DATA
   KEY1           10514/LPSD   10517-DATA
   K0              4723/XW      4724/AW      9516-DATA
   LASTADR         6336/CW      6357/CW      9554-DATA   10301/STW    10350/STW    10608/CW
   LASTBYTE        6041/STB     6301/LB      6813/LB      9597-DATA   11276/LB
   LASTDEV        11101-CW     11103/BDR
   LASTLEV        10551-EQU    10587/B
   LASTLOC        10222/LI     10253-STW
   LASTMAP         2172/LW      8289-DATA
   LASTREG       390.15/CW    2140.2/LW      2153/STW     9555-DATA   10303/STW    10352/STW    10370/STW
     10444/CW     10448/STW
   LBS              6.4-S:SIN
   LEVCNT         10536/STW    10558/LW     10586/AWM    11458-DATA
   LIMIT         6043.2/CW      7029/CW      7349/CW      7361/CW      7813/LW      8740/TPNR   10048-DATA
   LINKDC         10968/BCS    10972-EQU
   LMSGSIZ          677/LI       680/LW      9007-EQU
   LMSOLD         286.5/STW   6784.5/CW   6784.21/STW  6784.26/LW    9574.4-DATA
   LMSSET         286.4/STW   6784.4/LW    8752.3/TPNR  9574.3-DATA
   LOADTBL         7181/BAL     7305/BAL     7564-LW
   LOCKOP          9550-DATA   10524/STW
   LOGDEV           734/LW       844/LW      1112/LW      8741/TPNR   10049-DATA
   LOGEND           730/LI       746-BAL     8641/DES2    8647/DES2    8653/DES2
   LOGEND1          735/LI       797-BAL
   LOGERR           155-EQU     9685/DATA
   LOGEXP          8643/DATA    8649/DATA    8655/DATA    9119-TEXTS
   LOGFLG           616/STW      624/STW      658/MTW      742/MTW      840/MTW     9694-DATA
   LOGGER           564/BAL      612-STW     6902/BAL
   LOGGERA          784/BANZ     790-EQU      818/B
   LOGGERB          780/BGE      786-LB
   LOGGERC          777/BG       782-LB
   LOGGER0          829/BAZ      840-MTW
   LOGGER3          680-LW       687/BIR
   LOGGER4          682/BAZ      686-SLS
   LOGGER5          700/BANZ     708-EQU
   LOGGER6          703/BAZ      706/B        710/BANZ     714/BANZ     718/BAZ      722-AND
   LOGGER7          726-LD       792/BEZ      795/B
   LOGGER8          755/BLZ      801-CI
   LOGGER8A         815-LCI      838/B
   LOGGER9          802/BAZ      828-CI
   LOGHDG           673/LI      8642/DATA    9685-DATA
   LOGHDG1         8648/DATA    9022-TEXTS
   LOGHDG2         8654/DATA    9024-TEXTS
   LOGIT            544/BAZ      551-LI
   LOGLEV           561/CH    2538.7/MTH   6900.7/CH      8742/TPNR   10050-DATA
   LOGMSG           680/LW      8995-DATA    9007/EQU
   LOGMSGA         9005/DATA    9020-TEXTS
   LOGMSGB         9006/DATA    9021-TEXTS
   LOGMSG0         8995/DATA    9009-TEXTS
   LOGMSG1         8996/DATA    9010-TEXTS
   LOGMSG2         8997/DATA    9011-TEXTS
   LOGMSG3         8998/DATA    9012-TEXTS
   LOGMSG4         8999/DATA    9013-TEXTS
   LOGMSG5         9000/DATA    9014-TEXTS
   LOGMSG6         9001/DATA    9015-TEXTS
   LOGMSG7         9002/DATA    9016-TEXTS
   LOGMSG8         9003/DATA    9017-TEXTS
   LOGMSG9         9004/DATA    9019-TEXTS
   LOGONMSG        5786/LB      9088-TEXT
   LOGTST0          636/BEZ      641-LI
   LOGTST1          652-LW       656/BIR
   LOGTST2          639/BNE      658-MTW
   LOGTST3          655/BE       660-LI
   LOGTST4          663-CS       665/BIR
   LOGTST5          664/BE       670-LW
   LPBUF           6842/STB     7730/STB     9670/DATA    9674-DATA
   LPCOM           6840/STD     7732/STW     7747/STW     9672-DATA
   LPFLG           6775/STB     6848/STB     7717/LB      7771/STB     9675-DATA   11255/STB
   LPMAN           7705/LI      9086-DATA
   LPOUT           6843/LI      7750/LI      9670-DATA
   LPSDINST    10461.10/LI     10494-LPSD
   LW:13WK0        6307-LW      7457/LW      7459/LW
   M               7213/STW     7343/CW      7370/CW      9589-DATA
   MAGTAP7        10770/BCS    10845-CW
   MAGTAP9        10768/BCS    10841-EQU
   MANLMSG         2766/CAL4    3575/CAL4    9034-DATA
   MANUL           2768/OR      3813/OR      8008-DATA
   MAPCONT         1546/BAL     2139/BAL     2163-MTW
   MAPIMAG     10461.14/LI   11454.4-DATA
   MAPMODE     10461.19/LPSD             10461.22-DATA
   MAPOP           1869/MTW     2163/MTW     8763/TPNR    9549-DATA   10503/STW
   MAPOPT         10491-EQU  11454.2/B
   MASKFILL        5546/STW     5606/STB     5613/CB      5617/LB      5620/LB      5623/LW      5710-DATA
   MASKSEL          553/STW      653/AND     6883/STW     9692-DATA
   MASK1           5053/LW      5055/EOR     5177-DATA
   MASTMOD        10494/LPSD   10497-DATA
   MATHAVL         5310-CI      5337/B
   MATHCHK         4923/B       4938-BCR
   MATHERR         4884/B       4933/BCS     4935/BCS     4939-LCI
   MATHG           5313/BCS     5336/BCR     5418-BAL
   MATHX           5332/LI      5682-EQU
   MAYDUAL     11002.29/BANZ             11002.36-LH
   MEMDES          6271/LM      8569-DES1   10255/STW    10257/STB
   MEMEXP          8573/DATA    9362-TEXTS
   MEMLIMIT       10093-DATA   10220/STW    10247/CW
   MEMSIZE         1412/CW      1452/CW      1654/LW      1659/LCW     1661/LW*     1666/STW*    1668/LW*
      1859/LW      4314/CW      4363/CW      6564/CW     10091-DATA   10253/STW  10266.1/LW
   MFIMON        2727.1/BAL   3013.1/BAL   3793.1/BAL   3999.1-CI    4134.1/BAL   4747.7/BAL   4777.1/BAL
   MFIMON0       4011.1/BGE   4013.1-LW
   MINUS            150-EQU     7477/CI
   MINUTES          499/AW      8790/TPNR    9607-DATA
   MMASK           4045-DATA    4052/CW
   MMBUF           3965/B       4096-EQU
   MMBUF1          4099-EQU     4264/B
   MMBUF2          4104/B       4124-EQU
   MMHAN           3961-B       9861/DATA
   MMHIO           4038-EQU     4180/BAL     4187/BAL
   MMLPRS          3959-DATA    4246/CW      4248/LW
   MMNRM           3968/B       4047-EQU
   MMNRM0          4088-BAL
   MMPE            3970-EQU     4036/B
   MMPETB0         3979/AND     3990-EQU
   MMPETB1         3981/LW      3994-EQU
   MMPE0           3977/BEZ     3985-LCI
   MMRDE           3967/B       4184-EQU     4225/B
   MMRDE1          4199/BAZ     4204-EQU
   MMRDE2          4206/BAZ   4210.1-EQU
   MMRGO           3961/B       3962/B       3963/B       4177-EQU
   MMRTY           3964/B       4167-EQU
   MMSFR           4139/BCS     4227-EQU     4235/B
   MMSFW           4144/BCS     4231-EQU
   MMSIO           4117/BAZ     4119/BGE     4128-EQU     4182/B
   MMSIO0          4137-SLS
   MMSTR           3966/B       4237-EQU
   MMSTR0          4244/BAZ     4250-EQU
   MMWTE           4053/BANZ    4215-EQU
   MMXITE          4133/BANZ    4150-EQU
   MMXITI          4094/B       4155-EQU     4175/B       4202/B       4209/B       4213/B       4229/B
   MMXITN          4122/B       4126/B       4148/B       4153/B       4162-EQU
   MMXITR          4090/B       4158-EQU
   MO              7240/STW     7269/LW      7282/STW     9583-DATA
   MODIFIER        5115/STD     5121/AW      5122/AWM     5226/STD     5238/LW      5261/STW     5272/AW
      5273/AWM     5365/LW      5369/STD     5405/AW      5406/AWM     5412/AW      5413/AWM     9566-DATA
   MODTAB          8708/TPNR   10148-RES    10875/LH     10906/LH     10934/LH     11283/STH    11344/STH
   MONTHS          8786/TPNR    9603-DATA
   MOVEMSG          675/BAL      684/BAL      820-LI       826/B
   MSG              845/BAL     1159/BAL     6398/BAL     6403/BAL     6418/BAL     6541/BAL     6571/BAL
      6928/BAL     7045/BAL     7331/BAL     7683-STW     8305/DATA
   MSGCPU         10336/STB    10340/CAL4   11422-DATA
   MSGDEC         10400/CAL4   11428-DATA
   MSGDEV          1109/LW      6388/LW      6413/LW      6533/LW      6766/LW      8739/TPNR   10047-DATA
   MSGEND          6423/CI      9475-EQU
   MSGFP          10385/CAL4   11426-DATA
   MSGGRP         10568/LI     10572/CAL4   11436-DATA
   MSGMAP         10504/CAL4   11432-DATA
   MSGMEM       10266.5/LI  10266.11/CAL4   11438-DATA
   MSGMOD           289/STW     5887/MTB     5962/MTB     6021/LB      6124/STB     9595-DATA
   MSGOUT          6128/BAL     6149/BAL     6284/BAL     6292/BAL     6312/BAL     6377/BAL   6385.3/BAL
      6741/BAL     7184/BAL   7638.8/BAL     7670/BAL     7689/BAL     7706/BAL     7788/BAL     7799-STW
   MSGOUT0         7804-LB      7836/B
   MSGOUT1         7808/BE      7813-LW      7830/B
   MSGOUT2         7811/BNE     7818-MTW
   MSGOUT3         7816/B       7819/BGEZ    7822/BNE     7829/BE      7832-BAL
   MSGOUT4         7802/BL      7805/BEZ     7838-MTW
   MSGREG         10457/CAL4   11430-DATA
   MSGRTN           417/CLM     8305-DATA
   MSGT85         10344/CAL4   11424-DATA
   MSGWK0          7695/STW     7709/LW      9594-DATA
   MSGWL          10527/CAL4   11434-DATA
   MSGXIT          7685/BLE     7692-MTW     7759/B       7774/B
   MSG13           6349/BAL     6382/BAL     7783-STW
   MSG13A          7434/CI      7788-BAL
   MSG2            7687/BNE     7695-STW     7773/BNE
   MSG3            7704/BANZ    7716-LI
   MSG3A           7718/BCS     7729-AI      7781/B
   MSG3B           7723/BCR     7730-STB
   MSG3C           7732-STW     7745/BCR
   MSG3D           7713-CI      7735/BCR
   MSG4            7733-LB      7742/B
   MSG5            7714/BCS     7737/BCR     7744-CI      7758/BCS
   MSG5A           7748-LW      7769/BCS
   MSG5B           7739/BCR     7757-CI
   MSG6            7750-LI      7754/BCS
   MSG6A           7752/BCR     7761-TIO     7764/BCS
   MSG6B           7762/BCR     7767-TDV
   MSG7            7689-BAL     7697/BNEZ    7711/B
   MSG8            7727/BCR     7777-AI      7780/BCR
   MSG9            7700/BCS     7707/B       7709-LW      7755/B       7765/B
   MSRAD0         11119-AI     11124/BCS
   MTCOFF          3436-AND     3866/BCR
   MTDOFF          3579-LH      3720/B       3839/B
   MTDRIVE         3389-STW
   MTDRIVE0        3404/BCR     3412-STD     3487/BCS     3504/B       3548/B       3572/BCS     3619/B
      3658/BCS     3660/BCR
   MTDRIVE1        3410/B       3416/BCR     3422-AI      3429/BCS     3454/BCR     3468/B
   MTDRIVE2        3418/BCS     3420/BCR     3425-LH      3432/BIR
   MTDRIVE3        3427/BCS     3444-BAL
   MTDRIVE4        3446/BCS     3457-MTH
   MTDRIVE5        3400-AND
   MTDRIVE6        3452/BCS     3466-MTH
   MTDRIVE7        3458/BGZ     3470-CI
   MTERROR         3387/B       3674-STW
   MTERROR2        3671/B       3712-BAL     3725/B       3730/B
   MTERROR4        3685/BANZ    3717-LW
   MTERROR5        3687/BANZ    3722-BAL
   MTERROR6        3689/BANZ    3727-BAL
   MTHAN           2398/CI      2414/CI      2499/CI      3381-B       9842/DATA    9843/DATA    9844/DATA
   MTLIMIT         3406/LW      3486/CW      3535/LW      8775/TPNR   10089-DATA
   MTLOOP          3382/B       3871-STW
   MTNBUSY         3442/B       3588/B       3780/B       3792/BCS     3829/B       3868-AND
   MTNOBUF         3385/B       3628-STW
   MTNOBUF0        3450/BCS     3455/B       3630-BAL
   MTNOBUF1        3651-LI      3885/B
   MTNOBUF2        3638/BCR     3642-CI
   MTPOSERR        3396/B       3894-EQU
   MTPOSER1        3907/BCS     3912-LD
   MTPOSER2        3910/B       3915-BCS
   MTREAD          3402/BCR     3481-MTH
   MTREAD0         3484/BCS     3489-CI
   MTREAD1         3492-CI
   MTREAD2         3493/BCS     3499-CI      3553/BCR     3555/BCS
   MTREAD3         3502-LI
   MTRERR          3705/BGZ     3739-LW
   MTRERR1         3744/BANZ    3746/BCR     3759-EQU
   MTRESET         3393/BANZ    3506-LH      3682/BANZ    3874/BCS
   MTRESET0        3514-CI      3558/BANZ
   MTRESET3        3515/BCR     3519/BCR     3523/BCR     3533-LI
   MTRESET4        3521/BCR     3527-EOR
   MTRESET5        3517/BCS     3525/BCR     3530-LI
   MTRESET6        3528/B       3531/B       3535-LW
   MTRETRY         3384/B       3664-STW
   MTRETRY1        3467/BCR     3667-EQU
   MTRSTRT         3381/B       3383/B       3655-STW
   MTSENSE         3747/LD      3926-DATA
   MTSETC          3750/LD      3928-DATA
   MTSIO           3653/B       3662/B       3782-LW      3915/BCS
   MTSIO1          3803/BCS     3818-CW
   MTSIO3          3821-EQU
   MTSIO4          3567/BCS     3802/BCS     3831-EQU
   MTSIO5          3832/BCS     3835-EQU
   MTSTART         3386/B       3841-STW
   MTSTART1        3849-LD      3863/BCS
   MTSTART2        3852/BAZ     3857-STD
   MTWERR2         3737/B       3755/BCS     3757/B       3767-EQU
   MTWERR3         3710/BANZ    3732-LD      3742/BANZ
   MTWERR4         3733-LD
   MTWERR5         3734-LW      3917/B
   MTWRITE         3490/BCR     3550-CI
   MTWRITE5        3551/BCS     3590-EQU
   MTXIT           3434/BCS     3586/BCR     3608/BANZ    3626/B       3640/B       3812-EQU     3833/B
      3869/B
   MUCFIND        10699/BAL    10760-EQU
   MUCTYPE        10675/BNEZ   10682/BCS    10690-EQU
   MULTIPLY         151-EQU     7479/CI
   M0P             8569/DES1    8736-TPNR
   NBADBUF         4785/AND     8015-DATA
   NBUFBIZ         4544/AND     8001-DATA
   NBUSY           2715/AND     2769/AND     3056/AND     3868/AND     4121/AND     4151/AND     4159/AND
      4629/AND     7988-DATA
   NCHECK          7996-DATA
   NCSEL           2922/AND     3436/AND     8007-DATA
   NE              6097/CW      6819/CW      7191/CW      7219/STW     7320/CW      7364/CW      7602/STW
      7606/CW      9588-DATA
   NERROR        2920.2/AND   3029.2/AND     3047/AND     3441/AND     3809/AND     4147/AND     4160/AND
      8014-DATA
   NEWMODE1        5352-SLS     5358/BAZ
   NEWPAGE          153-EQU     7722/CI      7734/CI      7807/CI      7877/LI      7911/LI      7926/CI
   NEWPASS       2047.1/BAZ   2052.1/B     2090.1-EQU
   NEWPASS0     2090.14-CAL4
   NEWPASS1     2090.12/BAZ  2090.18-CAL4
   NEWPASS2      2090.9/BNEZ 2090.16/B    2090.21-CI
   NEWPASS3     2090.31/BG   2090.39-CAL4
   NEWPASS4     2090.34/B    2090.37/BAZ  2090.44-CAL4
   NEWPASS5     2090.25/BAZ  2090.42/B    2090.47-CAL4
   NEWPASS6     2090.22/BANZ 2090.36-CI
   NEWSORS         2041-BDR     2064/B       2066/BCR     2068/BCS     2075/BCS
   NEWSORS0        2039/BEZ     2041/BDR     2042/BIR     2062-LW
   NEWSORS1        2071/BCS     2077-CI
   NEWSORS2        2078/BCR     2083-OR
   NEWSORS3        2081/B       2084-OR
   NEXTDEV         3409-STD     3471/BAZ     3474/BCS     3476/BANZ
   NEXTMAP         2175/SW      8290-DATA
   NEXTSECT      6883.3/BEZ     6889-LD      6899/BLZ
   NFORCE          4667/AND     8011-DATA
   NKEYN         2208.4/AND     2217/AND     2276/AND     7992-DATA
   NLOOP           4428/AND     7993-DATA
   NMANUL          3048/AND     8009-DATA
   NNOBUF          4662/AND     7998-DATA
   NO              7217/STW     7238/LW      7268/LW      7281/STW     7376/LW      7605/STW     7631/CW
      7652/LW      7655/LW      9582-DATA
   NOBITS        390.10/AND      406/AND      416/AND      449/AND      761/AND      894/AND     1115/AND
      1116/AND     1153/AND     1179/AND     1183/AND     1294/AND   1491.3/AND  1617.11/AND     1833/AND
      2382/AND     2430/AND     2483/AND     2687/AND     2688/AND     2691/AND     2800/AND   2847.8/AND
      2858/AND  2915.17/AND     3112/AND     3187/AND     3205/CW      3253/CW      3400/AND     3428/CW
      3527/EOR     3536/AND     3596/AND   4013.5/AND     4111/LW      4289/AND     4311/AND     4318/AND
      4321/AND     4360/AND     4432/AND     4711/AND  4789.32/EOR     4835/AND     5423/AND     5426/AND
      5428/AND     5437/AND     5448/AND     5487/AND     5529/AND     5535/AND     5548/AND     5586/AND
      5604/AND     5864/AND     5924/AND     5940/AND     5943/AND     6123/EOR     6216/AND     6221/AND
      6243/AND     6259/AND     6265/LW      6334/OR      6355/OR      6563/AND     6626/AND   6862.2/LW
      7221/AND     7234/AND     7250/AND     7259/AND     7275/AND     7341/AND     7368/AND     7397/AND
      7455/AND     7496/AND     7533/AND     7565/AND     7570/AND     7579/AND     8220-DATA   10429/LW
     10567/AND    10626/OR     10678/AND    11129/AND  11213.3/AND    11224/AND
   NOBUF           2084/OR      2240/OR      2280/OR      4539/OR      4628/OR      6602/OR      7997-DATA
   NOCNTINC       10873-BAL    10908/BE     10911/B      11330/B
   NODEST          6182/BCR     6270-LCI
   NODEVMES       10901/CAL4   11404-DATA
   NODEVREQ        2757/CAL4    3038/CAL4    3837/CAL4    9028-DATA
   NODEVSEL        3438/CAL4    9056-DATA
   NOHAN           4268-B       9856/DATA    9857/DATA    9858/DATA    9859/DATA    9860/DATA    9862/DATA
   NOINTMSG        6347/LI      9060-DATA
   NONRAD         11207/CAL4   11418-DATA
   NOONE          10453/BCR    10457-CAL4
   NOQ1            6204/BCR     6208/BCS     6274-LI
   NOQ2            6225/BCR     6227/BCS     6276-LI
   NOQ3            6247/BCR     6249/BCS     6279-LI
   NORADMSG       11170/CAL4   11406-DATA
   NORMASK         5473/LW      5706-DATA
   NOTDAC          4907/BCS     4913-CI
   NOTDL           5512/BCS     5519-CI
   NOTDLC          4919/BCS     4925-CI
   NOTDM           5494/BCS     5506-CI
   NOTDMC          4898/BCS     4906-CI
   NOTDSA          5483/BCS     5493-CI
   NOTDSAC         4889/BCS     4897-CI
   NOTDST          5520/BCS     5527-LI
   NOTDSTC         4914/BCS     4918-CI
   NOTDUAL     11002.47/BCR 11002.60-BAL
   NOTEBS          5553/BCS     5567-CI
   NOTEBSC         4959/BCS     4968-LW
   NOTEBSG         5327/BCS     5330-CI
   NOTFALC         4850/BCS     4856-CI
   NOTFASC         4857/BCS     4863-CI
   NOTFMLC         4864/BCS     4874-CI
   NOTFMSC         4848/BCR     4875/BCS     4886-CI
   NOTHERE        11192-CAL4
   NOTHORZ         7170/AND     8255-DATA
   NOTMBSC         4947/BCS     4958-CI
   NOTMHC          4831/BCS     4838-CI
   NOTMUC         10673/BCR    10714-CW
   NOTMULF         5453/BCR     5457-STB
   NOTMWC          4824/BCS     4830-CI
   NOTOP          10695-CAL4   10715/BCS
   NOTRAD       11180.2/BAZ    11207-CAL4
   NOTSFC          4822/BCR     4839/BCS     4847-CI
   NOTSHIFT        5421/BCS     5431-LI
   NOTSPEC         6254/BAZ     6261-BAL
   NOTTBSC         4972/BCS     4978-CI
   NOTUNPK         5507/BCS     5511-CI
   NOTUNPKC        4887/BCR     4926/BCS     4943-CI
   NOUE           10730/BCR    10736-CI
   NO7201         11096/BCS    11132-SLS
   NRMLIZE         5442/BAL     5445/BAL     5472-LI      5477/BDR
   NSIORW          3478/AND     3562/AND     3569/AND     3617/AND     3776/AND     3786/AND     3806/AND
      8018-DATA
   NSORS           2035/AND     6451/AND     7990-DATA
   NULMSG           843/LI    6385.2/LI      6401/LI      9095-TEXTS
   NXIDENT         8881-DATA   10279/LW     10284/LW     10354/LW     10376/LW     10392/LW  10461.11/LW
   NXTGRUP        10534-EQU    10582/B
   NXTLEVEL       10539-EQU    10555/B
   NXTWAYT        10925-EQU    10990/B
   OBIDENT         8880-DATA   10223/LW     10508/LW
   OCI             6059/LW      6064/LW      6069/LW      6075/AW      6085/STW     6111/CW      6117/LW
      6144/STW     6162/STW     6172/STW     6189/STW     6210/STW     6229/STW     6251/STW     6297/LW
      6394/STW     6410/STW     7237/STW     7271/STW     7609/LW      9513-DATA
   ONES            7391/LI      8027-DATA
   ONMSG           5986/CAL4    9091-DATA
   OPCODES         5681-EQU     5682/EQU     5686/EQU     5691/EQU     5698/EQU     5702/EQU
   OPDES         8575.1-DES1 11155.8/CAL4
   OPDESTAB        5631/LW      5716-DATA
   OPERATOR        7458/STW     7511-DATA    7523/EXU
   OPMSG            157-EQU     9028/DATA    9034/DATA    9036/DATA    9038/DATA    9040/DATA    9050/DATA
      9052/DATA    9054/DATA  9055.1/DATA    9056/DATA    9058/DATA    9086/DATA    9091/DATA   11404/DATA
     11406/DATA   11408/DATA   11410/DATA   11412/DATA   11414/DATA   11416/DATA   11418/DATA   11420/DATA
   OPRXIT        6784.4-LW    8577.1/DES2  8583.2/DES2
   OPSX            5308/MTB     5309/LB      5333/STB     5705-DATA
   OPTNOOK        11192/CAL4   11416-DATA
   ORDEROUT       10725/BE     10729-CW
   ORDERS         10718/LB     11447-DATA
   OTEXP           8580/DATA    8587/DATA    9369-TEXTS
   OTHDG           8579/DATA    9384-TEXTS
   OT1P          8575.1/DES1    8583/DES1    8739-TPNR
   OUT             6782/BAL     6793/BAL     7304-STW
   OUTBUF           740/LI      1176/LI      9681-DATA
   OUTDEV          1113/STW     1158/LW      6141/STW     6392/STW     6397/LW      6402/LW      6417/STW
      6534/STW     6540/LW      6570/LW      6770/STW     6828/LW      6847/STB     6922/STW     7328/LW
      7696/MTB     7699/TIO*    7702/HIO*    7710/STB     7751/SIO*    7761/TIO*    7767/TDV*    9596-DATA
   OUTLINE         7311/BAL     7315/BAL     7319/BAL     7327-STW
   OUT1            7305-BAL     7308/B       7317/B
   OUT2            7309/B       7315-BAL
   OUT3            7310/B       7319-BAL
   OUT4            7312-MTW     7321/BCS
   OVREGS           362/STM      388/LM      9731-RES
   OVRETS           377/STM      389/LPSD    9733-RES
   PACKDEC         5485/BAL     5496/BAL     5501/BAL     5514/BAL     5522/BAL     5528/BAL     5534/BAL
      5556/BAL     5644-STW
   PACKDECR        5644/STW     5671/B*      5708-DATA
   PARITY        1613.7/BAL     1653-LI
   PARITY0         1650-LI
   PARITY1         1661-LW      1674/BIR
   PARITY2         1673-AI
   PARITY3         1664/BE      1674-BIR
   PARSHBUF        4797/BCS     5017/BNEZ    5128-STW
   PARSHSIZ        2108/STB     2600/LB      9573-DATA
   PARSH0          5140-AI      5158/B
   PARSH1          5141-SLD     5164/B
   PARSH2          5132/BCS     5145-CI
   PARTIALR        4931/STM     4940/LM      5013/STM     5497/STD     5498/STD     5502/LD      5503/LD
      5530/STD     5531/STD     5536/LD      5537/LD      5676-RES
   PARXIT          1611/BAL     1678-LCI
   PASSEND       1706.1/BLEZ  2308.1/BG    2321.2-LB
   PASSER          1838/LB      1841/STB     6437/LW      6439/STW     8769/TPNR   10083-DATA
   PASSES          1694/LB   1820.10/LB      1844/STB     1847/LB      1944/LB   2090.55/LB      2113/LB
      2122/LB      2315/LB      2892/LB      3097/LB      3231/LB   4789.11/LB   4789.37/LB      5293/LB
      6436/STB     8770/TPNR   10084-DATA   11261/STB
   PASSET          2291/STW     2301/LW      9517-DATA
   PASSMSG         1846/STH   2090.5/CAL4    9058-DATA
   PASSMSG0     2090.14/CAL4  9059.1-TEXTS
   PASSMSG1     2090.18/CAL4  9059.2-TEXTS
   PASSMSG2     2090.44/CAL4  9059.3-TEXTS
   PASSMSG3     2090.39/CAL4  9059.4-TEXTS
   PASSMSG4     2090.47/CAL4  9059.5-TEXTS
   PASSTIME        1706/MTW     2250/MTW     2287/LW      2298/MTW     2304/STW     8776/TPNR   10090-DATA
   PASSTRAP      2321.8/LI    9055.1-DATA
   PASSX0          1863/BLE     1867/BAZ     1870/BEZ     1874/B       1876-B
   PASSX1          1823-AI      1843/BCR
   PASSX11      1820.12/BNE     1828-LB
   PASSX2          1825/BL      1838-LB
   PASSX3          1839/BCS     1842-CW
   PASSX4          1844-STB
   PASS0           1876/B       1886/B       1903/B       1905-LI
   PASS0SIZ         125-EQU     1905/LI      1935/AI      1936/LI      1948/LI
   PASS01          1908-STW     1924/B       1946/B
   PASS02          1921/B       1952-LW
   PASS03          1963-BAL     2029/BDR
   PASS04          1964/B       1970/BCS     2006/BNE     2008/BL      2010/BG      2029-BDR
   PASS05          1919-STW
   PASS06          1976/BE      1979/BGE     1986-LB
   PASS1           1877/B       1923-LI
   PASS1SIZ         126-EQU     1923/LI      1948/LI      1949/LI
   PASS2           1878/B       1928-LW
   PASS20          1937-BAL     1950/B
   PASS3           1879/B       1948-LI
   PASS30          1934/BNE     1943-AI
   PASS4           1880/B       1927-EQU
   PASS5           1881/B       1885-LI
   PASS5SIZ         127-EQU     1885/LI
   PASS6           1882/B       1888-LI
   PASS6A          1890-BAL     1900/BDR
   PASS6B          1891/B       1893/BL      1895/BG      1900-BDR
   PASS6SIZ         128-EQU     1888/LI
   PASS7           1883/B       1926-EQU
   PATR7201       11111/STW    11114/LW     11379/DATA   11381/DATA   11460-DATA
   PCOUNT          1679/STM     9610-RES
   PCPMSG          1089/LI      6127/LI      9054-DATA
   PDFRET          1209/STCF    1345/STCF    1352/LW      1358/STD     1369/LPSD    1372-DATA
   PHASER          2311/LB      8771/TPNR   10085-DATA
   PHASES          1697/LB      1782/LB      2099/STB     2123/LB      2306/MTB     2307/LB      2316/LB
      2461/LB      2849/LB      3174/LB      3196/CB      3415/CB      3419/MTB     3518/MTB     4010/LB
      4568/MTB     4762/MTB     4989/MTB   5183.1/LB      8772/TPNR   10086-DATA
   PHAZINC         2247/B       2292/B       2304-STW     2313/BAZ
   PHAZ0           1699/B       2201-LW
   PHAZ00          2205/BGZ     2210-LW
   PHAZ00A         2211/BCR     2213/BCR     2221-LW
   PHAZ01          2222-BAL     2244/BDR
   PHAZ01A         2231/BCS     2235/BCR     2239-OR
   PHAZ01B         2237/B       2243-STH
   PHAZ02          2223/B       2227/BCS     2229/BCS     2244-BDR
   PHAZ1           1700/B       2249-LW
   PHAZ11          2252-LH      2265/BDR
   PHAZ11A         2253/BCS     2259-LB
   PHAZ12          2255/BCR     2257/BCR     2261/BCS     2265-BDR
   PHAZ13          2268-LH      2285/BDR
   PHAZ14          2275/BCR     2279-OR
   PHAZ14A         2277/B       2283-STH
   PHAZ15          2270/BCR     2273/BCS     2285-BDR
   PHAZ2           1701/B       2294-EQU
   PHAZ3         1701.1/B     1702.1-MTW
   PIE             6731/LW      6764-DATA   10179/CW
   PLUS             149-EQU     7483/CI
   PMEMSIZE        1860/STW     1873/STW     1928/LW      1952/LW      4750/SW      4752/STW*    8778/TPNR
     10092-DATA   10254/STW
   POINT            147-EQU     7473/CI
   POLL            1325/BAL     1395/BAL     1588/BAL     2376/BAL     4222/BAL     4377/BAL     4393/BAL
      4441/B       4443-LI
   POLLER          4444/STB     4463-TIO
   POLL1           4449-LH      4469/BCR
   POLL2           4451/BANZ    4454-CI
   POLL3           4455/BNE     4460-LD
   POLL5           4452/B       4467-AI
   POSITERR        3065/BAL     3903/BAL     4092/BAL     4390-LI
   POSITN          2878/BAL     3183-STW
   POSITN0         3204/BCS     3212-EQU
   POSITN1         3233/BNE     3239-LW
   POSITN2         3191/BCR     3193/BCS     3199/BCS     3241-AH      3276/BCS
   POSITN3         3203-CW      3209/BIR
   POSITN4         3243-CW      3254/BCS     3261/BIR
   POSITN5         3230-EQU     3293/BG
   POSITN6         3228/B       3237/B       3244/BCS     3264-LH
   POSITN7         3289/BL      3296-SLS
   POSITN8         3246-EQU     3280/BCS
   POSITN9         3197/BCR     3201-AI      3206/BCS
   POSTAUD         4296-LCI     4343/B
   POSTFIX         2827/GEN     2835-DATA
   POSTMSG          571/BAL      574/BAL     1135/BAL     1164/BAL     6406/BAL     6827-LW
   POSTMSG1        6829-CH      6831/BDR
   POSTMSG2        6830/BCR     6834-LH
   POSTMSG3        6832/B       6846-LI
   POWERON         1541/LPSD    1556-DATA
   PRDRIVE         2641-STW
   PRDRIVE0        2645/BNE     2651-EQU
   PRDRIVE1        2653/BNE     2658-EQU
   PREAUD          4279-LCI     4306/BAL     4352/BAL     4376/BAL     4392/BAL
   PREAUD0       4280.3/BEZ   4284.1-EQU
   PREFIX          2829/GEN     2834-DATA
   PREREGS         4221/STM     4224/LM      4280/STM     4288/LW      4297/LM      4334/LW      4353/LW
      4379/LW      4394/LW      4395/LW      4396/LW      4399/LW      9735-RES    11098/STM    11126/LM
   PRERROR         2555/B       2586/B       2639/B       2824-STW
   PRGMXFER         242/STB      244/LD      9711-DATA
   PRHAN           2633-B       9845/DATA    9846/DATA    9847/DATA    9848/DATA    9849/DATA
   PRHAN8          2745/BCR     2763-CI      2776/BCR     3022/BCR
   PRHAN8A         2764/BCS     2768-OR      2783/B
   PRHAN9          2751/BCS     2780-LW
   PRIEXP          8388/DATA    9198-TEXTS
   PRINT           6766-LW      8386/DIR
   PRMPTPOS          32-EQU
   PRNOBUF         2637/B       2656/B       2666-STW     2798/BNE     2822/B
   PRNOBUF1        2564/B       2605/BNEZ    2607/B       2676-LI
   PRNOBUF2        2690-LB      2705/BDR
   PRNOBUF3        2684/BNE     2707-EQU
   PRNOBUF4        2693/BE      2695/BE      2697/BE      2701-LI
   PRNOBUF5        2699/BNE     2704-AI
   PROMPT           141-EQU     6050/CI      6157/CI      8257/DATA    8260/DATA    9678/DATA
   PRPFX           2814/LM      2827-GEN
   PRRETRY         2552/B       2583/B       2636/B       2773-STW
   PRRSTRT         2549/B       2550/B       2551/B       2580/B       2581/B       2582/B       2633/B
      2634/B       2635/B       2718-STW
   PRSIO           2709/BCR     2712/BCR   2720.1-LI
   PRSIO0          2732/BNE     2735/BANZ    2739-EQU
   PRSIO3          2749/BCS     2753-BAL
   PRSIO4          2742/BCS     2756-LW
   PRSIO5          2741/BCR     2761-CW
   PRSTART         2638/B       2785-STW
   PSDS             380/LW       381/LW       382/LW      9623/DATA    9630/DATA    9732-RES
   PULL            6212/BAL     6231/BAL     6261/BAL     6299/BAL     7456-LI      7528/B       7643/BAL
   PULLS            396-LCI      964/B        995/B       1628/B       1631/BNE     1635/B
   PULLS0           399-LD      1553/B
   PULLS3           403/BE       408/BE       413-STD     1140/B       1742/B
   PULLS4           418/BCS      423-LRP
   PULL0           7458-STW     7525/B
   PULL1           7462-LB      7501/B
   PULL2           7490/BCR     7496-AND
   PULL3           7488/BCR     7497-MW
   PULL4           7472/BCR     7474/BCR     7500-AI      7515/B
   PULL5           7464/BCR     7466/BCR     7468/BCR     7503-CI
   PULL6           7476/BCR     7514-LI
   PULL7           7478/BCR     7480/BCR     7482/BCR     7484/BCR     7517-AW
   PULL8           7486/BCR     7504/BCS     7509-XW
   PULL9           7470/BCR     7527-AI
   PUSH            1154/BAL     6552/BAL     6555/BAL     6559/BAL     6561/BAL     7033/BAL     7182/BAL
      7257/BAL     7306/BAL     7383-LI      7787/BAL  10266.6/BAL    10570/BAL
   PUSHS            353-DATA     365/LW     390.6/AND      411/LW       960/XPSD     971/XPSD     980/XPSD
       991/XPSD    1002/XPSD    1011/XPSD    1020/XPSD    1029/XPSD    1038/XPSD    1047/XPSD    1056/XPSD
      1065/XPSD    1074/XPSD    1083/XPSD    1101/XPSD    1122/LCF     1241/XPSD    1385/XPSD    1528/XPSD
      1566/XPSD    1585/XPSD    1644/XPSD    1689/XPSD    2353/XPSD 4990.12/XPSD 5183.14/XPSD
   PUSHS0           359/BCR      364-LRP
   PUSHS1           374/BCR    390.1-LI
   PUSHS2        390.13/BCS   390.16/BE    390.27-LI
   PUSH1           7387/BCS     7390/BCS     7392-LI      7447/B
   PUSH2           7400-LI      7423/BDR
   PUSH2A          7402/BCS     7406-CW      7425/BCS
   PUSH3           7415/BCS     7417-AI
   PUSH4           7413/BCS     7420-STB
   PUSH4A          7404/BCS     7422-LW
   PUSH5           7398/BCR     7427/BCR     7432-CI
   PUSH7           6147/BAL     6163/BAL     7082/BAL     7439-LI
   PUSH8           7385/BCS     7444-SCD
   PUT             2504/BAL     2557/BAL     2588/BAL     2659/BAL     4533-LW      4550/BAL
   PUTBUF          2870/BAL     3395/BAL     4088/BAL     4504-LW
   PUTB0           4516/BCR     4520-AI
   PUTB1           4523-LB      4526/BIR
   PUTB2           4500/BAL     4509/BCS     4512/BCS     4514/BCR     4518/BCS     4530/BCR     4538-STW
   PUTMAP          2419/BAL     3460/BAL     3622/BAL     3668/BAL     3691/BAL     3722/BAL     3727/BAL
      3822/BAL     3895/BAL     3933-EQU
   PUTXP           4494-DATA    4502/LPSD    4760/XPSD
   QERR            6178/B       6196/B     6281.3/B       6284-BAL     6289/B       7168/BNE
   Q0              6266/STW     7589/LW      9499-DATA
   Q0ERR         6043.3/BGE   6281.2-LI
   Q1               732/STM     1114/STD     1178/LW      1188/STM     6213/STW     6222/CW      6236/CW
      6238/AW      6256/LW      6275/STW     6389/MTW     6414/MTW     6432/LW      6464/LW      6485/LW
      6545/TIO*    6551/LW      6574/MTW     6575/LW      6580/LW      6606/LW      6646/LW      6656/HIO*
      6684/SIO*    6690/TIO*    6712/TIO*    6724/LW      6860/LW      6949/LM      7135/LW      7216/LW
      8681/TPNR    8684/TPNR    8711/TPNR    8718/TPNR    8724/TPNR    8736/TPNR    8781/TPNR    8793/TPNR
      9500-DATA
   Q1ERR           6223/BLE     6283-LI
   Q1ERROR         6283/LI      9069-DATA
   Q2              1161/LW      1182/LW      6241/STW     6244/CW      6277/STW     6524/STW     6576/CW
      7218/LW      9501-DATA
   Q2ERR           6288-LI      7492/BCS     7494/BCR
   Q2ERROR         6288/LI      9072-DATA
   Q3              6267/STW     6531/LW      6594/LW      6661/LW      6767/LW      6811/LW    6861.3/LW
      6882/LW      7176/LW      9502-DATA
   Q3ERR           5748/B       6291-LI      6433/BCS     6435/BCR     6447/BG      6492/BL      6510/BAZ
      6582/BG      6586/BANZ    6592/BAZ     6608/BG      6614/BEZ     6648/BCR     6654/B       6685/BCS
      6951/BL      7133/BEZ     7137/BG
   Q3ERROR         6291/LI      6740/LI      9075-DATA
   Q4              7231/LW      7245/LW      7645/STW     9503-DATA
   RADIX           7497/MW      8061-DATA
   RADREWD         3315-GEN
   RADSEEK         3077/LD      3307-GEN
   RADSENSE        3080/LD      3309-GEN
   RADY           10986/BCR    10992-EQU
   RAND#STK        5422/LW      5425/LB      5432/LW      5433/LW      5441/LW      5444/LW      5466/LW
      5467/LW      5486/LB      5547/LB      5569/LD      5570/LD      5574/LD      5577/LD      5603/LB
      5605/LB      5637/STW     5645/LI      5675-RES
   RANDOM          1937/BAL     2482/BAL     2857/BAL     3162/BAL     3218/BAL   4013.2/BAL     4720-LW
   4789.15/BAL     5635/BAL
   RANDOM#         5499/BAL     5532/BAL     5633-STW
   RBIDENT        10426/LW     11451-DATA
   RCELIMIT      286.10/LW    8779.1/TPNR 10095.1-DATA
   RCETOTAL      286.11/STW  1617.14/MTW   9574.6-DATA
   RDDRIVE         2847-STW
   RDDRIVE0        2851/BCS     2855/BNE     2860/BG      2870-BAL
   RDDRIVE1        2875-BAL   3029.7/B       3070/B       3148/B
   RDDRIVE2      2847.3/BAZ     2849-LB      2999/BE
   RDERROR         2845/B       2925-STW
   RDERROR0        2825/B       2928-LW
   RDERROR1        2597/BCR     2602/BG      2937-BAL
   RDHAN         2396.2/CI      2839-B       9832/DATA    9833/DATA    9834/DATA    9835/DATA    9836/DATA
      9837/DATA    9838/DATA    9839/DATA  9839.1/DATA  9839.2/DATA  9839.3/DATA    9840/DATA    9841/DATA
   RDHAN0          2908-AI      2912/B
   RDHAN1          2871/B       3065-BAL
   RDHAN1A         2975/B       2979/B       3069-BAL
   RDHAN2          2894/BNE     2896/BL      2909/BEZ     2914-LI
   RDHAN3          2879/B       2918-LH
   RDHAN3A       2758.1/B     2920.2-AND   3039.1/B
   RDHAN4          2930/BAZ     2940-CW
   RDHAN4A         2935/BANZ    2969-MTB     3003/B       3063/B
   RDHAN4B       2951.3/BL    2958.1-EQU
   RDHAN5          2943/BG      2950/BAZ   2962.1-LI      2982/BAZ     2991/BNE     3000/B
   RDHAN6          2960/BAZ   2972.1-LI
   RDHAN7          2957/BANZ    2961/B     2976.1-LI
   RDHAN8          2948/BL      2981-CI
   RDNBUSY         2923/B       2938/B     3029.5/BAZ     3056-AND
   RDNMAN          3048-AND     3058/B
   RDNOBUF         2843/B       2880/B       2882-STW
   RDNOBUF0      2867.2/B     2885.1-LI
   RDOFF1          2971/B       3029-BAL   3043.3/B
   RDORDR          2875/BAL     3152-LB
   RDORDR0         3162-BAL     3176/BCR
   RDORDR1         3159/BCS     3169-CI
   RDORDR2         3157/BCS     3161/BCS     3165-LI      3179/B
   RDORDR3         3155/BCR     3164/BCS     3171-LI      3178/BCR
   RDORDR4         3166-STB     3172/B
   RDORDR5         3170/BCS     3174-LB
   RDRETRY         2842/B       3060-STW
   RDRSTRT         2649/BCS     2839/B       2840/B       2841/B       3005-STW
   RDSENSE         3311-GEN     3327/LI
   RDSIO        2847.12/B     2915.4/BE    2915.7/BL   2915.10/BANZ 2915.13/BE      2916/B       3008-LI
   RDSIO4          3020/BCS     3037-LW
   RDSIO5          3024/BCS     3042-CI
   RDSTART         2844/B       3072-STW
   RDSTART0        3087/B       3091/BE      3094-LCI
   RDSTART1        3099/BNE     3101/BL      3139-EQU
   RDSTART2        3085/BL      3089-EQU
   RDSTART3        3115-EQU     3120/B
   RDSTART4        3118/BEZ     3122-EQU
   RDXIT           2563/B       2594/B       2669/B       2716/B       2771/B       2884/B       3049-STH
   RDXIT0          3027/BCS     3053-LI      3067/BCS
   RDXIT1          2726/BCS     2754/B       2778/B       2970/BNEZ    3012/BANZ    3043/BCR     3055-OR
   RDXIT2          2747/BCS     2762/BCS     3019/BCR     3046-OR
   READ            6645-LI      8396/DIR
   READ0           6643/B       6646-LW
   READ1           6651-CH      6653/BDR
   READ2           6652/BCR     6656-HIO
   READ3           6675-BAL     6679/BCS
   READ4           6672/BCR     6681-BAL
   REAEXP          8398/DATA    9190-EQU
   REALTIME         312/STW     1732/AWM     1738/MTW   1739.2/LW    4753.2/LW      6937/LW      7154/STW
     10104-DATA
   RECOVER           36-EQU      296/STD      400/XW     10224/STD    10251/STD    10280/STD    10285/STD
     10288/STD    10296/STD    10355/STD    10362/STD    10377/STD    10381/STD    10393/STD    10396/STD
     10427/STD    10440/STD 10461.12/STD    10500/STD    10509/STD    10526/STD    10542/STD    10549/STD
   RECOVERY         294/LD       399/LD       402/CW       410/LW      9705-B      10250/LD     10287/LD
     10295/LD     10361/LD     10380/LD     10395/LD     10439/LD     10499/LD     10525/LD     10548/LD
   REDEXP          8393/DATA    9202-EQU
   REDUMP          7124-LI      8391/DIR
   REFIELD         6117-LW      6156/BE      6286/B       6314/B
   REFLECT         5048/AW      5050/LW      5058/SW*     5065/AW      5081/LW      5089/CVA*    5095/CVA*
      5236/LW      5404/STB*    5411/STB*    9571-DATA
   REGADD          6926/STS     8782-TPNR
   REGBLK#        10422/STW    10428/LRP    10432/LW     10441/LW     10443/STW    11453-DATA
   REGCONT       2143.1-AI      2150/BAZ
   REGCONT0      2140.5/BEZ   2151.1-STW
   REGEXP          8601/DATA    9436-TEXTS
   REGI             334/LM      9621-DATA
   REGISTER         332/LM       335/STM      358/PSM      425/PLM      939/XW       947/STW     1251/PLM
      1254/PSM  6784.19/PSM  6784.38/PLM     6923/LW      6993/PSM     7004/LW      7018/LW      7088/PLM
      9628-DATA
   REGOPS        2140.1/LW      8779/TPNR    9548-DATA   10421/STW    10434/LW     10436/STW    10450/LW
   REGS42          1249/STM     1310/LM      9734-RES
   REGS51           333/STM     1548/LM      1574/STM     9739-RES
   REG0P           8597/DES1    8781-TPNR
   REG2            7903/STD     7914/LD      9560-DATA
   REG3            7912/STW     9561-DATA
   REG6            3216/STD     3227/AW      9562-DATA
   REG7            3222/DW      9563-DATA
   RELEXP          8403/DATA    9203-TEXTS
   RELOAD          7127/B       7131-LI      8401/DIR
   REPEXP          8408/DATA    9216-TEXTS
   REPLACE         6790-LW      8406/DIR
   REPLDIR         1175/LW      8406-DIR
   RESET           6803/BAL     7268-LW
   RESIDUAL        5045/STD     5110/SW      5142/STD     5198/LD      5241/LW      5399/STD     9570-DATA
   RESTART          272-MTB     9705/B
   RESTART0         269/BANZ     284-EQU      329/B
   RESTART1         328-LI       738/BCS      749/BCS     1132/BCS     1191/BCS     5737/BCS     5820/BCS
   RESTART2         256/BANZ     263-LI
   RESTART3         286/STW      324-CAL4
   RESTART4         270/B        273/BEZ      282-LI
   RETI            6466/CI      9623-DATA
   RETURN           134-EQU     6048/CI      6153/CI      7463/CI      7614/CI      7675/DATA    7726/CI
      7736/CI      7779/CI      7810/CI      7815/LI     11277/CI
   RETURNA          440/STW      444/BANZ*    583/B*      9489-DATA
   RETURNB          612/STW      613/MTW      798/MTW      799/B*       841/BNEZ*    849/BEZ*     851/MTW
       852/B*      9490-DATA
   RETURNC         2556/STW     2561/STW     2566/STW     2587/STW     2592/STW     2609/STW     2641/STW
      2666/STW     2718/STW     2773/STW     2785/STW     2824/STW     2847/STW     2882/STW     2925/STW
      3005/STW     3051/B*      3060/STW     3072/STW     3389/STW     3628/STW     3655/STW     3664/STW
      3674/STW     3816/B*      3841/STW     3871/STW     4048/STW     4097/STW     4165/B*      4168/STW
      4178/STW     4185/STW     4238/STW     9491-DATA
   RETURND         4549/STW     4551/B*      4554/B*      9492-DATA
   RETURNE         4538/STW     4546/MTW     4547/B*      4597/STW     4630/B*      4664/MTW     4665/B*
      9493-DATA
   RETURNF         3153/STW     3167/B*      3183/STW     3210/B*      3262/B*      3303/MTW     3304/B*
    4297.3/BEZ*    4300/B*      4305/STW     4351/STW     4375/STW     4391/STW     9494-DATA
   RETURNG         3934/STW     3950/B*      9495-DATA
   RETURNS          373/PSM   390.24/PLM   390.25/PSM      397/PLM     1138/PLM     1551/PLM     1741/PLM
      2131/LW      4290/LW      6465/LW      7057/PSM     7063/PLM     9630-DATA
   RETURN0         9479-RES     9625/DATA    9632/DATA
   RETURN0I        9625-DATA
   RETURN0S         737/PSW      748/PLW     1131/PLW     1190/PSW     5736/PSW     5819/PLW     6468/STW*
      9632-DATA
   RETURN1         6105/B*      6806/STW     9480-DATA
   RETURN2         6783/B*      6804/LW      7327/STW     9481-DATA
   RETURN3         1120/STW     1193/STW     5744/STW     6019/STW     6028/BCR*    6057/BNE*    6112/BCR*
      6121/BNE*    6125/B*      6151/B*      6160/BNE*    6164/B*      6910/STW     7452/STW     9482-DATA
   RETURN4         6921/STW     7208/STW     7241/B*      9483-DATA
   RETURN5         7304/STW     7312/MTW     7313/B*      7333/B*      7600/STW     7629/B*    7631.4/B*
      7637/BCS*    7660/MTW     7661/B*      9484-DATA
   RETURN6         7665/STW     7672/B*      7683/STW     7690/B*      7692/MTW     7693/B*      7783/STW
      7790/B*      9485-DATA
   RETURN7         7799/STW     7833/B*      7838/MTW     7839/B*      9486-DATA
   RETURN8         7844/STW     7887/MTW     7888/B*      7891/B*      9487-DATA
   RETURN9         7897/STW     7927/BE*     7929/MTW     7930/B*      9488-DATA
   REW             6674/LI      6698-DATA
   REWIND          3448/BCS     3464/B       3479/B       3495/BCR     3497/BCS     3500/BCR     3512/BCR
      3557-CI      3597/BCS     3599/B       3715/B
   REWINDI         3565/LI      3930-DATA
   REWIND1         3574-LW      3602/BCR     3805/BCR     3819/BCR
   REWIND3         3568/BCS     3601-CW
   REWIND4         3609/B       3613/BCS     3615/BAZ     3621-EQU
   REWIND5         3605/BANZ    3611-EQU
   RMSGMOD          138-EQU     6120/CI
   ROPSX           5326/BCS     5329/BCR     5332-LI
   RP:BPS           896/DW      1897/CW      1899/LW      1969/DW      2021/MW      3124/MW      8725/TPNR
      9943-RES     9951/RES    11265/DW
   RP:BUFS         2000/STW     2013/STW     8731/TPNR    9994-RES
   RP:CDWS         2003/STW     2027/STW     2899/LW    3103.1/LW      8732/TPNR    9995-RES
   RP:DPC          3862/CB      8729/TPNR    9979-RES     9990/RES    10983/LB     11075/LB
   RP:HPT          8727/TPNR    9999-RES    10007/RES
   RP:HS          10023-RES    10031/RES
   RP:INC          1994/STH     2018/STH     2988/SH      3146/SH      3224/DH      3225/MH      3241/AH
      3264/LH      8730/TPNR    9991-RES
   RP:SPT           876/DW      1996/LW      2015/LW      2020/LW      2986/LW      3123/LW      3236/MW
      3286/DW      3292/CW      8726/TPNR    9955-RES     9963/RES    11076/LW
   RP:SS            866/LB      3287/LB      8733/TPNR   10011-RES    10019/RES
   RP:TPD          1997/MW      2012/LW      2987/MW      8728/TPNR    9967-RES     9975/RES    11077/MW
   RP:TS            867/LB      3297/LB      8734/TPNR   10035-RES    10043/RES
   RPEXP           8594/DATA    9455-TEXTS
   RPHDG           8593/DATA    9465-TEXTS
   RPSIZ             20-EQU     8591/DES2    9951/RES     9963/RES     9975/RES     9990/RES     9991/RES
      9994/RES     9995/RES    10007/RES    10019/RES    10031/RES    10043/RES
   RPXBT           9880/DATA  9936.4-EQU
   RPXDA           9876/DATA    9935-EQU
   RPXDB         2951.2/CI      9877/DATA    9936-EQU
   RPXDC         9877.1/DATA  9936.1-EQU
   RPXDD         9877.2/DATA  9936.2-EQU
   RPXDE         9877.3/DATA  9936.3-EQU
   RPXDP           3288/CI      9878/DATA    9879/DATA    9934-EQU
   RPXEP           9871/DATA    9872/DATA    9873/DATA    9932-EQU
   RPXHS           9870/DATA    9931-EQU
   RPXSS           9874/DATA    9875/DATA    9933-EQU    11095/CI
   RPX7T           9882/DATA  9936.6-EQU
   RPX9T           9881/DATA  9936.5-EQU
   RP0P            8590/DES1    8724-TPNR
   RSTRTMSG         282/LI      9042-DATA
   RTCXIT          1729-LI      1792/B       2161/B
   RTCXIT0         2160-STD
   RTCXIT1         1092/B       1736/BCS     1739-STW
   RTCXIT2         1740-LCI     2509/BCS     2513/B     5256.1/B
   RTCXIT4       2136.1/BAZ   2140.1-LW
   RTHAN           1693-BAL
   RTH1            1704/BLZ     1709-LCH     2296/BLZ     2299/BGZ
   RTH1A           1711/BCS     1714/BCS     1719-LI      2202/BCS     2216/BCR     2263/BCR
   RTH1AA          1715-LH      2321/B
   RTH1AB          1712/BCR     1716-SLS
   RTH2            1720-LH      1727/BCR
   RTH3            1725-AI      1745/BANZ    1755/BCS     1757/B       1763/B       1768/B       1771/BCR
      1773/BCR     1789/BCS     1795/B
   RTH4            1723/BCS     1744-CI
   RTH5            1751/BCR     1759-CI
   RTH6            1765-CI      1778/BCR     1784/BCS
   RTH7            1766/BCR     1770-CI
   RTH9            1760/BCR     1777-CI
   RTH9A           1753/BCS     1775/B       1787/BCR     1794-BAL
   RTH9B           1780/BANZ    1786-CI
   RUN              140-EQU     8257/DATA    9678/DATA
   RUNEXP          8413/DATA    9219-TEXTS
   RUNPRMPT        1692/LW      2511/LW      5740/CW      5816/CW      6133/CW      6480/LW      7084/LW
      8257-DATA   10232/LW
   RUREGS          9621/DATA    9628/DATA    9730-RES
   RUSER           4754/B       4762-MTB     4766/BGEZ    4769/B
   RUSER0          4759/BCS     4771-STW
   RUSER1          5024-AI      5136/BCR
   RUSER2          4795/BCR     4799-LW
   RUSER3          4783/BAZ   4789.1-EQU
   RUSER4        4789.9/BAZ  4789.13/BE   4789.35-LW
   RWIA            3570/OR      8021-DATA
   RWIO            6675/BAL     6681/BAL     6684-SIO
   RWIO1           6687-LI      6691/BCS     6694/BCS
   RWIP            3563/OR      8022-DATA
   R0STK            328/LI      9040-DATA
   S:PT               3/EQU
   SAVAD1         10406/STW    10418/LW     10627/STW    10650/CW     11461-DATA
   SAVEPR          4826/BAL     4833/BAL     4842/BAL     4852/BAL     4859/BAL     4866/BAL     4877/BAL
      4892/BAL     4901/BAL     4909/BAL     4921/BAL     5012-LCI
   SAVEREGS         940/STW      946/LW      9655-DATA
   SAVX20         10598/STW    10614/CW     11454-DATA
   SCAN            6177/BAL     6195/BAL     7600-STW
   SCANBUF       7638.5/STB   7638.7/LI      7668/STD     7669/LI      7676-DATA
   SCANOUT       7638.2/BAL   7649.2/BAL     7665-STW
   SCAN1           7605-STW     7657/B
   SCAN2           7611-LB      7626/BDR
   SCAN2A          7617/BCR     7625-AI
   SCAN2B          7628-LI
   SCAN3           7607/BCR     7635-LI
   SCAN4           7622/BCR     7643-BAL
   SCAN5           7613/BCR   7631.1/BNE     7647-STW
   SCAN5A          7615/BCR     7631-CW
   SCAN6           7649/BCR     7651-AI
   SCAN7           7620/BCS     7655-LW
   SCAN8           7638/BCR     7659-MTW
   SCAN9           7640-LW      7671/B
   SEAEXP          8418/DATA    9228-TEXTS
   SEARCH          7157-LD      8416/DIR
   SECHALF         4936-AI
   SECONDS          501/AW      8791/TPNR    9608-DATA
   SEED            4720/LW      4722/AW      4725/STW     9515-DATA
   SEEKCNT          869/LW      9653-DATA
   SEEKDATA       10856/STW    11391/DATA   11393/DATA   11395/DATA   11444-DATA
   SEEKSIO        10765/BAL    10810/BAL    10855-LI
   SEEKSIO1       10762/BAL    10778/BAL    10784/BAL  10788.2/BAL  10788.8/BAL 10788.17/BAL 10788.23/BAL
     10800/BAL    10807/BAL    10816/BAL    10831/BAL    10856-STW
   SEEKSIO2       10859-TIO    10862/BCS 11002.56/BAL 11002.60/BAL
   SELECT          6580-LW      8421/DIR
   SELERR          7165/LI      7635/LI      7644/LI      9081-DATA
   SELEXP          8423/DATA    9222-TEXTS
   SENSEVAL        3311/GEN     3313/GEN     3317/GEN     3319-RES     3324/STD     3325/STD     3343/STD
    3343.1/STH   3343.8/LD      3350/LD
   SEQRNG           490/STW      491/STW      622/CLM     6876/STD     9689-DATA
   SEQUENCE       316.3/STW      488/MTW      489/LW      6874/STW   6883.2/MTW     9695-DATA
   SEQUENT         5363/BANZ    5367-AI
   SET             6931/B       7208-STW
   SETBUF          5470/B       5517/B       5627-LCI
   SETCNTR         6101/B       6823/B       7195/B       7253-LW      7323/B
   SETCOM         11059-EQU    11068/BLE
   SETFLAG       6133.1/BE      6138-STW     6481/B
   SETGETCT       11178/B      11253-STW
   SETHALT         5747/BCR     6051/BE      6130/B       6136-LW      6744/B       8376/DIR
   SETHALT1        6034/BCR     6127-LI
   SETIME          7145-LI      8627/DES2
   SETIME1         7149-LW      7152/BIR
   SETLMS       1617.18/BAL  6784.12/BAL  6784.17-EQU
   SETLMS0      6784.28-LI   6784.35/BGZ
   SETMAP         11090-EQU    11094/BL
   SETNBSY0        4407-LI
   SETNBSY1        4413-CW      4430/BDR
   SETNBSY2        4417-HIO     4419/BDR
   SETNBSY4        4421/BCR     4424-LH
   SETNBSY5        4414/BCR     4430-BDR
   SETNBUSY         321/BAL     1820/BAL   2321.6/BAL     4406-LI    6317.1/BAL     6440/BAL     6708/BAL
      7119/BAL
   SETPASS          322/STW     1695/CW   1820.11/CW      1850/MTH     2092/STW     6441/MTH     6743/MTH
      9532-DATA
   SETRARU1        5565/B       5572/B       5601/B       5623-LW
   SETRUN          6462/B       6469/B       6480-LW      8411/DIR
   SET1            7230/BCR     7236-STW     7263/B
   SET2            7223/BCS     7243-CI
   SET3            7244/BCR     7248-MTW
   SEXBF0          5375/BANZ    5377/BAZ     5383-MTW
   SEXBF1          5035/BE      5042-MTW
   SEXBUF          5295/BCS     5339-LD
   SEXCHECK        4792/BNE     5016-LB
   SEXMSG          9093-TEXTS  10264/CAL4
   SHIFTL         10452-SLS    10455/B
   SHUTDN          1696/BCS     1820-BAL   2321.4/BAZ
   SHUTDN0       1820.2-LW   2321.12/B
   SIGMA5          5076/LW      9551-DATA   10368/STW    10389/LW
   SIGMA9         390.2/MTW     1266/MTW     1312/MTW     1590/MTW     4328/MTW     9552-DATA   10299/STW
     10337/LW   10461.1/LW     10600/MTW    11359/MTW
   SIGNBUF         4652/BAL     4676-LW
   SIGNBUF0        4681/BCR     4685-LW
   SIGNBUF1        4690-STB     4694/BIR
   SIGNBUF2        4543/BAL     4704-LI
   SIGNBUF3        4702/B       4707-AI
   SIGNBUF5        4678/BCS     4683/BCS     4698-AND
   SIG5A           5064/STS     5070-AW      5072/BDR
   SIG5B           5066/STS     5071-SW
   SIG5BUF         5062-LW      5077/BCS
   SIG5CPU        10353/LI     10366-EQU
   SIG9CPU        10283/LI     10295-LD
   SIO             6523-LI      8426/DIR
   SIOA            3807/OR      8019-DATA
   SIOCOC          5931-EQU
   SIOEXP          8428/DATA    9233-TEXTS
   SIOFAIL         2544/BAL     2753/BAL     3025/BAL     3625/BAL     3824/BAL     4228/BAL     4374-LI
   SIOFAIL1        4372/B       4375-STW
   SIOINT          6323/LI      6362/LI      9660-DATA
   SIOP            3777/OR      3787/OR      8020-DATA
   SIOTTY          5871-EQU
   SIXTEENS        7383/LI      8048-DATA
   SIZE            5020/STW     5109/AW      5128/STW     9535-DATA
   SLCTMAP         2129/STW     2169/STW     8764/TPNR    9557-DATA
   SLCTREG         2128/STW   2151.1/STW     8765/TPNR    9556-DATA   10449/STW
   SMALLBUF        5394/B       5399-STD
   SMALLB1         5146/BCS     5160-LW
   SMALLB2         5022/BCS     5134/BCS     5161-AI
   SMSGMOD          137-EQU     6024/CI
   SNAEXP          8433/DATA    9237-TEXTS
   SNAP            6948-LCI     8431/DIR
   SNAPADD         6961/STM     6964/XW*     6982/STW*    7053/LW      7065/CW      7095-DATA
   SNAPFLAG        7016/AND     7049/OR      7097-DATA
   SNAPPSD         7076/STD     7089/LPSD    7092-DATA
   SNAPSHOT        6988-DATA    6999/MTW     7001/AND     7054/LD      7067/CD      7072/LD      7099/XPSD
   SNAPWORD        7006/LW      7012/AW      7048/LW      7096-DATA
   SNAPXIT         7066/BNE     7068/BNE     7070/BEZ     7076-STD
   SNAP0           7007/BLZ     7030/BG      7038/BGE     7043-LW
   SNAP2           7046/B       7052-LI
   SNAP3           7079/BNE     7087-LCI
   SNAP4           7050/BGEZ    7072-LD
   SNAP5           7026-EQU     7041/B
   SNPRMPT         6994/LW      8256-DATA
   SORCEDEV        2044/STW     2089/STW     2114/LW      8751/TPNR   10059-DATA 10236.2/STW
   SORCEX          2032/LW      2043/STW     2087/STW   2090.8/MTW     2210/LW      6449/LW      6458/STW
     10061-DATA
   SORS            2051/OR      2080/OR      2218/OR      7989-DATA
   SPACE            144-EQU     6107/LI      7436/LI      7471/CI      7616/CI      7821/CI
   SPACER           145-EQU     6076/LI
   SPCBAK          3733/LD      3753/LD      3763/LD      3876/LD      3912/LD      3920-DATA
   SPCFWD          3756/LD      3760/LD      3879/LD      3908/LD      3922-DATA
   SPREAD          6809-LI      8436/DIR
   SPREAD1         6813-LB      6816/B       6817/B
   SPREXP          8438/DATA    9242-TEXTS
   SPULL           6060/BAL     6070/BAL     7453-LH
   SPULLP          7452-STW
   SPUSH           6065/BAL     6306/BAL     6309/BAL     7002/BAL     7013/BAL     7382-MTW
   SRF             6676/LI      6700-DATA
   STACKSIZ        29.1-EQU     9622/DATA    9624/DATA    9629/DATA    9631/DATA    9730/RES     9732/RES
   STAEXP          8443/DATA    9246-TEXTS
   START           6432-LW      8441/DIR
   STARTRU         2188/DATA  4747.1-LW    8305.1/DATA
   STARTUP         2133/LD      2158/OR      2188-DATA
   START0          6444/BLEZ    6460-LI
   STATMENT        6154/BE    6167.1-EQU
   STATUS           547/LM      1260/STD     1280/STW     1282/STW     1291/LW      1306/STD     1331/LD
      4987/STM     4988/STM     5006/STM     9578-RES
   STBS             6.3-S:SIN
   STEXP           8615/DATA    8622/DATA    9388-TEXTS
   STHDG           8614/DATA    9416-TEXTS
   STMNTMOD        6046/BE      6153-CI
   STMNTQ0         6218/BE      6224-CW
   STMNTQ1         6201-LCI     6272/B
   STMNTQ2         6240-AI      6245/BCS
   STMNTXIT        6263-LCW     6281/B
   STOEXP          8448/DATA    9251-TEXTS
   STORDIR         1169/LW      8446-DIR
   STORE           6797-LW      8446/DIR
   STOREBA         7550/BCR     7559-STB
   STOREHA         7552/BCS     7556-STH
   STORETBL        6071/BAL     6814/BAL     7532-LW
   STORETX        11337/BCR    11342-AI
   STORE1          6794/B       6803-BAL
   STORE2          6801/B       6806-STW
   STRLUP          5403-STB     5408/BDR
   STRODD          5401/BCR     5411-STB     5415/BDR
   STRTBUF           31-EQU       32/EQU     6139/LI    6167.2/LI      6393/LI      6409/LI      7081/LI
   STRTCORE        4621/CW      8757/TPNR   10075-DATA   11145/STW    11174/STW
   STRTMSG          263/LI      9044-DATA
   STTBYT          1908/STW     1958/AW      2072/LW      2232/LW      9538-DATA
   STTEXP          8608/DATA    9419-TEXTS
   STTHDG          8607/DATA    9433-TEXTS
   STT1P         8603.1/DES1    8767-TPNR
   ST1P            8611/DES1    8618/DES1    8754-TPNR
   SUM1            4776/STW     5163/MTW     5213/MTW     5231/STW     5244/XW      5245/LW      5270/STW
      9564-DATA   11149/STW    11234/LW
   SUM2            7394/STW     7406/CW      7409/LW      9565-DATA
   SUPRESS         7382/MTW     7403/LW      7419/STW     7440/STW     9598-DATA
   SWIEXP          8453/DATA    9254-TEXTS
   SWITCH          5997/BCR     6485-LW      8451/DIR
   SWITCH0         6014/B       6486/BAL     6489-LB
   SWITCH1         6500-CI      6515/B
   SWITCH2         6494/BL      6508-LB
   SYNTAXER         156-EQU     9069/DATA    9072/DATA    9075/DATA    9078/DATA    9081/DATA
   SYSERRSP        1854/STW     2317/LW    2974.2/MTW     4285/MTW    10095-DATA
   SYSERRST       286.3/STW     2124/LW    2974.3/MTW     4286/MTW     8762/TPNR   10094-DATA
   SYSHALT         1144/LW      7059/LD      8259-DATA
   SYSMODE          442/LB       782/LB      1486/LB    1613.2/LB    1702.1/MTW     2295/MTW   2321.2/LB
      4431/LB      4433/STB     4604/LB      8759/TPNR 10076.1-GEN    10216/LB
   SYSOP           4801/LB      4805/CB      4808/CB      5340/LB      8761/TPNR   10080-DATA
   SYSXIT        6784.6/BE   6784.15/B       6786-EQU     8529/DES2    8536/DES2    8606/DES2    8613/DES2
      8620/DES2    8635/DES2
   TDV             6517-LI      8461/DIR
   TDVEXP          8463/DATA    9258-EQU
   TDVRU1          2368/STW     2404/LB      2647/LW    2943.2/LH      3482/LW      3510/LW      3683/LW
      4218/STD     4354/LW      9529-DATA
   TENS            7388/LI      8035-DATA
   TEST            6518/B       6521/B       6526/B       6529-STB
   TESTCC          6546/STCF    6554/LB      9523-DATA
   TESTIOP0       10592-LI     10609/BCS
   TESTIOP1       10603-TIO    10607/BCS
   TESTIOP2       10604/BCR    10612-TIO    10618/BCS
   TESTIOP3       10605-AI     10628/B
   TESTNBYT        5610-LW      5616/BDR
   TEST0           6544-LCFI    6577/BCR
   TEST1           6529/STB     6545-TIO
   TEST2           6558-LW      6567/BIR
   TEST3           6565/BCR     6569-LI
   TEST5           6548/BCS     6574-MTW
   TEXTS              7-CNAME
   TIEUP           6858/BAL     7215/BAL     7288-LW
   TIMEOUT         2777/BAL     3061/BAL     3463/BAL     3670/BAL     4174/BAL     4371-LI
   TIO             6520-LI      8456/DIR
   TIOCHK         10889-EQU    10893/BDR
   TIOCOC          5823/BAL     5845/BAL     5918-LB
   TIOCOC0         5921-TIO     5958/BCS     5960/BCR     5963/BEZ     5969/BCR     5975/BCS     5978/BCR
      5988/B       7905/BAL
   TIOCOC1         5928-LCF     5952/BCR
   TIOCOC2         5760/BAL     5932-LI
   TIOCOC3         5926/BCS     5938-LCH
   TIOCOC4         5950-AI      5964/B
   TIOCOC5         5948/BCR     5955-CI
   TIOCOC6         5956/BCS     5966-CI
   TIOCOC7         5967/BCS     5990-CLM
   TIOCOC8         5973-STB     6001/B
   TIOCOC9         5993/BCS     5998-LI
   TIOEXP          8458/DATA    9260-TEXTS
   TIOR            2372/STD     2928/LW      2993/LW      4189/LD      4216/STD     4355/LD      9530-DATA
   TIORU1          2408/LB      2441/LB      4197/LW      9531-DATA
   TIOTTY          5807/BAL     5838/BAL     5855-TIO
   TIOTTY1         5858/BCR     5862-CLM
   TIOTTY2         5868-LCF     5893/BCR
   TIOTTY3         5863/BCS     5872-LI
   TIOTTY4         5866/BCS     5881-LCH
   TIOTTY5         5885/BCR     5890-AI
   TITLE              3-EQU       49/TITLE   9093/TEXTS   9099/TEXTS
   TPNR            8661-COM
   TRAPKIND          37-EQU      393/CW       401/XW
   TRAPS            962-LI       973/B        982/B       1004/B       1013/B       1022/B       1031/B
      1040/B       1049/B       1058/B       1067/B       1076/B       1531/B
   TRAP0            192/XPSD     199/XPSD     200/XPSD     215/XPSD     216/XPSD     217/XPSD     218/XPSD
       956-DATA
   TRAP4A           195/XPSD    1043-DATA
   TRAP4B           196/XPSD    1097-DATA    1105/LM*
   TRAP4C           197/XPSD    1230/XPSD    1381-DATA
   TRAP4D           198/XPSD    1523-DATA
   TRAP40           185/XPSD     967-DATA
   TRAP41           186/XPSD     976-DATA
   TRAP42           187/XPSD     987-DATA
   TRAP43           188/XPSD     998-DATA
   TRAP44           189/XPSD    1007-DATA
   TRAP45           190/XPSD    1016-DATA
   TRAP46           191/XPSD    1229/XPSD    1235-DATA    1256/ANLZ*   1261/LB*     1327/LW*
   TRAP48           193/XPSD    1025-DATA
   TRAP49           194/XPSD    1034-DATA
   TRYERRLG        6898-LW      6904/B
   TRYOPT         10919/BEZ    11153-EQU    11194/B      11209/B
   TTBS            5580/BCR     5603-LB
   TTBSOTBS        5568/BCS     5574-LD
   TTBS3           5614/BCS     5618-STB
   TTBS4           5596-LB      5600/BDR
   TTIO1          11295-TIO    11311/BDR
   TTIO2          11302/BNEZ   11308-OR
   TTIO3          11296/BCS    11299/BAZ    11310-AI
   TTYBC           5865/CH      5873/STH     5881/LCH     5883/MTH     5892/CH      9543-DATA
   TTYBYTI         5882/LB      7971/DATA    7973-RES
   TTYBYTO         7879/STB     7976/DATA    7978-DATA
   TTYDEV          1106/LW      5855/TIO*    5875/SIO*    5876/TIO*    6140/LW      6319/CW      6341/CW
      6359/HIO*    6363/SIO*    6391/LW      6416/LW      6530/LW      6733/LM      6778/LW      6790/LW
      6797/LW      7043/LW      7172/LW      7686/CW      7849/TIO*    7863/HIO*    7868/TIO*    7882/SIO*
      8744/TPNR   10052-DATA   10178/STW    10648/CW     11271/LW     11279/STW
   TTYHAN         10873/BAL    11271-LW     11278/BCR
   TTYI            5874/LI      7971-DATA    8303/DATA    8303/DATA
   TTYINS          5862/CLM     8303-DATA
   TTYO            7881/LI      7976-DATA    8304/DATA    8304/DATA
   TTYOFF          5857/BCS     5896-MTW
   TTYOFF1         5901-LB      5906/BCS
   TTYOFF2         5903/BCR     5909-LI
   TTYOUT          5832/BAL     5848/BAL     7832/BAL     7844-STW
   TTYOUTS         5859/CLM     7853/CLM     8304-DATA
   TTYOUT1         7849-TIO     7857/BG      7860/BGEZ
   TTYOUT2         7851/BCR     7871-MTW
   TTYOUT3         7861/B       7872/BLZ     7875/BAZ     7879-STB
   TTYOUT5         7854/BCS     7863-HIO
   TTYOUT6         7850/BCS     7884-BAL
   TTYOUT7         7885/B       7890-MTW
   TTYSIZ            23-EQU     5872/LI      5877/CI      5882/LB      7972/DATA    7973/RES
   TYERRMSG       11328/CAL4   11403-TEXTS
   T3281        10788.5/BANZ             10788.22-LI
   T3283       10788.11/BANZ             10788.16-LI
   T4CA            1395-BAL     1646/B
   T4CB            1407/BANZ    1422-LCI
   T4CB0         1452.1/BGE     1461/BANZ 1462.11-LCI
   T4CB1         1440.1-LW    1462.6/BLE
   T4CC          1396.1-LI    1613.4/BANZ
   T4CC0           1399-LI      1413/BL
   T4CC1           1401-LI      1409/BDR
   T4CD            1428/BCR   1474.1-CW
   T4CD0         1474.2/BAZ  1474.14-LI
   T4CD1        1474.12/B     1491.2-LW
   T4CD2         1474.7/BAZ  1474.10/BANZ  1491.6-AI
   T4CE            1420/B     1462.9/B    1474.17/BAZ  1474.20/BANZ    1495-CI
   T420             991-XPSD
   T421             993-LI
   T46             1237/DATA    1240-EQU
   T46A            1264/BNE     1267/BGEZ    1289/BE      1309-LCI
   T46B            1313/BLZ     1322-LI
   T460            1279-RD      1283/BIR
   T461            1292/BCR     1297-AND
   T462            1302-WD      1307/BIR
   T85CPU         10339/BE     10344-CAL4
   T85GO          10293/B      10299-STW
   UNRECOV         2941/BANZ    3002-BAL
   UNSEXP          8468/DATA    9267-TEXTS
   UNSNAP           241/BAL     6953/BAL     6978-LI      8466/DIR
   UNTIE            746/BAL      797/BAL     1134/BAL     6787/BAL     7294-LW
   UPDATE          6093/BAL     6815/BAL     7187/BAL     7307/BAL     7337-CI
   UPDATE1         7338/BCS     7344/BCR     7353-AI
   UPDATE2         7356/BCR     7362/BG      7373-AI
   UPDATE3         7351/B       7374-AI
   UPDATE4         7371/BCS     7376-LW
   UPTIME           496/BAL     6930/BAL     6935-LI
   UPTIME1         6941-DW      6944/BIR
   VERSION          0.1-EQU        3/EQU     9090/TEXT
   WAIT            2473/OR      7995-DATA
   WARNING        11159/CAL4   11440-TEXTS
   WAYTAB         10149-RES    10922/CB     11343/STB
   WEIRDDV        11325/CAL4   11412-DATA
   WK0             6305/STW     6307/LW      7460/STW     7509/XW      7521/XW      9599-DATA
   WK1             9546-DATA
   WK2             9547-DATA   10238/STW
   WORDRES         2236/OR      8005-DATA
   WORDSEL          552/STW      654/CW      6881/STW     9693-DATA
   WQ2             6232/STW     6278/STW     6443/LW      6543/LW      6589/OR      6610/MTW     6618/OR
      6619/EOR     6657/LW      6718/MTW   6861.6/XW      6880/LW      6955/LW      9600-DATA
   WRAP            2079/OR    2208.5/OR      2281/OR      3256/OR      3598/OR      7994-DATA
   WRIEXP          8473/DATA    9191-TEXTS
   WRITE           6642-LI      8471/DIR
   WRITE721       11111-STW    11116/BCR
   XA000000        6667/OR      7746/AW      8262-DATA   11150/AW
   XBDIRTY          120-EQU
   XBOMB          105.1-EQU   7993.1/DATA
   XBOMBA          81.2-EQU  2090.24/CI   4746.11/CI   10329.1/LI
   XBOMBF          81.1-EQU  2090.21/CI    4746.8/CI
   XBTOUT           104-EQU     1770/CI      1774/AI      7999/DATA
   XBUFBIZ          117-EQU     4565/LI      4590/LI      8000/DATA    8001/DATA
   XBURST            80-EQU  2090.36/CI      2708/CI      4116/CI   4746.14/CI    7993.2/DATA   10942/AI
   XBUSY            101-EQU      516/CI      1750/CI      4450/CI      7987/DATA    7988/DATA
   XBYTE             66-EQU     4943/CI
   XB000            414/AND     9618-DATA
   XCHASE            89-EQU     4647/CI
   XCHEKT           118-EQU     4422/LI      4645/CI      8002/DATA    8016/DATA
   XCLEAN           113-EQU     8004/DATA
   XCSEL             73-EQU     1722/CI      2269/CI      2328/CI      2338/CI      2426/CI      2497/CI
      6585/CI      8006/DATA    8007/DATA 10329.1/LI     10938/LI   10950.1/LI
   XC300          10415/OR     11463-DATA
   XDATFX            69-EQU     5360/CI
   XDATRM            67-EQU
   XDATSQ            68-EQU     5362/CI
   XDECIMAL          65-EQU     4886/CI
   XDEVSL            86-EQU     3417/CI   10950.1/LI
   XDUAL            108-EQU      113/EQU   2875.2/CI      3023/CI    3056.2/CI    6631.1/LI  11002.49/LI
   XERROR           110-EQU      516/CI      1777/CI      2256/CI      3659/CI      4450/CI      8013/DATA
      8014/DATA
   XFERCONF         248/BANZ     255-CI
   XFERDATA         173/B        239/BANZ     247-CI
   XFERPRGM         238-CI      7141/B
   XFF00           1622/AND     6474/AND     8291-DATA
   XFF0000          722/AND     8261-DATA
   XFLOAT            64-EQU     4847/CI
   XFORCE            88-EQU     4590/LI      4704/LI      8010/DATA    8011/DATA
   XFRESHN          119-EQU      120/EQU     4422/LI      4577/AI      4593/AI      4635/LI      4782/CI
      8003/DATA    8015/DATA    8016/DATA
   XFREZE            53-EQU
   XHEADER          123-EQU      126/EQU     1910/CI      1912/LI      2102/CI      2104/LI      2672/CI
      2674/AI      2789/AI      2791/AI      4511/CI      4517/CI      4677/CI      4682/CI      4813/AI
      4961/AI      5021/CI      5024/AI      5025/AI      5133/CI      5137/AI      5140/AI      5145/CI
      5148/CI      5150/AI      5153/AI      5157/AI      5297/AI      5388/CI      5396/AI      5397/AI
   XINITAL          112-EQU     1759/CI      1761/AI      8012/DATA
   XKEYED            76-EQU     2077/CI      2228/CI
   XKEYN            103-EQU     1779/CI      2274/CI      3192/CI      3550/CI      7991/DATA    7992/DATA
   XLMS            54.1-EQU   1613.3/CI
   XLOOP             74-EQU     2493/CI      4758/CI      7993/DATA
   XMANUL           109-EQU      113/EQU     1752/CI      1777/CI      2746/CI      2763/CI      8008/DATA
      8009/DATA
   XMATH             63-EQU     4821/CI
   XMODE0            77-EQU   4789.8/CI
   XMODE1            78-EQU   3999.1/CI
   XMODE2            79-EQU   2423.8/CI      2734/CI      2806/CI    2915.9/CI      3557/CI    4011.6/CI
      4243/CI
   XNCHECK         81.3-EQU      120/EQU     2067/CI      4508/CI      4577/AI      4593/AI      4635/LI
      4704/LI      4782/CI      7996/DATA    8015/DATA    8016/DATA
   XNFLT             59-EQU     1487/CI
   XNOBUF           107-EQU     1765/CI      2256/CI      3453/CI      3637/CI      3657/CI      4506/CI
      4535/CI      4586/CI      7997/DATA    7998/DATA
   XNOLOG            56-EQU      443/CI
   XNOMEM            54-EQU    10217/CI
   XNONEW            57-EQU     4605/CI
   XPLANE           143-EQU     6030/CI
   XPSDSNAP        6963/LW      7099-XPSD
   XPSD4C           340/LW      1230-XPSD    1633/LW    1820.4/LW
   XPSD46           338/LW      1229-XPSD    1626/LW    1820.2/LW
   XPSNSQ            87-EQU     3198/CI   10950.1/LI
   XREAD             84-EQU     3160/CI      3169/CI      3494/CI      3522/CI      3554/CI
   XRETRY           122-EQU     3651/LI      3707/LI      3899/CI
   XRWIA             95-EQU     3445/CI      3618/AI      8018/DATA    8021/DATA
   XRWIAM            97-EQU     3470/CI      3618/AI      8018/DATA
   XRWIP             96-EQU     3447/CI      3855/LI      8018/DATA    8022/DATA
   XSIOA             93-EQU     3451/CI      3585/CI      8018/DATA    8019/DATA
   XSIOP             94-EQU     3449/CI      3585/CI      8018/DATA    8020/DATA
   XSNSX             58-EQU      783/CI   10076.1/GEN
   XSORS            102-EQU     1779/CI      2065/CI      2226/CI      2272/CI      3156/CI      3192/CI
      3492/CI      3516/CI      7989/DATA    7990/DATA
   XSORSS            75-EQU     2047/CI   2090.11/CI    4570.1/CI   10329.1/LI
   XTOGL             83-EQU     3520/CI   10950.1/LI
   XWAIT            105-EQU     1777/CI      1786/CI      1790/AI      2256/CI      2458/CI      2470/CI
      2725/CI      3011/CI      3791/CI      4132/CI      7995/DATA   10938/LI   10950.1/LI
   XWAITS            81-EQU
   XWORDRES         111-EQU     1744/CI      8005/DATA
   XWRAP            106-EQU     2215/CI      2262/CI    3029.4/CI      3042/CI      3154/CI      3190/CI
    6631.1/LI      7994/DATA
   XWRYT             85-EQU     3158/CI      3496/CI      3524/CI      3552/CI
   X0707           5575/AND     5576/AND     5709-DATA
   X1FF0           2381/AND     6649/AND     8293-DATA   10700/AND    10879/AND    11183/AND
   X1F00           1258/AND     8292-DATA   10317/AND
   X1100000        7518/AW      8269-DATA
   X2200000        6553/LW      8268-DATA
   X2323           5561/LW      5562/LW      5711-DATA
   X3E             5455/DW      8295-DATA
   X3200000        6550/LW      8267-DATA
   X4200000        1152/LW      7786/LW      8266-DATA   10569/LW
   X5C0000         8288-DATA   10764/LW
   X5F00000        7519/AW      8265-DATA
   X6200000     10266.4/LW   11465.1-DATA
   X7C             1262/AND     8294-DATA   10290/OR
   X7FFFC          5139/AND     5152/AND     6422/AND     8277-DATA
   X7F800          1907/AND     8287-DATA
   X8100000        6304/LW      8264-DATA
   X8200000        6300/LW      6556/LW      6998/LW      8263-DATA
   YA048           2374/CW      2495/CW      8275-DATA
   YEARS           8788/TPNR    9604-DATA
   YESCR          10655/BCR    10741/BCR    10752-LI
   YESLAST        10553/BE     10557-EQU
   YESLP          10739/BCR    10749-LI
   YESMUC         10653/BCS    10657/BCR    10661-HIO
   YFF             1297/AND     4975/AND     8274-DATA
   YFFFE           7073/AND     8272-DATA
   YFFFF           4965/AND     5436/AND     5560/AND     8271-DATA
   YFFFFFF         4903/AND     8270-DATA
   YFF8          1405.1/CW    8273.1-DATA
   YM16            3431/AND     8276-DATA
   Y0C             4253/AW      8281-DATA
   Y0014           2940/CW      3688/CW      4205/CW      8286-DATA
   Y0028           2929/CW      3686/CW      4198/CW      8285-DATA
   Y07              285/OR      8296-DATA
   Y1B           1474.9/CW   1474.19/CW      8284-DATA
   Y1C             3540/LW      4252/AW      8280-DATA
   Y1E             2573/EOR     2792/EOR     3537/LW      8279-DATA
   Y2E             2613/EOR     3075/EOR     3134/OR      8278-DATA
   Y4BYT          11346/BCR    11348/BCR    11350/BCR    11352/BCR    11355-LW
   Y6            1474.6/CW   1474.16/CW      8282-DATA   10691/CW
   Y66           3336.6/CW      6330/CW      6693/CW      8283-DATA   10714/CW
   Y7F8          1617.5/CW      8273-DATA
   ZERO            5474/CS      8215-DATA   10438/LRP
   ZEROS            726/LD      1259/LD    1414.1/LD      1598/LD      3583/LD      3849/LD      4313/LD
      4362/LD      4460/LD      5339/LD      5468/LD      5469/LD      5490/LD      5515/LD      5516/LD
      5523/LD      5524/LD      5558/LD      5571/LD      5578/LD      5646/LD      6872/LD      8067-DATA
   11155.9/NOP    11272/LD     11275/NOP
   0TO31           4871/CD      8300-DATA
   0TO9            5657/AND     7489/CLM     8299-DATA
   1STHALF         4828/B       4836/B       4845/B       4895/B       4904/B       4911/B       4934-CD
   10TO13          5990/CLM     8302-DATA
   2REFLECT        5049/STW     5057/LS*     9572-DATA
   2SEC            5766/MTB     9592-DATA
   2WAY1KK      1518.14-DATA
   2WAY128K      1518.5-DATA
   2WAY16K         1514-DATA
   2WAY2KK       1462.5/CI   1518.17-DATA
   2WAY256K      1518.8-DATA
   2WAY32K         1517-DATA
   2WAY512K     1518.11-DATA
   2WAY64K       1518.2-DATA
   2WAY8K        1429.6/LI      1511-DATA
   500HZ           6941/DW      7150/MW      8072-DATA
