1 C00   20:35 JUN 20,'83                                                                          PAGE    1
A      1                     1.000  +1,4                                                                *H01
       2                     1.010  CATALOG  EQU      C'0051'                                           *H01
       3                     1.020  VERSION  EQU      C'H01'                                            *H01
       4                     1.030  TITLE    EQU      S:PT('TELEFILE IOP EXERCISER ',;                  *H01
       5                     1.040                    '960-',CATALOG,'-',VERSION)                       *H01
       6                     1.050           PCC                                                        *H01
       7                     1.060           SPACE                                                      *H01
       8                     1.070           SYSTEM   SIG9P                                             *H01
       9                     1.080           SPACE                                                      *H01
      10                     1.090  MEMLIM   EQU      4*1024*1024                                       *H01
      11                     1.100           SPACE                                                      *H01
      12                   383.000  +383,396                                                            *H01
      13                   383.010           SPACE                                                      *H01
      14                  2169.000  +2169,2169                                                          *H01
      15                  2169.010           SPACE                                                      *H01
      16                  2169.020  ADMASK   DATA     MEMLIM-1          LWA MAXIMUM MEMORY              *H01
      17                  2169.030           SPACE                                                      *H01
      18                  4096.000  +4096,4096                                                          *H01
      19                  4096.010           DO       255                                               *H01
      20                  4104.000  +4104,4104                                                          *H01
      21                  4104.010           DO       255                                               *H01
      22                  4152.000  +4152,4152                                                          *H01
      23                  4152.010           SPACE                                                      *H01
      24                  4152.020  LOWOK    LW,4     MSIZE             COMPUTE LWA MEMORY              *H01
      25                  4152.030           AI,4     -1                                                *H01
      26                  5583.000  +5583,5583                                                          *H01
      27                  5583.010  INITD1   MTYPE    PROGMSG           ANNOUNCE OUR EXISTENCE          *H01
      28                  5866.000  +5866,5866                                                          *H01
      29                  5866.010  PROGMSG  TEXTCS   TITLE                                             *H01
      30                  9999.999  +END
1 C00   20:35 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   20:35 JUN 20,'83    RESTART LOGIC                                                         PAGE    3
A       1*        TEXT               CATALOG  EQU      C'0051'                                           *H01
        2*        TEXT               VERSION  EQU      C'H01'                                            *H01
        3*                           TITLE    EQU      S:PT('TELEFILE IOP EXERCISER ',;                  *H01
        4*        TEXT                                 '960-',CATALOG,'-',VERSION)                       *H01
        5*                                    PCC                                                        *H01

        7*                                    SYSTEM   SIG9P                                             *H01

        2*        00400000           MEMLIM   EQU      4*1024*1024                                       *H01

        5                            *        IOP AND MEMORY TESTER OPERATES WITH THE MAINTENANCE
        6                            *        SUBCONTROLLER TO EXERCISE THE MEMORY PORTS WITH IOPS.
        7                            *
        8                            *        THE HFS ARE LOADED WITH THEIR OWN RESIDENT PROGRAMS.
        9                            *
       10                            *        AFTER BOOTING MEMORY SIZE IS DETERMINED AND ALL
       11                            *        POSSIBLE IOP ADDRESSES ARE TESTED FOR OPERABLE
       12                            *        SUBCHANNELS.
       13                            *        THE FIRST SUBCHANNEL THAT DOES NOT RETURN ALL ZEROS
       14                            *        AND ALL ONES THROUGH THE FAST MEMORY STOPS THAT IOP SCAN.
       15                            *        THE IOP ADDRESSES AND THE LAST FOUND SUBCHANNEL ARE REPORTED
       16                            *        AT THE LINE PRINTER IF AVAILABLE, OTHERWISE AT THE TTY.
       17                            *        THIS REPORT SHOULD BE EXAMINED TO INSURE THAT ALL IOPS
       18                            *        ON THE SYSTEM ARE IN THE TABLE AND THAT THE MAXIMUM
       19                            *        SUBCHANNEL ADDRESS IS A MULTIPLE OF SEVEN.
       20                            *        ANY IOP NOT REPORTED AT THIS TIME IS FAILING IN SUBCHANNEL
       21                            *        ZERO AND THEREFORE IS NOT INSERTED IN THE TABLE.
       22                            *        ANY MAXIMUM CHANNEL NOT ENDING IN A MULTIPLE OF SEVEN
       23                            *        FAILED THE DATA TEST ON THE SUBCHANNEL ONE GREATER THAN
       24                            *        THE LAST ONE REPORTED.
       25                            *        AFTER THE IOP'S HAVE BEEN CONFIGURED, ALL POSSIBLE
       26                            *        HF ADDRESSES ARE TESTED. ANY HF'S FOUND ARE LISTED BY
       27                            *        SYSTEM AND THE TOTAL NUMBER OF PROCESSORS ON THAT SYSTEM.
       28                            *        MEMORY CONFIGURATION IS AUTOMATICALLY PRINTED ON THE DCM.
       29                            *
       30                            *
       31                            *        NOTE:
       32                            *        IOP ADDRESSES ARE DETERMINED BY THE WRITE DIRECT GROUP
       33                            *        ADDRESS DURING THE CHANNEL SCAN ROUTINE.
       34                            *        WRITE DIRECT ADDRESS MUST BE SET TO 1/2 THE IOP ADDRESS.
       35                            *
       36                            *        DATA PATTERNS USED BY IOPS DURING ALL TESTS ARE THE IOP ADDRESS
       37                            *        DURING ONE BYTE MODE AND THE COMPLIMENT OF THE IOP ADDRESS
       38                            *        DURING FOUR BYTE MODE. THE HF USES A DIFFERENT FORMAT.
       39                            *        AN HF DATA WORD CONSISTS OF THE FOLLOWING;
       40                            *        PAGE COUNT FOR THIS IOCD,HF ID, REGISTER GROUP USED
       41                            *        AND THE DESTINATION ADDRESS.
       42                            *
       43                            *
       44                            *        TEST OPERATION IS IN FOUR  PHASES.
       45                            *        PHASE ONE VERIFIES THE OPERATION OF THE IOP AND ITS
       46                            *        ABILITY TO ACCESS ALL OF MEMORY IN SINGLE AND FOUR BYTE MODES.
       47                            *        EACH IOP AND HF IS TESTED IN SEQUENCE DURING PHASE ONE.
       48                            *        EACH HF IS TESTED IN SEQUENCE AFTER THE IOPS.
       49                            *        PHASE ONE WILL RUN FOR THE LENGTH OF TIME IT TAKES TO
       50                            *        READ AND WRITE ONE SUBCHANNEL OF EACH IOP
       51                            *        IN ONE AND 4 BYTE MODES.
       52                            *
       53                            *        PHASE 2 WILL RUN ALL IOPS AND HFS IN THE TEST TABLE
       54                            *        SIMULTANIOUSLY. DATA IS MOVED THROUGHOUT ALL OF TEST MEMORY
       55                            *        VIA DATA CHAINED COMMAND DOUBLE WORDS.
       56                            *        THE TWO AND FOUR BYTE MODES ARE SEQUENCED HOWEVER NO DATA
       57                            *        TESTING IS DONE DURING PHASE TWO.
       58                            *        PHASE 2 WILL RUN FOR 1.5 MINUTES OR SEE TIME KEYIN.
       59                            *
       60                            *        PHASE 3 IS A BUFFERED MODE TEST.
       61                            *        BUFFERS ARE ASSIGNED THROUGHT MEMORY AND ALL IOPS WILL
       62                            *        BE RUNNING . THE CPU WILL TEST BUFFERS ON A TIME AVAILABLE
       63                            *        BASIS.
       64                            *        PHASE 3 WILL RUN FOR 1.5 MINUTES OR SEE TIME KEYIN.
       65                            *
       66                            *        PHASE 4 IS AN INSTRUCTION TESTING PHASE.
       67                            *        BUFFERS ARE ASSIGNED THROUGH-OUT MEMORY AND ALL IOP'S
       68                            *        WILL BE RUNNING.  THE CPU WILL TAKE AN AVAILABLE
       69                            *        BUFFER AND SUM IT UP VIA A CVA AND
       70                            *        MULTIPLICATION (DATA * BUFFER SIZE-1).  THE TOTALS ARE THEN
       71                            *        ADDED TOGETHER WITH THE FOLLOWING RESULTS:
       72                            *                 CVA TOTAL - MULTIPLICATION TOTAL = 0
       73                            *        THE HF DATA BUFFERS ARE SUMMED UP IN THE FOLLOWING
       74                            *        MANNER*
       75                            *                 SUM = (N/2)*(2*A+(N-1))
       76                            *                 N = NUMBER OF TERMS
       77                            *                 A = DATA
       78                            *        THE BUFFERS ARE SUMMED WITH A CVA ALSO. THE TOTALS
       79                            *        ARE THEN VERIFIED AS FOR AN IOP.  IN EACH OF THE CASES,
       80                            *        ARITHMETIC OVERFLOWS ARE IGNORED.
       81                            *        ALL PHASES WILL CYCLE AUTOMATICLY. SEE GO COMMAND.
       82                            *
       83                            *        PHASE 3 AND 4 BUFFER FORMAT.
       84                            *
       85                            *        BUFFERS ARE ASSIGNED DYNAMICALY THROUGHT TEST MEMORY DURING
       86                            *        PHASE 3. THE BUFFER SIZE DEFAULTS TO X'800' WORDS.(SEE SIZE KEYIN)
       87                            *        THE FIRST WORD OF THE BUFFER IS USED FOR TRACKING AND WILL
       88                            *        CONTAIN THE IOP FUNCTION WORD (WORD TWO OF LIST DISPLAY) OF THE
       89                            *        IOP WHICH LAST WROTE THAT BUFFER. AFTER AN IOP HAS USED A BUFFER AS
       90                            *        AN OUTPUT BUFFER THAT IOP NUMBER WILL BE ORED INTO BYTE ZERO
       91                            *        OF THE FIRST WORD. WHEN EVER A DATA ERROR IS FOUND BIT ZERO
       92                            *        OF BYTE ZERO IS SET TO ZERO INDICATING THAT BUFFER MUST BE
       93                            *        REFRESHED BEFORE DATA TESTING MAY BE DONEAGAIN.
       94                            *
1 C00   20:35 JUN 20,'83    RESTART LOGIC                                                         PAGE    4
A      96                            *
       97                            *        TELETYPE INPUT COMMANDS:
       98                            *
       99                            *        ADD P1 ... (P28) (ODD) (EVEN)
      100                            *        RESTORE IOPS TO THE TEST TABLE.
      101                            *        ONLY IOPS THAT WERE FOUND AT BOOT TIME OR CONFIGURE
      102                            *        TIME MAY BE ADDED.
      103                            *        1 THRU 28 IOP'S MAY BE ADDED
      104                            *        EVEN WILL ADD THE EVEN IOP'S AND REMOVE THE ODD ONES
      105                            *        ODD WILL ADD THE ODD IOP'S AND REMOVE THE EVEN ONES
      106                            *
      107                            *        BM (P1)
      108                            *        SET BURST MODE OPERATION FOR ALL IOPS.
      109                            *        WHEN P1 = 0 RESET BURST MODE. DEFAULT IS OFF.
      110                            *
      111                            *        CM    (P1)
      112                            *        SET CLOCK MARGINS FOR ALL IOP'S.
      113                            *        WHEN (P1) = 0 RESET CLOCK MARGINS. DEFAULT IS OFF.
      114                            *
      115                            *        COMP P1 P2 P3 (P4)
      116                            *        SEARCH MEMORY FROM (P1) THRU (P2) FOR VALUE (P3)
      117                            *        WITH MASK OF ALL F'S OR (P4).
      118                            *
      119                            *        CONF
      120                            *        SCAN FOR IOPS AND HFS. ALL IOPS AND HFS FOUND ARE INSERTED IN THE TEST
      121                            *        AND LISTED AT THE TTY.
      122                            *        SELECT AND HOLD MODES ARE RESET.
      123                            *
      124                            *        CORE (CONF) P1 (P2) (DOOR)
      125                            *        SET TEST MEMORY LIMITS.
      126                            *        P1=LOW LIMIT, OPTIONAL (P2) = HIGH LIMIT.
      127                            *        LOW LIMIT MAY BE SET TO THE FIRST LOCATION AVAILABLE AFTER
      128                            *        THE PROGRAM BY USING A ZERO OR TO ANY 16K STARTING ADDRESS.
      129                            *        UPPER LIMIT MAY BE SET TO ANY 16K ENDING ADDRESS.
      130                            *        UPPER LIMIT IS LAST ADDRESS TO TEST.
      131                            *        RE(CONF)IFGURE MEMORY SIZE.
      132                            *        LIST STARTING ADDRESS, (DOOR) NUMBER, AND INTERLEAVING.
      133                            *
      134                            *        DLAY P1
      135                            *        INSERT A HEX DELAY VALUE TO BE IMPLIMENTED BETWEEN IO
      136                            *        INTERRUPT AND NEXT SIO TIME. USEABLE IN PHASE 2 AND 3 ONLY.
      137                            *
      138                            *        DUMP P1 (P2)
      139                            *        PRINT CORE FROM (P1) THROUGH (P2).
      140                            *
      141                            *        FAM (P1) (P2) (P3)
      142                            *        TEST FAMS FOR IOP (P1), ALL SUBCHANNELS, OR JUST
      143                            *        SUBCHANNELS (P2) THRU (P3). TESTS UPPER AND LOWER
      144                            *        FAM FOR EACH BIT COMBINATION.
      145                            *
      146                            *        FREE (P1)
      147                            *        REMOVE BUFFER TRACKING MODE ON ALL OR IOP (P1).
      148                            *
      149                            *        GO (P1) (P2) (P3) (P4)
      150                            *        START THE TEST, ALL PHASES OR PHASES SELECTED BY PARAMETERS.
      151                            *
      152                            *        HALT
      153                            *        STOP THE TEST.
      154                            *
      155                            *        HEX P1 P2 P3
      156                            *        IF P2 IS R(IGHT) OR L(EFT) THEN SHIFT
      157                            *        P1 P3 BITS. (GOT THAT ?)
      158                            *
      159                            *        HIO,TIO,TDV P1 (P2) (P3)
      160                            *        DISPLAY IO STATUS FOR DEVICE (P1) OR ALL BETWEEN (P1) AND (P2)
      161                            *        OPTIONALY ON LINE PRINTER (P3).
      162                            *        DISPLAY HF I/O STATUS WHEN P1 = 32SP, S= SYSTEM, P= PROCESSOR
      163                            *
      164                            *        HOLD (P1)
      165                            *        FREEZE TEST WITH PRESENT OPERATING PARAMETERS.
      166                            *        SUBCHANNEL MODES AND BUFFERS ARE FROZEN AT THE PRESENT STATE.
      167                            *        P1=0,RELEASE HOLD MODE.
      168                            *
      169                            *        HTE (P1)
      170                            *        SETS HALT ON TRANSMISSION ERROR FLAG IN IOCD FOR ALL
      171                            *        IOPS AND HFS. P1 = 0 RESETS THE FLAG. DEFAULT IS OFF.
      172                            *
      173                            *        IOPD P1
      174                            *        DISPLAY IOP (P1) MAINTENANCE INTERFACE REGISTERS.
      175                            *        DISPLAY GROUP NUMBER FORMAT
      176                            *        G0    G1    G2
      177                            *        G8    G9    G10L  G11L
      178                            *        G10U  G11U  G14   G15
      179                            *
      180                            *        LIST (P1) (IOP)
      181                            *        LIST ALL OR (P1) IOPS TEST TABLES.
      182                            *        LIST DISPLAY FORMAT
      183                            *
      184                            *        WORD 1 = IOP ADDRESS SELECTION
      185                            *                HALFWORD 0 = IOP AND FIRST CHANNEL ADDRESS.
      186                            *                HALFWORD 1 = IOP AND LAST CHANNEL ADDRESS.
      187                            *
      188                            *        WORD 2 = CURRENT IOP FUNCTION.
      189                            *               BYTE 0 = 80 = MS ON LINE & DC OFF LINE.
      190                            *                        00 = IOP NORMAL.
      191                            *               BYTE 1 =  0 = READ ONE BYTE MODE.
      192                            *                         1 = WRITE ONE BYTE MODE.
      193                            *                         2 = READ FOUR BYTE MODE.
      194                            *                         3 = WRITE FOUR BYTE MODE.
      195                            *               BYTE 2 = CURRENT MS DEVICE ADDRESS.
      196                            *               BYTE 3 = MS DATA BYTE.
      197                            *
      198                            *        WORD 3 = BUFFER STARTING ADDRESS (PHASE 3).
      199                            *
      200                            *        WORD 4 & 5 = LAST COMMAND DORBLE WORD.
      201                            *                     DURING PHASES 1 & 2 WORD 4 WILW CONTAIN
      202                            *                     A TIC TO THE COMMAND LIST.
      203                            *
      204                            *        WORD 6 = LAST DATA WORD USED FOR MS SET UP WD.
      205                            *        LIST IOP DISPLAY FORMAT
      206                            *        IOP-MS   ADDRESS  OPERATION  DATA
      207                            *        0 OFF
      208                            *        1 ON        05   READ BUF.ADDR. FE
      209                            *
      210                            *        LMS P1 P2 (P3)
      211                            *        EXECUTE LMS INSTRUCTION WITH CONDITION CODES (P1)
      212                            *        AND EFFECTIVE ADDRESS (P2).
      213                            *        WHEN (P1)=7 SET MARGINS AS PER (P3).
      214                            *
      215                            *
      216                            *        LOOK P1 (P2)
      217                            *        DISPLAYS INTERNAL REGISTERS OF HF SYSTEM (P1)
      218                            *        PROCESSOR (P2).
      219                            *
      220                            *        LP P1
      221                            *        SET LINE PRINTER TO (P1) OR DELETE LINE PRINTER OUTPUT
      222                            *        WHEN (P1)=OFF.
      223                            *
      224                            *        RD P1
      225                            *        EXECUTE READ DIRECT INSTRUCTION WITH EFFECTIVE ADDRESS (P1).
      226                            *
      227                            *        REM P1 ... (P28) (ODD) (EVEN) (ALL)
      228                            *        REMOVE IOPS FROM THE TEST TABLE.
      229                            *        1 THROUGH 28 IOPS MAY BE REMOVED.
      230                            *        IF ANY PARAMETER = ALL, REMOVE ALL FROM TEST.
      231                            *        EVEN WILL REMOVE ALL EVEN IOPS
      232                            *        ODD WILL REMOVE ALL ODD IOP'S
      233                            *
      234                            *        REPL P1 (P2)
      235                            *        REPLACE MEMORY LOCATION (P1) OR FROM (P1) THROUGH (P2).
      236                            *
      237                            *        SEAR
      238                            *        LOAD WORD FROM ALL MEMORY LOCATIONS.
      239                            *
      240                            *        SEL (P1)
      241                            *        MODIFY TEST TABLE.
      242                            *        SEL B
      243                            *        ALLOWS SELECTING SUBCHANNEL ADDRESSES. FIRST WORD OF LIST DATA.
      244                            *        SEL C
      245                            *        ALLOWS SELECTING IOP FUNCTION (IN OR OUT (2 OR 4 BYTE MODE)),
      246                            *        SUBCHANNEL ADDRESS AND DATA PATTERN. SECOND WORD OF LIST DATA.
      247                            *           BYTE 0 = 80 = IOP OFF LINE
      248                            *           BYTE 1 = 0,1,2,3 =  EVEN NUMBERS READ, ODD NUMBERS WRITE
      249                            *           BYTE 2 = CURRENT DEVICE ADDRESS FOR MS
      250                            *           BYTE 3 = DATA BYTE FOR MS
      251                            *        PHASE 1 IS INHIBITED WHEN SELECT C HAS BEEN SET-UP.
      252                            *        SEL 0  RELEASES SELECT C MODE.
      253                            *
      254                            *        SINT
      255                            *        DISPLAY AND RESET SPURIOUS INTERRUPT COUNT
      256                            *
      257                            *        SIO P1 P2
      258                            *        ISSUE SIO TO DEVICE (P1) USING COMMAND AT WORD ADDRESS (P2)
      259                            *
      260                            *        SIZE P1
      261                            *        SET PHASE 3 BUFFER SIZE TO (P1) WORDS.
      262                            *        DEFAULT SIZE IS X'800'.
      263                            *
      264                            *        TICK (P1)
      265                            *        SET SIO TIMEOUT DELAY TO HEX COUNT (P1). VALUE = NUMBER OF
      266                            *        COUNTER FOUR TICKS FOR A TIMOUT.
      267                            *        ABSENCE OF P1 OR P1=0, USE DEFAULT TIMEOUT VALUES.
      268                            *
      269                            *        TRAK (P1)
      270                            *        SET BUFFER TRACKING MODE ON ALL OR (P1) IOPS.
      271                            *        BUFFER CONTENTS WILL BE VERIFIED AFTER EACH INPUT
      272                            *        CYCLE IO INTERRUPT.
      273                            *
      274                            *        TEST (P1)
      275                            *        SETS DATA TRACKING OF   HF BUFFERS (ON) OR (OFF)
      276                            *        P1 NOT SPECIFIED MEANS ON.  DEFAULT IS ON.
      277                            *
      278                            *        TIME (P1) (SET)
      279                            *        SET TIME  OF PHASES TWO AND THREE.
      280                            *        P1 = MINUTES TO RUN PHASES 2 AND THREE.
      281                            *        ABSENCE OF P1 OR P1=0 SETS A LARGE PHASE TIME,
      282                            *        APPROXIMATELY FOREVER.  (RE)SET TIME THAT DIAGNOSTIC
      283                            *        IS RUNNING  TO ZERO.
      284                            *
      285                            *        TYPE P1 (P2)
      286                            *        TYPE MEMORY LOCATION (P1) OR FROM (P1) THROUGH (P2).
      287                            *
      288                            *        WD P1 (P2)
      289                            *        EXECUTE WRITE DIRECT INSTRUCTION WITH EFFECTIVE ADDRESS
      290                            *        (P1) USING DATA (P2). IF P2 NOT ENTERED ZEROS ARE SENT.
      291                            *
      292                            *        - (DASH)
      293                            *        CAUSES CURRENT INPUT LINE TO BE IGNORED
      294                            *
1 C00   20:35 JUN 20,'83    RESTART LOGIC                                                         PAGE    5
A     296                            *
      297                            *
      298                            *        ERROR INDICATIONS
      299                            *
      300                            *        PARITY ERRORS.
      301                            *        PARITY TRAP MESSAGE AND THE PARITY SCAN
      302                            *        ARE THE SAME FORM AS IN IAS/DCM.
      303                            *        THE PARITY TRAP MESSAGE WILL REPORT THE THREE WORDS
      304                            *        OF STATUS FROM THE FAILING DOOR AT THE TIME OF THE TRAP.
      305                            *        PARITY SCAN WILL INDICATE THE LOCATION OF THE FIRST
      306                            *        FAILING LOCATION, ITS CONTENTS AND A COUNT OF ERRORS
      307                            *        ENCOUNTERED IN ALL OF MEMORY.
      308                            *        THE FIRST ERROR WILL BE CLEARED AND THE OPERATOR
      309                            *        IS GIVEN THE OPTION OF SCANNING FOR MORE ERRORS.
      310                            *        A FOUR IN THE FIRST DIGIT OF  THE PARITY ADDRESS
      311                            *        INDICATES THAT THE ERROR WAS NOT CLEARED WHEN THE
      312                            *        FOUND DATA WAS RE-WRITTEN INTO THE FAILING LOCATION.
      313                            *
      314                            *        WATCH DOG TIMER TRAPS.
      315                            *        46 TRAPS ARE REPORTED IN THE SAME FASHION AS IAS/DCM.
      316                            *        TRAPS CAUSED BY IO ACCESES WILL SCAN ALL IOP ADDRESSES
      317                            *        LOOKING FOR ANY IOP WHICH WILL CAUSE A TRAP ON A TIO.
      318                            *        WHEN FOUND, STATUS WORDS 0,1,2,8,9 AND 10 ARE TAKEN
      319                            *        AND A RESET IO INSTRUCTION IS DIRECTED TO THE FAILING IOP.
      320                            *        AFTER ALL IOPS HAVE BEEN SCANNED, THE REPORT IS TYPED
      321                            *        SHOWING THE IOPS WHICH FAILED AND THE STATUS OF THE IOPS
      322                            *        AT THE TIME OF THE RESET IO.
      323                            *        TRAPS CAUSED BY A MEMORY BUS LOCKOUT WILL SCAN ALL IOPS
      324                            *        IN AN ATTEMPT TO LOCATE AN IOP WHICH HAS LOCKED
      325                            *        OUT THE MEMORY VIA ITS ACCESS LOGIC. WHEN AND IF FOUND
      326                            *        THE SAME REPORT AS AN IOP LOCKUP IS GENERATED.
      327                            *
      328                            *
      329                            *        IOP SOFTWARE TIMEOUT.
      330                            *        THE IOPS WHICH ARE ACTIVE ARE SCANNED FOR A TIMEOUT WITHIN
      331                            *        THE COUNTER 4 EQ. ZERO INTERRUPT ROUTINE.
      332                            *        ANY IOP WHICH HAS EXCEDED ITS ALLOWED TIME VALUE WILL
      333                            *        BE REPORTED ON THE TTY. THE REPORT WILL CONTAIN A HEADING
      334                            *        WHICH IDENTIFIES THE IOP FOLLOWED BY THE IOP  STATUS REGISTERS
      335                            *        IN THE SAME FORMAT AS THOSE REPORTED BUY THE IOPD COMMAND.
      336                            *
      337                            *        IO INTERRUPT WITH BYTE COUNT NOT EQUAL TO ZERO.
      338                            *        ALL IOP COMMANDS ARE EXPECTED TO TERMINATE WITH THE
      339                            *        BYTE COUNT EQUAL TO ZERO. IF THIS IS NOT THE CASE THE
      340                            *        AIO,TIO STATUS AND THE COMMAND DOUBLE WORD
      341                            *        ARE TYPED AT THE TTY. UPON EXITING THIS ERROR CONDITION THE
      342                            *        SAME COMMAND IS REISSUED TO THE FAILING IOP.
      343                            *
      344                            *        XXXX SIO FAILURE INDICATES AN SIO FAILED FOLLOWING THE
      345                            *        WRITE DIRECT TO SET UP THE MS ADDRESS REGISTER.
1 C00   20:35 JUN 20,'83    RESTART LOGIC                                                         PAGE    6
A     347                            *        ERROR WAITS.
      348                            *        FOLLOWING A TIMEOUT ERROR,INVALID BYTECOUNT TERMINATION
      349                            *        OR A BUFFER ERROR, THE PROGRAM WILL GO INTO AN INPUT
      350                            *        TELETYPE ROUTINE WAITING FOR OPERATOR INTERVENTION.
      351                            *        ALL OF THE TELETYPE COMMANDS ARE AVAILABLE TO THE
      352                            *        OPERATOR AT THIS TIME.
      353                            *        TO EXIT THIS ERROR WAIT MODE ENTER A NEW LINE ONLY
      354                            *        AND THE PROGRAM WILL RESUME OPERATION.
      355                            *
      356                            *        HALT AND RUN INDICATOR.
      357                            *        AN H OR R WILL BE TYPED AT THE COMPLETION OF A COMMAND TO
      358                            *        INDICATE THE DIAGNOSTIC IS STILL RUNNING OR HAS STOPPED.
      359                            *        SOME COMMANDS  SUCH AS ADDING OR DELETING IOPS, CHANGING
      360                            *        BUFFER SIZE FOR PHASE 3 REQUIRE A RESTART AND WILL
      361                            *        AUTOMATICLY PLACE THE DIAGNOSTIC IN HALT MODE.
      362                            *
      363                            *
      364                            *        SENSE SWITCH OPTIONS.
      365                            *
      366                            *        SWITCH 1 ON WILL BYPASS LOADING THE HF'S DURING BOOT TIME.
      367                            *                    WILL HALT AFTER SPURIOUS INTERRUPTS DURING EXEC.
      368                            *
      369                            *        SWITCH 2 ON WILL INHIBIT ALL TTY AND PRINTER MESSAGES.
      370                            *
      371                            *        SWITCH 3 ON WILL BYPASS THE ERROR WAIT INPUT LOOP.
      372                            *                     WATCHDOG TIMER TRAP WILL AUTOMATICLY
      373                            *                     RETRY THE FAILED INSTRUCTION AFTER ERROR MESSAGE.
      374                            *
      375                            *        SWITCH 4 ON WILL INHIBIT ALL ERROR MESSAGES.
      376                            *                     WITH THE EXCEPTION OF AN SIO FAILURE AND
      377                            *                     ALL CPU FAULTS - 40 TRAPS ETC. - AND
      378                            *                     PROCESSOR FAULTS WILL BE REPORTED AS USUAL.
      379                            *                     WATCHDOG TIMER TRAP MESSAGES WILL BE INHIBITED.
      380                            *                     PARITY ERRORS WILL BE REPORTED AS USUAL,HOWEVER,
      381                            *                     ALL ERRORS WILL BE CLEARED AND THE PROGRAM WILL
      382                            *                     ATTEMPT TO CONTINUE OPERATION.

      397         00000004           INHIB    COM,8,24 X'6D',X'37'       WD,0       37
      398         00000004           ALLOW    COM,8,24 X'6D',X'27'       WD,0       27
      399                        *S* ALLOW2   COM,8,24 X'6D',X'26'       WD,0     26
      400                        *S* DTYPE    COM,1,7,4,20 AFA(1),X'04',11,AF(1)
      401         00000004           DPRINT   COM,1,7,4,20 AFA(1),X'04',12,AF(1)
      402         00000004           MPRINT   COM,1,7,4,20  AFA(1),X'04',13,AF(1)
      403         00000004           MTYPE    COM,1,7,4,20  AFA(1),X'04',14,AF(1)
      404         00000004           MINKEY   COM,1,7,4,20  AFA(1),X'04',15,AF(1)
      405         00000000           TEXTCS   CNAME
      406                                     PROC
      407                                     DISP     %
      408                                     LIST     0
      409                            LF       TEXTC    AF
      410                                     LIST     1
      411                                     PEND
      412         00000000           PSD      CNAME
      413                                     PROC
      414                                     BOUND    8
      415                            LF       EQU      %
      416                                     RES      2
      417                                     GEN,12,20,8,24 AF(1),AF(2),AF(3),AF(4)
      418                                     PEND
      419         00000000           GETTIME  CNAME
      420                                     PROC
      421                            LF       LW,AF(1) TIMETICK
      422                                     AW,AF(1) TICKER
      423                                     SW,AF(1) COUNT4
      424                                     PEND
      425                            *
      426         0000000A           STACKSZ  EQU      10                SIZE OF DCM STACK
      427                            *
      428         00800000           REABIT   EQU      X'800000'         REAL EXTENDED ADDRESS PSD BIT
      429                            *
      430                            * TRAPS AND THERE RETURN POINTS
      431   01 00040                          ORG      X'40'
            01 00040
      432   01 00040    0F00006A              XPSD,0   TRAP40            NON-ALLOWED OPERATION
      433   01 00041    0F00006E              XPSD,0   TRAP41            UNIMPLIMENTED INSTRUCTION
      434   01 00042    0F000072              XPSD,0   TRAP42            STACK LIMENT OVERFLOW
      435   01 00043    0F000076              XPSD,0   TRAP43            FIXED POINT OVERFLOW
      436   01 00044    0F00007A              XPSD,0   TRAP44            FLOATING POINT
      437   01 00045    0F00007E              XPSD,0   TRAP45            DECIMAL FAULT
      438   01 00046    0F000082              XPSD,0   TRAP46            WATCH DOG TIMMER RUN OUT
      439   01 00047    33000000 A            MTW,0    0                 UNUSED TRAP LOCATION
      440   01 00048    0F000086              XPSD,0   TRAP48            CALL1
      441   01 00049    0F00008A              XPSD,0   TRAP49            CALL2
      442   01 0004A    0F00008E              XPSD,0   TRAP4A            CALL3
      443   01 0004B    0F000092              XPSD,0   TRAP4B            CALL4
      444   01 0004C    0F000096              XPSD,0   TRAP4C            MEMORY PARITY TRAP
      445   01 0004D    0F00009A              XPSD,0   TRAP4D            INSTRUCTION EXCEPTION TRAP
      446   01 00050                          ORG      X'50'
            01 00050
      447   01 00050    0F00009E              XPSD,0   INT50             POWER ON
      448   01 00051    0F0000A2              XPSD,0   INT51             POWER OFF
      449   01 00052    331007AE              MTW,1    COUNT1
      450   01 00053    33F007AF              MTW,-1    COUNT2
      451   01 00054    331007B0              MTW,1    COUNT3            COUNT MILLI-SECONDS
      452   01 00055    33F007B1              MTW,-1    COUNT4
      453   01 00056    0F0000A6              XPSD,0   INT56             MEMORY PARITY
      454   01 00057    0F0000AA              XPSD,0   INT57             MEMORY FAULT (9)
      455   01 00058    33000000 A            MTW,0    0                 RTC1
      456   01 00059    33000000 A            MTW,0    0                 RTC2
      457   01 0005A    33000000 A            MTW,0    0                 RTC3
      458   01 0005B    0F0000AE              XPSD,0   INT5B             RTC4
      459   01 0005C    0F8000B2              XPSD,8   INT5C             I/O INTERRUPT
      460   01 0005D    0F0000B6              XPSD,0   INT5D             CONTROLL PANEL
      461   01 0005E    00000000 A            DATA     0
      462   01 0005F    00000000 A            DATA     0
      463   01 00060    00000000 A            DATA      0
      464   01 00061    00000000 A            DATA     0,0,0,0,0
            01 00062    00000000 A
            01 00063    00000000 A
            01 00064    00000000 A
            01 00065    00000000 A
      465   01 00066    0F8000BA              XPSD,8   INT66             HF 0 0 INTERRUPT
      466   01 00067    0F8000BE              XPSD,8   INT67             HF 1 0 INTERRUPT
      467   01 00068    0F8000C2              XPSD,8   INT68             HF 2 0 INTERRUPT
      468   01 00069    0F8000C6              XPSD,8   INT69             HF 3 0 INTERRUPT
      469                            **********************************************************************
      470   01 0006C    00000102 N   TRAP40   PSD      0,40TRAP,7,0      NON ALLOWED OPERATION TRAP
                        07000000
      471   01 00070    00000108 N   TRAP41   PSD      0,41TRAP,7,0      UNIMPLEMENTED INSTRUCTION TRAP
                        07000000
      472   01 00074    0000010D N   TRAP42   PSD      0,42TRAP,7,0      PUSH DOWN STACK LIMIT TRAP
                        07000000
      473   01 00078    00000146 N   TRAP43   PSD      0,43TRAP,7,0      FIXED POINT ARITHMETIC TRAP
                        07000000
      474   01 0007C    0000014B N   TRAP44   PSD      0,44TRAP,7,0      FLOATING POINT ARITHMETIC TRAP
                        07000000
      475   01 00080    00000150 N   TRAP45   PSD      0,45TRAP,7,0      DECIMAL ARITHMETIC TRAP
                        07000000
      476   01 00084    00000157 N   TRAP46   PSD      0,46TRENT,7,0     WATCHDOG TIMER TRAP
                        07000000
      477   01 00088    00000200 N   TRAP48   PSD      0,48TRAP,7,REABIT CAL1
                        07800000
      478   01 0008C    00000217 N   TRAP49   PSD      0,49TRAP,7,0      CAL2
                        07000000
      479   01 00090    0000021C N   TRAP4A   PSD      0,4ATRAP,7,0      CAL3
                        07000000
      480   01 00094    00000221 N   TRAP4B   PSD      0,4BTRAP,7,0      CAL4
                        07000000
      481   01 00098    00000230 N   TRAP4C   PSD      0,4CTRAP,7,0      MEMORY FAULT TRAP
                        07000000
      482   01 0009C    00000280 N   TRAP4D   PSD      0,4DTRAP,7,0      INSTRUCTION EXCEPTION TRAP
                        07000000
      483   01 000A0    00000286 N   INT50    PSD      0,50INT,7,0       POWER ON INTERRUPT
                        07000000
      484   01 000A4    0000029A N   INT51    PSD      0,51INT,7,0       POWER OFF INTERRUPT
                        07000000
      485   01 000A8    000002C2 N   INT56    PSD      0,56INT,7,0        / 9 PROCESSOR FAULT
                        07000000
      486   01 000AC    000002FD N   INT57    PSD      0,57INT,7,REABIT    SIGMA 9 MEMORY FAULT INTERRUPT
                        07800000
      487   01 000B0    00000382 N   INT5B    PSD      0,5BINT,7,0       COUNTER FOUR EQU. ZERO
                        07000000
      488   01 000B4    000003A7 N   INT5C    PSD      0,AIO5C,7,X'10'+REABIT I/O INTERRUPT
                        07800010
      489   01 000B8    00000808 N   INT5D    PSD      0,5DINT,7,REABIT  CONSOLE INTERRUPT
                        07800000
      490   01 000BC    00000436 N   INT66    PSD      0,66INT,7,REABIT        HF 0 0 FAULT INTERRUPT
                        07800000
      491   01 000C0    0000044E N   INT67    PSD      0,67INT,7,REABIT        HF 1 0 FAULT INTERRUPT
                        07800000
      492   01 000C4    00000465 N   INT68    PSD      0,68INT,7,REABIT  HF 2 0 FAULT INTERRUPT
                        07800000
      493   01 000C8    0000047C N   INT69    PSD      0,69INT,7,REABIT  HF 3 0 FAULT INTERRUPT
                        07800000
      494   01 000CC    00000995 N   COREPSD  PSD      0,COR1,7,REABIT
                        07800000
      495   01 000D0    0000099E N   COREOK   PSD      0,COR2,7,REABIT
                        07800000
1 C00   20:35 JUN 20,'83    RESTART LOGIC                                                         PAGE    7
A     497                            *        RESTART
      498                            *        RE-INITIALIZES A BUNCH OF FLAGS AFTER A RESTART.
      499                            *
      500   01 000D2    6AF002A3     RESTART  BAL,15   HIOPOLL           STAOP THE I/O
      501   01 000D3    6AF0144A              BAL,15   RESTCDW           RESTORE ORIGIONAL CDWS
      502   01 000D4    6AF01749              BAL,15   STRTHF            RESTART THE HF'S
      503   01 000D5    22000000 A            LI,0     0
      504   01 000D6    2F000000 A            LRP      0                 SET REGISTER POINTER TO ZERO
      505   01 000D7    22000000 A            LI,0     0
      506   01 000D8    35000FA2              STW,0    CPUBUF
      507   01 000D9    350007C6              STW,0    SCATFLAG
      508   01 000DA    35000011 A            STW,0    X'11'             CLEAR OUT HF LOCATION
      509   01 000DB    321007D8              LW,1     IDLESTOP          WAIT INSTRUCTION
      510   01 000DC    35100100              STW,1    IDLEWAIT          INTO IDLE LOOP
      511   01 000DD    1220078A              LD,2     SAVERDW           GET DOUBLE WORD
      512   01 000DE    61200000 A            MBS,2    0                 MOVE THE PSD STACK
      513   01 000DF    22400288 A            LI,4     ((STACKSZ*16)+2)**2  RSTACK SIZE
      514   01 000E0    75400003 A   SAVERS   STB,4    3                 PUT IN COUNT
      515   01 000E1    214000FF A            CI,4     255               MORE THAT CAN HANDLE?
      516   01 000E2    691000E8              BL       LASTSAVE          B,NO
      517   01 000E3    225000FF A            LI,5     255               USE MAX
      518   01 000E4    75500003 A            STB,5    3                 THIS TIME USE MAX
      519   01 000E5    204FFF01 A            AI,4     -255              SUBTRACT MAX
      520   01 000E6    61200000 A            MBS,2    0                 MOVE IT
      521   01 000E7    680000E0              B        SAVERS
      522   01 000E8    61200000 A   LASTSAVE MBS,2    0                 MOVE EM
      523   01 000E9    32001991              LW,0     HCR               HALT INDICATOR
      524   01 000EA    35001990              STW,0    HRCR              INTO MESSAGE
      525   01 000EB    02200000 A            LCI      0                 SAVE THE PSD STACK
      526   01 000EC    2A000604              LM,0     PSDSTACK          ON RESTART
      527   01 000ED    2B000136              STM,0    RSAVE             FOR CRASH ANALYSIS.
      528   01 000EE    2220061B              LI,2     RSTACK+1
      529   01 000EF    32300805              LW,3     RSTAKW            RESET THE REGISTER
      530   01 000F0    1520061A              STD,2    RSTACK            STACK DOUBLEWORD
      531   01 000F1    22200605              LI,2     PSDSTACK+1
      532   01 000F2    32300806              LW,3     PSTAKW            RESET THE PSD
      533   01 000F3    15200604              STD,2    PSDSTACK          STACK DOUBLE WORD
      534   01 000F4    222001ED              LI,2     46CCSTAK+1        RESET THE 46
      535   01 000F5    32300807              LW,3     CSTAKW            TRAP PUSH STACK
1 C00   20:35 JUN 20,'83    INTERRUPT HANDLERS                                                    PAGE    8
A     537   01 000F6    152001EC              STD,2    46CCSTAK
      538   01 000F7    22203C70 A   WORLD    LI,2     X'3C70'           START THE WHOLE
      539   01 000F8    6D201200 A            WD,2     X'1200'           WORLD
      540   01 000F9    222003C0 A            LI,2     X'03C0'           INCLUDING HF INTERRUPTS
      541   01 000FA    6D201202 A            WD,2     X'1202'           LOCATIONS 66 AND 67 (HEX)
      542   01 000FB    320007B2              LW,0     TICKER
      543   01 000FC    350007B1              STW,0    COUNT4            START COUNTER
      544   01 000FD    6AE00729              BAL,14   CURTIME           SET UP TIME MESSAGE
      545   01 000FE    6D000047 A   IDLE     WD,0     X'47'             SET REABIT
      546   01 000FF    6D000027 A            ALLOW                      TURN ON INTERRUPTS
      547   01 00100    680000FE     IDLEWAIT B        IDLE              IDLE BRANCH INSTRUCTION
      548   01 00101    680000FE              B         IDLE
1 C00   20:35 JUN 20,'83    TRAP HANDLERS                                                         PAGE    9
A     550                            *
      551                            *
      552   01 00102    0F0005E0     40TRAP   XPSD,0   PUSHS
      553   01 00103    0200006A              NOP      TRAP40
      554   01 00104    74000002 A            STCF     2                 SAVE CCS FOR TRAP MESSAGE
      555   01 00105    6AF00758              BAL,15   TRAPS
      556   01 00106    2220F4F0 A            LI,2     C'40'
      557   01 00107    0E800298              LPSD,8   CRASHPSD          GET OUT
      558                            *
      559                            *
      560   01 00108    0F0005E0     41TRAP   XPSD,0   PUSHS
      561   01 00109    0200006E              NOP      TRAP41
      562   01 0010A    6AF00758              BAL,15   TRAPS
      563   01 0010B    2220F4F1 A            LI,2     C'41'
      564   01 0010C    0E800298              LPSD,8   CRASHPSD          GET OUT
      565                            *
      566                            *
      567   01 0010D    2B000136     42TRAP   STM,0    RSAVE
      568   01 0010E    12200072              LD,2     TRAP42
      569   01 0010F    6AF00758              BAL,15   TRAPS             GO GET GUY THAT DID IT
      570   01 00110    68000111              B        %+1               USED AS RETURN FROM TRAPS
      571   01 00111    2220F4F2 A            LI,2     C'42'
      572   01 00112    552018FF              STH,2    TRAPHD+1          PUT 42 IN MESSAGE
      573   01 00113    321007D1              LW,1     TTYADD            GET THE TTY ADDRESS
      574   01 00114    6AF00709              BAL,15   IOPBUSY           SEE IF IT IS AVAILABLE
      575   01 00115    224063F8              LI,4     BA(TRAPHD)        COMMON HEADING MESSAGE
      576   01 00116    6AF00127              BAL,15   TYPEIT            DO IT
      577   01 00117    2240641C              LI,4     BA(TRAPMES)       PSD ETC,
      578   01 00118    6AF00127              BAL,15   TYPEIT            DO IT
      579   01 00119    32F00135              LW,15    BALINS            ET THAT BAL INSTRUCRION
      580   01 0011A    46F00A29              XW,15    TYPERI            PUT IT INTO DUMP ROUTINE
      581   01 0011B    35F00134              STW,15   INSSAVE           SAVE SAVE IT
      582   01 0011C    22200000 A            LI,2     0
      583   01 0011D    35200A6E              STW,2    DUFLAG
      584   01 0011E    22200136              LI,2     RSAVE
      585   01 0011F    2210000F A            LI,1     15                COUNT OF REGS
      586   01 00120    6AF00A06              BAL,15   DILOOP1           DUMP REGS
      587   01 00121    32F00134              LW,15    INSSAVE           PUT THAT
      588   01 00122    35F00A29              STW,15   TYPERI            INSTRUCTION BACK
      589   01 00123    22406D18              LI,4     BA(CR)            CARRIAGE RETURN
      590   01 00124    6AF00127              BAL,15   TYPEIT            DO IT
      591   01 00125    0E800298              LPSD,8   CRASHPSD          GET OUT
      592   01 00126    22405FB8     TYPETI   LI,4     BA(DISPB)         FOR TYPING REGISTERS
      593   01 00127    72580000 A   TYPEIT   LB,5     0,4               ET BYTE COUNT
      594   01 00128    20400001 A            AI,4     1                 GET PAST THE BYTE COUNT
      595   01 00129    22C00001 A            LI,12    1                 RITE
      596   01 0012A    75C00004 A            STB,12   4                 ORDER
      597   01 0012B    15400132              STD,4    TYPECMD
      598   01 0012C    CF0007D1              HIO,0    *TTYADD           STOP IT
      599   01 0012D    22000099              LI,0     DA(TYPECMD)
      600   01 0012E    CC0007D1              SIO,0    *TTYADD          START IT
      601   01 0012F    CD0007D1              TIO,0    *TTYADD          TEST IT
      602   01 00130    E8C0000F A            BCR,12   *15              EXIT WHEN DONE
      603   01 00131    6800012F              B        %-2              LOOP
      604                                     BOUND    8
      605   01 00132                 TYPECMD  RES      2
      606   01 00134                 INSSAVE  RES      1
      607   01 00135    6AF00126     BALINS   BAL,15   TYPETI            BAL INSTRUCTION FOR TYPEING
      608         01 00136           RSAVE    EQU      %
      609   01 00136                          RES      16                REGISTER SAVE AREA FOR 42 TRAPS
      610                            *
      611   01 00146    0F0005E0     43TRAP   XPSD,0   PUSHS             SAVE ENVIRONMENT
      612   01 00147    02000076              NOP      TRAP43
      613   01 00148    6AF00758              BAL,15   TRAPS             REPORT IT
      614   01 00149    2220F4F3 A            LI,2     C'43'             TRAP NUMBER
      615   01 0014A    0E800298              LPSD,8   CRASHPSD          GET OUT
      616                            **
      617                            *
      618   01 0014B    0F0005E0     44TRAP     XPSD,0   PUSHS
      619   01 0014C    0200007A              NOP      TRAP44
      620   01 0014D    6AF00758              BAL,15   TRAPS
      621   01 0014E    2220F4F4 A            LI,2     C'44'
      622   01 0014F    0E800298              LPSD,8   CRASHPSD          GET OUT
      623                            *
      624                            *
      625   01 00150    0F0005E0     45TRAP   XPSD,0   PUSHS             SAVE REGS
      626   01 00151    0200007E              NOP      TRAP45
      627   01 00152    6AF00758              BAL,15   TRAPS             TRAP MSG.
      628   01 00153    2220F4F5 A            LI,2     C'45'
      629   01 00154    0E800298              LPSD,8   CRASHPSD          GET OUT
      630                            *
      631   01 00155                 SAVE7    RES      0
      632   01 00155                 SAVE6    RES      0
      633   01 00155                 SAVE1    RES      1
      634   01 00156                 SAVE3    RES      1
      635         00000046           WDTL     EQU      X'46'             WATCHDOG TIMER TRAP LOCATION
      636                            *
      637   01 00157    68800159     46TRENT  BCR,8    %+2               B,REAL TRAP
      638   01 00158    0E100082              LPSD,1   TRAP46            GET OUT AS FAST AS POSSIBLE
      639   01 00159    35100155              STW,1    SAVE1             SAVE REG 1
      640   01 0015A    74000001 A            STCF     1                 SAVE THE CCS
      641   01 0015B    091001EC              PSW,1    46CCSTAK          PUSH EM INTO THE STACK
      642   01 0015C    32100155              LW,1     SAVE1             RESTORE REG 1 FOR THE PUSH
      643   01 0015D    0F0005E0     46PUSH   XPSD,0   PUSHS             GO SAVE ENVIRONMENT
      644   01 0015E    02000082     46LAB    NOP      TRAP46
      645   01 0015F    B20001EC              LW,0     *46CCSTAK         GET CCS
      646   01 00160    74000002 A            STCF     2                 ANMD PUT EM INTO TRAP MESSAGE
      647   01 00161    6AF00758     46TRAP   BAL,15   TRAPS             GO BUILD ERROR MESSAGE
      648   01 00162    68000163              B        %+1               USED AS RETURN FROM TRAPS
      649   01 00163    22000000 A            LI,0     0                 ZEROS
      650   01 00164    350001FE              STW,0    46COUNT           INTO COUNTER
      651   01 00165    089001EC              PLW,9    46CCSTAK          REGET THE CCS
      652   01 00166    359001FF              STW,9    46CCS             PUT EM THERE FOR NOW
      653   01 00167    703001FF              LCF      46CCS             GET TRAP CCS
      654   01 00168    6980018E              BCS,8    T462              NOT A REAL TRAP
      655   01 00169    6910017B              BCS,1    46GOON            DIO BUS TRAP
      656   01 0016A                 PHXCHECK RES      0
      657   01 0016A    223FFFE4 A            LI,3     -28               MAX IOP'S
      658   01 0016B    22700000 A            LI,7     0                 WHICH IOP?
      659   01 0016C    35700155     PHZ1     STW,7    SAVE7             SAVE
      660   01 0016D    35300156              STW,3    SAVE3             SAVE FOR A SECOND
      661   01 0016E    33060F3E              MTW,0    IOPTABLA+28,3     NEXT ONE PLEASE
      662   01 0016F    68300177              BEZ      NEXTIOP           ALL GONE
      663   01 00170    6C8E2008 A            RD,8     X'2008',7         PHI?
      664   01 00171    4B8007FF              AND,8    H8                JUST CHECKING
      665   01 00172    69300177              BNEZ     NEXTIOP           HE'S OK
      666   01 00173    6AF00196              BAL,15   IOPRESET          BAD BOY
      667   01 00174    6AF001CD              BAL,15   IOPSTAT           TELL EVERYONE ABOUT IT
      668   01 00175    32700155              LW,7     SAVE7             REGET THE REGISTER
      669   01 00176    32300156              LW,3     SAVE3             REGET IT
      670   01 00177    20300001 A   NEXTIOP  AI,3     1                 GET NEXT ENTRY
      671   01 00178    20700010 A            AI,7     X'10'             LET'S LOOK AT THE NEXT ONE
      672   01 00179    217001C0 A            CI,7     X'1C0'            THAT'S ENOUGH
      673   01 0017A    6910016C              BL       PHZ1              ONCE MORE
      674   01 0017B    6A9001DD     46GOON   BAL,9    TURNOFFPDF        RESET THE PDF LIGHT
      675   01 0017C    6C000000 A            RD,0     0                 READ SSW
      676   01 0017D    6910018E              BCS,1    T462              BYPASS MESSAGES, GO RETRY INSTRUCTION
      677   01 0017E    2220F4F6 A            LI,2     C'46'
      678   01 0017F    552018FF              STH,2    TRAPHD+1
      679   01 00180    04E018FE              MTYPE    TRAPHD
      680   01 00181    04E01907              MTYPE    TRAPMES
      681   01 00182    6AF00226              BAL,15   REGOUT            OUTPUT THE REGISTERS
      682   01 00183    6C000000 A            RD,0     0                 READ SSW
      683   01 00184    6920018E              BCS,2    T462              GO RETRY INSTRUCTION IF SS3 SET
      684   01 00185    04E0191E     T461     MTYPE    TRAP46R           R C OR B
      685   01 00186    22100001 A            LI,1     1
      686   01 00187    04F019E1              MINKEY   ONE               C OR R
      687   01 00188    722219E1              LB,2     ONE,1             GET RESPONCE
      688   01 00189    212000C2 A            CI,2     C'B'              BYPASS?
      689   01 0018A    68300190              BE       T464              B,YES
      690   01 0018B    19200784              CLM,2    RC                RECOVER OR CRASH?
      691   01 0018C    68C0018F              BCR,12   T463              CRASH
      692   01 0018D    69300185              BNE      T461              NOT RECOVER EITHER
      693   01 0018E    0E1005DC     T462     LPSD,1   CLEARPDF          CLEAR PDF FLAG AND EXIT
      694   01 0018F    0E900298     T463     LPSD,9   CRASHPSD          EXIT
      695   01 00190    02200020 A   T464     LCI      2
      696   01 00191    0A200604              PLM,2    PSDSTACK          PULL OUT RETURN
      697   01 00192    20200001 A            AI,2     1                 INCREMENT BY ONE
      698   01 00193    02200020 A            LCI      2
      699   01 00194    0B200604              PSM,2    PSDSTACK          AND PUSH IT BACK
      700   01 00195    0E1005DC              LPSD,1   CLEARPDF          CLEAR PDF FLAG AND EXIT
      701                            *
      702                            *        IOPRESET
      703                            *        SIGMA 9 ROUTINE TO GATHER IOP STATUS WORDS,
      704                            *        ISSUE AN IOP RESET INSTRUCTION.
      705                            *        ENTERED FROM WATCHDOG TIME OUT PROCESSING
      706                            *
      707   01 00196    35F001E0     IOPRESET STW,15   46SAVEF           SAVE F
      708   01 00197    6A9001DD              BAL,9    TURNOFFPDF        RESET PDF FLAG
      709   01 00198    3570078C              STW,7    TEMP              SAVE IT
      710   01 00199    4B7007E8              AND,7    X1E0              CCU MASK
      711   01 0019A    6C8E2000 A            RD,8     X'2000',7         GROUP 0
      712   01 0019B    6C9E2001 A            RD,9     X'2001',7         GROUP 1
      713   01 0019C    6CAE2002 A            RD,10    X'2002',7         GROUP 2
      714   01 0019D    227001F0 A            LI,7     X'1F0'            IOP MASK
      715   01 0019E    4A70078C              LS,7     TEMP              GET IOP NUMBER
      716   01 0019F    6CBE2008 A            RD,11    X'2008',7         GROUP 8
      717   01 001A0    6CCE2009 A            RD,12    X'2009',7         GROUP 9
      718   01 001A1    6CDE200A A            RD,13    X'200A',7         GROUP 10
      719   01 001A2    6CEE200B A            RD,14    X'200B',7         GROUP 11
      720   01 001A3    3270078C              LW,7     TEMP              REGET IOP ADDRESS
      721   01 001A4    25700004 A            SLS,7    4                 MOVE OVER FOR OUTPUT
      722   01 001A5    5240061B              LH,4     RSTACK+1          SPACE COUNT
      723   01 001A6    21400018 A            CI,4     24                SPACE FOR THIS DATA + A CAL?
      724   01 001A7    681001AD              BGE      IOPROK            B,YES
      725   01 001A8    330001FE              MTW,0    46COUNT           HAVE WE STORED ANY YET?
      726   01 001A9    683001B7              BEZ      IOPRNOM           NO,TOO BAD
      727   01 001AA    224FFFF8 A            LI,4     -8                LETS MAKE ROOM
      728   01 001AB    1340061A              MSP,4    RSTACK            WITH A MODIFY INSTRUCTION
      729   01 001AC    680001AE              B        IOPROK+1          DONT BUMP THE COUNT
      730   01 001AD    331001FE     IOPROK   MTW,1    46COUNT           COUNT IT
      731   01 001AE    02200080 A            LCI      8                 AND STORE
      732   01 001AF    0B70061A              PSM,7    RSTACK            ALL EIGHT WORDS
      733   01 001B0    3270078C              LW,7     TEMP              REGET THE ADDRESS
      734   01 001B1    6CBE200C A            RD,11    X'200C',7         GROUP 12
      735   01 001B2    6CCE200D A            RD,12    X'200D',7         GROUP 13
      736   01 001B3    6CDE200E A            RD,13    X'200E',7         GROUP 14
      737   01 001B4    6CEE200F A            RD,14    X'200F',7         GROUP 15
      738   01 001B5    02200040 A            LCI      4                 GOT FOUR WORDS TO STORE
      739   01 001B6    2BB00794              STM,11   TEMP+8            INTO PRINT BUFFER
      740   01 001B7    320001BB     IOPRNOM  LW,0     RSETXPSD          GET READY
      741   01 001B8    46000046 A            XW,0     X'46'             FOR A SECOND WDT
      742   01 001B9    25700004 A            SLS,7    4                 MOVE FOR RIO
      743   01 001BA    4F0E4000 A            HIO,0    X'4000',7         I/O RESET
      744   01 001BB    0F0001E2     RSETXPSD XPSD,0   RESETIO           CONTINUE
      745   01 001BC    35000046 A   RESETDONE  STW,0  X'46'             RESTORE JL
      746   01 001BD    3270078C              LW,7     TEMP              GET FAILING ADDRESS
      747   01 001BE    25700004 A            SLS,7    4                 MOVE IT OVER
      748   01 001BF    4B7007E9              AND,7    X1E00             A IOP ONLY
      749   01 001C0    25700078 A            SLS,7    -8                INDEX VALUE
      750   01 001C1    320E0F62              LW,0     IOPTABLC,7        IS IT OFF LINE?
      751   01 001C2    681001C5              BGEZ     %+3               B,NO
      752   01 001C3    300007FF              AW,0     H8                REMOVE OFF LINE INDICATOR
      753   01 001C4    350E0F62              STW,0    IOPTABLC,7        AND PUT IT BACK
      754   01 001C5    20700001 A            AI,7     1                 B IOP
      755   01 001C6    320E0F62              LW,0     IOPTABLC,7        GET THE ENTRY
      756   01 001C7    681001CA              BGEZ     %+3               B,NOT OFF LINE
      757   01 001C8    300007FF              AW,0     H8                REMOVE OFF LINE
      758   01 001C9    350E0F62              STW,0    IOPTABLC,7        AND PUT IT BACK
      759   01 001CA    3270078C              LW,7     TEMP              REGET THE ADDRESS
      760   01 001CB    0E1001E0              LPSD,1   46SAVEF           RESET PDF AND RETURN
      761   01 001CC    0F0001E6     MY46TRP  XPSD,0   NPHZI
      762                            *
      763                            *        IOPSTAT
      764                            *        SIGMA 9 ROUTINE TO REPORT IOP STATUS WORDS
      765                            *        GATHERED BY IOPRESET ROUTINE.
      766                            *
      767   01 001CD    35F001E0     IOPSTAT  STW,15   46SAVEF           SAVE F
      768   01 001CE    330001FE              MTW,0    46COUNT           DO WE HAVE ANY TO PRINT?
      769   01 001CF    E820000F A            BLEZ     *15               B,NO
      770   01 001D0    04E01911              MTYPE    IORMSG            TYPE HEADING
      771   01 001D1    33F001FE     IOPSTATL MTW,-1   46COUNT           DO WE HAVE ANY TO PRINT?
      772   01 001D2    E91001E0              BLZ      *46SAVEF          B,NO
      773   01 001D3    02200080 A            LCI      8
      774   01 001D4    0A00061A              PLM,0    RSTACK            OUT OF THE STACK
      775   01 001D5    02200080 A            LCI      8
      776   01 001D6    2B00078C              STM,0    TEMP              INTO TEMPORARY STOREAGE
      777   01 001D7    22200000 A            LI,2     0                 CLEAR
      778   01 001D8    35200A6E              STW,2    DUFLAG            FOR A TYPE
      779   01 001D9    2220078C              LI,2     TEMP              ADDRESS FROM WHERE TO TYPE
      780   01 001DA    2210000B A            LI,1     11                11 = 12 WORDS
      781   01 001DB    6AF00A06              BAL,15   DILOOP1           GO TYPE EM
      782   01 001DC    680001D1              B        IOPSTATL          LOOK FOR MORE TO PRINT
      783                            *
      784                            *
      785         01 001DD           TURNOFFPDF EQU    %
      786   01 001DD    359001EA              STW,9    TURNOFFDW         SAVE RETURN
      787   01 001DE    0E1001EA              LPSD,1   TURNOFFDW         AND RETURN MINUS PDF
      788                            *
      789                            *
      790                                     BOUND    8
      791   01 001E0                 46SAVEF  RES      1
      792   01 001E1    07000000 A            DATA     X'07000000'
      793   01 001E4    000001BC N   RESETIO  PSD      0,RESETDONE,7,0
                        07000000
      794   01 001E8    0000017B N   NPHZI    PSD      0,46GOON,7,0
                        07000000
      795                                     BOUND    8
      796   01 001EA    00000000 A   TURNOFFDW DATA    0,X'7000000'
            01 001EB    07000000 A
      797   01 001EC    000001ED     46CCSTAK DATA     %+1,STACKSZ**16
            01 001ED    000A0000 A
      798   01 001EE                          RES      16                CONDITIONCODE PUSH STACK
      799                            *
      800   01 001FE    00000000 A   46COUNT  DATA     0                 COUNT OF RESETS DONE ON A SIGMA 9
      801                            *
      802   01 001FF                 46CCS    RES      1                 TRAP 46 CONDITION CODES
      803                            *
      804                            *  TRAP48
      805                            * HANDELS THE CAL1
      806                            * HANDELS THE CAL1ENTERED WITH PSD IN R2-3
      807                            *
      808                            *
      809   01 00200    0F0005E0     48TRAP   XPSD,0   PUSHS             STUFF RETURN
      810   01 00201    02000086              NOP      TRAP48
      811   01 00202    B2400002 A            LW,4     *2                LOAD CALL INST
      812   01 00203    2540020C A            SCS,4    12                PUR R IN RIGHT BYTE
      813   01 00204    4B4007E2              AND,4    XF
      814   01 00205    68080206              B        CAL1XFR,4         GO TO RTE GUY
      815   01 00206    68000216     CAL1XFR  B        EXIT              0
      816   01 00207    68000216              B        EXIT              1
      817   01 00208    68000216              B        EXIT              2
      818   01 00209    68000216              B        EXIT              3
      819   01 0020A    68000216              B        EXIT              4
      820   01 0020B    68000216              B        EXIT              5
      821   01 0020C    68000216              B        EXIT              6
      822   01 0020D    68000216              B        EXIT              7
      823   01 0020E    68000216              B        EXIT              8
      824   01 0020F    68000216              B        EXIT              9
      825   01 00210    68000216              B        EXIT              10
      826   01 00211    680006F4              B        DTYPE             11 DIRECT TTY OUTPUT FROM CDW
      827   01 00212    68000703              B        DPRINT            12 DIRECT PRINTER OUTPUT FROM CDW
      828   01 00213    680006ED              B        MPRINT            13  MPRINT LP OUTPUT NO INTERRUPTS
      829   01 00214    680006BC              B        MTYPE             14 MTYPE, OUTPUT NO INTERRUPTS
      830   01 00215    680006D0              B        MINKEY            15 MINKEY, INPUT WITH NO INTERRUPTS
      831                            *
      832                            *
      833   01 00216    0F0005F6     EXIT     XPSD,0   PULLS             GET OUT
      834                            *
      835   01 00217    0F0005E0     49TRAP   XPSD,0   PUSHS             SAVE ENVIRONMENT
      836   01 00218    0200008A              NOP      TRAP49
      837   01 00219    6AF00758              BAL,15   TRAPS             REPORT IT
      838   01 0021A    2220F4F9 A            LI,2     C'49'             TRAP NUMBER
      839   01 0021B    0E800298              LPSD,8   CRASHPSD          GET OUT
      840                            *
      841                            *
      842   01 0021C    0F0005E0     4ATRAP   XPSD,0   PUSHS
      843   01 0021D    0200008E              NOP      TRAP4A
      844   01 0021E    6AF00758              BAL,15   TRAPS
      845   01 0021F    2220F4C1 A            LI,2     C'4A'
      846   01 00220    0E800298              LPSD,8   CRASHPSD          GET OUT
      847                            *
      848                            *
      849   01 00221    0F0005E0     4BTRAP   XPSD,0   PUSHS
      850   01 00222    02000092              NOP      TRAP4B
      851   01 00223    6AF00758              BAL,15   TRAPS
      852   01 00224    2220F4C2 A            LI,2     C'4B'
      853   01 00225    0E800298              LPSD,8   CRASHPSD          GET OUT
      854                            *
      855                            *
      856   01 00226    35F0022F     REGOUT   STW,15   REGOUTX           SAVE RETURN
      857   01 00227    22200000 A            LI,2     0                 ZERO INTO DUFLAG = MTYPE
      858   01 00228    35200A6E              STW,2    DUFLAG            TYPE FLAG
      859   01 00229    3220061A              LW,2     RSTACK            COMPUTE
      860   01 0022A    202FFFF1 A            AI,2     -15                REGISTER SAVE LOCATION
      861   01 0022B    2210000F A            LI,1     15                COUNT
      862   01 0022C    6AF00A06              BAL,15   DILOOP1           TYPE EM OUT
      863   01 0022D    04E01B46              MTYPE    CR                RETURN THAT OLD CARRIAGE
      864   01 0022E    E800022F              B        *REGOUTX          RETURN
      865   01 0022F                 REGOUTX  RES      1
      866                            *
      867                            *        MEMORY FAULT (9)
      868                            **
      869   01 00230    74000274     4CTRAP   STCF     TRAP4CCCS         SAVE THE TRAP CONDITION CODES
      870   01 00231    0F0005E0              XPSD,0   PUSHS
      871   01 00232    02000096              NOP      TRAP4C
      872   01 00233    70300274              LCF      TRAP4CCCS         RE-GET TRAP CONDITION CODES
      873   01 00234    6940027A              BCS,4    4CMAP             CC2 = MAP PARITY ERROR
      874   01 00235    6920027C              BCS,2    4CBUS             CC3 = CPU DETECTED BUS CHECK FAULT
      875   01 00236    6AF00239              BAL,15   T4CA              POLL MEMORIES
      876   01 00237    04E01B46              MTYPE    CR                RETURN THE OLD CARRIAGE
      877   01 00238    0F0005F6              XPSD,0   PULLS             EXIT
      878   01 00239    35F00271     T4CA     STW,15   PSAVE             SAVE RETURN
      879   01 0023A    22000000 A            LI,0     0
      880   01 0023B    35000272              STW,0    TRAP4CR           CLEAR TRAP RECIEVED FLAG
      881   01 0023C    22903FFF A            LI,9     X'3FFF'           LETS SCAN ASSUMING INTERLEAVED
      882   01 0023D    22600000 A   T4CC     LI,6     0
      883   01 0023E    02200080 A            LCI      8
      884   01 0023F    AD600009 A            LMS,6    *9                GET MEM STSAT
      885   01 00240    31600804              CW,6     HFFF8             ERROR BITS ON?
      886   01 00241    69400247              BCS,4    T4CB
      887   01 00242    20903FFF A            AI,9     X'3FFF'           NEXT LOGICAL ADDRESS
      888   01 00243    319007CE              CW,9     MSIZE             LEGAL CORE ADDR ?
      889   01 00244    6910023D              BCS,1    T4CC              BRANCH IF YES
      890   01 00245    22600000 A            LI,6     0                 DIDNT FIND ANYTHING
      891   01 00246    6800024D              B        T4CD
      892   01 00247    02200090 A   T4CB     LCI      9
      893   01 00248    AD700009 A            LMS,7    *9
      894   01 00249    022000E0 A            LCI      14
      895   01 0024A    AD800009 A            LMS,8    *9                STATUS WORDE
      896   01 0024B    35800275              STW,8    LCSAVE            SAVE ADDRESS FOR TEMP P.E.
      897   01 0024C    35600277              STW,6    EXPMEM            SAVE STATUS FOR EXPLANATION
      898   01 0024D    32100008 A   T4CD     LW,1     8
      899   01 0024E    72200007 A            LB,2     7
      900   01 0024F    2520007A A            SLS,2    -6
      901   01 00250    6830025E              BEZ      NOINTLV           B,OK
      902   01 00251    22300001 A            LI,3     1                 ASSUME 2 WAY
      903   01 00252    220FBFFF A            LI,0     X'FBFFF'          ASSUME 2 WAY
      904   01 00253    21200002 A            CI,2     2                 4 WAY?
      905   01 00254    68400257              BAZ      2WAY              B,NOPE
      906   01 00255    220F3FFF A            LI,0     X'F3FFF'          4 WAY MASK
      907   01 00256    22300003 A            LI,3     3                 4 WAY MASK
      908   01 00257    4A300001 A   2WAY     LS,3     1                 GET TRANSFORMED BITS
      909   01 00258    21200002 A            CI,2     2                 4WAY?
      910   01 00259    6840025B              BAZ      %+2               B,NO
      911   01 0025A    72360276              LB,3     BITS,3            GET THE REAL BITS
      912   01 0025B    2530000E A            SLS,3    14                POSITION EM
      913   01 0025C    4B100000 A            AND,1    0                 REMOVE OLD BITS
      914   01 0025D    49100003 A            OR,1     3                 INSERT NEW BITS
      915   01 0025E    02200030 A   NOINTLV  LCI      3                 THREE WORDS
      916   01 0025F    2B60078C              STM,6    TEMP              INTO TEMP BUFFER
      917   01 00260    21600000 A            CI,6     0                 NO STATUS?
      918   01 00261    E8300271              BE       *PSAVE            NOPE,EXIT
      919   01 00262    22706428              LI,7     BA(TRAPMES)+12    BUFFER START ADDRESS
      920   01 00263    22200003 A            LI,2     3                 THREE
      921   01 00264    6AF0076B              BAL,15   XLATTEMP          GO TRANSLATE IT
      922   01 00265    33000272              MTW,0    TRAP4CR           HEADING PRINTED YET?
      923   01 00266    69300268              BNEZ     %+2               YES
      924   01 00267    04E01926              MTYPE    M9PAR
      925   01 00268    04E01907              MTYPE    TRAPMES
      926   01 00269    33100272              MTW,1    TRAP4CR           SET TRAP RECIECED FLAG
      927   01 0026A    35900273              STW,9    TRAPSAV           SAVE R9 NEED FOR
      928   01 0026B    6A9001DD              BAL,9    TURNOFFPDF        REOUTINE TO TURN PDF OFF
      929   01 0026C    32900273              LW,9     TRAPSAV           REGET IT AND CONTINUE
      930   01 0026D    20903FFF A   T4CF     AI,9     X'3FFF'           NEXT LOGICAL ADDRESS
      931   01 0026E    319007CE              CW,9     MSIZE             LEGAL CORE ADDRESS?
      932   01 0026F    6910023D              BL       T4CC              YES KEEP GOING
      933   01 00270    E8000271              B        *PSAVE            GO BACK
      934   01 00271                 PSAVE    RES      1
      935   01 00272    00000000 A   TRAP4CR  DATA     0                 4C TRAP FLAG
      936   01 00273                 TRAPSAV  RES      1
      937   01 00274    00000000 A   TRAP4CCCS DATA    0
      938   01 00275    00000000 A   LCSAVE   DATA     0
      939   01 00276    00020103 A   BITS     DATA     X'00020103'
      940   01 00277                 EXPMEM   RES      3
      941                            *
      942         07800000           NOINT    EQU      X'07800000'       REA AND NO INT
      943                            *
      944   01 0027A    04E01934     4CMAP    MTYPE    MAPP              REPORT ERROR
      945   01 0027B    0E900298              LPSD,9   CRASHPSD          GET OUT
      946                            *
      947   01 0027C    04E01939     4CBUS    MTYPE    BUSCK             REPORT BUS CHECK FAULT
      948   01 0027D    6AF00758              BAL,15   TRAPS             OUTPUT STATUS
      949   01 0027E    2220F4C3 A            LI,2     C'4C'             TRAP STATUS
      950   01 0027F    0E900298              LPSD,9   CRASHPSD          GET OUT
      951                            *
      952                            *
      953   01 00280    0F0005E0     4DTRAP   XPSD,0   PUSHS
      954   01 00281    0200009A              NOP      TRAP4D
      955   01 00282    74000002 A            STCF     2                 SAVE CCS FOR TRAP MESSAGE
      956   01 00283    6AF00758              BAL,15   TRAPS
      957   01 00284    2220F4C4 A            LI,2     C'4D'
      958   01 00285    0E900298              LPSD,9   CRASHPSD          RESET PDF AND RESTART
      959                            *
      960   01 00286    22400000 A   50INT    LI,4     0
      961   01 00287    464000A2              XW,4     INT51             WAS THERE A POWER OFF INTERRUPT?
      962   01 00288    33000296              MTW,0    POWONP            ARE WE PROCECCING A POWER ON NOW?
      963   01 00289    6930028E              BNEZ     POFFOK            B,YES
      964   01 0028A    33000004 A            MTW,0    4                 WAS THERE ONE?
      965   01 0028B    6930028E              BNEZ     POFFOK            B,YES
      966   01 0028C    04E01947              MTYPE    NOPOFM            SAY THE BAD NEWS
      967   01 0028D    0EB00298              LPSD,11  CRASHPSD          GO DIRECTLY TO CRASH,DONT PASS GO
      968   01 0028E    33100296     POFFOK   MTW,1    POWONP            SET POWER ON PROCESSING FLAG
      969   01 0028F    0EB00290     PONCONT  LPSD,11  POWERON           CLEAR POWER ON INTERRUPT
      970                                     BOUND    8
      971   01 00290    00000292     POWERON  DATA     INIT501,0
            01 00291    00000000 A
      972                                     BOUND    8
      973   01 00292    2221F400 A   INIT501  LI,2     128000
      974   01 00293    64200293              BDR,2    %                 DELAY FOR A WHILE
      975   01 00294    04E01940              MTYPE    POWMES            REPORT POWER ON
      976   01 00295    0E000298              LPSD,0   CRASHPSD          GO STOP
      977   01 00296    00000000 A   POWONP   DATA     0                 POWER ON PROCESSING FLAG
      978                                     BOUND    8
      979                                     BOUND    8
      980   01 00298    000000D2     CRASHPSD DATA     RESTART,NOINT
            01 00299    07800000 A
      981   01 0029A    0F0005E0     51INT    XPSD,0   PUSHS
      982   01 0029B    020000A2              NOP      INT51
      983   01 0029C    2210FFFF A            LI,1     X'FFFF'           STOP
      984   01 0029D    6D101100 A            WD,1     X'1100'              ALL
      985   01 0029E    6D101102 A            WD,1     X'1102'           INTERRUPTS
      986   01 0029F    6AF002A3              BAL,15   HIOPOLL           STOP I/O
      987   01 002A0    2E000005 A            WAIT     5
      988   01 002A1    02000005 A            NOP      5                 WAIT FLAG
      989   01 002A2    680002A0              B        %-2
      990   01 002A3                 HIOPOLL  RES      0
      991   01 002A3    35F00BAE              STW,15   BALRTNT           SAVE COME-FROM
      992   01 002A4    22101B00 A            LI,1     X'1B00'           MAX IOPS DATA MASK
      993   01 002A5    4F024000 A            HIO,0    X'4000',1         DO HIO
      994   01 002A6    201FFF00 A            AI,1     -X'100'           NEXT IOP
      995   01 002A7    681002A5              BGEZ     %-2               LOOP
      996   01 002A8    221FFFE0 A            LI,1     -32               INDEX
      997   01 002A9    320007FE              LW,0     X7FS              MAX TIME COUNT
      998   01 002AA    35020FA2              STW,0    IOPTABLD+32,1     SET EM UP
      999   01 002AB    651002AA              BIR,1    %-1               LOOP
     1000   01 002AC    221FFFFC A            LI,1     -4                TO LOOK AT HFS
     1001   01 002AD    33020F42     HIOPOLL1 MTW,0    HFTABLA+4,1       THIS IS THE ONE
     1002   01 002AE    683002C0              BEZ      HIOPOLL2          B,NO ONE HOME
     1003   01 002AF    32520B8F              LW,5     HADDR+4,1         GET HIS ADDRESS
     1004   01 002B0    35500BB8              STW,5    HFADDR            SAVE HF'S ADDRESS
     1005   01 002B1    ED0A0BA4     HIOPOLL3 WD,0     *HSYSRST,5        ONE EACH PROCESSOR RESET
     1006   01 002B2    22200000 A            LI,2     0                 GRAB A ZERO
     1007   01 002B3    32300E52              LW,3     HCRES             RESERVE CONTROL PANEL
     1008   01 002B4    6AF00E8C              BAL,15   HFWD              GO DO IT
     1009   01 002B5    22600000 A            LI,6     0                 INDEX TO HE ERRORS
     1010   01 002B6    6AD00EB2              BAL,13   HFERS             GO PUBLISH ERRORS
     1011   01 002B7    32300E65              LW,3     HCRUN             RUN SWITCH
     1012   01 002B8    6AF00E8C              BAL,15   HFWD              GO DO IT
     1013   01 002B9    22600009 A            LI,6     9                 INDEX TO HF ERRORS
     1014   01 002BA    6AD00EB2              BAL,13   HFERS             TELL SOMEONE
     1015   01 002BB    32300BA1              LW,3     STRT              THIS SHUD DO IT
     1016   01 002BC    32200BA7              LW,2     HHIO              GET THE HF IN AN IDLE LOOP
     1017   01 002BD    6AF00E8C              BAL,15   HFWD              GODO IT
     1018   01 002BE    2260000A A            LI,6     10                INDEX TO HF ERRORS
     1019   01 002BF    6AD00EB2              BAL,13   HFERS
     1020   01 002C0    651002AD     HIOPOLL2 BIR,1    HIOPOLL1          GET THE REST
     1021   01 002C1    E8000BAE              B        *BALRTNT
     1022                            *
     1023                            *        PROCESSOR FAULT
     1024                            *
     1025   01 002C2    0F0005E0     56INT    XPSD,0   PUSHS
     1026   01 002C3    020000A6              NOP      INT56
     1027   01 002C4    04E0194E              MTYPE    PFAULTM           TYPE PROCESSOR FAULT MSG.
     1028   01 002C5    22600000 A            LI,6     0
     1029   01 002C6    356001FE              STW,6    46COUNT           CLEAR IO RESET COUNTER
     1030   01 002C7    22501A00 A            LI,5     X'1A00'           MAX IOP ADDR
     1031   01 002C8    4F6A8000 A   INT56A   HIO,6    X'8000',5         POLL PROCESSOR
     1032   01 002C9    698002CB              BIOANR   %+2               B,NO ADDR RECOG
     1033   01 002CA    694002CE              BIODO    INT56A1           B,THIS IS THE ONE
     1034   01 002CB    205FFE00 A            AI,5     -X'200'           NEXT IOP DOWN THE LINE
     1035   01 002CC    681002C8              BGEZ     INT56A            GO TRY IT
     1036   01 002CD    680002F7              B        INT56NO           NO PFI OUT THERE
     1037   01 002CE    32600005 A   INT56A1  LW,6     5                 GET IOP FAILING
     1038   01 002CF    2560007C A            SLS,6    -4                AND MOVE FOR DIO
     1039   01 002D0    6C2C2000 A   INT56A2  RD,2     X'2000',6         GO GROUP 0
     1040   01 002D1    6C3C2001 A            RD,3     X'2001',6         GO GROUP 1
     1041   01 002D2    6C4C2002 A            RD,4     X'2002',6         AND GROUP 3
     1042   01 002D3    02200030 A            LCI      3                 STOR 3 WORDS
     1043   01 002D4    2B2002FA              STM,2    INT56SV           HERE
     1044   01 002D5    25600004 A            SLS,6    4                 MAKE FOR IO ADDRESS
     1045   01 002D6    35600004 A            STW,6    4                 MOVE AND KEEP
     1046   01 002D7    223001FF A            LI,3     X'1FF'            MAX IOP ADDRESS
     1047   01 002D8    CD800004 A   INT56A3  TIO,8    *4                ANYONE HOME ?
     1048   01 002D9    698002DD              BIOANR   %+4               B,NOPE
     1049   01 002DA    74000002 A            STCF     2                 SAVE CONDITION CODES
     1050   01 002DB    73000008 A            MTB,0    8                 ANY BCF OR CCF ?
     1051   01 002DC    693002E2              BNEZ     INT56A4           B,YES
     1052   01 002DD    20400001 A            AI,4     1                 BUMP COUNT
     1053   01 002DE    643002D8              BDR,3    INT56A3           GO AGAIN
     1054   01 002DF    22800000 A            LI,8     0
     1055   01 002E0    22900000 A            LI,9     0
     1056   01 002E1    32400006 A            LW,4     6
     1057   01 002E2    6AD00BBA     INT56A4  BAL,13   MESSAGE           GO TELL IT
     1058   01 002E3    04E019D5              MTYPE    IOMES             LIKE THIS
     1059   01 002E4    22701F00 A            LI,7     X'1F00'           MAX ADDRESS
     1060   01 002E5    4B700004 A            AND,7    4                 MAKE IT NICE
     1061   01 002E6    2570007C A            SLS,7    -4                MOVE FOR DIO
     1062   01 002E7    6AF00196              BAL,15   IOPRESET          RESET BAD ONE
     1063   01 002E8    02200030 A            LCI      3
     1064   01 002E9    2A2002FA              LM,2     INT56SV           REGET THE GROUPS
     1065   01 002EA    225FFFF9 A            LI,5     -7                MOVE POINTER
     1066   01 002EB    1350061A              MSP,5    RSTACK            BACK WITH THIS
     1067   01 002EC    02200030 A            LCI      3                 GOTTA MOVE IT
     1068   01 002ED    0B20061A              PSM,2    RSTACK            INTO THE STACK
     1069   01 002EE    22500004 A            LI,5     4                 AND MOVE POINTER
     1070   01 002EF    1350061A              MSP,5    RSTACK            TO WHERE IT WAS
     1071   01 002F0    6AF001CD              BAL,15   IOPSTAT           GO DO IT
     1072   01 002F1    22100800 A   INT56C   LI,1     X'800'            INTERRUPT 56
     1073   01 002F2    6D101200 A            WD,1     X'1200'           REARM AND ENABLE
     1074   01 002F3    6C000000 A            RD,0     0                 READ SENSE SWITCHES
     1075   01 002F4    694002F5              BCS,4    %+1               B,GO ON
     1076   01 002F5    0F001654              XPSD,0   HELP              GET ADVICE
     1077   01 002F6    0F0005F6              XPSD,0   PULLS             RETURN
     1078   01 002F7    04E01962     INT56NO  MTYPE    NOPFAULT          TELL THE BAD NEWA
     1079   01 002F8    680002F1              B        INT56C            AND CONTINUE
     1080   01 002F9    00000080 A   X80      DATA     X'00000080'
     1081   01 002FA                 INT56SV  RES      3
     1082                            *
     1083                            *        MEMORY FAULT  (9)
     1084                            *
     1085   01 002FD    33000272     57INT    MTW,0    TRAP4CR           TRAP RECIEVED?
     1086   01 002FE    69300302              BNEZ     TRAP4COK          B,WE HAD A TRAP
     1087   01 002FF    0F0005E0              XPSD,0   PUSHS             SAVE THE ENVIRONMENT FOR EXIT
     1088   01 00300    020000AA              NOP      INT57
     1089   01 00301    6AF00239              BAL,15   T4CA              POLL MEMORIES
     1090   01 00302    22000000 A   TRAP4COK LI,0     0
     1091   01 00303    35000272              STW,0    TRAP4CR           CLEAR TRAP FLAG
     1092   01 00304    22500000 A   INT56B   LI,5     0                 STARTING ADDRESS
     1093   01 00305    324007CE              LW,4     MSIZE             COUNT
     1094   01 00306    22B00001 A            LI,11    1                 ONE CORRECTION
     1095   01 00307    6AF0035F              BAL,15   PARITY            SCAN MEMORY
     1096   01 00308    323007C9              LW,3     ADMASK            ADDRESS MASK
     1097   01 00309    4A30078D              LS,3     TEMP+1            GET PARITY ERRROR ADDRESS
     1098   01 0030A    68300345              BEZ      MEXIT1            ZERO ON A SIGMA7 MEANS NO ERROR
     1099   01 0030B    313007CE              CW,3     MSIZE             FALSE ERROR?
     1100   01 0030C    68100345              BGE      MEXIT1            EXIT IF SO
     1101   01 0030D    68000315              B        POLM              OTHERWIZE
     1102   01 0030E    22500000 A   OLDGO    LI,5     0                 STARTING ADDRESS
     1103   01 0030F    324007CE              LW,4     MSIZE             COUNT
     1104   01 00310    22B00001 A            LI,11    1                 CORRECTION COUNT
     1105   01 00311    6AF0035F              BAL,15   PARITY            GO SCAN
     1106   01 00312    3300078C              MTW,0    TEMP              ANY ERRORS?
     1107   01 00313    69300315              BNEZ     POLM              B,YES
     1108   01 00314    04E019A8              MTYPE    NOPEM             SAY NONE
     1109   01 00315    6C000000 A   POLM     RD,0     0                 READ SSW
     1110   01 00316    69100327              BCS,1    PARSW4            GO CLEAR ERRORS
     1111   01 00317    04E01975              MTYPE    MORPE
     1112   01 00318    22100001 A            LI,1     1                 BYTE COUNT OF 1
     1113   01 00319    04F019E1              MINKEY   ONE               Y OR N
     1114   01 0031A    722219E1              LB,2     ONE,1             GET IT
     1115   01 0031B    19200782              CLM,2    YN                YES OR NO
     1116   01 0031C    6830030E              BE       OLDGO             B,YES,MORE SCAN
     1117   01 0031D    69C00315              BCS,12   POLM              NONSENSE
     1118   01 0031E    33F0078C              MTW,-1   TEMP              WERE THERE ERRORS OUTSTANDING?
     1119   01 0031F    6820032D              BLEZ     NOCLEAR           B,NO
     1120   01 00320    04E0197D              MTYPE    CLEARM            ASK FOR INSTRUCTIONS
     1121   01 00321    22100001 A            LI,1     1
     1122   01 00322    04F019E1              MINKEY   ONE               GET RESPONCE
     1123   01 00323    722219E1              LB,2     ONE,1             GET IT
     1124   01 00324    19200782              CLM,2    YN                WHAT WAS IT
     1125   01 00325    68C0032D              BCR,12   NOCLEAR           FORGET IT
     1126   01 00326    69300315              BNE      POLM              TRY AGAIN
     1127   01 00327    22500000 A   PARSW4   LI,5     0                 START ING ADDRESS
     1128   01 00328    324007CE              LW,4     MSIZE             ALL OF MEMORY
     1129   01 00329    32B007CE              LW,11    MSIZE             CLEAR EM ALL
     1130   01 0032A    6AF0035F              BAL,15   PARITY            GO CLEAR IT OUT
     1131   01 0032B    6C000000 A            RD,0     0                 READ SSW
     1132   01 0032C    69100345              BCS,1    MEXIT1            CONTINUE IF SS4 ON
     1133   01 0032D    04E019A1     NOCLEAR  MTYPE    POLLMES
     1134   01 0032E    22100001 A            LI,1     1                 INDEX
     1135   01 0032F    04F019E1              MINKEY   ONE               Y OR N
     1136   01 00330    722219E1              LB,2     ONE,1             GET INPUT
     1137   01 00331    19200782              CLM,2    YN                YES OR NO
     1138   01 00332    68C00335              BCR,12   %+3               NO
     1139   01 00333    69300315              BNE      POLM              NONSENSE
     1140   01 00334    6AF00349              BAL,15   POLMEM            DO POLL
     1141   01 00335    04E01986              MTYPE    EXPMESS           WANNA EXPLAIN ERROR BITS?
     1142   01 00336    22100001 A            LI,1     1
     1143   01 00337    04F019E1              MINKEY   ONE
     1144   01 00338    722219E1              LB,2     ONE,1             GET INPUT
     1145   01 00339    19200782              CLM,2    YN                YES OR NO
     1146   01 0033A    68C0033D              BCR,12   %+3               NOPE
     1147   01 0033B    69300315              BNE      POLM              GARBAGE
     1148   01 0033C    6AF00554              BAL,15   EXPMBIT           GO EXPLAIN THEM
     1149   01 0033D    04E0199A              MTYPE    CONTMES
     1150   01 0033E    22100001 A            LI,1     1
     1151   01 0033F    04F019E1              MINKEY   ONE               R OR C
     1152   01 00340    721219E1              LB,1     ONE,1             GET INPUT
     1153   01 00341    19100784              CLM,1    RC                RECOVER OR CRASH?
     1154   01 00342    68300345              BE       MEXIT1            RECOVER
     1155   01 00343    69C00315              BCS,12   POLM              NOT CRASH EITHER
     1156   01 00344    0E800298              LPSD,8   CRASHPSD          GET OUT
     1157   01 00345    22500400 A   MEXIT1   LI,5     X'400'            PARITY INTERRUPT BIT
     1158   01 00346    6D501200 A            WD,5     X'1200'           START MEM PARITY INIT
     1159   01 00347    04E01B46              MTYPE    CR                RETURN THAT CARRIAGE
     1160   01 00348    0F0005F6              XPSD,0   PULLS
     1161                            *
     1162                            *        I/O POLL FOR MEMORY PARITY
     1163                            *
     1164   01 00349    35F0035D     POLMEM   STW,15   PMIOX             SAVE RETURN
     1165   01 0034A    324007CA              LW,4     IOMASK            MAX DEVICES
     1166   01 0034B    225FFFF1 A            LI,5     -15
     1167   01 0034C    30500004 A            AW,5     4                 MASK
     1168   01 0034D    CD800004 A   PMIO     TIO,8    *4                DO TIO
     1169   01 0034E    68800351              BCR,8    %+3               YES WE HAHE ONE
     1170   01 0034F    6440034D              BDR,4    %-2               DO NOT PASS GO,OR COLLECT %200
     1171   01 00350    E800000F A            B        *15
     1172   01 00351    74000002 A            STCF     2                 SAVE THE CC'S
     1173   01 00352    21400080 A            CI,4     X'80'             MULTI DEVICE CONTROLLER?
     1174   01 00353    68400358              BAZ      %+5               B,NOPE
     1175   01 00354    4540035E              CS,4     ADDSAVE           DID WE HAVE CONT?
     1176   01 00355    69300358              BNE      %+3               B,NOPE
     1177   01 00356    6440034D              BDR,4    PMIO              YEP
     1178   01 00357    E800035D              B        *PMIOX            RETURN,ALL DONE
     1179   01 00358    3540035E              STW,4    ADDSAVE           SAVE LAST DEVICE
     1180   01 00359    6AD00BBA              BAL,13   MESSAGE           BUILD IT
     1181   01 0035A    04E019D5              MTYPE    IOMES             AND PRINT IT
     1182   01 0035B    6440034D              BDR,4    PMIO              GO TO JAIL AND DO MORE TIOS
     1183   01 0035C    E800035D              B        *PMIOX            REYURN
     1184   01 0035D                 PMIOX    RES      1
     1185   01 0035E    00000000 A   ADDSAVE  DATA     0
     1186                            *
     1187                            *   PARITY SEARCH ROUTINE
     1188                            *        ENTERED WITH
     1189                            *                 R4=ADDRESS COUNT +1
     1190                            *                 `5=STARTING ADDRESS
     1191                            *                 R11=COUNT OF LOCALIONS TO BE CORRECTED
     1192                            *        EXITS WITH
     1193                            *                 R6=COUNT AND SOLID FAILURE BIT
     1194                            *        R7=FUALT LITES AND ADDRESS OF FAILURE (FIRST)
     1195                            *        R8=CONTENTS OF FAILING WORD
     1196                            *
     1197   01 0035F    35F0035E     PARITY   STW,15   ADDSAVE           SAVE RETURN
     1198   01 00360    6D000041 A            WD,0     X'41'             TURN ON ALARM
     1199   01 00361    2260B5A4 A            LI,6     46500             DELAY FOR
     1200   01 00362    64600362              BDR,6    %                 I/O RUNDOUWN
     1201   01 00363    22600000 A            LI,6     0
     1202   01 00364    327007CE              LW,7     MSIZE             PRESET FOR NO ERRORS
     1203   01 00365    22800000 A            LI,8     0
     1204   01 00366    02200010 A   PARITY1  LCI      1                 READ AND INHIBIT
     1205   01 00367    2D0A0000 A            LMS,0    0,5               SEARCH FOR ERROR
     1206   01 00368    68C00374              BCR,12   PARITY7           B,NO ERROR
     1207   01 00369    33F0000B A            MTW,-1   11                DOWN THE CORRECTOIN COINT
     1208   01 0036A    6810036C              BGEZ     PARITY4           GO CLEAR ERROR
     1209   01 0036B    68000372              B        PARITY6           GO COUNT IT
     1210   01 0036C    350A0000 A   PARITY4  STW,0    0,5               RESTORE DATA
     1211   01 0036D    02200010 A            LCI      1                 READ AND INHIBIT
     1212   01 0036E    2D8A0000 A            LMS,8    0,5               TEST FOR ERROR
     1213   01 0036F    68C00371              BCR,12   PARITY5           B,NONE
     1214   01 00370    496007FB              OR,6     H4                MARK IT AS A SOLID FAULT
     1215   01 00371    32700005 A   PARITY5  LW,7     5                 GET FAILING ADDRESS
     1216   01 00372    20600001 A   PARITY6  AI,6     1                 BUMP ERROR COUNT
     1217   01 00373    497007D2              OR,7     FAULTS            MERGE IN THE FAULT LITES
     1218   01 00374    20500001 A   PARITY7  AI,5     1                 NEXT ADDRESS
     1219   01 00375    64400366              BDR,4    PARITY1           LOOP
     1220   01 00376    33000008 A            MTW,0    8                 ANY P.E.'S DETECTED ?
     1221   01 00377    69300379              BNEZ     %+2               B,YEP
     1222   01 00378    B2800275              LW,8     *LCSAVE           GET CONTENTS OF ERROR ADDR.
     1223   01 00379    6D000040 A            WD,0     X'40'             TURN OFF ALARM
     1224   01 0037A    02200030 A            LCI      3
     1225   01 0037B    2B60078C              STM,6    TEMP              SAVE DATA WORDS
     1226   01 0037C    04E0196B              MTYPE    PARITYMES         HEADING
     1227   01 0037D    22706428              LI,7     BA(TRAPMES)+12    TOO ADDRESS
     1228   01 0037E    22200003 A            LI,2     3                 3 WORDS
     1229   01 0037F    6AF0076B              BAL,15   XLATTEMP          TRANSLATE TEMP BUFFER
     1230   01 00380    04E01907              MTYPE    TRAPMES           PRINT DATA
     1231   01 00381    E800035E              B        *ADDSAVE          RETURN
     1232                            *
     1233                            *
     1234   01 00382    2B000397     5BINT    STM,0    5BREGS            SAVE REGISTERS
     1235   01 00383    320007B2              LW,0     TICKER            GET COUNT VALUE
     1236   01 00384    660007B3              AWM,0    TIMETICK          ADD TO PRESENT TIME
     1237   01 00385    2270001F A   5BINTI   LI,7     31
     1238   01 00386    330E0F42     5BINTJ   MTW,0    IOPTABLB,7        THIS EN
     1239   01 00387    6830038E              BEZ      5BINTK            B,NO
     1240   01 00388    320007B3              LW,0     TIMETICK          CONTER
     1241   01 00389    310E0F82              CW,0     IOPTABLD,7        TIMED OUT
     1242   01 0038A    6910038E              BL       5BINTK            B,NO
     1243   01 0038B    310E0F82              CW,0     IOPTABLD,7        TIMED OUT
     1244   01 0038C    6910038E              BL       5BINTK            B,NO
     1245   01 0038D    0F001668              XPSD,0   TIMEOUT           BAL,TIMEOUT
     1246   01 0038E    207FFFFF A   5BINTK   AI,7     -1                NEXT ONE
     1247   01 0038F    68100386              BGEZ     5BINTJ            B,YES
     1248   01 00390    320007B2              LW,0     TICKER            TICK VALUE
     1249   01 00391    660007B1              AWM,0    COUNT4            INTO COUNT LOC
     1250   01 00392    69100391              BLZ      %-1               LOOP TILL POSITIVE
     1251   01 00393    02200000 A            LCI      0
     1252   01 00394    2A000397              LM,0     5BREGS            RESTORE REGS
     1253   01 00395    331007B1              MTW,1    COUNT4            GIVE IT ONE MORE FOR GOOD MEASURE
     1254   01 00396    0E3000AE              LPSD,3   INT5B             AND GET OUT
     1255                            *
     1256   01 00397                 5BREGS   RES      16
     1257                            ***************************************************************
     1258                            *                                                             *
     1259                            *        I/O INTERRUPT HANDLING USES REGISTER PAGE 1          *
     1260                            *                                                             *
     1261                            ***************************************************************
     1262   01 003A7    22101000 A   AIO5C    LI,1     X'1000'           TURN OFF
     1263   01 003A8    6D101100 A            WD,1     X'1100'           COUNTER FOUR
     1264   01 003A9    6E200000 A            AIO,2    0                 WHO IS IT
     1265   01 003AA    688003B1              BIOAR    IOINT             THERE REALLY WAS ONE
     1266   01 003AB    331007AD              MTW,1    IOSPUR            COUNT THE EXTRA ONES AND
     1267   01 003AC    6C000000 A            RD,0     0                 SENSE SWITCHES ON ?
     1268   01 003AD    688003E3              BCR,8    EIO               CONTINUE
     1269   01 003AE    6AF014AD              BAL,15   SPURINT           GO CHECK IT OUT
     1270   01 003AF    0F001654              XPSD,0   HELP              AND ASK FOR ADVICE
     1271   01 003B0    680003E3              B        EIO               GET OUT
     1272   01 003B1    35200435     IOINT    STW,2    AIODATA           SAVE AIO STATUS
     1273   01 003B2    CD400002 A            TIO,4    *2                GET STATUS
     1274   01 003B3    69C00401              BCS,12   IOINTQ            OPPS NO AR
     1275   01 003B4                 IOINT1   RES      0
     1276   01 003B4    2150FFFF A            CI,5     X'FFFF'           BC=ZERO?
     1277   01 003B5    684003C9              BAZ      IOINTA            B,OK
     1278   01 003B6    6C000000 A            RD,0     0                 READ SSW
     1279   01 003B7    691003C9              BCS,1    IOINTA            BYPASS ERROR
     1280   01 003B8    3520078C              STW,2    TEMP              SAVE AIO STATUS
     1281   01 003B9    32300004 A            LW,3     4                 CDW
     1282   01 003BA    4B3007C9              AND,3    ADMASK            ADDRESS ONLY
     1283   01 003BB    12660000 A            LD,6     0,3               GET THE CDW
     1284   01 003BC    02200040 A            LCI      4
     1285   01 003BD    2B40078D              STM,4    TEMP+1            INTO TEMP BUFFER
     1286   01 003BE    22706964              LI,7     BA(INTDATA+1)     TO ADDRESS
     1287   01 003BF    22200005 A            LI,2     5                 COUNT
     1288   01 003C0    6AF0076B              BAL,15   XLATTEMP          SPREAD IT OUT
     1289   01 003C1    6AE00729              BAL,14   CURTIME           SET UP TIME MESSAGE
     1290   01 003C2    04E01A73              MTYPE    IOERRM            HEADING
     1291   01 003C3    04E01A58              MTYPE    INTDATA           AND THE TEXT
     1292   01 003C4    0F001654              XPSD,0   HELP              GET HELP
     1293   01 003C5    32700435              LW,7     AIODATA
     1294   01 003C6    4B7007EA              AND,7    X1F00             IOP ADDRRESS ONLY
     1295   01 003C7    25700078 A            SLS,7    -8                IOP NUMBER
     1296   01 003C8    680003E2              B        IOINTB+1          RESTART THAT SAME THING
     1297   01 003C9    32700435     IOINTA   LW,7     AIODATA           GET ADDRESS
     1298   01 003CA    4B7007EA              AND,7    X1F00             ADDRESS ONLY
     1299   01 003CB    25700078 A            SLS,7    -8                MAKE IT A TABLE INDEX
     1300   01 003CC    320007BA              LW,0     PHASE             WHAT PHASE IS IT?
     1301   01 003CD    21000002 A            CI,0     2                 TWO?
     1302   01 003CE    683003F6              BE       IOINTE            B,YES
     1303   01 003CF    21000003 A            CI,0     3                 PHASE 3 ?
     1304   01 003D0    683003E8              BE       IOINTC            B,ITS THREEE
     1305   01 003D1    692003F6              BG       IOINTE            GO START ANOTHER
     1306   01 003D2    328E0F62              LW,8     IOPTABLC,7        GET TASB;LE DATA
     1307   01 003D3    22100001 A            LI,1     1                 INDEX
     1308   01 003D4    72020008 A            LB,0     8,1               GET OPERATION
     1309   01 003D5    21000001 A            CI,0     1                 READ OR WRITE?
     1310   01 003D6    684003D8              BAZ      %+2               WRITE
     1311   01 003D7    6AF00578              BAL,15   CKMEM             GO TEST MEMORY
     1312   01 003D8    330007B4              MTW,0    HOLDFLAG          HOLD MODE?
     1313   01 003D9    693003E1              BNEZ     IOINTB            YES,RESTART IT
     1314   01 003DA    21000003 A            CI,0     3                 LAST OPERATION?
     1315   01 003DB    693003E1              BNE      IOINTB            B,NO
     1316   01 003DC    22000000 A            LI,0     0
     1317   01 003DD    350007B8              STW,0    TRACK             CLEAR TRACK WORD
     1318   01 003DE    320007FE              LW,0     X7FS              SHUT OFF TIMEOUT
     1319   01 003DF    350E0F82              STW,0    IOPTABLD,7        LIKE THAT
     1320   01 003E0    680003E3              B        EIO               AND EXIT
     1321   01 003E1    6AF0040B     IOINTB   BAL,15   GETNEXT           GO SET UP NEXT OPERATION
     1322   01 003E2    0F0016D2              XPSD,0   STARTIOP          START UP THE NEXT OPERATION
     1323                            *
     1324   01 003E3    22103020 A   EIO      LI,1     X'3020'
     1325   01 003E4    6D101200 A            WD,1     X'1200'           TURN ON IO AND COUNTER 4
     1326   01 003E5    22100300 A            LI,1     X'0300'           AND HF'S INTERRUPTS
     1327   01 003E6    6D101202 A            WD,1     X'1202'           THIS IS THE GROUP
     1328   01 003E7    0E8000B2              LPSD,8   INT5C             RETURN TO WHERE FROM
     1329                            *
     1330   01 003E8    328E0F62     IOINTC   LW,8     IOPTABLC,7        GET CONTROL WORD
     1331   01 003E9    22100001 A            LI,1     1
     1332   01 003EA    72020008 A            LB,0     8,1               GET MODE
     1333   01 003EB    21000001 A            CI,0     1                 ODD OR EVEN?
     1334   01 003EC    694003F3              BANZ     IOINTD            B,READ
     1335   01 003ED    321007FE              LW,1     X7FS              MASK
     1336   01 003EE    4A1E0FA3              LS,1     IOPTABLE,7        GET BUFFER ADRESS
     1337   01 003EF    32000007 A            LW,0     7                 GET THE IOP NUMBER
     1338   01 003F0    20000080 A            AI,0     X'80'             ADD A BIT
     1339   01 003F1    F5000001 A            STB,0    *1                MARK THIS BUFFER AS WRITE BUFFER
     1340   01 003F2    680003F6              B        IOINTE            AND GO
     1341   01 003F3    330E0FA3     IOINTD   MTW,0    IOPTABLE,7        TRACK BUFFER?
     1342   01 003F4    681003F6              BGEZ     IOINTE            B,NO
     1343   01 003F5    6AF00578              BAL,15   CKMEM             GO TESAT THE BUFFER
     1344   01 003F6    330007C5     IOINTE   MTW,0    DEFER             DEFER THE NEXT START?
     1345   01 003F7    683003E1              BEZ      IOINTB            B,NO
     1346   01 003F8    320007B3              GETTIME  0                 GET PRESENT TIME
            01 003F9    300007B2
            01 003FA    380007B1
     1347   01 003FB    300007C5              AW,0     DEFER             ADD DELAY VALUE
     1348   01 003FC    350E1004              STW,0    IOPTABLG,7        STORE STARTUP TIME
     1349   01 003FD    320007FE              LW,0     X7FS
     1350   01 003FE    350E0F82              STW,0    IOPTABLD,7        STOP A TIMEOUT FROM HAPPENING
     1351   01 003FF    6AF0040B              BAL,15   GETNEXT           GO SET UP NEXT OPERATION
     1352   01 00400    680003E3              B        EIO               AND GET THE HECK,OUT
     1353                            *
     1354   01 00401                 IOINTQ   RES      0
     1355   01 00401    04E019F3              MTYPE    AIOERR            TELL OF ERROR
     1356   01 00402    32600435              LW,6     AIODATA           GET ADDRESS
     1357   01 00403    22C00008 A            LI,12    8                 THIS MANY
     1358   01 00404    22706804              LI,7     BA(AIOERR2)+16
     1359   01 00405    6AE00773              BAL,14   TXLATE
     1360   01 00406    04E019FD              MTYPE    AIOERR2           TELL HIM
     1361   01 00407    6C000000 A            RD,0     0                 READ SEMSE SWITCHES
     1362   01 00408    694003C9              BCS,4    IOINTA            CONTINUE
     1363   01 00409    0F001654              XPSD,0   HELP
     1364   01 0040A    680003C9              B        IOINTA            WANTS TO GO ON
     1365   01 0040B    35F00434     GETNEXT  STW,15   GETEXIT           SAVE RETURN
     1366   01 0040C    330007B4              MTW,0     HOLDFLAG         ARE WE IN HOLD MODE?
     1367   01 0040D    E930000F A            BNEZ     *15               B,YES
     1368   01 0040E    330007B7              MTW,0    SELECTFL          ARE WE RUNNING A SELECTED SET?
     1369   01 0040F    69300428              BNEZ     NEWBUF            B,YES
     1370   01 00410    328E0F42              LW,8     IOPTABLB,7        GET ADDRESSES
     1371   01 00411    329E0F62              LW,9     IOPTABLC,7        GET FONCTION WORD
     1372   01 00412    22100001 A            LI,1     1
     1373   01 00413    22200002 A            LI,2     2
     1374   01 00414    22300003 A            LI,3     3
     1375   01 00415    72520009 A            LB,5     9,1               GET OPERATION
     1376   01 00416    20500001 A            AI,5     1                 NEXT ONE
     1377   01 00417    21500004 A            CI,5     4                 WRAP?
     1378   01 00418    6910041A              BL       %+2               B,NO
     1379   01 00419    22500000 A            LI,5     0
     1380   01 0041A    75520009 A            STB,5    9,1
     1381   01 0041B    21500000 A            CI,5     0                 DID IT WRAP?
     1382   01 0041C    69300424              BNE      GETDATA           B,NO
     1383   01 0041D    72A40009 A            LB,10    9,2               GET ADDRESS
     1384   01 0041E    20A00001 A            AI,10    1                 PLUS ONE
     1385   01 0041F    22B000FF A            LI,11    X'FF'             MASK
     1386   01 00420    45A00008 A            CS,10    8                 WITHIN RANGE?
     1387   01 00421    68200423              BLE      %+2               B,YES
     1388   01 00422    72A20008 A            LB,10    8,1               GET START
     1389   01 00423    75A40009 A            STB,10   9,2               STORE NEXT ADDRESS
     1390   01 00424    21500001 A   GETDATA  CI,5     1                 NEXT OPERATION ODD OR EVEN?
     1391   01 00425    69400427              BANZ     %+2               ODD
     1392   01 00426    489007E5              EOR,9    XFF               INVERT THE DATA PATTERN
     1393   01 00427    359E0F62              STW,9    IOPTABLC,7        PUT IT INTO THE TABLE
     1394   01 00428    22200002 A   NEWBUF   LI,2     2
     1395   01 00429    312007BA              CW,2     PHASE             PHASE THREE OR FOUR ?
     1396   01 0042A    E8100434              BGE      *GETEXIT          B,NOPE
     1397   01 0042B    325007C9              LW,5     ADMASK            ADDRESS MASK
     1398   01 0042C    22400000 A            LI,4     0
     1399   01 0042D    4A4E0FA3              LS,4     IOPTABLE,7        GETR BUFFER ADDRESS
     1400   01 0042E    69300430              BNEZ     %+2               IS OK, WE HAVE ONE
     1401   01 0042F    324007CE              LW,4     MSIZE
     1402   01 00430    6AF017DE              BAL,15   GETBUF            GO GET ANOUTHER BUFFER
     1403   01 00431    325007C9              LW,5     ADMASK            THAT SAME MASK
     1404   01 00432    474E0FA3              STS,4    IOPTABLE,7        PUT ADDRESS INTO TABLE
     1405   01 00433    E8000434              B        *GETEXIT          AND EXIT
     1406   01 00434                 GETEXIT  RES      1
     1407   01 00435                 AIODATA  RES      1
     1408                            *
     1409                            *        HF 00 FAULT INTERRUPT RECOVERY
     1410                            *
     1411   01 00436                 66INT    RES      0
     1412   01 00436    33000011 A            MTW,0    X'11'             IS THIS A FAULT INT ?
     1413   01 00437    69300512              BNEZ     HAIO5C            B,NO
     1414   01 00438    0F0005E0              XPSD,0   PUSHS             SAVE THE ENVIORMENT
     1415   01 00439    020000BA              NOP      INT66
     1416   01 0043A    22700001 A            LI,7     1                 HF ADDRESS FOR USE
     1417   01 0043B    35700BB8              STW,7    HFADDR            IN RD/WD
     1418   01 0043C    04E01B47              MTYPE    HFFLT0            HF 0 0 FAULT INT
     1419   01 0043D    EC6007DA              RD,6     *RSAR0            GET THE SAR
     1420   01 0043E    35600155              STW,6    SAVE6
     1421   01 0043F    6AF004C9              BAL,15   HSARFLT
     1422   01 00440    32600155              LW,6     SAVE6
     1423   01 00441    21610000 A            CI,6     X'10000'          WDT ?
     1424   01 00442    6940044C              BANZ     66INT1            B,YES
     1425   01 00443    22C00008 A            LI,12    8                 PRINT ALL EIGHT CHARS
     1426   01 00444    22706D3D              LI,7     BA(HFFLT1)+9      PUT IT HERE
     1427   01 00445    6AE00773              BAL,14   TXLATE            DO IT
     1428   01 00446    04E01B4D              MTYPE    HFFLT1            TELL THE BAD NEWS
     1429   01 00447    22700000 A            LI,7     0                 SYSTEM ID FOR THE WD
     1430   01 00448    6AE004A9              BAL,14   HPRFLT            GET THE PSR
     1431   01 00449    32000F7E              LW,0     HFTABLC           GET CONTROL WORD
     1432   01 0044A    4B0007FE              AND,0    X7FS              GET RID OF HI ORDER BIT
     1433   01 0044B    35000F7E              STW,0    HFTABLC           RESTORE WORD
     1434   01 0044C    6AF00493     66INT1   BAL,15   RESTRHF           RESTART THE HF
     1435   01 0044D    0F0005F6              XPSD,0   PULLS             GET OUT
     1436                            *
     1437                            *        HF 10 FAULT INTERRUPT RECOVERY
     1438                            *
     1439   01 0044E                 67INT    RES      0
     1440   01 0044E    33000011 A            MTW,0    X'11'             IS THIS A FAULT INT ?
     1441   01 0044F    69300519              BNEZ     HAIO5C1           B,NO
     1442   01 00450    0F0005E0              XPSD,0   PUSHS             SAVE THE ENVIORMENT
     1443   01 00451    020000BE              NOP      INT67
     1444   01 00452    22700201 A            LI,7     X'201'            HF ADDRESS FOR USE
     1445   01 00453    35700BB8              STW,7    HFADDR            IN RD/WD
     1446   01 00454    04E01B73              MTYPE    HFFLT10           HF 1 0 FAULT INT
     1447   01 00455    EC6007DB              RD,6     *RSAR1            GET THE SAR
     1448   01 00456    35600155              STW,6    SAVE6
     1449   01 00457    6AF004C9              BAL,15   HSARFLT
     1450   01 00458    32600155              LW,6     SAVE6
     1451   01 00459    21610000 A            CI,6     X'10000'          WDT ?
     1452   01 0045A    69400463              BANZ     67INT1            B,YES
     1453   01 0045B    22C00008 A            LI,12    8                 EIGHT CHARS TO DO
     1454   01 0045C    22706D3D              LI,7     BA(HFFLT1)+9      PUT IT HERE
     1455   01 0045D    6AE00773              BAL,14   TXLATE            MAKE IT INTO ENGLISH
     1456   01 0045E    04E01B4D              MTYPE    HFFLT1            DO IT
     1457   01 0045F    6AE004A9              BAL,14   HPRFLT            GET THE PSR
     1458   01 00460    32000F7F              LW,0     HFTABLC+1         GET CONTROL WORD
     1459   01 00461    4B0007FE              AND,0    X7FS              GET RID OF HI ORDER BIT
     1460   01 00462    35000F7F              STW,0    HFTABLC+1         RESTORE WORD
     1461   01 00463    6AF00493     67INT1   BAL,15   RESTRHF           RESTART THE HF
     1462   01 00464    0F0005F6              XPSD,0   PULLS             GET OUT
     1463                            *
     1464                            *        HF 20 FAULT INTERRUPT RECOVERY
     1465                            *
     1466   01 00465                 68INT    RES      0
     1467   01 00465    33000011 A            MTW,0    X'11'             IS THIS A FAULT INT ?
     1468   01 00466    69300520              BNEZ     HAIO5C2           B,NO
     1469   01 00467    0F0005E0              XPSD,0   PUSHS             SAVE THE ENVIORMENT
     1470   01 00468    020000C2              NOP      INT68
     1471   01 00469    22700401 A            LI,7     X'401'            HF ADDRESS FOR USE
     1472   01 0046A    35700BB8              STW,7    HFADDR            IN RD/WD
     1473   01 0046B    04E01B79              MTYPE    HFFLT20           HF 2 0 FAULT INT
     1474   01 0046C    EC6007DB              RD,6     *RSAR1            GET THE SAR
     1475   01 0046D    35600155              STW,6    SAVE6
     1476   01 0046E    6AF004C9              BAL,15   HSARFLT
     1477   01 0046F    32600155              LW,6     SAVE6
     1478   01 00470    21610000 A            CI,6     X'10000'          WDT ?
     1479   01 00471    6940047A              BANZ     68INT1            B,YES
     1480   01 00472    22C00008 A            LI,12    8                 EIGHT CHARS TO DO
     1481   01 00473    22706D3D              LI,7     BA(HFFLT1)+9      PUT IT HERE
     1482   01 00474    6AE00773              BAL,14   TXLATE            MAKE IT INTO ENGLISH
     1483   01 00475    04E01B4D              MTYPE    HFFLT1            DO IT
     1484   01 00476    6AE004A9              BAL,14   HPRFLT            GET THE PSR
     1485   01 00477    32000F80              LW,0     HFTABLC+2         GET CONTROL WORD
     1486   01 00478    4B0007FE              AND,0    X7FS              GET RID OF HI ORDER BIT
     1487   01 00479    35000F80              STW,0    HFTABLC+2         RESTORE WORD
     1488   01 0047A    6AF00493     68INT1   BAL,15   RESTRHF           RESTART THE HF
     1489   01 0047B    0F0005F6              XPSD,0   PULLS             GET OUT
     1490                            *
     1491                            *        HF 30 FAULT RECOVERY
     1492                            *
     1493   01 0047C                 69INT    RES      0
     1494   01 0047C    33000011 A            MTW,0    X'11'             IS THIS A FAULT INT ?
     1495   01 0047D    69300527              BNEZ     HAIO5C3           B,NO
     1496   01 0047E    0F0005E0              XPSD,0   PUSHS             SAVE THE ENVIORMENT
     1497   01 0047F    020000C6              NOP      INT69
     1498   01 00480    22700601 A            LI,7     X'601'            HF ADDRESS FOR USE
     1499   01 00481    35700BB8              STW,7    HFADDR            IN RD/WD
     1500   01 00482    04E01B80              MTYPE    HFFLT30           HF 1 0 FAULT INT
     1501   01 00483    EC6007DB              RD,6     *RSAR1            GET THE SAR
     1502   01 00484    35600155              STW,6    SAVE6
     1503   01 00485    6AF004C9              BAL,15   HSARFLT
     1504   01 00486    32600155              LW,6     SAVE6
     1505   01 00487    21610000 A            CI,6     X'10000'          WDT ?
     1506   01 00488    69400491              BANZ     69INT1            B,YES
     1507   01 00489    22C00008 A            LI,12    8                 EIGHT CHARS TO DO
     1508   01 0048A    22706D3D              LI,7     BA(HFFLT1)+9      PUT IT HERE
     1509   01 0048B    6AE00773              BAL,14   TXLATE            MAKE IT INTO ENGLISH
     1510   01 0048C    04E01B4D              MTYPE    HFFLT1            DO IT
     1511   01 0048D    6AE004A9              BAL,14   HPRFLT            GET THE PSR
     1512   01 0048E    32000F81              LW,0     HFTABLC+3         GET CONTROL WORD
     1513   01 0048F    4B0007FE              AND,0    X7FS              GET RID OF HI ORDER BIT
     1514   01 00490    35000F81              STW,0    HFTABLC+3         RESTORE WORD
     1515   01 00491    6AF00493     69INT1   BAL,15   RESTRHF           RESTART THE HF
     1516   01 00492    0F0005F6              XPSD,0   PULLS             GET OUT
     1517   01 00493                 RESTRHF  RES      0
     1518   01 00493    35F00BAC              STW,15   BALRTN
     1519   01 00494    32500BB8              LW,5     HFADDR            REGET THE HF
     1520   01 00495    ED0A0BA4              WD,0     *HSYSRST,5        ONE EACH PROCESSOR RESET
     1521   01 00496    22200000 A            LI,2     0                 GRAB A ZERO
     1522   01 00497    32300E52              LW,3     HCRES             RESERVE CONTROL PANEL
     1523   01 00498    6AF00E8C              BAL,15   HFWD              GO DO IT
     1524   01 00499    22600000 A            LI,6     0                 INDEX TO HE ERRORS
     1525   01 0049A    6AD00EB2              BAL,13   HFERS             GO PUBLISH ERRORS
     1526   01 0049B    32300E65              LW,3     HCRUN             RUN SWITCH
     1527   01 0049C    6AF00E8C              BAL,15   HFWD              GO DO IT
     1528   01 0049D    22600009 A            LI,6     9                 INDEX TO HF ERRORS
     1529   01 0049E    6AD00EB2              BAL,13   HFERS             TELL SOMEONE
     1530   01 0049F    32300BA1              LW,3     STRT              THIS SHUD DO IT
     1531   01 004A0    32200BA7              LW,2     HHIO              GET THE HF IN AN IDLE LOOP
     1532   01 004A1    6AF00E8C              BAL,15   HFWD              GODO IT
     1533   01 004A2    2260000A A            LI,6     10                INDEX TO HF ERRORS
     1534   01 004A3    6AD00EB2              BAL,13   HFERS
     1535   01 004A4    6AF0178B              BAL,15   HDLAY             LET THE HF CALM DOWN
     1536   01 004A5    6C000000 A            RD,0     0                 CHECK OUT SENSE SWITCHES
     1537   01 004A6    E9400BAC              BCS,4    *BALRTN           SS 3 IS SET, GET OUT
     1538   01 004A7    0F001654              XPSD,0   HELP              ELSE,CHECK WITH OP
     1539   01 004A8    E8000BAC              B        *BALRTN           GET OUT
     1540                            *
     1541                            *        R7 = SYSTEM ID
     1542                            *
     1543   01 004A9                 HPRFLT   RES      0
     1544   01 004A9    35E00BAC              STW,14   BALRTN            SAVE THE RETURN ADDRESS
     1545   01 004AA    2560007F A            SLS,6    -1                RIGHT JUSTTIFY PROCESSORS 0,1,2
     1546   01 004AB    4B6007E2              AND,6    XF                GET RID OF THE FUNNY BITS
     1547   01 004AC    32700BB8              LW,7     HFADDR            GET THE CORRECT PROCESSOR
     1548   01 004AD    33000006 A            MTW,0    6                 WERE THERE ANY PROCESSORS  /
     1549   01 004AE    E8300BAC              BEZ      *BALRTN           B,NO
     1550   01 004AF    22600000 A            LI,6     0                 CLEAR OUT THE REGISTER
     1551   01 004B0    EC6E07D7              RD,6     *RPIA,7           READ HF'S PIA
     1552   01 004B1    4B6007C8              AND,6    INADMASK          GET RID OF GARBAGE
     1553   01 004B2    25600010 A            SLS,6    16                MOVE FOR PRINTING
     1554   01 004B3    22C00004 A            LI,12    4                 4 CHARS TO PRINT
     1555   01 004B4    22707039              LI,7     BA(HPIA)+9        PUT IT HERE
     1556   01 004B5    6AE00773              BAL,14   TXLATE            MAKE INTO ENGLISH
     1557   01 004B6    04E01C0C              MTYPE    HPIA
     1558   01 004B7    32700BB8              LW,7     HFADDR            REGET THE ADDRESS
     1559   01 004B8    EC6E07D6              RD,6     *RPSR,7           REMEMBER R7?
     1560   01 004B9    33000006 A            MTW,0    6                  ANYTHING ?
     1561   01 004BA    E8300BAC              BEZ      *BALRTN           NOTHING TO SHOW
     1562   01 004BB    3560078C              STW,6    TEMP            SAVE FOR A MINUTE
     1563   01 004BC    22C00008 A            LI,12    8
     1564   01 004BD    22706E25              LI,7     BA(HPRER2)+9      PUT IT HERE
     1565   01 004BE    6AE00773              BAL,14   TXLATE            AND DO IT
     1566   01 004BF    04E01B87              MTYPE    HPRER2            AND TELL HIM AS WELL
     1567   01 004C0    32C0078C              LW,12    TEMP              REGET THE PSR
     1568   01 004C1    226FFFF0 A            LI,6     -16               PRESET REGISTER
     1569   01 004C2    33100006 A   HPRFLT1  MTW,1    6                 TO USE AS AN INDEX
     1570   01 004C3    E8300BAC              BEZ      *BALRTN           B,YES GET OUT
     1571   01 004C4    25C00001 A            SLS,12   1                 ELSE,SEE IF ERROR BIT IS ON
     1572   01 004C5    688004C2              BEV      HPRFLT1           B,BIT NOT ON
     1573   01 004C6    327C04E1              LW,7     HPSRTBL+15,6      GET CORRECT MESSAGE
     1574   01 004C7    84E00007 A            MTYPE    *7                AND TELL IT ALL
     1575   01 004C8    680004C2              B        HPRFLT1           GET THE REST
     1576   01 004C9                 HSARFLT  RES      0
     1577   01 004C9    32C00155              LW,12    SAVE6             REGET SAR REG.
     1578   01 004CA    226FFFDF A            LI,6     -33               PRESET
     1579   01 004CB    33100006 A   HSARFLT1 MTW,1    6                 BUMP COUNT
     1580   01 004CC    E830000F A            BEZ      *15               RETURN !
     1581   01 004CD    25C00001 A            SLS,12   1                 CHECK IF BIT ON
     1582   01 004CE    688004CB              BEV      HSARFLT1          B,WAS NOT ON
     1583   01 004CF    327C0502              LW,7     HSARTBL+32,6      GET THE MESSAGE
     1584   01 004D0    84E00007 A            MTYPE    *7                DO IT TO IT
     1585   01 004D1    680004CB              B        HSARFLT1          GET THE REST
     1586   01 004D2    00001C14     HPSRTBL  DATA     HPSRER0
     1587   01 004D3    00001C19              DATA     HPSRER1
     1588   01 004D4    00001C1E              DATA     HPSRER2
     1589   01 004D5    00001C27              DATA     HPSRER3
     1590   01 004D6    00001C2D              DATA     HPSRER4
     1591   01 004D7    00001C36              DATA     HPSRER5
     1592   01 004D8    00001C3D              DATA     HPSRER6
     1593   01 004D9    00001C46              DATA     HPSRER7
     1594   01 004DA    00001C50              DATA     HPSRER8
     1595   01 004DB    00001C57              DATA     HPSRER9
     1596   01 004DC    00001C5E              DATA     HPSRER10
     1597   01 004DD    00001C66              DATA     HPSRER11
     1598   01 004DE    00001C6F              DATA     HPSRER12
     1599   01 004DF    00001C7A              DATA     HPSRER13
     1600   01 004E0    00001C80              DATA     HPSRER14
     1601   01 004E1    00001C88              DATA     HPSRER15
     1602   01 004E2    00001CF1     HSARTBL  DATA     HSARER0
     1603   01 004E3    00001CF8              DATA     HSARER1
     1604   01 004E4    00001CFF              DATA     HSARER2
     1605   01 004E5    00001D06              DATA     HSARER3
     1606   01 004E6    00001D0D              DATA     HSARER4
     1607   01 004E7    00001D14              DATA     HSARER5
     1608   01 004E8    00001D1B              DATA     HSARER6
     1609   01 004E9    00001D22              DATA     HSARER7
     1610   01 004EA    00001D29              DATA     HSARER8
     1611   01 004EB    00001D33              DATA     HSARER9
     1612   01 004EC    00001D3D              DATA     HSARER10
     1613   01 004ED    00001D47              DATA     HSARER11
     1614   01 004EE    00001D51              DATA     HSARER12
     1615   01 004EF    00001D5A              DATA     HSARER13
     1616   01 004F0    00001D62              DATA     HSARER14
     1617   01 004F1    00001D6D              DATA     HSARER15
     1618   01 004F2    00001D72              DATA     HSARER16
     1619   01 004F3    00001D77              DATA     HSARER17
     1620   01 004F4    00001D7F              DATA     HSARER18
     1621   01 004F5    00001D87              DATA     HSARER19
     1622   01 004F6    00001D91              DATA     HSARER20
     1623   01 004F7    00001D9B              DATA     HSARER21
     1624   01 004F8    00001DA5              DATA     HSARER22
     1625   01 004F9    00001DAF              DATA     HSARER23
     1626   01 004FA    00001DB9              DATA     HSARER24
     1627   01 004FB    00001DC3              DATA     HSARER25
     1628   01 004FC    00001DCD              DATA     HSARER26
     1629   01 004FD    00001DD7              DATA     HSARER27
     1630   01 004FE    00001DDC              DATA     HSARER28
     1631   01 004FF    00001DE1              DATA     HSARER29
     1632   01 00500    00001DE6              DATA     HSARER30
     1633   01 00501    00001DEB              DATA     HSARER31
     1634   01 00502    00000000 A   HFLIP    DATA     0,8,4,4,2,2,2,2
            01 00503    00000008 A
            01 00504    00000004 A
            01 00505    00000004 A
            01 00506    00000002 A
            01 00507    00000002 A
            01 00508    00000002 A
            01 00509    00000002 A
     1635   01 0050A    00000001 A            DATA     1,1,1,1,1,1,1,1
            01 0050B    00000001 A
            01 0050C    00000001 A
            01 0050D    00000001 A
            01 0050E    00000001 A
            01 0050F    00000001 A
            01 00510    00000001 A
            01 00511    00000001 A
     1636   01 00512                 HAIO5C   RES      0
     1637   01 00512    2F0007E3              LRP      X10               REGISTER POINTER TO 1
     1638   01 00513    32E00550              LW,14    HFAIOD1           GET HF ADDRESS FOR FAULT
     1639   01 00514    22500001 A            LI,5     1                 THIS IS FOR DIO USE
     1640   01 00515    22701C00 A            LI,7     X'1C00'           FAKE IOP ADDRESS
     1641   01 00516    35700435              STW,7    AIODATA           PUT IT AWAY
     1642   01 00517    126000BA              LD,6     INT66             GET THE COME-FROM
     1643   01 00518    6800052D              B        HAIO5C4           GO TO PROCESSING
     1644   01 00519    2F0007E3     HAIO5C1  LRP      X10               REGISTER POINTER TO 1
     1645   01 0051A    32E00551              LW,14    HFAIOD2           HF ADDRESS FOR SYS # 1
     1646   01 0051B    22500201 A            LI,5     X'201'            FOR DIO USE
     1647   01 0051C    22701D00 A            LI,7     X'1D00'           FAKE IOP ADDRESS
     1648   01 0051D    35700435              STW,7    AIODATA           PUT INTO IOP QUEUE
     1649   01 0051E    126000BE              LD,6     INT67             GET THE COME-FROM
     1650   01 0051F    6800052D              B        HAIO5C4           GO TO PROCESSING
     1651   01 00520    2F0007E3     HAIO5C2  LRP      X10               REGISTER POINTER TO 1
     1652   01 00521    32E00552              LW,14    HFAIOD3           HF ADDRESS FOR SYS # 2
     1653   01 00522    22500401 A            LI,5     X'401'            FOR DIO USE
     1654   01 00523    22701E00 A            LI,7     X'1E00'           FAKE IOP ADDRESS
     1655   01 00524    35700435              STW,7    AIODATA           PUT INTO IOP QUEUE
     1656   01 00525    126000C2              LD,6     INT68             GET THE COME-FROM
     1657   01 00526    6800052D              B        HAIO5C4           GO TO PROCESSING
     1658   01 00527    2F0007E3     HAIO5C3  LRP      X10               REGISTER POINTER TO 1
     1659   01 00528    32E00553              LW,14    HFAIOD4           HF ADDRESS FOR SYS # 3
     1660   01 00529    22500601 A            LI,5     X'601'            FOR DIO USE
     1661   01 0052A    22701F00 A            LI,7     X'1F00'           FAKE IOP ADDRESS
     1662   01 0052B    35700435              STW,7    AIODATA           PUT INTO IOP QUEUE
     1663   01 0052C    126000C6              LD,6     INT69             GET THE COME-FROM
     1664   01 0052D    156000B2     HAIO5C4  STD,6    INT5C             AND FAKE AN I/O INT.
     1665   01 0052E    22101000 A            LI,1     X'1000'           TURN OFF COUNTER
     1666   01 0052F    6D101100 A            WD,1     X'1100'           LIKE THIS
     1667   01 00530    326007CC              LW,6     FILLER            BE SURE INT IS REAL
     1668   01 00531    31600011 A            CW,6     X'11'             SO CHECK IT OUT
     1669   01 00532    693003AF              BNE      IOINT-2           B,NOT REAL
     1670   01 00533    22300000 A            LI,3     0                 GRAB A ZERO
     1671   01 00534    35500BB8              STW,5    HFADDR            GET THE ADDRESS OF THE HF
     1672   01 00535    ED0A07D9              WD,0     *RSAR,5           AND RESET THE PROCESSOR
     1673   01 00536    35300010 A            STW,3    X'10'             AND CLEAR THE IO CHANNELS
     1674   01 00537    32300BAB              LW,3     SETE              SET THE E FLAG
     1675   01 00538    22200000 A            LI,2     0                 GRAB A ZERO
     1676   01 00539    6AF00E8C              BAL,15   HFWD              GO DO IT
     1677   01 0053A    2260000B A            LI,6     11                INDEX TO HF ERRPRS
     1678   01 0053B    6AD00EB2              BAL,13   HFERS             GO TELL SOMEONE
     1679   01 0053C    32300BA1              LW,3     STRT              START COMMAND
     1680   01 0053D    32200BAA              LW,2     HAIO              WITH AIO AS THE FUNCTION TO DO
     1681   01 0053E    6AF00E8C              BAL,15   HFWD              GO DO IT
     1682   01 0053F    2260000A A            LI,6     10                INDEX TO HF ERRORS
     1683   01 00540    6AD00EB2              BAL,13   HFERS             GO TELL SOMEONE
     1684   01 00541    22200BB8 A            LI,2     3000              DELAY TIME
     1685   01 00542    64200542              BDR,2    %                 SPIN HERE
     1686   01 00543    33000010 A            MTW,0    X'10'             ANY ANSWER ?
     1687   01 00544    6830054B              BEZ      HAIO5C5           ERROR RETURN
     1688   01 00545    12400010 A            LD,4     X'10'             FETCH THE STATUS
     1689   01 00546    2540007F A            SLS,4    -1                MAKE DBLWORD FOR SIGMA
     1690   01 00547    22000000 A            LI,0     0                 GRAB A ZERO
     1691   01 00548    35000011 A            STW,0    X'11'             CLEAR FIELD FOR NEXT INT.
     1692   01 00549    3220000E A            LW,2     14                REGET THE REGISTER
     1693   01 0054A    680003B4              B        IOINT1            AND PROCESS IT
     1694   01 0054B    22600006 A   HAIO5C5  LI,6     6                 AIO TIMEOUT
     1695   01 0054C    6AD00EB2              BAL,13   HFERS             AND PROCESS IT
     1696   01 0054D    6AF00493              BAL,15   RESTRHF           TRY AND RESTART IT.
     1697   01 0054E    680003C9              B        IOINTA
     1698   01 0054F    00000000 A   HZERO    DATA     0                 TEMP STORAGE FOR THE TYPE COMMAND
     1699   01 00550    00003200 A   HFAIOD1  DATA     X'3200'
     1700   01 00551    00003210 A   HFAIOD2  DATA     X'3210'
     1701   01 00552    00003220 A   HFAIOD3  DATA     X'3220'
     1702   01 00553    00003230 A   HFAIOD4  DATA     X'3230'
     1703                            *
     1704   01 00554    35F00BAC     EXPMBIT  STW,15   BALRTN            SAVE COME FROM
     1705   01 00555    226FFFEB A            LI,6     -21               CHECK THESE BITS
     1706   01 00556    32700277              LW,7     EXPMEM            GET STATUS WORD 0
     1707   01 00557    25700001 A            SLS,7    1                 DON'T NEED BIT ZERO
     1708   01 00558    4B7007F0              AND,7    XB0M1
     1709   01 00559    32C00277              LW,12    EXPMEM            REGET WORD
     1710   01 0055A    25C0000C A            SLS,12   12
     1711   01 0055B    4BC007EE              AND,12   XFFF000           JUST PROT BITS
     1712   01 0055C    49C00007 A            OR,12    7                 GET THEM TOGETHER
     1713   01 0055D    33100006 A   EXPM1    MTW,1    6
     1714   01 0055E    E8300BAC              BEZ      *BALRTN           GO BACK, DONE
     1715   01 0055F    25C00001 A            SLS,12   1                 YOU ON ?
     1716   01 00560    6880055D              BEV      EXPM1             B,NO
     1717   01 00561    327C0578              LW,7     MEMTBL+20,6       GET STATUS
     1718   01 00562    84E00007 A            MTYPE    *7
     1719   01 00563    6800055D              B        EXPM1
     1720   01 00564    00001DF3     MEMTBL   DATA     MFLT2
     1721   01 00565    00001DF9              DATA     MFLT3
     1722   01 00566    00001E01              DATA     MFLT4
     1723   01 00567    00001E06              DATA     MFLT5
     1724   01 00568    00001E0D              DATA     MFLT6
     1725   01 00569    00001E13              DATA     MFLT7
     1726   01 0056A    00001E19              DATA     MFLT8
     1727   01 0056B    00001E25              DATA     MFLT9
     1728   01 0056C    00001E2C              DATA     MFLT10
     1729   01 0056D    00001E2F              DATA     MFLT11
     1730   01 0056E    00001E32              DATA     MFLT12
     1731   01 0056F    00001E35              DATA     MFLT13
     1732   01 00570    00001E38              DATA     MFLT14
     1733   01 00571    00001E3B              DATA     MFLT15
     1734   01 00572    00001E3E              DATA     MFLT16
     1735   01 00573    00001E41              DATA     MFLT17
     1736   01 00574    00001E44              DATA     MFLT18
     1737   01 00575    00001E47              DATA     MFLT19
     1738   01 00576    00001E4A              DATA     MFLT20
     1739   01 00577    00001E4D              DATA     MFLT21
     1740   01 00578    35F005C8     CKMEM    STW,15   CKMEMX            SAVE RETURN
     1741   01 00579    22600000 A            LI,6     0                 CLEAR
     1742   01 0057A    75800006 A            STB,8    6                 AND PUT IT INTO R6
     1743   01 0057B    22900000 A            LI,9     0                 CLEAR
     1744   01 0057C    49900006 A            OR,9     6                 MERGE IT IN
     1745   01 0057D    25600078 A            SLS,6    -8                POSTIION
     1746   01 0057E    49600009 A            OR,6     9                 BUILD IT
     1747   01 0057F    49900006 A            OR,9     6                 BUILD IT
     1748   01 00580    25600070 A            SLS,6    -16               POSITION IT
     1749   01 00581    49900006 A            OR,9     6                 THAT IS THE WHOLE WORDS
     1750   01 00582    324007CD              LW,4     FIRSTMEM          STARTING ADDRES
     1751   01 00583    325007CE              LW,5     MSIZE             END OF MEMORY
     1752   01 00584    154005DA              STD,4    CKLIM             SAVE IT FOR ERROR PRINTOUT
     1753   01 00585    32F007BA              LW,15    PHASE             WHAT PHASE IS IT?
     1754   01 00586    21F00003 A            CI,15    3                 THREE?
     1755   01 00587    6930058F              BNE      CKMEMB-2          B,NO
     1756   01 00588    324E0FA3              LW,4     IOPTABLE,7        GET THIS ONES BUFFER ADDRESS
     1757   01 00589    4B4007FE              AND,4    X7FS              ADDRESS ONLY
     1758   01 0058A    325007C7              LW,5     BUFSIZE           GET THE SIZE
     1759   01 0058B    30500004 A            AW,5     4                 AND ADD START TO CREATE END
     1760   01 0058C    154005DA              STD,4    CKLIM             SAVE IN CASE OF AN ERROR
     1761   01 0058D    20400001 A            AI,4     1                 GET PASSED CONTROL WORD
     1762   01 0058E    205FFFFF A            AI,5     -1                FORGET THE CONTROL WORD
     1763   01 0058F    330E0F42              MTW,0    IOPTABLB,7        ANYONE THERE ?
     1764   01 00590    691005BA              BLZ      CKMEMHF           B,NO
     1765   01 00591    B1900004 A   CKMEMB   CW,9     *4                IS IT OK?
     1766   01 00592    69300598              BNE      CKMEMC            B,NO
     1767   01 00593    20400001 A            AI,4     1                 NEXT ADDRESS
     1768   01 00594    31400005 A            CW,4     5                 DONE YET?
     1769   01 00595    69100591              BL       CKMEMB            B,NO
     1770   01 00596    E80005C8              B        *CKMEMX           RETURN
     1771   01 00597    46900008 A            XW,9     8                 SWAP 'EM FOR OUTPUT
     1772   01 00598    02200000 A   CKMEMC   LCI      0
     1773   01 00599    2B0005C9              STM,0    CKSAVE            SAVE REGS
     1774   01 0059A    6C000000 A            RD,0     0                 READ SSW
     1775   01 0059B    691005B5              BCS,1    CKMEMD            BYPASS ERROR
     1776   01 0059C    6AE00729              BAL,14   CURTIME           SET UP TIME MESSAGE
     1777   01 0059D    04C00780              DPRINT   TOF               TOP OF FORM
     1778   01 0059E    04D019B1              MPRINT   TIMEMES           PRINT IT
     1779   01 0059F    04D01A83              MPRINT   CKHEAD            HEADING
     1780   01 005A0    04E01A83              MTYPE    CKHEAD            HEADING
     1781   01 005A1    02200000 A            LCI      0
     1782   01 005A2    2A0005C9              LM,0     CKSAVE            RESTORE REGS
     1783   01 005A3    3520078C              STW,2    TEMP              AIO STATUS
     1784   01 005A4    3540078D              STW,4    TEMP+1            ADDRESS
     1785   01 005A5    3590078E              STW,9    TEMP+2            SHOULD BE
     1786   01 005A6    B2A00004 A            LW,10    *4                GET IS
     1787   01 005A7    35A0078F              STW,10   TEMP+3            INTO TEMP
     1788   01 005A8    22200004 A            LI,2     4                 FOUR WORDS
     1789   01 005A9    22706914              LI,7     BA(COMPD+1)       TO ADDRERSS
     1790   01 005AA    6AF0076B              BAL,15   XLATTEMP          SPREAD THE DATA
     1791   01 005AB    04E01A44              MTYPE    COMPD             PRINT BAD DATA
     1792   01 005AC    04D01A44              MPRINT   COMPD             DATA
     1793   01 005AD    321005DB              LW,1     CKLIM+1           END OF TEST MEMORY
     1794   01 005AE    381005DA              SW,1     CKLIM             MINUS START
     1795   01 005AF    201FFFFF A            AI,1     -1                MINUS ONE
     1796   01 005B0    322005DA              LW,2     CKLIM             START OF TEST MEMORY
     1797   01 005B1    22FFFFFF A            LI,15    -1                SET THE FLAG
     1798   01 005B2    35F00A6E              STW,15   DUFLAG            TO INDICATE PRINT
     1799   01 005B3    6AF00A06              BAL,15   DILOOP1           GO DUMP MEMORY
     1800   01 005B4    0F001654              XPSD,0   HELP              GET HELP
     1801   01 005B5    22000000 A   CKMEMD   LI,0     0
     1802   01 005B6    F50005DA              STB,0    *CKLIM            MARK IT AS NEEDING REFRESH BEFORE NEXT TEST
     1803   01 005B7    02200000 A            LCI      0
     1804   01 005B8    2A0005C9              LM,0     CKSAVE            RESTORE REGS
     1805   01 005B9    E80005C8              B        *CKMEMX           AND RETURN
     1806   01 005BA                 CKMEMHF  RES      0
     1807   01 005BA    33000D4A              MTW,0    HDATTST           DO WE WANT TO TEST ?
     1808   01 005BB    E93005C8              BNEZ     *CKMEMX           B,NO
     1809   01 005BC    329005C6              LW,9     HMEMASK           CONTROL MASK
     1810   01 005BD    328005C7              LW,8     HMEMPAG           GRAB FIRST PAGE LOC.
     1811   01 005BE    49800004 A            OR,8     4                 MERGE IN STARTING ADDR
     1812   01 005BF    C5800004 A   CKMEMHF1 CS,8     *4                EQUAL ?
     1813   01 005C0    69300597              BNE      CKMEMC-1          B,NO
     1814   01 005C1    20400001 A            AI,4     1                 BUMP COUNT
     1815   01 005C2    20800001 A            AI,8     1                 BUMP COUNT
     1816   01 005C3    31400005 A            CW,4     5                 DONE ?
     1817   01 005C4    691005BF              BL       CKMEMHF1          CONTINUE
     1818   01 005C5    E80005C8     CKMEMD1  B        *CKMEMX           GO BACK
     1819   01 005C6    0003FFFF A   HMEMASK  DATA     X'0003FFFF'
     1820   01 005C7    01000000 A   HMEMPAG  DATA     X'01000000'
     1821                            *
     1822   01 005C8                 CKMEMX   RES      1
     1823   01 005C9                 CKSAVE   RES      16
     1824                                     BOUND    8
     1825   01 005DA                 CKLIM    RES      2
     1826                            *
     1827                            *
     1828                                     BOUND    8
     1829   01 005DC    000005DE     CLEARPDF DATA     %+2,X'7000000'
            01 005DD    07000000 A
     1830   01 005DE    0F0005F6              XPSD,0   PULLS             EXOT
     1831                            *
     1832                            * PUSHES
     1833                            *    RETURNS WITH
     1834                            *        R2 & R3 WITH THE PSD OF TRAP I/ INTERRUPT
     1835                            *
     1836   01 005E2    000005E4 N   PUSHS    PSD      0,%+2,7,0
                        07000000
     1837   01 005E4    0B00061A              PSM,0    RSTACK            SAVE THE REGS
     1838   01 005E5    22101000 A            LI,1     X'1000'           STOP
     1839   01 005E6    6D101100 A            WD,1     X'1100'           COUNTER 4
     1840   01 005E7    B21005E0              LW,1     *PUSHS            GET  PSD ADDRESS
     1841   01 005E8    92200001 A            LD,2     *1                GET THE DOUBLE WORD
     1842   01 005E9    31100281              CW,1     4DTRAP+1          TRAP OR INTERRUPT?
     1843   01 005EA    692005F2              BG       INTR              IT WAS AN TNTERRUPT
     1844   01 005EB    3110015E              CW,1     46LAB             WAS IT A 46 TRAP
     1845   01 005EC    683005F2              BE       INTR              TREAT IT AS AN INTERRUPT
     1846   01 005ED    33100002 A            MTW,1    2                 BUMP RETURN
     1847   01 005EE    02200020 A            LCI      2
     1848   01 005EF    0B200604              PSM,2    PSDSTACK          PUT AWAY
     1849   01 005F0    33F00002 A            MTW,-1   2                 DOWN COUNT
     1850   01 005F1    0E0005E0              LPSD,0   PUSHS             RETURN
     1851   01 005F2    02200020 A   INTR     LCI      2
     1852   01 005F3    0B200604              PSM,2    PSDSTACK          PUT AWAY WITHOUT BUMP (TRAP)
     1853   01 005F4    0E0005E0              LPSD,0   PUSHS
     1854                            *
     1855                            * PULLS
     1856                            * PETURNS TO THE TRAPED ROUTINE WITHOUT CLEARING INTERRUPS
     1857                            *
     1858   01 005F8    000005FA N   PULLS    PSD      0,%+2,7,0
                        07000000
     1859   01 005FA    02200020 A            LCI      2
     1860   01 005FB    0A200604              PLM,2    PSDSTACK          PULL OUT THE OLD PSD
     1861   01 005FC    15200602              STD,2    RETURNS           & PUT IT WHERE WE CAN USE IT
     1862   01 005FD    22101000 A            LI,1     X'1000'           TURN COUNTER
     1863   01 005FE    6D101200 A            WD,1     X'1200'           4 BACK ON
     1864   01 005FF    02200000 A            LCI      0
     1865   01 00600    0A00061A              PLM,0    RSTACK            RESTORE THE REGS
     1866   01 00601    0E000602              LPSD,0   RETURNS           LETS GO BACK
     1867                                     BOUND    8
     1868   01 00602    00000000 A   RETURNS  DATA     0,0
            01 00603    00000000 A
     1869                                     BOUND    8
     1870   01 00604    00000605 N   PSDSTACK GEN,32,16,16  %+1,STACKSZ*2,0
                        00140000
     1875                                     BOUND    8
     1876   01 0061A    0000061B N   RSTACK   GEN,32,16,16  %+1,STACKSZ*16,0
                        00A00000
     1881                            *                                   *
     1882                            *        DO1      STACKSZ*16        *
     1883                            *        DATA     0                 *
     1884                            *                                   *
     1885                            *
     1886                            * MTYPE  ENTERED WITH PSD IN RI,3
     1887                            *       OUTPUT WITH NO INTERRUPTS
     1888                            *
     1889   01 006BC    321007D1     MTYPE    LW,1     TTYADD            GET ITS ADDRESS
     1890   01 006BD    6AF00709              BAL,15   IOPBUSY           TEST IOP FOR OFF LINE
     1891   01 006BE    22500005 A            LI,5     5                 ORDER
     1892   01 006BF    32640000 A   MDOIT    LW,6     0,2               GET CAL
     1893   01 006C0    692006C2              BGZ      %+2               IS IT INDIRECT
     1894   01 006C1    6AF0074F              BAL,15   INDIRECT          YES, GET IT
     1895   01 006C2    35600004 A            STW,6    4                 PUT IT BACK
     1896   01 006C3    4B4007C8              AND,4    INADMASK          ADDRESS FIELD ONLY
     1897   01 006C4    25400002 A            SLS,4    2                 MAKE BYTE ADDR
     1898   01 006C5    75500004 A            STB,5    4                 IN CDW
     1899   01 006C6    72580000 A            LB,5     0,4               LOAD COUNT
     1900   01 006C7    33100004 A            MTW,1    4                 BUMP ADDR PAST COUNT
     1901   01 006C8    1540077E              STD,4    MCDW              STOR CDW
     1902   01 006C9    220003BF              LI,0     DA(MCDW)
     1903   01 006CA    CC000702              SIO,0    *MESSDEV          DO I/O
     1904   01 006CB    223000C8 A            LI,3     200               COUNT
     1905   01 006CC    643006CC              BDR,3    %                 FOR A SHORT DELAY
     1906   01 006CD    CD000702              TIO,0    *MESSDEV
     1907   01 006CE    69C006CB              BCS,12   %-3               LOOP TILL DONE
     1908   01 006CF    0F0005F6              XPSD,0   PULLS             EXIT
     1909                            *
     1910                            * MINKEY ENTERED WITH PSD IN R 2,3
     1911                            * INPUT WITH NO INTERRUPTS
     1912                            * FIRST BYTE OF INPUT BUFFER MUST CONTAIN BYTE COUNT
     1913                            *  ACTUAL BYTE COUNT RETURNED IN FIRST BYTE OF BUFFER
     1914                            *
     1915   01 006D0    321007D1     MINKEY   LW,1     TTYADD            GET ITS ADDRESS
     1916   01 006D1    6AF00709              BAL,15   IOPBUSY           TEST FOR OFF LIONE BUST
     1917   01 006D2    6D000037 A            INHIB
     1918   01 006D3    32640000 A            LW,6     0,2               GET CAL
     1919   01 006D4    692006D6              BGZ      %+2               IS IT INDIRECT
     1920   01 006D5    6AF0074F              BAL,15   INDIRECT          YES, GET IT
     1921   01 006D6    35600004 A            STW,6    4                 PUT IT BACK
     1922   01 006D7    4B4007C8              AND,4    INADMASK          ADDRESS FIELD ONLY
     1923   01 006D8    25400002 A            SLS,4    2                 MAKE IT BYTE
     1924   01 006D9    35400002 A            STW,4    2                 SAVE BUFFER ADDRESS
     1925   01 006DA    22500086 A            LI,5     X'86'              ORDER READ
     1926   01 006DB    75500004 A            STB,5    4
     1927   01 006DC    72540000 A            LB,5     0,2               GET BYTE COUNT
     1928   01 006DD    33100004 A            MTW,1    4                 BUMP ADDR PAST COUNT
     1929   01 006DE    1540077E              STD,4    MCDW              STUFF CDW
     1930   01 006DF    CFC007D1              HIO,12   *TTYADD           HALT TTY
     1931   01 006E0    220003BF              LI,0     DA(MCDW)
     1932   01 006E1    CC0007D1              SIO,0    *TTYADD           DO I/O
     1933   01 006E2    223000C8 A            LI,3     200               COUNT
     1934   01 006E3    643006E3              BDR,3    %                 FOR A SHORT DELAY
     1935   01 006E4    CD3007D1              TIO,3    *TTYADD           DONE YET?
     1936   01 006E5    69C006E2              BCS,12   %-3               B,NOPE
     1937   01 006E6    227000FF A            LI,7     X'FF'             MASK FOR BYTE COUNT
     1938   01 006E7    4B700003 A            AND,7    3                 GET IT
     1939   01 006E8    22400000 A            LI,4     0                 CLEAR OUT R 4
     1940   01 006E9    72440000 A            LB,4     0,2               GET COUNT
     1941   01 006EA    38400007 A            SW,4     7                 GET TEH ACTUAL COUNT
     1942   01 006EB    75440000 A            STB,4    0,2               PUT IT IN BUFFER
     1943   01 006EC    0F0005F6     MGETOUT  XPSD,0   PULLS             EXIT
     1944                            *
     1945                            *        MPRINT   PRINTS ON LP WITHOUT INTERRUPTS
     1946                            *
     1947   01 006ED    321007D0     MPRINT   LW,1     LPADD             GET ITS ADDRESS
     1948   01 006EE    691006EC              BLZ      MGETOUT           GET OUT THERE AINT ONE
     1949   01 006EF    6AF00709              BAL,15   IOPBUSY           TEST FOR IOP OFF LINE AND BUSY
     1950   01 006F0    CD0007D0              TIO,0    *LPADD            IS THERE A LINE PRINTER?
     1951   01 006F1    698006EC              BIOANR   MGETOUT           B,NO,DEFAULT TO TTY
     1952   01 006F2    22500001 A            LI,5     1                 PRINT ORDER
     1953   01 006F3    680006BF              B        MDOIT             GO DO IT
     1954                            *
     1955                            *
     1956   01 006F4    321007D1     DTYPE    LW,1     TTYADD            DEV.ADD.
     1957   01 006F5    6AF00709              BAL,15   IOPBUSY
     1958   01 006F6    32640000 A   DDOIT    LW,6     0,2               GET CAL INST.
     1959   01 006F7    692006F9              BGZ      %+2               NOT IND.
     1960   01 006F8    6AF0074F              BAL,15   INDIRECT          GET IND ADD.
     1961   01 006F9    35600000 A            STW,6    0                 PUT IT INTO COM. REG
     1962   01 006FA    4B0007C8              AND,0    INADMASK          ADDRESS ONLY
     1963   01 006FB    2500007F A            SLS,0    -1                DW ADDRESS IT
     1964   01 006FC    CC000702              SIO,0    *MESSDEV          DO IO
     1965   01 006FD    223000C8 A            LI,3     200               DELAY
     1966   01 006FE    643006FE              BDR,3    %                 DELAY
     1967   01 006FF    CD000702              TIO,0    *MESSDEV          DONE?
     1968   01 00700    694006FD              BIOSNP   %-3               B,NO
     1969   01 00701    0F0005F6              XPSD,0   PULLS             EXIT
     1970   01 00702    00000000 A   MESSDEV  DATA     0
     1971                            *
     1972                            *
     1973   01 00703    321007D0     DPRINT   LW,1     LPADD             PRINTER ADDRESS
     1974   01 00704    691006EC              BLZ      MGETOUT           GET OUT THERE AINT ONE
     1975   01 00705    6AF00709              BAL,15   IOPBUSY
     1976   01 00706    CD000702              TIO,0    *MESSDEV          IS IT THERE?
     1977   01 00707    684006F6              BIOSP    DDOIT             B,OK
     1978   01 00708    680006F4              B        DTYPE             DEFAULT TO TTY
     1979                            *
     1980                            *
     1981   01 00709    22501F00 A   IOPBUSY  LI,5     X'1F00'
     1982   01 0070A    35100702              STW,1    MESSDEV           SAVE THE DEVICE ADDRESS
     1983   01 0070B    6C000000 A            RD,0     0                 READ SENSE SWITCHES
     1984   01 0070C    694006EC              BCS,4    MGETOUT           DONT DO IT IF SWITCH 2 IS ON
     1985   01 0070D    4A500001 A            LS,5     1                 GET IOP NUMBER
     1986   01 0070E    25500078 A            SLS,5    -8                POSITION TO AN INDEX
     1987   01 0070F    326A0F62              LW,6     IOPTABLC,5        BUSY?
     1988   01 00710    E810000F A            BGEZ     *15               NO,GO BACK
     1989   01 00711    22701F00 A            LI,7     X'1F00'
     1990   01 00712    4A700001 A            LS,7     1                 GET THE IOP ADDRESS
     1991   01 00713    22400020 A            LI,4     32                COUNT
     1992   01 00714    CF000007 A            HIO,0    *7                STOP THE DEVICES
     1993   01 00715    20700001 A            AI,7     1                 NEXT ADDRESS
     1994   01 00716    64400714              BDR,4    %-2               LOOP
     1995   01 00717    25500004 A            SLS,5    4                 WD ADDRESS
     1996   01 00718    22400000 A            LI,4     0
     1997   01 00719    6D4A200F A            WD,4     X'200F',5         TURN IT BACK ON
     1998   01 0071A    2550007C A            SLS,5    -4
     1999   01 0071B    306007FF              AW,6     H8                REMOVE THE BIT
     2000   01 0071C    356A0F62              STW,6    IOPTABLC,5        MAKE IT NOT BUSY
     2001   01 0071D    327007FE              LW,7     X7FS              MASK
     2002   01 0071E    4A7A0FA3              LS,7     IOPTABLE,5        GET BUGFER ADDRESS
     2003   01 0071F    68300726              BEZ      IOPBUSYD          NONE
     2004   01 00720    22400000 A            LI,4     0
     2005   01 00721    325007C7              LW,5     BUFSIZE           BUFFER SIZE
     2006   01 00722    B5000007 A            STW,0    *7                CLEAR ITS BUFFER
     2007   01 00723    20700001 A            AI,7     1                 NEXT ADDRESS
     2008   01 00724    205FFFFF A            AI,5     -1                DOWN THE COUNT
     2009   01 00725    68100722              BGEZ     %-3               LOOP IT
     2010   01 00726    22607530 A   IOPBUSYD LI,6     30000             COUNT FOR A
     2011   01 00727    64600727              BDR,6    %                 DELAY
     2012   01 00728    E800000F A            B        *15               RETURN
     2013                            *
     2014   01 00729                 CURTIME  RES      0
     2015   01 00729    35E0074E              STW,14   TIMEX             SAVE THE COME-FROM
     2016   01 0072A    223FFFFD A            LI,3     -3                INDEX MAKER
     2017   01 0072B    22400000 A            LI,4     0                 CLEAR IT OUT
     2018   01 0072C    325007B0              LW,5     COUNT3            CURRENT TIME
     2019   01 0072D    36460742     CURTIME1 DW,4     TIMEGET+3,3       FIND QUOTIENT
     2020   01 0072E    35560745              STW,5    TIMEIS+3,3        SAVE TIME IN HEX
     2021   01 0072F    25400160 A            S,4      X'160'            SPIN SO MUCH
     2022   01 00730    6530072D              BIR,3    CURTIME1          GO AGAIN
     2023   01 00731    227066C8              LI,7     BA(TIMEMES)+4     PUT TIME HERE
     2024   01 00732    223FFFFD A            LI,3     -3                INDEX AGAIN
     2025   01 00733    32560745     CURTIME2 LW,5     TIMEIS+3,3        HOURS,MIN,SEC
     2026   01 00734    22400000 A            LI,4     0                 MAKE NICE
     2027   01 00735    36400745              DW,4     TEN               MAKE DECIMAL
     2028   01 00736    49400746              OR,4     XFO               MAKE PRINTABLE
     2029   01 00737    49500746              OR,5     XFO               DITTO
     2030   01 00738    755E0000 A            STB,5    0,7               PUT IT IN PLACE
     2031   01 00739    20700001 A            AI,7     1                 MOVE POINTER
     2032   01 0073A    754E0000 A            STB,4    0,7               PIT IT AWAY TOO
     2033   01 0073B    20700002 A            AI,7     2                 BUMP POINTER
     2034   01 0073C    65300733              BIR,3    CURTIME2          GET THE NEXT
     2035   01 0073D    04E019B1              MTYPE    TIMEMES           TELL TIME
     2036   01 0073E    E800074E              B        *TIMEX            THEN GO HOME
     2037   01 0073F    001B7740 A   TIMEGET  DATA     60*60*500
     2038   01 00740    00007530 A            DATA     60*500
     2039   01 00741    000001F4 A            DATA     500
     2040   01 00742                 TIMEIS   RES      0
     2041   01 00742    00000000 A   HOURS    DATA     0
     2042   01 00743    00000000 A   MINUTES  DATA     0
     2043   01 00744    00000000 A   SECONDS  DATA     0
     2044   01 00745    0000000A A   TEN      DATA     10
     2045   01 00746    000000F0 A   XFO      DATA     X'F0'
     2046                            *
     2047   01 00747    35E0074E     CCCTEEE  STW,14   TIMEX
     2048   01 00748    326007B3              LW,6     TIMETICK          GET COUNTER VALUE
     2049   01 00749    22C00008 A            LI,12    8                 ALL DIGITS
     2050   01 0074A    227066C8              LI,7     BA(TIMEMES+1)     TO ADDRESS
     2051   01 0074B    6AE00773              BAL,14   TXLATE            TRANSLATE IT
     2052   01 0074C    04E019B1              MTYPE    TIMEMES
     2053   01 0074D    E800074E              B        *TIMEX            WATCH IT
     2054   01 0074E                 TIMEX    RES      1
     2055                            *
     2056                            *        INDIRECT
     2057                            *          HANDELS M:TYPE,M:KETYIN
     2058                            *             INDIRECT FPT
     2059                            *
     2060   01 0074F    4B6007C8     INDIRECT AND,6    INADMASK          ADDRESS FIELD ONLY
     2061   01 00750    21600010 A            CI,6     X'10'             SEE IF IN REGS
     2062   01 00751    68100756              BGE      %+5               BRANCH IF NOT IN REGS
     2063   01 00752    3210061A              LW,1     RSTACK            CURRENT TOP OF STACK
     2064   01 00753    201FFFF1 A            AI,1     -15               DECREMENT TO BIOTTOM OF REGS
     2065   01 00754    B26C0001 A            LW,6     *1,6              GET WORD INDEX ON REG COUNT
     2066   01 00755    E800000F A            B        *15               RETURN FOR REG INDIRECT
     2067   01 00756    B2600006 A            LW,6     *6                GET WORD  INDIRECT IN CORE
     2068   01 00757    E800000F A            B        *15
     2069                            *
     2070                            *        COMMON TRAP HANDLER
     2071                            *        ENTERED WITH PSD IN R 2,3
     2072                            *
     2073   01 00758    35F0076A     TRAPS    STW,15   TRAPSR
     2074   01 00759    224FFFFF A            LI,4     -1                IN CASE THERE IS NONE
     2075   01 0075A    32500002 A            LW,5     2                 GET THE ADDRESS
     2076   01 0075B    4B5007C8              AND,5    INADMASK          JUST THE ADDRESS
     2077   01 0075C    315007CE              CW,5     MSIZE             WITHIN MEMORY?
     2078   01 0075D    6810075F              BGE      %+2               B,BAD ADDRESS
     2079   01 0075E    B2400005 A            LW,4     *5                GET THE DATA
     2080   01 0075F    02200030 A            LCI      3
     2081   01 00760    2B20078C              STM,2    TEMP              PUT EM INTO TEMP BUFFER
     2082   01 00761    22706428              LI,7     BA(TRAPMES)+12    TOO ADDRESS
     2083   01 00762    22200003 A            LI,2     3                 THREE WORDS TO
     2084   01 00763    6AF0076B              BAL,15   XLATTEMP          TRANSLATE AND PUT INTO MESSAGE
     2085   01 00764    E700076A              EXU      *TRAPSR           DO NEXT INSTRUCTION IN LINE
     2086   01 00765    552018FF              STH,2    TRAPHD+1          STORE TRAP HEAD NUMBER
     2087   01 00766    04E018FE              MTYPE    TRAPHD            TYPE HEADING
     2088   01 00767    04E01907              MTYPE    TRAPMES           TYPE TRAP DATA
     2089   01 00768    6AF00226              BAL,15   REGOUT            OUTPUT THE REGISTERS
     2090   01 00769    E800076A              B        *TRAPSR           AND EXIT
     2091   01 0076A                 TRAPSR   RES      1                 REGISTER SAVE
     2092                            *
     2093                            *        XLATTEMP
     2094                            *        TRANSLATES CONTENTS OF TEMP BUFFER
     2095                            *        ENTERED VIA:
     2096                            *        BAL,15   XLATTEMP
     2097                            *        WITH,
     2098                            *        REGISTER 2 = NUMBER OF WORDS TO BE TRANSLATED
     2099                            *        REGISTER 7 = BYTE ADDRESS OF START OF THE DESTINATION.
     2100                            *
     2101   01 0076B    22100000 A   XLATTEMP LI,1     0                 ZERO INDEX
     2102   01 0076C    3262078C              LW,6     TEMP,1            GET WORD TO BE CONVERTED
     2103   01 0076D    22C00008 A            LI,12    8                 COUNT OF EIGHT CHARACTERS
     2104   01 0076E    6AE00773              BAL,14   TXLATE            TRANSLATE IT
     2105   01 0076F    20700001 A            AI,7     1                 BUMP DESTINATION BYTE ADDRESS
     2106   01 00770    20100001 A            AI,1     1                 BUMP TEMP INDEX
     2107   01 00771    6420076C              BDR,2    XLATTEMP+1        NEXT WORD
     2108   01 00772    E800000F A            B        *15               RETURN FROM WHENCE
     2109                            *
     2110                            *        HEX TO EBCD
     2111                            *        R 12 = COUNT
     2112                            *        R 6 = WORD TO TXLATE
     2113                            *        R 7 = DESTINATION (BYTE)
     2114                            * REGS. USED 6,7,10,11,12
     2115   01 00773    32B00006 A   TXLATE   LW,11    6                 GET THE WORD
     2116   01 00774    22A00000 A            LI,10    0                 CLEAR OUT THE SHIFTER
     2117   01 00775    25A00104 A            SLD,10   4                 SHIFT U/I BYTE INTO 10
     2118   01 00776    21A0000A A            CI,10     10                    GRATER THAN 9 ?
     2119   01 00777    68100779              BGE      %+2               NO-BRANCH
     2120   01 00778    20A00039 A            AI,10    X'39'             BUMP TO MAKE REAL
     2121   01 00779    20A000B7 A            AI,10    X'B7'                 HEX THING
     2122   01 0077A    75AE0000 A            STB,10   0,7               STUFF IT
     2123   01 0077B    20700001 A            AI,7     1                 NEXT
     2124   01 0077C    64C00774              BDR,12   TXLATE+1          LOOP
     2125   01 0077D    E800000E A            B        *14               RETURN ALL DONDE
     2126                            *
     2127                            *
     2128                                     BOUND    8
     2129   01 0077E    00000000 A   MCDW     DATA     0,0               MAG TAPE CDW
            01 0077F    00000000 A
     2130   01 00780    030063E4     TOF      GEN,8,24 3,BA(FORMC)
     2131   01 00781    00000001 A            DATA     1
     2132                                     BOUND    8
     2133   01 00782    000000E8 A   YN       DATA     C'Y',C'N'         YES NO
            01 00783    000000D5 A
     2134   01 00784    000000D9 A   RC       DATA     C'R',C'C'         RECOVER/CRASH TEXT
            01 00785    000000C3 A
     2135   01 00786    000000F9 A   HEX1     DATA     C'9',C'0'         9-0
            01 00787    000000F0 A
     2136   01 00788    000000C6 A   HEX2     DATA     C'F',C'A'         F-A
            01 00789    000000C1 A
     2137   01 0078A    00001810     SAVERDW  DATA     BA(PSDSTACK),(((STACKSZ*2)+2)**26)+BA(END)
            01 0078B    58007940 N
     2138                                     BOUND    8
     2139   01 0078C                 TEMP     RES      32
     2140   01 007AC    00000000 A   TEMP46   DATA     0
     2141   01 007AD    00000000 A   IOSPUR   DATA     0                 SPURRIOUS I/O INT. COUNTER
     2142   01 007AE    00000000 A   COUNT1   DATA     0
     2143   01 007AF    00000000 A   COUNT2   DATA     0
     2144   01 007B0    00000000 A   COUNT3   DATA     0
     2145   01 007B1    00000000 A   COUNT4   DATA     0
     2146   01 007B2    0000000A A   TICKER   DATA     10
     2147   01 007B3    00000000 A   TIMETICK DATA     0
     2148   01 007B4    00000000 A   HOLDFLAG DATA     0
     2149   01 007B5    00000000 A   BMDATA   DATA     0                 BURST MODE FLAG
     2150   01 007B6    00000000 A   CMDATA   DATA     0                 CLOCK MARGIN FLAG
     2151   01 007B7    00000000 A   SELECTFL DATA     0
     2152   01 007B8    00000000 A   TRACK    DATA     0                 TRACK IOP FLAG
     2153   01 007B9    00000000 A   PHCNT    DATA     0
     2154   01 007BA    00000000 A   PHASE    DATA     0
     2155   01 007BB    00000000 A   PHASEDLY DATA     0                 TIMEOUT DELAY
     2156   01 007BC    0000AFC8 A   PHASTIME DATA     15000*3           DEFAULT TO 1.5 MIN.
     2157   01 007BD    00000000 A   PH1DLY   DATA     0                 PHASE ONE DELAY COUNT
     2158   01 007BE    00000000 A   PH2DLY   DATA     0                 PHASE 2 DELAY COUNT
     2159   01 007BF    00000000 A   PH3DLY   DATA     0                 PHASE 3 DELAY COUNT
     2160   01 007C0    00000000 A   GO1      DATA     0
     2161   01 007C1    00000000 A   GO2      DATA     0
     2162   01 007C2    00000000 A   GO3      DATA     0
     2163   01 007C3    00000000 A   GO4      DATA     0
     2164   01 007C4    00000000 A   SELECTDLY DATA    0                 SELECT SIO TIMEOUT VALUE
     2165   01 007C5    00000000 A   DEFER    DATA     0
     2166   01 007C6    00000000 A   SCATFLAG DATA     0
     2167   01 007C7    00000800 A   BUFSIZE  DATA     2048
     2168   01 007C8    0001FFFF A   INADMASK DATA     X'1FFFF'          INSTRUCTION ADDRESS MASK

        2*  01 007C9    003FFFFF A   ADMASK   DATA     MEMLIM-1          LWA MAXIMUM MEMORY              *H01

     2170   01 007CA    00001FFF A   IOMASK   DATA     X'1FFF'           I/O ADDRESS MASK
     2171   01 007CB    00000FFF A   IOPMASK  DATA     X'FFF'
     2172   01 007CC    12344321 A   FILLER   DATA     X'12344321'       FILLER
     2173   01 007CD    00001E50     FIRSTMEM DATA     END               FIRST USABLE MEMORY LOCATIONM
     2174   01 007CE    00000000 A   MSIZE    DATA     0                 MEMORY SIZE BEING USED BY EXEC
     2175   01 007CF    00000000 A   ABSMSIZE DATA     0                 ABSOLUTE MEMORY SIZE
     2176   01 007D0    00000002 A   LPADD    DATA     2
     2177   01 007D1    00000001 A   TTYADD   DATA     1                 TTY ADDR
     2178   01 007D2    00000000 A   FAULTS   DATA     0
     2179   01 007D3    00000000 A   HFSIZE   DATA     0                 KM SIZE
     2180   01 007D4    0000F00F A   SYSRST0  DATA     X'F00F'           HF 0 0 SYSTEM RESET
     2181   01 007D5    0000F20F A   SYSRST1  DATA     X'F20F'           HF 1 0 SYSTEM RESETTY1245.29
     2182   01 007D6    0000F040 A   RPSR     DATA     X'F040'           READ PSR
     2183   01 007D7    0000F800 A   RPIA     DATA     X'F800'           READ PIA
     2184   01 007D8    680000FE     IDLESTOP B        IDLE              STOP IAS INSTRUCTION
     2185   01 007D9    0000F000 A   RSAR     DATA     X'F000'           RESET PROCESSOR
     2186   01 007DA    0000F001 A   RSAR0    DATA     X'F001'           READ SAR FOR SYSTEM 0
     2187   01 007DB    0000F201 A   RSAR1    DATA     X'F201'           READ SAR FOR SYSTEM 1
     2188   01 007DC    00000001 A   X1       DATA     X'00000001'
     2189   01 007DD    00000002 A   X2       DATA     X'00000002'
     2190   01 007DE    00000003 A   X3       DATA     X'00000003'
     2191   01 007DF    00000004 A   X4       DATA     X'00000004'
     2192   01 007E0    00000007 A   X7       DATA     X'00000007'
     2193   01 007E1    00000008 A   X8       DATA     X'00000008'
     2194   01 007E2    0000000F A   XF       DATA     X'0000000F'
     2195   01 007E3    00000010 A   X10      DATA     X'00000010'
     2196   01 007E4    0000007F A   X7F      DATA     X'0000007F'
     2197   01 007E5    000000FF A   XFF      DATA     X'000000FF'
     2198   01 007E6    00000FFF A   XFFF     DATA     X'00000FFF'
     2199   01 007E7    00000FE0 A   XFE0     DATA     X'00000FE0'
     2200   01 007E8    000001E0 A   X1E0     DATA     X'000001E0'
     2201   01 007E9    00001E00 A   X1E00    DATA     X'00001E00'
     2202   01 007EA    00001F00 A   X1F00    DATA     X'00001F00'
     2203   01 007EB    00040000 A   X40000   DATA     X'00040000'
     2204   01 007EC    000E0000 A   XE0000   DATA     X'000E0000'
     2205   01 007ED    00FFC000 A   XFFC000  DATA     X'00FFC000'
     2206   01 007EE    00FFF000 A   XFFF000  DATA     X'00FFF000'
     2207   01 007EF    00FFFFFF A   X6F      DATA     X'00FFFFFF'
     2208   01 007F0    FF000000 A   XB0M1    DATA     X'FF000000'
     2209   01 007F1    00FF0000 A   XB1M1    DATA     X'00FF0000'
     2210   01 007F2    0000FF00 A   XB2M1    DATA     X'0000FF00'
     2211   01 007F3    000000FF A   XB3M1    DATA     X'000000FF'
     2212   01 007F4    07000000 A   XD17     DATA     X'07000000'
     2213   01 007F5    70000000 A   XD07     DATA     X'70000000'
     2214   01 007F6    02000000 A   H02      DATA     X'02000000'
     2215   01 007F7    04000000 A   H04      DATA     X'04000000'
     2216   01 007F8    00400000 A   H004     DATA     X'00400000'
     2217   01 007F9    08000000 A   H08      DATA     X'08000000'
     2218   01 007FA    10000000 A   H1       DATA     X'10000000'
     2219   01 007FB    40000000 A   H4       DATA     X'40000000'
     2220   01 007FC    46000000 A   H46      DATA     X'46000000'
     2221   01 007FD    F7000000 A   HF7      DATA     X'F7000000'
     2222   01 007FE    7FFFFFFF A   X7FS     DATA     X'7FFFFFFF'
     2223   01 007FF    80000000 A   H8       DATA     X'80000000'
     2224   01 00800    82000000 A   H82      DATA     X'82000000'
     2225   01 00801    82FFFFFF A   H82FS    DATA     X'82FFFFFF'
     2226   01 00802    C0000000 A   HC       DATA     X'C0000000'
     2227   01 00803    FC000000 A   HFC      DATA     X'FC000000'
     2228   01 00804    FFF80000 A   HFFF8    DATA     X'FFF80000'
     2229   01 00805    00A00000 A   RSTAKW   DATA     (STACKSZ*16)**16
     2230   01 00806    00140000 A   PSTAKW   DATA     (STACKSZ*2)**16
     2231   01 00807    000A0000 A   CSTAKW   DATA     STACKSZ**16
     2232                            *
     2233   01 00808    0F0005E0     5DINT    XPSD,0   PUSHS             SAVE ALL
     2234   01 00809    020000B6              NOP      INT5D
     2235   01 0080A    32300E66              LW,3     HSUSP             SUSPEND THE HF
     2236   01 0080B    6AE009EF              BAL,14   HFSTRT            SHUT THE HF DOWN FOR A MINUTE
     2237   01 0080C    224FFF7F A   REGET    LI,4     RPLYS             INPUT BUFFER SIZE
     2238   01 0080D    75400868              STB,4    RPLY
     2239   01 0080E    04E019BC              MTYPE    CONMSG
     2240   01 0080F    04F00868              MINKEY   RPLY
     2241   01 00810    6A70081A              BAL,7    MYINPUT           GET INPUT
     2242   01 00811    68000814              B        GETOUT
     2243   01 00812    6800080C              B        REGET             GET AGAIN
     2244   01 00813    0F000864              XPSD,0   GODW
     2245   01 00814    6D000037 A   GETOUT   INHIB                      EVERYOUE OFF
     2246   01 00815    22100010 A            LI,1     16                REARM AND ENABLE
     2247   01 00816    6D101200 A            WD,1     X'1200'           CONSOLE INTERRUPT
     2248   01 00817    32300E67              LW,3     HACTV             ACTIVATE THE HF
     2249   01 00818    6AE009EF              BAL,14   HFSTRT            RESTART IT
     2250   01 00819    0F0005F6              XPSD,0   PULLS             EXIT
     2251                            *
1 C00   20:35 JUN 20,'83    COMMAND HANDLERS                                                      PAGE   10
A    2253                            *        MYINPUT
     2254                            *        COMMON KEYIN ROUTINE IS USED BY CONSOLE INRERRUPT
     2255                            *
     2256   01 0081A    221FFFE0 A   MYINPUT  LI,1     -VALBL            SIZE
     2257   01 0081B    320007CC              LW,0     FILLER            FILLER
     2258   01 0081C    350208F2              STW,0    VALB+VALBL,1      FILL IT UP
     2259   01 0081D    6510081C              BIR,1    %-1               FILL IT ALL UP
     2260   01 0081E    72600868              LB,6     RPLY              GET INPUT COUNT
     2261   01 0081F    21600001 A            CI,6     1                 ONE CHARACTER INPUT?
     2262   01 00820    683E0000 A            BE       0,7               YES,FORGET IT,HE MUST WANT OUT
     2263   01 00821    720C0868              LB,0     RPLY,6            GET TERMINATION CHARACTER
     2264   01 00822    21000008 A            CI,0     8                 EOM
     2265   01 00823    683E0001 A            BE       1,7               YOU BET
     2266   01 00824    21000015 A            CI,0     X'15'             NEWLINE
     2267   01 00825    68300827              BE       %+2               YEP
     2268   01 00826    68000860              B        INVPAR            OVERFLOWED
     2269   01 00827    206FFFFF A            AI,6     -1                WHAT CAME BEFORE C/R?
     2270   01 00828    720C0868              LB,0     RPLY,6            GET CHAR RITE BEFORE C/R
     2271   01 00829    21000060 A            CI,0     X'60'             IS IT A DASH?
     2272   01 0082A    683E0001 A            BE       1,7               GET NEW INPUT
     2273   01 0082B    20600001 A            AI,6     1                 RESTORE COUNT
     2274   01 0082C    22D04040 A            LI,13    X'4040'           GET READY
     2275   01 0082D    22100001 A            LI,1     1                 BYTE INDEX
     2276   01 0082E    72C20868     CLOAD    LB,12    RPLY,1            GET COMMAND BYTES
     2277   01 0082F    33100001 A            MTW,1    1                 BUMP THE INDEX
     2278   01 00830    21C00040 A            CI,12    C' '              SPACE DELIMITER
     2279   01 00831    68300837              BE       CSCAN             YEP
     2280   01 00832    25C00018 A            SLS,12   24                POSITION
     2281   01 00833    25C00308 A            SCD,12   8                 INTO 13
     2282   01 00834    31100006 A            CW,1     6                 DONE
     2283   01 00835    68100837              BGE      CSCAN             YEP
     2284   01 00836    6800082E              B        CLOAD             GET THE NEXT ONE
     2285   01 00837    222FFFDB A   CSCAN    LI,2     -CTL              COMMAND TABLE LENGTH
     2286   01 00838    31D408AD              CW,13    CTABL+CTL,2       FIND COMMAND
     2287   01 00839    6830083C              BE       %+3               THATS IT
     2288   01 0083A    65200838              BIR,2    %-2               TRY AGAIN
     2289   01 0083B    6800085E              B        COMERR            NOT HERE
     2290   01 0083C    328408D2              LW,8     ADTAB+CTL,2       GET THE GO ADDRESS
     2291   01 0083D    35800866              STW,8    GODW+2            SET UP DOUBLE WORD
     2292   01 0083E    31100006 A            CW,1     6                 ARE THERE ANY PARAMETERS FOLLOWING
     2293   01 0083F    681E0002 A            BGE      2,7               NONE GET OUT
     2294   01 00840    22200000 A            LI,2     0                 VALB INDEX
     2295   01 00841    22E00000 A   PLOOP1   LI,14    0                 LAST CHARACTER WAS A DELIMITER
     2296   01 00842    22D00000 A            LI,13    0                 CLEAR IT OUT
     2297   01 00843    72C20868     PLOOP2   LB,12    RPLY,1            GET THE BYTE
     2298   01 00844    33100001 A            MTW,1    1                 BUMP THE INDEX
     2299   01 00845    21C00040 A            CI,12    C' '              SPACE DELIMITER
     2300   01 00846    68300855              BE       VALST             YEP
     2301   01 00847    20E00001 A            AI,14    1                 SET NOT DELIMITER
     2302   01 00848    19C00786              CLM,12   HEX1              9-0
     2303   01 00849    6860084D              BCR,6    UNDER             YEP
     2304   01 0084A    19C00788              CLM,12   HEX2              A-F
     2305   01 0084B    69600852              BCS,6    NOTHEX
     2306   01 0084C    20C00039 A            AI,12    X'39'             MAKE IT RIGHT
     2307   01 0084D    25C0001C A   UNDER    SLS,12   28                PUT IT IN
     2308   01 0084E    25C00304 A            SCD,12   4                 ASSEMBLY REG
     2309   01 0084F    31100006 A   LOOKP    CW,1     6                 DONE YET
     2310   01 00850    68100855              BGE      VALST             LOOKS LIKE IT
     2311   01 00851    68000843              B        PLOOP2            GET NEXT CHAR
     2312   01 00852    25C00018 A   NOTHEX   SLS,12   24                PUT IT IN
     2313   01 00853    25C00308 A            SCD,12   8                 ASSEMBLY REG
     2314   01 00854    6800084F              B        LOOKP             LOOK FOR END
     2315   01 00855    21E00000 A   VALST    CI,14    0                 IS THIS ANOTHER DELIMITER
     2316   01 00856    68300859              BEZ      %+3               YES, DONT STORE OR BUMP ADDRESS
     2317   01 00857    35D408D2              STW,13   VALB,2            PIT IT AWAY
     2318   01 00858    33100002 A            MTW,1    2                 BUMP THE VALB INDEX
     2319   01 00859    31100006 A            CW,1     6                 DONE YET
     2320   01 0085A    681E0002 A            BGE      2,7               GODOIT
     2321   01 0085B    21200020 A            CI,2     VALBL             PARAMETER TABLE FULL
     2322   01 0085C    68300860              BE       INVPAR            SURE IS THATS A BOBO
     2323   01 0085D    68000841              B        PLOOP1            GET THE NEXT ONE
     2324   01 0085E    04E019B7     COMERR   MTYPE    COMMES            NO SUCH COMMAND
     2325   01 0085F    680E0001 A            B        1,7               GETOUT
     2326   01 00860    04E019BD     INVPAR   MTYPE    BADPAR            PARAMETER OVERFLOW
     2327   01 00861    680E0001 A            B        1,7               GETOUT
     2328   01 00862                 SAVEF    RES      1
     2329   01 00866    00000000 A   GODW     PSD      0,0,7,REABIT
                        07800000
     2330   01 00868                 RPLY     RES      32
     2331         FFFFFF7F           RPLYS    EQU      BA(RPLY)-BA(%)-1
     2332         01 00888           CTABL    EQU      %                 COMMAND TABLE
     2333   01 00888    40C1C4C4 A            DATA     C' ADD'           ADD IOP TO TABLEW
     2334   01 00889    4040C2D4 A            DATA     C'  BM'
     2335   01 0088A    C3D6D4D7 A            DATA     C'COMP'           COMPARE
     2336   01 0088B    C3D6D5C6 A            DATA     C'CONF'           RECONFIGURE IOPS
     2337   01 0088C    C3D6D9C5 A            DATA     'CORE'            CORE
     2338   01 0088D    C4D3C1E8 A            DATA     C'DLAY'           DELAY
     2339   01 0088E    C4E4D4D7 A            DATA     C'DUMP'           DUMP
     2340   01 0088F    C6D9C5C5 A            DATA     C'FREE'           FREE BUFFER
     2341   01 00890    4040C7D6 A            DATA     C'  GO'           START THE TEST
     2342   01 00891    40C8C5E7 A            DATA     C' HEX'           HEX ARITMETIC
     2343   01 00892    C8C1D3E3 A            DATA     C'HALT'           STOP THE TEST
     2344   01 00893    40C8C9D6 A            DATA     C' HIO'           HIO
     2345   01 00894    C8D6D3C4 A            DATA     C'HOLD'           HOLD
     2346   01 00895    40C8E3C5 A            DATA     C' HTE'           HTE FLAG FOR IOCD
     2347   01 00896    C9D6D7C4 A            DATA     C'IOPD'           DISPLAY IOP REGISTERS
     2348   01 00897    D3C9E2E3 A            DATA     C'LIST'           LIST
     2349   01 00898    40D3D4E2 A            DATA     C' LMS'           LMS INSTRUCTION
     2350   01 00899    4040D3D7 A            DATA     C'  LP'           CHANGE LINE PRINTER ADDRESS
     2351   01 0089A    4040D9C4 A            DATA     C'  RD'           READ DIRECT
     2352   01 0089B    40D9C5D4 A            DATA     C' REM'           REMOVE
     2353   01 0089C    D9C5D7D3 A            DATA     C'REPL'           REPLACE
     2354   01 0089D    E2C5C1D9 A            DATA     C'SEAR'           SEARCH
     2355   01 0089E    40E2C5D3 A            DATA     C' SEL'           SELECT
     2356   01 0089F    40E2C9D6 A            DATA     C' SIO'           SIO
     2357   01 008A0    E2C9E9C5 A            DATA     C'SIZE'           BUFFER SIZE
     2358   01 008A1    40E3C4E5 A            DATA     C' TDV'           TDV
     2359   01 008A2    E3C5E2E3 A            DATA     C'TEST'           TEST HF BUFFERS
     2360   01 008A3    E3C9C3D2 A            DATA     'TICK'            SIO TIMEOUT SELECT
     2361   01 008A4    40E3C9D6 A            DATA     C' TIO'           TIO
     2362   01 008A5    E3C9D4C5 A            DATA     C'TIME'           PHASE TIME
     2363   01 008A6    E3D9C1D2 A            DATA     C'TRAK'           TRACK BUFFERS
     2364   01 008A7    E3E8D7C5 A            DATA     C'TYPE'           TYPE
     2365   01 008A8    4040E6C4 A            DATA     C'  WD'           WRIT DIRECT
     2366   01 008A9    40C6C1D4 A            DATA     C' FAM'           FAM REGISTER TEST
     2367   01 008AA    4040C3D4 A            DATA     C'  CM'           CLOCK MARGIN CONTROL
     2368   01 008AB    D3D6D6D2 A            DATA     'LOOK'            HF CONTROL REGS
     2369   01 008AC    E2C9D5E3 A            DATA     C'SINT'
     2370         00000025           CTL      EQU      %-CTABL           COMMAND TABLE SIZE
     2371         01 008AD           ADTAB    EQU      %
     2372   01 008AD    00000904              DATA     ADD
     2373   01 008AE    0000093E              DATA     BURST
     2374   01 008AF    0000094A              DATA     COMPARE
     2375   01 008B0    00000960              DATA     CONFIGURE
     2376   01 008B1    0000096E              DATA     CORE
     2377   01 008B2    000009E9              DATA     DELAY
     2378   01 008B3    00000A51              DATA     DUMP
     2379   01 008B4    00000D4D              DATA     FREEBUF
     2380   01 008B5    00000A6F              DATA     GO
     2381   01 008B6    000018E2              DATA     HEX
     2382   01 008B7    000009FA              DATA     HEXIT
     2383   01 008B8    00000AD0              DATA     HIO
     2384   01 008B9    00000AB1              DATA     HOLD
     2385   01 008BA    00000AB4              DATA     HTE
     2386   01 008BB    00000D5F              DATA     READIOP
     2387   01 008BC    00000DA6              DATA     LIST
     2388   01 008BD    00000BE6              DATA     LMS
     2389   01 008BE    00000BDB              DATA     LP
     2390   01 008BF    00000C6F              DATA     RDIRECT
     2391   01 008C0    00000C1F              DATA     REMOVE
     2392   01 008C1    00000C98              DATA     REPLACE
     2393   01 008C2    00000CD5              DATA     SEARCH
     2394   01 008C3    00000CDD              DATA     SELECT
     2395   01 008C4    00000AC2              DATA     SIO
     2396   01 008C5    00000D17              DATA     SETSIZE
     2397   01 008C6    00000AD2              DATA     TDV
     2398   01 008C7    00000D3D              DATA     TEST
     2399   01 008C8    00000D26              DATA     TICK
     2400   01 008C9    00000AD4              DATA     TIO
     2401   01 008CA    00000D67              DATA     PHASETIME
     2402   01 008CB    00000D2C              DATA     TRACKBUF
     2403   01 008CC    00000A01              DATA     TYPER
     2404   01 008CD    00000C79              DATA     WDIRECT
     2405   01 008CE    0000180B              DATA     FAM
     2406   01 008CF    00000944              DATA     CM
     2407   01 008D0    00000E0E              DATA     LOOK
     2408   01 008D1    00000D1E              DATA     SINT
     2409   01 008D2                 VALB     RES      32
     2410         00000020           VALBL    EQU      %-VALB            BUFFER SIZE
     2411   01 008F2    221000F0 A   SERROR0  LI,1     C'0'              PARAMETER 0
     2412   01 008F3    68000900              B        SERROR
     2413   01 008F4    221000F1 A   SERROR1  LI,1     C'1'              PARAMETER 1
     2414   01 008F5    68000900              B        SERROR                                                16-19-72
     2415   01 008F6    221000F2 A   SERROR2  LI,1     C'2'              PARAMETER 2
     2416   01 008F7    68000900              B        SERROR                                                16-19-72
     2417   01 008F8    221000F3 A   SERROR3  LI,1     C'3'              PARAMETER 3
     2418   01 008F9    68000900              B        SERROR                                                16-19-72
     2419   01 008FA    221000F4 A   SERROR4  LI,1     C'4'              PARAMETER 4
     2420   01 008FB    68000900              B        SERROR                                                16-19-72
     2421   01 008FC    221000F5 A   SERROR5  LI,1     C'5'              PARAMETER 5
     2422   01 008FD    68000900              B        SERROR                                                16-19-72
     2423   01 008FE    221000F6 A   SERROR6  LI,1     C'6'              PARAMETER 6
     2424   01 008FF    68000900              B        SERROR                                                16-19-72
     2425   01 00900    2220000D A   SERROR   LI,2     13                INDEX
     2426   01 00901    751419C4              STB,1    SERM,2            NUMBER INTO MESSAGE
     2427   01 00902    04E019C4              MTYPE    SERM              TYPE PARAMETER ERROR MESSAGE
     2428   01 00903    6800095C              B        CREXIT            EXIT
     2429                            *
     2430                            *
     2431   01 00904    224FFFE0 A   ADD      LI,4     -32               INDEX
     2432   01 00905    325808F2              LW,5     VALB+32,4         GET INPUT
     2433   01 00906    31500C6E              CW,5     HFTEX             ARE WE AFTER HF'S?
     2434   01 00907    6830091F              BE       ADDHF             YEP
     2435   01 00908    31500C6C              CW,5     ODDTEX            GET ODD IOPS ONLY
     2436   01 00909    6930090C              BNE      %+3               NOPE
     2437   01 0090A    22500001 A            LI,5     1                 STAR WITH IOP ONE
     2438   01 0090B    6800090F              B        DOADD             GET THEM IN THE TABLE
     2439   01 0090C    31500C6D              CW,5     ENVTEX            COULD BE EVEN IOPS
     2440   01 0090D    69300917              BNE      ADDA-2            NEITHER
     2441   01 0090E    22500000 A            LI,5     0                 YEP,STAT WITH ZERO
     2442   01 0090F    320A0F22     DOADD    LW,0     IOPTABLA,5        GET IT
     2443   01 00910    350A0F42              STW,0    IOPTABLB,5        STORE IT IN TABLE B
     2444   01 00911    20500002 A            AI,5     2                 GET THE NEXT ONE
     2445   01 00912    2150001B A            CI,5     27                OUT OF IOPS?
     2446   01 00913    6820090F              BLE      DOADD             DO IT AGAIN
     2447   01 00914    4B5007DC              AND,5    X1                CHECK BIT 31
     2448   01 00915    68300C2A              BCR,3    REMODD            REMOVE THE ODD IOPS
     2449   01 00916    69200C2E              BCS,2    REMEVN            REMOVE THE EVEN IOPS
     2450   01 00917    315007CC              CW,5     FILLER            DONE?
     2451   01 00918    683009FA              BE       HEXIT             B,YES
     2452   01 00919    2150001B A   ADDA     CI,5     27                VALID IOP ?
     2453   01 0091A    69200C3E              BG       REMOVED           B,NO
     2454   01 0091B    320A0F22              LW,0     IOPTABLA,5        DOES IT EXIST?
     2455   01 0091C    350A0F42              STW,0    IOPTABLB,5        MOVE IT TO TABLE B
     2456   01 0091D    65400905              BIR,4    ADD+1             LOOP
     2457   01 0091E    680009FA              B        HEXIT             EXIT
     2458   01 0091F    325008D3     ADDHF    LW,5     VALB+1            GET THE NEXT PARAMETER
     2459   01 00920    315007CC              CW,5     FILLER            IF ANY
     2460   01 00921    683008F4              BE       SERROR1           MUST BE A MISTAKE
     2461   01 00922    35500007 A            STW,5    7                 HOLD IT FOR A WHILE
     2462   01 00923    326008D4              LW,6     VALB+2            THIS MUST BE THE PROCESSOR
     2463   01 00924    316007CC              CW,6     FILLER            I HOPE
     2464   01 00925    69300926              BNE      %+1               IT IS
     2465   01 00926    22600001 A            LI,6     1                 DEFAULT TO ONE PROCESSOR
     2466   01 00927    25700010 A            SLS,7    16                MOVE SYSTEM NUMBER TO UPPER HALFWORD
     2467   01 00928    49600007 A            OR,6     7                 MERGE SYSTEM AND PROCESSORS
     2468   01 00929    320A0F3E              LW,0     HFTABLA,5         GET THE INFO NEEDED
     2469   01 0092A    350A0F5E              STW,0    HFTABLB,5
     2470   01 0092B    680009FA              B        HEXIT             GET OUT
     2471                            *
     2472                            *        COMPUTES A STARTING ADDRESS AND WORD COUNT FROM
     2473                            *        ENTRIES IN VALB AND VALB+1.
     2474                            *        ENTERED VIA BAL,15   GETADVAL.
     2475                            *        RETURNS WITH STARTING ADDRESS IN R2.
     2476                            *        AND COUNT IN R1
     2477                            *
     2478   01 0092C    322008D2     GETADVAL LW,2     VALB              GET STARTING ADDRESS
     2479   01 0092D    312007CC              CW,2     FILLER            IS THERE ONE
     2480   01 0092E    683008F4              BE       SERROR1           NOPE, REPORT IT
     2481   01 0092F    4B2007C9              AND,2    ADMASK            ADDRESS FIELD ONLY
     2482   01 00930    312007CF              CW,2     ABSMSIZE          WITHIN MEMORY?
     2483   01 00931    681008F4              BGE      SERROR1           OUTSIDE, ERROR
     2484   01 00932    321008D3              LW,1     VALB+1            GET ENDING ADDRESS
     2485   01 00933    311007CC              CW,1     FILLER            WAS THERE ONE
     2486   01 00934    69300936              BNE      %+2               YES
     2487   01 00935    32100002 A            LW,1     2                 GET THE STARTING ADDRESS
     2488   01 00936    4B1007C9              AND,1    ADMASK            ADDRESS FIELD ONLY
     2489   01 00937    311007CF              CW,1     ABSMSIZE          WITHIN MEMORY?
     2490   01 00938    6910093B              BL       %+3               YES
     2491   01 00939    321007CF              LW,1     ABSMSIZE          USE ABSOLUTE MEMORY SIZE IF NOT
     2492   01 0093A    33F00001 A            MTW,-1   1                 MINUS ONE
     2493   01 0093B    38100002 A            SW,1     2                 MAKE IT A WORD COUNT
     2494   01 0093C    691008F6              BLZ      SERROR2           START MUST BE TOO BIG
     2495   01 0093D    E800000F A            B        *15               RETURN
     2496                            *
     2497                            *
     2498   01 0093E    22000000 A   BURST    LI,0     0
     2499   01 0093F    321008D2              LW,1     VALB              A REQUEST?
     2500   01 00940    68300942              BEZ      %+2               CLEAR
     2501   01 00941    22000800 A            LI,0     X'800'            SET IT
     2502   01 00942    350007B5              STW,0    BMDATA            INTOP FLAG
     2503   01 00943    6800095C              B        CREXIT
     2504                            *
     2505                            *
     2506   01 00944    22000000 A   CM       LI,0     0                 ASSUME NO CLOCK MARGINS
     2507   01 00945    321008D2              LW,1     VALB              LET'S CHECK
     2508   01 00946    68300948              BEZ      %+2               NOPE
     2509   01 00947    320007F8              LW,0     H004              THIS BIT TURNS IT ON
     2510   01 00948    350007B6              STW,0    CMDATA            PUT IT AWAY
     2511   01 00949    6800095C              B        CREXIT            LET'S GO BACK
     2512                            *
     2513                            *
     2514   01 0094A    6AF0092C     COMPARE  BAL,15   GETADVAL
     2515   01 0094B    22000001 A            LI,0     1                 SET OUTPUT DEVICE TO TTY            GC032277
     2516   01 0094C    35000A6E              STW,0    DUFLAG                                                GC032277
     2517   01 0094D    351008D6              STW,1    VALB+4            SAVE THE COUNT                      GC032277
     2518   01 0094E    324008D4              LW,4     VALB+2            VET THE VALUE
     2519   01 0094F    325008D5              LW,5     VALB+3            GET MASK
     2520   01 00950    315007CC              CW,5     FILLER            WAS THERE A MASK INPUT?
     2521   01 00951    69300953              BNE      COLOOP            B,YES
     2522   01 00952    225FFFFF A            LI,5     -1                DEFAULT TO ALL ONES
     2523   01 00953    C5400002 A   COLOOP   CS,4     *2                COMPARE IT
     2524   01 00954    68300959              BE       COEQ              EQUALITY
     2525   01 00955    33100002 A   COLOOPC  MTW,1    2                 NEXT ADDRESS
     2526   01 00956    33F008D6              MTW,-1   VALB+4            DOWN THE COUNT                      GC032277
     2527   01 00957    6910095C              BLZ      CODONE            ALL DONE
     2528   01 00958    68000953              B        COLOOP            NEXT
     2529   01 00959    22100000 A   COEQ     LI,1     0                 ONE WORD ONLY
     2530   01 0095A    6AF00A06              BAL,15   DILOOP1           PRINT IT
     2531   01 0095B    68000955              B        COLOOPC           CONTINUE
     2532         01 0095C           CODONE   EQU      %
     2533   01 0095C    04E01990     CREXIT   MTYPE    HRCR              CARRIAGE RETURN
     2534   01 0095D    32300E67              LW,3     HACTV             ACTIVATE COMMAND
     2535   01 0095E    6AE009EF              BAL,14   HFSTRT            RESTART THE THING
     2536   01 0095F    0E000864              LPSD,0   GODW              EXIT EXIT
     2537                            *
     2538                            *
     2539   01 00960    6AF002A3     CONFIGURE BAL,15  HIOPOLL           TURN EM ALL OFF
     2540   01 00961    6AF0144A              BAL,15   RESTCDW           RESET COMMAND LISTS
     2541   01 00962    6AF00EE9              BAL,15   FINDIOP           GET THE IOPS
     2542   01 00963    6AF00E00              BAL,15   LISTIOP           AND LIST EM
     2543   01 00964    6AF00ECB              BAL,15   FINDHF            GET THE HF'S PRESENT
     2544   01 00965    223FFFFC A            LI,3     -4                INDEX FOR HF'S
     2545   01 00966    32260F42              LW,2     HFTABLA+4,3       GET INFO FROM TABLE A
     2546   01 00967    35260F62              STW,2    HFTABLB+4,3       PUT IT IN TABLE B
     2547   01 00968    65300966              BIR,3    %-2               DO ITLL DONE
     2548   01 00969    6AF00EBC              BAL,15   LISTHF            AND LIST THEM
     2549   01 0096A    22000000 A            LI,0     0
     2550   01 0096B    350007B7              STW,0    SELECTFL          CLEAR SELECTED FLAG
     2551   01 0096C    350007B4              STW,0    HOLDFLAG          CLEAR HOLD MODE
     2552   01 0096D    680009FA              B        HEXIT             AND
     2553                            *
     2554                            *
     2555   01 0096E                 CORE     RES      0
     2556   01 0096E    32300040 A            LW,3     C2B               GET CURRENT XPSD
     2557   01 0096F    353009E8              STW,3    SAVE40            AND SAVE FOR A MINUTE
     2558   01 00970    321008D2              LW,1     VALB              GET NEW VALUE
     2559   01 00971    69300974              BNEZ     %+3               B,NOT ZERO
     2560   01 00972    22101E50              LI,1     END               DEFAULT TO END IF ZERO
     2561   01 00973    68000982              B        CORELOW           AND GO ON
     2562   01 00974    311009E6              CW,1     CORTEXT           WANT TO RECONFIGURE MEM ?
     2563   01 00975    68300995              BE       COR1              FIND NEW SIZE THEN
     2564   01 00976    311009E7              CW,1     CRDRTXT           LIST MEMORY ?
     2565   01 00977    683009BE              BE       COREQ             B,YES
     2566   01 00978    21101E50              CI,1     END               IS IT END?
     2567   01 00979    68300982              BE       CORELOW           B,ITS OK
     2568   01 0097A    311007CC              CW,1     FILLER            WAS THERE ONE
     2569   01 0097B    683009A4              BE       CORED             DISPLAY IT
     2570   01 0097C    4B1007ED              AND,1    XFFC000           REMOVE ANY FUNNY BITS
     2571   01 0097D    6930097F              BNEZ     %+2               OK NMOT ZERO
     2572   01 0097E    22104000 A            LI,1     X'4000'           DEFAULT TO 16K IF
     2573   01 0097F    311007CF              CW,1     ABSMSIZE          IS THE REQUEST FOR MORE THAN POSSIBL
     2574   01 00980    68200982              BLE      %+2               BRANCH OK
     2575   01 00981    680008F4              B        SERROR1           ERROR
     2576   01 00982    6AF0144A     CORELOW  BAL,15       RESTCDW           RESTORE CDW LISTS
     2577   01 00983    322008D3              LW,2     VALB+1            GET UPER
     2578   01 00984    683008F6              BEZ      SERROR2           TO BAD
     2579   01 00985    312007CC              CW,2     FILLER            WAS THERE ONE?
     2580   01 00986    69300989              BNE      %+3               B,THERE WAS ONE
     2581   01 00987    351007CD              STW,1    FIRSTMEM          SET UP NEW FIRSTMEM
     2582   01 00988    680009A4              B        CORED             EXIT
     2583   01 00989    4B2007ED              AND,2    XFFC000           REMOVE ANY FUNNY STUFF
     2584   01 0098A    683008F6              BEZ      SERROR2           THATS NO GOOD
     2585   01 0098B    31200001 A            CW,2     1                 IS IT LARGER THAN START
     2586   01 0098C    691008F6              BL       SERROR2           THAT AIN'T RIGHT
     2587   01 0098D    351007CD              STW,1    FIRSTMEM          PUT IN LOW MEMORY ADDRESS
     2588   01 0098E    352007CE              STW,2    MSIZE             SAVE IT
     2589   01 0098F    202FFFFF A            AI,2     -1                DOWN ONE
     2590   01 00990    323009E4              LW,3     CORTST            NEW XPSD FOR TRAP40
     2591   01 00991    46300040 A            XW,3     C2B
     2592   01 00992    B2000002 A            LW,0     *2                TEST NEW END OF MEMEORY
     2593   01 00993    352007CE              STW,2    MSIZE             STORE NEW SIZE
     2594   01 00994    680009A4              B        CORED             TELL HIM IT'S GOOD
     2595   01 00995    324009E5     COR1     LW,4     CORTST1           LET'S SCAN FOR MEMORY SIZE
     2596   01 00996    46400040 A            XW,4     C2B               PUT HIM IN TRAP 40
     2597   01 00997    22201E50              LI,2     END               LETS GET END OF PROGRAM
     2598   01 00998    352007CD              STW,2    FIRSTMEM          THAT'S THE LOWER MEM LIMIT
     2599                            *
     2600   01 00999    22204000 A   COR3     LI,2     X'4000'           START WITH M1B
     2601   01 0099A    B2000002 A            LW,0     *2                IS IT THERE?
     2602   01 0099B    20204000 A            AI,2     X'4000'           NEXT DOOR PLEASE
     2603   01 0099C    312007C9              CW,2     ADMASK            MAX MEMORY
     2604   01 0099D    6820099A              BLE      COR3+1            WELL,TRY AGAIN
     2605   01 0099E    202FFFFF A   COR2     AI,2     -1                MAKE IT THE REAL ADDRESS
     2606   01 0099F    352007CE              STW,2    MSIZE             PUT IT AWAY
     2607   01 009A0    352007CF              STW,2    ABSMSIZE          SAVE IT TOO
     2608   01 009A1    323009E8              LW,3     SAVE40            REGET CORRECT XPSD
     2609   01 009A2    35300040 A            STW,3    C2B               RETORE 40
     2610   01 009A3    04E01AC5              MTYPE    NUCORE            NOW THE GOOD NEWS
     2611                            *
     2612   01 009A4    326007CD     CORED    LW,6     FIRSTMEM          GET MSIZE
     2613   01 009A5    25600008 A            SLS,6    8                 POSITION IT
     2614   01 009A6    22C00006 A            LI,12    6                 COUNT
     2615   01 009A7    227066B6              LI,7     BA(CORESZM)+14    MESSAGE ADDRESS
     2616   01 009A8    6AE00773              BAL,14   TXLATE            TRANSLATE IT
     2617   01 009A9    20700001 A            AI,7     1                 NEXT BYTE
     2618   01 009AA    326007CE              LW,6     MSIZE
     2619   01 009AB    25600008 A            SLS,6    8                 POSITION
     2620   01 009AC    22C00006 A            LI,12    6                 COUNT
     2621   01 009AD    6AE00773              BAL,14   TXLATE            GO TRANSLATE IT
     2622   01 009AE    04E019AA              MTYPE    CORESZM           TYPE CORE SIZE MESSAGE
     2623   01 009AF    2277F000 A            LI,7     X'7F000'          MASK
     2624   01 009B0    4A7007CD              LS,7     FIRSTMEM          START OF MEMORY
     2625   01 009B1    2257F000 A            LI,5     X'7F000'
     2626   01 009B2    4A5007CE              LS,5     MSIZE             END OF MEMORY
     2627   01 009B3    38500007 A            SW,5     7                 COMPUTE THE DIFFERENCE
     2628   01 009B4    25500074 A            SLS,5    -12               POSITION IT TO LOW END
     2629   01 009B5    35500007 A            STW,5    7                 SAVE IT
     2630   01 009B6    23500028 A            MI,5     40
     2631   01 009B7    355007BF              STW,5    PH3DLY            PHASE THREE DELAY TIME
     2632   01 009B8    32500007 A            LW,5     7
     2633   01 009B9    235000EB A            MI,5     235
     2634   01 009BA    355007BE              STW,5    PH2DLY            PHASE TWO DELAY TIME
     2635   01 009BB    2370009C A            MI,7     156
     2636   01 009BC    357007BD              STW,7    PH1DLY            PHASE ONE DELAY TIME
     2637   01 009BD    680009FA              B        HEXIT             COMMON EXIT
     2638   01 009BE                 COREQ    RES      0
     2639   01 009BE    04E01AB1              MTYPE    UNITEXT1          TY
     2640   01 009BF    22600000 A            LI,6     0                 AND FOR YOU TOO
     2641   01 009C0    3560078C     COREQ1   STW,6    TEMP              SAVE FOR A MINUTE
     2642   01 009C1    2560000C A            SLS,6    12                MOVE FOR PRINTING
     2643   01 009C2    22C00005 A            LI,12    5                 FIVE CHARS
     2644   01 009C3    22706ADC              LI,7     BA(UNITEXT)+4     PUT IT HERE
     2645   01 009C4    6AE00773              BAL,14   TXLATE
     2646   01 009C5    22706AE5              LI,7     BA(UNITEXT)+13    PLACE TO PUT DOO NUM
     2647   01 009C6    3260078C              LW,6     TEMP              REGET ADDRESS
     2648   01 009C7    02200090 A            LCI      9                 CC OF NINE
     2649   01 009C8    AD500006 A            LMS,5    *6                GET DOOR NUMBER
     2650   01 009C9    35500003 A            STW,5    3                 MAKE COPY
     2651   01 009CA    25300068 A            SLS,3    -24               MOVE IT OVER
     2652   01 009CB    4B3007E2              AND,3    XF                MAKE IT NICE
     2653   01 009CC    203000F0 A            AI,3     X'F0'             MAKE IT A NUMBER
     2654   01 009CD    753E0000 A            STB,3    0,7               AND PUT AWAY
     2655   01 009CE    25500062 A            SLS,5    -30               MOVE FOR INDEXING
     2656   01 009CF    680A09D0              B        %+1,5             THIS IS IT
     2657   01 009D0    680009D5              B        ILNW              NO INTERLEAVE
     2658   01 009D1    680009D7              B        IL2W              2 WAY
     2659   01 009D2    680009D9              B        IL4W              4 WAY
     2660   01 009D3    225000D5 A            LI,5     X'D5'             ILLEGAL
     2661   01 009D4    680009DA              B        COREQ2
     2662   01 009D5    22500040 A   ILNW     LI,5     X'40'             BLANK IT
     2663   01 009D6    680009DA              B        COREQ2
     2664   01 009D7    225000F2 A   IL2W     LI,5     X'F2'             GRAB A TWO
     2665   01 009D8    680009DA              B        COREQ2
     2666   01 009D9    225000F4 A   IL4W     LI,5     X'F4'             GRAB A FOUR
     2667   01 009DA    22706AEA     COREQ2   LI,7     BA(UNITEXT)+18    PUT IT HERE
     2668   01 009DB    755E0000 A            STB,5    0,7               LIKE THIS
     2669   01 009DC    04E01AB6              MTYPE    UNITEXT           TELL THEM
     2670   01 009DD    20604001 A            AI,6     X'4001'           GET NEXT DOOR
     2671   01 009DE    316007CF              CW,6     ABSMSIZE          FINISHED ?
     2672   01 009DF    681009FA              BGE      HEXIT             B,YEP
     2673   01 009E0    21600004 A            CI,6     4                 RESET FOR I/L
     2674   01 009E1    684009C0              BAZ      COREQ1            B,GO
     2675   01 009E2    206FFFFC A            AI,6     -4                ELSE,RESET ADDRESS
     2676   01 009E3    680009C0              B        COREQ1            GO FINISH
     2677         00000040           C2B      EQU      X'40'
     2678   01 009E4    0F0000CA     CORTST   XPSD,0   COREPSD
     2679   01 009E5    0F0000CE     CORTST1  XPSD,0   COREOK
     2680   01 009E6    00CD6D5F A   CORTEXT  DATA     X'00CD6D5F'       CONF. TASK
     2681   01 009E7    0DD6D6D9 A   CRDRTXT  DATA     X'0DD6D6D9'       DOOR TASK
     2682   01 009E8    00000000 A   SAVE40   DATA     0
     2683                            *
     2684   01 009E9    320008D2     DELAY    LW,0     VALB              GET PARAMETER
     2685   01 009EA    310007CC              CW,0     FILLER            WAS THERE ONE
     2686   01 009EB    693009ED              BNE      %+2               B,NO  DEFAULT TO NONE
     2687   01 009EC    22000000 A            LI,0     0
     2688   01 009ED    350007C5              STW,0    DEFER             STORE IT
     2689   01 009EE    6800095C              B        CREXIT            AND GET OUT
     2690                            *
     2691   01 009EF                 HFSTRT   RES      0
     2692   01 009EF    221FFFFC A            LI,1     -4                HF INDEX
     2693   01 009F0    33020F62              MTW,0    HFTABLB+4,1       ANYONE HOME ?
     2694   01 009F1    683009F8              BEZ      HFSTRT1           B,NO
     2695   01 009F2    32520B8F              LW,5     HADDR+4,1         GET THE ADDRESS
     2696   01 009F3    35500BB8              STW,5    HFADDR            AND PUT IT AWAY
     2697   01 009F4    22200000 A            LI,2     0                 GRAB A ZERO
     2698   01 009F5    6AF00E8C              BAL,15   HFWD              GO DO IT
     2699   01 009F6    02000000 A            NOP
     2700   01 009F7    04E01BC2              MTYPE    HFER8             COULDN'T RESTART IT
     2701   01 009F8    651009F0     HFSTRT1  BIR,1    HFSTRT+1          GO AGAIN
     2702   01 009F9    E800000E A            B        *14               THEN GO BACK
     2703                            *
     2704   01 009FA    320007D8     HEXIT    LW,0     IDLESTOP          STOP COMMAND
     2705   01 009FB    35000100              STW,0    IDLEWAIT          INTO STOP LOCATION
     2706   01 009FC    32001991              LW,0     HCR               HALT INDICATOR
     2707   01 009FD    35001990              STW,0    HRCR              INTO MESSAGE
     2708   01 009FE    6AF002A3              BAL,15   HIOPOLL           STOP EVERYONE
     2709   01 009FF    04E01990              MTYPE    HRCR              TYPE THE HALT INDICATOR
     2710   01 00A00    680000D2              B        RESTART           AND STOP
     2711                            *
     2712                            *
     2713   01 00A01    22000001 A   TYPER    LI,0     1
     2714   01 00A02    35000A6E              STW,0    DUFLAG            ALWAYS ASSUME M:TYPE FOR TYPE
     2715   01 00A03    6AF0092C              BAL,15   GETADVAL          GO GET ADDRESS
     2716   01 00A04    6AF00A06              BAL,15   DILOOP1           GO DO IT
     2717   01 00A05    6800095C              B        CREXIT            COMMON EXIT
     2718                            *
     2719   01 00A06    35F00862     DILOOP1  STW,15   SAVEF             SAVE RETURN
     2720   01 00A07    330007D0              MTW,0    LPADD             DO WE HAVE A LP?
     2721   01 00A08    68100A0B              BGE      DILOOPC           B,YES
     2722   01 00A09    22300001 A            LI,3     1
     2723   01 00A0A    35300A6E              STW,3    DUFLAG            SETUP THE FLAG FOR A TYPE
     2724   01 00A0B    22300008 A   DILOOPC  LI,3     8                 LINE COUNTER
     2725   01 00A0C    22705FBA              LI,7     BA(DISPB)+2       GO TO ADDRESS
     2726   01 00A0D    22C00005 A            LI,12    5                 COUNT
     2727   01 00A0E    32600002 A            LW,6     2                 WORD
     2728   01 00A0F    2560000C A            SLS,6    12                POSITION IT FOR TXLATE
     2729   01 00A10    6AE00773              BAL,14   TXLATE            TRANSLATE IT
     2730   01 00A11    20700002 A            AI,7     2                 BUMP BYTE COUNT
     2731   01 00A12    22C00008 A   DILOOP2  LI,12    8                 COUNT
     2732   01 00A13    B2600002 A            LW,6     *2                WORD
     2733   01 00A14    6AE00773              BAL,14   TXLATE            TRANSLATE THIS ONE TOO
     2734   01 00A15    33F00003 A            MTW,-1   3                 DOWN COUNT LINE CONTROL
     2735   01 00A16    68300A1C              BEZ      DODISP            PRINT IT
     2736   01 00A17    33F00001 A            MTW,-1   1                 DOWN COUNT COUNT
     2737   01 00A18    69100A1C              BLZ      DODISP            PRINT IF LAST WORD
     2738   01 00A19    20700001 A            AI,7     1                 SPACE
     2739   01 00A1A    33100002 A            MTW,1    2                 NEXT WORD
     2740   01 00A1B    68000A12              B        DILOOP2           DO IT
     2741   01 00A1C    207FA047 N   DODISP   AI,7     -(BA(DISPB)+1)    COMPUTE THE REAL BYTE COUNT
     2742   01 00A1D    757017EE              STB,7    DISPB              BYTE COUNT
     2743   01 00A1E    32C00002 A            LW,12    2                 GET THE LAST ADDRESS CONVERTED
     2744   01 00A1F    20CFFFF9 A            AI,12    -7                POINT BACK TO THE START OF THIS LINE
     2745   01 00A20    68100A22              BGEZ     %+2               B,OK
     2746   01 00A21    22C00000 A            LI,12    0                 ELSE START AT ZERO
     2747   01 00A22    25C00002 A            SLS,12   2                 MAKE IT A BYTE ADDRESS
     2748   01 00A23    32D00A50              LW,13    MBSW              MOVE BYTE STRING WORD
     2749   01 00A24    61C00000 A            MBS,12   0                 MOVE IT
     2750   01 00A25    22000000 A            LI,0     0
     2751   01 00A26    35000A4F              STW,0    ZFLAG             CLEAR SKIPPED LINES FLAG
     2752   01 00A27    33000A6E     DODIT    MTW,0    DUFLAG
     2753   01 00A28    69100A31              BLZ      DODU              PRINT THIS ONE
     2754   01 00A29    04E017EE     TYPERI   MTYPE    DISPB             TYPE REQUESTED DATA
     2755   01 00A2A    6C000000 A            RD,0     0                 READ SSW
     2756   01 00A2B    E9400862              BCS,4    *SAVEF            GET OUT IF 2 SET
     2757   01 00A2C    68000A35              B        ZEROSCAN          SCAN FOR SAME DATA
     2758   01 00A2D    33F00001 A   DODUR    MTW,-1   1                 DOWN COUNT COUNT
     2759   01 00A2E    E9100862              BLZ      *SAVEF            WE ARE DONE
     2760   01 00A2F    33100002 A            MTW,1    2                 NEXT WORD
     2761   01 00A30    68000A0B              B        DILOOPC           NEXT
     2762   01 00A31    727017EE     DODU     LB,7     DISPB             GET THE ORIGIONAL COUNT BACK
     2763   01 00A32    20700024 A            AI,7     DISPBX            ADD THE EXTEMDED BUFFER SIZE
     2764   01 00A33    757017EE              STB,7    DISPB             AND PUT IT INTO SIZE BYTE
     2765   01 00A34    04D017EE              MPRINT   DISPB             TO THE PRINTER
     2766   01 00A35    21100008 A   ZEROSCAN CI,1     8                 IS THERE AT LEAST ONE LINE LEFT?
     2767   01 00A36    68200A2D              BLE      DODUR             B,NO
     2768   01 00A37    32C00002 A            LW,12    2                 GET LAST ADDRESS
     2769   01 00A38    20C00009 A            AI,12    9                 POOINT TO END OF NEXT BLOCK
     2770   01 00A39    31C007CE              CW,12    MSIZE             IS THERE ROOM?
     2771   01 00A3A    68100A2D              BGE      DODUR             B,NO
     2772   01 00A3B    32C00002 A            LW,12    2                 GET LAST ADDRESS
     2773   01 00A3C    20C00001 A            AI,12    1                 POINT TO NEXT ADDRESS
     2774   01 00A3D    25C00002 A            SLS,12   2                 BYTE ADDRESS IT
     2775   01 00A3E    32D00A50              LW,13    MBSW              BYTE STRING INST. DATA
     2776   01 00A3F    60C00000 A            CBS,12   0                 COMPARE NEXT WITH LAST
     2777   01 00A40    69300A2D              BNE      DODUR             THATS ALL
     2778   01 00A41    33000A4F              MTW,0    ZFLAG             HAVE WE PRINTED SAME YET?
     2779   01 00A42    69300A49              BNEZ     ZHPRT             B,YES
     2780   01 00A43    33000A6E              MTW,0    DUFLAG            TYPE OR PRINT
     2781   01 00A44    69100A47              BLZ      ZMES1             B,PRINT
     2782   01 00A45    04E018FA              MTYPE    ZMES              TYPE IT
     2783   01 00A46    68000A48              B        %+2               BYPASS PRINT
     2784   01 00A47    04D018FA     ZMES1    MPRINT   ZMES              PRINT IT
     2785   01 00A48    33100A4F              MTW,1    ZFLAG             MARK IT
     2786   01 00A49    201FFFF8 A   ZHPRT    AI,1     -8                DOWN THE COUNT
     2787   01 00A4A    68200A4D              BLEZ     %+3               NOT ENOUGH LEFT
     2788   01 00A4B    20200008 A            AI,2     8                 NEXT START ADDRESS
     2789   01 00A4C    68000A35              B        ZEROSCAN          LETS LOOK AT THE NEXT 8
     2790   01 00A4D    20100008 A            AI,1     8                 COUNT BACK TO ORIGIONAL
     2791   01 00A4E    68000A2D              B        DODUR             GO PRINT IT
     2792   01 00A4F    00000000 A   ZFLAG    DATA     0                 NEED TO PRINT FLAF
     2793                            *
     2794   01 00A50    2000600C     MBSW     GEN,8,24 32,BA(DISPBA+1)
     2795                            *
     2796   01 00A51    320007D0     DUMP     LW,0     LPADD             GET THE PRINTER ADDRESSS
     2797   01 00A52    69100A01              BLZ      TYPER             GO WE DONT HAVE ONE
     2798   01 00A53    310007D1              CW,0     TTYADD            SAME AS TTY?
     2799   01 00A54    68300A01              BE       TYPER             B,YES
     2800   01 00A55    321007D0              LW,1     LPADD
     2801   01 00A56    6AF00709              BAL,15   IOPBUSY           GO SEE IF IOP IS AVAILABLE
     2802   01 00A57    CD0007D0              TIO,0    *LPADD            VALID ADDRESS?
     2803   01 00A58    69800C87              BIOANR   MTNR              NOPE
     2804   01 00A59    6AE00729              BAL,14   CURTIME           SET UP TIME MESSAGE
     2805   01 00A5A    04C00780              DPRINT   TOF
     2806   01 00A5B    04D019B1              MPRINT   TIMEMES           PRINT TIME
     2807   01 00A5C    6AF0092C              BAL,15   GETADVAL          GET THE ADDRESS AND COUNT
     2808   01 00A5D    22400000 A            LI,4     0                 CLEAR
     2809   01 00A5E    22500007 A            LI,5     7                 MASK
     2810   01 00A5F    4A400002 A            LS,4     2                 GET THE ODD ADDRESS BITS
     2811   01 00A60    30100004 A            AW,1     4                 ADD EM TO THE COUNT
     2812   01 00A61    38200004 A            SW,2     4                 REMOVE EM FROM THE STARTING ADDRESS
     2813   01 00A62    49100005 A            OR,1     5                 OR IN A MASK FOR MODULO 8
     2814   01 00A63    32400001 A            LW,4     1                 GET THE SIZE
     2815   01 00A64    30400002 A            AW,4     2                 PLUS THE START ADDRESS
     2816   01 00A65    314007CE              CW,4     MSIZE             TOO MUCH?
     2817   01 00A66    69100A6A              BL       %+4               NOPE, OK TO DO IT
     2818   01 00A67    321007CE              LW,1     MSIZE             RE COMPUTE IT ALL
     2819   01 00A68    33F00001 A            MTW,-1   1                 LESS ONE
     2820   01 00A69    38100002 A            SW,1     2                 NEW COUNT
     2821   01 00A6A    22FFFFFF A            LI,15    -1                FLAG DUMP
     2822   01 00A6B    35F00A6E              STW,15   DUFLAG            IN PROGRESS
     2823   01 00A6C    6AF00A06              BAL,15   DILOOP1           DI TO
     2824   01 00A6D    6800095C              B        CREXIT            COMMON EXIT
     2825                            *
     2826                            *
     2827   01 00A6E                 DUFLAG   RES      1                 DUMP/DISPLAY FLAG
     2828                            *
     2829   01 00A6F                 GO       RES      0
     2830   01 00A6F    22000000 A            LI,0     0
     2831   01 00A70    350007C0              STW,0    GO1
     2832   01 00A71    350007C1              STW,0    GO2
     2833   01 00A72    350007C2              STW,0    GO3
     2834   01 00A73    350007C3              STW,0    GO4
     2835   01 00A74    35000FA2              STW,0    CPUBUF            CLEAR CPU BUFFER ADDRESS TOO
     2836   01 00A75    350007B4              STW,0    HOLDFLAG          CLEAR HOLD FLAG
     2837   01 00A76    224FFFE0 A            LI,4     -32               COUNT
     2838   01 00A77    320007FE              LW,0     X7FS
     2839   01 00A78    35080FA2              STW,0    IOPTABLD+32,4     SET UP TABLE D & G
     2840   01 00A79    65400A78              BIR,4    %-1               LOOP
     2841   01 00A7A    224FFFE0 A            LI,4     -32               COUNT
     2842   01 00A7B    35081024              STW,0    IOPTABLG+32,4     CLEAR STARTUP TABLE
     2843   01 00A7C    65400A7B              BIR,4    %-1               LOOP IT
     2844   01 00A7D    321008D2              LW,1     VALB              GET PARAMETER
     2845   01 00A7E    683008F4              BEZ      SERROR1           ERROR
     2846   01 00A7F    311007CC              CW,1     FILLER            WAS THERE ONE?
     2847   01 00A80    68300A9A              BE       GOALL             B,NO
     2848   01 00A81    21100004 A            CI,1     4                 MAX?
     2849   01 00A82    692008F4              BG       SERROR1           B,YES
     2850   01 00A83    331207BF              MTW,1    GO1-1,1           SET FLAG
     2851   01 00A84    321008D3              LW,1     VALB+1
     2852   01 00A85    683008F6              BEZ      SERROR2
     2853   01 00A86    311007CC              CW,1     FILLER            MORE?
     2854   01 00A87    68300A9E              BE       GOOK              B,NO,EXIT,IT
     2855   01 00A88    21100004 A            CI,1     4
     2856   01 00A89    692008F6              BG       SERROR2
     2857   01 00A8A    331207BF              MTW,1    GO1-1,1
     2858   01 00A8B    321008D4              LW,1     VALB+2
     2859   01 00A8C    683008F8              BEZ      SERROR3
     2860   01 00A8D    311007CC              CW,1     FILLER            MORE?
     2861   01 00A8E    68300A9E              BE       GOOK              B,NO,EXIT,IT
     2862   01 00A8F    21100004 A            CI,1     4
     2863   01 00A90    692008F8              BG       SERROR3
     2864   01 00A91    331207BF              MTW,1    GO1-1,1
     2865   01 00A92    321008D5              LW,1     VALB+3
     2866   01 00A93    683008FA              BEZ      SERROR4
     2867   01 00A94    311007CC              CW,1     FILLER            MORE?
     2868   01 00A95    68300A9E              BE       GOOK              B,NO,EXIT,IT
     2869   01 00A96    21100004 A            CI,1     4
     2870   01 00A97    692008FA              BG       SERROR4
     2871   01 00A98    331207BF              MTW,1    GO1-1,1
     2872   01 00A99    68000A9E              B        GOOK              GO DO IT
     2873   01 00A9A    331007C0     GOALL    MTW,1    GO1
     2874   01 00A9B    331007C1              MTW,1    GO2
     2875   01 00A9C    331007C2              MTW,1    GO3
     2876   01 00A9D    331007C3              MTW,1    GO4
     2877   01 00A9E    32000AAD     GOOK     LW,0     GOWD              GET THE BRANCH
     2878   01 00A9F    35000100              STW,0    IDLEWAIT          AND LETS GO
     2879   01 00AA0    330007B5              MTW,0    BMDATA            BURST MODE?
     2880   01 00AA1    68300AA3              BEZ      %+2               B,NO
     2881   01 00AA2    04E01AAD              MTYPE    BMTEXT            TELL HIM
     2882   01 00AA3    330007B6              MTW,0    CMDATA            CLCOCK MARGINS?
     2883   01 00AA4    68300AA6              BEZ      %+2               NOPE
     2884   01 00AA5    04E01ABF              MTYPE    CMTEXT            YEP, AND TELL HIM
     2885   01 00AA6    33000AC1              MTW,0    HTEFLAG           HTE FLAG SET ?
     2886   01 00AA7    68300AA9              BEZ      %+2               B,NO
     2887   01 00AA8    04E01ABB              MTYPE    HTETEXT           TELL HIM SO
     2888   01 00AA9    6AF01456              BAL,15   SETCDW            SET UP CDW LISTS AS PER MEMORY SIZE
     2889   01 00AAA    32001992              LW,0     RCR               RUN INDICATOR
     2890   01 00AAB    35001990              STW,0    HRCR              INTO MESSAGE
     2891   01 00AAC    6800095C              B        CREXIT            AND EXIT
     2892   01 00AAD    680014A0     GOWD     B        START             THE WORD
     2893   01 00AAE    321007CC              LW,1     FILLER            DEFAULT LIST TO ALL
     2894   01 00AAF    351008D2              STW,1    VALB
     2895   01 00AB0    68000DA6              B        LIST              GO LIST THE TABLE
     2896                            *
     2897                            *
     2898   01 00AB1    320008D2     HOLD     LW,0     VALB              GET A DATA WORD
     2899   01 00AB2    350007B4              STW,0    HOLDFLAG          ANM  PUT IT INTO THE FLAG
     2900   01 00AB3    6800095C              B        CREXIT            AND EXIT
     2901                            *
     2902   01 00AB4                 HTE      RES      0
     2903   01 00AB4    321008D2              LW,1     VALB              ANYONE THERE ?
     2904   01 00AB5    68300ABB              BEZ      HTE1              B,NO MUST WANT IT OFF
     2905   01 00AB6    321007F9              LW,1     H08               GET PROPER BIT
     2906   01 00AB7    491007FC              OR,1     H46               MERGE IT IN
     2907   01 00AB8    351007FC              STW,1    H46               PUT IT BACK
     2908   01 00AB9    35100AC1              STW,1    HTEFLAG           MAKE IT NON ZERO
     2909   01 00ABA    6800095C              B        CREXIT            GOOD-BYE
     2910   01 00ABB    321007FC     HTE1     LW,1     H46               GET THE FLAG
     2911   01 00ABC    4B1007FD              AND,1    HF7               GET THE HTE OUT
     2912   01 00ABD    351007FC              STW,1    H46               PUT IT BACK
     2913   01 00ABE    22000000 A            LI,0     0                 GRAB A ZERO
     2914   01 00ABF    35000AC1              STW,0    HTEFLAG           AND CLEAR FLAG
     2915   01 00AC0    6800095C              B        CREXIT            GOOD-BYE
     2916   01 00AC1    00000000 A   HTEFLAG  DATA     0
     2917                            *
     2918   01 00AC2    2260004C A   SIO      LI,6     X'4C'             SIO ORDER
     2919   01 00AC3    75600AEE              STB,6    IOINS             INITIALIZE I/O INST
     2920   01 00AC4    6D000037 A           INHIB                      TURN OFF ALL THE INTERRUPTR
     2921   01 00AC5    324008D2              LW,4     VALB              GET DEVICE ADDRESS
     2922   01 00AC6    314007CC              CW,4     FILLER            WAS THERE ONE?
     2923   01 00AC7    683008F4              BE       SERROR1           NOPE
     2924   01 00AC8    4B4007CA              AND,4    IOMASK            NO FUNNY BITS ALLOWED
     2925   01 00AC9    320008D3              LW,0     VALB+1            GET DW ADDRESS
     2926   01 00ACA    310007CC              CW,0     FILLER            IS THER ONE
     2927   01 00ACB    683008F6              BE       SERROR2           NONE
     2928   01 00ACC    2500007F A            SLS,0    -1                MAKE IT A DW ADDRESSS
     2929   01 00ACD    350008D3              STW,0    VALB+1            SAVE THE CDW ADDRESS
     2930   01 00ACE    32100004 A            LW,1     4                 SO WE CAN GET OUT
     2931   01 00ACF    68000AEB              B        IOTST             GO DO IT
     2932                            *
     2933                            *
     2934   01 00AD0    2260004F A   HIO      LI,6     X'4F'             HIO ORDER
     2935   01 00AD1    68000AD5              B        CHGMODE           TEST FOR PRINTER OUTPUT
     2936                            *
     2937                            *
     2938   01 00AD2    2260004E A   TDV      LI,6     X'4E'             TDV
     2939   01 00AD3    68000AD5              B        CHGMODE           TEST FOR PRINTER OUTPUT
     2940                            *
     2941                            *
     2942   01 00AD4    2260004D A   TIO      LI,6     X'4D'             TIO ORDER
     2943   01 00AD5    75600AEE     CHGMODE  STB,6    IOINS             INITIALIZE I/O INST
     2944   01 00AD6    320008D4              LW,0     VALB+2            LINE PRINTER REQUEST?
     2945   01 00AD7    310007CC              CW,0     FILLER            LINE PRINTER REQUEST?
     2946   01 00AD8    68300AE2              BE       COMIO             B,NO
     2947   01 00AD9    CD000000 A            TIO,0    *0                IS IT THERE?
     2948   01 00ADA    69800C87              BIOANR   MTNR              B,NO
     2949   01 00ADB    350007D0              STW,0    LPADD             SAVE THE ADDRESS
     2950   01 00ADC    04C00780              DPRINT   TOF               TOP OF FORM IT
     2951   01 00ADD    32600AE0              LW,6     PRNTIO            GET THE NEW INSTRUCTION
     2952   01 00ADE    35600AF3              STW,6    IOTSTC-1          AND PUT IT IN THERE
     2953   01 00ADF    68000AE2              B        COMIO             GO DO IT
     2954   01 00AE0    04D019D5     PRNTIO   MPRINT   IOMES             INSTRUCTION FOR PRINTING STATUS
     2955   01 00AE1    04E019D5     TYPEIO   MTYPE    IOMES             INSTRUCTION FOR TYPEINT IT
     2956                            *
     2957                            *
     2958   01 00AE2    321008D3     COMIO    LW,1     VALB+1            LAST ADDRESS
     2959   01 00AE3    324008D2              LW,4     VALB              FIRST ONE
     2960   01 00AE4    311007CC              CW,1     FILLER            WAS THERE ONE
     2961   01 00AE5    69300AE7              BNE      %+2               YEP
     2962   01 00AE6    321008D2              LW,1     VALB              FAKE A LAST ONE
     2963   01 00AE7    4B1007CA              AND,1    IOMASK            MASK OUT THE
     2964   01 00AE8    4B4007CA              AND,4    IOMASK            FUNNY BITS
     2965   01 00AE9    21400C80 A            CI,4      3200             THIS IS A POSSIBLE HF ADDRESS
     2966   01 00AEA    68100AFF              BGE      HFIO              LETS SEE
     2967   01 00AEB    351008D4     IOTST    STW,1    VALB+2            SAVE END ADDRESS
     2968   01 00AEC    320008D3              LW,0     VALB+1            GET THE SIO CDW ADDRESS
     2969   01 00AED    02200000 A            LCI      0                 CLEAR CC'S
     2970   01 00AEE    4D880000 A   IOINS    TIO,8    0,4               I/O INSTRUCTION
     2971   01 00AEF    74000002 A            STCF     2                 SAVE THE CC'S
     2972   01 00AF0    68400AF2              BIOSP    %+2               ADDRESS OK
     2973   01 00AF1    69800AF4              BIOANR   IOTSTC            NOT RECOGNIZED
     2974   01 00AF2    6AD00BBA              BAL,13   MESSAGE           BUILD THE MASSAGE
     2975   01 00AF3    04E019D5              MTYPE    IOMES             I/O RESPONCE MESSAGE
     2976   01 00AF4    20400001 A   IOTSTC   AI,4     1                 BUMP THE DUMB ADDRESS
     2977   01 00AF5    2270008F A            LI,7     X'8F'             MASK
     2978   01 00AF6    4A700004 A            LS,7     4                 LETS CHECK FOR
     2979   01 00AF7    21700088 A            CI,7     X'88'             MULTI DEVICE = 8
     2980   01 00AF8    69300AFA              BNE      %+2               NOPE
     2981   01 00AF9    20400008 A            AI,4     8                 YES,GET RID OF IT
     2982   01 00AFA    314008D4              CW,4     VALB+2            DONE YET?
     2983   01 00AFB    68200AED              BLE      IOINS-1           GO AGAIN
     2984   01 00AFC    32000AE1              LW,0     TYPEIO            RESTORE THE BAL
     2985   01 00AFD    35000AF3              STW,0    IOTSTC-1          INSTRUCTION
     2986   01 00AFE    6800095C              B        CREXIT            COMMON EXIT
     2987                            *
     2988   01 00AFF                 HFIO     RES      0
     2989   01 00AFF    32600BAF              LW,6     HFIOTRAP          JUST IN CASE THE HF IS NOT THERE
     2990   01 00B00    46600046 A            XW,6     X'46'             PUT IT IN THE 46 TRAP LOC.
     2991   01 00B01    35600B6A              STW,6    H46SAV            AND SAVE IT FOR LATER
     2992   01 00B02    22100000 A            LI,1     0                 GRAB A ZERO
     2993   01 00B03    35100010 A            STW,1    X'10'             CLEAR THE I/O COMM CELL
     2994   01 00B04    35100011 A            STW,1    X'11'             AND THIS ONE TOO
     2995   01 00B05    321008D2              LW,1     VALB              GE THE FIRST PARAMETER
     2996   01 00B06    322008D3              LW,2     VALB+1            AND THE SECOND
     2997   01 00B07    4B1007F3              AND,1    XB3M1             GET RID OF THE FUNNY STUFF
     2998   01 00B08    312007CC              CW,2     FILLER            ANY THING THERE ?
     2999   01 00B09    69300B0B              BNE      %+2               B,YES
     3000   01 00B0A    32200001 A            LW,2     1                 MAKE THEM BOTH THE SAME THEN
     3001   01 00B0B    4B2007F3              AND,2    XB3M1             AND GET THE BAD STUFF OUT
     3002   01 00B0C    31200001 A            CW,2     1                 WHICH IS GREATER ?
     3003   01 00B0D    691008F6              BL       SERROR2           WRONG !
     3004   01 00B0E    35200B4C              STW,2    HLSTTIO           SAVE LAST HF TO CHECK
     3005   01 00B0F    224FFFF0 A            LI,4     -16               GRAB A ZERO
     3006   01 00B10                 HFIOA    RES      0
     3007   01 00B10    31180B8B              CW,1     HADRIX1+16,4      CHECK WHICH HF WE WANT
     3008   01 00B11    68300B15              BE       HFIOF             THIS IS IT
     3009   01 00B12    65400B10              BIR,4    %-2               TRY ANOTHER
     3010   01 00B13    04E019A8              MTYPE    NOPEM             SAY NONE AVAILABLE
     3011   01 00B14    68000B37              B        HFRST46           SHOULD NEVER GET HERE
     3012   01 00B15                 HFIOF    RES      0
     3013   01 00B15    35400E8A              STW,4    HFTEMP            SAVE FOR A MINUTE
     3014   01 00B16    32580B7B              LW,5     HADRIX2+16,4      GRAB WD EMTRY
     3015   01 00B17    35500BB8              STW,5    HFADDR            STORE FOR LATER USE
     3016   01 00B18    32200BA6              LW,2     HTIO              WE WANT A TIO FUNCTION
     3017   01 00B19    6D0AF090 A            WD,0     X'F090',5         ACTIVATE IT
     3018   01 00B1A    69300B3A              BCS,3    HFIOD             SOMETHING WEBT WRONG
     3019   01 00B1B    6D0AF070 A            WD,0     X'F070',5         SET THE E-FLAG
     3020   01 00B1C    69300B3A              BCS,3    HFIOD             B,ERROR
     3021   01 00B1D    6D2AF060 A            WD,2     X'F060',5         START COMMAND
     3022   01 00B1E    69300B3A              BCS,3    HFIOD
     3023   01 00B1F    6AF0178B              BAL,15   HDLAY             (WHISTLE)
     3024   01 00B20    32600011 A            LW,6     X'11'             GET THE CDW INFO
     3025   01 00B21    2270691D              LI,7     BA(COMPD)+13      PUT IT HERE
     3026   01 00B22    22C00008 A            LI,12    8                 CHARS
     3027   01 00B23    6AE00773              BAL,14   TXLATE            MAKE IT INTO ENGLISH
     3028   01 00B24    32600010 A            LW,6     X'10'             GET THE 2ND   STATUS WORD
     3029   01 00B25    22706914              LI,7     BA(COMPD)+4       HERE
     3030   01 00B26    22C00008 A            LI,12    8                 CHARS
     3031   01 00B27    6AE00773              BAL,14   TXLATE            DO IT
     3032   01 00B28    92600010 A            LD,6     *X'10'            GET THE CDW
     3033   01 00B29    22C00008 A            LI,12    8                 EIGHT CHARS TO DO
     3034   01 00B2A    22706926              LI,7     BA(COMPD)+22      PUT IT HERE
     3035   01 00B2B    6AE00773              BAL,14   TXLATE            GO DO IT
     3036   01 00B2C    32600007 A            LW,6     7                 GET THE NEXT HALF OF THE CDW
     3037   01 00B2D    22C00008 A            LI,12    8                 EIGHT CHARS AGAIN
     3038   01 00B2E    2270692F              LI,7     BA(COMPD)+31      PUT IT HERE
     3039   01 00B2F    6AE00773              BAL,14   TXLATE            DO IT AGAIN
     3040   01 00B30    04E019CB              MTYPE    HFIOM0            PRINT HEADER
     3041   01 00B31    04E01A44              MTYPE    COMPD             AND THE STATUS
     3042   01 00B32    32400E8A     HFIOC    LW,4     HFTEMP            REGET THE REGISTER
     3043   01 00B33    20400001 A            AI,4     1                 BUMP COUNT
     3044   01 00B34    32200B4C              LW,2     HLSTTIO           GET LAST HF TO CHECK AGAIN
     3045   01 00B35    31280B8B              CW,2     HADRIX1+16,4      DONE ?
     3046   01 00B36    68100B15              BGE      HFIOF             B,NO
     3047   01 00B37    32600B6A     HFRST46  LW,6     H46SAV            RESTORE THE TRAP LOC
     3048   01 00B38    46600046 A            XW,6     X'46'             LIKE THIS
     3049   01 00B39    680009FA              B        HEXIT             DONE NOW
     3050   01 00B3A    32400E8A     HFIOD    LW,4     HFTEMP            REGET THE BUGER
     3051   01 00B3B    32680B8B              LW,6     HADRIX1+16,4      GET THE PRINTABLE ADDRESS
     3052   01 00B3C    25600018 A            SLS,6    24                JUSTIFY IT
     3053   01 00B3D    22C00002 A            LI,12    2                 TWO CHARS TO DO
     3054   01 00B3E    22706EA1              LI,7     BA(HFER4)+5       PUT IT HERE
     3055   01 00B3F    6AE00773              BAL,14   TXLATE            GO DO IT
     3056   01 00B40    04E01BA7              MTYPE    HFER4             TELL HIM THE BAD NEWS
     3057   01 00B41    68000B32              B        HFIOC             GO AGAIN
     3058   01 00B42    68000B37              B        HFRST46
     3059   01 00B43                 THFHIO   RES      0
     3060   01 00B43    35E00BAD              STW,14   BALRTN1           SAVE THE COME FROM
     3061   01 00B44    32500BB8              LW,5     HFADDR            GET ADDRESS FOR THE
     3062   01 00B45    6D0AF000 A            WD,0     X'F000',5         PROCESSOR RESET
     3063   01 00B46    32300BA1              LW,3     STRT              OK,GET THE HF GOING AGAIN
     3064   01 00B47    32200BA7              LW,2     HHIO              THIS IS AN HIO
     3065   01 00B48    6AF00E8C              BAL,15   HFWD              GOT IT
     3066   01 00B49    2260000C A            LI,6     12                INDEX TO HF ERRORS
     3067   01 00B4A    6AD00EB2              BAL,13   HFERS             GO TELL SOMEONE
     3068   01 00B4B    E8000BAD              B        *BALRTN1          RETURN
     3069   01 00B4C    00000000 A   HLSTTIO  DATA     0                 KEEPS TRACK OF LAST HF
     3070                            *
     3071   01 00B4D                 HSETUP   RES      0
     3072   01 00B4D    35F00BAC              STW,15   BALRTN            SAVE COME FROM
     3073   01 00B4E    22200000 A            LI,2     0                 GRAB A ZERO
     3074   01 00B4F    32300E67              LW,3     HACTV             ACTIVATE THE BEAST
     3075   01 00B50    6AF00E8C              BAL,15   HFWD              WITH THIS
     3076   01 00B51    22600008 A            LI,6     8                 INDEX TO ERROR
     3077   01 00B52    68000B5D              B        HSETUP1           DO REST IF ANY
     3078   01 00B53    32300BAB              LW,3     SETE              THIS IS THE E FLAG DAT
     3079   01 00B54    6AF00E8C              BAL,15   HFWD              GO DO IT
     3080   01 00B55    2260000B A            LI,6     11                INDEX TO ERRORS
     3081   01 00B56    68000B5D              B        HSETUP1           EXIT
     3082   01 00B57    3220078C              LW,2     TEMP              THIS IS FOR THE TIO
     3083   01 00B58    32300BA1              LW,3     STRT              AND FOR THE  HF TO SEE IT
     3084   01 00B59    6AF00E8C              BAL,15   HFWD              GO DO IT
     3085   01 00B5A    2260000A A            LI,6     10                INDEX TO ERRORS
     3086   01 00B5B    68000B5D              B        HSETUP1           EXIT
     3087   01 00B5C    E8000BAC              B        *BALRTN
     3088   01 00B5D    6AD00EB2     HSETUP1  BAL,13   HFERS             PRINT THE ERROR
     3089   01 00B5E    680009FA              B        HEXIT             AND GET OUT
     3090                            *        R2 = ADDR OF HF IN SP FORM
     3091                            *
     3092   01 00B5F                 HMAKIX   RES      0
     3093   01 00B5F    02200020 A            LCI      2                 TO SAVE THE REGS
     3094   01 00B60    2B200B8F              STM,2    HSAV              SO DO IT
     3095   01 00B61    25200304 A            SCD,2    4                 ISOLATE THE SYSTEM
     3096   01 00B62    25200002 A            SLS,2    2                 DOUBLE IT
     3097   01 00B63    25300064 A            SLS,3    -28               MOVE PROCESSOR TO LSB
     3098   01 00B64    30200003 A            AW,2     3                 GET THEM TOGETHER
     3099   01 00B65    35200B69              STW,2    HADRIX            NOW SAVE IT
     3100   01 00B66    02200020 A            LCI      2                 SET UP THE CC'S
     3101   01 00B67    2A200B8F              LM,2     HSAV              AND RESTORE THE REGS
     3102   01 00B68    E800000E A            B        *14
     3103   01 00B69    00000000 A   HADRIX   DATA     0                 INDEX INTO HF ADDRESS TABLE
     3104   01 00B6A    00000000 A   H46SAV   DATA     0
     3105   01 00B6B    00000001 A   HADRIX2  DATA     1,2,4,8
            01 00B6C    00000002 A
            01 00B6D    00000004 A
            01 00B6E    00000008 A
     3106   01 00B6F    00000201 A            DATA     X'201',X'202',X'204',X'208'
            01 00B70    00000202 A
            01 00B71    00000204 A
            01 00B72    00000208 A
     3107   01 00B73    00000401 A            DATA     X'401',X'402',X'404',X'408'
            01 00B74    00000402 A
            01 00B75    00000404 A
            01 00B76    00000408 A
     3108   01 00B77    00000601 A            DATA     X'601',X'602',X'604',X'608'
            01 00B78    00000602 A
            01 00B79    00000604 A
            01 00B7A    00000608 A
     3109   01 00B7B    00000000 A   HADRIX1  DATA     0,1,2,3
            01 00B7C    00000001 A
            01 00B7D    00000002 A
            01 00B7E    00000003 A
     3110   01 00B7F    00000010 A            DATA     X'10',X'11',X'12',X'13'
            01 00B80    00000011 A
            01 00B81    00000012 A
            01 00B82    00000013 A
     3111   01 00B83    00000020 A            DATA     X'20',X'21',X'22',X'23'
            01 00B84    00000021 A
            01 00B85    00000022 A
            01 00B86    00000023 A
     3112   01 00B87    00000030 A            DATA     X'30',X'31',X'32',X'33'
            01 00B88    00000031 A
            01 00B89    00000032 A
            01 00B8A    00000033 A
     3113   01 00B8B    00000001 A   HADDR    DATA     X'001',X'201',X'401',X'601'
            01 00B8C    00000201 A
            01 00B8D    00000401 A
            01 00B8E    00000601 A
     3114   01 00B8F                 HSAV     RES      16
     3115                            *
     3116   01 00B9F    00000000 A   HFSP     DATA     0
     3117   01 00BA0    0000F040 A   RDPSR    DATA     X'F040'           PSR STATUS
     3118   01 00BA1    0000F060 A   STRT     DATA     X'F060'           START COMMAND
     3119   01 00BA2    F9000000 A   HID      DATA     X'F9000000'       START FUNCTION FOR HF ID
     3120   01 00BA3    F4000000 A   HTLOC    DATA     X'F4000000'       SENDS LOC OF TEMP TO HF
     3121   01 00BA4    0000F00E A   HSYSRST  DATA     X'F00E'           HF RESET, NO ADDRESS
     3122   01 00BA5    F2000000 A   HPHZI    DATA     X'F2000000'       START IDLE LOOP
     3123   01 00BA6    FD000000 A   HTIO     DATA     X'FD000000'       TIO FOR HF
     3124   01 00BA7    FF000000 A   HHIO     DATA     X'FF000000'       HIO FOR HF
     3125   01 00BA8    FC000000 A   HSIO     DATA     X'FC000000'       SIO FOR HF
     3126   01 00BA9    FA000000 A   HSMEM    DATA     X'FA000000'       SEND SIG MEM SIZE
     3127   01 00BAA    FE000000 A   HAIO     DATA     X'FE000000'       FOR AIO WITH HF
     3128   01 00BAB    0000F070 A   SETE     DATA     X'F070'           SET E FLAG
     3129   01 00BAC    00000000 A   BALRTN   DATA     0
     3130   01 00BAD    00000000 A   BALRTN1  DATA     0
     3131   01 00BAE    00000000 A   BALRTNT  DATA     0
     3132   01 00BAF    0F000BB2     HFIOTRAP XPSD,0   HFIOTR1
     3133   01 00BB0    0E100BB6     HFIOTR2  LPSD,1   HFIOTR3
     3134                                     BOUND    8
     3135   01 00BB4    00000BB0 N   HFIOTR1  PSD      0,HFIOTR2,0,REABIT
                        00800000
     3136   01 00BB6    00000B3A     HFIOTR3  DATA     HFIOD,0
            01 00BB7    00000000 A
     3137   01 00BB8    00000000 A   HFADDR   DATA     0                 TEMP STORAGE FOR HF ADDRESS
     3138   01 00BB9    00000000 A   HFADDR1  DATA     0
     3139                            *
     3140                            *        BUILDS I/O MESSAGE
     3141                            *        USED BY COMMON I/O INSTRUCTIONS AND POLL MEMORY PARITY
     3142                            *
     3143   01 00BBA    32600004 A   MESSAGE  LW,6     4                 ADDRESS
     3144   01 00BBB    25600010 A            SLS,6    16                POSITION IT FOR TXLATE
     3145   01 00BBC    22706757              LI,7     BA(IOMES)+3       MESSAGE AREA
     3146   01 00BBD    22C00004 A            LI,12    4                 COUNT
     3147   01 00BBE    6AE00773              BAL,14   TXLATE            TRANSLATE IT
     3148   01 00BBF    22300000 A            LI,3     0                 CLEAR OUT ACCUMULATOR
     3149   01 00BC0    25200301 A            SCD,2    1                 SPLIT UP
     3150   01 00BC1    25300003 A            SLS,3    3                 THE
     3151   01 00BC2    25200301 A            SCD,2    1                 CC'S
     3152   01 00BC3    25300003 A            SLS,3    3                 FOR
     3153   01 00BC4    25200301 A            SCD,2    1                 PRINTING
     3154   01 00BC5    32600003 A            LW,6     3                 THE CC'S
     3155   01 00BC6    25600014 A            SLS,6    20                POSITION EM FOR TRANSLATE
     3156   01 00BC7    22C00003 A            LI,12    3                 2 CHARACTERS
     3157   01 00BC8    20700001 A            AI,7     1                 NEXT ADDRESS
     3158   01 00BC9    6AE00773              BAL,14   TXLATE            TRANSLATE IT
     3159   01 00BCA    20700001 A            AI,7     1                 NEXT ADDRESS
     3160   01 00BCB    1580078C              STD,8    TEMP              SAVE RESPONCE
     3161   01 00BCC    25800001 A            SLS,8    1                 WORD ADDRESS IT
     3162   01 00BCD    4B8007C9              AND,8    ADMASK            REMOVE UPPER STATUS BITS
     3163   01 00BCE    68300BD8              BEZ      SHORT             NO STATUS RETURNED
     3164   01 00BCF    22AFFFFF A            LI,10    -1                JUST IN
     3165   01 00BD0    22BFFFFF A            LI,11    -1                CASE
     3166   01 00BD1    318007CE              CW,8     MSIZE             WITHIN MEMORY?
     3167   01 00BD2    68100BD4              BGE      %+2               B,(3
     3168   01 00BD3    92A00008 A            LD,10    *8                GET CDW
     3169   01 00BD4    15A0078E              STD,10   TEMP+2            SAVE IT
     3170   01 00BD5    22200004 A            LI,2     4                 WORD COUNT
     3171   01 00BD6    6AF0076B              BAL,15   XLATTEMP          TRANSLATE EM
     3172   01 00BD7    22800000 A            LI,8     0                 ZERO TO GET RID OF FUNNY STATUS
     3173   01 00BD8    207F98AB N   SHORT    AI,7     -BA(IOMES)-1      COMPUTE BYTE COUNT
     3174   01 00BD9    757019D5              STB,7    IOMES             AND STORE IT
     3175   01 00BDA    E800000D A            B        *13               RETURN
     3176                            *
     3177                            *
     3178   01 00BDB    320008D2     LP       LW,0     VALB              GET THE NEW ADDRESS
     3179   01 00BDC    310007CC              CW,0     FILLER            WAS THERE ONE?
     3180   01 00BDD    683008F4              BE       SERROR1           NONE
     3181   01 00BDE    2100D6FF A            CI,0     X'0D6FF'          STOP THE PRINTER?
     3182   01 00BDF    68300BE3              BE       LPA               B,YES
     3183   01 00BE0    4B0007CA              AND,0    IOMASK            GET RID OF ANY EXTRA BITS
     3184   01 00BE1    CD000000 A            TIO,0    *0                IT SHOULD BE THERE
     3185   01 00BE2    68800BE4              BIOAR    %+2               B, ITS NOT THERE
     3186   01 00BE3    220FFFFF A   LPA      LI,0     -1                GRAB A MINUS ONE
     3187   01 00BE4    350007D0              STW,0    LPADD             NEW ADDRESS
     3188   01 00BE5    6800095C              B        CREXIT            AND EXIT
     3189                            *
     3190                            *        LMS      LOAD MEMORY STATUS
     3191                            *        LMS P1 P2 (P3)
     3192                            *        P1=CONDITION CODES FOR LMS
     3193                            *        P2=ADDRESS
     3194                            *        P3=DATA FOR SET CLOCK MARGINS ""=7
     3195                            *
     3196   01 00BE6    321008D2     LMS      LW,1     VALB              CONDITION CODES
     3197   01 00BE7    21100003 A            CI,1     3                 0-2 ARE OK
     3198   01 00BE8    69100BF4              BL       LMSA              0-2 ARE OK
     3199   01 00BE9    21100007 A            CI,1     7                 3-6 ARE RESERVED
     3200   01 00BEA    691008F4              BL       SERROR1           3-6 ARE RESERVED
     3201   01 00BEB    2110000B A            CI,1     11                7-10 ARE OK
     3202   01 00BEC    69100BF4              BL       LMSA              7-10 ARE OK
     3203   01 00BED    2110000C A            CI,1     12                12 IS OK
     3204   01 00BEE    68300BF4              BE       LMSA              12 IS OK
     3205   01 00BEF    691008F4              BL       SERROR1           TOO BAD
     3206   01 00BF0    2110000E A            CI,1     14                14-15 ARE OK
     3207   01 00BF1    691008F4              BL       SERROR1           13 IS RESERVED
     3208   01 00BF2    2110000F A            CI,1     15                15 IS MAXIMUM
     3209   01 00BF3    692008F4              BG       SERROR1           TOO BAD
     3210   01 00BF4    322008D3     LMSA     LW,2     VALB+1            GET ADDRESS
     3211   01 00BF5    312007CF              CW,2     ABSMSIZE          WITHIN RANGE?
     3212   01 00BF6    681008F6              BGE      SERROR2           B,NO
     3213   01 00BF7    21100007 A            CI,1     7                 SET MARGINS?
     3214   01 00BF8    68300C04              BE       LMSB              YEP
     3215   01 00BF9    21100001 A            CI,1     1                 READ AND INHIBIT?
     3216   01 00BFA    68300C0B              BE       LMSC              B,YES
     3217   01 00BFB    2510027C A            SCS,1    -4                POSITION FOR LCF
     3218   01 00BFC    22600000 A            LI,6     0
     3219   01 00BFD    70300001 A            LCF      1                 LOAD CC FROM REGISTER 1
     3220   01 00BFE    AD600002 A            LMS,6    *2                DO THE LMS
     3221   01 00BFF    2270665F              LI,7     BA(SLOTDTA)+3     TO ADDRESS
     3222   01 00C00    22C00008 A            LI,12    8                 COUNT
     3223   01 00C01    6AE00773              BAL,14   TXLATE            SPREAD RESULTS
     3224   01 00C02    04E01997              MTYPE    SLOTDTA
     3225   01 00C03    6800095C              B        CREXIT            EXIT
     3226                            *
     3227   01 00C04    326008D4     LMSB     LW,6     VALB+2            GET MARGINS SETTING
     3228   01 00C05    31600C0A              CW,6     LMSOK             VALID DATA?
     3229   01 00C06    694008F8              BANZ     SERROR3           B,NO
     3230   01 00C07    02300070 A            LCFI     7                 LOAD CCS
     3231   01 00C08    AD600002 A            LMS,6    *2                STE MARGINS
     3232   01 00C09    6800095C              B        CREXIT            EXIT
     3233   01 00C0A    FF07FFFF A   LMSOK    DATA     X'FF07FFFF'       MASK FOR VALID LMS DATA
     3234                            *
     3235   01 00C0B    22500000 A   LMSC     LI,5     0                 CLEAR IT OUT
     3236   01 00C0C    02200010 A            LCI      1                 LOAD CCS
     3237   01 00C0D    AD300002 A            LMS,3    *2                GET THE WORD
     3238   01 00C0E    74000004 A   COMLMSRD STCF     4                 SAVE CCS
     3239   01 00C0F    25400301 A            SCD,4    1                 MOVE IT IN
     3240   01 00C10    25500003 A            SLS,5    3                 POSITION IT
     3241   01 00C11    25400301 A            SCD,4    1                 MOVE IT IN
     3242   01 00C12    25500003 A            SLS,5    3                 POSITION IT
     3243   01 00C13    25400301 A            SCD,4    1                 MOVE IT IN
     3244   01 00C14    25500004 A            SLS,5    4                 POSITION EM
     3245   01 00C15    55500006 A            STH,5    6                 CCS TO R6
     3246   01 00C16    22C00004 A            LI,12    4                 COUNT
     3247   01 00C17    2270664E              LI,7     BA(LMSMSG)+2      TO ADDRESS
     3248   01 00C18    6AE00773              BAL,14   TXLATE            SPREAD IT OUT
     3249   01 00C19    20700001 A            AI,7     1                 NEXT ADDRESSS
     3250   01 00C1A    32600003 A            LW,6     3                 GET RETURNED DATA
     3251   01 00C1B    22C00008 A            LI,12    8                 COUNT
     3252   01 00C1C    6AE00773              BAL,14   TXLATE            SPREAD IT AROUND
     3253   01 00C1D    04E01993              MTYPE    LMSMSG
     3254   01 00C1E    6800095C              B        CREXIT            EXIT
     3255                            *
     3256   01 00C1F    224FFFE0 A   REMOVE   LI,4     -32               INDEX
     3257   01 00C20    22800000 A            LI,8     0
     3258   01 00C21    325808F2              LW,5     VALB+32,4         GET INPUT
     3259   01 00C22    315007CC              CW,5     FILLER            DONE?
     3260   01 00C23    683009FA              BE       HEXIT             B,YES
     3261   01 00C24    31500C6E              CW,5     HFTEX             HF STUFF?
     3262   01 00C25    68300C54              BE       REMHF             YEP
     3263   01 00C26    31500C6B              CW,5     ALLTEXT           ALL REQUEST?
     3264   01 00C27    68300C40              BE       REMOVEE           B,YES
     3265   01 00C28    31500C6C              CW,5     ODDTEX            ODDS ONLY?
     3266   01 00C29    69300C2C              BNE      %+3               NOPE
     3267   01 00C2A    22500001 A   REMODD   LI,5     1                 START WITH IOP ONE
     3268   01 00C2B    68000C4A              B        REMOVEH           GO DO IT
     3269   01 00C2C    31500C6D              CW,5     ENVTEX            EVENS ONLY?
     3270   01 00C2D    69300C30              BNE      %+3               NOPE
     3271   01 00C2E    22500000 A   REMEVN   LI,5     0                 START WITH IOP 0
     3272   01 00C2F    68000C4A              B        REMOVEH
     3273   01 00C30    2150001B A            CI,5     27                TOO LARGE?
     3274   01 00C31    69200C3E              BG       REMOVED           B,YES
     3275   01 00C32    325808F2     REMOVEA  LW,5     VALB+32,4         GO GET IT
     3276   01 00C33    315007CC              CW,5     FILLER            DONE?
     3277   01 00C34    683009FA              BE       HEXIT             YEP
     3278   01 00C35    330A0F22              MTW,0    IOPTABLA,5        IS THAT IOP THERE?
     3279   01 00C36    68300C3A              BEZ      REMOVEB           B,NO
     3280   01 00C37    25500008 A            SLS,5    8                 POSITOIN FOR RESET
     3281   01 00C38    4F0A4000 A            HIO,0    X'4000',5         RESET IOP
     3282   01 00C39    25500078 A            SLS,5    -8                BACK
     3283   01 00C3A    358A0F42     REMOVEB  STW,8    IOPTABLB,5        CLEAR
     3284   01 00C3B    358A0F62              STW,8    IOPTABLC,5        CLEAR
     3285   01 00C3C    65400C32              BIR,4    REMOVEA           LOOP
     3286   01 00C3D    680009FA              B        HEXIT             GET OUT
     3287   01 00C3E    04E01A24     REMOVED  MTYPE    INVIOP            REPORT BAD
     3288   01 00C3F    680009FA              B        HEXIT             EXIT
     3289   01 00C40    22100000 A   REMOVEE  LI,1     0                 IOP
     3290   01 00C41    222FFFE0 A            LI,2     -32               INDEXER
     3291   01 00C42    33040F42     REMOVEF  MTW,0    IOPTABLA+32,2     IS THERE ONE?
     3292   01 00C43    68300C47              BEZ      REMOVEG           B,NO
     3293   01 00C44    35840F62              STW,8    IOPTABLB+32,2     CLEAR TEST TABLE
     3294   01 00C45    35840F82              STW,8    IOPTABLC+32,2     AND THIS ONE TOO
     3295   01 00C46    4F024000 A            HIO,0    X'4000',1         RESET THE IOP
     3296   01 00C47    20100100 A   REMOVEG  AI,1     X'100'            NEXT IOP
     3297   01 00C48    65200C42              BIR,2    REMOVEF           NEXT INDEX
     3298   01 00C49    68000C5E              B        REMHFAL           AND GET OUT
     3299   01 00C4A    222FFFE4 A   REMOVEH  LI,2     -28
     3300   01 00C4B    22800000 A            LI,8     0
     3301   01 00C4C    33040F3E              MTW,0    IOPTABLA+28,2
     3302   01 00C4D    68300C51              BEZ      REMOVEI
     3303   01 00C4E    358A0F42              STW,8    IOPTABLB,5        CLEAR THIS TABLE ENTRY
     3304   01 00C4F    358A0F62              STW,8    IOPTABLC,5        THIS ONE TOO
     3305   01 00C50    4F0A4000 A            HIO,0    X'4000',5         RESET THE IOP
     3306   01 00C51    20500002 A   REMOVEI  AI,5     2                 BUMP COUNT
     3307   01 00C52    65200C4B              BIR,2    REMOVEH+1         DO IT AGAIN
     3308   01 00C53    680009FA              B        HEXIT             THEM GET OUT
     3309   01 00C54    325008D3     REMHF    LW,5     VALB+1            THIS IS THE SYSTEM
     3310   01 00C55    315007CC              CW,5     FILLER            IF ANY
     3311   01 00C56    68300C5E              BE       REMHFAL           TAKE THEM ALL OUT
     3312   01 00C57    21500003 A            CI,5     3                 MAX PROCESSORS
     3313   01 00C58    692008F4              BG       SERROR1           TOO MANY PROCESSORS
     3314   01 00C59    330A0F3E              MTW,0    HFTABLA,5         IS HE THERE?
     3315   01 00C5A    683009FA              BEZ      HEXIT             NO, AND GET OUT
     3316   01 00C5B    358A0F5E              STW,8    HFTABLB,5         CLEAR IT OUT
     3317   01 00C5C    358A0F7E              STW,8    HFTABLC,5         YOU TOO
     3318   01 00C5D    680009FA              B        HEXIT             CLEAR OUT
     3319   01 00C5E                 REMHFAL  RES      0
     3320   01 00C5E    222FFFFD A            LI,2     -3                MAKE AN INDEX
     3321   01 00C5F    32540B8E              LW,5     HADDR+3,2         GET PROPER HF ADDRESS
     3322   01 00C60    35500BB8              STW,5    HFADDR            AND PUT IT AWAY
     3323   01 00C61    33040F41              MTW,0    HFTABLA+3,2       ANYONE HOME ?
     3324   01 00C62    68300C69              BEZ      REMHF1            B,NO
     3325   01 00C63    35500BB8              STW,5    HFADDR            SAVE ADDRESS FOR WD
     3326   01 00C64    35200E8A              STW,2    HFTEMP            SAVE FOR A MINUTE
     3327   01 00C65    6AE00B43              BAL,14   THFHIO            SHUT IT DOWN
     3328   01 00C66    35840F61              STW,8    HFTABLB+3,2
     3329   01 00C67    35840F81              STW,8    HFTABLC+3,2       YOU TOO
     3330   01 00C68    32200E8A              LW,2     HFTEMP            REGET THE INDEX
     3331   01 00C69    65200C5F     REMHF1   BIR,2    REMHFAL+1         OVER AGAIN
     3332   01 00C6A    680009FA              B        HEXIT             GET OUT
     3333   01 00C6B    000AD3D3 A   ALLTEXT  DATA     X'000AD3D3'
     3334   01 00C6C    0000D6DD A   ODDTEX   DATA     X'0000D6DD'
     3335   01 00C6D    00EE5ED5 A   ENVTEX   DATA     X'00EE5ED5'
     3336   01 00C6E    00000C8F A   HFTEX    DATA     X'00000C8F'
     3337                            *
     3338                            *
     3339   01 00C6F    6AF00C72     RDIRECT  BAL,15   DIRECTC           GET GROUP ADDRESS
     3340   01 00C70    6C3C0000 A            RD,3     0,6               DO IT
     3341   01 00C71    68000C0E              B        COMLMSRD          GO PRINT DATA
     3342                            *
     3343                            *
     3344   01 00C72    326008D2     DIRECTC  LW,6     VALB              GET GROUP ETC
     3345   01 00C73    227FF000 A            LI,7     X'FF000'          MASK
     3346   01 00C74    456035B9              CS,6     =X'3000'          VALID GROUP?
     3347   01 00C75    E910000F A            BL       *15               0-2 ARE OK
     3348   01 00C76    456035BA              CS,6     =X'F000'          GROUP 15?
     3349   01 00C77    E830000F A            BE       *15               ITS OK,RETURN
     3350   01 00C78    680008F4              B        SERROR1           B,NO
     3351                            *
     3352                            *
     3353   01 00C79    6AF00C72     WDIRECT  BAL,15   DIRECTC           GET GROUP ETC.
     3354   01 00C7A    323008D3              LW,3     VALB+1            GET DAATA
     3355   01 00C7B    313007CC              CW,3     FILLER            WAS THERE ANY?
     3356   01 00C7C    69300C7E              BNE      %+2               B,YES
     3357   01 00C7D    22300000 A            LI,3     0                 OTHERWISE ASSUME ZEROS
     3358   01 00C7E    6D3C0000 A            WD,3     0,6               DO IT
     3359   01 00C7F    68000C0E              B        COMLMSRD          GO PRINT REG AND CC DATA
     3360                            *                                                                       06-19-72
     3361                            *
     3362   01 00C80    4B0007CA     MTTEST   AND,0    IOMASK            GET RID OF ANY FUNNY BITS
     3363   01 00C81    CD700000 A            TIO,7    *0                TEST ADDRESS
     3364   01 00C82    69800C87              BIOANR   MTNR              NO ADDRESS RECOGNITION
     3365   01 00C83    69400C8B              BIOSNP   MTNP              SIO NOT POSSIBLE
     3366   01 00C84    317007FA              CW,7     H1                MANUAL?
     3367   01 00C85    68400C8F              BAZ      MTMAN             IS SURE IS
     3368   01 00C86    E8000008 A            B        *8                RETURN
     3369   01 00C87    2270678B     MTNR     LI,7     BA(MTNRM)+3       MESSAGE ADDRESS
     3370   01 00C88    6AF00C93              BAL,15   MTCNV             CONVERT ADDRESS
     3371   01 00C89    04E019E2              MTYPE    MTNRM             NO ADDRESS RECOGNITION
     3372   01 00C8A    6800095C              B        CREXIT            COMMON EXITER
     3373   01 00C8B    227067B3     MTNP     LI,7     BA(MTNPM)+3       MESSAGE ADDRESS
     3374   01 00C8C    6AF00C93              BAL,15   MTCNV             CONVERT ADDRESS
     3375   01 00C8D    04E019EC              MTYPE    MTNPM             START NOT POSSIBLE
     3376   01 00C8E    6800095C              B        CREXIT            COMMON EXITER
     3377   01 00C8F    227067A3     MTMAN    LI,7     BA(MTMANM)+3      MESSAGE ADDRESS
     3378   01 00C90    6AF00C93              BAL,15   MTCNV             CONVERT ADDRESS
     3379   01 00C91    04E019E8              MTYPE    MTMANM            MANUAL
     3380   01 00C92    6800095C              B        CREXIT            COMMON EXITER
     3381   01 00C93    32600000 A   MTCNV    LW,6     0                 GET THE ADDRESS
     3382   01 00C94    25600014 A            SLS,6    20                POSITION IT
     3383   01 00C95    22C00003 A            LI,12    3                 COUNT
     3384   01 00C96    6AE00773              BAL,14   TXLATE            TRANSLATE IT
     3385   01 00C97    E800000F A            B        *15               RETURN
     3386                            *
     3387                            *
     3388   01 00C98    6AF0092C     REPLACE  BAL,15   GETADVAL          GO AND GET THE INPUT VALUES
     3389   01 00C99    351008D4              STW,1    VALB+2            SAVE
     3390   01 00C9A    352008D5              STW,2    VALB+3            EM
     3391   01 00C9B    22F00000 A            LI,15    0                 FLAG
     3392   01 00C9C    35F00A6E              STW,15   DUFLAG            A TYPE
     3393   01 00C9D    6AF00A06              BAL,15   DILOOP1           TYPE IT
     3394   01 00C9E    321008D4     REAGAIN  LW,1     VALB+2            GET
     3395   01 00C9F    322008D5              LW,2     VALB+3            EM BACK
     3396   01 00CA0    22F00000 A            LI,15    0                 EXIT CONTROLL FLAG
     3397   01 00CA1    04E01A11     RELCR    MTYPE    SPACE             ALIGN THE LINE
     3398   01 00CA2    22D00000 A            LI,13    0                 ACCUMULATOR
     3399   01 00CA3    22E00000 A            LI,14    0                 ACCUMULATOR EMPTY
     3400   01 00CA4    2250003F A   RELOO    LI,5     63                COUNT
     3401   01 00CA5    75500868              STB,5    RPLY              INTO BUFFER
     3402   01 00CA6    04F00868              MINKEY   RPLY              INPUT DATA
     3403   01 00CA7    72500868              LB,5     RPLY              GET ACTUAL COUNT
     3404   01 00CA8    226021A1              LI,6     BA(RPLY)+1        FIRST CHARACTER INPUT
     3405   01 00CA9    72CC0000 A   RBUFLOOP LB,12    0,6               GET CHARACTEES
     3406   01 00CAA    20600001 A            AI,6     1                 INCREMENT INDEX
     3407   01 00CAB    21C0006B A            CI,12    C','              COMMA
     3408   01 00CAC    68300CC3              BE       REST              YES GO STORE ACCUM.
     3409   01 00CAD    21C00040 A            CI,12    C' '              SPACE
     3410   01 00CAE    68300CB5              BE       RSPACE            YES, GO CLEAR ACCUM.
     3411   01 00CAF    21C00015 A            CI,12    X'15'             CARRIAGE RETURN
     3412   01 00CB0    69300CB8              BNE      NCR               NOPE
     3413   01 00CB1    3300000F A            MTW,0    15                SECOND ONE
     3414   01 00CB2    69300CCB              BNEZ     REXIT
     3415   01 00CB3    22FFFFFF A            LI,15    -1                SET THE FLAG
     3416   01 00CB4    68000CA1              B        RELCR           GET IT SPACED OVER
     3417   01 00CB5    22D00000 A   RSPACE   LI,13    0                 CLEAR ACCUM
     3418   01 00CB6    22E00000 A            LI,14    0                 MARK IT CLEARED
     3419   01 00CB7    68000CC1              B        RNEXT             GET NEXT INPUT
     3420   01 00CB8    22F00000 A   NCR      LI,15    0                 CLAER IT OUT
     3421   01 00CB9    19C00786              CLM,12   HEX1              9-0
     3422   01 00CBA    68600CBE              BCR,6    RUND              YEP
     3423   01 00CBB    19C00788              CLM,12   HEX2              A-F
     3424   01 00CBC    69600CC1              BCS,6    RNEXT             NOPE GET NEXT CHAR
     3425   01 00CBD    20C00039 A            AI,12    X'39'             MAKE IT LOOK GOOD
     3426   01 00CBE    25C0001C A   RUND     SLS,12   28                PUT IT INTO
     3427   01 00CBF    25C00304 A            SCD,12   4                 THE ACCUMULATOR
     3428   01 00CC0    20E00001 A            AI,14    1                 MARK ACCUMULATOR BUSY
     3429   01 00CC1    64500CA9     RNEXT    BDR,5    RBUFLOOP          GET NEXT BUFFER CHAR
     3430   01 00CC2    68000CA4              B        RELOO             GET MORE INPUT
     3431   01 00CC3    3300000E A   REST     MTW,0    14                ACCUMULATOR EMPTY
     3432   01 00CC4    68300CC6              BEZ      %+2               SURE IS
     3433   01 00CC5    B5D00002 A            STW,13   *2                STORE NEW VALUE
     3434   01 00CC6    33100002 A            MTW,1    2                 NEXT ADDRESS
     3435   01 00CC7    22D00000 A            LI,13    0                 CLEAR ACCUMULATOR
     3436   01 00CC8    22E00000 A            LI,14    0                 MARK ACCUM EMPTY
     3437   01 00CC9    33F00001 A            MTW,-1   1                 DECREMENT THE WORD COUNT
     3438   01 00CCA    68100CC1              BGEZ     RNEXT             NEXT CHARACTER
     3439   01 00CCB    321008D4     REXIT    LW,1     VALB+2            ORIGIONAL COUNT
     3440   01 00CCC    322008D5              LW,2     VALB+3            AND ADDRESS
     3441   01 00CCD    6AF00A06              BAL,15   DILOOP1           RETYPE EM
     3442   01 00CCE    04E01A0C              MTYPE    REDM              COMPLETION MSG
     3443   01 00CCF    04F019E1              MINKEY   ONE               INPUT ORDER
     3444   01 00CD0    22100001 A            LI,1     1                 INDEX
     3445   01 00CD1    728219E1              LB,8     ONE,1             GET RESPONCE
     3446   01 00CD2    218000E8 A            CI,8     C'Y'              YES?
     3447   01 00CD3    6830095C              BE       CREXIT            YES
     3448   01 00CD4    68000C9E              B        REAGAIN           DO IT AGAIN
     3449                            *
     3450                            *
     3451   01 00CD5    321007CE     SEARCH   LW,1     MSIZE             GET MEMORY COUNT
     3452   01 00CD6    33F00001 A            MTW,-1   1                 LESS ONE FOR A REAL COUNT
     3453   01 00CD7    22200000 A            LI,2     0                 INDEX INITIALIZATION
     3454   01 00CD8    32040000 A   SELW     LW,0     0,2               LOAD THE WORD
     3455   01 00CD9    33100002 A            MTW,1    2                 INCREMENT THE WORD ADDRESS
     3456   01 00CDA    02000CDA              NOP      %                 DELAY
     3457   01 00CDB    64100CD8              BDR,1    SELW              NEXT ONE
     3458   01 00CDC    6800095C              B        CREXIT            EXIT IT
     3459                            *
     3460                            *
     3461   01 00CDD    221FFFE0 A   SELECT   LI,1     -32               INDEXER
     3462   01 00CDE    320008D2              LW,0     VALB              GET TABLE INDICATOR
     3463   01 00CDF    68300CEE              BEZ      UNSELECT          ZERO MEANS RELEASE SELECT MODE
     3464   01 00CE0    2100000B A            CI,0     X'B'              TABLE B?
     3465   01 00CE1    68300CF0              BE       SELBTAB           B,YES
     3466   01 00CE2    2100000C A            CI,0     X'C'              TABLE C?
     3467   01 00CE3    693008F4              BNE      SERROR1           NO,ERROR
     3468   01 00CE4    32620F82     SELECTA  LW,6     IOPTABLC+32,1     GET ENTRY
     3469   01 00CE5    33020F62              MTW,0    IOPTABLB+32,1     IS THERE ONE
     3470   01 00CE6    68300CEB              BEZ      NOCTAB            B,NO
     3471   01 00CE7    6AF00CF8              BAL,15   SELIN             GET INPUT
     3472   01 00CE8    33000004 A            MTW,0    4
     3473   01 00CE9    68300CEB              BEZ      NOCTAB            NOTHING IN CLEAR IT
     3474   01 00CEA    35320F82              STW,3    IOPTABLC+32,1     PUT IN NEW ENTRY
     3475   01 00CEB    65100CE4     NOCTAB   BIR,1    SELECTA           LOOP
     3476   01 00CEC    331007B7              MTW,1    SELECTFL          SET SELECT FLAG
     3477   01 00CED    6800095C              B        CREXIT            AND EXIT
     3478   01 00CEE    350007B7     UNSELECT STW,0    SELECTFL          CLEAR SELECT MODE
     3479   01 00CEF    6800095C              B        CREXIT            AND GET OUT
     3480                            *
     3481   01 00CF0    32620F62     SELBTAB  LW,6     IOPTABLB+32,1     GET ENTRY
     3482   01 00CF1    68300CF6              BEZ      NOBTAB            B,NONE
     3483   01 00CF2    6AF00CF8              BAL,15   SELIN             GET INPUT
     3484   01 00CF3    33000004 A            MTW,0    4                 ANY INPUT?
     3485   01 00CF4    68300CF6              BEZ      NOBTAB            B,NO
     3486   01 00CF5    35320F62              STW,3    IOPTABLB+32,1     STORE NEW ENTRY
     3487   01 00CF6    65100CF0     NOBTAB   BIR,1    SELBTAB           LOOP
     3488   01 00CF7    6800095C              B        CREXIT            AND EXIT
     3489                            *
     3490                            *
     3491   01 00CF8    22706AAA     SELIN    LI,7     BA(SELMES)+2      TO ADDRESS
     3492   01 00CF9    22C00008 A            LI,12    8                 COUNT
     3493   01 00CFA    6AE00773              BAL,14   TXLATE            SPREAD IT
     3494   01 00CFB    04E01AAA              MTYPE    SELMES
     3495   01 00CFC    04E01B46              MTYPE    CR
     3496   01 00CFD    22300000 A            LI,3     0                 CLEAR ACCUMULATOR
     3497   01 00CFE    22400000 A            LI,4     0                 CLEAR INPUT INDICATOR
     3498   01 00CFF    22200020 A   SELINA   LI,2     32
     3499   01 00D00    75200868              STB,2    RPLY              INPUT COUNT
     3500   01 00D01    04F00868              MINKEY   RPLY              GET INPUT
     3501   01 00D02    72500868              LB,5     RPLY              GET ACTUAL INPUT COUNT
     3502   01 00D03    226021A1              LI,6     BA(RPLY)+1        GET ADDRESS OF FIRST INPUT
     3503   01 00D04    722C0000 A   SELLOOP  LB,2     0,6               GET NEXT CHARACTER
     3504   01 00D05    21200040 A            CI,2     C' '              SPACE
     3505   01 00D06    68300D14              BE       SELINS            RESTART
     3506   01 00D07    21200015 A            CI,2     X'15'             NEWLINE?
     3507   01 00D08    E830000F A            BE       *15               EXIT
     3508   01 00D09    20600001 A            AI,6     1                 NEXT BYTE
     3509   01 00D0A    19200786              CLM,2    HEX1              VALID DATA?
     3510   01 00D0B    68600D0F              BCR,6    SELX              B,YES
     3511   01 00D0C    19200788              CLM,2    HEX2              VALID DATA?
     3512   01 00D0D    69600D12              BCS,6    SELNEXT           B,NO
     3513   01 00D0E    20200039 A            AI,2     X'39'             MAKE IT RIGHT
     3514   01 00D0F    2520001C A   SELX     SLS,2    28                POSITION IT
     3515   01 00D10    25200304 A            SCD,2    4                 PUT  INTO ACCUMULATOR
     3516   01 00D11    33100004 A            MTW,1    4                 MARK INPUT
     3517   01 00D12    64500D04     SELNEXT  BDR,5    SELLOOP           LOOP
     3518   01 00D13    68000CFF              B        SELINA            LOOP FOR NEXT CHARACTER
     3519   01 00D14    22300000 A   SELINS   LI,3     0                 CLEAR ACCUMULATOR
     3520   01 00D15    22400000 A            LI,4     0                 MARK EMPTY
     3521   01 00D16    68000D12              B        SELNEXT           CONTINUE
     3522                            *
     3523                            *
     3524   01 00D17    321008D2     SETSIZE  LW,1     VALB              GET THE VALUE REQUESTED
     3525   01 00D18    311007CC              CW,1     FILLER            WAS THERE ONE?
     3526   01 00D19    683008F4              BE       SERROR1           B,NO
     3527   01 00D1A    21104000 A            CI,1     16384             VALID SIZE
     3528   01 00D1B    681008F4              BGE      SERROR1           B,NO
     3529   01 00D1C    351007C7              STW,1    BUFSIZE           PUT IT AWAY
     3530   01 00D1D    680009FA              B        HEXIT             AND GET OUT
     3531                            *
     3532   01 00D1E                 SINT     RES      0
     3533   01 00D1E    326007AD              LW,6     IOSPUR            GET COUNT
     3534   01 00D1F    22C00008 A            LI,12    8
     3535   01 00D20    2270680F              LI,7     BA(SPURTXT)+3
     3536   01 00D21    6AE00773              BAL,14   TXLATE
     3537   01 00D22    04E01A03              MTYPE    SPURTXT
     3538   01 00D23    22600000 A            LI,6     0
     3539   01 00D24    356007AD              STW,6    IOSPUR            RESET AND STORE COUNT
     3540   01 00D25    680009FA              B        HEXIT
     3541   01 00D26    320008D2     TICK     LW,0     VALB              GET SELECTED TIME
     3542   01 00D27    310007CC              CW,0     FILLER            WAS THERE ONE?
     3543   01 00D28    69300D2A              BNE      %+2               B,YES
     3544   01 00D29    22000000 A            LI,0     0
     3545   01 00D2A    350007C4              STW,0    SELECTDLY         SET IT UP
     3546   01 00D2B    6800095C              B        CREXIT            AND GET OUT
     3547                            *
     3548   01 00D2C    321007FF     TRACKBUF LW,1     H8                FLAG BIT
     3549   01 00D2D    22500001 A            LI,5     1                 ASSUME ONE
     3550   01 00D2E    324008D2              LW,4     VALB              WAS THERE ONE?
     3551   01 00D2F    314007CC              CW,4     FILLER            WAS THERE ONE?
     3552   01 00D30    69300D34              BNE      TRACKA            OK,ONE SELECTED
     3553   01 00D31    22500020 A            LI,5     32
     3554   01 00D32    224FFFE1 A            LI,4     -31               LETS DO EM ALL
     3555   01 00D33    68000D37              B        TRACKB            DO IT
     3556   01 00D34    2140001F A   TRACKA   CI,4     31                VALID NUMBER?
     3557   01 00D35    692008F4              BG       SERROR1           TOO BAD
     3558   01 00D36    204FFFE1 A            AI,4     -31               COMPUTE INDEX
     3559   01 00D37    33080F61     TRACKB   MTW,0    IOPTABLB+31,4     THIS ONE?
     3560   01 00D38    68300D3A              BEZ      TRACKC            B,NO
     3561   01 00D39    47180FC2              STS,1    IOPTABLE+31,4     MARK IT
     3562   01 00D3A    20400001 A   TRACKC   AI,4     1                 BUMP INDEX
     3563   01 00D3B    64500D37              BDR,5    TRACKB            LOOP?
     3564   01 00D3C    6800095C              B        CREXIT            GET OUT
     3565                            *
     3566   01 00D3D                 TEST     RES      0
     3567   01 00D3D    321008D2              LW,1     VALB              GET FIRST PARAMETER
     3568   01 00D3E    311007CC              CW,1     FILLER            ANY? NONE MEANS TEST ON
     3569   01 00D3F    68300D42              BE       %+3               B,NO PARAMETER
     3570   01 00D40    31100D4B              CW,1     TON               IS IT ON ?
     3571   01 00D41    69300D45              BNE      TEST1             B,NO COULD BE OFF
     3572   01 00D42    22000000 A            LI,0     0                 GRAB A ZERO
     3573   01 00D43    35000D4A              STW,0    HDATTST           CLEAR THE FLAG
     3574   01 00D44    680009FA              B        HEXIT             GO BACK
     3575   01 00D45    31100D4C     TEST1    CW,1     TOFF              IS IT A OFF ?
     3576   01 00D46    693008F4              BNE      SERROR1           B,MISTAKE
     3577   01 00D47    221000FF A            LI,1     X'FF'             IT IS OFF
     3578   01 00D48    35100D4A              STW,1    HDATTST           NO DATA CHECK
     3579   01 00D49    680009FA              B        HEXIT             GO BACK
     3580   01 00D4A    00000000 A   HDATTST  DATA     0
     3581   01 00D4B    0000D6D5 A   TON      DATA     X'0000D6D5'
     3582   01 00D4C    0000D6FF A   TOFF     DATA     X'0000D6FF'
     3583                            *
     3584   01 00D4D    321007FF     FREEBUF  LW,1     H8                FLAG BIT
     3585   01 00D4E    22000000 A            LI,0     0
     3586   01 00D4F    22500001 A            LI,5     1                 ASSUME ONE
     3587   01 00D50    324008D2              LW,4     VALB              WAS THERE ONE?
     3588   01 00D51    314007CC              CW,4     FILLER            WAS THERE ONE?
     3589   01 00D52    69300D56              BNE      FREEA             OK,ONE SELECTED
     3590   01 00D53    22500020 A            LI,5     32
     3591   01 00D54    224FFFE1 A            LI,4     -31               LETS DO EM ALL
     3592   01 00D55    68000D59              B        FREEB             DO IT
     3593   01 00D56    2140001F A   FREEA    CI,4     31                VALID NUMBER?
     3594   01 00D57    692008F4              BG       SERROR1           TOO BAD
     3595   01 00D58    204FFFE1 A            AI,4     -31               COMPUTE INDEX
     3596   01 00D59    33080F61     FREEB    MTW,0    IOPTABLB+31,4     THIS ONE?
     3597   01 00D5A    68300D5C              BEZ      FREEC             B,NO
     3598   01 00D5B    47080FC2              STS,0    IOPTABLE+31,4     MARK IT
     3599   01 00D5C    20400001 A   FREEC    AI,4     1                 BUMP INDEX
     3600   01 00D5D    64500D59              BDR,5    FREEB             LOOP?
     3601   01 00D5E    6800095C              B        CREXIT            GET OUT
     3602                            *
     3603                            *
     3604   01 00D5F    327008D2     READIOP  LW,7     VALB              GET THE REQUESTED IOP NUMBER
     3605   01 00D60    2170001B A            CI,7     27                WITHIN RANGE?
     3606   01 00D61    692008F4              BG       SERROR1
     3607   01 00D62    6AF00D78              BAL,15   GETSTAT           GO SET UP THE MESSAGES
     3608   01 00D63    04E01A3C              MTYPE    STATMES
     3609   01 00D64    04E01A44              MTYPE    COMPD             PRINT IOP DATA
     3610   01 00D65    04E01A4E              MTYPE    TIMOUTD           PRINT MS DATA
     3611   01 00D66    6800095C              B        CREXIT            GET OUT
     3612                            *
     3613                            *
     3614   01 00D67    321008D2     PHASETIME LW,1    VALB              GET REQUESTED TIME
     3615   01 00D68    68300D6F              BEZ      PTIMEA            ZERO IS FOREVER APPROXIMATLY
     3616   01 00D69    31100D77              CW,1     TSET              RESET TIME ?
     3617   01 00D6A    68300D74              BE       TICK1             B,YES
     3618   01 00D6B    311007CC              CW,1     FILLER            WAS THERE ONE?
     3619   01 00D6C    68300D6F              BE       PTIMEA            B,NO,SAME AS ZERO
     3620   01 00D6D    23104E20 A            MI,1     20000             CONVERT TO MIN.
     3621   01 00D6E    68000D70              B        PTIMEB
     3622   01 00D6F    321007FB     PTIMEA   LW,1     H4                GET A BIG VALUE
     3623   01 00D70    351007BC     PTIMEB   STW,1    PHASTIME          AND STORE IT AWAY
     3624   01 00D71    301007B3              AW,1     TIMETICK          ADD BASIC ELAPSED TIME
     3625   01 00D72    351007B9              STW,1    PHCNT
     3626   01 00D73    6800095C              B        CREXIT            AND EXIT
     3627   01 00D74    22000000 A   TICK1    LI,0     0                 GRAB A ZERO
     3628   01 00D75    350007B0              STW,0    COUNT3            AND RESET THE TIME
     3629   01 00D76    6800095C              B        CREXIT            BYE
     3630   01 00D77    000E2EE3 A   TSET     DATA     X'000E2EE3'
     3631                            *
     3632   01 00D78    35F00DA5     GETSTAT  STW,15   STATEXIT
     3633   01 00D79    35700DA4              STW,7    STATSAVE          SAVE REG 7
     3634   01 00D7A    32100DA4              LW,1     STATSAVE          GET INDEX
     3635   01 00D7B    25100004 A            SLS,1    4                 MAKE IT A WD VALUE
     3636   01 00D7C    22300002 A            LI,3     2
     3637   01 00D7D    326E0F62              LW,6     IOPTABLC,7        GET DEVICE ADDRESS
     3638   01 00D7E    22800000 A            LI,8     0                 CLEAR IT OUT AND
     3639   01 00D7F    72860006 A            LB,8     6,3               GET DEVICE ADDRESS
     3640   01 00D80    2580027A A            SCS,8    -6                POSITION FOR FAM CONTROL
     3641   01 00D81    6D822009 A            WD,8     X'2009',1         LOAD LOWER FAM
     3642   01 00D82    6C222008 A            RD,2     X'2008',1
     3643   01 00D83    6C322009 A            RD,3     X'2009',1
     3644   01 00D84    6C42200A A            RD,4     X'200A',1
     3645   01 00D85    6C52200B A            RD,5     X'200B',1
     3646   01 00D86    02200040 A            LCI      4
     3647   01 00D87    2B20078C              STM,2    TEMP              PUT EM INTO TEMP
     3648   01 00D88    22706914              LI,7     BA(COMPD+1)       MESSAAGE ADDRESS
     3649   01 00D89    22200004 A            LI,2     4                 COUNT
     3650   01 00D8A    6AF0076B              BAL,15   XLATTEMP          GO SPREAD IT INTO MESSAGE
     3651   01 00D8B    32100DA4              LW,1     STATSAVE          GET INDEX
     3652   01 00D8C    25100004 A            SLS,1    4                 MAKE IT A WD VALUE
     3653   01 00D8D    308007F6              AW,8     H02
     3654   01 00D8E    6D822009 A            WD,8     X'2009',1         LOAD UPPER FAM
     3655   01 00D8F    6C62200A A            RD,6     X'200A',1
     3656   01 00D90    6C72200B A            RD,7     X'200B',1
     3657   01 00D91    6C82200E A            RD,8     X'200E',1
     3658   01 00D92    6C92200F A            RD,9     X'200F',1
     3659   01 00D93    02200040 A            LCI      4
     3660   01 00D94    2B60078C              STM,6    TEMP              PUT EM INTO TEMP
     3661   01 00D95    2270693C              LI,7     BA(TIMOUTD+1)     MESSAGE ADDRESS
     3662   01 00D96    22200004 A            LI,2     4                 COUNT
     3663   01 00D97    6AF0076B              BAL,15   XLATTEMP          GO SPREAD INT MESSAGE
     3664   01 00D98    32100DA4              LW,1     STATSAVE          GET INDEX
     3665   01 00D99    25100004 A            SLS,1    4                 MAKE IT A WD VALUE
     3666   01 00D9A    4B1007E7              AND,1    XFE0              REMOVE ODD IOP BIT
     3667   01 00D9B    6CB22000 A            RD,11    X'2000',1
     3668   01 00D9C    6CC22001 A            RD,12    X'2001',1
     3669   01 00D9D    6CD22002 A            RD,13    X'2002',1
     3670   01 00D9E    02200030 A            LCI      3
     3671   01 00D9F    2BB0078C              STM,11   TEMP              PUT IOP WORDS INTO TEMP
     3672   01 00DA0    227068F4              LI,7     BA(STATMES+1)     MESSAGE ADDRESS
     3673   01 00DA1    22200003 A            LI,2     3                 WORD COUNT
     3674   01 00DA2    6AF0076B              BAL,15   XLATTEMP          PUT EM INTO MESSAGE
     3675   01 00DA3    E8000DA5              B        *STATEXIT
     3676   01 00DA4                 STATSAVE RES      1
     3677   01 00DA5                 STATEXIT RES      1
     3678                            *
     3679                            *
     3680   01 00DA6    22500001 A   LIST     LI,5     1                 ASSUME ONE
     3681   01 00DA7    324008D2              LW,4     VALB              WAS TRERE A REQUEST?
     3682   01 00DA8    31400DFE              CW,4     LISTZ             DISPLAY IOPTABLC ?
     3683   01 00DA9    68300DC1              BE       LISTQ             B,YES
     3684   01 00DAA    314007CC              CW,4     FILLER            ?
     3685   01 00DAB    69300DAF              BNE      LISTA             OK,ONE SELECTED
     3686   01 00DAC    22500020 A            LI,5     32
     3687   01 00DAD    224FFFE1 A            LI,4     -31               LETS DO EM ALL
     3688   01 00DAE    68000DB2              B        LISTB             DITTO
     3689   01 00DAF    2140001F A   LISTA    CI,4     31                VALID?
     3690   01 00DB0    692008F4              BG       SERROR1           B,NO
     3691   01 00DB1    204FFFE1 A            AI,4     -31               COMPUTE INDEX TO TABLE
     3692   01 00DB2    32980F61     LISTB    LW,9     IOPTABLB+31,4     ADDRERSSES
     3693   01 00DB3    68300DBE              BEZ      LISTC             B,NO ENTRY
     3694   01 00DB4    32A80F81              LW,10    IOPTABLC+31,4     CONTROL
     3695   01 00DB5    32B80FC2              LW,11    IOPTABLE+31,4     BUFFER
     3696   01 00DB6    12C81002              LD,12    IOPTABLF+62,4     CDW
     3697   01 00DB7    32E81043              LW,14    IOPTABLH+31,4     GET LAST WD DATA
     3698   01 00DB8    02200060 A            LCI      6
     3699   01 00DB9    2B90078C              STM,9    TEMP              PUT EM AWAY
     3700   01 00DBA    22706994              LI,7     BA(LISTDATA+1)    ADDRERSS
     3701   01 00DBB    22200006 A            LI,2     6                 COUNTY
     3702   01 00DBC    6AF0076B              BAL,15   XLATTEMP          GO SPREAD IT
     3703   01 00DBD    04E01A64              MTYPE    LISTDATA          SHOW IT
     3704   01 00DBE    20400001 A   LISTC    AI,4     1                 NEXT
     3705   01 00DBF    64500DB2              BDR,5    LISTB             LOOP
     3706   01 00DC0    6800095C              B        CREXIT            AND GET OUT
     3707   01 00DC1                 LISTQ    RES      0
     3708   01 00DC1    04E01C8E              MTYPE    LISTEXT           LISTING HEADING
     3709   01 00DC2    221FFFFF A            LI,1     -1                INIT IOP INDEX
     3710   01 00DC3    35100DFF              STW,1    LISTSAVE          MAKE IT A KNOWN VALUE
     3711   01 00DC4    22200001 A   LISTQ1   LI,2     1                 BYTE INDEX
     3712   01 00DC5    32100DFF              LW,1     LISTSAVE          REGET REGISTER
     3713   01 00DC6    2110001F A            CI,1     31                MAX DEVICES
     3714   01 00DC7    68100DF3              BGE      LISTQ3            B,MUST BE DONE
     3715   01 00DC8    20100001 A            AI,1     1                 GET NEXT DEVICE
     3716   01 00DC9    35100DFF              STW,1    LISTSAVE          SAVE IT
     3717   01 00DCA    33020F22              MTW,0    IOPTABLA,1        SEE IF THE IOP IS CONF.
     3718   01 00DCB    68300DC4              BEZ      LISTQ1            B,NOT CONFIGURED
     3719   01 00DCC    32600001 A            LW,6     1                 PRINT IOP ADDRESS
     3720   01 00DCD    25600018 A            SLS,6    24                MOVE FOR PRINTINT
     3721   01 00DCE    22C00002 A            LI,12    2                 TWO CHAR TO DO
     3722   01 00DCF    2270725E              LI,7     BA(LISTEXT1)+2    PUT IT HERE
     3723   01 00DD0    6AE00773              BAL,14   TXLATE            GO DO IT
     3724   01 00DD1    32420F62              LW,4     IOPTABLC,1        SEE IF MS IS ON--LINE
     3725   01 00DD2    69100DD7              BLZ      LISTQ2            B, SHUD BE
     3726   01 00DD3    32300DFA              LW,3     OFFWORD           MS  IS ON-LINE
     3727   01 00DD4    35301C98              STW,3    LISTEXT1+1        PUT INTO MSG
     3728   01 00DD5    04E01C97              MTYPE    LISTEXT1          TELL THE WORLD
     3729   01 00DD6    68000DC4              B        LISTQ1            START AGAIN
     3730   01 00DD7    32300DFB     LISTQ2   LW,3     ONWORD            MS IS ON-LINE
     3731   01 00DD8    35301C98              STW,3    LISTEXT1+1        PUT INTO MESS.
     3732   01 00DD9    04E01C97              MTYPE    LISTEXT1          PRINT IT
     3733   01 00DDA    32600DFC              LW,6     RDWORD            DEFAULT TO THIS
     3734   01 00DDB    72340004 A            LB,3     4,2               GET OPERATION
     3735   01 00DDC    21300001 A            CI,3     1                 ODD OR EVEN ?
     3736   01 00DDD    69400DDF              BANZ     %+2               B,ODD
     3737   01 00DDE    32600DFD              LW,6     WRTWORD           OK,PUT WRTIE IN
     3738   01 00DDF    35601C9B              STW,6    LISTEXT2+2        STORE IN MESSAGE
     3739   01 00DE0    32620FA3              LW,6     IOPTABLE,1        GET BUFFER ADDRESS
     3740   01 00DE1    2560000C A            SLS,6    12                MOVE FOR PRINTING
     3741   01 00DE2    22C00005 A            LI,12    5                 FIVE CHARS TO DO
     3742   01 00DE3    22707271              LI,7     BA(LISTEXT2)+13   PUT IT HERE
     3743   01 00DE4    6AE00773              BAL,14   TXLATE            GO DO IT
     3744   01 00DE5    20200001 A            AI,2     1                 BUMP COUNT
     3745   01 00DE6    72640004 A            LB,6     4,2               GET NEXT BYTE
     3746   01 00DE7    25600018 A            SLS,6    24                JUSTIFY FOR PRINTING
     3747   01 00DE8    22C00002 A            LI,12    2                 TWO CHARS
     3748   01 00DE9    22707268              LI,7     BA(LISTEXT2)+4    THIS IS THE MS ADDRESS
     3749   01 00DEA    6AE00773              BAL,14   TXLATE            SO PUT INTO MESSAGE
     3750   01 00DEB    20200001 A            AI,2     1                 BUMP BYTE INDEX
     3751   01 00DEC    72640004 A            LB,6     4,2               THIS IS CURRENT DATA PATT.
     3752   01 00DED    25600018 A            SLS,6    24                JUSTIFY FOR PRINTING
     3753   01 00DEE    22C00002 A            LI,12    2                 TWO CHARS WORTH
     3754   01 00DEF    2270727B              LI,7     BA(LISTEXT2)+23
     3755   01 00DF0    6AE00773              BAL,14   TXLATE            GO DO IT
     3756   01 00DF1    04E01C99              MTYPE    LISTEXT2          PRINT IT
     3757   01 00DF2    68000DC4              B        LISTQ1            GO AGAIN
     3758   01 00DF3    32600FA2     LISTQ3   LW,6     CPUBUF            GET CPU BUFFER ADDRESS
     3759   01 00DF4    2560000C A            SLS,6    12                MOVE FOR PRINTING
     3760   01 00DF5    22C00005 A            LI,12    5                 THIS MANY
     3761   01 00DF6    22707290              LI,7     BA(LISTEXT3)+16
     3762   01 00DF7    6AE00773              BAL,14   TXLATE
     3763   01 00DF8    04E01CA0              MTYPE    LISTEXT3          PRINT IT
     3764   01 00DF9    6800095C              B        CREXIT
     3765   01 00DFA    40D6C6C6 A   OFFWORD  DATA     X'40D6C6C6'
     3766   01 00DFB    4040D6D5 A   ONWORD   DATA     X'4040D6D5'
     3767   01 00DFC    D9C5C1C4 A   RDWORD   DATA     X'D9C5C1C4'
     3768   01 00DFD    E6D9E340 A   WRTWORD  DATA     X'E6D9E340'
     3769   01 00DFE    00C9D6D7 A   LISTZ    DATA     X'00C9D6D7'
     3770   01 00DFF    00000000 A   LISTSAVE DATA     0
     3771                            *
     3772   01 00E00    225FFFE4 A   LISTIOP  LI,5     -28               INDEXER
     3773   01 00E01    04E01A1F              MTYPE    IOPHEAD           HEADING
     3774   01 00E02    326A0F5E     LISTNEXT LW,6     IOPTABLB+28,5     GET IOP DATA
     3775   01 00E03    68300E0C              BEZ      LISTSKIP          B,NONE
     3776   01 00E04    22C00004 A            LI,12    4                 COUNT
     3777   01 00E05    2270686F              LI,7     BA(IOPTEXT)+3     TOO ADDRESS
     3778   01 00E06    6AE00773              BAL,14   TXLATE            TRANSLATE IT
     3779   01 00E07    55600006 A            STH,6    6                 LOWER TO UPER
     3780   01 00E08    20700002 A            AI,7     2                 NEXT
     3781   01 00E09    22C00004 A            LI,12    4                 COUNT
     3782   01 00E0A    6AE00773              BAL,14   TXLATE            TRANSLATE THE REST
     3783   01 00E0B    04E01A1B              MTYPE    IOPTEXT           PRINT DATA
     3784   01 00E0C    65500E02     LISTSKIP BIR,5    LISTNEXT          LOOP
     3785   01 00E0D    E800000F A            B        *15               EXIT
     3786                            *
     3787   01 00E0E                 LOOK     RES      0
     3788   01 00E0E    325008D2              LW,5     VALB              GET THE FIRST PARAMETER
     3789   01 00E0F    315007CC              CW,5     FILLER            ANY ?
     3790   01 00E10    683008F4              BE       SERROR1           B,NO
     3791   01 00E11    21500003 A            CI,5     X'3'              BIGGER THAN THIS IS IMPOSSIBLE
     3792   01 00E12    692008F4              BG       SERROR1           SORRY
     3793   01 00E13    322008D3              LW,2     VALB+1            GET THE NEXT PARAMETER
     3794   01 00E14    312007CC              CW,2     FILLER            ANY ?
     3795   01 00E15    69300E17              BNE      %+2               B,YES HAVE ONE
     3796   01 00E16    22200000 A            LI,2     0                 FAKE PROCESSOR # 0
     3797   01 00E17    21200003 A            CI,2     3                 TOO BIG ?
     3798   01 00E18    692008F6              BG       SERROR2           B,YES S/B < 4
     3799   01 00E19    25500002 A            SLS,5    2                 MAKE INTO INDEX
     3800   01 00E1A    30500002 A            AW,5     2                 ADD IN PROCESSOR
     3801   01 00E1B    322A0B6B              LW,2     HADRIX2,5         GET THE HF ID
     3802   01 00E1C    35200BB8              STW,2    HFADDR            AND STORE IT THE THE R/W DIRECTS
     3803   01 00E1D    32200E4F              LW,2     HREGSAV           GET START DATA
     3804   01 00E1E    3520078C              STW,2    TEMP              TO GET REG FROM HF
     3805   01 00E1F    6AF00B4D              BAL,15   HSETUP            GO DO IT
     3806   01 00E20    04E01BE7              MTYPE    CPETEXT           FIRST HEADING
     3807   01 00E21    22706994              LI,7     BA(LISTDATA)+4    PUT INFO HERE
     3808   01 00E22    22200006 A            LI,2     6                 6 WORDS
     3809   01 00E23    6AF0076B              BAL,15   XLATTEMP          GO DO IT
     3810   01 00E24    35100E4E              STW,1    LOOKSAV           SAVE REG 1 FOR A MINUTE
     3811   01 00E25    04E01A64              MTYPE    LISTDATA          SO THAT I KEEP TRACK
     3812   01 00E26    32100E4E              LW,1     LOOKSAV           OF WHICH WORD I AM
     3813   01 00E27    22706994              LI,7     BA(LISTDATA)+4    PRINTING
     3814   01 00E28    22200006 A            LI,2     6                 THIS MANY
     3815   01 00E29    6AF0076C              BAL,15   XLATTEMP+1        ONE LOC SO THAT I
     3816   01 00E2A    35100E4E              STW,1    LOOKSAV           DONT RESET REG 1
     3817   01 00E2B    04E01A64              MTYPE    LISTDATA
     3818   01 00E2C    04E01BF0              MTYPE    CRTEXT            CONTROL REGISTERS
     3819   01 00E2D    32100E4E              LW,1     LOOKSAV           REGET IT
     3820   01 00E2E    22706914              LI,7     BA(COMPD)+4       PUT IT HERE
     3821   01 00E2F    22200004 A            LI,2     4                 THIS MANY
     3822   01 00E30    6AF0076C              BAL,15   XLATTEMP+1        REMEMBER WHY ?
     3823   01 00E31    35100E4E              STW,1    LOOKSAV           LOOK UP !
     3824   01 00E32    04E01A44              MTYPE    COMPD
     3825   01 00E33    04E01BF8              MTYPE    ARTEXT            ADDRESS REGISTERS
     3826   01 00E34    32100E4E              LW,1     LOOKSAV           REGET IT
     3827   01 00E35    22706914              LI,7     BA(COMPD)+4       PUT IT HERE
     3828   01 00E36    22200004 A            LI,2     4                 THIS MANY
     3829   01 00E37    6AF0076C              BAL,15   XLATTEMP+1        GO DO IT
     3830   01 00E38    35100E4E              STW,1    LOOKSAV           SAVE AGAIN
     3831   01 00E39    04E01A44              MTYPE    COMPD             OUTPUT ADDR REGS
     3832   01 00E3A    04E01C00              MTYPE    DRTEXT            DATA REGISTERS 0 - 2
     3833   01 00E3B    32100E4E              LW,1     LOOKSAV           REGET IT AGAIN
     3834   01 00E3C    22200003 A            LI,2     3                 ONLY 3 WORDS THIS TIME
     3835   01 00E3D    227068F4              LI,7     BA(STATMES)+4     PUT IT HERE
     3836   01 00E3E    6AF0076C              BAL,15   XLATTEMP+1        GO DO IT
     3837   01 00E3F    35100E4E              STW,1    LOOKSAV           SAVE AGAIN ...
     3838   01 00E40    04E01A3C              MTYPE    STATMES
     3839   01 00E41    04E01C07              MTYPE    DR3TEXT           DATA REGISTER 3
     3840   01 00E42    32100E4E              LW,1     LOOKSAV           REGET THE WORD
     3841   01 00E43    22706914              LI,7     BA(COMPD)+4       PUT IT HERE
     3842   01 00E44    22200004 A            LI,2     4                 THIS MANY
     3843   01 00E45    6AF0076C              BAL,15   XLATTEMP+1        GO DO IT
     3844   01 00E46    35100E4E              STW,1    LOOKSAV           ALMOST DONE
     3845   01 00E47    04E01A44              MTYPE    COMPD
     3846   01 00E48    32100E4E              LW,1     LOOKSAV           REGET FOR THE LAST TIME
     3847   01 00E49    22706914              LI,7     BA(COMPD)+4       PUT IT THERE
     3848   01 00E4A    22200004 A            LI,2     4                 LAST 4 !
     3849   01 00E4B    6AF0076C              BAL,15   XLATTEMP+1        ALMOST ...
     3850   01 00E4C    04E01A44              MTYPE    COMPD
     3851   01 00E4D    680009FA              B        HEXIT             GOOD BYE
     3852   01 00E4E    00000000 A   LOOKSAV  DATA     0
     3853   01 00E4F    F3000000 A   HREGSAV  DATA     X'F3000000'       PUT SAVE REG. IN SIG MEM
     3854   01 00E50    00005000 A   PANLOK   DATA     X'00005000'       RUN AND OR FAULT
     3855   01 00E51    00000000 A   HFCCSV   DATA     0                 CC RESPONSE
     3856   01 00E52    0000F800 A   HCRES    DATA     X'F800'           RESERVE CONTROL PANL
     3857   01 00E53    0000F810 A   HCUDS    DATA     X'F810'           DIO TO UPPER DATA SWITCHES
     3858   01 00E54    0000F820 A   HCLDS    DATA     X'F820'           DIO TO LOWER DATA SWITCHES
     3859   01 00E55    0000F870 A   HCTMON   DATA     X'F870'           TEST MODE ON
     3860   01 00E56    0000F970 A   HCTMOF   DATA     X'F970'           TEST MODE OFF
     3861   01 00E57    0000F950 A   HCIDLE   DATA     X'F950'           IDLE
     3862         01 00E58           HINDX    EQU      %                 TRICKY STUFF
     3863   01 00E58    0000F800 A   HCPIA    DATA     X'F800'           READ PIA
     3864   01 00E59    0000F830 A   HCASL    DATA     X'F830'           READ ADDR SEL ETC...
     3865   01 00E5A    0000F840 A   HCPS     DATA     X'F840'           READ THE STATE OF THE PANL
     3866   01 00E5B    0000F850 A   HCUDI    DATA     X'F850'           READ UPPER DATA INDICATORS
     3867   01 00E5C    0000F860 A   HCLDI    DATA     X'F860'           READ LOWER DATA INDICATORS
     3868   01 00E5D    0000F870 A   HFNIA    DATA     X'F870'           READ NIA
     3869   01 00E5E    0000F8D0 A   HCSTORE  DATA     X'F8D0'           STORE
     3870   01 00E5F    0000F840 A   HCMCR    DATA     X'F840'           MCR DISPLAY
     3871   01 00E60    0000F830 A   HCSAS    DATA     X'F830'           SET ADDR SEL SWITCHES
     3872   01 00E61    0000F8F0 A   HCHON    DATA     X'F8F0'           HOLD ON
     3873   01 00E62    0000F900 A   HCHOF    DATA     X'F900'           HOLD OFF
     3874   01 00E63    0000F8B0 A   HCDBUS   DATA     X'F8B0'           DBUS DISPLAY
     3875   01 00E64    0000F8A0 A   HCABUS   DATA     X'F8A0'           ABUS DISPLAY
     3876   01 00E65    0000F940 A   HCRUN    DATA     X'F940'           RUN SWITCH
     3877   01 00E66    0000F080 A   HSUSP    DATA     X'F080'           SUSPEND COMMAND
     3878   01 00E67    0000F090 A   HACTV    DATA     X'F090'           ACTIVATE COMMAND
     3879   01 00E68    00010781 A   WRCR     DATA     X'00010781'       WRITE CONTROL REG
     3880   01 00E69    000107B1 A   WRCR3    DATA     X'000107B1'       WRITE CONTROL REG #3
     3881   01 00E6A    0000F960 A   HCSTEP   DATA     X'F960'           STEP THE HF
     3882   01 00E6B    00010780 A   RDCR     DATA     X'00010780'       RREAD CONTROL REG
     3883   01 00E6C    00010700 A   RDAR     DATA     X'00010700'       READ ADDRESS REG
     3884   01 00E6D    00010740 A   RDDR     DATA     X'00010740'       READ DATA REG
     3885   01 00E6E    00010772 A   RDDR3AR  DATA     X'00010772'       READ DATA REG #3, AUTO REFRESH
     3886   01 00E6F                 LOOKDATA RES      18                SYSTEM REG STORAGE
     3887   01 00E81    00230000 A   UDATASW  DATA     X'00230000'       MCU IPC
     3888   01 00E82    0000006C A   LDATASW  DATA     X'0000006C'       CPE NOP
     3889   01 00E83    00C0006C A   LDATSW1  DATA     X'00C0006C'       CPE NOP WITH EA,IO
     3890   01 00E84                 HFPANLS  RES      6                 STORAGE FOR STATE OF PANL
     3891   01 00E8A    00000000 A   HFTEMP   DATA     0
     3892   01 00E8B    00000000 A   HFTEMP1  DATA     0
     3893                            *        THIS ACTUALLY DOES THE READ AND WRITE DIRECTS
     3894                            *        AND VERIFIES THE CC'S.
     3895                            *        HFADDR = SYSTEM ID
     3896                            *        R3 = FUNCTIO TO DO
     3897                            *        R2 = DIO DATA
     3898                            *        USES: R2,R3,R5,R15
     3899                            *
     3900   01 00E8C                 HFWD     RES      0
     3901   01 00E8C    32500BB8              LW,5     HFADDR            THIS IS THE CULPRIT
     3902   01 00E8D    02300000 A            LCFI     0                 CLEAR THE CC'S
     3903   01 00E8E    ED2A0003 A            WD,2     *3,5              DO IT
     3904   01 00E8F    74000E51              STCF     HFCCSV            SAVE THE CC'S (SIGMA 9)
     3905   01 00E90    72400E51     HFCC     LB,4     HFCCSV            GET THE CC'S
     3906   01 00E91    2540007C A            SLS,4    -4                RIGHT JUSTIFY
     3907   01 00E92    4B4007DE              AND,4    X3                GET RID OF THE FUNNY BITS
     3908   01 00E93    68080E94              B        %+1,4             FIND THE CORRECT RESPONS
     3909   01 00E94    68000E98              B        HGOOD             GOOD
     3910   01 00E95    68000E9A              B        HILFC             ILLEGAL FUNCTION CODE
     3911   01 00E96    68000E9C              B        HCOMF             COMMAND CONFLICT
     3912   01 00E97    68000E9E              B        HNREM             PROCESSOR NOT REMOTE
     3913   01 00E98    3320000F A   HGOOD    MTW,2    15                BUMP RETURN ADDRESS
     3914   01 00E99    E800000F A            B        *15               RETURN
     3915   01 00E9A    04E01B96     HILFC    MTYPE    HFER1             ILLEGAL FUNCTION CODE
     3916   01 00E9B    E800000F A            B        *15               GO BACK TO IDLE
     3917   01 00E9C    04E01B9C     HCOMF    MTYPE    HFER2             COMMAND CONFLICT
     3918   01 00E9D    E800000F A            B        *15
     3919   01 00E9E    04E01BA1     HNREM    MTYPE    HFER3             PROCESSOR NOT REMOTE
     3920   01 00E9F    E800000F A            B        *15               RETURN
     3921   01 00EA0    32500BB8     HFRD     LW,5     HFADDR            HET THE ADDRESS OF THE HF
     3922   01 00EA1    22200000 A            LI,2     0                 GRAB A ZERO
     3923   01 00EA2    02300000 A            LCFI     0                 CLEAR THE CC'S
     3924   01 00EA3    EC2A0003 A            RD,2     *3,5              DO IT
     3925   01 00EA4    68000E8F              B        HFCC-1            CHECK CC RESPONS
     3926                            *
     3927         01 00EA5           HFERTAB  EQU      %
     3928   01 00EA5    00001B8C              DATA     HFER0             CANNOT RESERVE CONTROL PANEL
     3929   01 00EA6    00001B96              DATA     HFER1             ILLEGAL FUNCTION CODE
     3930   01 00EA7    00001B9C              DATA     HFER2             COMMAND CONFLICT
     3931   01 00EA8    00001BA1              DATA     HFER3             PROCESSOR NOT REMOTE
     3932   01 00EA9    00001BA7              DATA     HFER4             HF NOT AVAILABLE
     3933   01 00EAA    00001BAD              DATA     HFER5             UNABLE TO START HF
     3934   01 00EAB    00001BB3              DATA     HFER6             TIMEOUT ON AIO FUNCTION
     3935   01 00EAC    00001BBC              DATA     HFER7             UNABLE TO SUSPEND HF
     3936   01 00EAD    00001BC2              DATA     HFER8             UNABLE TO ACTIVATE HF
     3937   01 00EAE    00001BC8              DATA     HFER9             UNABLE TO PUT INTO RUN
     3938   01 00EAF    00001BD0              DATA     HFER10            UNABLE TO START HF
     3939   01 00EB0    00001BD6              DATA     HFER11            CANNOT SET E FLAG
     3940   01 00EB1    00001BDE              DATA     HFER12            CANNOT DO HIO FUNCTION
     3941                            *
     3942   01 00EB2                 HFERS    RES      0
     3943   01 00EB2    327C0EA5              LW,7     HFERTAB,6
     3944   01 00EB3    84E00007 A            MTYPE    *7
     3945   01 00EB4    25500077 A            SLS,5    -9                MOVE IT OVER
     3946   01 00EB5    326A0B7B              LW,6     HADRIX1,5         TO GET HF ADDRESS
     3947   01 00EB6    2560001C A            SLS,6    28                MOVE FOR PRINTING
     3948   01 00EB7    22C00001 A            LI,12    1                 ONE CHAR
     3949   01 00EB8    22707063              LI,7     BA(HFXX)+3        HERE
     3950   01 00EB9    6AE00773              BAL,14   TXLATE
     3951   01 00EBA    04E01C18              MTYPE    HFXX              PRINT ADDRESS
     3952   01 00EBB    E800000D A            B        *13               RETURN
     3953   01 00EBC    04E01B46     LISTHF   MTYPE    CR
     3954   01 00EBD    04E01A14              MTYPE    HFHEAD            LIST THE PROCESSORS
     3955   01 00EBE    225FFFFC A            LI,5     -4                INDEX
     3956   01 00EBF    326A0F42     LISTHFA  LW,6     HFTABLA+4,5       GET THE FIRST
     3957   01 00EC0    68300EC9              BEZ      HFSKIPA           NO ONE HOME
     3958   01 00EC1    22C00004 A            LI,12    4                 CHAR COUNT
     3959   01 00EC2    2270686F              LI,7     BA(IOPTEXT)+3     PUT IT HERE
     3960   01 00EC3    6AE00773              BAL,14   TXLATE            DO IT
     3961   01 00EC4    55600006 A            STH,6    6                 LOWER TO UPPER
     3962   01 00EC5    20700002 A            AI,7     2                 NEXT ONE
     3963   01 00EC6    22C00004 A            LI,12    4                 REFRESH COUNT
     3964   01 00EC7    6AE00773              BAL,14   TXLATE            MAKE IT INTO ENGLISH
     3965   01 00EC8    04E01A1B              MTYPE    IOPTEXT
     3966   01 00EC9    65500EBF     HFSKIPA  BIR,5    LISTHFA           OVER AGAIN, IF NEEDED
     3967   01 00ECA    E800000F A            B        *15
     3968                            *
     3969                            *        HFTABLA = HW0 -->SYSTEM HW1-->PROCESSOR
     3970                            *
     3971   01 00ECB    224FFFFC A   FINDHF   LI,4     -4                HF TABLE POINTER
     3972   01 00ECC    32600EDD              LW,6     HFTRAP            FOR NON-EXISTANT HF'S
     3973   01 00ECD    46600046 A            XW,6     X'46'             TRADE THE XPSD'S
     3974   01 00ECE    22700000 A            LI,7     0                 FIRST HF SYSTEM
     3975   01 00ECF    6C3EF00F A   FINDHFA  RD,3     X'F00F',7         ARE YOU THERE?
     3976   01 00ED0    6C3EF061 A            RD,3     X'F061',7         READ SYSTEM CONF REGISTER
     3977   01 00ED1    4B3007E0              AND,3    X7                MASK OFF DON'T CARES
     3978   01 00ED2    25700007 A            SLS,7    7                 MAKE IT A SYSTEM NUMBER
     3979   01 00ED3    29200EC8              CVA,2    HFCNT-30          COUNT UP THE HF'S
     3980   01 00ED4    49700002 A            OR,7     2                 MERGE SYSTEMS AND PORCESSORS
     3981   01 00ED5    49700802              OR,7     HC                MAKE A 7 FOR A HF
     3982   01 00ED6    35780F42              STW,7    HFTABLA+4,4       STORE IT
     3983   01 00ED7    35780F62              STW,7    HFTABLB+4,4       STORE IT IN ACTIVE TABLE
     3984   01 00ED8    25700079 A            SLS,7    -7                MOVE THE SYSTEM BACK
     3985   01 00ED9    20700200 A   FINDHFB  AI,7     X'200'            GET THE NEXT SYSTEM
     3986   01 00EDA    65400ECF              BIR,4    FINDHFA           DO IT AGAIN
     3987   01 00EDB    46600046 A            XW,6     X'46'             GET THE OLD XPSD BACK
     3988   01 00EDC    E800000F A            B        *15               RETURN AGAIN
     3989   01 00EDD    0F000EE0     HFTRAP   XPSD,0   HFRECV
     3990   01 00EDE    0E100EE4     HFRECV1  LPSD,1   HFRECV2
     3991                                     BOUND    8
     3992   01 00EE2    00000EDE N   HFRECV   PSD      0,HFRECV1,0,REABIT
                        00800000
     3993   01 00EE4    00000ED9     HFRECV2  DATA     FINDHFB,0
            01 00EE5    00000000 A
     3994   01 00EE6    00000001 A   HFCNT    DATA     1,1,1
            01 00EE7    00000001 A
            01 00EE8    00000001 A
     3995   01 00EE9    32600F17     FINDIOP  LW,6     CHANTRAP          XPSD
     3996   01 00EEA    46600046 A            XW,6     X'46'             STEAL THE TRAP LOCATION
     3997   01 00EEB    22400000 A            LI,4     0                 INDEX
     3998   01 00EEC    32800801     IOPCNT   LW,8     H82FS             WRITE BIT FORMAT UPER ONES
     3999   01 00EED    329007F6              LW,9     H02               LOAD C REG UPER
     4000   01 00EEE    32B007EF              LW,11    X6F               COMPARE MASK
     4001   01 00EEF    32700800              LW,7     H82               WRITE BIT FORMAT UPER ZEROS
     4002   01 00EF0    22300020 A            LI,3     32                LOOP COUNT
     4003   01 00EF1    6D882009 A   CHANCNT  WD,8     X'2009',4         WRITE FAM ONES
     4004   01 00EF2    6D982009 A            WD,9     X'2009',4         WRITE FAM TO C REG.
     4005   01 00EF3    6CA8200A A            RD,10    X'200A',4         READ IT OUT
     4006   01 00EF4    45A00008 A            CS,10    8                 SHOULD BE EQUAL
     4007   01 00EF5    69300EFF              BNE      CHANEND           B,ITS NOT
     4008   01 00EF6    6D782009 A            WD,7     X'2009',4         WRITE FAM ZEROS
     4009   01 00EF7    6D982009 A            WD,9     X'2009',4         WRITE FAM TO C REG
     4010   01 00EF8    6CA8200A A            RD,10    X'200A',4         READ C
     4011   01 00EF9    45A00007 A            CS,10    7                 SHOULD BE ZEROS
     4012   01 00EFA    69300EFF              BNE      CHANEND           B,ITS NOT
     4013   01 00EFB    307007F7              AW,7     H04               NEXT CHANNEL
     4014   01 00EFC    308007F7              AW,8     H04               NEXT CHANNEL
     4015   01 00EFD    309007F7              AW,9     H04               NEXT CHANNEL
     4016   01 00EFE    64300EF1              BDR,3    CHANCNT
     4017   01 00EFF    31900803     CHANEND  CW,9     HFC               WERE THERE ANY?
     4018   01 00F00    69400F03              BANZ     CHANIN            B,YES
     4019   01 00F01    22900000 A            LI,9     0
     4020   01 00F02    68000F05              B        CHANOUT           BYPASS IT ALL
     4021   01 00F03    389007F7     CHANIN   SW,9     H04               BACK TO REAL COUNT
     4022   01 00F04    25900066 A            SLS,9    -26               POSITION EM
     4023   01 00F05    2540007C A   CHANOUT  SLS,4    -4                IOP ADDRESS AN INDEX
     4024   01 00F06    32500004 A            LW,5     4
     4025   01 00F07    25500008 A            SLS,5    8                 IOP ADDRESS
     4026   01 00F08    55500005 A            STH,5    5                 INTO BOTH HALFWORDS
     4027   01 00F09    21900000 A            CI,9     0                 WERE THERE ANY
     4028   01 00F0A    69300F0C              BNE      %+2               B,NO
     4029   01 00F0B    22500000 A            LI,5     0
     4030   01 00F0C    49500009 A            OR,5     9                 OR IN THE BITS
     4031   01 00F0D    35580F22              STW,5    IOPTABLA,4        ADDRESSES INTO TABLE
     4032   01 00F0E    20400001 A            AI,4     1                 NEXT ADDRESS
     4033   01 00F0F    2140001C A            CI,4     X'1C'             MAXIMUM IOPS?
     4034   01 00F10    68300F13              BE       IOPDONE           B,YES
     4035   01 00F11    25400004 A            SLS,4    4                 POSITION TO WD ADDRESS
     4036   01 00F12    68000EEC              B        IOPCNT            LOOP
     4037   01 00F13    35600046 A   IOPDONE  STW,6    X'46'             RESTORE TRAP
     4038   01 00F14    12400F20              LD,4     LDTBB
     4039   01 00F15    61400000 A            MBS,4    0                 MOVE TABLE A TO TABLE B
     4040   01 00F16    E800000F A            B        *15               EXIT
     4041   01 00F17    0F000F1A     CHANTRAP XPSD,0   CHANTO            46 TRAP XPSD FOR SCANNING IOPS
     4042   01 00F18    0E100F1E     CHANTOL  LPSD,1   CHANCO            CONTINUE SCAN
     4043                                     BOUND    8
     4044   01 00F1C    00000F18 N   CHANTO   PSD      0,CHANTOL,0,REABIT
                        00800000
     4045   01 00F1E    00000EFF     CHANCO   DATA     CHANEND,0
            01 00F1F    00000000 A
1 C00   20:35 JUN 20,'83    HF TABLES A - H                                                       PAGE   11
A    4047                                     BOUND    8
     4048   01 00F20    00003C88     LDTBB    DATA     BA(IOPTABLA)
     4049   01 00F21    70003D08              GEN,8,24 112,BA(IOPTABLB)
     4050                            *        IOPTABLA TABLE CONTAINING IOP DATA AS FOUND AT LOAD TIME
     4051                            *                 HW0=IOP ADDRESS
     4052                            *                 HW1=IOP + LAST CHANEL ADDRESS
     4053   01 00F22                 IOPTABLA RES      28
     4054   01 00F3E                 HFTABLA  RES      4                 HF SYSTEM CONFIGURATION
     4055                            *        IOPTABLB TABLE CONTAINING IOPTABLA DATA FOR IOPS UNDER TEST
     4056                            *
     4057   01 00F42                 IOPTABLB RES      28
     4058   01 00F5E                 HFTABLB  RES      4                 HF TEST DATA
     4059                            *
     4060                            *        IOPTABLC TABLE OF CURRENT FUNCTION FOR IOP
     4061                            *                 BYTE0=80=IOP OFF LINE
     4062                            *                 BYTE1=0,1,2,3= EVEN NUMBERS READ, ODD NUMBERS WRIT
     4063                            *                 BYTE2=CURRENT DEVICE ADDRESS FOR MS
     4064                            *                 BYTE3=DATA BYTE FOR MS
     4065                            *
     4066   01 00F62                 IOPTABLC RES      28
     4067   01 00F7E                 HFTABLC  RES      4                 HF CURRENT FUNCTION
     4068                            *
     4069                            *        IOPTABLD TABLE OF TIMEOUT VALUEC.
     4070                            *                 =7FFFFFFF IF NOT ACTIVE
     4071                            *                 = TIME PLUS TIMEOUT VALUE OF LAST SIO
     4072   01 00F82                 IOPTABLD RES      28
     4073   01 00F9E                 HFTABLD  RES      4                 TIMEOUT VALUES
     4074                            *
     4075                            *
     4076   01 00FA2    00000000 A   CPUBUF   DATA     0
     4077   01 00FA3                 IOPTABLE RES      28                BUFFER ADDRESSES
     4078   01 00FBF                 HFTABLE  RES      4                 BUFFER ADDRESSES
     4079                            *
     4080                            *
     4081                                     BOUND    8
     4082   01 00FC4                 IOPTABLF RES      56                COMMAND DOUBLEWORD TABLE
     4083   01 00FFC                 HFTABLF  RES      8                 MEMORY ADDRESS TABLE
     4084                            *
     4085                            *
     4086   01 01004                 IOPTABLG RES      28                DEFERED STARTUP TIME
     4087   01 01020                 HFTABLG  RES      4                 DEFERED STARTUP TIME
     4088   01 01024                 IOPTABLH RES      28                LAST MS SETUP WD DATA
     4089   01 01040                 HFTABLH  RES      4                 LAST WD DATA
     4090         00000122           TABLES   EQU      %-IOPTABLA
1 C00   20:35 JUN 20,'83    COMMAND LIST                                                          PAGE   12
A    4092                                     BOUND    8
     4093   01 01044    01007940     CLISTW   GEN,8,24 1,BA(END)
     4094   01 01045    960086C0 N            GEN,8,24 X'96',X'10000'-BA(END)
     4095         00010000           A        SET      X'10000'
        1*        000000FF                    DO       255                                               *H01
     4097   01 01046    01010000 A            GEN,8,24 1,A
     4098   01 01047    96000000 A            GEN,8,24 X'96',0
     4099         00020000           A        SET      A+X'10000'
     4100                                     FIN
            01 01048    01020000 A
            01 01049    96000000 A
                  00030000
            01 0104A    01030000 A
            01 0104B    96000000 A
                  00040000
            01 0104C    01040000 A
            01 0104D    96000000 A
                  00050000
            01 0104E    01050000 A
            01 0104F    96000000 A
                  00060000
            01 01050    01060000 A
            01 01051    96000000 A
                  00070000
            01 01052    01070000 A
            01 01053    96000000 A
                  00080000
            01 01054    01080000 A
            01 01055    96000000 A
                  00090000
            01 01056    01090000 A
            01 01057    96000000 A
                  000A0000
            01 01058    010A0000 A
            01 01059    96000000 A
                  000B0000
            01 0105A    010B0000 A
            01 0105B    96000000 A
                  000C0000
            01 0105C    010C0000 A
            01 0105D    96000000 A
                  000D0000
            01 0105E    010D0000 A
            01 0105F    96000000 A
                  000E0000
            01 01060    010E0000 A
            01 01061    96000000 A
                  000F0000
            01 01062    010F0000 A
            01 01063    96000000 A
                  00100000
            01 01064    01100000 A
            01 01065    96000000 A
                  00110000
            01 01066    01110000 A
            01 01067    96000000 A
                  00120000
            01 01068    01120000 A
            01 01069    96000000 A
                  00130000
            01 0106A    01130000 A
            01 0106B    96000000 A
                  00140000
            01 0106C    01140000 A
            01 0106D    96000000 A
                  00150000
            01 0106E    01150000 A
            01 0106F    96000000 A
                  00160000
            01 01070    01160000 A
            01 01071    96000000 A
                  00170000
            01 01072    01170000 A
            01 01073    96000000 A
                  00180000
            01 01074    01180000 A
            01 01075    96000000 A
                  00190000
            01 01076    01190000 A
            01 01077    96000000 A
                  001A0000
            01 01078    011A0000 A
            01 01079    96000000 A
                  001B0000
            01 0107A    011B0000 A
            01 0107B    96000000 A
                  001C0000
            01 0107C    011C0000 A
            01 0107D    96000000 A
                  001D0000
            01 0107E    011D0000 A
            01 0107F    96000000 A
                  001E0000
            01 01080    011E0000 A
            01 01081    96000000 A
                  001F0000
            01 01082    011F0000 A
            01 01083    96000000 A
                  00200000
            01 01084    01200000 A
            01 01085    96000000 A
                  00210000
            01 01086    01210000 A
            01 01087    96000000 A
                  00220000
            01 01088    01220000 A
            01 01089    96000000 A
                  00230000
            01 0108A    01230000 A
            01 0108B    96000000 A
                  00240000
            01 0108C    01240000 A
            01 0108D    96000000 A
                  00250000
            01 0108E    01250000 A
            01 0108F    96000000 A
                  00260000
            01 01090    01260000 A
            01 01091    96000000 A
                  00270000
            01 01092    01270000 A
            01 01093    96000000 A
                  00280000
            01 01094    01280000 A
            01 01095    96000000 A
                  00290000
            01 01096    01290000 A
            01 01097    96000000 A
                  002A0000
            01 01098    012A0000 A
            01 01099    96000000 A
                  002B0000
            01 0109A    012B0000 A
            01 0109B    96000000 A
                  002C0000
            01 0109C    012C0000 A
            01 0109D    96000000 A
                  002D0000
            01 0109E    012D0000 A
            01 0109F    96000000 A
                  002E0000
            01 010A0    012E0000 A
            01 010A1    96000000 A
                  002F0000
            01 010A2    012F0000 A
            01 010A3    96000000 A
                  00300000
            01 010A4    01300000 A
            01 010A5    96000000 A
                  00310000
            01 010A6    01310000 A
            01 010A7    96000000 A
                  00320000
            01 010A8    01320000 A
            01 010A9    96000000 A
                  00330000
            01 010AA    01330000 A
            01 010AB    96000000 A
                  00340000
            01 010AC    01340000 A
            01 010AD    96000000 A
                  00350000
            01 010AE    01350000 A
            01 010AF    96000000 A
                  00360000
            01 010B0    01360000 A
            01 010B1    96000000 A
                  00370000
            01 010B2    01370000 A
            01 010B3    96000000 A
                  00380000
            01 010B4    01380000 A
            01 010B5    96000000 A
                  00390000
            01 010B6    01390000 A
            01 010B7    96000000 A
                  003A0000
            01 010B8    013A0000 A
            01 010B9    96000000 A
                  003B0000
            01 010BA    013B0000 A
            01 010BB    96000000 A
                  003C0000
            01 010BC    013C0000 A
            01 010BD    96000000 A
                  003D0000
            01 010BE    013D0000 A
            01 010BF    96000000 A
                  003E0000
            01 010C0    013E0000 A
            01 010C1    96000000 A
                  003F0000
            01 010C2    013F0000 A
            01 010C3    96000000 A
                  00400000
            01 010C4    01400000 A
            01 010C5    96000000 A
                  00410000
            01 010C6    01410000 A
            01 010C7    96000000 A
                  00420000
            01 010C8    01420000 A
            01 010C9    96000000 A
                  00430000
            01 010CA    01430000 A
            01 010CB    96000000 A
                  00440000
            01 010CC    01440000 A
            01 010CD    96000000 A
                  00450000
            01 010CE    01450000 A
            01 010CF    96000000 A
                  00460000
            01 010D0    01460000 A
            01 010D1    96000000 A
                  00470000
            01 010D2    01470000 A
            01 010D3    96000000 A
                  00480000
            01 010D4    01480000 A
            01 010D5    96000000 A
                  00490000
            01 010D6    01490000 A
            01 010D7    96000000 A
                  004A0000
            01 010D8    014A0000 A
            01 010D9    96000000 A
                  004B0000
            01 010DA    014B0000 A
            01 010DB    96000000 A
                  004C0000
            01 010DC    014C0000 A
            01 010DD    96000000 A
                  004D0000
            01 010DE    014D0000 A
            01 010DF    96000000 A
                  004E0000
            01 010E0    014E0000 A
            01 010E1    96000000 A
                  004F0000
            01 010E2    014F0000 A
            01 010E3    96000000 A
                  00500000
            01 010E4    01500000 A
            01 010E5    96000000 A
                  00510000
            01 010E6    01510000 A
            01 010E7    96000000 A
                  00520000
            01 010E8    01520000 A
            01 010E9    96000000 A
                  00530000
            01 010EA    01530000 A
            01 010EB    96000000 A
                  00540000
            01 010EC    01540000 A
            01 010ED    96000000 A
                  00550000
            01 010EE    01550000 A
            01 010EF    96000000 A
                  00560000
            01 010F0    01560000 A
            01 010F1    96000000 A
                  00570000
            01 010F2    01570000 A
            01 010F3    96000000 A
                  00580000
            01 010F4    01580000 A
            01 010F5    96000000 A
                  00590000
            01 010F6    01590000 A
            01 010F7    96000000 A
                  005A0000
            01 010F8    015A0000 A
            01 010F9    96000000 A
                  005B0000
            01 010FA    015B0000 A
            01 010FB    96000000 A
                  005C0000
            01 010FC    015C0000 A
            01 010FD    96000000 A
                  005D0000
            01 010FE    015D0000 A
            01 010FF    96000000 A
                  005E0000
            01 01100    015E0000 A
            01 01101    96000000 A
                  005F0000
            01 01102    015F0000 A
            01 01103    96000000 A
                  00600000
            01 01104    01600000 A
            01 01105    96000000 A
                  00610000
            01 01106    01610000 A
            01 01107    96000000 A
                  00620000
            01 01108    01620000 A
            01 01109    96000000 A
                  00630000
            01 0110A    01630000 A
            01 0110B    96000000 A
                  00640000
            01 0110C    01640000 A
            01 0110D    96000000 A
                  00650000
            01 0110E    01650000 A
            01 0110F    96000000 A
                  00660000
            01 01110    01660000 A
            01 01111    96000000 A
                  00670000
            01 01112    01670000 A
            01 01113    96000000 A
                  00680000
            01 01114    01680000 A
            01 01115    96000000 A
                  00690000
            01 01116    01690000 A
            01 01117    96000000 A
                  006A0000
            01 01118    016A0000 A
            01 01119    96000000 A
                  006B0000
            01 0111A    016B0000 A
            01 0111B    96000000 A
                  006C0000
            01 0111C    016C0000 A
            01 0111D    96000000 A
                  006D0000
            01 0111E    016D0000 A
            01 0111F    96000000 A
                  006E0000
            01 01120    016E0000 A
            01 01121    96000000 A
                  006F0000
            01 01122    016F0000 A
            01 01123    96000000 A
                  00700000
            01 01124    01700000 A
            01 01125    96000000 A
                  00710000
            01 01126    01710000 A
            01 01127    96000000 A
                  00720000
            01 01128    01720000 A
            01 01129    96000000 A
                  00730000
            01 0112A    01730000 A
            01 0112B    96000000 A
                  00740000
            01 0112C    01740000 A
            01 0112D    96000000 A
                  00750000
            01 0112E    01750000 A
            01 0112F    96000000 A
                  00760000
            01 01130    01760000 A
            01 01131    96000000 A
                  00770000
            01 01132    01770000 A
            01 01133    96000000 A
                  00780000
            01 01134    01780000 A
            01 01135    96000000 A
                  00790000
            01 01136    01790000 A
            01 01137    96000000 A
                  007A0000
            01 01138    017A0000 A
            01 01139    96000000 A
                  007B0000
            01 0113A    017B0000 A
            01 0113B    96000000 A
                  007C0000
            01 0113C    017C0000 A
            01 0113D    96000000 A
                  007D0000
            01 0113E    017D0000 A
            01 0113F    96000000 A
                  007E0000
            01 01140    017E0000 A
            01 01141    96000000 A
                  007F0000
            01 01142    017F0000 A
            01 01143    96000000 A
                  00800000
            01 01144    01800000 A
            01 01145    96000000 A
                  00810000
            01 01146    01810000 A
            01 01147    96000000 A
                  00820000
            01 01148    01820000 A
            01 01149    96000000 A
                  00830000
            01 0114A    01830000 A
            01 0114B    96000000 A
                  00840000
            01 0114C    01840000 A
            01 0114D    96000000 A
                  00850000
            01 0114E    01850000 A
            01 0114F    96000000 A
                  00860000
            01 01150    01860000 A
            01 01151    96000000 A
                  00870000
            01 01152    01870000 A
            01 01153    96000000 A
                  00880000
            01 01154    01880000 A
            01 01155    96000000 A
                  00890000
            01 01156    01890000 A
            01 01157    96000000 A
                  008A0000
            01 01158    018A0000 A
            01 01159    96000000 A
                  008B0000
            01 0115A    018B0000 A
            01 0115B    96000000 A
                  008C0000
            01 0115C    018C0000 A
            01 0115D    96000000 A
                  008D0000
            01 0115E    018D0000 A
            01 0115F    96000000 A
                  008E0000
            01 01160    018E0000 A
            01 01161    96000000 A
                  008F0000
            01 01162    018F0000 A
            01 01163    96000000 A
                  00900000
            01 01164    01900000 A
            01 01165    96000000 A
                  00910000
            01 01166    01910000 A
            01 01167    96000000 A
                  00920000
            01 01168    01920000 A
            01 01169    96000000 A
                  00930000
            01 0116A    01930000 A
            01 0116B    96000000 A
                  00940000
            01 0116C    01940000 A
            01 0116D    96000000 A
                  00950000
            01 0116E    01950000 A
            01 0116F    96000000 A
                  00960000
            01 01170    01960000 A
            01 01171    96000000 A
                  00970000
            01 01172    01970000 A
            01 01173    96000000 A
                  00980000
            01 01174    01980000 A
            01 01175    96000000 A
                  00990000
            01 01176    01990000 A
            01 01177    96000000 A
                  009A0000
            01 01178    019A0000 A
            01 01179    96000000 A
                  009B0000
            01 0117A    019B0000 A
            01 0117B    96000000 A
                  009C0000
            01 0117C    019C0000 A
            01 0117D    96000000 A
                  009D0000
            01 0117E    019D0000 A
            01 0117F    96000000 A
                  009E0000
            01 01180    019E0000 A
            01 01181    96000000 A
                  009F0000
            01 01182    019F0000 A
            01 01183    96000000 A
                  00A00000
            01 01184    01A00000 A
            01 01185    96000000 A
                  00A10000
            01 01186    01A10000 A
            01 01187    96000000 A
                  00A20000
            01 01188    01A20000 A
            01 01189    96000000 A
                  00A30000
            01 0118A    01A30000 A
            01 0118B    96000000 A
                  00A40000
            01 0118C    01A40000 A
            01 0118D    96000000 A
                  00A50000
            01 0118E    01A50000 A
            01 0118F    96000000 A
                  00A60000
            01 01190    01A60000 A
            01 01191    96000000 A
                  00A70000
            01 01192    01A70000 A
            01 01193    96000000 A
                  00A80000
            01 01194    01A80000 A
            01 01195    96000000 A
                  00A90000
            01 01196    01A90000 A
            01 01197    96000000 A
                  00AA0000
            01 01198    01AA0000 A
            01 01199    96000000 A
                  00AB0000
            01 0119A    01AB0000 A
            01 0119B    96000000 A
                  00AC0000
            01 0119C    01AC0000 A
            01 0119D    96000000 A
                  00AD0000
            01 0119E    01AD0000 A
            01 0119F    96000000 A
                  00AE0000
            01 011A0    01AE0000 A
            01 011A1    96000000 A
                  00AF0000
            01 011A2    01AF0000 A
            01 011A3    96000000 A
                  00B00000
            01 011A4    01B00000 A
            01 011A5    96000000 A
                  00B10000
            01 011A6    01B10000 A
            01 011A7    96000000 A
                  00B20000
            01 011A8    01B20000 A
            01 011A9    96000000 A
                  00B30000
            01 011AA    01B30000 A
            01 011AB    96000000 A
                  00B40000
            01 011AC    01B40000 A
            01 011AD    96000000 A
                  00B50000
            01 011AE    01B50000 A
            01 011AF    96000000 A
                  00B60000
            01 011B0    01B60000 A
            01 011B1    96000000 A
                  00B70000
            01 011B2    01B70000 A
            01 011B3    96000000 A
                  00B80000
            01 011B4    01B80000 A
            01 011B5    96000000 A
                  00B90000
            01 011B6    01B90000 A
            01 011B7    96000000 A
                  00BA0000
            01 011B8    01BA0000 A
            01 011B9    96000000 A
                  00BB0000
            01 011BA    01BB0000 A
            01 011BB    96000000 A
                  00BC0000
            01 011BC    01BC0000 A
            01 011BD    96000000 A
                  00BD0000
            01 011BE    01BD0000 A
            01 011BF    96000000 A
                  00BE0000
            01 011C0    01BE0000 A
            01 011C1    96000000 A
                  00BF0000
            01 011C2    01BF0000 A
            01 011C3    96000000 A
                  00C00000
            01 011C4    01C00000 A
            01 011C5    96000000 A
                  00C10000
            01 011C6    01C10000 A
            01 011C7    96000000 A
                  00C20000
            01 011C8    01C20000 A
            01 011C9    96000000 A
                  00C30000
            01 011CA    01C30000 A
            01 011CB    96000000 A
                  00C40000
            01 011CC    01C40000 A
            01 011CD    96000000 A
                  00C50000
            01 011CE    01C50000 A
            01 011CF    96000000 A
                  00C60000
            01 011D0    01C60000 A
            01 011D1    96000000 A
                  00C70000
            01 011D2    01C70000 A
            01 011D3    96000000 A
                  00C80000
            01 011D4    01C80000 A
            01 011D5    96000000 A
                  00C90000
            01 011D6    01C90000 A
            01 011D7    96000000 A
                  00CA0000
            01 011D8    01CA0000 A
            01 011D9    96000000 A
                  00CB0000
            01 011DA    01CB0000 A
            01 011DB    96000000 A
                  00CC0000
            01 011DC    01CC0000 A
            01 011DD    96000000 A
                  00CD0000
            01 011DE    01CD0000 A
            01 011DF    96000000 A
                  00CE0000
            01 011E0    01CE0000 A
            01 011E1    96000000 A
                  00CF0000
            01 011E2    01CF0000 A
            01 011E3    96000000 A
                  00D00000
            01 011E4    01D00000 A
            01 011E5    96000000 A
                  00D10000
            01 011E6    01D10000 A
            01 011E7    96000000 A
                  00D20000
            01 011E8    01D20000 A
            01 011E9    96000000 A
                  00D30000
            01 011EA    01D30000 A
            01 011EB    96000000 A
                  00D40000
            01 011EC    01D40000 A
            01 011ED    96000000 A
                  00D50000
            01 011EE    01D50000 A
            01 011EF    96000000 A
                  00D60000
            01 011F0    01D60000 A
            01 011F1    96000000 A
                  00D70000
            01 011F2    01D70000 A
            01 011F3    96000000 A
                  00D80000
            01 011F4    01D80000 A
            01 011F5    96000000 A
                  00D90000
            01 011F6    01D90000 A
            01 011F7    96000000 A
                  00DA0000
            01 011F8    01DA0000 A
            01 011F9    96000000 A
                  00DB0000
            01 011FA    01DB0000 A
            01 011FB    96000000 A
                  00DC0000
            01 011FC    01DC0000 A
            01 011FD    96000000 A
                  00DD0000
            01 011FE    01DD0000 A
            01 011FF    96000000 A
                  00DE0000
            01 01200    01DE0000 A
            01 01201    96000000 A
                  00DF0000
            01 01202    01DF0000 A
            01 01203    96000000 A
                  00E00000
            01 01204    01E00000 A
            01 01205    96000000 A
                  00E10000
            01 01206    01E10000 A
            01 01207    96000000 A
                  00E20000
            01 01208    01E20000 A
            01 01209    96000000 A
                  00E30000
            01 0120A    01E30000 A
            01 0120B    96000000 A
                  00E40000
            01 0120C    01E40000 A
            01 0120D    96000000 A
                  00E50000
            01 0120E    01E50000 A
            01 0120F    96000000 A
                  00E60000
            01 01210    01E60000 A
            01 01211    96000000 A
                  00E70000
            01 01212    01E70000 A
            01 01213    96000000 A
                  00E80000
            01 01214    01E80000 A
            01 01215    96000000 A
                  00E90000
            01 01216    01E90000 A
            01 01217    96000000 A
                  00EA0000
            01 01218    01EA0000 A
            01 01219    96000000 A
                  00EB0000
            01 0121A    01EB0000 A
            01 0121B    96000000 A
                  00EC0000
            01 0121C    01EC0000 A
            01 0121D    96000000 A
                  00ED0000
            01 0121E    01ED0000 A
            01 0121F    96000000 A
                  00EE0000
            01 01220    01EE0000 A
            01 01221    96000000 A
                  00EF0000
            01 01222    01EF0000 A
            01 01223    96000000 A
                  00F00000
            01 01224    01F00000 A
            01 01225    96000000 A
                  00F10000
            01 01226    01F10000 A
            01 01227    96000000 A
                  00F20000
            01 01228    01F20000 A
            01 01229    96000000 A
                  00F30000
            01 0122A    01F30000 A
            01 0122B    96000000 A
                  00F40000
            01 0122C    01F40000 A
            01 0122D    96000000 A
                  00F50000
            01 0122E    01F50000 A
            01 0122F    96000000 A
                  00F60000
            01 01230    01F60000 A
            01 01231    96000000 A
                  00F70000
            01 01232    01F70000 A
            01 01233    96000000 A
                  00F80000
            01 01234    01F80000 A
            01 01235    96000000 A
                  00F90000
            01 01236    01F90000 A
            01 01237    96000000 A
                  00FA0000
            01 01238    01FA0000 A
            01 01239    96000000 A
                  00FB0000
            01 0123A    01FB0000 A
            01 0123B    96000000 A
                  00FC0000
            01 0123C    01FC0000 A
            01 0123D    96000000 A
                  00FD0000
            01 0123E    01FD0000 A
            01 0123F    96000000 A
                  00FE0000
            01 01240    01FE0000 A
            01 01241    96000000 A
                  00FF0000
            01 01242    01FF0000 A
            01 01243    96000000 A
                  01000000
     4101   01 01244    02007940     CLISTR   GEN,8,24 2,BA(END)
     4102   01 01245    960086C0 N            GEN,8,24 X'96',X'10000'-BA(END)
     4103         00010000           B        SET      X'10000'
        1*        000000FF                    DO       255                                               *H01
     4105   01 01246    02010000 A            GEN,8,24 2,B
     4106   01 01247    96000000 A            GEN,8,24 X'96',0
     4107         00020000           B        SET      B+X'10000'
     4108                                     FIN
            01 01248    02020000 A
            01 01249    96000000 A
                  00030000
            01 0124A    02030000 A
            01 0124B    96000000 A
                  00040000
            01 0124C    02040000 A
            01 0124D    96000000 A
                  00050000
            01 0124E    02050000 A
            01 0124F    96000000 A
                  00060000
            01 01250    02060000 A
            01 01251    96000000 A
                  00070000
            01 01252    02070000 A
            01 01253    96000000 A
                  00080000
            01 01254    02080000 A
            01 01255    96000000 A
                  00090000
            01 01256    02090000 A
            01 01257    96000000 A
                  000A0000
            01 01258    020A0000 A
            01 01259    96000000 A
                  000B0000
            01 0125A    020B0000 A
            01 0125B    96000000 A
                  000C0000
            01 0125C    020C0000 A
            01 0125D    96000000 A
                  000D0000
            01 0125E    020D0000 A
            01 0125F    96000000 A
                  000E0000
            01 01260    020E0000 A
            01 01261    96000000 A
                  000F0000
            01 01262    020F0000 A
            01 01263    96000000 A
                  00100000
            01 01264    02100000 A
            01 01265    96000000 A
                  00110000
            01 01266    02110000 A
            01 01267    96000000 A
                  00120000
            01 01268    02120000 A
            01 01269    96000000 A
                  00130000
            01 0126A    02130000 A
            01 0126B    96000000 A
                  00140000
            01 0126C    02140000 A
            01 0126D    96000000 A
                  00150000
            01 0126E    02150000 A
            01 0126F    96000000 A
                  00160000
            01 01270    02160000 A
            01 01271    96000000 A
                  00170000
            01 01272    02170000 A
            01 01273    96000000 A
                  00180000
            01 01274    02180000 A
            01 01275    96000000 A
                  00190000
            01 01276    02190000 A
            01 01277    96000000 A
                  001A0000
            01 01278    021A0000 A
            01 01279    96000000 A
                  001B0000
            01 0127A    021B0000 A
            01 0127B    96000000 A
                  001C0000
            01 0127C    021C0000 A
            01 0127D    96000000 A
                  001D0000
            01 0127E    021D0000 A
            01 0127F    96000000 A
                  001E0000
            01 01280    021E0000 A
            01 01281    96000000 A
                  001F0000
            01 01282    021F0000 A
            01 01283    96000000 A
                  00200000
            01 01284    02200000 A
            01 01285    96000000 A
                  00210000
            01 01286    02210000 A
            01 01287    96000000 A
                  00220000
            01 01288    02220000 A
            01 01289    96000000 A
                  00230000
            01 0128A    02230000 A
            01 0128B    96000000 A
                  00240000
            01 0128C    02240000 A
            01 0128D    96000000 A
                  00250000
            01 0128E    02250000 A
            01 0128F    96000000 A
                  00260000
            01 01290    02260000 A
            01 01291    96000000 A
                  00270000
            01 01292    02270000 A
            01 01293    96000000 A
                  00280000
            01 01294    02280000 A
            01 01295    96000000 A
                  00290000
            01 01296    02290000 A
            01 01297    96000000 A
                  002A0000
            01 01298    022A0000 A
            01 01299    96000000 A
                  002B0000
            01 0129A    022B0000 A
            01 0129B    96000000 A
                  002C0000
            01 0129C    022C0000 A
            01 0129D    96000000 A
                  002D0000
            01 0129E    022D0000 A
            01 0129F    96000000 A
                  002E0000
            01 012A0    022E0000 A
            01 012A1    96000000 A
                  002F0000
            01 012A2    022F0000 A
            01 012A3    96000000 A
                  00300000
            01 012A4    02300000 A
            01 012A5    96000000 A
                  00310000
            01 012A6    02310000 A
            01 012A7    96000000 A
                  00320000
            01 012A8    02320000 A
            01 012A9    96000000 A
                  00330000
            01 012AA    02330000 A
            01 012AB    96000000 A
                  00340000
            01 012AC    02340000 A
            01 012AD    96000000 A
                  00350000
            01 012AE    02350000 A
            01 012AF    96000000 A
                  00360000
            01 012B0    02360000 A
            01 012B1    96000000 A
                  00370000
            01 012B2    02370000 A
            01 012B3    96000000 A
                  00380000
            01 012B4    02380000 A
            01 012B5    96000000 A
                  00390000
            01 012B6    02390000 A
            01 012B7    96000000 A
                  003A0000
            01 012B8    023A0000 A
            01 012B9    96000000 A
                  003B0000
            01 012BA    023B0000 A
            01 012BB    96000000 A
                  003C0000
            01 012BC    023C0000 A
            01 012BD    96000000 A
                  003D0000
            01 012BE    023D0000 A
            01 012BF    96000000 A
                  003E0000
            01 012C0    023E0000 A
            01 012C1    96000000 A
                  003F0000
            01 012C2    023F0000 A
            01 012C3    96000000 A
                  00400000
            01 012C4    02400000 A
            01 012C5    96000000 A
                  00410000
            01 012C6    02410000 A
            01 012C7    96000000 A
                  00420000
            01 012C8    02420000 A
            01 012C9    96000000 A
                  00430000
            01 012CA    02430000 A
            01 012CB    96000000 A
                  00440000
            01 012CC    02440000 A
            01 012CD    96000000 A
                  00450000
            01 012CE    02450000 A
            01 012CF    96000000 A
                  00460000
            01 012D0    02460000 A
            01 012D1    96000000 A
                  00470000
            01 012D2    02470000 A
            01 012D3    96000000 A
                  00480000
            01 012D4    02480000 A
            01 012D5    96000000 A
                  00490000
            01 012D6    02490000 A
            01 012D7    96000000 A
                  004A0000
            01 012D8    024A0000 A
            01 012D9    96000000 A
                  004B0000
            01 012DA    024B0000 A
            01 012DB    96000000 A
                  004C0000
            01 012DC    024C0000 A
            01 012DD    96000000 A
                  004D0000
            01 012DE    024D0000 A
            01 012DF    96000000 A
                  004E0000
            01 012E0    024E0000 A
            01 012E1    96000000 A
                  004F0000
            01 012E2    024F0000 A
            01 012E3    96000000 A
                  00500000
            01 012E4    02500000 A
            01 012E5    96000000 A
                  00510000
            01 012E6    02510000 A
            01 012E7    96000000 A
                  00520000
            01 012E8    02520000 A
            01 012E9    96000000 A
                  00530000
            01 012EA    02530000 A
            01 012EB    96000000 A
                  00540000
            01 012EC    02540000 A
            01 012ED    96000000 A
                  00550000
            01 012EE    02550000 A
            01 012EF    96000000 A
                  00560000
            01 012F0    02560000 A
            01 012F1    96000000 A
                  00570000
            01 012F2    02570000 A
            01 012F3    96000000 A
                  00580000
            01 012F4    02580000 A
            01 012F5    96000000 A
                  00590000
            01 012F6    02590000 A
            01 012F7    96000000 A
                  005A0000
            01 012F8    025A0000 A
            01 012F9    96000000 A
                  005B0000
            01 012FA    025B0000 A
            01 012FB    96000000 A
                  005C0000
            01 012FC    025C0000 A
            01 012FD    96000000 A
                  005D0000
            01 012FE    025D0000 A
            01 012FF    96000000 A
                  005E0000
            01 01300    025E0000 A
            01 01301    96000000 A
                  005F0000
            01 01302    025F0000 A
            01 01303    96000000 A
                  00600000
            01 01304    02600000 A
            01 01305    96000000 A
                  00610000
            01 01306    02610000 A
            01 01307    96000000 A
                  00620000
            01 01308    02620000 A
            01 01309    96000000 A
                  00630000
            01 0130A    02630000 A
            01 0130B    96000000 A
                  00640000
            01 0130C    02640000 A
            01 0130D    96000000 A
                  00650000
            01 0130E    02650000 A
            01 0130F    96000000 A
                  00660000
            01 01310    02660000 A
            01 01311    96000000 A
                  00670000
            01 01312    02670000 A
            01 01313    96000000 A
                  00680000
            01 01314    02680000 A
            01 01315    96000000 A
                  00690000
            01 01316    02690000 A
            01 01317    96000000 A
                  006A0000
            01 01318    026A0000 A
            01 01319    96000000 A
                  006B0000
            01 0131A    026B0000 A
            01 0131B    96000000 A
                  006C0000
            01 0131C    026C0000 A
            01 0131D    96000000 A
                  006D0000
            01 0131E    026D0000 A
            01 0131F    96000000 A
                  006E0000
            01 01320    026E0000 A
            01 01321    96000000 A
                  006F0000
            01 01322    026F0000 A
            01 01323    96000000 A
                  00700000
            01 01324    02700000 A
            01 01325    96000000 A
                  00710000
            01 01326    02710000 A
            01 01327    96000000 A
                  00720000
            01 01328    02720000 A
            01 01329    96000000 A
                  00730000
            01 0132A    02730000 A
            01 0132B    96000000 A
                  00740000
            01 0132C    02740000 A
            01 0132D    96000000 A
                  00750000
            01 0132E    02750000 A
            01 0132F    96000000 A
                  00760000
            01 01330    02760000 A
            01 01331    96000000 A
                  00770000
            01 01332    02770000 A
            01 01333    96000000 A
                  00780000
            01 01334    02780000 A
            01 01335    96000000 A
                  00790000
            01 01336    02790000 A
            01 01337    96000000 A
                  007A0000
            01 01338    027A0000 A
            01 01339    96000000 A
                  007B0000
            01 0133A    027B0000 A
            01 0133B    96000000 A
                  007C0000
            01 0133C    027C0000 A
            01 0133D    96000000 A
                  007D0000
            01 0133E    027D0000 A
            01 0133F    96000000 A
                  007E0000
            01 01340    027E0000 A
            01 01341    96000000 A
                  007F0000
            01 01342    027F0000 A
            01 01343    96000000 A
                  00800000
            01 01344    02800000 A
            01 01345    96000000 A
                  00810000
            01 01346    02810000 A
            01 01347    96000000 A
                  00820000
            01 01348    02820000 A
            01 01349    96000000 A
                  00830000
            01 0134A    02830000 A
            01 0134B    96000000 A
                  00840000
            01 0134C    02840000 A
            01 0134D    96000000 A
                  00850000
            01 0134E    02850000 A
            01 0134F    96000000 A
                  00860000
            01 01350    02860000 A
            01 01351    96000000 A
                  00870000
            01 01352    02870000 A
            01 01353    96000000 A
                  00880000
            01 01354    02880000 A
            01 01355    96000000 A
                  00890000
            01 01356    02890000 A
            01 01357    96000000 A
                  008A0000
            01 01358    028A0000 A
            01 01359    96000000 A
                  008B0000
            01 0135A    028B0000 A
            01 0135B    96000000 A
                  008C0000
            01 0135C    028C0000 A
            01 0135D    96000000 A
                  008D0000
            01 0135E    028D0000 A
            01 0135F    96000000 A
                  008E0000
            01 01360    028E0000 A
            01 01361    96000000 A
                  008F0000
            01 01362    028F0000 A
            01 01363    96000000 A
                  00900000
            01 01364    02900000 A
            01 01365    96000000 A
                  00910000
            01 01366    02910000 A
            01 01367    96000000 A
                  00920000
            01 01368    02920000 A
            01 01369    96000000 A
                  00930000
            01 0136A    02930000 A
            01 0136B    96000000 A
                  00940000
            01 0136C    02940000 A
            01 0136D    96000000 A
                  00950000
            01 0136E    02950000 A
            01 0136F    96000000 A
                  00960000
            01 01370    02960000 A
            01 01371    96000000 A
                  00970000
            01 01372    02970000 A
            01 01373    96000000 A
                  00980000
            01 01374    02980000 A
            01 01375    96000000 A
                  00990000
            01 01376    02990000 A
            01 01377    96000000 A
                  009A0000
            01 01378    029A0000 A
            01 01379    96000000 A
                  009B0000
            01 0137A    029B0000 A
            01 0137B    96000000 A
                  009C0000
            01 0137C    029C0000 A
            01 0137D    96000000 A
                  009D0000
            01 0137E    029D0000 A
            01 0137F    96000000 A
                  009E0000
            01 01380    029E0000 A
            01 01381    96000000 A
                  009F0000
            01 01382    029F0000 A
            01 01383    96000000 A
                  00A00000
            01 01384    02A00000 A
            01 01385    96000000 A
                  00A10000
            01 01386    02A10000 A
            01 01387    96000000 A
                  00A20000
            01 01388    02A20000 A
            01 01389    96000000 A
                  00A30000
            01 0138A    02A30000 A
            01 0138B    96000000 A
                  00A40000
            01 0138C    02A40000 A
            01 0138D    96000000 A
                  00A50000
            01 0138E    02A50000 A
            01 0138F    96000000 A
                  00A60000
            01 01390    02A60000 A
            01 01391    96000000 A
                  00A70000
            01 01392    02A70000 A
            01 01393    96000000 A
                  00A80000
            01 01394    02A80000 A
            01 01395    96000000 A
                  00A90000
            01 01396    02A90000 A
            01 01397    96000000 A
                  00AA0000
            01 01398    02AA0000 A
            01 01399    96000000 A
                  00AB0000
            01 0139A    02AB0000 A
            01 0139B    96000000 A
                  00AC0000
            01 0139C    02AC0000 A
            01 0139D    96000000 A
                  00AD0000
            01 0139E    02AD0000 A
            01 0139F    96000000 A
                  00AE0000
            01 013A0    02AE0000 A
            01 013A1    96000000 A
                  00AF0000
            01 013A2    02AF0000 A
            01 013A3    96000000 A
                  00B00000
            01 013A4    02B00000 A
            01 013A5    96000000 A
                  00B10000
            01 013A6    02B10000 A
            01 013A7    96000000 A
                  00B20000
            01 013A8    02B20000 A
            01 013A9    96000000 A
                  00B30000
            01 013AA    02B30000 A
            01 013AB    96000000 A
                  00B40000
            01 013AC    02B40000 A
            01 013AD    96000000 A
                  00B50000
            01 013AE    02B50000 A
            01 013AF    96000000 A
                  00B60000
            01 013B0    02B60000 A
            01 013B1    96000000 A
                  00B70000
            01 013B2    02B70000 A
            01 013B3    96000000 A
                  00B80000
            01 013B4    02B80000 A
            01 013B5    96000000 A
                  00B90000
            01 013B6    02B90000 A
            01 013B7    96000000 A
                  00BA0000
            01 013B8    02BA0000 A
            01 013B9    96000000 A
                  00BB0000
            01 013BA    02BB0000 A
            01 013BB    96000000 A
                  00BC0000
            01 013BC    02BC0000 A
            01 013BD    96000000 A
                  00BD0000
            01 013BE    02BD0000 A
            01 013BF    96000000 A
                  00BE0000
            01 013C0    02BE0000 A
            01 013C1    96000000 A
                  00BF0000
            01 013C2    02BF0000 A
            01 013C3    96000000 A
                  00C00000
            01 013C4    02C00000 A
            01 013C5    96000000 A
                  00C10000
            01 013C6    02C10000 A
            01 013C7    96000000 A
                  00C20000
            01 013C8    02C20000 A
            01 013C9    96000000 A
                  00C30000
            01 013CA    02C30000 A
            01 013CB    96000000 A
                  00C40000
            01 013CC    02C40000 A
            01 013CD    96000000 A
                  00C50000
            01 013CE    02C50000 A
            01 013CF    96000000 A
                  00C60000
            01 013D0    02C60000 A
            01 013D1    96000000 A
                  00C70000
            01 013D2    02C70000 A
            01 013D3    96000000 A
                  00C80000
            01 013D4    02C80000 A
            01 013D5    96000000 A
                  00C90000
            01 013D6    02C90000 A
            01 013D7    96000000 A
                  00CA0000
            01 013D8    02CA0000 A
            01 013D9    96000000 A
                  00CB0000
            01 013DA    02CB0000 A
            01 013DB    96000000 A
                  00CC0000
            01 013DC    02CC0000 A
            01 013DD    96000000 A
                  00CD0000
            01 013DE    02CD0000 A
            01 013DF    96000000 A
                  00CE0000
            01 013E0    02CE0000 A
            01 013E1    96000000 A
                  00CF0000
            01 013E2    02CF0000 A
            01 013E3    96000000 A
                  00D00000
            01 013E4    02D00000 A
            01 013E5    96000000 A
                  00D10000
            01 013E6    02D10000 A
            01 013E7    96000000 A
                  00D20000
            01 013E8    02D20000 A
            01 013E9    96000000 A
                  00D30000
            01 013EA    02D30000 A
            01 013EB    96000000 A
                  00D40000
            01 013EC    02D40000 A
            01 013ED    96000000 A
                  00D50000
            01 013EE    02D50000 A
            01 013EF    96000000 A
                  00D60000
            01 013F0    02D60000 A
            01 013F1    96000000 A
                  00D70000
            01 013F2    02D70000 A
            01 013F3    96000000 A
                  00D80000
            01 013F4    02D80000 A
            01 013F5    96000000 A
                  00D90000
            01 013F6    02D90000 A
            01 013F7    96000000 A
                  00DA0000
            01 013F8    02DA0000 A
            01 013F9    96000000 A
                  00DB0000
            01 013FA    02DB0000 A
            01 013FB    96000000 A
                  00DC0000
            01 013FC    02DC0000 A
            01 013FD    96000000 A
                  00DD0000
            01 013FE    02DD0000 A
            01 013FF    96000000 A
                  00DE0000
            01 01400    02DE0000 A
            01 01401    96000000 A
                  00DF0000
            01 01402    02DF0000 A
            01 01403    96000000 A
                  00E00000
            01 01404    02E00000 A
            01 01405    96000000 A
                  00E10000
            01 01406    02E10000 A
            01 01407    96000000 A
                  00E20000
            01 01408    02E20000 A
            01 01409    96000000 A
                  00E30000
            01 0140A    02E30000 A
            01 0140B    96000000 A
                  00E40000
            01 0140C    02E40000 A
            01 0140D    96000000 A
                  00E50000
            01 0140E    02E50000 A
            01 0140F    96000000 A
                  00E60000
            01 01410    02E60000 A
            01 01411    96000000 A
                  00E70000
            01 01412    02E70000 A
            01 01413    96000000 A
                  00E80000
            01 01414    02E80000 A
            01 01415    96000000 A
                  00E90000
            01 01416    02E90000 A
            01 01417    96000000 A
                  00EA0000
            01 01418    02EA0000 A
            01 01419    96000000 A
                  00EB0000
            01 0141A    02EB0000 A
            01 0141B    96000000 A
                  00EC0000
            01 0141C    02EC0000 A
            01 0141D    96000000 A
                  00ED0000
            01 0141E    02ED0000 A
            01 0141F    96000000 A
                  00EE0000
            01 01420    02EE0000 A
            01 01421    96000000 A
                  00EF0000
            01 01422    02EF0000 A
            01 01423    96000000 A
                  00F00000
            01 01424    02F00000 A
            01 01425    96000000 A
                  00F10000
            01 01426    02F10000 A
            01 01427    96000000 A
                  00F20000
            01 01428    02F20000 A
            01 01429    96000000 A
                  00F30000
            01 0142A    02F30000 A
            01 0142B    96000000 A
                  00F40000
            01 0142C    02F40000 A
            01 0142D    96000000 A
                  00F50000
            01 0142E    02F50000 A
            01 0142F    96000000 A
                  00F60000
            01 01430    02F60000 A
            01 01431    96000000 A
                  00F70000
            01 01432    02F70000 A
            01 01433    96000000 A
                  00F80000
            01 01434    02F80000 A
            01 01435    96000000 A
                  00F90000
            01 01436    02F90000 A
            01 01437    96000000 A
                  00FA0000
            01 01438    02FA0000 A
            01 01439    96000000 A
                  00FB0000
            01 0143A    02FB0000 A
            01 0143B    96000000 A
                  00FC0000
            01 0143C    02FC0000 A
            01 0143D    96000000 A
                  00FD0000
            01 0143E    02FD0000 A
            01 0143F    96000000 A
                  00FE0000
            01 01440    02FE0000 A
            01 01441    96000000 A
                  00FF0000
            01 01442    02FF0000 A
            01 01443    96000000 A
                  01000000
     4109   01 01444    08000922     READ     GEN,8,24 8,DA(CLISTR)
     4110   01 01445    08000922              GEN,8,24 8,DA(CLISTR)
     4111   01 01446    08000822     WRITE    GEN,8,24 8,DA(CLISTW)
     4112   01 01447    08000822              GEN,8,24 8,DA(CLISTW)
     4113                                     BOUND    8
     4114   01 01448    00000000 A   TOPADDS  DATA     0,0
            01 01449    00000000 A
     4115                            *
     4116                            *
     4117   01 0144A    32601445     RESTCDW  LW,6     READ+1            GET ORIGIONAL
     4118   01 0144B    35601444              STW,6    READ              AND RESTORE IT
     4119   01 0144C    32601447              LW,6     WRITE+1           GET ORIGIONAL
     4120   01 0144D    35601446              STW,6    WRITE             AND RESTORE IT
     4121   01 0144E    33001448              MTW,0    TOPADDS           HAS THE TOP BEEN SET UP?
     4122   01 0144F    E830000F A            BEZ      *15               B,NO RETURN
     4123   01 01450    22600096 A            LI,6     X'96'             RESTORE LAST CDW
     4124   01 01451    F5601448              STB,6    *TOPADDS          RE READ
     4125   01 01452    F5601449              STB,6    *TOPADDS+1        RESTORE WRITE
     4126   01 01453    22700000 A            LI,7     0
     4127   01 01454    15701448              STD,7    TOPADDS           CLEAR OUT THE SAVED ADDRESSES
     4128   01 01455    E800000F A            B        *15
     4129                            *
     4130                            *
     4131   01 01456    35F0147D     SETCDW   STW,15   SETEXIT           SAVE RETURN
     4132   01 01457    33001448              MTW,0    TOPADDS           IS THE LIST SET NOW?
     4133   01 01458    6830145A              BEZ      %+2               B,NO
     4134   01 01459    6AF0144A              BAL,15   RESTCDW           GO RESTORE IT
     4135   01 0145A    324007CD              LW,4     FIRSTMEM          FIRST TEST ADDRESS
     4136   01 0145B    325007C9              LW,5     ADMASK            MASK
     4137   01 0145C    25400102 A            SLD,4    2                 BYTE ADDRESS EM
     4138   01 0145D    21407940              CI,4     BA(END)           IS START OK
     4139   01 0145E    6830146B              BE       LOWOK             OK
     4140   01 0145F    22801044              LI,8     CLISTW            START OF WRITE CDWS
     4141   01 01460    22901244              LI,9     CLISTR            START OF READ CDWS
     4142   01 01461    C5400008 A   SETLOW   CS,4     *8                IS THIS THE ONE?
     4143   01 01462    68201466              BLE      GOTLOW            B,YES
     4144   01 01463    20800002 A            AI,8     2                 NEXT ADDRESSS
     4145   01 01464    20900002 A            AI,9     2                 DITTO
     4146   01 01465    68001461              B        SETLOW            LOOP.TILL FOUND
     4147   01 01466    2580017F A   GOTLOW   SLD,8    -1                DOUBLEWORD EM
     4148   01 01467    498007F9              OR,8     H08               TIC
     4149   01 01468    35801446              STW,8    WRITE             INTO START CDW
     4150   01 01469    499007F9              OR,9     H08               TIC
     4151   01 0146A    35901444              STW,9    READ              INTO START CDW

        2*  01 0146B    324007CE     LOWOK    LW,4     MSIZE             COMPUTE LWA MEMORY              *H01
        3*  01 0146C    204FFFFF A            AI,4     -1                                                *H01
     4153   01 0146D    25400002 A            SLS,4    2                 BYTE ADDRESS IT
     4154   01 0146E    22801044              LI,8     CLISTW            WRITE COMMAND LIST
     4155   01 0146F    22901244              LI,9     CLISTR            READ COMMAND LIST
     4156   01 01470    C5400008 A   GETHIGH  CS,4     *8                IS THIS  THE ONE?
     4157   01 01471    68201476              BLE      GOTHIGH           B,YES
     4158   01 01472    20800002 A            AI,8     2                 NEXT ADDRESS
     4159   01 01473    20900002 A            AI,9     2                 NEXT ADDRESS
     4160   01 01474    21801244              CI,8     CLISTR
     4161   01 01475    69101470              BL       GETHIGH           GO TILL FOUND
     4162   01 01476    208FFFFF A   GOTHIGH  AI,8     -1                BACK UP ONE
     4163   01 01477    209FFFFF A            AI,9     -1                BACK UP ONE
     4164   01 01478    15801448              STD,8    TOPADDS           SAVE EM
     4165   01 01479    22700046 A            LI,7     X'46'             ENDING FLAGS
     4166   01 0147A    F5700008 A            STB,7    *8                INTO CDW LIST
     4167   01 0147B    F5700009 A            STB,7    *9                INTO CDW LIST
     4168   01 0147C    E800147D              B        *SETEXIT          RETURN
     4169   01 0147D                 SETEXIT  RES      1
     4170                            *
     4171                            *
     4172   01 0147E    32800802     OFFLINE  LW,8     HC                WD DATA
     4173   01 0147F    22000000 A            LI,0     0
     4174   01 01480    22100001 A            LI,1     1
     4175   01 01481    22200002 A            LI,2     2
     4176   01 01482    22300003 A            LI,3     3                 INDEXER
     4177   01 01483    2240001B A            LI,4     27                INDEXER
     4178   01 01484    225001B0 A            LI,5     X'1B0'            WD ADDRESSS
     4179   01 01485    32680F42     OFLINEL  LW,6     IOPTABLB,4        GETTABLE ENTRY
     4180   01 01486    6830148D              BEZ      OFFLINX           B,ZERO
     4181   01 01487    32980F62              LW,9     IOPTABLC,4        GET PRESENT ENTRY
     4182   01 01488    6D8A200F A            WD,8     X'200F',5         BUS CONTROL 'OFF LINE'
     4183   01 01489    499007FF              OR,9     H8                TURN ON BIT ZERO
     4184   01 0148A    221003C0 A            LI,1     X'03C0'           HF INTERRUPTS TOO
     4185   01 0148B    6D101102 A            WD,1     X'1102'           BYE BYE
     4186   01 0148C    35980F62              STW,9    IOPTABLC,4        STORE BUSY BIT
     4187   01 0148D    205FFFF0 A   OFFLINX  AI,5     -16               NEXT IOP
     4188   01 0148E    204FFFFF A            AI,4     -1                LOOPER
     4189   01 0148F    68101485              BGEZ     OFLINEL           LOOP IT
     4190   01 01490    22407530 A            LI,4     30000             DELAY COUNT
     4191   01 01491    64401491              BDR,4    %                 AND A DELAY
     4192   01 01492    E800000F A            B        *15               EXIT
     4193                            *
     4194                            *
     4195   01 01493    22000000 A   CLEARMEM LI,0     0
     4196   01 01494    321007CD              LW,1     FIRSTMEM          STARTING ADRESS
     4197   01 01495    B5000001 A            STW,0    *1                CLEAR IT
     4198   01 01496    20100001 A            AI,1     1                 NEXT
     4199   01 01497    311007CE              CW,1     MSIZE             DONE YET?
     4200   01 01498    69101495              BL       %-3               B,NO
     4201   01 01499    221FFFE0 A            LI,1     -32
     4202   01 0149A    22200000 A            LI,2     0
     4203   01 0149B    323007FE              LW,3     X7FS              MASK
     4204   01 0149C    47220FC3              STS,2    IOPTABLE+32,1     CLEAR BUFFER TABLE
     4205   01 0149D    6510149C              BIR,1    %-1               LOOP
     4206   01 0149E    35200FA2              STW,2    CPUBUF            CLEAR CPU BUFFER
     4207   01 0149F    E800000F A            B        *15               EXIT
     4208                            *
     4209                            *
     4210   01 014A0    22000000 A   START    LI,0     0
     4211   01 014A1    350007C6              STW,0    SCATFLAG          CLEAR BUFFER FLAG
     4212   01 014A2    35000FA2              STW,0    CPUBUF            CLEAR CPU BUFFER ADDRESS
     4213   01 014A3    350007B8              STW,0    TRACK             CLEAR TRACK MODE
     4214   01 014A4    330007C0              MTW,0    GO1               PHASE ONE?
     4215   01 014A5    693014B5              BNEZ     STARTP1           B,YES
     4216   01 014A6    330007C1     TESTP2   MTW,0    GO2               PHASE TWO?
     4217   01 014A7    693014CE              BNEZ     STARTP2           B,YES
     4218   01 014A8    330007C2     TESTP3   MTW,0    GO3               PHASE THREE?
     4219   01 014A9    693014EB              BNEZ     STARTP3           B,YES
     4220   01 014AA    330007C3     TESTP4   MTW,0    GO4               PHASE 4 ?
     4221   01 014AB    69301553              BNEZ     STARTP4           GO DO IT
     4222   01 014AC    680014A0              B        START             LOOP
     4223                            *
     4224   01 014AD                 SPURINT  RES      0
     4225   01 014AD    330007AD              MTW,0    IOSPUR            ANYTHING ?
     4226   01 014AE    E830000F A            BEZ      *15               B,NO
     4227   01 014AF    326007AD              LW,6     IOSPUR
     4228   01 014B0    22C00008 A            LI,12    8
     4229   01 014B1    2270680F              LI,7     BA(SPURTXT)+3     PUT IT HERE
     4230   01 014B2    6AE00773              BAL,14   TXLATE
     4231   01 014B3    04E01A03              MTYPE    SPURTXT           TELL HIM
     4232   01 014B4    E800000F A            B        *15               RETURN
1 C00   20:35 JUN 20,'83    PHASE ONE                                                             PAGE   13
A    4234                            *        START OF PHASE 1
     4235                            *
     4236   01 014B5    330007B4     STARTP1  MTW,0    HOLDFLAG          ARE WE RUNNING HOLD MODE?
     4237   01 014B6    693014A6              BNEZ     TESTP2            YES START AT PHASE 2
     4238   01 014B7    6AE00729     STARTA   BAL,14   CURTIME           SET UP TIME MESSAGE
     4239   01 014B8    04E01A9B              MTYPE    PHASE1
     4240   01 014B9    320007BD              LW,0     PH1DLY            GET DELAY COUNT
     4241   01 014BA    350007BB              STW,0    PHASEDLY          DELAY
     4242   01 014BB    6AC0161F              BAL,12   TABLESET          GO CLEAR UP THE TABLES
     4243   01 014BC    6D000027 A            ALLOW
     4244   01 014BD    22700001 A            LI,7     1
     4245   01 014BE    357007BA              STW,7    PHASE             SET UP PHASE INDICATOR
     4246   01 014BF    331007B8              MTW,1    TRACK             SET UP TRACK MODE
     4247   01 014C0    2270001F A            LI,7     31                INDEX
     4248   01 014C1    328E0F42     STARTB   LW,8     IOPTABLB,7        GET TABLE ENTRY
     4249   01 014C2    683014C7              BEZ      STARTD            B,NONE
     4250   01 014C3    331007B8              MTW,1    TRACK             MARK IT AGAIN
     4251   01 014C4    0F0016D2              XPSD,0   STARTIOP
     4252   01 014C5    330007B8     STARTC   MTW,0    TRACK             WAIT FOR COMPLETION
     4253   01 014C6    692014C5              BGZ      STARTC            NOT YET
     4254   01 014C7    207FFFFF A   STARTD   AI,7     -1                NEXT INDEX
     4255   01 014C8    681014C1              BGEZ     STARTB            LOOP IT
     4256   01 014C9    6AF0166C              BAL,15   STOPIOP           TURN EVERYONE OFF
     4257   01 014CA    22000000 A            LI,0     0
     4258   01 014CB    350007B8              STW,0    TRACK             CLEAR TRACK MODE
     4259   01 014CC    6AF014AD              BAL,15   SPURINT           CHECK FOR SPURIOUS INTERRUPTS
     4260   01 014CD    680014A6              B        TESTP2            GO TO SEQUENCER
1 C00   20:35 JUN 20,'83    PHASE TWO                                                             PAGE   14
A    4262                            *
     4263                            *                 START OF PHASE 2
     4264                            *
     4265   01 014CE    6AE00729     STARTP2  BAL,14   CURTIME           SET UP TIME MESSAGE
     4266   01 014CF    04E01A9E              MTYPE    PHASE2            PHASE MESSAGE
     4267   01 014D0    320007BE              LW,0     PH2DLY            GET DELAY COUNT
     4268   01 014D1    350007BB              STW,0    PHASEDLY          DELAY
     4269   01 014D2    6AC0161F              BAL,12   TABLESET          GO CLEAR UP THE TABLES
     4270   01 014D3    22000002 A            LI,0     2
     4271   01 014D4    350007BA              STW,0    PHASE             SET UP PHASE INDICATOR
     4272   01 014D5    320007B3              GETTIME  0                 GET PRESENT TIME
            01 014D6    300007B2
            01 014D7    380007B1
     4273   01 014D8    2270001F A   STARTE   LI,7     31                INDEX
     4274   01 014D9    328E0F42     STARTF   LW,8     IOPTABLB,7        DO WE HAVE THIS ONE?
     4275   01 014DA    683014DE              BEZ      STARTG            B,NO
     4276   01 014DB    310E1004              CW,0     IOPTABLG,7        STARTUP YET?
     4277   01 014DC    691014DE              BL       %+2               B,NO
     4278   01 014DD    0F0016D2              XPSD,0   STARTIOP          START IT UP
     4279   01 014DE    207FFFFF A   STARTG   AI,7     -1                NEXT ONE
     4280   01 014DF    681014D9              BGEZ     STARTF            LOOP IT
     4281   01 014E0    6D000027 A            ALLOW
     4282   01 014E1    330007B4              MTW,0    HOLDFLAG          HOLD MODE?
     4283   01 014E2    693014D8              BNEZ     STARTE            B,YES
     4284   01 014E3    320007B3              GETTIME  0                 GET PRESENT TIME
            01 014E4    300007B2
            01 014E5    380007B1
     4285   01 014E6    310007B9              CW,0     PHCNT             PHASE DONE?
     4286   01 014E7    691014D8              BL       STARTE            CHECK MORE TIMEOUTR
     4287   01 014E8    6AF0166C              BAL,15   STOPIOP           TURN EVERYONE OFF
     4288   01 014E9    6AF014AD              BAL,15   SPURINT           CHECK FOR SPURIOUS INTERRUPTS
     4289   01 014EA    680014A8              B        TESTP3            GO TO SEQUENCER
     4290                            *
1 C00   20:35 JUN 20,'83    PHASE THREE                                                           PAGE   15
A    4292                            *
     4293                            *                 START OF PHASE 3
     4294                            *
     4295                            *
     4296   01 014EB    6AE00729     STARTP3  BAL,14   CURTIME           SET UP TIME MESSAGE
     4297   01 014EC    04E01AA1              MTYPE    PHASE3            PHASE MESSAGE
     4298   01 014ED    320007BF              LW,0     PH3DLY            GET DELAY COUNT
     4299   01 014EE    350007BB              STW,0    PHASEDLY          DELAY
     4300   01 014EF    6AC0161F              BAL,12   TABLESET          GO SET UP THE TABLES
     4301   01 014F0    331007C6              MTW,1    SCATFLAG          SET BUFFER SCATTER FLAG
     4302   01 014F1    22000003 A            LI,0     3
     4303   01 014F2    350007BA              STW,0    PHASE             SET UP PHASE INDICATOR
     4304   01 014F3    320007B3              GETTIME  0                 GET PRESENT TIME
            01 014F4    300007B2
            01 014F5    380007B1
     4305   01 014F6    2270001F A   STARTI   LI,7     31
     4306   01 014F7    330E0F42     STARTJ   MTW,0    IOPTABLB,7        THIS EN
     4307   01 014F8    683014FC              BEZ      STARTK            B,NO
     4308   01 014F9    310E1004              CW,0     IOPTABLG,7        START UP?
     4309   01 014FA    691014FC              BL       STARTK            B,NO
     4310   01 014FB    0F0016D2              XPSD,0   STARTIOP          GO START IT
     4311   01 014FC    207FFFFF A   STARTK   AI,7     -1                NEXT ONE
     4312   01 014FD    681014F7              BGEZ     STARTJ            B,YES
     4313   01 014FE    32400FA2              LW,4     CPUBUF            LETS DO THE CPU PORT
     4314   01 014FF    69301502              BNEZ     %+3               WE HAVE ONE
     4315   01 01500    324007CE              LW,4     MSIZE             DEFAULT TO SOMETHING
     4316   01 01501    68001504              B        STARTL            GO GET A BUFFER ANYHOW
     4317   01 01502    330007B4              MTW,0    HOLDFLAG          HOLD MODE?
     4318   01 01503    69301506              BNEZ     %+3               RETAIN THE PRESENT BUFFER
     4319   01 01504    6AF017DE     STARTL   BAL,15   GETBUF            FIND A GOOD ONE PLEASE
     4320   01 01505    35400FA2              STW,4    CPUBUF
     4321   01 01506    6D000027 A            ALLOW
     4322   01 01507    B3000004 A            MTW,0    *4                IS THIS AN ERRORED BUFFER?
     4323   01 01508    69201504              BGZ      STARTL            YES,GET ANOTHER
     4324   01 01509    22300003 A            LI,3     3                 GRAB A THREE
     4325   01 0150A    F2560004 A            LB,5     *4,3              GET BYTE 3 OF CONTROL WORD
     4326   01 0150B    21500032 A            CI,5     X'32'             IS IT HF ?
     4327   01 0150C    6830150F              BE       %+3               B,YES
     4328   01 0150D    215000CD A            CI,5     X'CD'             COULD BE COMPLEMENT DATA
     4329   01 0150E    6930151C              BNE      STARTL1           B,NO
     4330   01 0150F    33000D4A              MTW,0    HDATTST           TESTING BUFFERS ?
     4331   01 01510    69301524              BNEZ     STARTL2           B,NO
     4332   01 01511    20400001 A            AI,4     1                 GET PAST CONTROL WORD
     4333   01 01512    325007C7              LW,5     BUFSIZE           HOW MANY WORDS
     4334   01 01513    205FFFFF A            AI,5     -1                MINUS CONTROL WORD OF COURSE
     4335   01 01514    329005C6              LW,9     HMEMASK           JUST ADDRESS BITS TO CHECK
     4336   01 01515    32800004 A            LW,8     4                 GET THE WORD IN CORE
     4337   01 01516    C5800004 A            CS,8     *4                CHECK IF EQUAL
     4338   01 01517    69301530              BNE      STARTM            B,NOT EQUAL
     4339   01 01518    20400001 A            AI,4     1                 GET NEXT WORD
     4340   01 01519    20800001 A            AI,8     1                 YOU TOO
     4341   01 0151A    64501516              BDR,5    %-4               LOOP TILL FINISHED
     4342   01 0151B    68001524              B        STARTL2           GO YOUR DONE
     4343   01 0151C    20400001 A   STARTL1  AI,4     1                 GO PAST THE CONTROL WORD
     4344   01 0151D    B2000004 A            LW,0     *4                GET THE WORD
     4345   01 0151E    325007C7              LW,5     BUFSIZE           AND THE SIZE
     4346   01 0151F    205FFFFF A            AI,5     -1                LESS ONE
     4347   01 01520    B1000004 A            CW,0     *4                GOO DATA?
     4348   01 01521    69301530              BNE      STARTM            B,NO
     4349   01 01522    20400001 A            AI,4     1                 NEXT ADDRESS
     4350   01 01523    64501520              BDR,5    %-3               LOOP THRU IT
     4351   01 01524    320007B3     STARTL2  GETTIME  0                 WHAT TIME IS IT
            01 01525    300007B2
            01 01526    380007B1
     4352   01 01527    330007B4              MTW,0    HOLDFLAG          HOLD MODE?
     4353   01 01528    693014F6              BNEZ     STARTI            B,YES
     4354   01 01529    310007B9              CW,0     PHCNT             DONE YET?
     4355   01 0152A    691014F6              BL       STARTI            B,NO
     4356   01 0152B    6AF0166C              BAL,15   STOPIOP           TURN EVERYONE OFF
     4357   01 0152C    22000000 A            LI,0     0
     4358   01 0152D    350007C6              STW,0    SCATFLAG          CLEAR BUFFER SCATTER FLAG
     4359   01 0152E    6AF014AD              BAL,15   SPURINT           CHECK FOR SPURIOUS INTERRUPTS
     4360   01 0152F    680014AA              B        TESTP4            BACK TO SEQUENCER
     4361   01 01530    6D000037 A   STARTM   INHIB                      STOP EM
     4362   01 01531    22101000 A            LI,1     X'1000'           STOP
     4363   01 01532    6D101100 A            WD,1     X'1100'           COUNTER 4
     4364   01 01533    6C000000 A            RD,0     0                 READ SSW
     4365   01 01534    6910154D              BCS,1    STARTM1           BYPASS ERROR
     4366   01 01535    3540078D              STW,4    TEMP+1            BAD ADDRESS
     4367   01 01536    3500078E              STW,0    TEMP+2            GOOD DATA
     4368   01 01537    B2000004 A            LW,0     *4                GET THE
     4369   01 01538    3500078F              STW,0    TEMP+3            BAD DATA
     4370   01 01539    32000FA2              LW,0     CPUBUF            GET START OF BUFFER
     4371   01 0153A    6830154F              BEZ      STARTN            ZERO MEANS THE SIZE WAS CHANGED DURING TEST
     4372   01 0153B    3500078C              STW,0    TEMP              ZEROS
     4373   01 0153C    22706914              LI,7     BA(COMPD+1)       MESSAGE ADDRESS
     4374   01 0153D    22200004 A            LI,2     4                 4 WORDS
     4375   01 0153E    6AF0076B              BAL,15   XLATTEMP          PUT EM INTO MESSAGE
     4376   01 0153F    6AE00729              BAL,14   CURTIME           REPORT TIME
     4377   01 01540    04C00780              DPRINT   TOF               TOP OF FORM
     4378   01 01541    04D019B1              MPRINT   TIMEMES           REPORT TIME
     4379   01 01542    04D01A8F              MPRINT   CPUHEAD           HEADING
     4380   01 01543    04D01A44              MPRINT   COMPD             AND THE DATA
     4381   01 01544    04E01A8F              MTYPE    CPUHEAD
     4382   01 01545    04E01A44              MTYPE    COMPD
     4383   01 01546    32200FA2              LW,2     CPUBUF            STARTING ADDRESS
     4384   01 01547    321007C7              LW,1     BUFSIZE           SIZE
     4385   01 01548    201FFFFF A            AI,1     -1                LESS ONE
     4386   01 01549    22FFFFFF A            LI,15    -1                FLAG
     4387   01 0154A    35F00A6E              STW,15   DUFLAG            A PRINT OPERATION
     4388   01 0154B    6AF00A06              BAL,15   DILOOP1           GO PRINT  IT
     4389   01 0154C    0F001654              XPSD,0   HELP              WAIT FOR COMMANDS
     4390   01 0154D    22000000 A   STARTM1  LI,0     0
     4391   01 0154E    F5000FA2              STB,0    *CPUBUF           MARK IT AS NEEDING REFRESH
     4392   01 0154F    22101000 A   STARTN   LI,1     X'1000'           TURN
     4393   01 01550    6D101200 A            WD,1     X'1200'           COUNTER 4 BACK ON
     4394   01 01551    6D000027 A            ALLOW
     4395   01 01552    680014F6              B        STARTI            GOON
1 C00   20:35 JUN 20,'83    PHASE 4                                                               PAGE   16
A    4397                            *
     4398                            *                 START OF PHASE 4
     4399                            *
     4400                            *
     4401   01 01553    6AE00729     STARTP4  BAL,14   CURTIME           SET UP TIME MESSAGE
     4402   01 01554    04E01AA4              MTYPE    PHASE4            PHASE MESSAGE
     4403   01 01555    320007BF              LW,0     PH3DLY            USE SAME DELAY AS PHASE 3
     4404   01 01556    350007BB              STW,0    PHASEDLY          DELAY
     4405   01 01557    6AC0161F              BAL,12   TABLESET          GO SET UP THE TABLES
     4406   01 01558    331007C6              MTW,1    SCATFLAG          SET BUFFER SCATTER FLAG
     4407   01 01559    22000004 A            LI,0     4
     4408   01 0155A    350007BA              STW,0    PHASE             SET UP PHASE INDICATOR
     4409   01 0155B    320007B3              GETTIME  0                 GET PRESENT TIME
            01 0155C    300007B2
            01 0155D    380007B1
     4410   01 0155E    2270001F A   STARTI4  LI,7     31
     4411   01 0155F    330E0F42     STARTJ4  MTW,0    IOPTABLB,7        THIS EN
     4412   01 01560    68301564              BEZ      STARTK4           B,NO
     4413   01 01561    310E1004              CW,0     IOPTABLG,7        START UP?
     4414   01 01562    69101564              BL       STARTK4           B,NO
     4415   01 01563    0F0016D2              XPSD,0   STARTIOP          GO START IT
     4416   01 01564    207FFFFF A   STARTK4  AI,7     -1                NEXT ONE
     4417   01 01565    6810155F              BGEZ     STARTJ4           B,YES
     4418   01 01566    32400FA2              LW,4     CPUBUF            LETS DO THE CPU PORT
     4419   01 01567    6930156A              BNEZ     %+3               WE HAVE ONE
     4420   01 01568    324007CE              LW,4     MSIZE             DEFAULT TO SOMETHING
     4421   01 01569    6800156C              B        STARTL4           GO GET A BUFFER ANYHOW
     4422   01 0156A    330007B4              MTW,0    HOLDFLAG          HOLD MODE?
     4423   01 0156B    6930156E              BNEZ     %+3               RETAIN THE PRESENT BUFFER
     4424   01 0156C    6AF017DE     STARTL4  BAL,15   GETBUF            FIND A GOOD ONE PLEASE
     4425   01 0156D    35400FA2              STW,4    CPUBUF
     4426   01 0156E    6D000027 A            ALLOW
     4427   01 0156F    B3000004 A            MTW,0    *4                IS THIS AN ERRORED BUFFER?
     4428   01 01570    6920156C              BGZ      STARTL4           YES,GET ANOTHER
     4429   01 01571    22300003 A            LI,3     3                 GRAB A THREE
     4430   01 01572    F2560004 A            LB,5     *4,3              GRAB THE DATA BYTE
     4431   01 01573    21500032 A            CI,5     X'32'             IS IT THE HF ?
     4432   01 01574    683015C2              BE       HFCVA             B,YEP
     4433   01 01575    215000CD A            CI,5     X'CD'             COULD BE HF IN 4 NYTE
     4434   01 01576    683015C2              BE       HFCVA             B,SURE WAS
     4435   01 01577    20400001 A            AI,4     1                 GET PAST CONTROL WORD
     4436   01 01578    35401618              STW,4    CVLOC             AND SAVE IT
     4437   01 01579    B2500004 A            LW,5     *4                GET THE DATA WORD
     4438   01 0157A    35501619              STW,5    CVDATA            AND SAVE IT TOO
     4439   01 0157B    326007C7              LW,6     BUFSIZE           GET BUFFER SIZE
     4440   01 0157C    206FFFFF A            AI,6     -1                SKIP CONTROL WORD
     4441   01 0157D    35601614              STW,6    CVBUF             GET TOTAL SIZE
     4442   01 0157E    37500006 A            MW,5     6                 DATA * BUFFSIZE
     4443   01 0157F    35501615              STW,5    PH4MUL            AND SAVE THE RESULT
     4444   01 01580    22600000 A            LI,6     0                 GRAB A ZERO
     4445   01 01581    35601616              STW,6    PH4CVA            CLEAR ENTRY
     4446   01 01582    35601617              STW,6    PH4CVS
     4447   01 01583    6AF01603     CVA1     BAL,15   CVCALC            SET UP R7 FOR CVA
     4448   01 01584    6800158A              B        CVA2              GETS ME OUT OF LOOP
     4449   01 01585    6800158C              B        CVA3              WAS DONE ALREADY
     4450   01 01586    A9600004 A            CVA,6    *4                SUM UP THESE WORDS
     4451   01 01587    66601616              AWM,6    PH4CVA            ADD TO TOTAL
     4452   01 01588    20400020 A            AI,4     32                GRAB NEXT BLOCK
     4453   01 01589    68001583              B        CVA1              GO GET MORE
     4454   01 0158A    A9600004 A   CVA2     CVA,6    *4                FINISH UP
     4455   01 0158B    66601616              AWM,6    PH4CVA            AND SAVE
     4456   01 0158C    32601616     CVA3     LW,6     PH4CVA            GRAB CVA RESULT AGAIN
     4457   01 0158D    38601615              SW,6     PH4MUL            AND ADD TO MULTIPLIED
     4458   01 0158E    3560161B              STW,6    CVSMSUM           SAVE RESULT
     4459   01 0158F    6930159C              BNEZ     CVERR             LOOK FOR MORE TO DO
     4460   01 01590    330007B4              MTW,0    HOLDFLAG          HOLD MODE?
     4461   01 01591    6930155E              BNEZ     STARTI4           B,YES
     4462   01 01592    320007B3     STARTM4  GETTIME  0
            01 01593    300007B2
            01 01594    380007B1
     4463   01 01595    310007B9              CW,0     PHCNT             DONE YET?
     4464   01 01596    6910155E              BL       STARTI4           B,NO
     4465   01 01597    6AF0166C              BAL,15   STOPIOP           TURN EVERYONE OFF
     4466   01 01598    22000000 A            LI,0     0
     4467   01 01599    350007C6              STW,0    SCATFLAG          CLEAR BUFFER SCATTER FLAG
     4468   01 0159A    6AF014AD              BAL,15   SPURINT           CHECK FOR SPURIOUS INTERRUPTS
     4469   01 0159B    680014A0              B        START             BACK TO SEQUENCER
     4470   01 0159C                 CVERR    RES      0
     4471   01 0159C    22101000 A            LI,1     X'1000'           STOP COUNTER 4
     4472   01 0159D    6D101100 A            WD,1     X'1100'           LIKE THIS
     4473   01 0159E    6C000000 A            RD,0     0
     4474   01 0159F    691015BC              BCS,1    CVERR3            NO SENSE SWITCHES
     4475   01 015A0    04E01CA6              MTYPE    CVTEXTA           ERROR HEADING
     4476   01 015A1    04E01CB2     CVERR1   MTYPE    CVTEXTC           WAS OTHER TYPE
     4477   01 015A2    3260161B              LW,6     CVSMSUM           GRAB THE BAD RESULT
     4478   01 015A3    227072FC              LI,7     BA(CVTEXTD)+20    PUT IT HERE
     4479   01 015A4    22C00008 A            LI,12    8
     4480   01 015A5    6AE00773              BAL,14   TXLATE
     4481   01 015A6    04E01CBA              MTYPE    CVTEXTD           PRINT TOTALS
     4482   01 015A7    32601619              LW,6     CVDATA            GET DATA USED
     4483   01 015A8    22C00008 A            LI,12    8
     4484   01 015A9    2270732F              LI,7     BA(CVTEXTF)+3
     4485   01 015AA    6AE00773              BAL,14   TXLATE
     4486   01 015AB    326007C7              LW,6     BUFSIZE
     4487   01 015AC    206FFFFF A            AI,6     -1                SIZE I USED
     4488   01 015AD    22C00008 A            LI,12    8
     4489   01 015AE    2270733A              LI,7     BA(CVTEXTF)+14
     4490   01 015AF    6AE00773              BAL,14   TXLATE
     4491   01 015B0    32601615              LW,6     PH4MUL            MULTIPLY RESULT
     4492   01 015B1    22C00008 A            LI,12    8
     4493   01 015B2    22707345              LI,7     BA(CVTEXTF)+25
     4494   01 015B3    6AE00773              BAL,14   TXLATE
     4495   01 015B4    04E01CC1              MTYPE    CVTEXTE
     4496   01 015B5    04E01CCB              MTYPE    CVTEXTF           SHOW MULITPLICATION
     4497   01 015B6    32601616              LW,6     PH4CVA            CVA RESULTS
     4498   01 015B7    22C00008 A            LI,12    8
     4499   01 015B8    2270735F              LI,7     BA(CVTEXTH)+15
     4500   01 015B9    6AE00773              BAL,14   TXLATE
     4501   01 015BA    04E01CD4              MTYPE    CVTEXTH
     4502   01 015BB    0F001654              XPSD,0   HELP
     4503   01 015BC    22000000 A   CVERR3   LI,0     0
     4504   01 015BD    F5000FA2              STB,0    *CPUBUF           SHOW IT AS NEEDING REFRESH
     4505   01 015BE    22101000 A   CVERR4   LI,1     X'1000'           TURNS
     4506   01 015BF    6D101200 A            WD,1     X'1200'           COUNTER 4 BAC
     4507   01 015C0    6D000027 A            ALLOW
     4508   01 015C1    6800155E              B        STARTI4           CONTINUE
     4509                            *
     4510                            *        CALCULATES SUM OF BUFFER DATA BY:
     4511                            *        SUM = (N/2)*(2*A + (N-1)D)
     4512                            *        N   = NUMBER OF TERMS
     4513                            *        A   = FIRST TERM
     4514                            *        D   = DIFFERENCE BETWEEN TERMS
     4515                            *
     4516   01 015C2                 HFCVA    RES      0
     4517   01 015C2    20400001 A            AI,4     1                 GET PAST CONTROL WORD
     4518   01 015C3    35401618              STW,4    CVLOC             AND SAVE I
     4519   01 015C4    B2500004 A            LW,5     *4                GET DATA WORD
     4520   01 015C5    35501619              STW,5    CVDATA            AND SAVE IT
     4521   01 015C6    326007C7              LW,6     BUFSIZE           GET BUFFER SIZE
     4522   01 015C7    206FFFFF A            AI,6     -1                MINUS CONTROL WORD
     4523   01 015C8    35601614              STW,6    CVBUF             AND SAVE IT
     4524   01 015C9    206FFFFF A            AI,6     -1                DECREMENT FOR SUMMING
     4525   01 015CA    32401619              LW,4     CVDATA            GET FIRST TERM
     4526   01 015CB    25400001 A            SLS,4    1                 DOUBLE IT
     4527   01 015CC    30600004 A            AW,6     4                 SUMMTHEM
     4528   01 015CD    32501614              LW,5     CVBUF             GET SIZE AGAIN
     4529   01 015CE    37500006 A            MW,5     6                 MULTIPLE THEM
     4530   01 015CF    2550007F A            SLS,5    -1                AND DIVIDE BY TWO
     4531   01 015D0    3550161C              STW,5    HCALSUM           AND STORE IT
     4532   01 015D1    32401618              LW,4     CVLOC             GET START AGAIN
     4533   01 015D2    22600000 A            LI,6     0
     4534   01 015D3    3560161E              STW,6    HCUSSM
     4535   01 015D4    3560161D              STW,6    HFCVSUM           CLEAR TOTALS OUT
     4536   01 015D5    6AF01603     HFCVA1   BAL,15   CVCALC            GET NEXT BLOCK
     4537   01 015D6    680015DC              B        HFCVA2            OUT OF THE LOOP
     4538   01 015D7    680015DE              B        HFCVA3            OUT OF THE LOOP
     4539   01 015D8    A9600004 A            CVA,6    *4                SUM THEM UP
     4540   01 015D9    6660161D              AWM,6    HFCVSUM           AND ADD TO TOTAL
     4541   01 015DA    20400020 A            AI,4     32                FOR NEXT BLOCK
     4542   01 015DB    680015D5              B        HFCVA1            GET MORE
     4543   01 015DC    A9600004 A   HFCVA2   CVA,6    *4                FINISH UP
     4544   01 015DD    6660161D              AWM,6    HFCVSUM           TOTALS
     4545   01 015DE    3260161D     HFCVA3   LW,6     HFCVSUM           REGET WORD
     4546   01 015DF    3860161C              SW,6     HCALSUM           ACID TEST
     4547   01 015E0    4B6007EF              AND,6    X6F               GET RID OF BYTE ZERO
     4548   01 015E1    68301592              BEZ      STARTM4           GOOD, SO BRANCH
     4549   01 015E2                 HFCVERR  RES      0
     4550   01 015E2    22101000 A            LI,1     X'1000'
     4551   01 015E3    6D101100 A            WD,1     X'1100'           TURN OFF COUNTER 4
     4552   01 015E4    6C000000 A            RD,0     0
     4553   01 015E5    691015BC              BCS,1    CVERR3            B,NO SENSE SWITCHES
     4554   01 015E6    04E01CA6              MTYPE    CVTEXTA           ERROR
     4555   01 015E7    04E01CDA              MTYPE    CVTEXTM           PRINT METHOD
     4556   01 015E8    326007C7              LW,6     BUFSIZE           GET BUFFER SIZE
     4557   01 015E9    206FFFFF A            AI,6     -1                MINUS CONTROL WORD
     4558   01 015EA    22C00008 A            LI,12    8
     4559   01 015EB    22707384              LI,7     BA(CVTEXTN)+4
     4560   01 015EC    6AE00773              BAL,14   TXLATE
     4561   01 015ED    32601619              LW,6     CVDATA            DATA USED
     4562   01 015EE    22C00008 A            LI,12    8
     4563   01 015EF    22707393              LI,7     BA(CVTEXTN)+19
     4564   01 015F0    6AE00773              BAL,14   TXLATE
     4565   01 015F1    326007C7              LW,6     BUFSIZE           BUFFER AGAIN
     4566   01 015F2    206FFFFE A            AI,6     -2
     4567   01 015F3    22C00008 A            LI,12    8
     4568   01 015F4    2270739C              LI,7     BA(CVTEXTN)+28
     4569   01 015F5    6AE00773              BAL,14   TXLATE
     4570   01 015F6    04E01CE0              MTYPE    CVTEXTN           FORMULA PRINTED
     4571   01 015F7    3260161C              LW,6     HCALSUM           CALCULATED RESULT
     4572   01 015F8    22C00008 A            LI,12    8
     4573   01 015F9    227073BC              LI,7     BA(CVTEXTO)+20
     4574   01 015FA    6AE00773              BAL,14   TXLATE
     4575   01 015FB    04E01CEA              MTYPE    CVTEXTO           PRINT RESULT
     4576   01 015FC    3260161D              LW,6     HFCVSUM           CVA SUM
     4577   01 015FD    22C00008 A            LI,12    8
     4578   01 015FE    2270735F              LI,7     BA(CVTEXTH)+15
     4579   01 015FF    6AE00773              BAL,14   TXLATE
     4580   01 01600    04E01CD4              MTYPE    CVTEXTH           CVA RESULTS
     4581   01 01601    0F001654              XPSD,0   HELP
     4582   01 01602    680015BC              B        CVERR3            GO START OVER
     4583                            *
     4584   01 01603                 CVCALC   RES      0
     4585   01 01603    227FFFFF A            LI,7     -1                DEFAULT TO 32 BITS
     4586   01 01604    32301614              LW,3     CVBUF             GET SIZE REMAINING
     4587   01 01605    68301612              BEZ      CVCALC2           B,NOTHING LEFT
     4588   01 01606    21300020 A            CI,3     32                LESS THAN 32 WORDS ?
     4589   01 01607    6810160E              BGE      CVCALC1           B,NOPE
     4590   01 01608    483007E4              EOR,3    X7F               COMPLEMENT
     4591   01 01609    20300001 A            AI,3     1                 TWO'S COMPLEMENT
     4592   01 0160A    25760000 A            SLS,7    0,3               DO IT
     4593   01 0160B    20700001 A            AI,7     1                 ONES COMPLEMENT
     4594   01 0160C    3A700007 A            LCW,7    7                 COMPLEMENT WORD
     4595   01 0160D    E800000F A            B        *15               RETURN
     4596   01 0160E    203FFFE0 A   CVCALC1  AI,3     -32               DECREMENT BUFFER COUNT
     4597   01 0160F    35301614              STW,3    CVBUF             AND SAVE IT
     4598   01 01610    3320000F A            MTW,2    15                GET CORRECT BRANCH
     4599   01 01611    E800000F A            B        *15               AND RETURN
     4600   01 01612    3310000F A   CVCALC2  MTW,1    15
     4601   01 01613    E800000F A            B        *15               RETURN
     4602   01 01614    00000000 A   CVBUF    DATA     0
     4603   01 01615    00000000 A   PH4MUL   DATA     0
     4604   01 01616    00000000 A   PH4CVA   DATA     0
     4605   01 01617    00000000 A   PH4CVS   DATA     0
     4606   01 01618    00000000 A   CVLOC    DATA     0
     4607   01 01619    00000000 A   CVDATA   DATA     0
     4608   01 0161A    00000000 A   CVSASUM  DATA     0
     4609   01 0161B    00000000 A   CVSMSUM  DATA     0
     4610   01 0161C    00000000 A   HCALSUM  DATA     0
     4611   01 0161D    00000000 A   HFCVSUM  DATA     0
     4612   01 0161E    00000000 A   HCUSSM   DATA     0
     4613   01 0161F    330007B1     TABLESET MTW,0    COUNT4            IS THE CLOCK STI4LL RUNNING?
     4614   01 01620    68101624              BGE      TABSETA           B,OK
     4615   01 01621    22100040 A            LI,1     X'40'
     4616   01 01622    6D101200 A            WD,1     X'1200'           ARM AND ENABLE
     4617   01 01623    6D101700 A            WD,1     X'1700'           TRIGGER COUNTER 4 EQU ZERO
     4618   01 01624    6D000037 A   TABSETA  INHIB                      STOP INTERRUPTS FOR FIRST PASS OF START
     4619   01 01625    330007B7              MTW,0    SELECTFL          ARE WE RUNNING A SELECTED SET?
     4620   01 01626    69301634              BNEZ     TABSETD           B,YES
     4621   01 01627    224FFFE0 A            LI,4     -32
     4622   01 01628    22000000 A            LI,0     0
     4623   01 01629    22500000 A            LI,5     0
     4624   01 0162A    22300003 A            LI,3     3
     4625   01 0162B    22100001 A            LI,1     1
     4626   01 0162C    33080F62     TABSETB  MTW,0    IOPTABLB+32,4     IS THERE ONE?
     4627   01 0162D    68301632              BEZ      TABSETC           B,NO
     4628   01 0162E    32280F82              LW,2     IOPTABLC+32,4     GET TABLE ENTRY
     4629   01 0162F    55000002 A            STH,0    2                 CLEAR OPERATION
     4630   01 01630    75560002 A            STB,5    2,3               SET UP DATA FIELD
     4631   01 01631    35280F82              STW,2    IOPTABLC+32,4     PUT IT BACK
     4632   01 01632    20500001 A   TABSETC  AI,5     1                 BUMP DATA COUNTER
     4633   01 01633    6540162C              BIR,4    TABSETB           LOOP
     4634   01 01634    227FFFE0 A   TABSETD  LI,7     -32               INDEXER
     4635   01 01635    320007FE              LW,0     X7FS
     4636   01 01636    350E1024              STW,0    IOPTABLG+32,7     CLEAR STARTUP TABLE
     4637   01 01637    65701636              BIR,7    %-1               LOP
     4638   01 01638    224FFFE0 A            LI,4     -32               COUNT
     4639   01 01639    35080FA2              STW,0    IOPTABLD+32,4     CLEAR TIMEOUT TABLE
     4640   01 0163A    65401639              BIR,4    %-1               LOOP
     4641   01 0163B    6AF0147E              BAL,15   OFFLINE           SET EM OFF LINE AGAIN
     4642   01 0163C    6AF01493              BAL,15   CLEARMEM          CLEAR TEST MEMORY
     4643   01 0163D    320007B3              GETTIME  0                 GET PRESENT TIME
            01 0163E    300007B2
            01 0163F    380007B1
     4644   01 01640    32100000 A            LW,1     0
     4645   01 01641    301007C5              AW,1     DEFER             ADD DEFER STARTUP TIME
     4646   01 01642    227FFFE0 A            LI,7     -32
     4647   01 01643    226FFFE1 A            LI,6     -31
     4648   01 01644    330E0F62     TABSETE  MTW,0    IOPTABLB+32,7     THIS ONE TO START?
     4649   01 01645    68301647              BEZ      %+2               B,NO
     4650   01 01646    350E1024              STW,0    IOPTABLG+32,7     STORE STARTUP TIME
     4651   01 01647    330C0F62              MTW,0    IOPTABLB+32,6     THIS ONE TO START UP?
     4652   01 01648    6830164A              BEZ      %+2
     4653   01 01649    351C1024              STW,1    IOPTABLG+32,6     SET STARTUP TIME
     4654   01 0164A    20600002 A            AI,6     2
     4655   01 0164B    20700001 A            AI,7     1
     4656   01 0164C    65701644              BIR,7    TABSETE           LOOP
     4657   01 0164D    320007B3              GETTIME  0                 GET PRESENT TIME
            01 0164E    300007B2
            01 0164F    380007B1
     4658   01 01650    300007BC              AW,0     PHASTIME          ADD TIME INCREMENT
     4659   01 01651    350007B9              STW,0    PHCNT             PHACE TIME
     4660   01 01652    E800000C A            B        *12               RETURN
     4661                            *
     4662                            *
     4663   01 01656    00001658 N   HELP     PSD      0,%+2,7,0
                        07000000
     4664   01 01658    6C000000 A            RD,0     0                 READ SENSE SWITCHES
     4665   01 01659    6820165B              BCR,2    %+2               THREE IS RESET, HELP IT OUT
     4666   01 0165A    0E001654              LPSD,0   HELP              GET OUT
     4667   01 0165B    0F0005E0              XPSD,0   PUSHS
     4668   01 0165C    02001654              NOP      HELP
     4669   01 0165D    224FFF7F A   REHELP   LI,4     RPLYS             INPUT BUFFER SIZE
     4670   01 0165E    75400868              STB,4    RPLY              INTO BUFFER
     4671   01 0165F    04E019C3              MTYPE    HELPMSG           SEND A PROMPT
     4672   01 01660    04F00868              MINKEY   RPLY              AND WAIT FOR INPUT
     4673   01 01661    6A70081A              BAL,7    MYINPUT           DO THE REQUEST
     4674   01 01662    68001666              B        HELPOUT           GET OUT
     4675   01 01663    6800165D              B        REHELP            TRY AGAIN
     4676   01 01664    0F000864              XPSD,0   GODW              NOW DO IT
     4677   01 01665    6800165D              B        REHELP            GO FOR ONE MORE
     4678   01 01666    0F0005F6     HELPOUT  XPSD,0     PULLS
     4679                            *
     4680                            *
     4681   01 0166A    0000168C N   TIMEOUT  PSD      0,TIMEOUTA,7,0
                        07000000
     4682                            *
     4683   01 0166C                 STOPIOP  RES      0
     4684   01 0166C    35F00BAC              STW,15   BALRTN            SAVE COME FROM
     4685   01 0166D    22100020 A            LI,1     X'20'             BIT FOR 5C INT
     4686   01 0166E    6D101100 A            WD,1     X'1100'           INHIBIT
     4687   01 0166F    22103F00 A            LI,1     X'3F00'           IOP ADDR + IOP ADDR
     4688   01 01670    4F020000 A            HIO,0    0,1               STOP 'EM TWICE
     4689   01 01671    64101670              BDR,1    %-1               GO TILL DONE
     4690   01 01672    221FFFFC A            LI,1     -4                TO LOOK AT HFS
     4691   01 01673    33020F42     STOPIOP1 MTW,0    HFTABLA+4,1       THIS IS THE ONE
     4692   01 01674    68301686              BEZ      STOPIOP2          B,NO ONE HOME
     4693   01 01675    32520B8F              LW,5     HADDR+4,1         GET HIS ADDRESS
     4694   01 01676    35500BB8              STW,5    HFADDR            SAVE HF'S ADDRESS
     4695   01 01677    ED0A0BA4     STOPIOP3 WD,0     *HSYSRST,5        ONE EACH PROCESSOR RESET
     4696   01 01678    22200000 A            LI,2     0                 GRAB A ZERO
     4697   01 01679    32300E52              LW,3     HCRES             RESERVE CONTROL PANEL
     4698   01 0167A    6AF00E8C              BAL,15   HFWD              GO DO IT
     4699   01 0167B    22600000 A            LI,6     0                 INDEX TO HE ERRORS
     4700   01 0167C    6AD00EB2              BAL,13   HFERS             GO PUBLISH ERRORS
     4701   01 0167D    32300E65              LW,3     HCRUN             RUN SWITCH
     4702   01 0167E    6AF00E8C              BAL,15   HFWD              GO DO IT
     4703   01 0167F    22600009 A            LI,6     9                 INDEX TO HF ERRORS
     4704   01 01680    6AD00EB2              BAL,13   HFERS             TELL SOMEONE
     4705   01 01681    32300BA1              LW,3     STRT              THIS SHUD DO IT
     4706   01 01682    32200BA7              LW,2     HHIO              GET THE HF IN AN IDLE LOOP
     4707   01 01683    6AF00E8C              BAL,15   HFWD              GODO IT
     4708   01 01684    2260000A A            LI,6     10                INDEX TO HF ERRORS
     4709   01 01685    6AD00EB2              BAL,13   HFERS
     4710   01 01686    65101673     STOPIOP2 BIR,1    STOPIOP1          GET THE REST
     4711   01 01687    22103C70 A            LI,1     X'3C70'           START UP THE WORLD
     4712   01 01688    6D101200 A            WD,1     X'1200'           START IT UP
     4713   01 01689    221003C0 A            LI,1     X'03C0'           TURN ON THE HF'S TOO
     4714   01 0168A    6D101202 A            WD,1     X'1202'           GOT THEM
     4715   01 0168B    E8000BAC              B        *BALRTN           GO BACK
1 C00   20:35 JUN 20,'83    TIMEOUT HANDLER                                                       PAGE   17
A    4717   01 0168C    0F0005E0     TIMEOUTA XPSD,0   PUSHS             GO SAVE IT
     4718   01 0168D    02001668              NOP      TIMEOUT           WHERE FROM
     4719   01 0168E    357016D0              STW,7    TIMESAVE          SAVE REG 7
     4720   01 0168F    2170001C A            CI,7     X'1C'             SEE IF HF
     4721   01 01690    681016BE              BGE      TIMEOUTH          SO HANDLE IT
     4722   01 01691    6C000000 A            RD,0     0                 READ SSW
     4723   01 01692    691016A2              BCS,1    TIMEOUTB          SWITCH 4 SET
     4724   01 01693    330E0F62              MTW,0    IOPTABLC,7        IS IT STILL OFF LINE?
     4725   01 01694    69101697              BLZ      %+3               B,YES
     4726   01 01695    21700001 A            CI,7     1                 IS IT ON IOP ZERO?
     4727   01 01696    691016BB              BL       TIMEOUTF          YES,RESTART IT
     4728   01 01697    6AF00D78              BAL,15   GETSTAT           GET IOP STATUS
     4729   01 01698    326016D0              LW,6     TIMESAVE          GET IOP NUMBER
     4730   01 01699    75600006 A            STB,6    6                 INTO UPER BYTE
     4731   01 0169A    227068B0              LI,7     BA(TIMOUTM+1)     TO ADDRESS
     4732   01 0169B    22C00002 A            LI,12    2                 2 DIGITS
     4733   01 0169C    6AE00773              BAL,14   TXLATE            PUT IT INTO MESSAGE
     4734   01 0169D    6AE00729              BAL,14   CURTIME           SET UP TIME MESSAGE
     4735   01 0169E    04E01A2B              MTYPE    TIMOUTM           DITTO
     4736   01 0169F    04E01A3C              MTYPE    STATMES
     4737   01 016A0    04E01A44              MTYPE    COMPD             PRINT IOP DATA
     4738   01 016A1    04E01A4E              MTYPE    TIMOUTD           PRINT MS DATA
     4739   01 016A2    327016D0     TIMEOUTB LW,7     TIMESAVE          GET ADDRESS
     4740   01 016A3    25700004 A            SLS,7    4                 POSITION FOR WRITE AND READ DIRECT
     4741   01 016A4    6C8E2008 A            RD,8     X'2008',7         GET PHASE OF IOP
     4742   01 016A5    33000008 A            MTW,0    8                 IS IT IN PHASE INITIATE?
     4743   01 016A6    681016AA              BGEZ     TIMEOUTC          B,NO
     4744   01 016A7    6C000000 A   TIMEOUTZ RD,0     0                 READ SSW
     4745   01 016A8    691016B2              BCS,1    TIMEOUTE          SWITCH 4 ON BYPASS HELP
     4746   01 016A9    680016B1              B        TIMEOUTD          GET HELP
     4747   01 016AA    328007EB     TIMEOUTC LW,8     X40000            GET CHANNEL RESET BIT
     4748   01 016AB    6D8E2008 A            WD,8     X'2008',7         RESET THE CHANNEL
     4749   01 016AC    32800802              LW,8     HC                GET READY
     4750   01 016AD    6D8E200F A            WD,8     X'200F',7         PUT IT BACK OFF LINE
     4751   01 016AE    6C000000 A            RD,0     0                 READ SSW
     4752   01 016AF    691016B2              BCS,1    TIMEOUTE          SWITCH 4 ON BYPASS HELP
     4753   01 016B0    04E01A30              MTYPE    CHANRSET          TELL THE CHANNEL WAS RESET
     4754   01 016B1    0F001654     TIMEOUTD XPSD,0   HELP
     4755   01 016B2    320007BA     TIMEOUTE LW,0     PHASE             WHAT PHASE IS IT
     4756   01 016B3    21000002 A            CI,0     2                 TWO?
     4757   01 016B4    681016BB              BGE      TIMEOUTF          NO ITS LESS THAT TWO
     4758   01 016B5    22000000 A            LI,0     0
     4759   01 016B6    350007B8              STW,0    TRACK             CLEAR TRACK FLAG
     4760   01 016B7    327016D0              LW,7     TIMESAVE          GET INDEX
     4761   01 016B8    320007FE              LW,0     X7FS
     4762   01 016B9    350E0F82              STW,0    IOPTABLD,7        STOP ANY FURTHER TIMEOUTS ON THIS GUY
     4763   01 016BA    680016BD              B        TIMEOUTG          NOW EXIT
     4764   01 016BB    327016D0     TIMEOUTF LW,7     TIMESAVE          GET THE INDEX
     4765   01 016BC    0F0016D2              XPSD,0   STARTIOP          RESTART IT
     4766   01 016BD    0F0005F6     TIMEOUTG XPSD,0   PULLS             GET OUT
     4767   01 016BE                 TIMEOUTH RES      0
     4768   01 016BE    3570078C              STW,7    TEMP              SAVE
     4769   01 016BF    207FFFE4 A            AI,7     -X'1C'            MAKE INDEX RELATIVE TO HF
     4770   01 016C0    25700002 A            SLS,7    2                 TO GET ADDRESSES
     4771   01 016C1    326E0B6B              LW,6     HADRIX2,7         GET THE ADDRESS
     4772   01 016C2    35600BB8              STW,6    HFADDR            FOR R/W DIRECTS
     4773   01 016C3    326E0B7B              LW,6     HADRIX1,7         GET PRINTABLE ADDRESS
     4774   01 016C4    25600018 A            SLS,6    24                MOVE TO THE OTHER END
     4775   01 016C5    22C00002 A            LI,12    2                 TWO CHARS TO XLATE
     4776   01 016C6    22707046              LI,7     BA(HFTOUT)+6      GET WHERE TO PUT IT
     4777   01 016C7    6AE00773              BAL,14   TXLATE            DO IT
     4778   01 016C8    04E01C10              MTYPE    HFTOUT            TELL THE BAD NEWS
     4779   01 016C9    221016A7              LI,1     TIMEOUTZ          GET THE GO TO
     4780   01 016CA    35100BAE              STW,1    BALRTNT           SAVE THE COMEFROM
     4781   01 016CB    221FFFFF A            LI,1     -1                NEED TO FAKE OUT A LOOP
     4782   01 016CC    32500BB8              LW,5     HFADDR            REGET THE ADDRESS
     4783   01 016CD    3270078C              LW,7     TEMP
     4784   01 016CE    680002B1              B        HIOPOLL3          GO RESET THE HF
     4785   01 016CF    680016CF              B        %                 SHOULD NOT BE HERE
     4786   01 016D0                 TIMESAVE RES      1                 REG SAVE
     4787                            *
     4788                            *
     4789   01 016D4    000016D6 N   STARTIOP PSD      0,STARTIO,7,REABIT
                        07800000
     4790                            *
1 C00   20:35 JUN 20,'83    START I/O                                                             PAGE   18
A    4792   01 016D6    0F0005E0     STARTIO  XPSD,0   PUSHS             GO SAVE IT
     4793   01 016D7    020016D2              NOP      STARTIOP          WHERE FROM
     4794   01 016D8    221003C0 A            LI,1     X'03C0'         INT LEVELS 66 + 67
     4795   01 016D9    6D101202 A            WD,1     X'1202'           THIS DOES IT
     4796   01 016DA    22000000 A            LI,0     0
     4797   01 016DB    22100001 A            LI,1     1
     4798   01 016DC    22200002 A            LI,2     2
     4799   01 016DD    22300003 A            LI,3     3
     4800   01 016DE    328E0F42              LW,8     IOPTABLB,7        GET ADDRESSES
     4801   01 016DF    6910178E              BLZ      STRTHFIO          MUST BE AN HF
     4802   01 016E0    329E0F62              LW,9     IOPTABLC,7        GET FONCTION WORD
     4803   01 016E1    691016F2              BLZ      SIOPB             GO ITS READY
     4804   01 016E2    52500008 A            LH,5     8                 GET IOP ADDRESS
     4805   01 016E3    32A00802              LW,10    HC                OFF LINE DATA
     4806   01 016E4    2550007C A            SLS,5    -4                POSITION FOR WD
     4807   01 016E5    6DAA200F A            WD,10    X'200F',5         SET IT OFF LINE
     4808   01 016E6    309007FF              AW,9     H8                FLAG WORD
     4809   01 016E7    330007B7              MTW,0    SELECTFL          ARE WE RUNNING A SELECTED SET?
     4810   01 016E8    693016EF              BNEZ     SIOPA             B,YES
     4811   01 016E9    330007B4              MTW,0    HOLDFLAG          HOLD MODE?
     4812   01 016EA    693016EF              BNEZ     SIOPA             B,YES
     4813   01 016EB    75760009 A            STB,7    9,3               DATA INTO WORD
     4814   01 016EC    72420008 A            LB,4     8,1               GET FIRST DEVICE ADDRESS
     4815   01 016ED    75440009 A            STB,4    9,2               AND PUT IT INTO DATA WORD
     4816   01 016EE    75020009 A            STB,0    9,1               START WITH FUNCTION ZERO
     4817   01 016EF    359E0F62     SIOPA    STW,9    IOPTABLC,7        STORE IT INTO TABLE
     4818   01 016F0    22507530 A            LI,5     30000             RELAY
     4819   01 016F1    645016F1              BDR,5    %                 DELAY
     4820   01 016F2    72540009 A   SIOPB    LB,5     9,2               CURRENT DEVICE ADDRESS
     4821   01 016F3    35501747              STW,5    DEVADDR           THAT IS THE DEVICE ADDRESS
     4822   01 016F4    75741747              STB,7    DEVADDR,2         AND THE IOP ADDRESS
     4823   01 016F5    72660009 A            LB,6     9,3               GET DATA BYTE
     4824   01 016F6    32400006 A            LW,4     6                 CHECK PARITY
     4825   01 016F7    25400020 A            SLS,4    32                ODD OR EVEN?
     4826   01 016F8    698016FA              BCS,8    %+2               B,ODD
     4827   01 016F9    75240006 A            STB,2    6,2               DA PARITY
     4828   01 016FA    32400005 A            LW,4     5                 DEVICE ADDRESS
     4829   01 016FB    25400020 A            SLS,4    32                ODD OR EVEN?
     4830   01 016FC    698016FE              BCS,8    %+2               B,ODD
     4831   01 016FD    75140005 A            STB,1    5,2               PUT IN AP BIT
     4832   01 016FE    55500006 A            STH,5    6                 MAKE WD WORD
     4833   01 016FF    72420009 A            LB,4     9,1               GET OPERATION
     4834   01 01700    21400002 A            CI,4     2                 SECOND HALF?
     4835   01 01701    68401704              BAZ      %+3               B,NO
     4836   01 01702    20600400 A            AI,6     X'400'            DX4
     4837   01 01703    49601748              OR,6     DAPDATA           IN 4 BYTE,DATA ALWAYS EVEN
     4838   01 01704    20600100 A            AI,6     X'100'            PARITY CHECK BIT
     4839   01 01705    496007B5              OR,6     BMDATA            OR IN BURST MODE
     4840   01 01706    356E1024              STW,6    IOPTABLH,7        SAVE DATA
     4841   01 01707    25700004 A            SLS,7    4                 POSITION
     4842   01 01708    6D6E200D A            WD,6     X'200D',7         MS SETUP
     4843   01 01709    330007B6              MTW,0    CMDATA            DOES HE WANT IT /
     4844   01 0170A    6830170D              BEZ      SIOPBA            NOPE
     4845   01 0170B    326007B6              LW,6     CMDATA            OH YES HE DOES
     4846   01 0170C    6D6E2000 A            WD,6     X'2000',7         DO IT
     4847   01 0170D    CF001747     SIOPBA   HIO,0    *DEVADDR          STOP IT
     4848   01 0170E    2570007C A            SLS,7    -4                RE-POSITION INDEX
     4849   01 0170F    22000A23              LI,0     DA(WRITE)         ASSUME WRITE
     4850   01 01710    21400001 A            CI,4     1                 ODD OR EVEN?
     4851   01 01711    68401713              BAZ      %+2               ITS A WRITE
     4852   01 01712    22000A22              LI,0     DA(READ)
     4853   01 01713    312007BA              CW,2     PHASE             PHASE THREE?
     4854   01 01714    6810172D              BGE      SIOPF             B,NOPE
     4855   01 01715    325007C9              LW,5     ADMASK            ADDRESS MASK
     4856   01 01716    22400000 A            LI,4     0
     4857   01 01717    4A4E0FA3              LS,4     IOPTABLE,7        GETR BUFFER ADDRESS
     4858   01 01718    6930171C              BNEZ     SIOPB1            WE HAVE ONE
     4859   01 01719    324007CE              LW,4     MSIZE
     4860   01 0171A    6AF017DE              BAL,15   GETBUF            GET A BUFFER
     4861   01 0171B    474E0FA3              STS,4    IOPTABLE,7        AND PUT IT INTO THE TABLE
     4862   01 0171C    35400006 A   SIOPB1   STW,4    6                 SAVE IT FOR READ TRACK
     4863   01 0171D    25400002 A            SLS,4    2                 BYTE ADDRESS IT
     4864   01 0171E    325007C7              LW,5     BUFSIZE           GET BUFFER SIZE
     4865   01 0171F    25500002 A            SLS,5    2                 BYTE COUNT IT
     4866   01 01720    305007FC              AW,5     H46               ADD FLAGS
     4867   01 01721    21000A22              CI,0     DA(READ)          ARE WE GETTING READY TO READ?
     4868   01 01722    69301728              BNE      SIOPD             B,NO
     4869   01 01723    75200004 A            STB,2    4                 PUT IN READ ORDER
     4870   01 01724    20400004 A            AI,4     4
     4871   01 01725    205FFFFC A            AI,5     -4                BYPASS THE TRACK WORD
     4872   01 01726    B5900006 A            STW,9    *6                STORE FUCTION INTO FIRST WORD
     4873   01 01727    68001729              B        %+2
     4874   01 01728    75100004 A   SIOPD    STB,1    4                 PUT IN WRITE ORDER
     4875   01 01729    154E0FC4              STD,4    IOPTABLF,7        PUT CDW INTO TABLE
     4876   01 0172A    220007E2     SIOPE    LI,0     DA(IOPTABLF)      CREATE DA
     4877   01 0172B    30000007 A            AW,0     7
     4878   01 0172C    68001730              B        SIOPG             AND GO
     4879   01 0172D    32100000 A   SIOPF    LW,1     0
     4880   01 0172E    12420000 A            LD,4     0,1               GET CDWE
     4881   01 0172F    154E0FC4              STD,4    IOPTABLF,7        PUT IT INTO THE TABLE
     4882   01 01730    CC001747     SIOPG    SIO,0    *DEVADDR          START IT UP
     4883   01 01731    68C0173B              BCR,12   SIOPH             B,ACCEPTED
     4884   01 01732    32601747              LW,6     DEVADDR           GET THE ADDRESS
     4885   01 01733    55600006 A            STH,6    6                 INTO UPPER HALF
     4886   01 01734    22C00004 A            LI,12    4                 COUNT
     4887   01 01735    227068E0              LI,7     BA(BADSIO+1)      TOO ADDRESS
     4888   01 01736    6AE00773              BAL,14   TXLATE            SPREAD IT
     4889   01 01737    04E01A37              MTYPE    BADSIO            TELL IT
     4890   01 01738    72741747              LB,7     DEVADDR,2         RE-GET THE IOP INDEX
     4891   01 01739    330E0F62              MTW,0    IOPTABLC,7        WAS IT TAKEN OFF LINE BUY A WDT?
     4892   01 0173A    692016D7              BGZ      STARTIO+1         B,IT LOOKS LIKE IT FROM HERE
     4893   01 0173B    320007B3     SIOPH    GETTIME  0                 WHAT TIME IS IT
            01 0173C    300007B2
            01 0173D    380007B1
     4894   01 0173E    330007C4              MTW,0    SELECTDLY         SELECTED SIO TIMEOUT?
     4895   01 0173F    68301742              BEZ      %+3               B,NO
     4896   01 01740    300007C4              AW,0     SELECTDLY         ADD NEW TIME
     4897   01 01741    68001743              B        %+2               AND GO
     4898   01 01742    300007BB              AW,0     PHASEDLY          ADD THE PHASE DELAY FOR TIMEOUT
     4899   01 01743    350E0F82              STW,0    IOPTABLD,7        AND STORE IN TIMEOUT TABLE
     4900   01 01744    320007FE              LW,0     X7FS
     4901   01 01745    350E1004              STW,0    IOPTABLG,7        RESET STARTUP TABLE ENTRY
     4902   01 01746    0F0005F6              XPSD,0   PULLS             RETURN
     4903   01 01747                 DEVADDR  RES      1                 DEVICE ADDRESS TO START
     4904   01 01748    00000200 A   DAPDATA  DATA     X'00000200'       DATA PARITY BUT
     4905                            *
     4906                            *        THIS WILL START UP ALL THE HF AFTER BOOT TIME
     4907                            *        BY PASSING THE HF'S ID TO HIM.
     4908                            *
     4909   01 01749                 STRTHF   RES      0
     4910   01 01749    35F00BAC              STW,15   BALRTN            SAVE COME FROM
     4911   01 0174A    22400000 A            LI,4     0                 FIRST SYSTEM ID
     4912   01 0174B    221FFFFC A            LI,1     -4                INDEX FOR HF SYSTEMS
     4913   01 0174C    33020F42              MTW,0    HFTABLA+4,1       ANYONE THERE ?
     4914   01 0174D    68301781              BEZ      STRTHF2           B,NO
     4915   01 0174E    32620F42              LW,6     HFTABLA+4,1       YES,GET THE ENTRY
     4916   01 0174F    4B6007E2              AND,6    XF                JUST THE PROCESSOR BITS
     4917   01 01750    49400006 A            OR,4     6                 MERGE SYSTEM AND PROCESSOR
     4918   01 01751    35400E8A              STW,4    HFTEMP            SAVE FOR A WHILE
     4919   01 01752    32280B6A              LW,2     HADRIX2-1,4       FETCH HF ID FOR WD
     4920   01 01753    35200BB8              STW,2    HFADDR            AND PASS IT TO WD
     4921   01 01754                 STRTHF1  RES      0
     4922   01 01754    6D04F000 A            WD,0     X'F000',2         SYSTEM RESET (RIO)
     4923   01 01755    6AF0178B              BAL,15   HDLAY
     4924   01 01756    32220B7F              LW,2     HADRIX1+4,1       GET ID OF HF
     4925   01 01757    35200E8B              STW,2    HFTEMP1           AND SAVE IT
     4926   01 01758    22200000 A            LI,2     0                 CLEAR DATA REG FOR WD
     4927   01 01759    32300E52              LW,3     HCRES             RESERVE THE CONTROL PANEL
     4928   01 0175A    6AF00E8C              BAL,15   HFWD              GO DO IT
     4929   01 0175B    02000000 A            NOP
     4930   01 0175C    6800177E              B        STRTHF3           ERROR RETURN
     4931   01 0175D    22200000 A            LI,2     0                 GRAB A ZERO
     4932   01 0175E    32300E5A              LW,3     HCPS              READ THE STATE OF THE PANEL
     4933   01 0175F    6AF00EA0              BAL,15   HFRD              GO READ IT
     4934   01 01760    02000000 A            NOP
     4935   01 01761    6800177E              B        STRTHF3           ERROR RETURN
     4936   01 01762    4B200E50              AND,2    PANLOK            JUST INTERESTED IN RUN OR FAULT
     4937   01 01763    6830177E              BEZ      STRTHF3           NO,GET NEXT PROCESSOR
     4938   01 01764    32300E65              LW,3     HCRUN             PUT IT INTO RUN
     4939   01 01765    22200000 A            LI,2     0                 GRAB A ZERO
     4940   01 01766    6AF00E8C              BAL,15   HFWD              DO IT
     4941   01 01767    02000000 A            NOP
     4942   01 01768    6800177E              B        STRTHF3           ERROR RETURN
     4943   01 01769    32200BA9              LW,2     HSMEM             NOW TO SEND SIG MEM SIZE
     4944   01 0176A    492007CE              OR,2     MSIZE             SO BE SURE TO INCLUDE IT
     4945   01 0176B    32300BA1              LW,3     STRT              SEND THE START
     4946   01 0176C    6AF00E8C              BAL,15   HFWD              GO DO IT TO IT
     4947   01 0176D    02000000 A            NOP
     4948   01 0176E    6800177E              B        STRTHF3           HAD TO ABORT
     4949   01 0176F    6AF0178B              BAL,15   HDLAY             WHISTLE
     4950   01 01770    2220078C              LI,2     TEMP              LOCATION OF TEMP
     4951   01 01771    49200BA3              OR,2     HTLOC             MERGE IN START DATA
     4952   01 01772    32300BA1              LW,3     STRT              START COMMAND FOR WD
     4953   01 01773    6AF00E8C              BAL,15   HFWD              GO DO IT TO IT
     4954   01 01774    02000000 A            NOP
     4955   01 01775    6800177E              B        STRTHF3           ERROR RETURN
     4956   01 01776    6AF0178B              BAL,15   HDLAY             WAIT
     4957   01 01777    32200E8B              LW,2     HFTEMP1           GET HF ID ( 1 BYTE )
     4958   01 01778    49200BA2              OR,2     HID               START FUNCTION WITH ID
     4959   01 01779    32300BA1              LW,3     STRT              START COMMAND
     4960   01 0177A    6AF00E8C              BAL,15   HFWD              GO DO IT
     4961   01 0177B    02000000 A            NOP
     4962   01 0177C    6800177E              B        STRTHF3           ERROR RETURN
     4963   01 0177D    6AF0178B              BAL,15   HDLAY             WAIT
     4964   01 0177E                 STRTHF3  RES      0
     4965   01 0177E    32400E8A              LW,4     HFTEMP            REGET THE INDEX
     4966   01 0177F    204FFFFF A            AI,4     -1                DROP COUNT FOR NEXT PROCESSOR
     4967   01 01780    64601754              BDR,6    STRTHF1           GET THE REST OF THE PROCESSORS
     4968   01 01781                 STRTHF2  RES      0
     4969   01 01781    20400005 A            AI,4     5                 INCREMENT TO NEXT SYSTEM
     4970   01 01782    6510174C              BIR,1    STRTHF+3          DO IT AGAIN
     4971   01 01783    E8000BAC              B        *BALRTN           RETURN
     4972   01 01784                 STRTHF4  RES      0
     4973   01 01784    32600E8B              LW,6     HFTEMP1           GET THE ADDRESS
     4974   01 01785    25600018 A            SLS,6    24                JUSTIFY TO LEFT
     4975   01 01786    22C00002 A            LI,12    2                 TEO CHARS TO XLATE
     4976   01 01787    22706EC9              LI,7     BA(HFER5)+21      PUT IT HERE
     4977   01 01788    6AE00773              BAL,14   TXLATE            GO DO IT
     4978   01 01789    04E01BAD              MTYPE    HFER5             TELL THE BAD NEWS
     4979   01 0178A    6800177E              B        STRTHF3           TRY THE NEXT ONE
     4980                            *
     4981   01 0178B                 HDLAY    RES      0
     4982   01 0178B    22301000 A            LI,3     X'1000'           WAIT TIME
     4983   01 0178C    6430178C              BDR,3    %
     4984   01 0178D    E800000F A            B        *15               RETURN
     4985                            *
     4986   01 0178E                 STRTHFIO RES      0
     4987   01 0178E    2250001C A            LI,5     28                MAKE INDEX RELATIVE TO HF
     4988   01 0178F    32600007 A            LW,6     7                 MAKE-A-COPY
     4989   01 01790    38600005 A            SW,6     5                 TABLES LIKE THIS
     4990   01 01791    25600002 A            SLS,6     2                JUSTIFY TO USE
     4991   01 01792    325C0B6B              LW,5     HADRIX2,6         THIS IS HF'S ADDRESS
     4992   01 01793    35500BB8              STW,5    HFADDR            FOR DIO USE
     4993   01 01794    325C0B7B              LW,5     HADRIX1,6         GET PRINTING ADDRESS
     4994   01 01795    35500BB9              STW,5    HFADDR1           AND STORE
     4995   01 01796    329E0F62              LW,9     IOPTABLC,7        GET FUNCTION WORD
     4996   01 01797    691017A3              BLZ      STRT1A            ALREADY SET UP
     4997   01 01798    330007B7              MTW,0    SELECTFL          RUNNING SELECT MODE ?
     4998   01 01799    6830179C              BEZ      %+3               B,NO
     4999   01 0179A    309007FF              AW,9     H8                SHOW IT OFF LINE
     5000   01 0179B    680017A2              B        STRT1A-1          GO DO SOMETHING
     5001   01 0179C    309007FF              AW,9     H8                FLAG THE WORD AS SET
     5002   01 0179D    75020009 A            STB,0    9,1               SET THE INITIAL COMMAND
     5003   01 0179E    325C0B7B              LW,5     HADRIX1,6         GET HF ID
     5004   01 0179F    75540009 A            STB,5    9,2               AND STORE IT
     5005   01 017A0    22500032 A            LI,5     X'32'             FLAGS HF DATA WORD
     5006   01 017A1    75560009 A            STB,5    9,3               PUT INTO FUNCTION WORD
     5007   01 017A2    359E0F62              STW,9    IOPTABLC,7        WHICH IS NOW COMPLETE
     5008   01 017A3    72420009 A   STRT1A   LB,4     9,1               GET CURRENT OPERATION
     5009   01 017A4    22000A23              LI,0     DA(WRITE)         ASSUME I-A-GONNA WRITE
     5010   01 017A5    21400001 A            CI,4     1                 WRONG !
     5011   01 017A6    684017A8              BAZ      %+2               IF I BRANCH THAT IS
     5012   01 017A7    22000A22              LI,0     DA(READ)          MUST BE A READ !
     5013   01 017A8    312007BA              CW,2     PHASE             PHASE THREE?
     5014   01 017A9    681017C3              BGE      STRT1             B,NOPE
     5015   01 017AA    325007C9              LW,5     ADMASK            ADDRESS MASK
     5016   01 017AB    22400000 A            LI,4     0
     5017   01 017AC    4A4E0FA3              LS,4     IOPTABLE,7        GETR BUFFER ADDRESS
     5018   01 017AD    693017B2              BNEZ     HSIOPB1           WE HAVE ONE
     5019   01 017AE    324007CE              LW,4     MSIZE
     5020   01 017AF    6AF017DE              BAL,15   GETBUF            GET A BUFFER
     5021   01 017B0    4B4007C9              AND,4    ADMASK            JUST ADDRESS BITS
     5022   01 017B1    354E0FA3              STW,4    IOPTABLE,7        AND PUT IT INTO THE TABLE
     5023   01 017B2    35400006 A   HSIOPB1  STW,4    6                 SAVE IT FOR READ TRACK
     5024   01 017B3    25400002 A            SLS,4    2                 BYTE ADDRESS IT
     5025   01 017B4    325007C7              LW,5     BUFSIZE           GET BUFFER SIZE
     5026   01 017B5    25500002 A            SLS,5    2                 BYTE COUNT IT
     5027   01 017B6    305007FC              AW,5     H46               ADD FLAGS
     5028   01 017B7    21000A22              CI,0     DA(READ)          ARE WE GETTING READY TO READ?
     5029   01 017B8    693017BE              BNE      HSIOPD            B,NO
     5030   01 017B9    75200004 A            STB,2    4                 PUT IN READ ORDER
     5031   01 017BA    20400004 A            AI,4     4
     5032   01 017BB    205FFFFC A            AI,5     -4                BYPASS THE TRACK WORD
     5033   01 017BC    B5900006 A            STW,9    *6                STORE FUCTION INTO FIRST WORD
     5034   01 017BD    680017BF              B        %+2
     5035   01 017BE    75100004 A   HSIOPD   STB,1    4                 PUT IN WRITE ORDER
     5036   01 017BF    154E0FC4              STD,4    IOPTABLF,7        PUT CDW INTO TABLE
     5037   01 017C0    222007E2     HSIOPE   LI,2     DA(IOPTABLF)      CREATE DA
     5038   01 017C1    30200007 A            AW,2     7
     5039   01 017C2    680017C6              B        STRT1B            GO FINISH UP
     5040   01 017C3                 STRT1    RES      0
     5041   01 017C3    32200000 A            LW,2     0                 SET IT UP
     5042   01 017C4    12440000 A            LD,4     0,2               GET THE IOCD
     5043   01 017C5    154E0FC4              STD,4    IOPTABLF,7        PUT INTO THE TABLE
     5044   01 017C6    35200E8A     STRT1B   STW,2    HFTEMP            SAVE REGISTER FOR A MINUTE
     5045   01 017C7    22200000 A            LI,2     0                 RESET THE REGISTERS
     5046   01 017C8    32300BAB              LW,3     SETE              FOR THE WD'S I NEED
     5047   01 017C9    6AF00E8C              BAL,15   HFWD              GO SET E FLAG
     5048   01 017CA    02000000 A            NOP
     5049   01 017CB    680017D5              B        STRT2             ERROR RETURN-BAD STARTUP
     5050   01 017CC    32200E8A              LW,2     HFTEMP            REGET THE REGISTER
     5051   01 017CD    49200BA8              OR,2     HSIO              MERGE IN SIO COMMAND
     5052   01 017CE    32300BA1              LW,3     STRT              AND THE GO-AHEAD
     5053   01 017CF    6AF00E8C              BAL,15   HFWD              DO IT TO IT
     5054   01 017D0    02000000 A            NOP
     5055   01 017D1    680017D5              B        STRT2             SHUCKS ! HAD A PROBLEM
     5056   01 017D2    22200002 A            LI,2     2                 RESORE THE REGISTERS
     5057   01 017D3    22300003 A            LI,3     3                 DITTO
     5058   01 017D4    6800173B              B        SIOPH             AND CONTINUE LIKE AN IOP
     5059   01 017D5    35700E8A     STRT2    STW,7    HFTEMP            SAVE  FOR A SECOND
     5060   01 017D6    32600BB9              LW,6     HFADDR1           DUMB WAY TO PROGRAM
     5061   01 017D7    25600018 A            SLS,6    24                MOVE FOR PRINTING
     5062   01 017D8    22C00002 A            LI,12    2                 TWO CHARS. TO TRANSLATE
     5063   01 017D9    22706EC9              LI,7     BA(HFER5)+21      PUT IT HERE
     5064   01 017DA    6AE00773              BAL,14   TXLATE            MAKE INTO ENGLISH
     5065   01 017DB    04E01BAD              MTYPE    HFER5             TELL HIM THE BAD   NEWS
     5066   01 017DC    32700E8A              LW,7     HFTEMP            RESTORE REG 7
     5067   01 017DD    6800173B              B        SIOPH             AND CONTINUE ABORT AS AN IOP
     5068   01 017DE    6D000037 A   GETBUF   INHIB                      STOP INTERRUPTS
     5069   01 017DF    304007C7              AW,4     BUFSIZE           ADD SIZE TO PRESENT
     5070   01 017E0    325007C7              LW,5     BUFSIZE           GET THE SIZE
     5071   01 017E1    30500004 A            AW,5     4                 AND ADD THIS ADDRERSS
     5072   01 017E2    315007CE              CW,5     MSIZE             ARE WE WITHIN MEMORY?
     5073   01 017E3    682017E6              BLE      %+3               B,ITS OK
     5074   01 017E4    324007CD              LW,4     FIRSTMEM          START AT BEGINING
     5075   01 017E5    680017E0              B        GETBUF+2          AND TRY AGAIN
     5076   01 017E6    31400FA2              CW,4     CPUBUF            IS THE CPU USING IT?
     5077   01 017E7    683017DE              BE       GETBUF            B,YES
     5078   01 017E8    226FFFE0 A            LI,6     -32               LOOK AT THE
     5079   01 017E9    325007FE              LW,5     X7FS              MASK
     5080   01 017EA    454C0FC3              CS,4     IOPTABLE+32,6     TABLE OF BUFFER ADDRESSES
     5081   01 017EB    683017DE              BE       GETBUF            TOO BAD, START OVER
     5082   01 017EC    656017EA              BIR,6    %-2               LOOP
     5083   01 017ED    E800000F A            B        *15               RETURN
     5084                            *********************************************************************
     5085                            *********************************************************************
     5086                            *
     5087                            *        DISPB
     5088                            *        TYPE AND DUMP BUFFER
     5089                            *
     5090                            DISPB    TEXTCS   '
XXXXX  XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX ',;
     5091         01 017EE                             'XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX'
     5092   01 01802    40404040 A   DISPBA   TEXT     '    XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
            01 01803    E7E7E7E7 A
            01 01804    E7E7E7E7 A
            01 01805    E7E7E7E7 A
            01 01806    E7E7E7E7 A
            01 01807    E7E7E7E7 A
            01 01808    E7E7E7E7 A
            01 01809    E7E7E7E7 A
            01 0180A    E7E7E7E7 A
     5093         00000024           DISPBX   EQU      BA(%)-BA(DISPBA)  EXTENDED BUFFER SIZE
1 C00   20:35 JUN 20,'83    FAM TESTS                                                             PAGE   19
A    5095   01 0180B                 FAM      RES      0
     5096   01 0180B    221FFFFF A            LI,1     -1                CLEAR OUT FAM FLAG
     5097   01 0180C    3510188F              STW,1    UPPERFAM          AND STORE IT
     5098   01 0180D    325008D2              LW,5     VALB              GET FIRST PARAMETER
     5099   01 0180E    315007CC              CW,5     FILLER            ANY PARAMTERRS'S
     5100   01 0180F    68301820              BE       FAM1              GO DO ALL CONF. IOP'S
     5101   01 01810    2150001B A            CI,5     X'1B'             MAX IOP'S
     5102   01 01811    692008F4              BG       SERROR1           B,TOO BIG
     5103   01 01812    35501890              STW,5    IOPADDR           AT LEAST THIS IOP
     5104   01 01813    325008D3              LW,5     VALB+1            GET NEXT PARAMETER
     5105   01 01814    315007CC              CW,5     FILLER            MUST WANT ALL SUBCHANNELS
     5106   01 01815    6830182B              BE       FAM2              ALL SUBCHANNELS
     5107   01 01816    2150001F A            CI,5     X'1F'             MAX CHNL
     5108   01 01817    692008F6              BG       SERROR2           B,TOO BIG
     5109   01 01818    35501891              STW,5    FSTCHNL           MORE SUBCHANNELS?
     5110   01 01819    325008D4              LW,5     VALB+2            NEXT PLEASE
     5111   01 0181A    315007CC              CW,5     FILLER            ANY MORE?
     5112   01 0181B    68301830              BE       FAM3              JUST ONE SUBCHANNEL
     5113   01 0181C    31501891              CW,5     FSTCHNL           MAX CHNL
     5114   01 0181D    692008F8              BG       SERROR3           B,TOO BIG
     5115   01 0181E    35501892              STW,5    LSTCHNL           THIS MANY
     5116   01 0181F    68001832              B        FAMTST6           GO DO IT
     5117   01 01820    2210001C A   FAM1     LI,1      28               MAX NUMBER OD IOP'S
     5118   01 01821    33020F22              MTW,0    IOPTABLA,1        IS HE THERE?
     5119   01 01822    69301824              BNEZ     FAM1A             FORGET IT
     5120   01 01823    64101821              BDR,1    FAM1+1            GET THE REST
     5121   01 01824    32220F22     FAM1A    LW,2     IOPTABLA,1        STORE IOP ADDRESS
     5122   01 01825    75201892              STB,2    LSTCHNL           THIS IS THE LAST OF THE CHNLS
     5123   01 01826    25200070 A            SLS,2    -16               NOW GET THE FIRST CHNL
     5124   01 01827    75201891              STB,2    FSTCHNL           HERE IT IS
     5125   01 01828    25200078 A            SLS,2    -8                TIS THE IOP ADDR
     5126   01 01829    75201890              STB,2    IOPADDR           SAVE IT FOR FUTURE REFERENCE
     5127   01 0182A    68001832              B        FAMTST6           GO DO IT
     5128   01 0182B    32501890     FAM2     LW,5     IOPADDR           GET IOP AGAIN
     5129   01 0182C    330A0F42              MTW,0    IOPTABLB,5        GET IOP INFO
     5130   01 0182D    6830189E              BEZ      NOIOP             NOPE
     5131   01 0182E    322A0F22              LW,2     IOPTABLA,5        GET IOP STATUS WORD
     5132   01 0182F    68001825              B        FAM1A+1           STORE INFO
     5133   01 01830    32501891     FAM3     LW,5     FSTCHNL           ONLY ONE TO TEST
     5134   01 01831    35501892              STW,5    LSTCHNL           ONCE THRU THE TEST
     5135   01 01832    04E01AD5     FAMTST6  MTYPE    WARN              WILL TAKE A WHILE
     5136   01 01833    32201890              LW,2     IOPADDR           REGET THE ADDRESS
     5137   01 01834    25200004 A            SLS,2    4                 MOVE FOR DIO
     5138   01 01835    3300000C A            MTW,0    12                LET'S FIND OUT
     5139   01 01836    6830183A              BEZ      FAMTST6A          NOPE
     5140   01 01837    32C007B6              LW,12    CMDATA            CLOCK MARGINS ?
     5141   01 01838    04E01ABF              MTYPE    CMTEXT            TELL HIM, ABOUT CLOCK MARGINS
     5142   01 01839    6DC42000 A            WD,12    X'2000',2         DO IT
     5143   01 0183A    32C01893     FAMTST6A LW,12    LWRFAM            SET UP THE REGISTERS
     5144   01 0183B    32A01895              LW,10    LFAMACC           AND ACCECCES
     5145   01 0183C    32301891              LW,3     FSTCHNL           GET FIRST CHANNEL TO BE TESTED
     5146   01 0183D    2530001A A            SLS,3    26                POSITION IT FOR A WD
     5147   01 0183E    49C00003 A            OR,12    3                 NOW WE GO
     5148   01 0183F    49A00003 A            OR,10    3                 TO THE TESTS
     5149   01 01840    6DC42009 A   FAMTST5  WD,12    X'2009',2         GET ONE FAM
     5150   01 01841    3260000C A            LW,6     12                S/B DATA
     5151   01 01842    4B601897              AND,6    X0FF              DON'T CARE FOR BYTE ZER0
     5152   01 01843    3560188A              STW,6    FAMSAVOK          SAVE IS S/B DATA
     5153   01 01844    6DA42009 A            WD,10    X'2009',2         GET THE FAM
     5154   01 01845    6C44200A A            RD,4     X'200A',2         INTO THE C-REG
     5155   01 01846    6C54200B A            RD,5     X'200B',2         AND THIS ONE TOO
     5156   01 01847    15401884              STD,4    FAMSAV            SAVE THE REGISTERS FOR THE PARITY CHECK
     5157   01 01848    4B401897              AND,4    X0FF              BYE TO BYTE XER0
     5158   01 01849    4B501897              AND,5    X0FF              LET'S SEE JUST THE FAM BITS
     5159   01 0184A    15401888              STD,4    FAMSAV1           SAVE FOR POSSIBLE ERROR REPORT
     5160   01 0184B    31400006 A            CW,4     6                 EQUAL?
     5161   01 0184C    693018A0              BNE      FAMFLT            NOPE
     5162   01 0184D    31500006 A            CW,5     6                 ARE YOU YHR SAME?
     5163   01 0184E    693018A0              BNE      FAMFLT            NOPE
     5164   01 0184F    20C00001 A            AI,12    1                 BUMP COUNT
     5165   01 01850    31601897              CW,6     X0FF              ALL FILLEE UP
     5166   01 01851    68301857              BE       FAMTST1           YEP
     5167   01 01852    3300188F              MTW,0    UPPERFAM          ARE WE CHECKING THE UPPER FAM
     5168   01 01853    68301840              BEZ      FAMTST5           NOPE
     5169   01 01854    6AE01869              BAL,14   CPARITY           YEP
     5170   01 01855    68001840              B        FAMTST5           RETURN IS GOOD
     5171   01 01856    680018A0              B        FAMFLT            RETURN IS BADD (ERROR FOUND)
     5172   01 01857    3300188F     FAMTST1  MTW,0    UPPERFAM          UPPER OR LOWER FAM?
     5173   01 01858    69301864              BNEZ     FAMTST3           WELL, FIND OUT
     5174   01 01859    22300000 A            LI,3     0                 ZERO OUT THE REGISTER
     5175   01 0185A    32301891              LW,3     FSTCHNL           LET'S DO SOMEW CHECKING
     5176   01 0185B    31301892              CW,3     LSTCHNL           TO SEE IF E'RE DONE
     5177   01 0185C    68101860              BGE      FAMTST4           DO SOME MORE
     5178   01 0185D    20300001 A            AI,3     1                 BUMP COUNT
     5179   01 0185E    35301891              STW,3    FSTCHNL           AND CONTINUE
     5180   01 0185F    6800183A              B        FAMTST6A          WITH THE TESTS
     5181   01 01860    3210188E     FAMTST4  LW,1     IOPTRK            GET IOP COUNTER BACK
     5182   01 01861    64101821              BDR,1    FAM1+1
     5183   01 01862    04E01B35              MTYPE    FAMOK             YEA ! ALL OK
     5184   01 01863    680009FA              B        HEXIT             BYE
     5185   01 01864    22300000 A   FAMTST3  LI,3     0                 FAM TRACKER
     5186   01 01865    3530188F              STW,3    UPPERFAM          TELLS ME IF UPPER OR LOWER
     5187   01 01866    32C01894              LW,12    UPRFAM            RESTART IF
     5188   01 01867    32A01896              LW,10    UFAMACC           OK,NEXT
     5189   01 01868    6800183C              B        FAMTST6A+2        DO IT AGAIN
     5190   01 01869    32501885     CPARITY  LW,5     FAMSAV+1          GET THE CURRENT FAM SNAPS
     5191   01 0186A    22600000 A            LI,6     0                 INDEX TO FAM BYTES
     5192   01 0186B    72700005 A            LB,7     5                 GET THE PARITY BITS
     5193   01 0186C    3240188A              LW,4     FAMSAVOK          THIS IS TO CALCULATE THE S/B
     5194   01 0186D    3250188A              LW,5     FAMSAVOK          PARITY TO BE SURE THAT'S GOOD
     5195   01 0186E    25500008 A            SLS,5    8                 MOVE THE FAM BITS OVER
     5196   01 0186F    25400108 A            SLD,4    8                 MAKE ONE CONTINIOUS BIT STRING
     5197   01 01870    1540188C              STD,4    FAMBITS           SAVE IT
     5198   01 01871    22800000 A            LI,8     0                 CLEAR OUT INOUT REGISTER
     5199   01 01872    725C188C     CPARITYA LB,5     FAMBITS,6         GET A BYTE
     5200   01 01873    25800001 A            SLS,8    1                 MOVE PARITY REGISTER OVER ONE
     5201   01 01874    25500020 A            SLS,5    32                CHECK FOR EVEN OR ODD BITS
     5202   01 01875    69801877              BOD      %+2               EVEN OR ODD /
     5203   01 01876    20800001 A            AI,8     1                 TIS EVEN
     5204   01 01877    20600001 A            AI,6     1                 BUMP BYTE INDEX
     5205   01 01878    21600006 A            CI,6     6                 DONE YET?
     5206   01 01879    6830187B              BE       %+2               YEP
     5207   01 0187A    68001872              B        CPARITYA          NOPE
     5208   01 0187B    25800002 A            SLS,8    2                 ALIGN WITH FAM PE FROM IOP
     5209   01 0187C    35701886              STW,7    FAMPE             SAVE FOR POSSIBLE ERROR REPORT
     5210   01 0187D    35801887              STW,8    FAMPE+1           YOU TOO
     5211   01 0187E    31800007 A            CW,8     7                 ARE YOU THE SAME?
     5212   01 0187F    E830000E A            BE       *14               RETURN OK
     5213   01 01880    3310000E A            MTW,1    14                ERROR RETURN
     5214   01 01881    12401884              LD,4     FAMSAV            RESTORE THE FAM BITS FOR REPROT
     5215   01 01882    E800000E A            B        *14               GO BACK
     5216                                     BOUND    8
     5217   01 01884    00000000 A   FAMSAV   DATA     0,0
            01 01885    00000000 A
     5218   01 01886    00000000 A   FAMPE    DATA     0,0
            01 01887    00000000 A
     5219   01 01888    00000000 A   FAMSAV1  DATA     0,0
            01 01889    00000000 A
     5220   01 0188A    00000000 A   FAMSAVOK DATA     0,0
            01 0188B    00000000 A
     5221   01 0188C    00000000 A   FAMBITS  DATA     0,0
            01 0188D    00000000 A
     5222   01 0188E    00000000 A   IOPTRK   DATA     0
     5223   01 0188F    00000000 A   UPPERFAM DATA     0
     5224   01 01890    00000000 A   IOPADDR  DATA     0
     5225   01 01891    00000000 A   FSTCHNL  DATA     0
     5226   01 01892    00000000 A   LSTCHNL  DATA     0
     5227   01 01893    82000000 A   LWRFAM   DATA     X'82000000'
     5228   01 01894    80000000 A   UPRFAM   DATA     X'80000000'
     5229   01 01895    02000000 A   LFAMACC  DATA     X'02000000'
     5230   01 01896    00000000 A   UFAMACC  DATA     X'00000000'
     5231   01 01897    00FFFFFF A   X0FF     DATA     X'00FFFFFF'
     5232   01 01898    01000000 A   MAXFAM   DATA     X'01000000'
     5233   01 0189C    00001832 N   FAMPSD   PSD      0,FAMTST6,7,REABIT
                        07800000
     5234   01 0189E    04E01ACB     NOIOP    MTYPE    IOPNOT            CANT FIND YOU
     5235   01 0189F    680009FA              B        HEXIT             GET OUT
     5236   01 018A0                 FAMFLT   RES      0
     5237   01 018A0    6AE01869              BAL,14   CPARITY           COMPUTE CORRECT PARITY
     5238   01 018A1    6D000041 A            WD,0     X'41'             TURN ON ALARM
     5239   01 018A2    04E01AD1              MTYPE    FAMERR            TELL HIM OF ERROR
     5240   01 018A3    32601890              LW,6     IOPADDR           WHO WERE WE RUNNING?
     5241   01 018A4    25600008 A            SLS,6    8                 MOVE ADDRESS OVER
     5242   01 018A5    49601891              OR,6     FSTCHNL           WHO WERE WE RUNNING?
     5243   01 018A6    25600014 A            SLS,6    20                MOVE OVER TO PRINT
     5244   01 018A7    22C00003 A            LI,12    3                 ONLY 3 CHARS TO DO
     5245   01 018A8    22706B9F              LI,7     BA(FAMERR1)+31    RIGHT INTO HERE
     5246   01 018A9    6AE00773              BAL,14   TXLATE            TELL HIM WHO DUNNIT
     5247   01 018AA    04E01AE0              MTYPE    FAMERR1           TELL HIM WHO DUNIT
     5248   01 018AB    04E01AE9              MTYPE    FAMERR2           IS, S/B FORMAT
     5249   01 018AC    3230188A              LW,3     FAMSAVOK          THIS IS THE S/B DATA
     5250   01 018AD    3220188A              LW,2     FAMSAVOK          THIS IS THAT TOO
     5251   01 018AE    25300008 A            SLS,3    8                 MOVE IT OVER
     5252   01 018AF    25200108 A            SLD,2    8                 MOVE BOTH WORDS
     5253   01 018B0    3520078C              STW,2    TEMP              STORE FOR PRINTING
     5254   01 018B1    3530078D              STW,3    TEMP+1            SAME FOR YOU
     5255   01 018B2    22C00030 A            LI,12    48                GT 48 BITS TO DO
     5256   01 018B3    22706C32              LI,7     BA(FAMERR5)+6     AND PUT IT HERE
     5257   01 018B4    22100000 A            LI,1     0                 WE WANT TO DO IT RITE
     5258   01 018B5    6AF018D6              BAL,15   BXLATE            GO DO IT
     5259   01 018B6    12401884              LD,4     FAMSAV            FOE ERROR REPORT
     5260   01 018B7    4B501897              AND,5    X0FF              DO THE SAME TO YOUR BITS
     5261   01 018B8    25500008 A            SLS,5    8                 MOVE IT OVER
     5262   01 018B9    25400108 A            SLD,4    8                 NOW MAKE ONE NICE WORD
     5263   01 018BA    3540078C              STW,4    TEMP              READY TO GO
     5264   01 018BB    3550078D              STW,5    TEMP+1            ON PUBLIC DISPLAY
     5265   01 018BC    22100000 A            LI,1     0                 TWO WORDS AGAIN
     5266   01 018BD    22C00030 A            LI,12    48                GOT 48 MORE TO DO
     5267   01 018BE    22706C6A              LI,7     BA(FAMERR6)+6     THS TIME PUT IT HERE
     5268   01 018BF    6AF018D6              BAL,15   BXLATE            GO DO IT
     5269   01 018C0    04E01AFE              MTYPE    FAMERR3           TEN BITS
     5270   01 018C1    04E01AF0              MTYPE    FAMERR4           TUNIT BITS
     5271   01 018C2    04E01B0B              MTYPE    FAMERR5           IS DATA
     5272   01 018C3    04E01B19              MTYPE    FAMERR6           S/B DATA
     5273   01 018C4    3300188F              MTW,0    UPPERFAM          IF LOWER FAM, PARITY BITS
     5274   01 018C5    683018D4              BEZ      FAMFLTA           ARE INVALID, SO SKIP
     5275   01 018C6    04E01B27              MTYPE    FAMERR7           FAM MESSAGEE
     5276   01 018C7    12401886              LD,4     FAMPE             FET THE PARITY
     5277   01 018C8    25400118 A            SLD,4    24                SHIFT THE BITS OVER
     5278   01 018C9    1540078C              STD,4    TEMP              PUT INTO CONVERSION AREA
     5279   01 018CA    22100001 A            LI,1     1                 GET THE FIRST OWRD
     5280   01 018CB    22C00008 A            LI,12    8                 DO EIGHT BITS
     5281   01 018CC    22706CBB              LI,7     BA(FAMERR8)+7     PUT IT HERE
     5282   01 018CD    6AF018D6              BAL,15   BXLATE
     5283   01 018CE    22100000 A            LI,1     0                 GET THE NEXT WORD
     5284   01 018CF    22C00008 A            LI,12    8                 EIGHT BITS AGAIN
     5285   01 018D0    22706CCB              LI,7     BA(FAMERR9)+7     PUT IT HERE
     5286   01 018D1    6AF018D6              BAL,15   BXLATE            DO IT
     5287   01 018D2    04E01B2D              MTYPE    FAMERR8           TELL IS
     5288   01 018D3    04E01B31              MTYPE    FAMERR9           TEL SHUD BE
     5289   01 018D4    6D000042 A   FAMFLTA  WD,0     X'42'             TURN OFF THE ALARM
     5290   01 018D5    680009FA              B        HEXIT             GO AWAY
     5291   01 018D6    32B2078C     BXLATE   LW,11    TEMP,1            GET FIRST WORD TO XLATE
     5292   01 018D7    22A00000 A            LI,10    0                 CLEAR IT OUT
     5293   01 018D8    25A00101 A            SLD,10   1                 GET NEXT BIT
     5294   01 018D9    20A000F0 A            AI,10    X'F0'             READY IT FOR PRINTING
     5295   01 018DA    75AE0000 A            STB,10   0,7               PUT IT AWAY
     5296   01 018DB    20700001 A            AI,7     1                 BUMP BYTE
     5297   01 018DC    21C00011 A            CI,12    17                32 BITS WERE DONE IF TRUE
     5298   01 018DD    683018E0              BE       %+3               NOT QUITE
     5299   01 018DE    64C018D7              BDR,12   BXLATE+1          GET NEXT BIT
     5300   01 018DF    E800000F A            B        *15               MUST BE DONE
     5301   01 018E0    20100001 A            AI,1     1                 NEXT PLEASE
     5302   01 018E1    64C018D6              BDR,12   BXLATE            LET'S GET IT OVER WITH
1 C00   20:35 JUN 20,'83    ARITHMETIC OPERATIONS                                                 PAGE   20
A    5304   01 018E2                 HEX      RES      0
     5305   01 018E2    323008D4              LW,3     VALB+2            GET 3RD PARAMETER
     5306   01 018E3    313007CC              CW,3     FILLER            ANY ?
     5307   01 018E4    683008F8              BE       SERROR3           B,NO
     5308   01 018E5    324008D3              LW,4     VALB+1            GET 2ND PARAMETER
     5309   01 018E6    314007CC              CW,4     FILLER            ANY ?
     5310   01 018E7    683008F6              BE       SERROR2           B,NO
     5311   01 018E8    214000D3 A            CI,4     C'L'              LEFT SHIFT ?
     5312   01 018E9    683018EE              BE       HEXA1             B,YEP
     5313   01 018EA    214000D9 A            CI,4     C'R'              RIGHT SHIFT ?
     5314   01 018EB    693018F8              BNE      HEXA2             B,NOPE
     5315   01 018EC    483007E4              EOR,3    X7F               TWOS COMPLEMENT THE VALUE
     5316   01 018ED    20300001 A            AI,3     1                 HI, YOU LOOK NICE !
     5317   01 018EE    326008D2     HEXA1    LW,6     VALB              1ST PARAMETER
     5318   01 018EF    316007CC              CW,6     FILLER            ANY ?
     5319   01 018F0    683008F4              BE       SERROR1           B,NO
     5320   01 018F1    4B3007F3              AND,3    XB3M1             MAKE SURE SHIFT VALUE NICE
     5321   01 018F2    25660000 A            SLS,6    0,3               DO IT
     5322   01 018F3    22C00008 A            LI,12    8                 8 CHARS TO DO
     5323   01 018F4    2270665F              LI,7     BA(SLOTDTA)+3     PUT IT HERE
     5324   01 018F5    6AE00773              BAL,14   TXLATE            GO DO IT
     5325   01 018F6    04E01997              MTYPE    SLOTDTA           TELL HIM
     5326   01 018F7    680009FA              B        HEXIT             BYE
     5327   01 018F8    680018F8     HEXA2    B        %                 FUTURE THINGS
1 C00   20:35 JUN 20,'83    MESSAGES                                                              PAGE   21
A    5329   01 018F9    F1F1F1F1 A   FORMC    TEXT     '1111'
     5330         01 018FA           ZMES     TEXTCS   '
       SAME'
     5331         01 018FE           TRAPHD   TEXTCS   '
**  TRAP    PSD1     PSD2     INST'
     5332         01 01907           TRAPMES  TEXTCS   '
*         XXXXXXXX XXXXXXXX XXXXXXXX'
     5333         01 01911           IORMSG   TEXTCS   '
*      IOP ADDRESS AND STATUS PRIOR TO I/O RESET'
     5334         01 0191E           TRAP46R  TEXTCS   '
*R(ETRY),C(RASH) OR B(YPASS)?'
     5335                            M9PAR    TEXTCS   '
*MEMORY FAULT TRAP
',;
     5336         01 01926                             '*          WORD0     WORD1    WORD2'
     5337         01 01934           MAPP     TEXTCS   '
*MAP PARITY ERROR'
     5338         01 01939           BUSCK    TEXTCS   '
*CPU DETECTED BUS CHECK'
     5339         01 01940           POWMES   TEXTCS   '   *** POWER FAILURE ***   '
     5340         01 01947           NOPOFM   TEXTCS   '

*POWER ON - NO POWER OFF
'
     5341         01 0194E           PFAULTM  TEXTCS   '
*PROCESSOR FAULT
'
     5342         01 01953           BCF      TEXTCS   ' *** BUS CHECK FAULT ***'
     5343         01 0195A           CCF      TEXTCS   ' *** CONTROL CHECK FAULT *** '
     5344         01 01962           NOPFAULT TEXTCS   '
*NO PROCESSOR ERROR DURING POLL
'
     5345         01 0196B           PARITYMES TEXTCS  '
*MEM-PARITY COUNT  LTS-ADDR CONTENTS'
     5346         01 01975           MORPE    TEXTCS   '
*MORE LOCATIONS? Y(ES) OR N(O)'
     5347         01 0197D           CLEARM   TEXTCS   '
*CLEAR ALL ERRORS? Y(ES) OR N(O)'
     5348         01 01986           EXPMESS  TEXTCS   '
* EXPLAIN ERROR BITS ? Y(ES) OR N(O)'
     5349         01 01990           HRCR     TEXTCS   '
H'
     5350         01 01991           HCR      TEXTCS   '
H'
     5351         01 01992           RCR      TEXTCS   '
R'
     5352         01 01993           LMSMSG   TEXTCS   '*XXXX XXXXXXXX'  LMS AND READ DIRECT DATA
     5353         01 01997           SLOTDTA  TEXTCS   '
*XXXXXXXX'
     5354         01 0199A           CONTMES  TEXTCS   '
*R(ECOVER) OR C(RASH)?..'                            C
     5355         01 019A1           POLLMES  TEXTCS   '
*I/O POLL? Y(ES) OR N(O)'
     5356         01 019A8           NOPEM    TEXTCS   '
*NONE
'
     5357         01 019AA           CORESZM  TEXTCS   '
*CORESIZE = XXXXXX XXXXXX'
     5358         01 019B1           TIMEMES  TEXTCS   '

 XX:XX:XX INTO TEST.'
     5359         01 019B7           COMMES   TEXTCS   '
*NO SUCH COMMAND
'
     5360         01 019BC           CONMSG   TEXTCS   '
*'
     5361         01 019BD           BADPAR   TEXTCS   '
*PARAMETER OVERFLOW
'
     5362         01 019C3           HELPMSG  TEXTCS   '
-'
     5363         01 019C4           SERM     TEXTCS   '
*PARAMETER X IS INVALID
'
     5364         01 019CB           HFIOM0   TEXTCS   '
* R         R U 1    IOCD1    IOCD2'
     5365         01 019D5           IOMES    TEXTCS   '
*XXXX XXX XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX'
     5366         01 019E1           ONE      TEXTCS   ' '
     5367         01 019E2           MTNRM    TEXTCS   '
*XXX NOT RECOGNIZED'
     5368         01 019E8           MTMANM   TEXTCS   '
*XXX MANUAL'
     5369         01 019EC           MTNPM    TEXTCS   '
*XXX START NOT POSSIBLE'
     5370         01 019F3           AIOERR   TEXTCS   '
*NO ADDR. RECOG. ON TIO AFTER AN AIO'
     5371         01 019FD           AIOERR2  TEXTCS   '
*AIO STATUS = XXXXXXXX'
     5372         01 01A03           SPURTXT  TEXTCS   '
*XXXXXXXX SPURIOUS IO INTERRUPTS'
     5373         01 01A0C           REDM     TEXTCS   '
*OK? TYPE Y(ES)'
     5374         01 01A11           SPACE    TEXTCS   '
*      '
     5375         01 01A14           HFHEAD   TEXTCS   '
*HF NUMBER OF PROCESSORS'
     5376         01 01A1B           IOPTEXT  TEXTCS   '
*XXXX  XXXX'
     5377         01 01A1F           IOPHEAD  TEXTCS   '
*IOP   LAST CHANEL'
     5378         01 01A24           INVIOP   TEXTCS   '
* IOP ADDRESS TO LARGE '
     5379         01 01A2B           TIMOUTM  TEXTCS   '
* XX IOP TIMEOUT'
     5380         01 01A30           CHANRSET TEXTCS   '
*NOT AT PHI, CHANNEL RESET'
     5381         01 01A37           BADSIO   TEXTCS   '
* XXXX SIO FAILURE'
     5382         01 01A3C           STATMES  TEXTCS   '
* XXXXXXXX XXXXXXXX XXXXXXXX'
     5383         01 01A44           COMPD    TEXTCS   '
* XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX'
     5384         01 01A4E           TIMOUTD  TEXTCS   '
* XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX'
     5385         01 01A58           INTDATA  TEXTCS   '
* XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX'
     5386                            LISTDATA TEXTCS   '
* XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX',;
     5387         01 01A64                             ' XXXXXXXX'
     5388                            IOERRM   TEXTCS   '
*IO INTERRUPT BCNT NE ZERO
',;
     5389         01 01A73                             '    AIO       TIO     TIO+1     CDW'
     5390                            CKHEAD   TEXTCS   '
*DATA ERROR',;
     5391         01 01A83                             '
*    AIO    ADDRESS    SB       IS'
     5392                            CPUHEAD  TEXTCS   '
*DATA ERROR',;
     5393         01 01A8F                             '
*    CPU    ADDRESS    SB       IS'
     5394         01 01A9B           PHASE1   TEXTCS   '
*PHASE 1'
     5395         01 01A9E           PHASE2   TEXTCS   '
*PHASE 2'
     5396         01 01AA1           PHASE3   TEXTCS   '
*PHASE 3'
     5397         01 01AA4           PHASE4   TEXTCS   '
*PHASE 4'
     5398         01 01AA7           HOLDMES  TEXTCS   '
*HOLD MODE'
     5399         01 01AAA           SELMES   TEXTCS   '
XXXXXXXX'
     5400         01 01AAD           BMTEXT   TEXTCS   '
*BURST MODE ON'
     5401         01 01AB1           UNITEXT1 TEXTCS   '
*ADDRESS UNIT# I-L'
     5402         01 01AB6           UNITEXT  TEXTCS   '
                 W'
     5403         01 01ABB           HTETEXT  TEXTCS   '
*HTE FLAG SET'
     5404         01 01ABF           CMTEXT   TEXTCS   '
*CLOCK MARGINS INVOKED'
     5405         01 01AC5           NUCORE   TEXTCS   '
*RECONFIGURING MEMORY'
     5406         01 01ACB           IOPNOT   TEXTCS   '
*IOP NOT CONFIGURED'
     5407         01 01AD1           FAMERR   TEXTCS   '
*FAM FAILURE'
     5408         01 01AD5           WARN     TEXTCS   '
*THIS TEST TAKES 25 MIN. PER SUBCHANNEL'
     5409         01 01AE0           FAMERR1  TEXTCS   '
*IOP AND SUBCHANNEL ADDRESS----X'
     5410         01 01AE9           FAMERR2  TEXTCS   '
FAM ERROR BIT POSITION MAP'
     5411                            FAMERR4  TEXTCS   '
    012345678901234567890123456789',;
     5412         01 01AF0                             '012345678901234567'
     5413         01 01AFE           FAMERR3  TEXTCS   '
               1          2          3          4'
     5414                            FAMERR5  TEXTCS   '
S-B XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',;
     5415         01 01B0B                             'XXXXXXXX'
     5416                            FAMERR6  TEXTCS   '
 IS XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX',;
     5417         01 01B19                             'XXXXXXXXX'
     5418         01 01B27           FAMERR7  TEXTCS   '
*FAM PARITY (BY BYTE)'
     5419         01 01B2D           FAMERR8  TEXTCS   '
 IS  XXXXXXXX '
     5420         01 01B31           FAMERR9  TEXTCS   '
 S-B XXXXXXXX'
     5421         01 01B35           FAMOK    TEXTCS   '
*FAM TESTS COMPLETED WITH NO ERRORS'
     5422         01 01B3F           HFIOERR1 TEXTCS   '
*HF NOT IN A WAIT STATE'
     5423         01 01B46           CR       TEXTCS   '
'
     5424         01 01B47           HFFLT0   TEXTCS   '
*HF 00 FAULT INTERRUPT'
     5425         01 01B4D           HFFLT1   TEXTCS   '
*SAR = XXXXXXXX'
     5426         01 01B52           HFFLT2   TEXTCS   ' *WATCHDOG TIMEOUT (ACCESSING MEMORY)'
     5427         01 01B5C           HFFLT3   TEXTCS   ' *PORT  PARITY ERROR'
     5428         01 01B62           HFFLT4   TEXTCS   ' *CIL DETECTED LOAD DUMP ERROR'
     5429         01 01B6A           HFFLT5   TEXTCS   ' *PORT CIL INTERFACE PARITY ERROR'
     5430         01 01B73           HFFLT10  TEXTCS   '
*HF 10 FAULT INTERRUPT'
     5431         01 01B79           HFFLT20  TEXTCS   '
*HF 20 FAULT INTERRUPT.'
     5432         01 01B80           HFFLT30  TEXTCS   '
*HF 30 FAULT INTERRUPT.'
     5433         01 01B87           HPRER2   TEXTCS   '
*PSR = XXXXXXXX'
     5434         01 01B8C           HFER0    TEXTCS   '
UNABLE TO RESERVE CONTROL PANEL ON HF'
     5435         01 01B96           HFER1    TEXTCS   '
*ILLEGAL FUNCTION CODE'
     5436         01 01B9C           HFER2    TEXTCS   '
*COMMAND CONFLICT'
     5437         01 01BA1           HFER3    TEXTCS   '
*PROCESSOR NOT REMOTE'
     5438         01 01BA7           HFER4    TEXTCS   '
HF XX NOT AVAILABLE'
     5439         01 01BAD           HFER5    TEXTCS   ' UNABLE TO START HF XX'
     5440         01 01BB3           HFER6    TEXTCS   '
*TIMEOUT ON AN AIO FUNCTION ON HF'
     5441         01 01BBC           HFER7    TEXTCS   '
*UNABLE TO SUSPEND HF'
     5442         01 01BC2           HFER8    TEXTCS   '
*UNABLE TO ACTIVATE HF'
     5443         01 01BC8           HFER9    TEXTCS   '
*UNABLE TO ACTIVATE RUN SWITCH'
     5444         01 01BD0           HFER10   TEXTCS   '
*UNABLE TO START HF'
     5445         01 01BD6           HFER11   TEXTCS   '
*UNABLE TO SET E-FLAG ON HF'
     5446         01 01BDE           HFER12   TEXTCS   '
*HIO   COMMAND NOT ACCEPTED ON HF'
     5447         01 01BE7           CPETEXT  TEXTCS   '
*CPE REGISTERS 0 THRU 9, A AND T'
     5448         01 01BF0           CRTEXT   TEXTCS   '
*CONTROL REGISTERS 0 THRU 3'
     5449         01 01BF8           ARTEXT   TEXTCS   '
*ADDRESS REGISTERS 0 THRU 3'
     5450         01 01C00           DRTEXT   TEXTCS   '
*DATA REGISTERS 0 THRU 2'
     5451         01 01C07           DR3TEXT  TEXTCS   '
DATA REGISTER 3'
     5452         01 01C0C           HPIA     TEXTCS   '
*PIA = XXXX'
     5453         01 01C10           HFTOUT   TEXTCS      '
*HF XX TIMEOUT'
     5454         01 01C14           HPSRER0  TEXTCS   '
*HF-32 FAULT'
     5455         01 01C18           HFXX     TEXTCS   '  X'
     5456         01 01C19           HPSRER1  TEXTCS   '
*CIL-PORT FAULT'
     5457         01 01C1E           HPSRER2  TEXTCS   '
*NO MCM ADDRESS ACK. (MCU TIMEOUT)'
     5458         01 01C27           HPSRER3  TEXTCS   '
*MCM READ DATA ERROR'
     5459         01 01C2D           HPSRER4  TEXTCS   '
*MCM DETECTED ADDRESS PARITY ERROR'
     5460         01 01C36           HPSRER5  TEXTCS   '
*MCM ADDRESS SELECT ERROR'
     5461         01 01C3D           HPSRER6  TEXTCS   '
*MCM DETECTED WRITE PARITY ERROR'
     5462         01 01C46           HPSRER7  TEXTCS   '
*MCM READ DATA P.E. DETECTED AT MCR'
     5463         01 01C50           HPSRER8  TEXTCS   '
*K-MEMORY READ DATA ERROR'
     5464         01 01C57           HPSRER9  TEXTCS   '
*STACK (OVER-UNDER)FLOW'
     5465         01 01C5E           HPSRER10 TEXTCS   '
*CIL-DIO RECEIVED DATA ERROR'
     5466         01 01C66           HPSRER11 TEXTCS   '
*CIL-DIO RECEIVED ADDRESS ERROR'
     5467         01 01C6F           HPSRER12 TEXTCS   '
*CIL-PORT RECEIVED (AT EMDR) DATA ERROR'
     5468         01 01C7A           HPSRER13 TEXTCS   '
*AIOC ILLEGAL ADDRESS'
     5469         01 01C80           HPSRER14 TEXTCS   '
*SEQUENCER WRITE REFRESH ERROR'
     5470         01 01C88           HPSRER15 TEXTCS   '
*DISK CONTROLLER FAULT'
     5471         01 01C8E           LISTEXT  TEXTCS   '
*IOP-MS ADDR OPERATION     DATA'
     5472         01 01C97           LISTEXT1 TEXTCS   '
 X XXX'
     5473         01 01C99           LISTEXT2 TEXTCS   '                          '
     5474         01 01CA0           LISTEXT3 TEXTCS   '
*CPU BUFFER = XXXXX'
     5475         01 01CA6           CVTEXTA  TEXTCS   '  DATA ERROR !'
     5476         01 01CAA           CVTEXTB  TEXTCS   '
*OPERATION: CVA + CVS FAILURE'
     5477         01 01CB2           CVTEXTC  TEXTCS   '
*OPERATION: CVS + MUL FAILURE'
     5478         01 01CBA           CVTEXTD  TEXTCS   '
*TOTALS S-B 0 WAS XXXXXXXX'
     5479         01 01CC1           CVTEXTE  TEXTCS   '
*MULTIPLY SEQUENCE (OVERFLOW IGNORED)'
     5480         01 01CCB           CVTEXTF  TEXTCS   '
*XXXXXXXX * XXXXXXXX = XXXXXXXX'
     5481         01 01CD4           CVTEXTH  TEXTCS   '
*CVA TOTAL = XXXXXXXX'
     5482         01 01CDA           CVTEXTM  TEXTCS   '
*CALCULATED SUM BY:'
     5483         01 01CE0           CVTEXTN  TEXTCS   '
*(XXXXXXXX%2)*(2*XXXXXXXX+XXXXXXXX)'
     5484         01 01CEA           CVTEXTO  TEXTCS   '
*CALCULATED SUM = XXXXXXXX'
     5485         01 01CF1           HSARER0  TEXTCS   '
*READ REQUEST PROCESSOR 0'
     5486         01 01CF8           HSARER1  TEXTCS   '
*READ REQUEST PROCESSOR 1'
     5487         01 01CFF           HSARER2  TEXTCS   '
*READ REQUEST PROCESSOR 2'
     5488         01 01D06           HSARER3  TEXTCS   '
*READ REQUEST PROCESSOR 3'
     5489         01 01D0D           HSARER4  TEXTCS   '
*WRITE REQUEST PROCESSOR 0'
     5490         01 01D14           HSARER5  TEXTCS   '
*WRITE REQUEST PROCESSOR 1'
     5491         01 01D1B           HSARER6  TEXTCS   '
*WRITE REQUEST PROCESSOR 2'
     5492         01 01D22           HSARER7  TEXTCS   '
*WRITE REQUEST PROCESSOR 3'
     5493         01 01D29           HSARER8  TEXTCS   '
*MEMORY REQUEST ACTIVE ON  PROCESSOR 0'
     5494         01 01D33           HSARER9  TEXTCS   '
*MEMORY REQUEST ACTIVE ON  PROCESSOR 1'
     5495         01 01D3D           HSARER10 TEXTCS   '
*MEMORY REQUEST ACTIVE ON  PROCESSOR 2'
     5496         01 01D47           HSARER11 TEXTCS   '
*MEMORY REQUEST ACTIVE ON  PROCESSOR 3'
     5497         01 01D51           HSARER12 TEXTCS   '
*CURRENTLY ACTIVE WRITE (=1) CYCLE'
     5498         01 01D5A           HSARER13 TEXTCS   '
*CURRENTLY ACTIVE PROCESSOR:'
     5499         01 01D62           HSARER14 TEXTCS   '
*CONTAINED IN BITS 13 + 14; 00=0, 01=1 ...'
     5500         01 01D6D           HSARER15 TEXTCS   '
*WATCHDOG TIMEOUT'
     5501         01 01D72           HSARER16 TEXTCS   '
*PORT PARITY ERROR'
     5502         01 01D77           HSARER17 TEXTCS   '
*CIL DETECTED LOAD-DUMP ERROR'
     5503         01 01D7F           HSARER18 TEXTCS   '
*PORT-CIL DATA PARITY ERROR'
     5504         01 01D87           HSARER19 TEXTCS   '
*ADDRESS P.E. FROM CIL TO PROCESSOR 0'
     5505         01 01D91           HSARER20 TEXTCS   '
*DATA    P.E. FROM CIL TO PROCESSOR 0'
     5506         01 01D9B           HSARER21 TEXTCS   '
*ADDRESS P.E. FROM CIL TO PROCESSOR 1'
     5507         01 01DA5           HSARER22 TEXTCS   '
*DATA    P.E. FROM CIL TO PROCESSOR 1'
     5508         01 01DAF           HSARER23 TEXTCS   '
*ADDRESS P.E. FROM CIL TO PROCESSOR 2'
     5509         01 01DB9           HSARER24 TEXTCS   '
*DATA    P.E. FROM CIL TO PROCESSOR 2'
     5510         01 01DC3           HSARER25 TEXTCS   '
*ADDRESS P.E. FROM CIL TO PROCESSOR 3'
     5511         01 01DCD           HSARER26 TEXTCS   '
*DATA    P.E. FROM CIL TO PROCESSOR 3'
     5512         01 01DD7           HSARER27 TEXTCS   '
*PROCESSOR 0 FAULT'
     5513         01 01DDC           HSARER28 TEXTCS   '
*PROCESSOR 1 FAULT'
     5514         01 01DE1           HSARER29 TEXTCS   '
*PROCESSOR 2 FAULT'
     5515         01 01DE6           HSARER30 TEXTCS   '
*PROCESSOR 3 FAULT'
     5516         01 01DEB           HSARER31 TEXTCS   '
*SUBSEQUENT FAULTS'
     5517         01 01DF0           MFLT1    TEXTCS   '
* RESERVED'
     5518         01 01DF3           MFLT2    TEXTCS   '
* DATA P.E. ON READ'
     5519         01 01DF9           MFLT3    TEXTCS   '
* DATA P.E. ON PARTIAL WRITE'
     5520         01 01E01           MFLT4    TEXTCS   '
* ADDRESS BUS P.E.'
     5521         01 01E06           MFLT5    TEXTCS   '
* DATA BUS P.E. ON WRITE'
     5522         01 01E0D           MFLT6    TEXTCS   '
* LOOP CHECK DATA P.E.'
     5523         01 01E13           MFLT7    TEXTCS   '
* PORT SELECTION ERROR'
     5524         01 01E19           MFLT8    TEXTCS   '
* BMU OVERTEMPERATURE OR POWER SUPPLY FAILURE'
     5525         01 01E25           MFLT9    TEXTCS   '
* ILLEGAL LMS INSTRUCTION'
     5526         01 01E2C           MFLT10   TEXTCS   '
* PORT 1'
     5527         01 01E2F           MFLT11   TEXTCS   '
* PORT 2'
     5528         01 01E32           MFLT12   TEXTCS   '
* PORT 3'
     5529         01 01E35           MFLT13   TEXTCS   '
* PORT 4'
     5530         01 01E38           MFLT14   TEXTCS   '
* PORT 5'
     5531         01 01E3B           MFLT15   TEXTCS   '
* PORT 6'
     5532         01 01E3E           MFLT16   TEXTCS   '
* PORT 7'
     5533         01 01E41           MFLT17   TEXTCS   '
* PORT 8'
     5534         01 01E44           MFLT18   TEXTCS   '
* PORT 9'
     5535         01 01E47           MFLT19   TEXTCS   '
* PORT 10'
     5536         01 01E4A           MFLT20   TEXTCS   '
* PORT 11'
     5537         01 01E4D           MFLT21   TEXTCS   '
* PORT 12'
     5538                            *
     5539         01 01E50           END      EQU      %
1 C00   20:35 JUN 20,'83    INITIALIZING ROUTINES                                                 PAGE   22
A    5541                            *
     5542                            *        INIT
     5543                            *        DETERMINES CORE SIZE,
     5544                            *
     5545                                     BOUND    8
     5546   01 01E52    00001E6E N   MYPSD1   PSD      0,INITD,0,REABIT
                        00800000
     5547   01 01E54    00001E60     MYDW2    DATA     INITA1,REABIT
            01 01E55    00800000 A
     5548   01 01E58    00001E61 N   MYPSD2   PSD      0,INITA2,0,REABIT
                        00800000
     5549   01 01E5A    00800000 A   H008     DATA     REABIT
     5550                            *
     5551                            *
     5552   01 01E5B    0F001E50     MYXPSD1  XPSD,0   MYPSD1
     5553                            *
     5554   01 01E5C    680000D2     LOC26    B        RESTART
     5555                            *
     5556   01 01E5D    32101E5C     INITA    LW,1     LOC26             SET UP
     5557   01 01E5E    35100026 A            STW,1    38                RESTART CAPABILITY
     5558   01 01E5F    0E001E54              LPSD,0   MYDW2             SET REABIT
     5559   01 01E60    0F001E56     INITA1   XPSD,0   MYPSD2            & STORE IT
     5560   01 01E61    32001E57     INITA2   LW,0     MYPSD2+1          GET REABIT
     5561   01 01E62    31001E5A              CW,0     H008              IS IT THERE?
     5562   01 01E63    69401E67              BANZ     INITB             B,YES
     5563   01 01E64    04E01F7C              MTYPE    NOTONA7
     5564   01 01E65    2E001E65              WAIT     %                 DONT GO ON
     5565   01 01E66    68001E65              B        %-1               DITTO
     5566   01 01E67    32201E5B     INITB    LW,2     MYXPSD1           TEST XPSD
     5567   01 01E68    46200040 A            XW,2     X'40'             INTO TRAP LOCATION
     5568   01 01E69    22304000 A            LI,3     X'4000'           FIRST 16 K
     5569   01 01E6A    32060000 A   INITC    LW,0     0,3               IS IT THERE?
     5570   01 01E6B    20304000 A            AI,3     X'4000'           NEXT 16K
     5571   01 01E6C    313007C9              CW,3     ADMASK            DONE YET?
     5572   01 01E6D    68201E6A              BLE      INITC             B,NO, FORCE A TRAP
     5573   01 01E6E    353007CE     INITD    STW,3    MSIZE             STORE MEMORY SIZE
     5574   01 01E6F    353007CF              STW,3    ABSMSIZE          SAVE COMPUTED ABSOLUTE MEMORY
     5575   01 01E70    35200040 A            STW,2    X'40'             PUT 40 BACK TO ORIGIONAL
     5576   01 01E71    22100000 A            LI,1     0                 GRAB A ZERO
     5577   01 01E72    2131FE05 A            CI,3     X'1FE05'          ADDRESS OF BOOT DEVICE
     5578   01 01E73    69101E78              BL       INITD1               IF LESS THAN 128K NO REWIND
     5579   01 01E74    6D000046 A            WD,0     X'0046'           TURN MODE ALTERED OFF
     5580   01 01E75    3211FE05 A            LW,1     X'1FE05'          GET THE MT ADDR
     5581   01 01E76    35101EEA              STW,1    INDADDR           AND SAVE IT
     5582   01 01E77    6D000047 A            WD,0     X'0047'           TURN MODE ALTERED ON
        1*  01 01E78    04E01F84     INITD1   MTYPE    PROGMSG           ANNOUNCE OUR EXISTENCE          *H01
     5584   01 01E79    326007CD              LW,6     FIRSTMEM          GET MSIZE
     5585   01 01E7A    25600008 A            SLS,6    8                 POSITION IT
     5586   01 01E7B    22C00006 A            LI,12    6                 COUNT
     5587   01 01E7C    227066B6              LI,7     BA(CORESZM)+14    MESSAGE ADDRESS
     5588   01 01E7D    6AE00773              BAL,14   TXLATE            TRANSLATE IT
     5589   01 01E7E    20700001 A            AI,7     1                 NEXT BYTE
     5590   01 01E7F    326007CE              LW,6     MSIZE
     5591   01 01E80    25600008 A            SLS,6    8                 POSITION
     5592   01 01E81    22C00006 A            LI,12    6                 COUNT
     5593   01 01E82    6AE00773              BAL,14   TXLATE            GO TRANSLATE IT
     5594   01 01E83    04E019AA              MTYPE    CORESZM           TYPE CORE SIZE MESSAGE
     5595   01 01E84    2277F000 A            LI,7     X'7F000'          MASK
     5596   01 01E85    4A7007CD              LS,7     FIRSTMEM          START OF MEMORY
     5597   01 01E86    2257F000 A            LI,5     X'7F000'
     5598   01 01E87    4A5007CE              LS,5     MSIZE             END OF MEMORY
     5599   01 01E88    38500007 A            SW,5     7                 COMPUTE THE DIFFERENCE
     5600   01 01E89    25500074 A            SLS,5    -12               POSITION IT TO LOW END
     5601   01 01E8A    35500007 A            STW,5    7                 SAVE IT
     5602   01 01E8B    23500028 A            MI,5     40
     5603   01 01E8C    355007BF              STW,5    PH3DLY            PHSAE THREE DELAY TIME
     5604   01 01E8D    32500007 A            LW,5     7
     5605   01 01E8E    235000EB A            MI,5     235
     5606   01 01E8F    355007BE              STW,5    PH2DLY            PHASE TWO DELAY TIME
     5607   01 01E90    2370009C A            MI,7     156
     5608   01 01E91    357007BD              STW,7    PH1DLY            PHASE ONE DELAY TIME
     5609   01 01E92    22000000 A            LI,0     0
     5610   01 01E93    221FFEDE A            LI,1     -TABLES           TABLES SIZE
     5611   01 01E94    35021044              STW,0    IOPTABLA+TABLES,1 CLEAR ALL THE TABLE AREA
     5612   01 01E95    65101E94              BIR,1    %-1
     5613   01 01E96    6AF00EE9              BAL,15   FINDIOP           SET UP IOP TABLES
     5614   01 01E97    6AF00ECB              BAL,15   FINDHF            SET UP THE TABLES FOR HX F
     5615   01 01E98    CD0007D0              TIO,0    *LPADD            DO WE HAVE A LP
     5616   01 01E99    69C01EB6              BCS,12   INITNOLP          B,NO ADDR RECOG OR BUSY
     5617   01 01E9A    04C00780              DPRINT   TOF               TOP OF FORM
     5618   01 01E9B    225FFFE4 A            LI,5     -28               INDEXER
     5619   01 01E9C    04D01A1F              MPRINT   IOPHEAD           HEADING
     5620   01 01E9D    326A0F5E     INITNEXT LW,6     IOPTABLB+28,5     GET IOP DATA
     5621   01 01E9E    68301EA7              BEZ      INITSKIP          B,NONE
     5622   01 01E9F    22C00004 A            LI,12    4                 COUNT
     5623   01 01EA0    2270686F              LI,7     BA(IOPTEXT)+3     TOO ADDRESS
     5624   01 01EA1    6AE00773              BAL,14   TXLATE            TRANSLATE IT
     5625   01 01EA2    55600006 A            STH,6    6                 LOWER TO UPER
     5626   01 01EA3    20700002 A            AI,7     2                 NEXT
     5627   01 01EA4    22C00004 A            LI,12    4                 COUNT
     5628   01 01EA5    6AE00773              BAL,14   TXLATE            TRANSLATE THE REST
     5629   01 01EA6    04D01A1B              MPRINT   IOPTEXT           PRINT DATA
     5630   01 01EA7    65501E9D     INITSKIP BIR,5    INITNEXT          LOOP
     5631   01 01EA8    04D01A14              MPRINT   HFHEAD            PRINT HEADING FOR HF CONFIGURATION
     5632   01 01EA9    225FFFFC A   INITHF   LI,5     -4                INDEXER
     5633   01 01EAA    326A0F42              LW,6     HFTABLA+4,5       GET THE FIRST
     5634   01 01EAB    68301EB4              BEZ      HFSKIP            NONE THERE
     5635   01 01EAC    22C00004 A            LI,12    4                 COUNT
     5636   01 01EAD    2270686F              LI,7     BA(IOPTEXT)+3     TRANSLATE IT
     5637   01 01EAE    6AE00773              BAL,14   TXLATE            DO IT
     5638   01 01EAF    55600006 A            STH,6    6                 LOWER TO UPPER
     5639   01 01EB0    20700002 A            AI,7     2                 NEXT COLUMN
     5640   01 01EB1    22C00004 A            LI,12    4                 STILL SAME COUNT
     5641   01 01EB2    6AE00773              BAL,14   TXLATE            DO IT
     5642   01 01EB3    04D01A1B              MPRINT   IOPTEXT           TELL WHO'S THERE
     5643   01 01EB4    65501EAA     HFSKIP   BIR,5    INITHF+1          DO IT OVER
     5644   01 01EB5    68001EBD              B        HFINIT            LET'S GO !
     5645   01 01EB6    04E01F74     INITNOLP MTYPE    NOLP              SAY NO LP
     5646   01 01EB7    220FFFFF A            LI,0     -1                SET FLAG
     5647   01 01EB8    350007D0              STW,0    LPADD             INTO LPADD LOC
     5648   01 01EB9    6AF00E00              BAL,15   LISTIOP           LIST IOPS ON TTY
     5649   01 01EBA    6AF00EBC              BAL,15   LISTHF            THEN THE HF'S
     5650   01 01EBB    6C000000 A            RD,0     0                 READ SENSE SWITCHES
     5651   01 01EBC    69801EDF              BCS,8    HFINITC+2         B,DONT LOAD THE HFS
     5652   01 01EBD                 HFINIT   RES      0
     5653   01 01EBD    225FFFFC A            LI,5     -4                NUMBER OF HF'S
     5654   01 01EBE    35501EEB              STW,5    HFINITIX          SAVE INDEX
     5655   01 01EBF    330A0F42              MTW,0    HFTABLA+4,5       ARE YOU THERE?
     5656   01 01EC0    68301EDD              BEZ      HFINITC           B,NOPE
     5657   01 01EC1    323A0F42              LW,3     HFTABLA+4,5       GET THE BUGGER
     5658   01 01EC2    35300004 A            STW,3    4                 SEPERATE THE SYSTEM
     5659   01 01EC3    4B4007E2              AND,4    XF                GET RID OF HTE FUNNY BITS
     5660   01 01EC4    25300072 A            SLS,3    -14               FAKE AN INDEX INTO HF ADDRESS
     5661   01 01EC5    4B3007E2              AND,3    XF                GET RID OF FUNNY BITS
     5662   01 01EC6    35301EE8              STW,3    HFINIT1           SAVE SYSTEM NUMBER
     5663   01 01EC7    35401EE9              STW,4    HFINIT2           SAVE PROCESSOR NUMBER
     5664   01 01EC8    32260B6B     HFINITB  LW,2     HADRIX2,3         GET THE REAL ADDRESS
     5665   01 01EC9    32460B7B              LW,4     HADRIX1,3         GET THE PRINTABLE ADDRESS
     5666   01 01ECA    35400BB8              STW,4    HFADDR            AND SAVE IT IF NEEDED
     5667   01 01ECB    22501FC0              LI,5     KMSTART           THIS IS START OF THE KM DATA
     5668   01 01ECC    2260014C              LI,6     KMEND             END OF THE KM DATA
     5669   01 01ECD    12801F0A              LD,8     KMLMTAR           THIS IS FOR LOAD DUMP  CONTROL
     5670   01 01ECE    22000000 A            LI,0     0                 GET A ZERO
     5671   01 01ECF    35001F10              STW,0    HKMEM             TO SHOW A KMEM OP
     5672   01 01ED0    6AF01EEC              BAL,15   HFLOAD            GO DO IT
     5673   01 01ED1    2250210D              LI,5     MCMSTART          MCM DATA
     5674   01 01ED2    226004AC              LI,6     MCMEND            END OF THE MCM DATA
     5675   01 01ED3    12801F0C              LD,8     MCMLMTAR          LOAD/DUMP CONTROL
     5676   01 01ED4    220FFFFF A            LI,0     -1                GRAB SOME ONE'S
     5677   01 01ED5    35001F10              STW,0    HKMEM             TO SHOW A MCM OP
     5678   01 01ED6    6AF01EEC              BAL,15   HFLOAD
     5679   01 01ED7    33F01EE9     HFINITD  MTW,-1   HFINIT2           DECREMENT COUNT
     5680   01 01ED8    33001EE9              MTW,0    HFINIT2           ZERO YET ?
     5681   01 01ED9    68301EDD              BEZ      HFINITC           YEP
     5682   01 01EDA    33101EE8              MTW,1    HFINIT1           BUMP COUNT
     5683   01 01EDB    32301EE8              LW,3     HFINIT1           GET THE INDEX AGAIN
     5684   01 01EDC    68001EC8              B        HFINITB           AND GO AGAIN
     5685   01 01EDD    32501EEB     HFINITC  LW,5     HFINITIX          RESTORE THE INDEX
     5686   01 01EDE    65501EBE              BIR,5    HFINIT+1          FINISH THE JOB
     5687   01 01EDF    33001EEA              MTW,0    INDADDR           DO WE HAVE BOOT DEV ?
     5688   01 01EE0    68301EE3              BEZ      CINIT             B,NO NO REWIND
     5689   01 01EE1    22000F73              LI,0     DA(REWTAPE)       GET THE CDW TO REWIND
     5690   01 01EE2    CC001EEA              SIO,0    *INDADDR          DO IT
     5691   01 01EE3    6D000047 A   CINIT    WD,0     X'0047'           MAKE SUE M. A. IS ON
     5692   01 01EE4    680009BE              B        COREQ             MAKE MEMORY CONF.
     5693                                     BOUND    8
     5694   01 01EE6    33000000 A   REWTAPE  DATA     X'33000000'
     5695   01 01EE7    00000000 A            DATA     0
     5696   01 01EE8    00000000 A   HFINIT1  DATA     0
     5697   01 01EE9    00000000 A   HFINIT2  DATA     0
     5698   01 01EEA    00000000 A   INDADDR  DATA     0                 STORAGE FOR MT ADDR
     5699   01 01EEB    00000000 A   HFINITIX DATA     0
     5700                            *
     5701                            *        R8,R9 = KM OR MCM LOAD DUMP DATA
     5702                            *        R5 = START OF BUFFER
     5703                            *        R6 = SIZE OF BUFFER
     5704                            *        R2 = SYSTEM PROCESSOR ADDRESS
     5705                            *
     5706   01 01EEC                 HFLOAD   RES      0
     5707   01 01EEC    35F00BAC              STW,15   BALRTN            SAVE THE COME FROM ADDRESS
     5708   01 01EED    22000000 A            LI,0     0
     5709   01 01EEE    35001F0E              STW,0    HFLD              MINUS ONE MEANS DUMP
     5710   01 01EEF    35501F41              STW,5    VERSB             AND STORE VERIFY BUFFER ADDR
     5711   01 01EF0    6AE01F69              BAL,14   HSIZE             GET THE SIZE OF THE BUFFERS
     5712   01 01EF1    35601F42              STW,6    VERSIZE           SAVE FOR LATER
     5713   01 01EF2    25600014 A            SLS,6    20                MAKE READY FOR MTR
     5714   01 01EF3    49600005 A            OR,6     5                 MERGE IN THE START
     5715   01 01EF4    ED641F07              WD,6     *WMTR,2           LOAD THE MTR
     5716   01 01EF5    22100000 A            LI,1     0                 CLEAR THE REG
     5717   01 01EF6    ED140008 A            WD,1     *8,2              LOAD MTAR AT LOC 0
     5718   01 01EF7    6AE01F43              BAL,14   HFPAUSE           DELAY FOR LOAD/DUMP TO FINISH
     5719   01 01EF8    220FFFFF A            LI,0     -1                FLAG SETTING
     5720   01 01EF9    35001F0E              STW,0    HFLD              FOR THE DUMP OPERATION
     5721   01 01EFA    32601F42              LW,6     VERSIZE           GET THE BUFFER SIZE
     5722   01 01EFB    25600014 A            SLS,6    20                MOVE IT OVER
     5723   01 01EFC    228025B9     HLOAD2   LI,8     VERBUF            GET TEH STARTING ADDR
     5724   01 01EFD    49600008 A            OR,6     8                 NOW GET THEM TOGETHER
     5725   01 01EFE    ED641F07              WD,6     *WMTR,2           DO IT
     5726   01 01EFF    22800000 A            LI,8     0                 CLEAR THE REG
     5727   01 01F00    ED840009 A            WD,8     *9,2              DUMP THE MEM
     5728   01 01F01    6AE01F43              BAL,14   HFPAUSE           DELAY FOR THE HF AGAIN
     5729   01 01F02    6AE01F12              BAL,14   VERIFY            MAKE SURE THE DATA IS GOOD
     5730   01 01F03    33001F0F              MTW,0    HSIZEOK           ARE WE DONE ?
     5731   01 01F04    E8300BAC              BEZ      *BALRTN           NO GET THE NEXT BLOCK OF DATA
     5732   01 01F05    32601F0F              LW,6     HSIZEOK           GET THE REMAINING BUFFER SIZE
     5733   01 01F06    68001F71              B        HLOAD+1           RETURN
     5734   01 01F07    0000F010 A   WMTR     DATA     X'F010'           WRITE THE MTR
     5735         01 01F07           RMTR     EQU      WMTR              READ THE MTR
     5736   01 01F08    0000F050 A   RMTAR    DATA     X'F050'           READ THE MTAR
     5737                                     BOUND    8
     5738   01 01F0A    0000F020 A   KMLMTAR  DATA     X'F020'           LOAD KM
     5739   01 01F0B    0000F040 A            DATA     X'F040'           DUMP KM
     5740   01 01F0C    0000F030 A   MCMLMTAR DATA     X'F030'           LOAD MCM
     5741   01 01F0D    0000F050 A            DATA     X'F050'           DUMP MCM
     5742   01 01F0E    00000000 A   HFLD     DATA     0                 MINUS ONE MEANS DUMP
     5743   01 01F0F    00000000 A   HSIZEOK  DATA     0
     5744   01 01F10    00000000 A   HKMEM    DATA     0                 MINUS ONE MEANS MCM
     5745   01 01F11    00000000 A   MTRVAL   DATA     0                 CURRENT MTR IS HERE
     5746                            *
     5747                            *        THIS WILL VERIFY MEMORY AFTER A HF DUMP
     5748                            *        R2 = SYTEM AND PROCESSOR ID FOR R/W DIRECT
     5749                            *        R7 = SIZE OF THE BUFFER
     5750                            *        VERSB ---> START OF THE LOAD INFO
     5751                            *
     5752   01 01F12                 VERIFY   RES      0
     5753   01 01F12    35E00BAD              STW,14   BALRTN1           SAVE THE COME FROM
     5754   01 01F13    33F01F42              MTW,-1   VERSIZE           ADJUST COUNT (INCLUDES 0 )
     5755   01 01F14    224025B9              LI,4     VERBUF            GET THE ADDR OF THE VERIFY BUFFER
     5756   01 01F15    35401F40              STW,4    VER1              AND STORE IT
     5757   01 01F16    02200010 A   VERIFY1  LCI      1                 SET THE CC'S
     5758   01 01F17    AD501F40              LMS,5    *VER1             GET THE DATA
     5759   01 01F18    B5501F40              STW,5    *VER1             THE CLEARS ANY P.E.
     5760   01 01F19    69801F21              BCS,8    VERPE             OPPS, HAD ONE
     5761   01 01F1A    B1501F41              CW,5     *VERSB            COMPARE IF EQUAL
     5762   01 01F1B    69301F38              BNE      VERNOT            B, NOT EQUAL
     5763   01 01F1C    33101F40              MTW,1    VER1              INCREMENT ADRESSES
     5764   01 01F1D    33101F41              MTW,1    VERSB             YOU TOO
     5765   01 01F1E    33F01F42              MTW,-1   VERSIZE           DECREMENT THE WORD COUNT
     5766   01 01F1F    69201F16              BGZ      VERIFY1           CONTINUE
     5767   01 01F20    E8000BAD              B        *BALRTN1          RETURN
     5768   01 01F21    04E01F8D     VERPE    MTYPE    VERER1
     5769   01 01F22    22C00002 A   VERPE1   LI,12    2
     5770   01 01F23    32600BB8              LW,6     HFADDR            GET THE HF WHO DID IT
     5771   01 01F24    22707E5F              LI,7     BA(VERER1A)+7     PUT THE ADDR HERE
     5772   01 01F25    6AE00773              BAL,14   TXLATE            DO IT
     5773   01 01F26    04E01F96              MTYPE    VERER1A           TELL HIM
     5774   01 01F27    32601F40              LW,6     VER1              THIS IS THE ADDR OF THE FAILURE
     5775   01 01F28    2560000C A            SLS,6    12                LEFT JUSTIFY
     5776   01 01F29    22C00005 A            LI,12    5                 FOU CHAR ADDR
     5777   01 01F2A    22707E92              LI,7     BA(VERER3)+14     PUT IT HERE
     5778   01 01F2B    6AE00773              BAL,14   TXLATE            DO IT
     5779   01 01F2C    B2601F41              LW,6     *VERSB            S/B DATA
     5780   01 01F2D    22C00008 A            LI,12    8                 DO EIGTH CHARS
     5781   01 01F2E    22707EA8              LI,7     BA(VERER3)+36     PUT IT HERE
     5782   01 01F2F    6AE00773              BAL,14   TXLATE
     5783   01 01F30    32600005 A            LW,6     5                 THIS IS THE BAD DATA
     5784   01 01F31    22C00008 A            LI,12    8                 THIS MANY CHARS
     5785   01 01F32    22707E9B              LI,7     BA(VERER3)+23     PUT IT HERE
     5786   01 01F33    6AE00773              BAL,14   TXLATE            DO IT ONCE MEORE
     5787   01 01F34    04E01FA1              MTYPE    VERER3            FINALLY THE MESSAGE
     5788   01 01F35    04E01F96              MTYPE    VERER1A           PRINT THE ADDRESS AGAIN
     5789   01 01F36    04E01FBC              MTYPE    HFABO             REMIND HIM THAT THE HF IS DEAD
     5790   01 01F37    68001ED7              B        HFINITD           GO BACK AND GET THE NEXT PROCESSOR
     5791   01 01F38    32C01F72     VERNOT   LW,12    HKM               GET THE LOAD WORD
     5792   01 01F39    35C01F9F              STW,12   VERER2+6          AND STORE IT
     5793   01 01F3A    33001F10              MTW,0    HKMEM
     5794   01 01F3B    68301F3E              BEZ      %+3               B,KM
     5795   01 01F3C    32C01F73              LW,12    HMCM              MUST BE MCM THEN
     5796   01 01F3D    35C01F9F              STW,12   VERER2+6          AND PUT IT IN THE MSG
     5797   01 01F3E    04E01F99              MTYPE    VERER2
     5798   01 01F3F    68001F22              B        VERPE1            AND THE CONTENTS
     5799   01 01F40    00000000 A   VER1     DATA     0
     5800   01 01F41    00000000 A   VERSB    DATA     0
     5801   01 01F42    00000000 A   VERSIZE  DATA     0
     5802                            *
     5803                            *        THIS MAKES SURE THE HF IS ACTUALLY DOING A LOAD
     5804                            *        DUMP AND NOT JUST HUNG UP
     5805                            *
     5806   01 01F43                 HFPAUSE  RES      0
     5807   01 01F43    35E00BAD              STW,14   BALRTN1
     5808   01 01F44    32501F11              LW,5     MTRVAL            GET CURRENT MTR
     5809   01 01F45    220FFE0C A            LI,0     -500
     5810   01 01F46    65001F46              BIR,0    %                 (WHISTLE)
     5811   01 01F47    EC441F07              RD,4     *RMTR,2           READ THE MTR
     5812   01 01F48    35401F11              STW,4    MTRVAL            AND SAVE IT
     5813   01 01F49    2540006C A            SLS,4    -20               RIGHT JUSTIFY
     5814   01 01F4A    33000004 A            MTW,0    4                 IS IT ZERO (DONE) ?
     5815   01 01F4B    E8300BAD              BEZ      *BALRTN1          YEA, GO BACK
     5816   01 01F4C    31400005 A            CW,4     5                 DID THE MTR CHANGE
     5817   01 01F4D    68301F50              BE       HFPAUSE1          B, NO WE HAVE APROBLEM
     5818   01 01F4E    35401F11              STW,4    MTRVAL            YEA, SAVE THE CURRENT MTR
     5819   01 01F4F    68001F44              B        HFPAUSE+1         TRY AGAIN
     5820   01 01F50                 HFPAUSE1 RES      0
     5821   01 01F50    32600BB8              LW,6     HFADDR            GET THE SYSTEM NUMBERS
     5822   01 01F51    25600018 A            SLS,6    24                LEFT  JUSTIFY
     5823   01 01F52    22C00002 A            LI,12    2                 2 CHARS TO TXLATE
     5824   01 01F53    22707E5F              LI,7     BA(VERER1A)+7     PUT IT HERE
     5825   01 01F54    6AE00773              BAL,14   TXLATE            GO DO IT
     5826   01 01F55    04E01F96              MTYPE    VERER1A           FIRST THE BAD NEWS
     5827   01 01F56    04E01FBC              MTYPE    HFABO             TELL HF NOT STARTED
     5828   01 01F57    32601F11              LW,6     MTRVAL            GET THE CURRENT MTR
     5829   01 01F58    22C00008 A            LI,12    8                 DO EIGHT CHARS
     5830   01 01F59    22707ED1              LI,7     BA(VERER5)+9      PUT IT HERE
     5831   01 01F5A    6AE00773              BAL,14   TXLATE            DO IT
     5832   01 01F5B    32C01F70              LW,12    HLOAD             ASSUME A LOAD OPERATION
     5833   01 01F5C    35C01FAD              STW,12   VERER4+1          THEN STORE THE LOAD
     5834   01 01F5D    33001F0E              MTW,0    HFLD              LOAD OR DUMP ?
     5835   01 01F5E    68301F61              BEZ      %+3               B,LOAD
     5836   01 01F5F    32C01F71              LW,12    HDUMP             NOPE,MUST BE A DUMP
     5837   01 01F60    35C01FAD              STW,12   VERER4+1          PUT IT DOWN
     5838   01 01F61    04E01FAC              MTYPE    VERER4            TELL THE BAD NEWS
     5839   01 01F62    04E01FB2              MTYPE    VERER5            SOME MORE BAD NEWS
     5840   01 01F63    EC641F08              RD,6     *RMTAR,2          GET MORE INFO
     5841   01 01F64    22C00008 A            LI,12    8                 8 CHARS TO TRANSLATE
     5842   01 01F65    22707EE5              LI,7     BA(VERER5A)+9     PUT IT HERE
     5843   01 01F66    6AE00773              BAL,14   TXLATE            GO DO IT
     5844   01 01F67    04E01FB7              MTYPE    VERER5A           TELL HIM
     5845   01 01F68    68001EDD              B        HFINITC           GET THE NEXT
     5846                            *
     5847                            *        THIS DTERMINES THE SIZE OF THE LOAD DUMP TRANSFER
     5848                            *        R6 = SIZE OF THE OPERATION
     5849                            *
     5850   01 01F69                 HSIZE    RES      0
     5851   01 01F69    22000000 A            LI,0     0                 GRAB A ZERO
     5852   01 01F6A    35001F0F              STW,0    HSIZEOK           ASSUME THAT THE BLOCK SIZE IS OK
     5853   01 01F6B    316007E6              CW,6     XFFF              MORE THAN 1K  WORDS?
     5854   01 01F6C    E820000E A            BLE      *14               B,NO
     5855   01 01F6D    386007E6              SW,6     XFFF              R7 - 4095
     5856   01 01F6E    35601F0F              STW,6    HSIZEOK           SAVE THE REMAINING COUNT
     5857   01 01F6F    E800000E A            B        *14               GO BACK
     5858   01 01F70    D3D6C1C4 A   HLOAD    DATA     C'LOAD'
     5859   01 01F71    C4E4D4D7 A   HDUMP    DATA     C'DUMP'
     5860   01 01F72    D2D44040 A   HKM      DATA     C'KM  '
     5861   01 01F73    D4C3D440 A   HMCM     DATA     C'MCM '
     5862                            *
     5863                            *
     5864         01 01F74           NOLP     TEXTCS   '
*NO ADDRESS RECOGNITION LP 002'
     5865         01 01F7C           NOTONA7  TEXTCS   ' *I AM A SIGMA 9 DIAGNOSTIC.'
        1*        01 01F84           PROGMSG  TEXTCS   TITLE                                             *H01
     5867         01 01F8D           VERER1   TEXTCS   '
*MEMORY P.E. AFTER DUMP OPERATION.'
     5868         01 01F96           VERER1A  TEXTCS   '
* HF XX'
     5869         01 01F99           VERER2   TEXTCS   '
*DATA ERROR FOLLOWING XXXXDUMP'
     5870         01 01FA1           VERER3   TEXTCS   '
*SIGMA ADDR XXXXX IS XXXXXXXX S-B XXXXXXXX'
     5871         01 01FAC           VERER4   TEXTCS   '
* XXXX OPERATION HUNG'
     5872         01 01FB2           VERER5   TEXTCS   '
*MTR = XXXXXXXX'
     5873         01 01FB7           VERER5A  TEXTCS   ' MTAR = XXXXXXXX'
     5874         01 01FBC           HFABO    TEXTCS   ' NOT STARTED'
1 C00   20:35 JUN 20,'83     K-MEMORY DATA                                                        PAGE   23
A    5876         01 01FC0           KMSTART  EQU      %
     5877   01 00000                          LOC      0
            01 01FC0
     5878                            *
     5879                            *
     5880                            *
     5881                            *
     5882   01 00000    00000000 A   KHFID    DATA     0                 SYSTEM AND PROCESSOR ID
     5883   01 00001    00000000 A   KTIC     DATA     0                 TIC IN PROGRESS
     5884   01 00002    00000000 A   KDCFLAG  DATA           0                   DATA CHAIN FLAG
     5885   01 00003    00000000 A   KCCFLAG  DATA     0                 COMMAND CHAIN
     5886   01 00004    00000000 A   KWA      DATA     0                 WORD ADDRESS FOR IOCD
     5887   01 00005    00000000 A   KCURWA   DATA     0                 CURRENT WORD COUNT
     5888   01 00006    00000000 A   KWC      DATA     0                 WORD COUNT FOR IOCD
     5889   01 00007    00000000 A   KIOCD1   DATA     0                 WORD ONE OF IOCD
     5890   01 00008    00000000 A   KIOCD2   DATA     0                 WORD TWO FO IOCD
     5891   01 00009    00000000 A   KFLAGS   DATA     0                 STORAGE FOR FLAGS FROM IOCD
     5892   01 0000A    00000000 A   KORDER   DATA     0                 STORAGE FOR ORDER FROM IOCD
     5893   01 0000B    00000000 A   KDCBUSY  DATA     0                 FLAG FOR IO IN PROGRESS
     5894   01 0000C    00000000 A   KFNCT    DATA     0                 FUNCTION IDENTIFIER
     5895   01 0000D    00000000 A   KCC      DATA     0                 CONDITION CODES
     5896   01 0000E    00000000 A   KCA      DATA     0                 COMMAND ADDRESS(DA)
     5897   01 0000F    00000000 A   KPWC     DATA     0                 WD CNT WITHIN A PAGE
     5898   01 00010    00000000 A   KUNE     DATA           0
     5899   01 00011    00000000 A   KINTVEC  DATA           0
     5900   01 00012    11000000 A   KCCNOAR  DATA     X'11000000'       CC'S MEAND NO AR ON IOCD
     5901   01 00013    00000100 A   KCCBUSY  DATA     X'0100'           PROCESSOR BUSY CC'S
     5902   01 00014    00000010 A   KIO      DATA     X'10'             IO COMMUNICATION CHANNEL
     5903   01 00015    00000011 A   KIOU1    DATA     X'11'             I/O CELL FOR R U 1
     5904   01 00016    00000000 A   KINTSTA  DATA     0                 INTERRUPT STATUS
     5905   01 00017    00000000 A   KINTFLG  DATA     0                 INTERRPUT FLAGS
     5906   01 00018    00000000 A   KOSBYTE  DATA     0                 OPERATIONAL STATUS BYTE
     5907   01 00019    00000300 A   KBUF     DATA     X'300'
     5908   01 0001A    00000000 A   KBC      DATA     0                 CURRENT BYTE COUNT
     5909   01 0001B    00000300 A   KBUFNXT  DATA     X'300'            ADDR OF BUFER IN USE
     5910   01 0001C    00000000 A   KBUFCUR  DATA     0
     5911   01 0001D    00000000 A   KRGNUM   DATA     0                 CURRENT REG GR IN USE
     5912   01 0001E    00000000 A   KDATA    DATA           0                   TEMP STORAGE FOR SIGMA
     5913   01 0001F    00000000 A   KSIGMEM  DATA     0                 (NOT) SIG MEM SIZE
     5914   01 00020    00000000 A   KSIGTEMP DATA     0                 HFS IDEA OF TEMP IN SIGMA
     5915   01 00021    00000BFF A   KMSIZE   DATA     X'BFF'            MAX SIZE OF K MEMORY
     5916   01 00022    FFFFF400 A   KNMSIZE  DATA     X'FFFFF400'       NOT K-MEMORY SIZE
     5917   01 00023    80000000 A   KINTBIT  DATA     X'80000000'       SETS INT PENDING FOR OSB
     5918   01 00024    06000000 A   KUNABIT  DATA     X'06000000'       SETS DEVICE UNAV FOR OSB
     5919   01 00025    10000000 A   KAUTBIT  DATA     X'10000000'       SETS DEVICE AUTO FOR OSB
     5920   01 00026    08000000 A   KUNEBIT  DATA     X'08000000'       SETS UNUSUAL END FOR OSB
     5921   01 00027    60000000 A   KBSYBIT  DATA     X'60000000'       SETS DEVICE AUTO FOR OSB
     5922   01 00028    01000000 A   KDORBIT  DATA     X'01000000'       SETS DATA OVERUN FOR OSB
     5923   01 00029    00200000 A   KMAEBIT  DATA     X'00200000'       SETS MEM ADD ERR FOR OSB
     5924   01 0002A    00000000 A   KSIGADDR DATA     0
     5925   01 0002B    00000000 A   KPROCBIAS DATA    0
     5926   01 0002C    00000200 A   KPAGE    DATA     512               NUMBER OF WORDS
     5927   01 0002D    00000000 A   KPGNO    DATA     0                 PAGE NUMBER
     5928   01 0002E    01000000 A   KPGINC   DATA     X'01000000'       PAGE NUMBER INCREMENT
     5929   01 0002F    00000000 A   KSYSTYPE DATA     0
     5930   01 00030    00000000 A   KSIGMIN  DATA     0
     5931   01 00031    00000000 A   KSIGMAX  DATA     0
     5932   01 00032    00000030 A   KORBIAS  DATA     X'30'             BIAS FOR TRANSFER VECTORS
     5933   01 00033    00000000 A   KFLTIX   DATA     0                 HF FAULT INDEX
     5934   01 00034    12344321 A   KFILLER  DATA     X'12344321'
     5935   01 00035    00000000 A   KOVRUN   DATA     0
     5936   01 00036    00000000 A   KSPADDR  DATA     0
     5937   01 00037    00000000 A   KMTCYCL  DATA     0
     5938   01 00038    78100000 A   KWCR0    DATA     X'78100000'
     5939   01 00039    30000000 A   KRDIOD   DATA     X'30000000'         READ DIO REGISTER
     5940   01 0003A    79100000 A   KWCR1    DATA     X'79100000'
     5941   01 0003B    7A100000 A   KWCR2    DATA     X'7A100000'
     5942   01 0003C    78100203 A   KWCR0B3  DATA     X'78100203'               CR0 BYTE 3
     5943   01 0003D    7B100000 A   KWCR3    DATA     X'7B100000'
     5944   01 0003E    78000000 A   KRCR0    DATA     X'78000000'
     5945   01 0003F    79000000 A   KRCR1    DATA     X'79000000'
     5946   01 00040    7A000000 A   KRCR2    DATA     X'7A000000'
     5947   01 00041    7B000000 A   KRCR3    DATA     X'7B000000'
     5948   01 00042    000FFFFF A   KCRONES  DATA     X'000FFFFF'
     5949   01 00043    01234567 A   KX0T7    DATA     X'01234567'
     5950   01 00044    FEDCBA98 A   KXFT8    DATA     X'FEDCBA98'
     5951   01 00045    AAAAAAAA A   KXATA    DATA     X'AAAAAAAA'
     5952   01 00046    00000047     KAD1T1   DATA     KX1T1
     5953   01 00047    11111111 A   KX1T1    DATA     X'11111111'
     5954   01 00048    22222222 A   KX2T2    DATA     X'22222222'
     5955   01 00049    44444444 A   KX4T4    DATA     X'44444444'
     5956   01 0004A    55555555 A   KX5T5    DATA     X'55555555'
     5957   01 0004B    88888888 A   KX8T8    DATA     X'88888888'
     5958   01 0004C    00000000 A   KX0      DATA     0
     5959   01 0004D    000FFFFF A   KARONES  DATA     X'000FFFFF'
     5960   01 0004E    00000F07 A   KCR0ONES DATA     X'00000F07'
     5961   01 0004F    00077F3F A   KCR3ONES DATA     X'00077F3F'
     5962   01 00050    74100000 A   KWDR0    DATA     X'74100000'
     5963   01 00051    75100000 A   KWDR1    DATA     X'75100000'
     5964   01 00052    76100000 A   KWDR2    DATA     X'76100000'
     5965   01 00053    77100000 A   KWDR3    DATA     X'77100000'
     5966   01 00054    74000000 A   KRDR0    DATA     X'74000000'
     5967   01 00055    75000000 A   KRDR1    DATA     X'75000000'
     5968   01 00056    76000000 A   KRDR2    DATA     X'76000000'
     5969   01 00057    77000000 A   KRDR3    DATA     X'77000000'
     5970   01 00058    78100000 A   KWCR0WL  DATA     X'78100000'
     5971   01 00059    79100000 A   KWCR1WL  DATA     X'79100000'
     5972   01 0005A    7A100000 A   KWCR2WL  DATA     X'7A100000'
     5973   01 0005B    7B100000 A   KWCR3WL  DATA     X'7B100000'
     5974   01 0005C    70100000 A   KWAR0    DATA     X'70100000'
     5975   01 0005D    71100000 A   KWAR1    DATA     X'71100000'
     5976   01 0005E    72100000 A   KWAR2    DATA     X'72100000'
     5977   01 0005F    73100000 A   KWAR3    DATA     X'73100000'
     5978   01 00060    70000000 A   KRAR0    DATA     X'70000000'
     5979   01 00061    71000000 A   KRAR1    DATA     X'71000000'
     5980   01 00062    72000000 A   KRAR2    DATA     X'72000000'
     5981   01 00063    73000000 A   KRAR3    DATA     X'73000000'
     5982   01 00064    00000065     KTBLHL   DATA     KTBLHL1
     5983   01 00065    00000123 A   KTBLHL1  DATA     X'00000123'
     5984   01 00066    00004567 A            DATA     X'00004567'
     5985   01 00067    00000068     KTBLHR   DATA     KTBLHR1
     5986   01 00068    00004567 A   KTBLHR1  DATA     X'00004567'
     5987   01 00069    00000123 A            DATA     X'00000123'
     5988   01 0006A    0000006B     KTBLBL   DATA     KTBLBL1
     5989   01 0006B    00000001 A   KTBLBL1  DATA     X'00000001'
     5990   01 0006C    00000023 A            DATA     X'00000023'
     5991   01 0006D    00000045 A            DATA     X'00000045'
     5992   01 0006E    00000067 A            DATA     X'00000067'
     5993   01 0006F    00000070     KTBLBR   DATA     KTBLBR1
     5994   01 00070    00000067 A   KTBLBR1  DATA     X'00000067'
     5995   01 00071    00000045 A            DATA     X'00000045'
     5996   01 00072    00000023 A            DATA     X'00000023'
     5997   01 00073    00000001 A            DATA     X'00000001'
     5998   01 00074    00000075     KTBLDL   DATA     KTBLDL1
     5999   01 00075    00000000 A   KTBLDL1  DATA     X'00000000'
     6000   01 00076    00000001 A            DATA     X'00000001'
     6001   01 00077    00000002 A            DATA     X'00000002'
     6002   01 00078    00000003 A            DATA     X'00000003'
     6003   01 00079    00000004 A            DATA     X'00000004'
     6004   01 0007A    00000005 A            DATA     X'00000005'
     6005   01 0007B    00000006 A            DATA     X'00000006'
     6006   01 0007C    00000007 A            DATA     X'00000007'
     6007   01 0007D    0000007E     KTBLDR   DATA     KTBLDR1
     6008   01 0007E    00000007 A   KTBLDR1  DATA     X'00000007'
     6009   01 0007F    00000006 A            DATA     X'00000006'
     6010   01 00080    00000005 A            DATA     X'00000005'
     6011   01 00081    00000004 A            DATA     X'00000004'
     6012   01 00082    00000003 A            DATA     X'00000003'
     6013   01 00083    00000002 A            DATA     X'00000002'
     6014   01 00084    00000001 A            DATA     X'00000001'
     6015   01 00085    00000000 A            DATA     X'00000000'
     6016   01 00086    00000001 A   KX1      DATA     1
     6017   01 00087    FFFFFFFF A   KXM1     DATA     -1
     6018   01 00088    00000002 A   K2       DATA     2
     6019   01 00089    FFFFFFFE A   KM2      DATA     -2
     6020   01 0008A    00000003 A   K3       DATA     3
     6021   01 0008B    FFFFFFFD A   KM3      DATA     -3
     6022   01 0008C    00000004 A   K4       DATA     4
     6023   01 0008D    FFFFFFFC A   KM4      DATA     -4
     6024   01 0008E    00000005 A   K5       DATA     5
     6025   01 0008F    FFFFFFFB A   KM5      DATA     -5
     6026   01 00090    00000006 A   K6       DATA     6
     6027   01 00091    FFFFFFFA A   KM6      DATA     -6
     6028   01 00092    00000007 A   K7       DATA     7
     6029   01 00093    FFFFFFF9 A   KM7      DATA     -7
     6030   01 00094    00000008 A   K8       DATA     8
     6031   01 00095    FFFFFFF8 A   KM8      DATA     -8
     6032   01 00096    FFFFFFF0 A   KM16     DATA     -16
     6033   01 00097    FFFFFFE1 A   KM31     DATA     -31
     6034   01 00098    FFFFFFD8 A   KM40     DATA     -40
     6035   01 00099    00000200 A   K512     DATA     X'200'            2048 BYTE COUNT
     6036   01 0009A    FFFFFE00 A   KM512    DATA     -512
     6037   01 0009B    00FFFFFF A   KX00FF   DATA     X'00FFFFFF'
     6038   01 0009C    78100200 A   KWCR0HW  DATA     X'78100200'         CONTROL REGISTER 0 HALW WORD
     6039   01 0009D    78100500 A   KWCR0HR  DATA     X'78100500'
     6040   01 0009E    78100200 A   KWCR0BL  DATA     X'78100200'
     6041   01 0009F    78100600 A   KWCR0BR  DATA     X'78100600'
     6042   01 000A0    78100300 A   KWCR0DL  DATA     X'78100300'
     6043   01 000A1    78100700 A   KWCR0DR  DATA     X'78100700'
     6044   01 000A2    00000300 A   KCRLD    DATA     X'00000300'
     6045   01 000A3    74200000 A   KRDR0AR  DATA     X'74200000'
     6046   01 000A4    01000000 A   KX1000000 DATA    X'01000000'
     6047   01 000A5    01010101 A   KX01010101 DATA   X'01010101'
     6048   01 000A6    10000000 A   KCCUNE   DATA     X'10000000'
     6049   01 000A7    7B100400 A   KWCR3WR  DATA     X'7B100400'
     6050   01 000A8    7B100100 A   KWCR3HL  DATA     X'7B100100'
     6051   01 000A9    7B100500 A   KWCR3HR  DATA     X'7B100500'
     6052   01 000AA    7B100200 A   KWCR3BL  DATA     X'7B100200'
     6053   01 000AB    7B100600 A   KWCR3BR  DATA     X'7B100600'
     6054   01 000AC    7B100300 A   KWCR3DL  DATA     X'7B100300'
     6055   01 000AD    7B100700 A   KWCR3DR  DATA     X'7B100700'
     6056   01 000AE    77200000 A   KRDR3AR  DATA     X'77200000'
     6057   01 000AF    77300000 A   KWDR3AR  DATA     X'77300000'
     6058   01 000B0    0000000F A   K15      DATA     15
     6059   01 000B1    00000010 A   K16      DATA     16
     6060   01 000B2    0000001F A   K31      DATA     31
     6061   01 000B3    00000020 A   K32      DATA     32
     6062   01 000B4    0000003F A   K63      DATA     63
     6063   01 000B5    00000040 A   K64      DATA     64
     6064   01 000B6    0000FFFF A   KXFFFF   DATA     X'0000FFFF'
     6065   01 000B7    000000FF A   KXFF     DATA     X'000000FF'
     6066   01 000B8    0000000C A   KXC      DATA     X'0000000C'
     6067   01 000B9    0000000A A   KA       DATA     X'0000000A'
     6068   01 000BA    0000000F A   KXF      DATA     X'0000000F'
     6069   01 000BB    81234567 A   KX8T7    DATA     X'81234567'
     6070   01 000BC    70500000 A   KWAR0W   DATA     X'70500000'
     6071   01 000BD    70900000 A   KWAR0R   DATA     X'70900000'
     6072   01 000BE    72500000 A   KWAR2W   DATA     X'72500000'
     6073   01 000BF    70D00000 A   KWAR0LS  DATA     X'70D00000'
     6074   01 000C0    FFFFF401 A   KXM3K    DATA     -3071
     6075   01 000C1    78100800 A   KWCR0WD  DATA     X'78100800'
     6076   01 000C2    7B170000 A   KWCR3T1  DATA     X'7B170000'
     6077   01 000C3    7B170800 A   KWCR3T2  DATA     X'7B170800'
     6078   01 000C4    73500000 A   KWAR3W   DATA     X'73500000'
     6079   01 000C5    73900000 A   KWAR3R   DATA     X'73900000'
     6080   01 000C6    00000000 A   KTEMP    DATA     0
     6081         01 0004A           KX55555555 EQU          KX5T5
     6082         01 00045           KXAAAAAAAA EQU          KXATA
     6083   01 000C7    00400000 A   KXB9     DATA           X'00400000'
     6084   01 000C8    00200000 A   KXB10    DATA           X'00200000'
     6085   01 000C9    87100000 A   KDWPSR   GEN,3,5,4,20   4,7,1,0             WRITE PSR REGISTER
     6086   01 000CA    94000000 A   KDRPSR   GEN,3,5,24     4,X'14',0           READ PSR REGISTER
     6087   01 000CB    00008000 A   KX00008  DATA           X'00008000'
     6088   01 000CC    00005555 A   KX5555   DATA           X'00005555'
     6089   01 000CD    0000AAAA A   KXAAAA   DATA           X'0000AAAA'
     6090   01 000CE    00000200 A   KX200    DATA           X'200'
     6091   01 000CF    00800000 A   KX2000   DATA           X'00800000'
     6092   01 000D0    80000000 A   KX8000   DATA           X'80000000'
     6093   01 000D1    08000000 A   KX0800   DATA           X'08000000'
     6094   01 000D2    FFFFFFF5 A   KDM11    DATA           -11
     6095   01 000D3    000002AA A   KX2AA    DATA           X'000002AA'
     6096   01 000D4    00000155 A   KX155    DATA           X'00000155'
     6097   01 000D5    000003FF A   KX3FF    DATA           X'000003FF'
     6098   01 000D6    80000001 A   KX80000001 DATA         X'80000001'
     6099   01 000D7    AAAAAAAB A   KXAAAAAAAB DATA         X'AAAAAAAB'
     6100   01 000D8    D5555556 A   KXD5555556 DATA         X'D5555556'
     6101   01 000D9    7FFFFFFE A   KX7FFFFFFE DATA         X'7FFFFFFE'
     6102   01 000DA    C0000001 A   KXC0000001 DATA         X'C0000001'
     6103   01 000DB    3FFFFFFF A   KX3FFFFFFF DATA         X'3FFFFFFF'
     6104   01 000DC    C399F974 A   KXC399F974 DATA         X'C399F974'
     6105   01 000DD    3466068C A   KX3466068C DATA         X'3466068C'
     6106   01 000DE    FF15FFE3 A   KXFF15FFE3 DATA         X'FF15FFE3'
     6107   01 000DF    00EA001D A   KX00EA001D DATA         X'00EA001D'
     6108   01 000E0    68260D04 A   KX68260D04 DATA         X'68260D04'
     6109   01 000E1    51981A33 A   KX51981A33 DATA         X'51981A33'
     6110   01 000E2    01D4003A A   KX01D4003A DATA         X'01D4003A'
     6111   01 000E3    68CC0D19 A   KXGEN    DATA           X'68CC0D19'
     6112   01 000E4    9733F2E7 A   KXMGEN   DATA           -X'68CC0D19'
     6113   01 000E5    000000F0 A   KXF0     DATA           X'F0'
     6114   01 000E6    00200000 A   KX200000 DATA           X'200000'
     6115   01 000E7    00000100 A   KXB23    DATA           X'00000100'
     6116   01 000E8    40000000 A   KXB1     DATA           X'40000000'
     6117   01 000E9    00800000 A   KXB8     DATA           X'00800000'
     6118   01 000EA    00010000 A   KXB15    DATA           X'00010000'
     6119   01 000EB    00000010 A   KXB27    DATA           X'00000010'
     6120   01 000EC    FFFFFFF8 A   KDM8     DATA           -8
     6121   01 000ED    FFFFFFF7 A   KDM9     DATA           -9
     6122         01 000ED           KM9      EQU      KDM9
     6123   01 000EE    FFFFFFF9 A   KDM7     DATA           -7
     6124   01 000EF    FFFFFFEC A   KDM20    DATA           -20
     6125   01 000F0    FFFFFF75 A   KDM139   DATA           -139
     6126   01 000F1    FFFFF802 A   KDM2K    DATA           -2046
     6127   01 000F2    FFFFF402 A   KDM3K    DATA           -3070
     6128                            *
     6129                            *
     6130   01 000F3    00000000 A   KTEMP2   DATA           0
     6131   01 000F4    00000000 A   KTEMPA   DATA           0
     6132   01 000F5    00000000 A   KTEMP1   DATA           0
     6133   01 000F6    00000000 A   KINTSTAT1 DATA          0
     6134   01 000F7    00000000 A   KINTSTAT2 DATA          0
     6135   01 000F8    00000000 A   KINTFLG1 DATA           0
     6136   01 000F9    00000000 A   KINTFLG2 DATA           0
     6137   01 000FA    000000FB     KTBLDM2P DATA           KTBLDM2
     6138   01 000FB    00008000 A   KTBLDM2  DATA           X'8000',X'4000',X'2000',X'1000'
            01 000FC    00004000 A
            01 000FD    00002000 A
            01 000FE    00001000 A
     6139   01 000FF    00000800 A            DATA           X'800',X'400',X'200',X'100'
            01 00100    00000400 A
            01 00101    00000200 A
            01 00102    00000100 A
     6140   01 00103    00008000 A   KXB16    DATA           X'8000'
     6141   01 00104    FFFFFFF9 A   KXM7     DATA           -7
     6142   01 00105    FFFFFFF8 A   KXM8     DATA           -8
     6143   01 00106    00000010 A   KX10     DATA           X'10'
     6144   01 00107    00000020 A   KX20     DATA           X'20'
     6145   01 00108    00000003 A   KX3      DATA           3
     6146   01 00109    00004000 A   K16K     DATA     X'4000'           16K WORDS
     6147   01 0010A    8733F2E7 A   KXM78CC0D19 DATA        -X'78CC0D19'
     6148   01 0010B    CB99F974 A   KXCB99F974 DATA         X'CB99F974'
     6149   01 0010C    FFFFFFF6 A   KM5US    DATA           -10
     6150   01 0010D    FFFFF060 A   KM2MS    DATA           -4000
     6151   01 0010E    7FFFFFFF A   KX7FFFFFFF DATA         X'7FFFFFFF'
     6152   01 0010F    FFFFE000 A   KXFFFFE000 DATA         X'FFFFE000'
     6153   01 00110    20000000 A   KXB2     DATA           X'20000000'
     6154   01 00111    D1981A32 A   KXGENX   DATA           X'D1981A32'
     6155   01 00112    FFFFFFED A   KDM19    DATA           -19
     6156   01 00113    FFFFF000 A   KXFFFFF000 DATA         X'FFFFF000'
     6157   01 00114    FFFFFFE0 A   KM32     DATA           -32
     6158   01 00115    FFFFFF77 A   KDM137   DATA           -137
     6159   01 00116    7DC2094F A   KFIFOP   DATA           X'7DC2094F'
     6160   01 00117    00000000 A   KMITCYCL DATA           0
     6161   01 00118    FFFFFF00 A   KM256    DATA           -256
     6162   01 00119    FFFE0001 A   KM128K   DATA           X'FFFE0001'
     6163   01 0011A    71900000 A   KWAR1R   DATA           X'71900000'
     6164   01 0011B    72900000 A   KWAR2R   DATA           X'72900000'
     6165   01 0011C    75200000 A   KRDR1AR  DATA           X'75200000'
     6166   01 0011D    76200000 A   KRDR2AR  DATA           X'76200000'
     6167   01 0011E    35485319 A   KRAND    DATA           X'35485319'
     6168   01 0011F    65839254 A   KBIAS    DATA           X'65839254'
     6169   01 00120    8144270D A   KBIAS1   DATA           X'8144270D'
     6170   01 00121    EF331972 A   KBIAS2   DATA           X'EF331972'
     6171   01 00122    69CCD45A A   KRAND1   DATA           X'69CCD45A'
     6172   01 00123    FFFFFF00 A   KMITCYCL2 DATA          -256
     6173   01 00124    00000000 A   KSIGMASK DATA           0
     6174   01 00125    00FFFFFF A   KXFFFFFF DATA           X'FFFFFF'
     6175   01 00126    03000000 A   KX3000000 DATA          X'3000000'
     6176   01 00127    00000000 A   KRGP     DATA           0
     6177   01 00128    FFFFFFFD A   KXM3     DATA           -3
     6178   01 00129    0000012A     KRASLOC  DATA     KMLOC
     6179         01 0012A           KMLOC    EQU            %
     6180   01 0012A    00000000 A   KRASB40  DATA     0
     6181   01 0012B    00000000 A   KRAS0    DATA     0
     6182   01 0012C    00000000 A   KRAS1    DATA     0
     6183   01 0012D    00000000 A   KRAS2    DATA     0
     6184   01 0012E    00000000 A   KRAS3    DATA     0
     6185   01 0012F    00000000 A   KRAS4    DATA     0
     6186   01 00130    00000000 A   KRAS5    DATA     0
     6187   01 00131    00000000 A   KRAS6    DATA     0
     6188   01 00132    00000000 A   KRAS7    DATA     0
     6189   01 00133    00000000 A   KRAS8    DATA     0
     6190   01 00134    00000000 A   KRASB49  DATA     0
     6191   01 00135    00000000 A   KRAS9    DATA     0
     6192   01 00136    00000000 A   KRAS10   DATA     0
     6193   01 00137    00000000 A   KRAS11   DATA     0
     6194   01 00138    00000000 A   KRAS12   DATA     0
     6195   01 00139    00000000 A   KRAS13   DATA     0
     6196   01 0013A    00000000 A   KRAS14   DATA     0
     6197   01 0013B    00000000 A   KRAS15   DATA     0
     6198   01 0013C    00000000 A   KRAS16   DATA     0
     6199   01 0013D    00000000 A   KRAS17   DATA     0
     6200   01 0013E    00000000 A   KRAS18   DATA     0
     6201   01 0013F    00000000 A   KRAS19   DATA     0
     6202   01 00140    00000000 A   KRAS20   DATA     0
     6203   01 00141    00000000 A   KRAS21   DATA     0
     6204   01 00142    00000000 A   KRAS22   DATA     0
     6205   01 00143    00000000 A   KRAS23   DATA     0
     6206   01 00144    00000000 A   KRAS24   DATA     0
     6207   01 00145    00000000 A   KRAS25   DATA     0
     6208   01 00146    00000000 A   KRAS26   DATA     0
     6209   01 00147    00000000 A   KRAS27   DATA     0
     6210   01 00148    00000000 A   KRAS28   DATA     0
     6211   01 00149    00000000 A   KRAS29   DATA     0
     6212   01 0014A    00000000 A   KRAS30   DATA     0
     6213   01 0014B    00000000 A   KRAS31   DATA     0
     6214   01 0014C    00000000 A   KMEND    DATA     0     %
     6215                            *
     6216   01 0210D                          ORG      %%
            01 0210D
     6217         01 0210D           KEND     EQU      %%
1 C00   20:35 JUN 20,'83     BASIC INSTRUCTION PROC                                               PAGE   24
A    6219                            *
     6220                            *        BASIC INSTRUCTION PROC             S:HFPROC
     6221                            *
     6222                            *        FORMAT
     6223                            *        LABEL   CPE MNEM,REG[,K-MEM CONSTANT]   [MCU PARAMETERS]
     6224                            *
     6225                            *        CNAME PARAMETER FORMAT
     6226                            *MNEM    CNAME          CPE FUN GRP,CPE REG GRP,KMC,CI,REQ MCU PAR
     6227                                     OPEN     NOP,MMC,LAD,AND
     6228         00000003           AAR      CNAME          3,RG1,KM1,FF0       R=A&K+R+CI
     6229                        *S* ACM      CNAME          0,RG2,K0,FF0        AT=M+CI
     6230                        *S* ACR      CNAME          3,RG1,K0,FF0        R=R+CI
     6231                        *S* ADA      CNAME          3,RG3,KM1,FF0,3**14 AT=D&K+AT+CI
     6232         00000000           ALR      CNAME          0,RG1,KM1,FF0       A=R=A&K+R+CI
     6233         00000000           AMA      CNAME          0,RG2,KM1,FF0       AT=M+A+CI
     6234                        *S* AND      CNAME          4,RG3,KM1,FF0,3**14 AT=D&A&K, CO=CI[(D&A&K)
     6235         00000004           ANM      CNAME          4,RG2,KM1,FF0       AT=M&A, CO=CI[(M&A)
     6236                        *S* ANR      CNAME          4,RG1,KM1,FF0       R=R&A&K, CO=CI[(R&A&K)
     6237                        *S* CAC      CNAME          1,RG3,K0,FF0        AT=]AT+CI
     6238         00000001           CIA      CNAME          1,RG3,K0,FF1+FFI    AT=-AT
     6239         00000004           CLF      CNAME          4,RG1,K0,FF0        R=0, CO=CI
     6240                        *S* CPF      CNAME          7,RG1,K0,FF0        R=]R, CO=CI
     6241         00000002           CSR      CNAME          2,RG1,K0,FF0        R=CI-1
     6242                        *S* DCA      CNAME          1,RG3,KM1,FF0+FFI   AT=AT-1
     6243         00000001           DCR      CNAME          1,RG1,KM1,FF0+FFI   MAR=-1, R=R-1
     6244                        *S* ILR      CNAME          0,RG1,K0,FF1+FFI    A=R=R+1
     6245         00000003           INR      CNAME          3,RG1,K0,FF1+FFI    R=R+1
     6246         00000002           LAD      CNAME          2,RG3,KM1,FF1+FFI,3**14 AT=D&K
     6247                        *S* LCM      CNAME          7,RG2,K0,FF0        AT=]M, CO=CI
     6248                        *S* LDD      CNAME          2,RG3,KM1,FF0,3**14 AT=D&K-1+CI
     6249                        *S* LDM      CNAME          1,RG2,KM1,FF0+FFI   MAR=-1, AT=M-1
     6250         00000006           LMF      CNAME          6,RG2,K0,FF0        AT=M,CO=CI
     6251         00000005           LTM      CNAME          5,RG2,KM1,FF0       AT=M, CO=CI[M
     6252         00000001           MKR      CNAME          1,RG1,KM1,FF0       MAR=R[K, R=R+K+CI
     6253         00000001           MMC      CNAME          1,RG2,K0,FF0        MAR=M, AT=M+CI
     6254         00000001           MRC      CNAME          1,RG1,K0,FF0        MAR=R, R=R+CI
     6255         00000006           NOP      CNAME          6,RG1,K0,FF0        R=R, CO=CI
     6256                        *S* ORD      CNAME          6,RG3,KM1,FF0,3**14 AT=A[(D&K), CO=CI[(D&K)
     6257         00000006           ORM      CNAME          6,RG2,KM1,FF0       AT=M[A, CO=CI[A
     6258         00000006           ORR      CNAME          6,RG1,KM1,FF0       R=R[(A&K), CO=CI[(A&K)
     6259         00000000           SRA      CNAME          0,RG3,K0,FF0        AT=AT/2
     6260         00000006           STO      CNAME          6,RG1,KW,FF0        R=R, KM=D, CO=CI
     6261         00000002           STR      CNAME          2,RG1,K0,FF0+FFI    R=-1
     6262         00000002           TAR      CNAME          2,RG1,KM1,FF1+FFI   R=A&K
     6263                        *S* TDR      CNAME          2,RG1,KM1,FF0       R=A&K-1+CI
     6264         00000000           TRA      CNAME          0,RG1,K0,FF0+FFI    A=R
     6265         00000005           TZR      CNAME          5,RG1,KM1,FF0+FFI   R=R&K, CO=CI[(R&K)
     6266                        *S* XND      CNAME          7,RG3,KM1,FF0,3**14 AT=A][[(D&K), CO=CI[(D&A&K)
     6267                        *S* XNM      CNAME          7,RG2,KM1,FF0       AT=M][[A, CO=CI[(A&M)
     6268                        *S* XNR      CNAME          7,RG1,KM1,FF0       R=R][[(A&K), CO=CI[(A&K&R)
     6269                                     PROC
     6270                                     LOCAL          REG,FI,FO,MCU,P,K,MCMA
     6271                                     LOCAL          XEA,XIO,XKF,XN,XM,XED
     6272                            XN       EQU            NUM(AF)+1           NULL PARAMETER VALUE
     6273                            XKF      EQU      TCOR(CF(3),S:RAD)
     6274                            XM       EQU            NAME(2)=RG2         M-BUS INSTRUCTION
     6275                            REG      SET            SCOR(CF(2),T,A)
     6276                                     DO             REG=0
     6277                            REG        SET          SCOR(CF(2),R0,R1,R2,R3,R4,R5,R6,R7,R8,R9)
     6278                                       ERROR,1,(REG=0)[(NAME(2)]=RG1) ;
     6279                                       'INVALID REGISTER'
     6280                                       ELSE
     6281                            REG        SET          REG+NAME(2)
     6282                                     FIN
     6283                            *        SET DEFAULT FIELDS
     6284                            FO       SET            NAME(4)&3
     6285                            FI       SET            HCZ-8
     6286                            MCU      SET            IPC
     6287                            *        SCAN FOR KEYS
     6288                            P        SET            S:KEYS(2,16,IO,EA,20,ED,CC,25,CE,RS,*27,M,CI,;
     6289                                                    CO,KC,TP)
     6290                            *        P(1) = HIT COUNT; P(2) = PRESENCE FLAG WORD
     6291                            *        P(3) = MCU PARAMETER NBR; P(4) = CI PARAMETER NBR
     6292                            *        P(5) = CO PARAMETER NBR; P(6) = KC PARAMETER NBR
     6293                            *        P(7) = TP PARAMETER NBR
     6294                            P(2)     SET            P(2)[NAME(5)
     6295                            XEA      EQU            (P(2)&1**14)]=0     EA SPECIFIED
     6296                            XED      EQU            (P(2)&1**11)]=0     ED SPECIFIED
     6297                            XIO      EQU            (P(2)&1**15)]=0     IO SPECIFIED
     6298                                     DO             P(6)=XN             DO IF KC NOT SPECIFIED
     6299                            K          SET          NAME(3)
     6300                                       DO1          (K=KM1)&((XEA&]XIO)[XKF)&]XM  USE K-MEM ?
     6301                            K            SET        KR                  YES.
     6302                                       ELSE
     6303                            K          SET          AF(P(6),2)
     6304                                       DO           K=KW
     6305                                         ERROR,1,(NAME(3)]=K0)[XM ;
     6306                                         'KC CONFLICT'
     6307                                       FIN
     6308                                     FIN
     6309                                     ERROR,1,((K=K0)[(K=KM1))&]XM&(XKF[(XEA&]XIO)) ;
     6310                                     'K-MEMORY CONSTANT UNUSED'
     6311                                     ERROR,1,XKF&(XEA&]XIO) ;
     6312                                     'K-MEMORY ADDRESS CONFLICT (A-BUS AND INSTR)'
     6313                                     DO             (P(2)&X'1C')]=0
     6314                                       DO           P(3)]=XN            MCU FUN SPECIFIED ?
     6315                            MCU          SET        AF(P(3),2)
     6316                                         ERROR,1,(((P(2)&X'60')]=0)[(P(7)]=XN))&(MCU(1)]=IPC(1)) ;
     6317                                         'MCMA FIELD CONFLICT'
     6318                                       FIN
     6319                                       DO           P(4)]=XN            CI SPECIFIED ?
     6320                                         ERROR,1,NAME(4)=4  ;
     6321                                         'CI IMPLICT IN COMMAND'
     6322                            FO           SET        AF(P(4),2)
     6323                                       ERROR,1,FO>=4 ;
     6324                                       'ILLEGAL CI'
     6325                                         FIN
     6326                                       DO           P(5)]=XN            CO SPECIFIED ?
     6327                            FI           SET        AF(P(5),2)
     6328                                       ERROR,1,(FI<8)[(FI>11)  ;
     6329                                       'ILLEGAL CO'
     6330                            FI         SET          FI-8
     6331                                       FIN
     6332                                     FIN
     6333                            MCMA SET S:UFV(DA(AF(P(3),3)))+AF(P(7),2)+(P(2)&X'60')**7
     6334                            LF       GEN,3,3,2,2,14,5,11,1,3,4     ;
     6335                                     MCU,FI,FO,MCMA,K**1+P(2)**-11,CF(3),;
     6336                                     P(2)**-10&1,NAME(1),REG-1
     6337                                     LIST           0
     6338                                     DATA,2         0
     6339                                     LIST           1
     6340                                     PEND
     6341                            *
     6342                            *        HF32A MCU INSTRUCTION DEFINITIONS  S:HFDEF
     6343                            *
     6344                            *        REGISTER GROUP BIAS
     6345         0000000C           RG1      EQU            12
     6346         0000000A           RG2      EQU            10
     6347         0000000E           RG3      EQU            14
     6348                            *        K-CONTROL
     6349         00000000           K0       EQU            0                   K BUS =0
     6350         00000001           KR       EQU            1                   K BUS =K MEM
     6351         00000002           KW       EQU            2                   K BUS =0, WRITE K MEM
     6352         00000003           KM1      EQU            3                   K BUS =-1
     6353                            *        CONDITION CODES
     6354         00000001           C        EQU            1                   TEST C FLAG
     6355         00000002           Z        EQU            2                   TEST Z FLAG
     6356         00000004           E        EQU            4                   TEST E FLAG
     6357                            *        MCU OP CODES
     6358         LIST               WAT      EQU            0,0                 WAIT
     6359         LIST               IPC      EQU            1,0                 INCREMENT PROGRAM COUNTER
     6360         LIST               BU       EQU            2,0                 BRANCH UNCONDITIONAL
     6361         LIST               BCS      EQU            3,C                 BRANCH C-FLAG SET
     6362         LIST               BCR      EQU            4,C                 BRANCH C-FLAG RESET
     6363         LIST               BZS      EQU            3,Z                 BRANCH Z-FLAG SET
     6364         LIST               BZR      EQU            4,Z                 BRANCH Z-FLAG RESET
     6365         LIST               BES      EQU            3,E                 BRANCH E-FLAG SET
     6366         LIST               BER      EQU            4,E                 BRANCH E-FLAG RESET
     6367         LIST               BCZS     EQU            3,C+Z               BRANCH C+Z-FLAG SET
     6368         LIST               BCZR     EQU            4,C+Z               BRANCH C&Z-FLAG RESET
     6369         LIST               BAL      EQU            5,0                 BRANCH AND LINK
     6370         LIST               RET      EQU            6,0                 RETURN
     6371         LIST               AEA      EQU            7,0                 ACCEPT EXTERNAL ADDRESS
     6372                            *        FLAG OUT STATES
     6373         00000000           FF0      EQU            0                   CI=0
     6374         00000001           FFC      EQU            1                   CI=C
     6375         00000002           FFZ      EQU            2                   CI=Z
     6376         00000003           FF1      EQU            3                   CI=1
     6377         00000004           FFI      EQU            4                   FLAG OUT INHIBIT(PROC)
     6378                            *        FLAG IN STATES
     6379         00000008           SCZ      EQU            8                   C=Z=CO
     6380         00000009           STZ      EQU            9                   Z=CO
     6381         0000000A           STC      EQU            X'A'                C=CO
     6382         0000000B           HCZ      EQU            X'B'                HOLD C AND Z
     6383                            *
     6384                            *        DEFINE STANDARD PROCS              S-STDDEF
     6385                            *
     6386                            *        MACRO PROCS
     6387                            *
     6388                            *        SHIFT RIGHT LOGICAL
     6389                            *          FORMAT:      SRL,AT,NBR    MCU PAR
     6390         00000000           SRL      CNAME
     6391                                     PROC
     6392                            LF       RES            0
     6393                                     DO             CF(3)-1
     6394                                     SRA,CF(2)
     6395                                     LIST           0
     6396                                     FIN
     6397                                     SRA,CF(2)      AF
     6398                                     LIST           1
     6399                                     PEND
     6400                            *
     6401                            *        SHIFT LEFT LOGICAL
     6402                            *          FORMAT:      SLL,REG,NBR    MCU PAR
     6403         00000000           SLL      CNAME
     6404                                     PROC
     6405                            LF       RES            0
     6406                                     DO             SCOR(CF(2),A)
     6407                                       DO           CF(3)-1
     6408                                         AAR,A
     6409                                         LIST       0
     6410                                         FIN
     6411                                       AAR,A        AF
     6412                                       LIST         1
     6413                                       ELSE
     6414                                       TRA,CF(2)
     6415                                       DO           CF(3)-1
     6416                                     LIST           0
     6417                                         ALR,CF(2)
     6418                                         FIN
     6419                                     LIST           0
     6420                                       ALR,CF(2)    AF
     6421                                       LIST         1
     6422                                       FIN
     6423                                     PEND
     6424                            *
     6425                            *        MEMORY INTERFACE REGISTERS
     6426                            *
     6427         00000070           AR0      EQU            X'70'
     6428         00000071           AR1      EQU            AR0+1
     6429         00000072           AR2      EQU            AR0+2
     6430         00000073           AR3      EQU            AR0+3
     6431         00000074           DR0      EQU            X'74'
     6432         00000075           DR1      EQU            DR0+1
     6433         00000076           DR2      EQU            DR0+2
     6434         00000077           DR3      EQU            DR0+3
     6435         00000078           CR0      EQU            X'78'
     6436         00000079           CR1      EQU            CR0+1
     6437         0000007A           CR2      EQU            CR0+2
     6438         0000007B           CR3      EQU            CR0+3
     6439                            *        MEMORY INTERFACE CONTROLS
     6440         00400000           EWT      EQU            X'400000'           EXTERNAL WRITE
     6441         00800000           ERD      EQU            X'800000'           EXTERNAL READ
     6442         00C00000           ERS      EQU            X'C00000'           EXTERNAL READ AND SET
     6443         00200000           AR       EQU            X'200000'           AUTOREFRESH
     6444         00000000           RD       EQU            0                   READ INTERFACE REG
     6445         00100000           WT       EQU            X'100000'           WRITE INTERFACE REG
     6446         00000000           IN       EQU            0                   INCR AR FOR REFRESH
     6447         00000800           DC       EQU            X'800'              DECR AR FOR REFRESH
     6448         00000400           R        EQU            X'400'              RIGHT TO LEFT DR ACCESS
     6449         00000000           L        EQU            0                   LEFT TO RIGHT DR ACCESS
     6450         00000000           W        EQU            0                   WORD OPERATION
     6451         00000100           H        EQU            X'100'              HALF WORD OPERATION
     6452         00000200           BY       EQU            X'200'              BYTE OPERTAION
     6453         00000300           D        EQU            X'300'              DIGIT OPERATION
     6454                            *
     6455                            *        DIO INTERFACE
     6456                            *
     6457         00000030           DIOD     EQU            X'30'               DIO DATA REG
1 C00   20:35 JUN 20,'83     HF IOP CONTROL PROGRAM                                               PAGE   25
A    6459         01 0210D           MCMSTART EQU      %%
     6460   01 00000                          LOC      0
            01 0210D
     6461   01 00000    03000000 A   HFIDLE   NOP,T          (M,WAT)
                        006C
     6462   01 00002    43004000 N            NOP,T          (M,BU,HFSTART)
                        006C
     6463   01 00004    4300FB00 N            NOP,T          (M,BU,HSCHED)
                        006C
     6464   01 00006    43024500 N            NOP,T          (M,BU,HREG)         REGISTER SAVE
                        006C
     6465   01 00008    43006D00 N            NOP,T          (M,BU,HSTLOC)       SAVES LOC OF TEMP
                        006C
     6466   01 0000A    03000000 A            NOP,T          (M,WAT)
                        006C
     6467   01 0000C    03000000 A            NOP,T          (M,WAT)
                        006C
     6468   01 0000E    03000000 A            NOP,T          (M,WAT)
                        006C
     6469   01 00010    03000000 A            NOP,T          (M,WAT)
                        006C
     6470   01 00012    43004E00 N            NOP,T          (M,BU,HFSYSID)
                        006C
     6471   01 00014    43006800 N            NOP,T          (M,BU,HFSIGMEM)
                        006C
     6472   01 00016    03000000 A            NOP,T          (M,WAT)
                        006C
     6473   01 00018    4300FD00 N            NOP,T          (M,BU,HFSIO)        START IO
                        006C
     6474   01 0001A    4300BF00 N            NOP,T          (M,BU,HFTIO)        TEST IO
                        006C
     6475   01 0001C    4300F600 N            NOP,T          (M,BU,HFAIO)        ACKNOWLEDGE INTERRUPT
                        006C
     6476   01 0001E    4300D200 N            NOP,T          (M,BU,HFHIO)        HALT IO
                        006C
     6477   01 00020    4301D600 N            NOP,T          (M,BU,HOINNIT)      NO FLAGS
                        006C
     6478   01 00022    4301D900 N            NOP,T          (M,BU,HOINUE)       UNUSUAL END (UNE)
                        006C
     6479   01 00024    4301EC00 N            NOP,T          (M,BU,HOINHTE)      HALT ON XMISS ERR (HTE)
                        006C
     6480   01 00026    4301D900 N            NOP,T          (M,BU,HOINUE)       UNE + HTE
                        006C
     6481   01 00028    4301ED00 N            NOP,T          (M,BU,HOINCE)       CHANNEL END (CE)
                        006C
     6482   01 0002A    4301F400 N            NOP,T          (M,BU,HOINUEC)      CE + UNE
                        006C
     6483   01 0002C    4301ED00 N            NOP,T          (M,BU,HOINCE)       CE
                        006C
     6484   01 0002E    4301F400 N            NOP,T          (M,BU,HOINUEC)      UNE + CE
                        006C
     6485   01 00030    4301E500 N            NOP,T          (M,BU,HOINZBC)      ZERO BYTE COUNT (ZBC)
                        006C
     6486   01 00032    4301E200 N            NOP,T          (M,BU,HOINUEZ)      UNE + ZBC
                        006C
     6487   01 00034    4301E500 N            NOP,T          (M,BU,HOINZBC)      ZBC
                        006C
     6488   01 00036    4301E200 N            NOP,T          (M,BU,HOINUEZ)      UNE + ZBC
                        006C
     6489   01 00038    4301E500 N            NOP,T          (M,BU,HOINZBC)      ZBC
                        006C
     6490   01 0003A    4301E200 N            NOP,T          (M,BU,HOINUEZ)      UNE + ZBC
                        006C
     6491   01 0003C    4301E500 N            NOP,T          (M,BU,HOINZBC)      ZBC
                        006C
     6492   01 0003E    4301E200 N            NOP,T          (M,BU,HOINUEZ)      UNE + ZBC
                        006C
     6493   01 00040    4301C700 N            NOP,T          (M,BU,HOINNC)       NO CHAINING
                        006C
     6494   01 00042    4301CA00 N            NOP,T          (M,BU,HOINCC)       COMMAND CHAIN (CC)
                        006C
     6495   01 00044    4301C700 N            NOP,T          (M,BU,HOINNC)       NO CHAINING
                        006C
     6496   01 00046    4301CA00 N            NOP,T          (M,BU,HOINCC)       CC
                        006C
     6497   01 00048    4301D000 N            NOP,T          (M,BU,HOINDC)       DATA CHAIN (DC)
                        006C
     6498   01 0004A    4301CA00 N            NOP,T          (M,BU,HOINCC)       CC
                        006C
     6499   01 0004C    4301D000 N            NOP,T          (M,BU,HOINDC)       DC
                        006C
     6500   01 0004E    4301CA00 N            NOP,T          (M,BU,HOINCC)       CC
                        006C
     6501         00000008                    DO             8
     6502   01 00050    03000000 A            GEN,8,24 X'03',0
     6503   01 00051    006C0000 A            GEN,8,8,16 0,X'6C',0
     6504                                     FIN
            01 00052    03000000 A
            01 00053    006C0000 A
            01 00054    03000000 A
            01 00055    006C0000 A
            01 00056    03000000 A
            01 00057    006C0000 A
            01 00058    03000000 A
            01 00059    006C0000 A
            01 0005A    03000000 A
            01 0005B    006C0000 A
            01 0005C    03000000 A
            01 0005D    006C0000 A
            01 0005E    03000000 A
            01 0005F    006C0000 A
     6505   01 00060    43017900 N            NOP,T          (M,BU,HFDIN)        READ ORDER
                        006C
     6506   01 00062    43014D00 N            NOP,T          (M,BU,HFDAOUT)      WRITE ORDER
                        006C
     6507   01 00064    43017900 N            NOP,T          (M,BU,HFDIN)        READ ORDER
                        006C
     6508   01 00066    43014D00 N            NOP,T          (M,BU,HFDAOUT)      WRITE ORDER
                        006C
     6509   01 00068    43007100 N            NOP,T          (M,BU,HFUNE)        INVALID
                        006C
     6510   01 0006A    43007100 N            NOP,T          (M,BU,HFUNE)        INVALID
                        006C
     6511   01 0006C    43007100 N            NOP,T          (M,BU,HFUNE)        INVALID
                        006C
     6512   01 0006E    43007100 N            NOP,T          (M,BU,HFUNE)        INVALID
                        006C
     6513   01 00070    43014000 N            NOP,T          (M,BU,HFTIC)        TIC
                        006C
     6514   01 00072    43007100 N            NOP,T          (M,BU,HFUNE)        INVALID
                        006C
     6515   01 00074    43007100 N            NOP,T          (M,BU,HFUNE)        INVALID
                        006C
     6516   01 00076    43007100 N            NOP,T          (M,BU,HFUNE)        INVALID
                        006C
     6517   01 00078    43007100 N            NOP,T          (M,BU,HFUNE)        INVALID
                        006C
     6518   01 0007A    43007100 N            NOP,T          (M,BU,HFUNE)        INVALID
                        006C
     6519   01 0007C    43007100 N            NOP,T          (M,BU,HFUNE)        INVALID
                        006C
     6520   01 0007E    43007100 N            NOP,T          (M,BU,HFUNE)        INVALID
                        006C
1 C00   20:35 JUN 20,'83     HF START-UP ROUTINE                                                  PAGE   26
A    6522                            *
     6523                            *        R4 = PAGE WORD COUNT
     6524                            *        R0 = COPY OF X'10'
     6525                            *        R5 = SIGMA WORD COUNT
     6526                            *        R6 = SIGMA MEMORY ADDRESS
     6527                            *        R7 = K-MEMORY ADDRESS
     6528                            *        R8 = VOLITLE
     6529                            *        R9 = CURRENT BUFFER ADDR
     6530                            *        C  = GLOBAL FLAGS
     6531                            *        Z  = LOCAL FLAGS
     6532                            *
     6533                            *        THIS IS FOR THE START AND RESTART OF THE HF
     6534                            *        DURING PROGRAM EXECUTION
     6535                            *        FUNCTION 9--->SYSTEM AND PROCESSOR ID
     6536                            *                 C--->SIO
     6537                            *                 D--->TIO
     6538                            *                 E--->AIO
     6539                            *        THIS CHECKS FOR EITHER AN I/O FUNCTION
     6540                            *        OR THE SYSTEM DESCRIPTIONS
     6541                            *
     6542                            *
     6543   01 00080                 HFSTART  RES            0
     6544   01 00080    A301F700 N            NOP,T          (M,BAL,HCRAS)       SAVE ALL REGISTERS
                        006C
     6545   01 00082    23000000 N            MMC,T,KWCR0                        SET UP CONTROL REG
                        381A
     6546   01 00084    230000C0 A            CLF,A          EA,IO               CLEAR OUT THE ACCUMULATER
                        004D
     6547   01 00086    23000028 N            STO,A,KFNCT    ED                  AND FUNCTION VECTOR
                        0C6D
     6548   01 00088    23000000 N            MMC,A,KRDIOD                       LOAD MAR TO READ DIOD
                        391B
     6549   01 0008A    23C000F0 A            LAD,A          EA,IO               GRAB INFO ON THE BUS
                        002F
     6550   01 0008C    23000000 N            MMC,T,KWDR0                        WRITE THE INFO OUT
                        501A
     6551   01 0008E    230000C8 A            NOP,T          EA,IO,ED            GO DO IT
                        006C
     6552   01 00090    23000000 N            LMF,A,KWCR0DL                      SET UP CR #0,DIGIT L TO R
                        A06B
     6553   01 00092    23000010 N            MKR,A,KX1                          WITH DIGIT TWO
                        861D
     6554   01 00094    230000C0 N            MMC,A,KRDR0AR  EA,IO
                        A31B
     6555   01 00096    23C000F0 A            LAD,A          EA,IO               GOT THE FUNCTION
                        002F
     6556   01 00098    23000030 N            AMA,A,KFNCT                        FORM INDEX TO THE FUNCTION
                        0C0B
     6557   01 0009A    E3000008 A            TRA,T          (M,AEA),ED          GO AND DO TI
                        000C
     6558                            *
     6559                            *        THIS WILL GRAB AND STORE THE HF ID
     6560                            *
     6561   01 0009C                 HFSYSID  RES            0
     6562   01 0009C    23000000 A            NOP,T
                        006C
     6563   01 0009E    23000000 N            MMC,T,KWCR0B3                      SET UP CR0
                        3C1A
     6564   01 000A0    230000C0 N            MMC,T,KRDR0    EA,IO               AND DR0 AGAIN
                        541A
     6565   01 000A2    23C000F0 A            LAD,A          EA,IO               GOT THE DATA
                        002F
     6566   01 000A4    23000030 A            SLL,A,20                           MOVE IT
                        003D
     6567   01 000CC    23000028 N            STO,A,KHFID    ED                  PUT IT AWAY
                        006D
     6568   01 000CE    4300FB00 N            NOP,T          (M,BU,HSCHED)       GO AND WAIT FOR SOMETHING TO DO
                        006C
     6569                            *
     6570                            *        THIS WILL GET THE SIGMA MEMORY LOCATION
     6571                            *        OF THE REGISTER SAVE TABLE.
     6572                            *
     6573   01 000D0                 HFSIGMEM RES            0
     6574   01 000D0    23000000 N            MMC,T,KRDIOD                       LOAD MAR TO READ DIOR
                        391A
     6575   01 000D2    23C000D0 N            LAD,A,KARONES  EA,IO               READ AND MASK
                        4D2F
     6576   01 000D4    23C00000 A            CIA,A                              COMPLEMENT IT
                        001F
     6577   01 000D6    23000028 N            STO,A,KSIGMEM  ED                  AND STORE IT
                        1F6D
     6578   01 000D8    43000000 N            NOP,T          (M,BU,HFIDLE)       AND WAIT FOR NEXT START
                        006C
     6579   01 000DA                 HSTLOC   RES            0
     6580   01 000DA    23000000 N            MMC,T,KRDIOD                       LOAD MAR TO READ DIOR
                        391A
     6581   01 000DC    23C000D0 N            LAD,A,KARONES  EA,IO               READ AND MASK
                        4D2F
     6582   01 000DE    23000028 N            STO,A,KSIGTEMP ED                  AND STORE IT
                        206D
     6583   01 000E0    43000000 N            NOP,T          (M,BU,HFIDLE)       AND WAIT FOR NEXT START
                        006C
1 C00   20:35 JUN 20,'83     MISCALLEANOUS CONTROLS                                               PAGE   27
A    6585                            *        CONDITION CODES ARE AS FOLLOWS:
     6586                            *        00 = OK
     6587                            *        01 = PROCESSOR BUSY
     6588                            *        10 = UNUSUAL END
     6589                            *        11 = DATA OVERRUN CONDITION
     6590                            *
     6591   01 000E2                 HFUNE    RES            0
     6592   01 000E2    23000000 N            LMF,A,KCCUNE                       HAD SOME KIND OF AN ERROR
                        A66B
     6593   01 000E4    23000028 N            STO,A,KCC      ED                  HAD SOME KIND OF A PROBLEM
                        0D6D
     6594   01 000E6    23000000 N            LMF,A,KX1                          UNE BIT
                        866B
     6595   01 000E8    23000000 N            LMF,A,KOSBYTE                      GET OPERATIONAL STATUS BYTE WORD
                        186B
     6596   01 000EA    23000030 N            ORM,A,KUNEBIT                      FLAG UNUSUAL END
                        266B
     6597   01 000EC    23000028 N            STO,A,KOSBYTE  ED                  SAVE IT
                        186D
     6598   01 000EE    22000030 N            LTM,A,KINTFLG  CC,(CO,STC)         INT PENDING ?
                        17DB
     6599   01 000F0    6700DE00 N            NOP,T          (M,BCS,HINT)        B,YES
                        006C
     6600   01 000F2    22000030 N            LTM,A,KDCBUSY  CC,(CO,STC)         ARE YOU BUSY ?
                        0BDB
     6601   01 000F4    8700FB00 N            NOP,T          (M,BCR,HSCHED)      B,NO
                        006C
     6602   01 000F6    4301A500 N            NOP,T          (M,BU,HFOIN)        GO AND REST
                        006C
     6603   01 000F8                 HDOVRN   RES            0
     6604   01 000F8    23000000 A            TRA,R7                             REGET THE K-MEM ADDR
                        0007
     6605   01 000FA    23000028 N            STO,A,KOVRUN   ED                  AND SAVE FOR ANALYSIS
                        356D
     6606   01 000FC    23000000 N            LMF,A,KDORBIT                      GET STATUS BIT
                        286B
     6607   01 000FE    23000030 N            ORM,A,KOSBYTE                      AND MERGE IT IN
                        186B
     6608   01 00100    23000000 N            LMF,A,KCCNOAR
                        126B
     6609   01 00102                 HNOAR    RES            0
     6610   01 00102    23000028 N            STO,A,KCC      ED                  SET UP CC'S FOR NO AR
                        0D6D
     6611   01 00104    4300FB00 N            NOP,T          (M,BU,HSCHED)       GO AND WAIT
                        006C
     6612   01 00106                 HPRBUSY  RES            0
     6613   01 00106    23000000 N            LMF,A,KCCBUSY
                        136B
     6614   01 00108    23000028 N            STO,A,KCC      ED                  CC'S FOR BUSY PROC
                        0D6D
     6615   01 0010A    4300FB00 N            NOP,T          (M,BU,HSCHED)       GO AND WAIT
                        006C
1 C00   20:35 JUN 20,'83     DATA PROCESSOR                                                       PAGE   28
A    6617                            *
     6618                            *        CHECKS TO SEE IF ENOUGH MEMORY IS LEFT FOR
     6619                            *        NEXT BUFFER NEEDED. IF NOT,RESETS POINTER
     6620                            *        KBUFNXT = POINTER RTO NEXT BUFFER
     6621                            *
     6622   01 0010C                 HGETBUF  RES            0
     6623   01 0010C    23000000 N            LMF,A,KMSIZE                       - K MEMORY SIZE
                        216B
     6624   01 0010E    23C00000 A            CIA,A                              COMPLEMENT IT ( U LOOK NICE)
                        001F
     6625   01 00110    23C00030 A            TAR,R7                             A --> R7
                        0027
     6626   01 00112    23000000 N            LMF,A,KBUFNXT                      BUFFER POINTER
                        1B6B
     6627   01 00114    23000028 N            STO,A,KBUFCUR  ED                  UPDATE CURRENT POINTER
                        1C6D
     6628   01 00116    23000030 N            AMA,A,KWC      (CI,FF0)            CURRENT BUFFER + WC
                        060B
     6629   01 00118    22000030 A            ALR,R7         CC,(CO,STC)         > K MEM SIZE ?
                        0087
     6630   01 0011A    67009000 N            NOP,T          (M,BCS,HGETBUF1)    B,YES
                        006C
     6631   01 0011C    23000028 N            STO,A,KBUFNXT  ED                  NO,STORE POINTER
                        1B6D
     6632   01 0011E    C3000000 A            NOP,T          (M,RET)
                        006C
     6633   01 00120                 HGETBUF1 RES            0
     6634   01 00120    23000000 N            LMF,A,KMSIZE                       GET THE KM SIZE
                        216B
     6635   01 00122    23C00000 A            CIA,A                              COMPLEMENT IT
                        001F
     6636   01 00124    22000030 N            AMA,A,KBUFNXT  (CO,STC)            TOO BIG /
                        1B0B
     6637   01 00126    67007100 N            NOP,T          (M,BCS,HFUNE)       NEEDS WORK !
                        006C
     6638   01 00128    22000030 N            AMA,A,K512     (CO,STC)            BIGGER THAN A PAGE ?
                        990B
     6639   01 0012A    87009900 N            NOP,T          (M,BCR,HGETBUF2)    B,YES
                        006C
     6640   01 0012C    23000000 N            LMF,A,KBUF                         GET POINTER
                        196B
     6641   01 0012E    23000028 N            STO,A,KBUFNXT  ED                  AND RESET USEABLE POINTER
                        1B6D
     6642   01 00130    23000028 N            STO,A,KBUFCUR  ED                  YOU TOO
                        1C6D
     6643   01 00132                 HGETBUF2 RES            0
     6644   01 00132    23000000 N            LMF,A,K512                         GET WORD COUNT
                        996B
     6645   01 00134    23000028 N            STO,A,KPWC     ED                  AND SAVE IT
                        0F6D
     6646   01 00136    23000030 N            AMA,A,KBUFNXT                      ADD A PAGE TO IT
                        1B0B
     6647   01 00138    23000028 N            STO,A,KBUFNXT  ED                  AND SAVE IT
                        1B6D
     6648   01 0013A    C3000000 A            NOP,T          (M,RET)             GO BACK
                        006C
     6649                            *
     6650                            *        THIS GENERATES THE DATA PATTERN USED IN DATA
     6651                            *        IN OPERATIONS.
     6652                            *        BYTE 0 (0-7)   = PAGE NUMBER
     6653                            *        BYTE 1 (8-9)   = REGISTER GROUP
     6654                            *               (10-11) = HF ID
     6655                            *        DIGIT 3 TO 7   = MEMORY LOCATION
     6656                            *
     6657   01 0013C                 HMAKBUF  RES            0
     6658   01 0013C    23000000 N            LMF,A,KX2000                       REG GROUP NUMBER
                        CF6B
     6659   01 0013E    23000028 N            STO,A,KRGNUM   ED                  SAVE IT
                        1D6D
     6660   01 00140    23000000 N            LMF,A,KPWC                         WC --> A
                        0F6B
     6661   01 00142    23C00030 A            TAR,R5
                        0025
     6662   01 00144    23000000 N            LMF,A,KBUFCUR                      GET BUFFER POINTER
                        1C6B
     6663   01 00146    23C00030 A            TAR,R8                             A --> R8
                        0028
     6664   01 00148    23000000 N            LMF,A,KPGNO                        SET UP PAGE COUNTERS
                        2D6B
     6665   01 0014A    23000030 N            AMA,A,KPGINC                       COUNT UP THE NEXT ONE
                        2E0B
     6666   01 0014C    23000028 N            STO,A,KPGNO    ED                  AND SAVE IT
                        2D6D
     6667   01 0014E    23000000 A            TRA,R6                             REGET THE REGISTER
                        0006
     6668   01 00150    23000030 N            ANM,A,KCRONES  (CI,FF0)            STRIP TO JUST ADDR
                        424B
     6669   01 00152    23000030 N            ORM,A,KHFID                        MERGE IN THE SYSTERM NUM
                        006B
     6670   01 00154    23000030 N            ORM,A,KRGNUM                       AND THE REG GROUP USED
                        1D6B
     6671   01 00156    23000030 N            ORM,A,KPGNO                        AND ADD THE PAGE NO.
                        2D6B
     6672   01 00158    23C00000 A   HFMAK1   MRC,R8         (CI,FF1)             LOAD MAR WITH KM ADDR
                        0018
     6673   01 0015A    23000068 A            STO,A          EA,ED               AND PUT AWAY
                        006D
     6674   01 0015C    23C00000 A            INR,A                              BUMP THE ADDRESS
                        003D
     6675   01 0015E    23C00030 A            TAR,R3                             SAVE DATA FOR A MINUTE
                        0023
     6676   01 00160    23000030 A            DCR,R5                             WC = WC - 1
                        0015
     6677   01 00162    23000000 A            TRA,R8                             GET THE REGISTER WITH COUNT
                        0008
     6678   01 00164    22C00030 N            AMA,A,KNMSIZE  CC,(CI,FF1),(CO,STC) SEE WHICH IS LARGER
                        228B
     6679   01 00166    67007C00 N            NOP,T          (M,BCS,HDOVRN)      GOT AN OVERRUN
                        006C
     6680   01 00168    23000000 A            TRA,R3                             THIS WILL RESTORE DATA
                        0003
     6681   01 0016A    21000030 A            TZR,R5         (CO,STZ)            DONE ?
                        0055
     6682   01 0016C    8B00BE00 N            NOP,T          (M,BZR,HFMAK2)      B,YES
                        006C
     6683   01 0016E    21000030 N            AMA,A,KM512    CC,(CO,STZ)         DONE WITH THIS PAGE ?
                        9A8B
     6684   01 00170    6B00AC00 N            NOP,T          (M,BZS,HFMAK1)      B,NO
                        006C
     6685   01 00172    23000000 N            LMF,A,KPGNO                        GET CURRENT PAGE NUM.
                        2D6B
     6686   01 00174    23000030 N            AMA,A,KPGINC                       INCREMENT IT
                        2E0B
     6687   01 00176    23000028 N            STO,A,KPGNO    ED                  STORE IT
                        2D6D
     6688   01 00178    23000000 A            TRA,R3                             R3 --> A
                        0003
     6689   01 0017A    4300AC30 N            AMA,A,KPGINC   (M,BU,HFMAK1)       AND CONTINUE
                        2E0B
     6690   01 0017C    C3000000 A   HFMAK2   NOP,T          (M,RET)
                        006C
1 C00   20:35 JUN 20,'83     TIO-HIO PROCESSOR                                                    PAGE   29
A    6692                            *
     6693                            *        HF TIO-HIO STATUS VALID ONLY IF THE E FLAG IS SET
     6694                            *        IF A REGISTER IS SPECIFIED THE CURRENT COMMAND ADDRESS
     6695                            *        IS RETURNED (       WORD ALIGNED).  CONDITION CODES
     6696                            *        RETURNED REPRESENT RESULTS FROM THE LAST SIO
     6697                            *
     6698   01 0017E                 HFTIO    RES            0
     6699   01 0017E    9300FB00 N            NOP,T          (M,BER,HSCHED)      VALID IFF E-FLAG SET
                        006C
     6700   01 00180    23200000 N            MMC,T,KWCR0    CE                  READY TO OUTPUT DATA
                        381A
     6701   01 00182    230000C0 N            LMF,A,KCA      EA,IO               GET COMMAND D.A.
                        0E6B
     6702   01 00184    23000030 N            ORM,A,KCC                          MERGE IN CONDITION CODES
                        0D6B
     6703   01 00186    23000000 N            MMC,T,KWDR0                        SET UP DATA REG # 0
                        501A
     6704   01 00188    230000C8 A            NOP,T          ED,EA,IO            WRITE TO DR
                        006C
     6705   01 0018A    23000000 N            MMC,T,KWAR0W
                        BC1A
     6706   01 0018C    23000010 N            MKR,T,KIO                          MERGE IN IO CHNL ADDR
                        141C
     6707   01 0018E    230000C0 A            NOP,T          EA,IO
                        006C
     6708   01 00190    23000000 N            LMF,A,KWC                          GET THE CURRENT WORD COUNT
                        066B
     6709   01 00192    23000030 N            ORM,A,KOSBYTE                      MERGE IN OP. STATUS
                        186B
     6710   01 00194    23000000 N            MMC,T,KWDR0
                        501A
     6711   01 00196    230000C8 A            NOP,T          ED,EA,IO            DO IT
                        006C
     6712   01 00198    23000000 N            MMC,T,KWAR0W
                        BC1A
     6713   01 0019A    23000010 N            MKR,T,KIOU1                        THIS IS R U 1
                        151C
     6714   01 0019C    230000C0 A            NOP,T          EA,IO               DO IT
                        006C
     6715   01 0019E    22000030 N            LTM,A,KDCBUSY  (CO,STC)            WERE WE DOING SOMETHING ?
                        0B5B
     6716   01 001A0    8700FB00 N            NOP,T          (M,BCR,HSCHED)      NO, GO WAIT
                        006C
     6717   01 001A2    C3000000 A            NOP,T          (M,RET)             YEA,GO BACK
                        006C
     6718                            *
     6719                            *        THIS WILL CLEAR KEY STATUS WORDS FOR
     6720                            *        THE HF SO THAT IT CAN ACCEPT ANOTHER SIO.
     6721                            *        FOR EXAMPLE: DEVICE BUSY, TIC IN PROGRESS ...
     6722                            *
     6723   01 001A4                 HFHIO    RES            0
     6724   01 001A4    23200000 A            CLF,A          CE                  GRAB A ZERO
                        004D
     6725   01 001A6    23000028 N            STO,A,KINTFLG  ED                  CLEAR INTERRUPT FLAG
                        176D
     6726   01 001A8    23000028 N            STO,A,KDCBUSY  ED                  AND BUSY FLAG
                        0B6D
     6727   01 001AA    23000028 N            STO,A,KTIC     ED                  AND TIC IN PROGRESS
                        016D
     6728   01 001AC    23000028 N            STO,A,KDCFLAG  ED                  NO DATA CHAIN TOO
                        026D
     6729   01 001AE    23000028 N            STO,A,KPGNO    ED                  RESET THE PAGE POINTER
                        2D6D
     6730   01 001B0    23000000 N            LMF,A,KBUF                         GET K MEM POINTER
                        196B
     6731   01 001B2    23000028 N            STO,A,KBUFNXT  ED                  RESET BUFFER POINTERS
                        1B6D
     6732   01 001B4    23000028 N            STO,A,KBUFCUR  ED                  ALL OF THEM
                        1C6D
     6733   01 001B6    23000000 N            LMF,A,KAUTBIT                      DEVICE AUTO. STATUS
                        256B
     6734   01 001B8    23000028 N            STO,A,KOSBYTE  ED                  AND PRESTO ! READY AGAIN
                        186D
     6735   01 001BA    4300FB00 N            NOP,T          (M,BU,HSCHED)       LET'S STOP FOR NOW
                        006C
1 C00   20:35 JUN 20,'83     INTERRUPT PROCESSOR                                                  PAGE   30
A    6737                            *
     6738                            *        THIS SIMULATES AN I/O INTERRUPT BY CAUSING AN HF
     6739                            *        FAULT INTERRUPT.  LOCATION X'11' IN SIGMA MEMORY IS
     6740                            *        CHECKED FOR ZERO'S TO BE SURE THAT IT IS AVAILABLE.
     6741                            *        IF IT IS, THE VALUE X'12344321' IS LOADED INTO
     6742                            *        LOCATION X'11'.  THIS LETS THE DIAGNOSTIC RUNNING
     6743                            *        THAT THIS IS AN INTENTIONAL HF FAULT.
     6744                            *
     6745   01 001BC                 HINT     RES            0
     6746   01 001BC    22000030 N            LTM,A,KINTFLG  (CO,STC)            SHOULD WE INTERRUPT ?
                        175B
     6747   01 001BE    87000000 N            NOP,T          (M,BCR,HFIDLE)      B,NOPE
                        006C
     6748   01 001C0    23000000 N            MMC,T,KWCR0                        SET UP CR FOR REAL INT
                        381A
     6749   01 001C2    230000C0 A            NOP,T          EA,IO               STRT IT OFF
                        006C
     6750   01 001C4    23000000 N   HINT2    LMF,A,KWAR0R                       WANT TO READ SIGMA
                        BD6B
     6751   01 001C6    23000010 N            MKR,A,KIOU1                        LOCATION 11
                        151D
     6752   01 001C8    230000C0 N            MMC,T,KRDR0    EA,IO               SO START IT
                        541A
     6753   01 001CA    23C000F0 A            LAD,A          EA,IO               GET THE DATA
                        002F
     6754   01 001CC    22000030 A            TZR,A          (CO,STC)            IS MEMORY FREE ?
                        005D
     6755   01 001CE    6700E200 N            NOP,T          (M,BCS,HINT2)       B,NO TRY AGAIN
                        006C
     6756   01 001D0    23000000 N            LMF,A,KFILLER                      OK,IT'S FREE
                        346B
     6757   01 001D2    23000000 N            MMC,T,KWDR0                        PUT FILLER IN DR0
                        501A
     6758   01 001D4    230000C8 A            NOP,A          EA,IO,ED            THIS SHUD DO IT
                        006D
     6759   01 001D6    23000000 N            LMF,T,KWAR0W                       WRITE AR 0
                        BC6A
     6760   01 001D8    23000010 N            MKR,T,KIOU1                        TO WRTIE INTO LOC.11
                        151C
     6761   01 001DA    230000C1 N            LMF,A,KM5US    EA,IO               WANT A 5 MICRO SECOND
                        0C6B
     6762   01 001DC                 HINT1    RES            0
     6763   01 001DC    23C00000 A            INR,A                              DELAY TO SET UP SIGMA
                        003D
     6764   01 001DE    22000030 A            TZR,A          CC,(CO,STC)         MEMORY LOCATION X'11'
                        00DD
     6765   01 001E0    6700EE00 N            NOP,T          (M,BCS,HINT1)       LOOP TILL DONE
                        006C
     6766   01 001E2    23000000 N            LMF,A,KAUTBIT                      GET DEVICE AUTOMATIC BIT
                        256B
     6767   01 001E4    23000028 N            STO,A,KOSBYTE  ED                  AND SET UP STATUS BYTE
                        186D
     6768   01 001E6    23100000 A            NOP,T          RS                  YES,SO RESET STACK
                        006C
     6769   01 001E8    C3000000 A            NOP,T          (M,RET)             THIS SHOULD CAUSE AN INT.
                        006C
     6770   01 001EA    03000000 A            NOP,T          (M,WAT)             WAIT
                        006C
     6771   01 001EC                 HFAIO    RES            0
     6772   01 001EC    23000000 A            CLF,A
                        004D
     6773   01 001EE    4300BF28 N            STO,A,KINTFLG  ED,(M,BU,HFTIO)
                        176D
     6774                            *                                           BACK TWO WORDS OF STATUS
1 C00   20:35 JUN 20,'83     SCHEDULAR AND IDLE LOOP                                              PAGE   31
A    6776   01 001F0                 HEFLAG   RES            0
     6777   01 001F0    7300FA00 N            NOP,T          (M,BES,HEFLAG1)     B,FLAG SET
                        006C
     6778   01 001F2    C3000000 A            NOP,T          (M,RET)             NO,GO BACK
                        006C
     6779   01 001F4    03000000 A   HEFLAG1  NOP,T          (M,WAT)             WAIT FOR START COMMAND
                        006C
     6780   01 001F6                 HSCHED   RES            0
     6781   01 001F6    73000000 N            NOP,T          (M,BES,HFIDLE)      SOMETHING TO DO
                        006C
     6782   01 001F8    4300FB00 N            NOP,T          (M,BU,HSCHED)       IDLE LOOP
                        006C
1 C00   20:35 JUN 20,'83     SIO PROCESSOR                                                        PAGE   32
A    6784                            *
     6785                            *        THIS IS THE "SIO" ACCEPTANCE ROUTINE
     6786                            *
     6787   01 001FA                 HFSIO    RES            0
     6788   01 001FA    93008100 N            NOP,T          (M,BER,HNOAR)       VALID IFF E-FLAG SET
                        006C
     6789   01 001FC    22200030 N            LTM,T,KINTFLG  CE,(CO,STC)         INT PENDING ? ?
                        175A
     6790   01 001FE    66008130 N            LTM,T,KDCBUSY  (M,BCS,HNOAR),(CO,STC)   B,YES,GET OUT
                        0B5A
     6791   01 00200    67008300 N            STR,A          (M,BCS,HPRBUSY)     B,DEVICE BUSY
                        002D
     6792   01 00202    23000028 N            STO,A,KDCBUSY  ED                  SET THE BUSY FLAG
                        0B6D
     6793   01 00204    23000000 A            CLF,A                              GRAB A ZERO
                        004D
     6794   01 00206    23000028 N            STO,A,KUNE     ED                  CLEAR UNE
                        106D
     6795   01 00208    23000028 N            STO,A,KOSBYTE  ED                  CLEAR OSB
                        186D
     6796   01 0020A    23000028 N            STO,A,KCC      ED                  CLEAR CONDITION CODES
                        0D6D
     6797   01 0020C    23000030 N            ORM,A,KAUTBIT                      SET AUTO BIT
                        256B
     6798   01 0020E    23000030 N            ORM,A,KBSYBIT                      ST BUSY BIT
                        276B
     6799   01 00210    23000030 N            ORM,A,KUNABIT                      AND UNAVAIL. BIT
                        246B
     6800   01 00212    23000028 N            STO,A,KOSBYTE  ED                  AND RESTORE OSB
                        186D
     6801   01 00214    23000000 N            MMC,T,KWCR0                        MAKE CR#0 NICE
                        381A
     6802   01 00216    230000C0 N            MMC,T,KRDR0    EA,IO               PUT SIO INFO HERE
                        541A
     6803   01 00218    230000E0 N            NOP,T,KCA      EA,IO,(KC,KW)       THIS DOES IT
                        0E6C
1 C00   20:35 JUN 20,'83     ORDER OUT PHASE                                                      PAGE   33
A    6805                            *
     6806                            *        START OF THE "ORDER OUT" ROUTINE
     6807                            *        ALL ADDRESS ARE CONVERTED TO WORD ALIGNED ADDRESSES.
     6808                            *
     6809   01 0021A                 OOUT     RES            0
     6810   01 0021A    22000030 N            LTM,A,KDCBUSY  (CO,STC)            VALID IFF BUSY
                        0B5B
     6811   01 0021C    87007100 N            NOP,T          (M,BCR,HFUNE)       B,UNUSUAL END
                        006C
     6812   01 0021E    A300F800 N            NOP,T          (M,BAL,HEFLAG)      CHECK FOR E FLAG
                        006C
     6813   01 00220    23000000 A            CLF,A                              GRAB A ZERO
                        004D
     6814   01 00222    23000028 N            STO,A,KDCFLAG  ED                  RESET DATA CHAINING
                        026D
     6815   01 00224    23000028 N            STO,A,KCCFLAG  ED                  DITTO COMMAND CHAIN.
                        036D
     6816   01 00226    23000000 N            LMF,A,KCA                          GET COMMAND ADDR
                        0E6B
     6817   01 00228    23000030 N            ANM,A,KCRONES                      GET RID OF FUNNY BITS
                        424B
     6818   01 0022A    23000030 A            SLL,A,1                            MAKE INTO WORD ADDR
                        003D
     6819   01 0022C                 HOOUT2   RES            0
     6820   01 0022C    23000028 N            STO,A,KCA      ED                  STORE THE CURRENT C.A.
                        0E6D
     6821   01 0022E    23000000 N            MMC,T,KWCR0                        SET UP CPNT REG
                        381A
     6822   01 00230    230000D0 N            MKR,A,KWAR0R   EA,IO               FETCH THE IOCD NOW
                        BD1D
     6823   01 00232    230000C0 N            MMC,A,KRDR0AR  EA,IO               GET  READY
                        A31B
     6824   01 00234    230000E0 N            NOP,T,KIOCD1   EA,IO,(KC,KW)       STORE INFO
                        076C
     6825   01 00236    230000E0 N            NOP,T,KIOCD2   EA,IO,(KC,KW)       AND YOU TOO
                        086C
     6826   01 00238    23000000 N            MMC,T,KWCR0                        SET UP CR AGAIN
                        381A
     6827   01 0023A    230000C0 N            LMF,A,KIOCD2   EA,IO               WRITE DR #0 WITH IOCD
                        086B
     6828   01 0023C    23000000 N            MMC,T,KWDR0
                        501A
     6829   01 0023E    230000C8 N            MMC,T,KWCR0BL  EA,IO,ED
                        9E1A
     6830   01 00240    230000C0 N            MMC,T,KRDR0    EA,IO               GET THE FIRST BYTE
                        541A
     6831   01 00242    230000E0 N            NOP,T,KFLAGS   EA,IO,(KC,KW)       STORE THE FLAGS
                        096C
     6832   01 00244    23000030 N            ANM,A,KX00FF                       GET RID OF THE FUNNY BITS
                        9B4B
     6833   01 00246    23000000 A            SRL,A,2                            WORD COUNT   MAKE
                        000F
     6834   01 0024A    22000030 A            TZR,A          CC,(CO,STC)         WORD COUNT = 0 ?
                        00DD
     6835   01 0024C    67012800 N            NOP,T          (M,BCS,HOOUT3)      B,NO
                        006C
     6836   01 0024E    23000001 N            LMF,A,K16K                         MERGE IN 16K WORTH
                        096B
     6837   01 00250                 HOOUT3   RES            0
     6838   01 00250    23000028 N            STO,A,KWC      ED                  AND STORE   COUNT
                        066D
     6839   01 00252    23000028 N            STO,A,KPWC     ED                  DEFAULT TO THIS
                        0F6D
     6840   01 00254    22000030 N            LTM,A,KDCFLAG  (CO,STC)            DATA CHAINING ?
                        025B
     6841   01 00256    67013200 N            NOP,T          (M,BCS,HOOUT1)      B,YES
                        006C
     6842   01 00258    23000000 N            LMF,A,KIOCD1                       NO NEED FOR ORDER IF SO
                        076B
     6843   01 0025A    23000000 N            MMC,T,KWCR0
                        381A
     6844   01 0025C    230000C0 N            MMC,T,KWDR0    EA,IO
                        501A
     6845   01 0025E    230000C8 N            MMC,T,KWCR0BL  EA,IO,ED
                        9E1A
     6846   01 00260    230000C0 N            MMC,T,KRDR0    EA,IO               SET UP TO READ BYTE ONE
                        541A
     6847   01 00262    230000E0 N            NOP,T,KORDER   EA,IO,(KC,KW)       THIS IS THE ORDER
                        0A6C
     6848   01 00264                 HOOUT1   RES            0
     6849   01 00264    23000000 N            LMF,A,KIOCD1                       REGET THE IOCD AGAIN
                        076B
     6850   01 00266    23000030 N            ANM,A,KX00FF
                        9B4B
     6851   01 00268    23000000 A            SRL,A,2
                        000F
     6852   01 0026C    23000028 N            STO,A,KWA      ED                  WORD ADDR OF BUFFER
                        046D
     6853   01 0026E    23000028 N            STO,A,KCURWA   ED                  CURRENT WORD POINTER
                        056D
     6854   01 00270    23000000 A            CLF,A                              GRAB A ZERO
                        004D
     6855   01 00272    23000028 N            STO,A,KDCFLAG  ED                  CLEAR DC FLAG
                        026D
     6856   01 00274    23000028 N            STO,A,KCCFLAG  ED
                        036D
     6857   01 00276    23000028 N            STO,A,KPGNO    ED                  RESET PAGE COUNTER
                        2D6D
     6858   01 00278    23000000 N            LMF,A,KORDER                       REGET THE ORDER
                        0A6B
     6859   01 0027A    23000030 N            ANM,A,KXF                          GET RID OF THE FUNNY BITS
                        BA4B
     6860   01 0027C    23000030 N            AMA,A,KORBIAS                      SET UP TRANSFER VECTOR
                        320B
     6861   01 0027E    E3000008 A            TRA,T          (M,AEA),ED          GO TO BRANCH TABLE
                        000C
     6862                            *
     6863                            *        TAKES CARE OF TIC IN PROGRESS.
     6864                            *        > 2 TIC'S ARE INVALID AND WILL CAUSE AN UNUSUAL END
     6865                            *
     6866   01 00280                 HFTIC    RES            0
     6867   01 00280    22000030 N            LTM,A,KTIC     (CO,STC)            ONLY ONE TIC AT A TIME
                        015B
     6868   01 00282    67014A00 N            NOP,T          (M,BCS,HFTIC1)      B,MORE THAN ONE
                        006C
     6869   01 00284    23000000 N            LMF,A,KXM1                         GRAB SOME ONES
                        876B
     6870   01 00286    23000028 N            STO,A,KTIC     ED                  FLAG ONE TIC ALREADY IN PROGRESS
                        016D
     6871   01 00288    23000000 N            LMF,A,KIOCD1                       GET THE     CA
                        076B
     6872   01 0028A    23000030 N            ANM,A,KCRONES                      KEEP GOOD BITS ONLY
                        424B
     6873   01 0028C    23000000 N            MMC,T,KWCR0                        SET UP CR FOR WORD ENTRIES
                        381A
     6874   01 0028E    230000C0 A            NOP,T          EA,IO               SO DO I
                        006C
     6875   01 00290    23000030 A            SLL,A,1                            MAKE IT A WORD ADDR
                        003D
     6876   01 00292    43011600 N            NOP,T          (M,BU,HOOUT2)       GET THE NEW IOCD
                        006C
     6877   01 00294                 HFTIC1   RES            0
     6878   01 00294    23000000 A            CLF,A
                        004D
     6879   01 00296    23000028 N            STO,A,KDCBUSY  ED                  CLEAR BUSY INDICATOR
                        0B6D
     6880   01 00298    43007100 N            NOP,T          (M,BU,HFUNE)        THIS IS WHAT YOU GET
                        006C
1 C00   20:35 JUN 20,'83     DATA OUT PHASE                                                       PAGE   34
A    6882                            *
     6883                            *        START OF THE DATA OUT SEQUENCE
     6884                            *        USES REG GROUP ONE
     6885                            *        R4 = PAGE COUNT
     6886                            *        R5 = WORD COUNT
     6887                            *        R6 = SIGMA WORD ADDRESS
     6888                            *        R7 = K-MEMORY ADDRESS
     6889                            *
     6890   01 0029A                 HFDAOUT  RES            0
     6891   01 0029A    23000000 A            CLF,A
                        004D
     6892   01 0029C    23000028 N            STO,A,KTIC     ED
                        016D
     6893   01 0029E    23000000 N            LMF,A,KWA                          GET SIGMA ADDRESS
                        046B
     6894   01 002A0    23000031 N            AMA,A,KWAR1R   (CI,FF0)            AND MERGE IN ADDR REG
                        1A0B
     6895   01 002A2    23C00030 A            TAR,R6                             A --> R6
                        0026
     6896   01 002A4                 HDAOUT4  RES            0
     6897   01 002A4    A300F800 N            NOP,T          (M,BAL,HEFLAG)      E FLAG SET ?
                        006C
     6898   01 002A6    A3008600 N            NOP,T          (M,BAL,HGETBUF)     GET SPACE IN K MEM
                        006C
     6899   01 002A8    23000000 N            LMF,A,KWC                          GET SIGMA WORD COUNT
                        066B
     6900   01 002AA    23C00030 A            TAR,R5                             A --> R5
                        0025
     6901   01 002AC    23000000 N            LMF,A,KPWC                         GET PAGE POINTER
                        0F6B
     6902   01 002AE    23C00030 A            TAR,R4                             A --> R4
                        0024
     6903   01 002B0    23000000 N            MMC,T,KWCR1                        SET UP CR # 0
                        3A1A
     6904   01 002B2    230000C0 A            NOP,T          EA,IO
                        006C
     6905   01 002B4    23000000 N            LMF,A,KBUFCUR                      GET ADDR OF NEXT BUFFER
                        1C6B
     6906   01 002B6    23C00030 A            TAR,R7                             A --> R7
                        0027
     6907   01 002B8                 HDAOUT1  RES            0
     6908   01 002B8    23C00000 A            MRC,R6         (CI,FF1)            MOVE TO MAR
                        0016
     6909   01 002BA    230000C0 N            MMC,A,KRDR1    EA,IO                            READ
                        551B
     6910   01 002BC    230000E0 N            NOP,T,KDATA    EA,IO,(KC,KW)
                        1E6C
     6911   01 002BE    23C000F0 A            LAD,A                              GET THE WORD
                        002F
     6912   01 002C0    23C00000 A            MRC,R7         (CI,FF1)            HIS HOME, KM=KM+1
                        0017
     6913   01 002C2    23000068 A            STO,A          EA,ED               STORE THE FOOL THING
                        006D
     6914   01 002C4    23000030 A            DCR,R5                             WC = WC - 1
                        0015
     6915   01 002C6    23000030 A            DCR,R4                             (PAGE) WC = WC - 1
                        0014
     6916   01 002C8    23000000 N            MMC,T,KDWPSR                       POST THE CURRENT WORD
                        C91A
     6917   01 002CA    23000000 A            TRA,R5                             COUNT IN THE PSR
                        0005
     6918   01 002CC    230000C8 A            NOP,T          EA,IO,ED            FOR STATUS
                        006C
     6919   01 002CE    23000028 N            STO,A,KWC      ED                  UPDATE WORD COUNT
                        066D
     6920   01 002D0    93016A00 N            NOP,T          (M,BER,HDAOUT2)     NOW FOR AN INTERLUDE
                        006C
     6921   01 002D2    A300F800 N            NOP,T          (M,BAL,HEFLAG)      TIO    PENDING ?
                        006C
     6922   01 002D4                 HDAOUT2  RES            0
     6923   01 002D4    22000030 A            TZR,R5         (CO,STC)            DONE ?
                        0055
     6924   01 002D6    8701A500 N            NOP,T          (M,BCR,HFOIN)       B,YES GO TO ORDER IN
                        006C
     6925   01 002D8    22000030 A            TZR,R4         CC,(CO,STC)         END OF PAGE ?
                        00D4
     6926   01 002DA    87015200 N            NOP,T          (M,BCR,HDAOUT4)     B,YES GET ANOTHER
                        006C
     6927   01 002DC    23000000 A            TRA,R7                             GET POINTER TO K MEM
                        0007
     6928   01 002DE    22C00030 N            AMA,A,KNMSIZE  CC,(CI,FF1),(CO,STC) SEE IF I AM OK STILL
                        228B
     6929   01 002E0    67007C00 N            NOP,T          (M,BCS,HDOVRN)      B,HAD OVERRRUN
                        006C
     6930   01 002E2                 HDAOUT3  RES            0
     6931   01 002E2    23000000 N            MMC,A,KRAR1                        SET UP AR TO LOOK AT IT
                        611B
     6932   01 002E4    230000C0 A            NOP,T          EA,IO               AND DO IT
                        006C
     6933   01 002E6    23C000F0 A            LAD,A                              GET THE WORD
                        002F
     6934   01 002E8    22000030 N            AMA,A,KSIGMEM  CC,(CI,FF0),(CO,STC)  NEAR END OF MEM ?
                        1F8B
     6935   01 002EA    87015C00 N            NOP,T          (M,BCR,HDAOUT1)
                        006C
     6936   01 002EC                 HMAEWDT  RES            0
     6937   01 002EC    23000000 N            LMF,A,KMAEBIT                      MEMORY ADDRESS ERROR
                        296B
     6938   01 002EE    23000030 N            ORM,A,KOSBYTE                      MERGE IT IN STATUS
                        186B
     6939   01 002F0    4301A500 N            NOP,T          (M,BU,HFOIN)        YOU ARE FINISHED !
                        006C
1 C00   20:35 JUN 20,'83     DATA IN PHASE                                                        PAGE   35
A    6941                            *
     6942                            *        START OF DATA IN PROCEDURE
     6943                            *        USES REGISTER GROUP TWO
     6944                            *        R4 = PAGE COUNT
     6945                            *        R5 = WORD COUNT
     6946                            *        R6 = SIGMA WORD ADDRESS
     6947                            *        R7 = K-MEMORY ADDRESS
     6948                            *
     6949   01 002F2                 HFDIN    RES            0
     6950   01 002F2    23000000 A            CLF,A
                        004D
     6951   01 002F4    23000028 N            STO,A,KTIC     ED
                        016D
     6952   01 002F6    23000000 N            LMF,A,KWAR2W                       GET THE SIGMA ADDRESS
                        BE6B
     6953   01 002F8    23000030 N            ORM,A,KWA                          MERGE IT IN
                        046B
     6954   01 002FA    23C00030 A            TAR,R6
                        0026
     6955   01 002FC                 HFDIN1   RES            0
     6956   01 002FC    A300F800 N            NOP,T          (M,BAL,HEFLAG)      E FLAG SET ?
                        006C
     6957   01 002FE    A3008600 N            NOP,T          (M,BAL,HGETBUF)     GET A BUFFER
                        006C
     6958   01 00300    A3009E00 N            NOP,T          (M,BAL,HMAKBUF)     CREATE BUFFER
                        006C
     6959   01 00302    23000000 N            LMF,A,KPWC                         GET PAGE COUNTER
                        0F6B
     6960   01 00304    23C00030 A            TAR,R4                             A -->R4
                        0024
     6961   01 00306    23000000 N            LMF,A,KWC
                        066B
     6962   01 00308    23C00030 A            TAR,R5                             SET IT UP AGAIN
                        0025
     6963   01 0030A    23000000 N            MMC,T,KWCR2                        SET UP CR # 2
                        3B1A
     6964   01 0030C    230000C0 A            NOP,T          EA,IO
                        006C
     6965   01 0030E    23000000 N            LMF,A,KBUFCUR                      GET THE K-MEM ADDR
                        1C6B
     6966   01 00310    23C00030 A            TAR,R7
                        0027
     6967   01 00312    23000000 A   HFDIN2   MRC,R7
                        0017
     6968   01 00314    23000050 A            LMF,A          EA,(KC,KR)
                        006B
     6969   01 00316    23000000 N            MMC,T,KWDR2                        WRITE DR# @
                        521A
     6970   01 00318    230000C8 A            NOP,T          EA,IO,ED            WITH THIS
                        006C
     6971   01 0031A    23C00000 A            MRC,R6         (CI,FF1)            SIG = SIG + 1
                        0016
     6972   01 0031C    230000F0 A            DCR,R5         EA,IO               WC = WC - 1
                        0015
     6973   01 0031E    23000030 A            DCR,R4                             (PAGE) WC = WC - 1
                        0014
     6974   01 00320    23C00000 A            INR,R7                             KMEM = KMEM + 1
                        0037
     6975   01 00322    23000000 N            MMC,T,KDWPSR                       MOVE WC TO PSR
                        C91A
     6976   01 00324    23000000 A            TRA,R5
                        0005
     6977   01 00326    230000C8 A            NOP,T          EA,IO,ED            UPDATE PSR WITH THIS
                        006C
     6978   01 00328    23000028 N            STO,A,KWC      ED                  AND UPDATE K-MEM
                        066D
     6979   01 0032A    93019700 N            NOP,T          (M,BER,HFDIN3)      E- FLAG SET ?
                        006C
     6980   01 0032C    A300F800 N            NOP,T          (M,BAL,HEFLAG)      B,YES
                        006C
     6981   01 0032E                 HFDIN3   RES            0
     6982   01 0032E    22000030 A            TZR,R5         (CO,STC)            WC = 0 ?
                        0055
     6983   01 00330    8701A500 N            NOP,T          (M,BCR,HFOIN)       B,YES GO TO ORDER IN
                        006C
     6984   01 00332    22000030 A            TZR,R4         CC,(CO,STC)         DONE WITH THIS PAGE ?
                        00D4
     6985   01 00334    87017E00 N            NOP,T          (M,BCR,HFDIN1)      B,YES GET ANOTHER
                        006C
     6986   01 00336    23000000 A            TRA,R7                             GET CURRENT K-MEM POINTER
                        0007
     6987   01 00338    22C00030 N            AMA,A,KNMSIZE  CC,(CI,FF1),(CO,STC) STILL IN K-MEM?
                        228B
     6988   01 0033A    67007C00 N            NOP,T          (M,BCS,HDOVRN)      B,NO OVERRUN
                        006C
     6989   01 0033C    23000000 N            MMC,A,KRAR2                        CHECK-OUT ADDRESS
                        621B
     6990   01 0033E    230000C0 A            NOP,T          EA,IO               WE ARE ACCESSING
                        006C
     6991   01 00340    23C000F0 A            LAD,A                              GE THE WORD
                        002F
     6992   01 00342    22000030 N            AMA,A,KSIGMEM  CC,(CI,FF0),(CO,STC) ARE WE OK?
                        1F8B
     6993   01 00344    67017600 N            NOP,T          (M,BCS,HMAEWDT)     B,YES FOR NOW
                        006C
     6994   01 00346    43018900 N            NOP,T          (M,BU,HFDIN2)       GO FINISH
                        006C
1 C00   20:35 JUN 20,'83     STOP PROCESSOR                                                       PAGE   36
A    6996   01 00348                 HFSTOP   RES            0
     6997   01 00348    23000000 A            NOP,T
                        006C
1 C00   20:35 JUN 20,'83     ORDER IN PHASE                                                       PAGE   37
A    6999                            *
     7000                            *        "ORDER IN" ROUTINE. CHECKS FLAGS FROM THE IOCD AND
     7001                            *        DOES AS IT REQUESTS.
     7002                            *        BIT 32 = DATA CHAIN
     7003                            *        BIT 33 = INTERRUPT ZERO BYTE COUNT
     7004                            *        BIT 34 = COMMAN CHAIN
     7005                            *        BIT 35 = INTERRUPT AT CHANNEL END
     7006                            *        BIT 36 = HALT ON TRANSMISSION ERROR
     7007                            *        BIT 37 = INTERRUPT ON UNUSUAL END
     7008                            *        BIT 38 = SURPRESS INCORRECT LENGTH
     7009                            *        BIT 39 = SKIP
     7010                            *
     7011   01 0034A                 HFOIN    RES            0
     7012   01 0034A    A300F800 N            NOP,T          (M,BAL,HEFLAG)      ANY REQUESTS ?
                        006C
     7013   01 0034C    23000030 N            LTM,A,KWC                          ARE WE AT ZERO BYTE COUNT
                        065B
     7014   01 0034E    23000030 N            ANM,A,KXFFFF
                        B64B
     7015   01 00350    22000030 A            TZR,A          (CO,STC)
                        005D
     7016   01 00352    8701AD00 N            STR,T          (M,BCR,HOIN1)       B,YES
                        002C
     7017   01 00354    23000028 N            STO,T,KUNE     ED                  IF HERE MUST BE UNE
                        106C
     7018   01 00356    23000000 N            LMF,A,KOSBYTE                      WE DO HAVE AN UNUSUAL
                        186B
     7019   01 00358    23000030 N            ORM,A,KUNEBIT
                        266B
     7020   01 0035A                 HOIN1    RES            0
     7021   01 0035A    23000000 N            MMC,T,KWCR0                        WRITE CONT REG
                        381A
     7022   01 0035C    230000C0 N            LMF,A,KFLAGS   EA,IO               GET THE FLAGS
                        096B
     7023   01 0035E    23000000 N            MMC,T,KWDR0                        SAME FOR DATA REG
                        501A
     7024   01 00360    230000C8 A            NOP,T          EA,IO,ED            PUT OUT FLAGS
                        006C
     7025   01 00362    23000000 N            LMF,T,KWCR0DL                      SET UP FOR DIGIT READ
                        A06A
     7026   01 00364    23000010 N            MKR,T,K6                           AT THE SIXTH DIGIT
                        901C
     7027   01 00366    230000C0 N            MMC,T,KRDR0AR  EA,IO               THIS WILL SET IT OFF
                        A31A
     7028   01 00368    23C000F0 A            LAD,A          EA,IO               GET THE DATA
                        002F
     7029   01 0036A    23C00030 A            TAR,R8                             SAVE THE DATA
                        0028
     7030   01 0036C    23000030 A            SLL,A,1                            PROCESS WORD FOR BRANCH
                        003D
     7031   01 0036E    23000030 N            ANM,A,KA                           SAVE IZC
                        B94B
     7032   01 00370    23C00030 A            TAR,R7                             TABLE COMMING UP BY
                        0027
     7033   01 00372    23C000F0 A            LAD,A          EA,IO               GET NEXT DIGIT
                        002F
     7034   01 00374    23000000 A            SRL,A,2                            MOVE TO THE RIGHT
                        000F
     7035   01 00378    23000030 N            ANM,A,K3                           GET RID OF FUNNY BITS
                        8A4B
     7036   01 0037A    23000030 A            ORR,R7                             NOW WE HAVE A TABLE
                        0067
     7037   01 0037C    23000000 A            TRA,R7                             MOVE TO ACC
                        0007
     7038   01 0037E    23000031 N            AMA,A,KX10     (CI,FF0)            SET UP DECISION TABLE
                        060B
     7039   01 00380    23000028 N            STO,A,KINTVEC  ED
                        116D
     7040   01 00382                 HOINNF   RES            0
     7041   01 00382    23000000 A            TRA,R8                             SET UP DECISION TABLE
                        0008
     7042   01 00384    23000000 A            SRL,A,1                            USES JUST GOOD BITS
                        000F
     7043   01 00386    23000030 N            ANM,A,K5                           MAKE SURE
                        8E4B
     7044   01 00388    23000031 N            AMA,A,KX20     (CI,FF0)
                        070B
     7045   01 0038A    E3000008 A            TRA,R8         ED,(M,AEA)          GET FLAGS AGAIN (CHAINING)
                        0008
     7046   01 0038C    03000000 A            NOP,T          (M,WAT)
                        006C
     7047   01 0038E                 HOINNC   RES            0
     7048   01 0038E    23000000 A            CLF,A                              GRAB A ZERO
                        004D
     7049   01 00390    23000028 N            STO,A,KDCBUSY  ED                  CLEAR BUSY FLAG
                        0B6D
     7050   01 00392    4301D200 N            NOP,T          (M,BU,HOININT)
                        006C
     7051   01 00394                 HOINCC   RES            0
     7052   01 00394    23000000 A            CSR,A
                        002D
     7053   01 00396    23000028 N            STO,A,KCCFLAG  ED
                        036D
     7054   01 00398                 HCAINC   RES            0
     7055   01 00398    23000000 N            LMF,A,KCA                          GET THE COMMAND DOUBLE-WORD
                        0E6B
     7056   01 0039A    23C00000 A            INR,A                              A = A + 1
                        003D
     7057   01 0039C    23C00000 A            INR,A                              A = A + 1
                        003D
     7058   01 0039E    43011628 N            STO,A,KCA      ED,(M,BU,HOOUT2)    RESTORE IT AND GET THE NEXT ONE
                        0E6D
     7059   01 003A0                 HOINDC   RES            0
     7060   01 003A0    23000000 A            CSR,A
                        002D
     7061   01 003A2    4301CC28 N            STO,A,KDCFLAG  ED,(M,BU,HCAINC)    SET THE DC FLAG
                        026D
     7062   01 003A4                 HOININT  RES            0
     7063   01 003A4    22000030 N            LTM,A,KINTVEC  (CO,STC)            ARE WE READY TO INT ?
                        115B
     7064   01 003A6    8700FB00 N            NOP,T          (M,BCR,HSCHED)      B,NO
                        006C
     7065   01 003A8    E3000008 A            NOP,T          ED,(M,AEA)          YES,LETS BRANCH
                        006C
     7066   01 003AA    03000000 A            NOP,T          (M,WAT)
                        006C
     7067   01 003AC                 HOINNIT  RES            0
     7068   01 003AC    23000000 N            LMF,A,KAUTBIT                      GET AUTOMATIC BIT
                        256B
     7069   01 003AE    23000028 N            STO,A,KOSBYTE  ED                  AND STORE IT
                        186D
     7070   01 003B0    4300FB00 N            NOP,T          (M,BU,HSCHED)       GO AND WAIT
                        006C
     7071   01 003B2                 HOINUE   RES            0
     7072   01 003B2    22000030 N            LTM,A,KUNE     (CO,STC)
                        105B
     7073   01 003B4    8701C100 N            CSR,A          (M,BCR,HOINNF)      NO UNE FOR ME
                        002D
     7074   01 003B6    43007128 N            STO,A,KINTFLG  ED,(M,BU,HFUNE)     B,HAD ONE
                        176D
     7075   01 003B8    23000000 A            CLF,A
                        004D
     7076   01 003BA    23000028 N            STO,A,KDCBUSY  ED                  CLEAR BUSY INDICATOR
                        0B6D
     7077   01 003BC    23000000 N            LMF,A,KAUTBIT                      GET AUTOMATIC BIT
                        256B
     7078   01 003BE    23000030 N            ORM,A,KUNEBIT                      AND UNUSUAL END BIT
                        266B
     7079   01 003C0    23000028 N            STO,A,KOSBYTE  ED                  AND SET UP STATUS
                        186D
     7080   01 003C2    4300DE00 N            NOP,T          (M,BU,HINT)         AND INTERRUPT ME
                        006C
     7081   01 003C4                 HOINUEZ  RES            0
     7082   01 003C4    22000030 N            LTM,A,KUNE     (CO,STC)            UNE ?
                        105B
     7083   01 003C6    8701E500 N            CSR,A          (M,BCR,HOINZBC)     B,NO
                        002D
     7084   01 003C8    43007128 N            STO,A,KINTFLG  ED,(M,BU,HFUNE)
                        176D
     7085   01 003CA                 HOINZBC  RES            0
     7086   01 003CA    23000000 A            CLF,A
                        004D
     7087   01 003CC    23000028 N            STO,A,KDCBUSY  ED
                        0B6D
     7088   01 003CE    23000000 N            LMF,A,KAUTBIT                      GET AUTOMATIC BIT
                        256B
     7089   01 003D0    23000030 N            ORM,A,KINTBIT                      AND INTERRUPT PENDING
                        236B
     7090   01 003D2    23000028 N            STO,A,KOSBYTE  ED                  AMD STORE STATUS
                        186D
     7091   01 003D4    23000000 A            CSR,A
                        002D
     7092   01 003D6    4300DE28 N            STO,A,KINTFLG   ED,(M,BU,HINT)
                        176D
     7093   01 003D8                 HOINHTE  RES            0
     7094   01 003D8    4301D900 N            NOP,T          (M,BU,HOINUE)
                        006C
     7095   01 003DA                 HOINCE   RES            0
     7096   01 003DA    23000000 A            CLF,A
                        004D
     7097   01 003DC    23000028 N            STO,A,KDCBUSY  ED                  CLEAR BUSY BITS
                        0B6D
     7098   01 003DE    23000000 N            LMF,A,KAUTBIT                      DEVICE AUTOMATIC
                        256B
     7099   01 003E0    23000030 N            ORM,A,KINTBIT                      WITH INTERRUPT PENDING
                        236B
     7100   01 003E2    23000028 N            STO,A,KOSBYTE  ED                  UPDATE STATUS
                        186D
     7101   01 003E4    23000000 A            CSR,A
                        002D
     7102   01 003E6    4300DE28 N            STO,A,KINTFLG  ED,(M,BU,HINT)      AND INTERRUPT NOW TO DO
                        176D
     7103   01 003E8                 HOINUEC  RES            0
     7104   01 003E8    22000030 N            LTM,A,KUNE     (CO,STC)            DO WE HAVE AN UNUSUAL END?
                        105B
     7105   01 003EA    8701ED00 N            CSR,A          (M,BCR,HOINCE)      B, NO UNE DO CHANNEL END
                        002D
     7106   01 003EC    43007128 N            STO,A,KINTFLG  ED,(M,BU,HFUNE)     B TO UNUSUAL END
                        176D
1 C00   20:35 JUN 20,'83    HF CRASH SAVE                                                         PAGE   38
A    7108   01 003EE                 HCRAS    RES            0
     7109   01 003EE    23000029 N            STO,A,KRASB49  ED
                        346D
     7110   01 003F0    23000000 A            TRA,R0
                        0000
     7111   01 003F2    23000029 N            STO,A,KRASB40  ED                  SAVE R0
                        2A6D
     7112   01 003F4    23000000 A            TRA,R1
                        0001
     7113   01 003F6    23000029 N            STO,A,KRAS0    ED
                        2B6D
     7114   01 003F8    23000000 A            TRA,R2
                        0002
     7115   01 003FA    23000029 N            STO,A,KRAS1    ED
                        2C6D
     7116   01 003FC    23000000 A            TRA,R3
                        0003
     7117   01 003FE    23000029 N            STO,A,KRAS2    ED
                        2D6D
     7118   01 00400    23000000 A            TRA,R4
                        0004
     7119   01 00402    23000029 N            STO,A,KRAS3    ED
                        2E6D
     7120   01 00404    23000000 A            TRA,R5
                        0005
     7121   01 00406    23000029 N            STO,A,KRAS4    ED
                        2F6D
     7122   01 00408    23000000 A            TRA,R6
                        0006
     7123   01 0040A    23000029 N            STO,A,KRAS5    ED
                        306D
     7124   01 0040C    23000000 A            TRA,R7
                        0007
     7125   01 0040E    23000029 N            STO,A,KRAS6    ED
                        316D
     7126   01 00410    23000000 A            TRA,R8
                        0008
     7127   01 00412    23000029 N            STO,A,KRAS7    ED
                        326D
     7128   01 00414    23000000 A            TRA,R9
                        0009
     7129   01 00416    23000029 N            STO,A,KRAS8    ED
                        336D
     7130   01 00418    23000000 A            TRA,T
                        000C
     7131   01 0041A    23000029 N            STO,A,KRAS9    ED
                        356D
     7132   01 0041C    23000000 N            MMC,T,KRCR0
                        3E1A
     7133   01 0041E    23C000F0 A            LAD,A          EA,IO
                        002F
     7134   01 00420    23000029 N            STO,A,KRAS10   ED
                        366D
     7135   01 00422    23000000 N            MMC,T,KRCR1
                        3F1A
     7136   01 00424    23C000F0 A            LAD,A          EA,IO
                        002F
     7137   01 00426    23000029 N            STO,A,KRAS11   ED
                        376D
     7138   01 00428    23000000 N            MMC,T,KRCR2
                        401A
     7139   01 0042A    23C000F0 A            LAD,A          EA,IO
                        002F
     7140   01 0042C    23000029 N            STO,A,KRAS12   ED
                        386D
     7141   01 0042E    23000000 N            MMC,T,KRCR3
                        411A
     7142   01 00430    23C000F0 A            LAD,A          EA,IO
                        002F
     7143   01 00432    23000029 N            STO,A,KRAS13   ED
                        396D
     7144   01 00434    23000000 N            MMC,T,KRAR0
                        601A
     7145   01 00436    23C000F0 A            LAD,A          EA,IO
                        002F
     7146   01 00438    23000029 N            STO,A,KRAS14   ED
                        3A6D
     7147   01 0043A    23000000 N            MMC,T,KRAR1
                        611A
     7148   01 0043C    23C000F0 A            LAD,A          EA,IO
                        002F
     7149   01 0043E    23000029 N            STO,A,KRAS15   ED
                        3B6D
     7150   01 00440    23000000 N            MMC,T,KRAR2
                        621A
     7151   01 00442    23C000F0 A            LAD,A          EA,IO
                        002F
     7152   01 00444    23000029 N            STO,A,KRAS16   ED
                        3C6D
     7153   01 00446    23000000 N            MMC,T,KRAR3
                        631A
     7154   01 00448    23C000F0 A            LAD,A          EA,IO
                        002F
     7155   01 0044A    23000029 N            STO,A,KRAS17   ED
                        3D6D
     7156   01 0044C    23000000 N            MMC,T,KWCR0
                        381A
     7157   01 0044E    230000C0 N            MMC,T,KWCR1    EA,IO
                        3A1A
     7158   01 00450    230000C0 N            MMC,T,KWCR2    EA,IO
                        3B1A
     7159   01 00452    230000C0 N            MMC,T,KWCR3    EA,IO
                        3D1A
     7160   01 00454    230000C0 N            MMC,T,KRDR0    EA,IO
                        541A
     7161   01 00456    23C000F0 A            LAD,A          EA,IO
                        002F
     7162   01 00458    23000029 N            STO,A,KRAS18   ED
                        3E6D
     7163   01 0045A    23000000 N            MMC,T,KRDR1
                        551A
     7164   01 0045C    23C000F0 A            LAD,A          EA,IO
                        002F
     7165   01 0045E    23000029 N            STO,A,KRAS19   ED
                        3F6D
     7166   01 00460    23000000 N            MMC,T,KRDR2
                        561A
     7167   01 00462    23C000F0 A            LAD,A          EA,IO
                        002F
     7168   01 00464    23000029 N            STO,A,KRAS20   ED
                        406D
     7169   01 00466    23000000 N            MMC,T,KRDR3AR
                        AE1A
     7170   01 00468    23C000F0 A            LAD,A          EA,IO
                        002F
     7171   01 0046A    23000029 N            STO,A,KRAS21   ED
                        416D
     7172   01 0046C    23C000F0 A            LAD,A          EA,IO
                        002F
     7173   01 0046E    23000029 N            STO,A,KRAS22   ED
                        426D
     7174   01 00470    23C000F0 A            LAD,A          EA,IO
                        002F
     7175   01 00472    23000029 N            STO,A,KRAS23   ED
                        436D
     7176   01 00474    23C000F0 A            LAD,A          EA,IO
                        002F
     7177   01 00476    23000029 N            STO,A,KRAS24   ED
                        446D
     7178   01 00478    23C000F0 A            LAD,A          EA,IO
                        002F
     7179   01 0047A    23000029 N            STO,A,KRAS25   ED
                        456D
     7180   01 0047C    23C000F0 A            LAD,A          EA,IO
                        002F
     7181   01 0047E    23000029 N            STO,A,KRAS26   ED
                        466D
     7182   01 00480    23C000F0 A            LAD,A          EA,IO
                        002F
     7183   01 00482    23000029 N            STO,A,KRAS27   ED
                        476D
     7184   01 00484    23C000F0 A            LAD,A          EA,IO
                        002F
     7185   01 00486    23000029 N            STO,A,KRAS28   ED
                        486D
     7186   01 00488    C3000000 A            NOP,T          (M,RET)             GO WAIT
                        006C
     7187   01 0048A                 HREG     RES            0
     7188   01 0048A    23000000 N            LMF,A,KWAR0W                       TO WRITE AR 0
                        BC6B
     7189   01 0048C    23000030 N            ORM,A,KSIGTEMP                     WHERE I WANT IT
                        206B
     7190   01 0048E    23C00030 A            TAR,R6                             PUT IT HERE
                        0026
     7191   01 00490    23000000 N            LMF,A,KM31                         COUNT OF # OF WORDS
                        976B
     7192   01 00492    23C00030 A            TAR,R4                             SAVE IT
                        0024
     7193   01 00494    23000000 N            MMC,T,KWCR0                        TO WRITE CR 0
                        381A
     7194   01 00496    230000C1 N            LMF,A,KRASLOC  EA,IO               LOC OF SAVE TABLE
                        296B
     7195   01 00498    23C00030 A            TAR,R7                             SAFE KEEPING
                        0027
     7196   01 0049A    23C00000 A   HREG1    MRC,R7         (CI,FF1)            INTO THE MAR
                        0017
     7197   01 0049C    23000050 A            LMF,A          EA,(KC,KR)          GET THE WORD
                        006B
     7198   01 0049E    23000000 N            MMC,T,KWDR0                        WRITE DR 0
                        501A
     7199   01 004A0    230000C8 A            NOP,T          EA,IO,ED            THIS WILL DO IT
                        006C
     7200   01 004A2    23C00000 A            MRC,R6         (CI,FF1)            SIG = SIG + 1
                        0016
     7201   01 004A4    23C000C0 A            INR,R4         EA,IO               WORDS = WORDS - 1
                        0034
     7202   01 004A6    22000030 A            TZR,R4         (CO,STC)            TEST IF DONE
                        0054
     7203   01 004A8    67024D00 N            NOP,T          (M,BCS,HREG1)       B,NOT DONE
                        006C
     7204   01 004AA    4300FB00 N            NOP,T          (M,BU,HSCHED)       DONE
                        006C
     7205                                     LOCAL
     7206         01 004AC           MCMEND   EQU      %
     7207   01 025B9                          ORG            %%
            01 025B9
     7208         01 025B9           MCMEND1  EQU            %%
     7209         01 025B9           VERBUF   EQU      %%
     7210   01 025B9                          RES            4096
     7211         01 01E5D                    END            INITA
            01 035B9    00003000 A
            01 035BA    0000F000 A

  CONTROL SECTION SUMMARY: 01 035BB   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:35 JUN 20,'83    HF CRASH SAVE                                                         PAGE   39
A  A               4095-SET     4097/GEN     4099-SET     4099/SET     6275/SET     6406/DO      6408/AAR
      6411/AAR     6546/CLF     6547/STO     6548/MMC     6549/LAD     6552/LMF     6553/MKR     6554/MMC
      6555/LAD     6556/AMA     6565/LAD     6566/SLL     6567/STO     6575/LAD     6576/CIA     6577/STO
      6581/LAD     6582/STO     6592/LMF     6593/STO     6594/LMF     6595/LMF     6596/ORM     6597/STO
      6598/LTM     6600/LTM     6605/STO     6606/LMF     6607/ORM     6608/LMF     6610/STO     6613/LMF
      6614/STO     6623/LMF     6624/CIA     6626/LMF     6627/STO     6628/AMA     6631/STO     6634/LMF
      6635/CIA     6636/AMA     6638/AMA     6640/LMF     6641/STO     6642/STO     6644/LMF     6645/STO
      6646/AMA     6647/STO     6658/LMF     6659/STO     6660/LMF     6662/LMF     6664/LMF     6665/AMA
      6666/STO     6668/ANM     6669/ORM     6670/ORM     6671/ORM     6673/STO     6674/INR     6678/AMA
      6683/AMA     6685/LMF     6686/AMA     6687/STO     6689/AMA     6701/LMF     6702/ORM     6708/LMF
      6709/ORM     6715/LTM     6724/CLF     6725/STO     6726/STO     6727/STO     6728/STO     6729/STO
      6730/LMF     6731/STO     6732/STO     6733/LMF     6734/STO     6746/LTM     6750/LMF     6751/MKR
      6753/LAD     6754/TZR     6756/LMF     6758/NOP     6761/LMF     6763/INR     6764/TZR     6766/LMF
      6767/STO     6772/CLF     6773/STO     6791/STR     6792/STO     6793/CLF     6794/STO     6795/STO
      6796/STO     6797/ORM     6798/ORM     6799/ORM     6800/STO     6810/LTM     6813/CLF     6814/STO
      6815/STO     6816/LMF     6817/ANM     6818/SLL     6820/STO     6822/MKR     6823/MMC     6827/LMF
      6832/ANM     6833/SRL     6834/TZR     6836/LMF     6838/STO     6839/STO     6840/LTM     6842/LMF
      6849/LMF     6850/ANM     6851/SRL     6852/STO     6853/STO     6854/CLF     6855/STO     6856/STO
      6857/STO     6858/LMF     6859/ANM     6860/AMA     6867/LTM     6869/LMF     6870/STO     6871/LMF
      6872/ANM     6875/SLL     6878/CLF     6879/STO     6891/CLF     6892/STO     6893/LMF     6894/AMA
      6899/LMF     6901/LMF     6905/LMF     6909/MMC     6911/LAD     6913/STO     6919/STO     6928/AMA
      6931/MMC     6933/LAD     6934/AMA     6937/LMF     6938/ORM     6950/CLF     6951/STO     6952/LMF
      6953/ORM     6959/LMF     6961/LMF     6965/LMF     6968/LMF     6978/STO     6987/AMA     6989/MMC
      6991/LAD     6992/AMA     7013/LTM     7014/ANM     7015/TZR     7018/LMF     7019/ORM     7022/LMF
      7028/LAD     7030/SLL     7031/ANM     7033/LAD     7034/SRL     7035/ANM     7038/AMA     7039/STO
      7042/SRL     7043/ANM     7044/AMA     7048/CLF     7049/STO     7052/CSR     7053/STO     7055/LMF
      7056/INR     7057/INR     7058/STO     7060/CSR     7061/STO     7063/LTM     7068/LMF     7069/STO
      7072/LTM     7073/CSR     7074/STO     7075/CLF     7076/STO     7077/LMF     7078/ORM     7079/STO
      7082/LTM     7083/CSR     7084/STO     7086/CLF     7087/STO     7088/LMF     7089/ORM     7090/STO
      7091/CSR     7092/STO     7096/CLF     7097/STO     7098/LMF     7099/ORM     7100/STO     7101/CSR
      7102/STO     7104/LTM     7105/CSR     7106/STO     7109/STO     7111/STO     7113/STO     7115/STO
      7117/STO     7119/STO     7121/STO     7123/STO     7125/STO     7127/STO     7129/STO     7131/STO
      7133/LAD     7134/STO     7136/LAD     7137/STO     7139/LAD     7140/STO     7142/LAD     7143/STO
      7145/LAD     7146/STO     7148/LAD     7149/STO     7151/LAD     7152/STO     7154/LAD     7155/STO
      7161/LAD     7162/STO     7164/LAD     7165/STO     7167/LAD     7168/STO     7170/LAD     7171/STO
      7172/LAD     7173/STO     7174/LAD     7175/STO     7176/LAD     7177/STO     7178/LAD     7179/STO
      7180/LAD     7181/STO     7182/LAD     7183/STO     7184/LAD     7185/STO     7188/LMF     7189/ORM
      7191/LMF     7194/LMF     7197/LMF
   AAR             6228-CNAME
   ABSMSIZE        2175-DATA    2482/CW      2489/CW      2491/LW      2573/CW      2607/STW     2671/CW
      3211/CW      5574/STW
   ACM             6229-CNAME
   ACR             6230-CNAME
   ADA             6231-CNAME
   ADD             2372/DATA    2431-LI      2456/BIR
   ADDA            2440/BNE     2452-CI
   ADDHF           2434/BE      2458-LW
   ADDSAVE         1175/CS      1179/STW     1185-DATA    1197/STW     1231/B*
   ADMASK          1096/LW      1282/AND     1397/LW      1403/LW    2168.2-DATA    2481/AND     2488/AND
      2603/CW      3162/AND     4136/LW      4855/LW      5015/LW      5021/AND     5571/CW
   ADTAB           2290/LW      2371-EQU
   AEA             6371-EQU     6557/TRA     6861/TRA     7045/TRA     7065/NOP
   AIODATA         1272/STW     1293/LW      1297/LW      1356/LW      1407-RES     1641/STW     1648/STW
      1655/STW     1662/STW
   AIOERR          1355/MTYPE   5370-TEXTCS
   AIOERR2         1358/LI      1360/MTYPE   5371-TEXTCS
   AIO5C            488/PSD     1262-LI
   ALLOW            398-COM
   ALLOW2           399-COM
   ALLTEXT         3263/CW      3333-DATA
   ALR             6232-CNAME
   AMA             6233-CNAME
   AND             6227/OPEN    6234-CNAME
   ANM             6235-CNAME
   ANR             6236-CNAME
   AR              6443-EQU
   ARTEXT          3825/MTYPE   5449-TEXTCS
   AR0             6427-EQU     6428/EQU     6429/EQU     6430/EQU
   AR1             6428-EQU
   AR2             6429-EQU
   AR3             6430-EQU
   B               4103-SET     4105/GEN     4107-SET     4107/SET
   BADPAR          2326/MTYPE   5361-TEXTCS
   BADSIO          4887/LI      4889/MTYPE   5381-TEXTCS
   BAL             6369-EQU     6544/NOP     6812/NOP     6897/NOP     6898/NOP     6921/NOP     6956/NOP
      6957/NOP     6958/NOP     6980/NOP     7012/NOP
   BALINS           579/LW       607-BAL
   BALRTN          1518/STW     1537/BCS*    1539/B*      1544/STW     1549/BEZ*    1561/BEZ*    1570/BEZ*
      1704/STW     1714/BEZ*    3072/STW     3087/B*      3129-DATA    4684/STW     4715/B*      4910/STW
      4971/B*      5707/STW     5731/BEZ*
   BALRTNT          991/STW     1021/B*      3131-DATA    4780/STW
   BALRTN1         3060/STW     3068/B*      3130-DATA    5753/STW     5767/B*      5807/STW     5815/BEZ*
   BCF             5342-TEXTCS
   BCR             6362-EQU     6601/NOP     6639/NOP     6716/NOP     6747/NOP     6811/NOP     6924/NOP
      6926/NOP     6935/NOP     6983/NOP     6985/NOP     7016/STR     7064/NOP     7073/CSR     7083/CSR
      7105/CSR
   BCS             6361-EQU     6599/NOP     6630/NOP     6637/NOP     6679/NOP     6755/NOP     6765/NOP
      6790/LTM     6791/STR     6835/NOP     6841/NOP     6868/NOP     6929/NOP     6988/NOP     6993/NOP
      7203/NOP
   BCZR            6368-EQU
   BCZS            6367-EQU
   BER             6366-EQU     6699/NOP     6788/NOP     6920/NOP     6979/NOP
   BES             6365-EQU     6777/NOP     6781/NOP
   BITS             911/LB       939-DATA
   BMDATA          2149-DATA    2502/STW     2879/MTW     4839/OR
   BMTEXT          2881/MTYPE   5400-TEXTCS
   BU              6360-EQU     6462/NOP     6463/NOP     6464/NOP     6465/NOP     6470/NOP     6471/NOP
      6473/NOP     6474/NOP     6475/NOP     6476/NOP     6477/NOP     6478/NOP     6479/NOP     6480/NOP
      6481/NOP     6482/NOP     6483/NOP     6484/NOP     6485/NOP     6486/NOP     6487/NOP     6488/NOP
      6489/NOP     6490/NOP     6491/NOP     6492/NOP     6493/NOP     6494/NOP     6495/NOP     6496/NOP
      6497/NOP     6498/NOP     6499/NOP     6500/NOP     6505/NOP     6506/NOP     6507/NOP     6508/NOP
      6509/NOP     6510/NOP     6511/NOP     6512/NOP     6513/NOP     6514/NOP     6515/NOP     6516/NOP
      6517/NOP     6518/NOP     6519/NOP     6520/NOP     6568/NOP     6578/NOP     6583/NOP     6602/NOP
      6611/NOP     6615/NOP     6689/AMA     6735/NOP     6773/STO     6782/NOP     6876/NOP     6880/NOP
      6939/NOP     6994/NOP     7050/NOP     7058/STO     7061/STO     7070/NOP     7074/STO     7080/NOP
      7084/STO     7092/STO     7094/NOP     7102/STO     7106/STO     7204/NOP
   BUFSIZE         1758/LW      2005/LW      2167-DATA    3529/STW     4333/LW      4345/LW      4384/LW
      4439/LW      4486/LW      4521/LW      4556/LW      4565/LW      4864/LW      5025/LW      5069/AW
      5070/LW
   BURST           2373/DATA    2498-LI
   BUSCK            947/MTYPE   5338-TEXTCS
   BXLATE          5258/BAL     5268/BAL     5282/BAL     5286/BAL     5291-LW      5299/BDR     5302/BDR
   BY              6452-EQU
   BZR             6364-EQU     6682/NOP
   BZS             6363-EQU     6684/NOP
   C               6354-EQU     6361/EQU     6362/EQU     6367/EQU     6368/EQU
   CAC             6237-CNAME
   CAL1XFR          814/B        815-B
   CATALOG          0.1-EQU      0.3/EQU
   CC              6288/SET     6598/LTM     6600/LTM     6629/ALR     6678/AMA     6683/AMA     6764/TZR
      6834/TZR     6925/TZR     6928/AMA     6934/AMA     6984/TZR     6987/AMA     6992/AMA
   CCCTEEE         2047-STW
   CCF             5343-TEXTCS
   CE              6288/SET     6700/MMC     6724/CLF     6789/LTM
   CHANCNT         4003-WD      4016/BDR
   CHANCO          4042/LPSD    4045-DATA
   CHANEND         4007/BNE     4012/BNE     4017-CW      4045/DATA
   CHANIN          4018/BANZ    4021-SW
   CHANOUT         4020/B       4023-SLS
   CHANRSET        4753/MTYPE   5380-TEXTCS
   CHANTO          4041/XPSD    4044-PSD
   CHANTOL         4042-LPSD    4044/PSD
   CHANTRAP        3995/LW      4041-XPSD
   CHGMODE         2935/B       2939/B       2943-STB
   CI              6288/SET     6628/AMA     6668/ANM     6672/MRC     6678/AMA     6894/AMA     6908/MRC
      6912/MRC     6928/AMA     6934/AMA     6971/MRC     6987/AMA     6992/AMA     7038/AMA     7044/AMA
      7196/MRC     7200/MRC
   CIA             6238-CNAME
   CINIT           5688/BEZ     5691-WD
   CKHEAD          1779/MPRINT  1780/MTYPE   5390-TEXTCS
   CKLIM           1752/STD     1760/STD     1793/LW      1794/SW      1796/LW      1802/STB*    1825-RES
   CKMEM           1311/BAL     1343/BAL     1740-STW
   CKMEMB          1755/BNE     1765-CW      1769/BL
   CKMEMC          1766/BNE     1772-LCI     1813/BNE
   CKMEMD          1775/BCS     1801-LI
   CKMEMD1         1818-B
   CKMEMHF         1764/BLZ     1806-RES
   CKMEMHF1        1812-CS      1817/BL
   CKMEMX          1740/STW     1770/B*      1805/B*      1808/BNEZ*   1818/B*      1822-RES
   CKSAVE          1773/STM     1782/LM      1804/LM      1823-RES
   CLEARM          1120/MTYPE   5347-TEXTCS
   CLEARMEM        4195-LI      4642/BAL
   CLEARPDF         693/LPSD     700/LPSD    1829-DATA
   CLF             6239-CNAME
   CLISTR          4101-GEN     4109/GEN     4110/GEN     4141/LI      4155/LI      4160/CI
   CLISTW          4093-GEN     4111/GEN     4112/GEN     4140/LI      4154/LI
   CLOAD           2276-LB      2284/B
   CM              2406/DATA    2506-LI
   CMDATA          2150-DATA    2510/STW     2882/MTW     4843/MTW     4845/LW      5140/LW
   CMTEXT          2884/MTYPE   5141/MTYPE   5404-TEXTCS
   CO              6288/SET     6598/LTM     6600/LTM     6629/ALR     6636/AMA     6638/AMA     6678/AMA
      6681/TZR     6683/AMA     6715/LTM     6746/LTM     6754/TZR     6764/TZR     6789/LTM     6790/LTM
      6810/LTM     6834/TZR     6840/LTM     6867/LTM     6923/TZR     6925/TZR     6928/AMA     6934/AMA
      6982/TZR     6984/TZR     6987/AMA     6992/AMA     7015/TZR     7063/LTM     7072/LTM     7082/LTM
      7104/LTM     7202/TZR
   CODONE          2527/BLZ     2532-EQU
   COEQ            2524/BE      2529-LI
   COLOOP          2521/BNE     2523-CS      2528/B
   COLOOPC         2525-MTW     2531/B
   COMERR          2289/B       2324-MTYPE
   COMIO           2946/BE      2953/B       2958-LW
   COMLMSRD        3238-STCF    3341/B       3359/B
   COMMES          2324/MTYPE   5359-TEXTCS
   COMPARE         2374/DATA    2514-BAL
   COMPD           1789/LI      1791/MTYPE   1792/MPRINT  3025/LI      3029/LI      3034/LI      3038/LI
      3041/MTYPE   3609/MTYPE   3648/LI      3820/LI      3824/MTYPE   3827/LI      3831/MTYPE   3841/LI
      3845/MTYPE   3847/LI      3850/MTYPE   4373/LI      4380/MPRINT  4382/MTYPE   4737/MTYPE
      5383-TEXTCS
   CONFIGURE       2375/DATA    2539-BAL
   CONMSG          2239/MTYPE   5360-TEXTCS
   CONTMES         1149/MTYPE   5354-TEXTCS
   CORE            2376/DATA    2555-RES
   CORED           2569/BE      2582/B       2594/B       2612-LW
   CORELOW         2561/B       2567/BE      2576-BAL
   COREOK           495-PSD     2679/XPSD
   COREPSD          494-PSD     2678/XPSD
   COREQ           2565/BE      2638-RES     5692/B
   COREQ1          2641-STW     2674/BAZ     2676/B
   COREQ2          2661/B       2663/B       2665/B       2667-LI
   CORESZM         2615/LI      2622/MTYPE   5357-TEXTCS  5587/LI      5594/MTYPE
   CORTEXT         2562/CW      2680-DATA
   CORTST          2590/LW      2678-XPSD
   CORTST1         2595/LW      2679-XPSD
   COR1             494/PSD     2563/BE      2595-LW
   COR2             495/PSD     2605-AI
   COR3            2600-LI      2604/BLE
   COUNT1           449/MTW     2142-DATA
   COUNT2           450/MTW     2143-DATA
   COUNT3           451/MTW     2018/LW      2144-DATA    3628/STW
   COUNT4           423/SW       452/MTW      543/STW     1249/AWM     1253/MTW     2145-DATA    4613/MTW
   CPARITY         5169/BAL     5190-LW      5237/BAL
   CPARITYA        5199-LB      5207/B
   CPETEXT         3806/MTYPE   5447-TEXTCS
   CPF             6240-CNAME
   CPUBUF           506/STW     2835/STW     3758/LW      4076-DATA    4206/STW     4212/STW     4313/LW
      4320/STW     4370/LW      4383/LW      4391/STB*    4418/LW      4425/STW     4504/STB*    5076/CW
   CPUHEAD         4379/MPRINT  4381/MTYPE   5392-TEXTCS
   CR               589/LI       863/MTYPE    876/MTYPE   1159/MTYPE   3495/MTYPE   3953/MTYPE
      5423-TEXTCS
   CRASHPSD         557/LPSD     564/LPSD     591/LPSD     615/LPSD     622/LPSD     629/LPSD     694/LPSD
       839/LPSD     846/LPSD     853/LPSD     945/LPSD     950/LPSD     958/LPSD     967/LPSD     976/LPSD
       980-DATA    1156/LPSD
   CRDRTXT         2564/CW      2681-DATA
   CREXIT          2428/B       2503/B       2511/B       2533-MTYPE   2689/B       2717/B       2824/B
      2891/B       2900/B       2909/B       2915/B       2986/B       3188/B       3225/B       3232/B
      3254/B       3372/B       3376/B       3380/B       3447/BE      3458/B       3477/B       3479/B
      3488/B       3546/B       3564/B       3601/B       3611/B       3626/B       3629/B       3706/B
      3764/B
   CRTEXT          3818/MTYPE   5448-TEXTCS
   CR0             6435-EQU     6436/EQU     6437/EQU     6438/EQU
   CR1             6436-EQU
   CR2             6437-EQU
   CR3             6438-EQU
   CSCAN           2279/BE      2283/BGE     2285-LI
   CSR             6241-CNAME
   CSTAKW           535/LW      2231-DATA
   CTABL           2286/CW      2332-EQU     2370/EQU
   CTL             2285/LI      2286/CW      2290/LW      2370-EQU
   CURTIME          544/BAL     1289/BAL     1776/BAL     2014-RES     2804/BAL     4238/BAL     4265/BAL
      4296/BAL     4376/BAL     4401/BAL     4734/BAL
   CURTIME1        2019-DW      2022/BIR
   CURTIME2        2025-LW      2034/BIR
   CVA1            4447-BAL     4453/B
   CVA2            4448/B       4454-CVA
   CVA3            4449/B       4456-LW
   CVBUF           4441/STW     4523/STW     4528/LW      4586/LW      4597/STW     4602-DATA
   CVCALC          4447/BAL     4536/BAL     4584-RES
   CVCALC1         4589/BGE     4596-AI
   CVCALC2         4587/BEZ     4600-MTW
   CVDATA          4438/STW     4482/LW      4520/STW     4525/LW      4561/LW      4607-DATA
   CVERR           4459/BNEZ    4470-RES
   CVERR1          4476-MTYPE
   CVERR3          4474/BCS     4503-LI      4553/BCS     4582/B
   CVERR4          4505-LI
   CVLOC           4436/STW     4518/STW     4532/LW      4606-DATA
   CVSASUM         4608-DATA
   CVSMSUM         4458/STW     4477/LW      4609-DATA
   CVTEXTA         4475/MTYPE   4554/MTYPE   5475-TEXTCS
   CVTEXTB         5476-TEXTCS
   CVTEXTC         4476/MTYPE   5477-TEXTCS
   CVTEXTD         4478/LI      4481/MTYPE   5478-TEXTCS
   CVTEXTE         4495/MTYPE   5479-TEXTCS
   CVTEXTF         4484/LI      4489/LI      4493/LI      4496/MTYPE   5480-TEXTCS
   CVTEXTH         4499/LI      4501/MTYPE   4578/LI      4580/MTYPE   5481-TEXTCS
   CVTEXTM         4555/MTYPE   5482-TEXTCS
   CVTEXTN         4559/LI      4563/LI      4568/LI      4570/MTYPE   5483-TEXTCS
   CVTEXTO         4573/LI      4575/MTYPE   5484-TEXTCS
   C2B             2556/LW      2591/XW      2596/XW      2609/STW     2677-EQU
   D               6453-EQU
   DAPDATA         4837/OR      4904-DATA
   DC              6447-EQU
   DCA             6242-CNAME
   DCR             6243-CNAME
   DDOIT           1958-LW      1977/BIOSP
   DEFER           1344/MTW     1347/AW      2165-DATA    2688/STW     4645/AW
   DELAY           2377/DATA    2684-LW
   DEVADDR         4821/STW     4822/STB     4847/HIO*    4882/SIO*    4884/LW      4890/LB      4903-RES
   DILOOPC         2721/BGE     2724-LI      2761/B
   DILOOP1          586/BAL      781/BAL      862/BAL     1799/BAL     2530/BAL     2716/BAL     2719-STW
      2823/BAL     3393/BAL     3441/BAL     4388/BAL
   DILOOP2         2731-LI      2740/B
   DIOD            6457-EQU
   DIRECTC         3339/BAL     3344-LW      3353/BAL
   DISPB            592/LI      2725/LI      2741/AI      2742/STB     2754/MTYPE   2762/LB      2764/STB
      2765/MPRINT  5090-TEXTCS
   DISPBA          2794/GEN     5092-TEXT    5093/EQU
   DISPBX          2763/AI      5093-EQU
   DOADD           2438/B       2442-LW      2446/BLE
   DODISP          2735/BEZ     2737/BLZ     2741-AI
   DODIT           2752-MTW
   DODU            2753/BLZ     2762-LB
   DODUR           2758-MTW     2767/BLE     2771/BGE     2777/BNE     2791/B
   DPRINT           401-COM      827/B       1973-LW
   DRTEXT          3832/MTYPE   5450-TEXTCS
   DR0             6431-EQU     6432/EQU     6433/EQU     6434/EQU
   DR1             6432-EQU
   DR2             6433-EQU
   DR3             6434-EQU
   DR3TEXT         3839/MTYPE   5451-TEXTCS
   DTYPE            400-COM      826/B       1956-LW      1978/B
   DUFLAG           583/STW      778/STW      858/STW     1798/STW     2516/STW     2714/STW     2723/STW
      2752/MTW     2780/MTW     2822/STW     2827-RES     3392/STW     4387/STW
   DUMP            2378/DATA    2796-LW
   E               6356-EQU     6365/EQU     6366/EQU
   EA              6288/SET     6546/CLF     6549/LAD     6551/NOP     6554/MMC     6555/LAD     6564/MMC
      6565/LAD     6575/LAD     6581/LAD     6673/STO     6701/LMF     6704/NOP     6707/NOP     6711/NOP
      6714/NOP     6749/NOP     6752/MMC     6753/LAD     6758/NOP     6761/LMF     6802/MMC     6803/NOP
      6822/MKR     6823/MMC     6824/NOP     6825/NOP     6827/LMF     6829/MMC     6830/MMC     6831/NOP
      6844/MMC     6845/MMC     6846/MMC     6847/NOP     6874/NOP     6904/NOP     6909/MMC     6910/NOP
      6913/STO     6918/NOP     6932/NOP     6964/NOP     6968/LMF     6970/NOP     6972/DCR     6977/NOP
      6990/NOP     7022/LMF     7024/NOP     7027/MMC     7028/LAD     7033/LAD     7133/LAD     7136/LAD
      7139/LAD     7142/LAD     7145/LAD     7148/LAD     7151/LAD     7154/LAD     7157/MMC     7158/MMC
      7159/MMC     7160/MMC     7161/LAD     7164/LAD     7167/LAD     7170/LAD     7172/LAD     7174/LAD
      7176/LAD     7178/LAD     7180/LAD     7182/LAD     7184/LAD     7194/LMF     7197/LMF     7199/NOP
      7201/INR
   ED              6288/SET     6547/STO     6551/NOP     6557/TRA     6567/STO     6577/STO     6582/STO
      6593/STO     6597/STO     6605/STO     6610/STO     6614/STO     6627/STO     6631/STO     6641/STO
      6642/STO     6645/STO     6647/STO     6659/STO     6666/STO     6673/STO     6687/STO     6704/NOP
      6711/NOP     6725/STO     6726/STO     6727/STO     6728/STO     6729/STO     6731/STO     6732/STO
      6734/STO     6758/NOP     6767/STO     6773/STO     6792/STO     6794/STO     6795/STO     6796/STO
      6800/STO     6814/STO     6815/STO     6820/STO     6829/MMC     6838/STO     6839/STO     6845/MMC
      6852/STO     6853/STO     6855/STO     6856/STO     6857/STO     6861/TRA     6870/STO     6879/STO
      6892/STO     6913/STO     6918/NOP     6919/STO     6951/STO     6970/NOP     6977/NOP     6978/STO
      7017/STO     7024/NOP     7039/STO     7045/TRA     7049/STO     7053/STO     7058/STO     7061/STO
      7065/NOP     7069/STO     7074/STO     7076/STO     7079/STO     7084/STO     7087/STO     7090/STO
      7092/STO     7097/STO     7100/STO     7102/STO     7106/STO     7109/STO     7111/STO     7113/STO
      7115/STO     7117/STO     7119/STO     7121/STO     7123/STO     7125/STO     7127/STO     7129/STO
      7131/STO     7134/STO     7137/STO     7140/STO     7143/STO     7146/STO     7149/STO     7152/STO
      7155/STO     7162/STO     7165/STO     7168/STO     7171/STO     7173/STO     7175/STO     7177/STO
      7179/STO     7181/STO     7183/STO     7185/STO     7199/NOP
   EIO             1268/BCR     1271/B       1320/B       1324-LI      1352/B
   END             2137/DATA    2173/DATA    2560/LI      2566/CI      2597/LI      4093/GEN     4094/GEN
      4101/GEN     4102/GEN     4138/CI      5539-EQU
   ENVTEX          2439/CW      3269/CW      3335-DATA
   ERD             6441-EQU
   ERS             6442-EQU
   EWT             6440-EQU
   EXIT             815/B        816/B        817/B        818/B        819/B        820/B        821/B
       822/B        823/B        824/B        825/B        833-XPSD
   EXPMBIT         1148/BAL     1704-STW
   EXPMEM           897/STW      940-RES     1706/LW      1709/LW
   EXPMESS         1141/MTYPE   5348-TEXTCS
   EXPM1           1713-MTW     1716/BEV     1719/B
   FAM             2405/DATA    5095-RES
   FAMBITS         5197/STD     5199/LB      5221-DATA
   FAMERR          5239/MTYPE   5407-TEXTCS
   FAMERR1         5245/LI      5247/MTYPE   5409-TEXTCS
   FAMERR2         5248/MTYPE   5410-TEXTCS
   FAMERR3         5269/MTYPE   5413-TEXTCS
   FAMERR4         5270/MTYPE   5411-TEXTCS
   FAMERR5         5256/LI      5271/MTYPE   5414-TEXTCS
   FAMERR6         5267/LI      5272/MTYPE   5416-TEXTCS
   FAMERR7         5275/MTYPE   5418-TEXTCS
   FAMERR8         5281/LI      5287/MTYPE   5419-TEXTCS
   FAMERR9         5285/LI      5288/MTYPE   5420-TEXTCS
   FAMFLT          5161/BNE     5163/BNE     5171/B       5236-RES
   FAMFLTA         5274/BEZ     5289-WD
   FAMOK           5183/MTYPE   5421-TEXTCS
   FAMPE           5209/STW     5210/STW     5218-DATA    5276/LD
   FAMPSD          5233-PSD
   FAMSAV          5156/STD     5190/LW      5214/LD      5217-DATA    5259/LD
   FAMSAVOK        5152/STW     5193/LW      5194/LW      5220-DATA    5249/LW      5250/LW
   FAMSAV1         5159/STD     5219-DATA
   FAMTST1         5166/BE      5172-MTW
   FAMTST3         5173/BNEZ    5185-LI
   FAMTST4         5177/BGE     5181-LW
   FAMTST5         5149-WD      5168/BEZ     5170/B
   FAMTST6         5116/B       5127/B       5135-MTYPE   5233/PSD
   FAMTST6A        5139/BEZ     5143-LW      5180/B       5189/B
   FAM1            5100/BE      5117-LI      5120/BDR     5182/BDR
   FAM1A           5119/BNEZ    5121-LW      5132/B
   FAM2            5106/BE      5128-LW
   FAM3            5112/BE      5133-LW
   FAULTS          1217/OR      2178-DATA
   FFC             6374-EQU
   FFI             6238/CNAME   6242/CNAME   6243/CNAME   6244/CNAME   6245/CNAME   6246/CNAME   6249/CNAME
      6261/CNAME   6262/CNAME   6264/CNAME   6265/CNAME   6377-EQU
   FFZ             6375-EQU
   FF0             6228/CNAME   6229/CNAME   6230/CNAME   6231/CNAME   6232/CNAME   6233/CNAME   6234/CNAME
      6235/CNAME   6236/CNAME   6237/CNAME   6239/CNAME   6240/CNAME   6241/CNAME   6242/CNAME   6243/CNAME
      6247/CNAME   6248/CNAME   6249/CNAME   6250/CNAME   6251/CNAME   6252/CNAME   6253/CNAME   6254/CNAME
      6255/CNAME   6256/CNAME   6257/CNAME   6258/CNAME   6259/CNAME   6260/CNAME   6261/CNAME   6263/CNAME
      6264/CNAME   6265/CNAME   6266/CNAME   6267/CNAME   6268/CNAME   6373-EQU     6628/AMA     6668/ANM
      6894/AMA     6934/AMA     6992/AMA     7038/AMA     7044/AMA
   FF1             6238/CNAME   6244/CNAME   6245/CNAME   6246/CNAME   6262/CNAME   6376-EQU     6672/MRC
      6678/AMA     6908/MRC     6912/MRC     6928/AMA     6971/MRC     6987/AMA     7196/MRC     7200/MRC
   FILLER          1667/LW      2172-DATA    2257/LW      2450/CW      2459/CW      2463/CW      2479/CW
      2485/CW      2520/CW      2568/CW      2579/CW      2685/CW      2846/CW      2853/CW      2860/CW
      2867/CW      2893/LW      2922/CW      2926/CW      2945/CW      2960/CW      2998/CW      3179/CW
      3259/CW      3276/CW      3310/CW      3355/CW      3525/CW      3542/CW      3551/CW      3568/CW
      3588/CW      3618/CW      3684/CW      3789/CW      3794/CW      5099/CW      5105/CW      5111/CW
      5306/CW      5309/CW      5318/CW
   FINDHF          2543/BAL     3971-LI      5614/BAL
   FINDHFA         3975-RD      3986/BIR
   FINDHFB         3985-AI      3993/DATA
   FINDIOP         2541/BAL     3995-LW      5613/BAL
   FIRSTMEM        1750/LW      2173-DATA    2581/STW     2587/STW     2598/STW     2612/LW      2624/LS
      4135/LW      4196/LW      5074/LW      5584/LW      5596/LS
   FORMC           2130/GEN     5329-TEXT
   FREEA           3589/BNE     3593-CI
   FREEB           3592/B       3596-MTW     3600/BDR
   FREEBUF         2379/DATA    3584-LW
   FREEC           3597/BEZ     3599-AI
   FSTCHNL         5109/STW     5113/CW      5124/STB     5133/LW      5145/LW      5175/LW      5179/STW
      5225-DATA    5242/OR
   GETADVAL        2478-LW      2514/BAL     2715/BAL     2807/BAL     3388/BAL
   GETBUF          1402/BAL     4319/BAL     4424/BAL     4860/BAL     5020/BAL     5068-INHIB   5075/B
      5077/BE      5081/BE
   GETDATA         1382/BNE     1390-CI
   GETEXIT         1365/STW     1396/BGE*    1405/B*      1406-RES
   GETHIGH         4156-CS      4161/BL
   GETNEXT         1321/BAL     1351/BAL     1365-STW
   GETOUT          2242/B       2245-INHIB
   GETSTAT         3607/BAL     3632-STW     4728/BAL
   GETTIME          419-CNAME
   GO              2380/DATA    2829-RES
   GOALL           2847/BE      2873-MTW
   GODW            2244/XPSD    2291/STW     2329-PSD     2536/LPSD    4676/XPSD
   GOOK            2854/BE      2861/BE      2868/BE      2872/B       2877-LW
   GOTHIGH         4157/BLE     4162-AI
   GOTLOW          4143/BLE     4147-SLD
   GOWD            2877/LW      2892-B
   GO1             2160-DATA    2831/STW     2850/MTW     2857/MTW     2864/MTW     2871/MTW     2873/MTW
      4214/MTW
   GO2             2161-DATA    2832/STW     2874/MTW     4216/MTW
   GO3             2162-DATA    2833/STW     2875/MTW     4218/MTW
   GO4             2163-DATA    2834/STW     2876/MTW     4220/MTW
   H               6451-EQU
   HACTV           2248/LW      2534/LW      3074/LW      3878-DATA
   HADDR           1003/LW      2695/LW      3113-DATA    3321/LW      4693/LW
   HADRIX          3099/STW     3103-DATA
   HADRIX1         3007/CW      3045/CW      3051/LW      3109-DATA    3946/LW      4773/LW      4924/LW
      4993/LW      5003/LW      5665/LW
   HADRIX2         3014/LW      3105-DATA    3801/LW      4771/LW      4919/LW      4991/LW      5664/LW
   HAIO            1680/LW      3127-DATA
   HAIO5C          1413/BNEZ    1636-RES
   HAIO5C1         1441/BNEZ    1644-LRP
   HAIO5C2         1468/BNEZ    1651-LRP
   HAIO5C3         1495/BNEZ    1658-LRP
   HAIO5C4         1643/B       1650/B       1657/B       1664-STD
   HAIO5C5         1687/BEZ     1694-LI
   HC              2226-DATA    3981/OR      4172/LW      4749/LW      4805/LW
   HCABUS          3875-DATA
   HCAINC          7054-RES     7061/STO
   HCALSUM         4531/STW     4546/SW      4571/LW      4610-DATA
   HCASL           3864-DATA
   HCDBUS          3874-DATA
   HCHOF           3873-DATA
   HCHON           3872-DATA
   HCIDLE          3861-DATA
   HCLDI           3867-DATA
   HCLDS           3858-DATA
   HCMCR           3870-DATA
   HCOMF           3911/B       3917-MTYPE
   HCPIA           3863-DATA
   HCPS            3865-DATA    4932/LW
   HCR              523/LW      2706/LW      5350-TEXTCS
   HCRAS           6544/NOP     7108-RES
   HCRES           1007/LW      1522/LW      3856-DATA    4697/LW      4927/LW
   HCRUN           1011/LW      1526/LW      3876-DATA    4701/LW      4938/LW
   HCSAS           3871-DATA
   HCSTEP          3881-DATA
   HCSTORE         3869-DATA
   HCTMOF          3860-DATA
   HCTMON          3859-DATA
   HCUDI           3866-DATA
   HCUDS           3857-DATA
   HCUSSM          4534/STW     4612-DATA
   HCZ             6285/SET     6382-EQU
   HDAOUT1         6907-RES     6935/NOP
   HDAOUT2         6920/NOP     6922-RES
   HDAOUT3         6930-RES
   HDAOUT4         6896-RES     6926/NOP
   HDATTST         1807/MTW     3573/STW     3578/STW     3580-DATA    4330/MTW
   HDLAY           1535/BAL     3023/BAL     4923/BAL     4949/BAL     4956/BAL     4963/BAL     4981-RES
   HDOVRN          6603-RES     6679/NOP     6929/NOP     6988/NOP
   HDUMP           5836/LW      5859-DATA
   HEFLAG          6776-RES     6812/NOP     6897/NOP     6921/NOP     6956/NOP     6980/NOP     7012/NOP
   HEFLAG1         6777/NOP     6779-NOP
   HELP            1076/XPSD    1270/XPSD    1292/XPSD    1363/XPSD    1538/XPSD    1800/XPSD    4389/XPSD
      4502/XPSD    4581/XPSD    4663-PSD     4666/LPSD    4668/NOP     4754/XPSD
   HELPMSG         4671/MTYPE   5362-TEXTCS
   HELPOUT         4674/B       4678-XPSD
   HEX             2381/DATA    5304-RES
   HEXA1           5312/BE      5317-LW
   HEXA2           5314/BNE     5327-B
   HEXIT           2382/DATA    2451/BE      2457/B       2470/B       2552/B       2637/B       2672/BGE
      2704-LW      3049/B       3089/B       3260/BE      3277/BE      3286/B       3288/B       3308/B
      3315/BEZ     3318/B       3332/B       3530/B       3540/B       3574/B       3579/B       3851/B
      5184/B       5235/B       5290/B       5326/B
   HEX1            2135-DATA    2302/CLM     3421/CLM     3509/CLM
   HEX2            2136-DATA    2304/CLM     3423/CLM     3511/CLM
   HFABO           5789/MTYPE   5827/MTYPE   5874-TEXTCS
   HFADDR          1004/STW     1417/STW     1445/STW     1472/STW     1499/STW     1519/LW      1547/LW
      1558/LW      1671/STW     2696/STW     3015/STW     3061/LW      3137-DATA    3322/STW     3325/STW
      3802/STW     3901/LW      3921/LW      4694/STW     4772/STW     4782/LW      4920/STW     4992/STW
      5666/STW     5770/LW      5821/LW
   HFADDR1         3138-DATA    4994/STW     5060/LW
   HFAIO           6475/NOP     6771-RES
   HFAIOD1         1638/LW      1699-DATA
   HFAIOD2         1645/LW      1700-DATA
   HFAIOD3         1652/LW      1701-DATA
   HFAIOD4         1659/LW      1702-DATA
   HFC             2227-DATA    4017/CW
   HFCC            3905-LB      3925/B
   HFCCSV          3855-DATA    3904/STCF    3905/LB
   HFCNT           3979/CVA     3994-DATA
   HFCVA           4432/BE      4434/BE      4516-RES
   HFCVA1          4536-BAL     4542/B
   HFCVA2          4537/B       4543-CVA
   HFCVA3          4538/B       4545-LW
   HFCVERR         4549-RES
   HFCVSUM         4535/STW     4540/AWM     4544/AWM     4545/LW      4576/LW      4611-DATA
   HFDAOUT         6506/NOP     6508/NOP     6890-RES
   HFDIN           6505/NOP     6507/NOP     6949-RES
   HFDIN1          6955-RES     6985/NOP
   HFDIN2          6967-MRC     6994/NOP
   HFDIN3          6979/NOP     6981-RES
   HFERS           1010/BAL     1014/BAL     1019/BAL     1525/BAL     1529/BAL     1534/BAL     1678/BAL
      1683/BAL     1695/BAL     3067/BAL     3088/BAL     3942-RES     4700/BAL     4704/BAL     4709/BAL
   HFERTAB         3927-EQU     3943/LW
   HFER0           3928/DATA    5434-TEXTCS
   HFER1           3915/MTYPE   3929/DATA    5435-TEXTCS
   HFER10          3938/DATA    5444-TEXTCS
   HFER11          3939/DATA    5445-TEXTCS
   HFER12          3940/DATA    5446-TEXTCS
   HFER2           3917/MTYPE   3930/DATA    5436-TEXTCS
   HFER3           3919/MTYPE   3931/DATA    5437-TEXTCS
   HFER4           3054/LI      3056/MTYPE   3932/DATA    5438-TEXTCS
   HFER5           3933/DATA    4976/LI      4978/MTYPE   5063/LI      5065/MTYPE   5439-TEXTCS
   HFER6           3934/DATA    5440-TEXTCS
   HFER7           3935/DATA    5441-TEXTCS
   HFER8           2700/MTYPE   3936/DATA    5442-TEXTCS
   HFER9           3937/DATA    5443-TEXTCS
   HFFF8            885/CW      2228-DATA
   HFFLT0          1418/MTYPE   5424-TEXTCS
   HFFLT1          1426/LI      1428/MTYPE   1454/LI      1456/MTYPE   1481/LI      1483/MTYPE   1508/LI
      1510/MTYPE   5425-TEXTCS
   HFFLT10         1446/MTYPE   5430-TEXTCS
   HFFLT2          5426-TEXTCS
   HFFLT20         1473/MTYPE   5431-TEXTCS
   HFFLT3          5427-TEXTCS
   HFFLT30         1500/MTYPE   5432-TEXTCS
   HFFLT4          5428-TEXTCS
   HFFLT5          5429-TEXTCS
   HFHEAD          3954/MTYPE   5375-TEXTCS  5631/MPRINT
   HFHIO           6476/NOP     6723-RES
   HFIDLE          6461-NOP     6578/NOP     6583/NOP     6747/NOP     6781/NOP
   HFINIT          5644/B       5652-RES     5686/BIR
   HFINITB         5664-LW      5684/B
   HFINITC         5651/BCS     5656/BEZ     5681/BEZ     5685-LW      5845/B
   HFINITD         5679-MTW     5790/B
   HFINITIX        5654/STW     5685/LW      5699-DATA
   HFINIT1         5662/STW     5682/MTW     5683/LW      5696-DATA
   HFINIT2         5663/STW     5679/MTW     5680/MTW     5697-DATA
   HFIO            2966/BGE     2988-RES
   HFIOA           3006-RES
   HFIOC           3042-LW      3057/B
   HFIOD           3018/BCS     3020/BCS     3022/BCS     3050-LW      3136/DATA
   HFIOERR1        5422-TEXTCS
   HFIOF           3008/BE      3012-RES     3046/BGE
   HFIOM0          3040/MTYPE   5364-TEXTCS
   HFIOTRAP        2989/LW      3132-XPSD
   HFIOTR1         3132/XPSD    3135-PSD
   HFIOTR2         3133-LPSD    3135/PSD
   HFIOTR3         3133/LPSD    3136-DATA
   HFLD            5709/STW     5720/STW     5742-DATA    5834/MTW
   HFLIP           1634-DATA
   HFLOAD          5672/BAL     5678/BAL     5706-RES
   HFMAK1          6672-MRC     6684/NOP     6689/AMA
   HFMAK2          6682/NOP     6690-NOP
   HFNIA           3868-DATA
   HFOIN           6602/NOP     6924/NOP     6939/NOP     6983/NOP     7011-RES
   HFPANLS         3890-RES
   HFPAUSE         5718/BAL     5728/BAL     5806-RES     5819/B
   HFPAUSE1        5817/BE      5820-RES
   HFRD            3921-LW      4933/BAL
   HFRECV          3989/XPSD    3992-PSD
   HFRECV1         3990-LPSD    3992/PSD
   HFRECV2         3990/LPSD    3993-DATA
   HFRST46         3011/B       3047-LW      3058/B
   HFSIGMEM        6471/NOP     6573-RES
   HFSIO           6473/NOP     6787-RES
   HFSIZE          2179-DATA
   HFSKIP          5634/BEZ     5643-BIR
   HFSKIPA         3957/BEZ     3966-BIR
   HFSP            3116-DATA
   HFSTART         6462/NOP     6543-RES
   HFSTOP          6996-RES
   HFSTRT          2236/BAL     2249/BAL     2535/BAL     2691-RES     2701/BIR
   HFSTRT1         2694/BEZ     2701-BIR
   HFSYSID         6470/NOP     6561-RES
   HFTABLA         1001/MTW     2468/LW      2545/LW      3314/MTW     3323/MTW     3956/LW      3982/STW
      4054-RES     4691/MTW     4913/MTW     4915/LW      5633/LW      5655/MTW     5657/LW
   HFTABLB         2469/STW     2546/STW     2693/MTW     3316/STW     3328/STW     3983/STW     4058-RES
   HFTABLC         1431/LW      1433/STW     1458/LW      1460/STW     1485/LW      1487/STW     1512/LW
      1514/STW     3317/STW     3329/STW     4067-RES
   HFTABLD         4073-RES
   HFTABLE         4078-RES
   HFTABLF         4083-RES
   HFTABLG         4087-RES
   HFTABLH         4089-RES
   HFTEMP          3013/STW     3042/LW      3050/LW      3326/STW     3330/LW      3891-DATA    4918/STW
      4965/LW      5044/STW     5050/LW      5059/STW     5066/LW
   HFTEMP1         3892-DATA    4925/STW     4957/LW      4973/LW
   HFTEX           2433/CW      3261/CW      3336-DATA
   HFTIC           6513/NOP     6866-RES
   HFTIC1          6868/NOP     6877-RES
   HFTIO           6474/NOP     6698-RES     6773/STO
   HFTOUT          4776/LI      4778/MTYPE   5453-TEXTCS
   HFTRAP          3972/LW      3989-XPSD
   HFUNE           6509/NOP     6510/NOP     6511/NOP     6512/NOP     6514/NOP     6515/NOP     6516/NOP
      6517/NOP     6518/NOP     6519/NOP     6520/NOP     6591-RES     6637/NOP     6811/NOP     6880/NOP
      7074/STO     7084/STO     7106/STO
   HFWD            1008/BAL     1012/BAL     1017/BAL     1523/BAL     1527/BAL     1532/BAL     1676/BAL
      1681/BAL     2698/BAL     3065/BAL     3075/BAL     3079/BAL     3084/BAL     3900-RES     4698/BAL
      4702/BAL     4707/BAL     4928/BAL     4940/BAL     4946/BAL     4953/BAL     4960/BAL     5047/BAL
      5053/BAL
   HFXX            3949/LI      3951/MTYPE   5455-TEXTCS
   HF7             2221-DATA    2911/AND
   HGETBUF         6622-RES     6898/NOP     6957/NOP
   HGETBUF1        6630/NOP     6633-RES
   HGETBUF2        6639/NOP     6643-RES
   HGOOD           3909/B       3913-MTW
   HHIO            1016/LW      1531/LW      3064/LW      3124-DATA    4706/LW
   HID             3119-DATA    4958/OR
   HILFC           3910/B       3915-MTYPE
   HINDX           3862-EQU
   HINT            6599/NOP     6745-RES     7080/NOP     7092/STO     7102/STO
   HINT1           6762-RES     6765/NOP
   HINT2           6750-LMF     6755/NOP
   HIO             2383/DATA    2934-LI
   HIOPOLL          500/BAL      986/BAL      990-RES     2539/BAL     2708/BAL
   HIOPOLL1        1001-MTW     1020/BIR
   HIOPOLL2        1002/BEZ     1020-BIR
   HIOPOLL3        1005-WD      4784/B
   HKM             5791/LW      5860-DATA
   HKMEM           5671/STW     5677/STW     5744-DATA    5793/MTW
   HLOAD           5733/B       5832/LW      5858-DATA
   HLOAD2          5723-LI
   HLSTTIO         3004/STW     3044/LW      3069-DATA
   HMAEWDT         6936-RES     6993/NOP
   HMAKBUF         6657-RES     6958/NOP
   HMAKIX          3092-RES
   HMCM            5795/LW      5861-DATA
   HMEMASK         1809/LW      1819-DATA    4335/LW
   HMEMPAG         1810/LW      1820-DATA
   HNOAR           6609-RES     6788/NOP     6790/LTM
   HNREM           3912/B       3919-MTYPE
   HOINCC          6494/NOP     6496/NOP     6498/NOP     6500/NOP     7051-RES
   HOINCE          6481/NOP     6483/NOP     7095-RES     7105/CSR
   HOINDC          6497/NOP     6499/NOP     7059-RES
   HOINHTE         6479/NOP     7093-RES
   HOININT         7050/NOP     7062-RES
   HOINNC          6493/NOP     6495/NOP     7047-RES
   HOINNF          7040-RES     7073/CSR
   HOINNIT         6477/NOP     7067-RES
   HOINUE          6478/NOP     6480/NOP     7071-RES     7094/NOP
   HOINUEC         6482/NOP     6484/NOP     7103-RES
   HOINUEZ         6486/NOP     6488/NOP     6490/NOP     6492/NOP     7081-RES
   HOINZBC         6485/NOP     6487/NOP     6489/NOP     6491/NOP     7083/CSR     7085-RES
   HOIN1           7016/STR     7020-RES
   HOLD            2384/DATA    2898-LW
   HOLDFLAG        1312/MTW     1366/MTW     2148-DATA    2551/STW     2836/STW     2899/STW     4236/MTW
      4282/MTW     4317/MTW     4352/MTW     4422/MTW     4460/MTW     4811/MTW
   HOLDMES         5398-TEXTCS
   HOOUT1          6841/NOP     6848-RES
   HOOUT2          6819-RES     6876/NOP     7058/STO
   HOOUT3          6835/NOP     6837-RES
   HOURS           2041-DATA
   HPHZI           3122-DATA
   HPIA            1555/LI      1557/MTYPE   5452-TEXTCS
   HPRBUSY         6612-RES     6791/STR
   HPRER2          1564/LI      1566/MTYPE   5433-TEXTCS
   HPRFLT          1430/BAL     1457/BAL     1484/BAL     1511/BAL     1543-RES
   HPRFLT1         1569-MTW     1572/BEV     1575/B
   HPSRER0         1586/DATA    5454-TEXTCS
   HPSRER1         1587/DATA    5456-TEXTCS
   HPSRER10        1596/DATA    5465-TEXTCS
   HPSRER11        1597/DATA    5466-TEXTCS
   HPSRER12        1598/DATA    5467-TEXTCS
   HPSRER13        1599/DATA    5468-TEXTCS
   HPSRER14        1600/DATA    5469-TEXTCS
   HPSRER15        1601/DATA    5470-TEXTCS
   HPSRER2         1588/DATA    5457-TEXTCS
   HPSRER3         1589/DATA    5458-TEXTCS
   HPSRER4         1590/DATA    5459-TEXTCS
   HPSRER5         1591/DATA    5460-TEXTCS
   HPSRER6         1592/DATA    5461-TEXTCS
   HPSRER7         1593/DATA    5462-TEXTCS
   HPSRER8         1594/DATA    5463-TEXTCS
   HPSRER9         1595/DATA    5464-TEXTCS
   HPSRTBL         1573/LW      1586-DATA
   HRCR             524/STW     2533/MTYPE   2707/STW     2709/MTYPE   2890/STW     5349-TEXTCS
   HREG            6464/NOP     7187-RES
   HREGSAV         3803/LW      3853-DATA
   HREG1           7196-MRC     7203/NOP
   HSARER0         1602/DATA    5485-TEXTCS
   HSARER1         1603/DATA    5486-TEXTCS
   HSARER10        1612/DATA    5495-TEXTCS
   HSARER11        1613/DATA    5496-TEXTCS
   HSARER12        1614/DATA    5497-TEXTCS
   HSARER13        1615/DATA    5498-TEXTCS
   HSARER14        1616/DATA    5499-TEXTCS
   HSARER15        1617/DATA    5500-TEXTCS
   HSARER16        1618/DATA    5501-TEXTCS
   HSARER17        1619/DATA    5502-TEXTCS
   HSARER18        1620/DATA    5503-TEXTCS
   HSARER19        1621/DATA    5504-TEXTCS
   HSARER2         1604/DATA    5487-TEXTCS
   HSARER20        1622/DATA    5505-TEXTCS
   HSARER21        1623/DATA    5506-TEXTCS
   HSARER22        1624/DATA    5507-TEXTCS
   HSARER23        1625/DATA    5508-TEXTCS
   HSARER24        1626/DATA    5509-TEXTCS
   HSARER25        1627/DATA    5510-TEXTCS
   HSARER26        1628/DATA    5511-TEXTCS
   HSARER27        1629/DATA    5512-TEXTCS
   HSARER28        1630/DATA    5513-TEXTCS
   HSARER29        1631/DATA    5514-TEXTCS
   HSARER3         1605/DATA    5488-TEXTCS
   HSARER30        1632/DATA    5515-TEXTCS
   HSARER31        1633/DATA    5516-TEXTCS
   HSARER4         1606/DATA    5489-TEXTCS
   HSARER5         1607/DATA    5490-TEXTCS
   HSARER6         1608/DATA    5491-TEXTCS
   HSARER7         1609/DATA    5492-TEXTCS
   HSARER8         1610/DATA    5493-TEXTCS
   HSARER9         1611/DATA    5494-TEXTCS
   HSARFLT         1421/BAL     1449/BAL     1476/BAL     1503/BAL     1576-RES
   HSARFLT1        1579-MTW     1582/BEV     1585/B
   HSARTBL         1583/LW      1602-DATA
   HSAV            3094/STM     3101/LM      3114-RES
   HSCHED          6463/NOP     6568/NOP     6601/NOP     6611/NOP     6615/NOP     6699/NOP     6716/NOP
      6735/NOP     6780-RES     6782/NOP     7064/NOP     7070/NOP     7204/NOP
   HSETUP          3071-RES     3805/BAL
   HSETUP1         3077/B       3081/B       3086/B       3088-BAL
   HSIO            3125-DATA    5051/OR
   HSIOPB1         5018/BNEZ    5023-STW
   HSIOPD          5029/BNE     5035-STB
   HSIOPE          5037-LI
   HSIZE           5711/BAL     5850-RES
   HSIZEOK         5730/MTW     5732/LW      5743-DATA    5852/STW     5856/STW
   HSMEM           3126-DATA    4943/LW
   HSTLOC          6465/NOP     6579-RES
   HSUSP           2235/LW      3877-DATA
   HSYSRST         1005/WD*     1520/WD*     3121-DATA    4695/WD*
   HTE             2385/DATA    2902-RES
   HTEFLAG         2885/MTW     2908/STW     2914/STW     2916-DATA
   HTETEXT         2887/MTYPE   5403-TEXTCS
   HTE1            2904/BEZ     2910-LW
   HTIO            3016/LW      3123-DATA
   HTLOC           3120-DATA    4951/OR
   HZERO           1698-DATA
   H004            2216-DATA    2509/LW
   H008            5549-DATA    5561/CW
   H02             2214-DATA    3653/AW      3999/LW
   H04             2215-DATA    4013/AW      4014/AW      4015/AW      4021/SW
   H08             2217-DATA    2905/LW      4148/OR      4150/OR
   H1              2218-DATA    3366/CW
   H4              1214/OR      2219-DATA    3622/LW
   H46             2220-DATA    2906/OR      2907/STW     2910/LW      2912/STW     4866/AW      5027/AW
   H46SAV          2991/STW     3047/LW      3104-DATA
   H8               664/AND      752/AW       757/AW      1999/AW      2223-DATA    3548/LW      3584/LW
      4183/OR      4808/AW      4999/AW      5001/AW
   H82             2224-DATA    4001/LW
   H82FS           2225-DATA    3998/LW
   IDLE             545-WD       547/B        548/B       2184/B
   IDLESTOP         509/LW      2184-B       2704/LW
   IDLEWAIT         510/STW      547-B       2705/STW     2878/STW
   ILNW            2657/B       2662-LI
   ILR             6244-CNAME
   IL2W            2658/B       2664-LI
   IL4W            2659/B       2666-LI
   IN              6446-EQU
   INADMASK        1552/AND     1896/AND     1922/AND     1962/AND     2060/AND     2076/AND     2168-DATA
   INDADDR         5581/STW     5687/MTW     5690/SIO*    5698-DATA
   INDIRECT        1894/BAL     1920/BAL     1960/BAL     2060-AND
   INHIB            397-COM
   INITA           5556-LW      7211/END
   INITA1          5547/DATA    5559-XPSD
   INITA2          5548/PSD     5560-LW
   INITB           5562/BANZ    5566-LW
   INITC           5569-LW      5572/BLE
   INITD           5546/PSD     5573-STW
   INITD1          5578/BL    5582.1-MTYPE
   INITHF          5632-LI      5643/BIR
   INITNEXT        5620-LW      5630/BIR
   INITNOLP        5616/BCS     5645-MTYPE
   INITSKIP        5621/BEZ     5630-BIR
   INIT501          971/DATA     973-LI
   INR             6245-CNAME
   INSSAVE          581/STW      587/LW       606-RES
   INTDATA         1286/LI      1291/MTYPE   5385-TEXTCS
   INTR            1843/BG      1845/BE      1851-LCI
   INT5B            458/XPSD     487-PSD     1254/LPSD
   INT5C            459/XPSD     488-PSD     1328/LPSD    1664/STD
   INT5D            460/XPSD     489-PSD     2234/NOP
   INT50            447/XPSD     483-PSD
   INT51            448/XPSD     484-PSD      961/XW       982/NOP
   INT56            453/XPSD     485-PSD     1026/NOP
   INT56A          1031-HIO     1035/BGEZ
   INT56A1         1033/BIODO   1037-LW
   INT56A2         1039-RD
   INT56A3         1047-TIO     1053/BDR
   INT56A4         1051/BNEZ    1057-BAL
   INT56B          1092-LI
   INT56C          1072-LI      1079/B
   INT56NO         1036/B       1078-MTYPE
   INT56SV         1043/STM     1064/LM      1081-RES
   INT57            454/XPSD     486-PSD     1088/NOP
   INT66            465/XPSD     490-PSD     1415/NOP     1642/LD
   INT67            466/XPSD     491-PSD     1443/NOP     1649/LD
   INT68            467/XPSD     492-PSD     1470/NOP     1656/LD
   INT69            468/XPSD     493-PSD     1497/NOP     1663/LD
   INVIOP          3287/MTYPE   5378-TEXTCS
   INVPAR          2268/B       2322/BE      2326-MTYPE
   IO              6288/SET     6546/CLF     6549/LAD     6551/NOP     6554/MMC     6555/LAD     6564/MMC
      6565/LAD     6575/LAD     6581/LAD     6701/LMF     6704/NOP     6707/NOP     6711/NOP     6714/NOP
      6749/NOP     6752/MMC     6753/LAD     6758/NOP     6761/LMF     6802/MMC     6803/NOP     6822/MKR
      6823/MMC     6824/NOP     6825/NOP     6827/LMF     6829/MMC     6830/MMC     6831/NOP     6844/MMC
      6845/MMC     6846/MMC     6847/NOP     6874/NOP     6904/NOP     6909/MMC     6910/NOP     6918/NOP
      6932/NOP     6964/NOP     6970/NOP     6972/DCR     6977/NOP     6990/NOP     7022/LMF     7024/NOP
      7027/MMC     7028/LAD     7033/LAD     7133/LAD     7136/LAD     7139/LAD     7142/LAD     7145/LAD
      7148/LAD     7151/LAD     7154/LAD     7157/MMC     7158/MMC     7159/MMC     7160/MMC     7161/LAD
      7164/LAD     7167/LAD     7170/LAD     7172/LAD     7174/LAD     7176/LAD     7178/LAD     7180/LAD
      7182/LAD     7184/LAD     7194/LMF     7199/NOP     7201/INR
   IOERRM          1290/MTYPE   5388-TEXTCS
   IOINS           2919/STB     2943/STB     2970-TIO     2983/BLE
   IOINT           1265/BIOAR   1272-STW     1669/BNE
   IOINTA          1277/BAZ     1279/BCS     1297-LW      1362/BCS     1364/B       1697/B
   IOINTB          1296/B       1313/BNEZ    1315/BNE     1321-BAL     1345/BEZ
   IOINTC          1304/BE      1330-LW
   IOINTD          1334/BANZ    1341-MTW
   IOINTE          1302/BE      1305/BG      1340/B       1342/BGEZ    1344-MTW
   IOINTQ          1274/BCS     1354-RES
   IOINT1          1275-RES     1693/B
   IOMASK          1165/LW      2170-DATA    2924/AND     2963/AND     2964/AND     3183/AND     3362/AND
   IOMES           1058/MTYPE   1181/MTYPE   2954/MPRINT  2955/MTYPE   2975/MTYPE   3145/LI      3173/AI
      3174/STB     5365-TEXTCS
   IOPADDR         5103/STW     5126/STB     5128/LW      5136/LW      5224-DATA    5240/LW
   IOPBUSY          574/BAL     1890/BAL     1916/BAL     1949/BAL     1957/BAL     1975/BAL     1981-LI
      2801/BAL
   IOPBUSYD        2003/BEZ     2010-LI
   IOPCNT          3998-LW      4036/B
   IOPDONE         4034/BE      4037-STW
   IOPHEAD         3773/MTYPE   5377-TEXTCS  5619/MPRINT
   IOPMASK         2171-DATA
   IOPNOT          5234/MTYPE   5406-TEXTCS
   IOPRESET         666/BAL      707-STW     1062/BAL
   IOPRNOM          726/BEZ      740-LW
   IOPROK           724/BGE      729/B        730-MTW
   IOPSTAT          667/BAL      767-STW     1071/BAL
   IOPSTATL         771-MTW      782/B
   IOPTABLA         661/MTW     2442/LW      2454/LW      3278/MTW     3291/MTW     3301/MTW     3717/MTW
      4031/STW     4048/DATA    4053-RES     4090/EQU     5118/MTW     5121/LW      5131/LW      5611/STW
   IOPTABLB        1238/MTW     1370/LW      1763/MTW     2443/STW     2455/STW     3283/STW     3293/STW
      3303/STW     3469/MTW     3481/LW      3486/STW     3559/MTW     3596/MTW     3692/LW      3774/LW
      4049/GEN     4057-RES     4179/LW      4248/LW      4274/LW      4306/MTW     4411/MTW     4626/MTW
      4648/MTW     4651/MTW     4800/LW      5129/MTW     5620/LW
   IOPTABLC         750/LW       753/STW      755/LW       758/STW     1306/LW      1330/LW      1371/LW
      1393/STW     1987/LW      2000/STW     3284/STW     3294/STW     3304/STW     3468/LW      3474/STW
      3637/LW      3694/LW      3724/LW      4066-RES     4181/LW      4186/STW     4628/LW      4631/STW
      4724/MTW     4802/LW      4817/STW     4891/MTW     4995/LW      5007/STW
   IOPTABLD         998/STW     1241/CW      1243/CW      1319/STW     1350/STW     2839/STW     4072-RES
      4639/STW     4762/STW     4899/STW
   IOPTABLE        1336/LS      1341/MTW     1399/LS      1404/STS     1756/LW      2002/LS      3561/STS
      3598/STS     3695/LW      3739/LW      4077-RES     4204/STS     4857/LS      4861/STS     5017/LS
      5022/STW     5080/CS
   IOPTABLF        3696/LD      4082-RES     4875/STD     4876/LI      4881/STD     5036/STD     5037/LI
      5043/STD
   IOPTABLG        1348/STW     2842/STW     4086-RES     4276/CW      4308/CW      4413/CW      4636/STW
      4650/STW     4653/STW     4901/STW
   IOPTABLH        3697/LW      4088-RES     4840/STW
   IOPTEXT         3777/LI      3783/MTYPE   3959/LI      3965/MTYPE   5376-TEXTCS  5623/LI
      5629/MPRINT  5636/LI      5642/MPRINT
   IOPTRK          5181/LW      5222-DATA
   IORMSG           770/MTYPE   5333-TEXTCS
   IOSPUR          1266/MTW     2141-DATA    3533/LW      3539/STW     4225/MTW     4227/LW
   IOTST           2931/B       2967-STW
   IOTSTC          2952/STW     2973/BIOANR  2976-AI      2985/STW
   IPC             6286/SET     6316/ERROR   6359-EQU
   KA              6067-DATA    7031/ANM
   KAD1T1          5952-DATA
   KARONES         5959-DATA    6575/LAD     6581/LAD
   KAUTBIT         5919-DATA    6733/LMF     6766/LMF     6797/ORM     7068/LMF     7077/LMF     7088/LMF
      7098/LMF
   KBC             5908-DATA
   KBIAS           6168-DATA
   KBIAS1          6169-DATA
   KBIAS2          6170-DATA
   KBSYBIT         5921-DATA    6798/ORM
   KBUF            5907-DATA    6640/LMF     6730/LMF
   KBUFCUR         5910-DATA    6627/STO     6642/STO     6662/LMF     6732/STO     6905/LMF     6965/LMF
   KBUFNXT         5909-DATA    6626/LMF     6631/STO     6636/AMA     6641/STO     6646/AMA     6647/STO
      6731/STO
   KC              6288/SET     6803/NOP     6824/NOP     6825/NOP     6831/NOP     6847/NOP     6910/NOP
      6968/LMF     7197/LMF
   KCA             5896-DATA    6701/LMF     6803/NOP     6816/LMF     6820/STO     7055/LMF     7058/STO
   KCC             5895-DATA    6593/STO     6610/STO     6614/STO     6702/ORM     6796/STO
   KCCBUSY         5901-DATA    6613/LMF
   KCCFLAG         5885-DATA    6815/STO     6856/STO     7053/STO
   KCCNOAR         5900-DATA    6608/LMF
   KCCUNE          6048-DATA    6592/LMF
   KCRLD           6044-DATA
   KCRONES         5948-DATA    6668/ANM     6817/ANM     6872/ANM
   KCR0ONES        5960-DATA
   KCR3ONES        5961-DATA
   KCURWA          5887-DATA    6853/STO
   KDATA           5912-DATA    6910/NOP
   KDCBUSY         5893-DATA    6600/LTM     6715/LTM     6726/STO     6790/LTM     6792/STO     6810/LTM
      6879/STO     7049/STO     7076/STO     7087/STO     7097/STO
   KDCFLAG         5884-DATA    6728/STO     6814/STO     6840/LTM     6855/STO     7061/STO
   KDM11           6094-DATA
   KDM137          6158-DATA
   KDM139          6125-DATA
   KDM19           6155-DATA
   KDM2K           6126-DATA
   KDM20           6124-DATA
   KDM3K           6127-DATA
   KDM7            6123-DATA
   KDM8            6120-DATA
   KDM9            6121-DATA    6122/EQU
   KDORBIT         5922-DATA    6606/LMF
   KDRPSR          6086-GEN
   KDWPSR          6085-GEN     6916/MMC     6975/MMC
   KEND            6217-EQU
   KFIFOP          6159-DATA
   KFILLER         5934-DATA    6756/LMF
   KFLAGS          5891-DATA    6831/NOP     7022/LMF
   KFLTIX          5933-DATA
   KFNCT           5894-DATA    6547/STO     6556/AMA
   KHFID           5882-DATA    6567/STO     6669/ORM
   KINTBIT         5917-DATA    7089/ORM     7099/ORM
   KINTFLG         5905-DATA    6598/LTM     6725/STO     6746/LTM     6773/STO     6789/LTM     7074/STO
      7084/STO     7092/STO     7102/STO     7106/STO
   KINTFLG1        6135-DATA
   KINTFLG2        6136-DATA
   KINTSTA         5904-DATA
   KINTSTAT1       6133-DATA
   KINTSTAT2       6134-DATA
   KINTVEC         5899-DATA    7039/STO     7063/LTM
   KIO             5902-DATA    6706/MKR
   KIOCD1          5889-DATA    6824/NOP     6842/LMF     6849/LMF     6871/LMF
   KIOCD2          5890-DATA    6825/NOP     6827/LMF
   KIOU1           5903-DATA    6713/MKR     6751/MKR     6760/MKR
   KMAEBIT         5923-DATA    6937/LMF
   KMEND           5668/LI      6214-DATA
   KMITCYCL        6160-DATA
   KMITCYCL2       6172-DATA
   KMLMTAR         5669/LD      5738-DATA
   KMLOC           6178/DATA    6179-EQU
   KMSIZE          5915-DATA    6623/LMF     6634/LMF
   KMSTART         5667/LI      5876-EQU
   KMTCYCL         5937-DATA
   KM1             6228/CNAME   6231/CNAME   6232/CNAME   6233/CNAME   6234/CNAME   6235/CNAME   6236/CNAME
      6242/CNAME   6243/CNAME   6246/CNAME   6248/CNAME   6249/CNAME   6251/CNAME   6252/CNAME   6256/CNAME
      6257/CNAME   6258/CNAME   6262/CNAME   6263/CNAME   6265/CNAME   6266/CNAME   6267/CNAME   6268/CNAME
      6300/DO1     6309/ERROR   6352-EQU
   KM128K          6162-DATA
   KM16            6032-DATA
   KM2             6019-DATA
   KM2MS           6150-DATA
   KM256           6161-DATA
   KM3             6021-DATA
   KM31            6033-DATA    7191/LMF
   KM32            6157-DATA
   KM4             6023-DATA
   KM40            6034-DATA
   KM5             6025-DATA
   KM5US           6149-DATA    6761/LMF
   KM512           6036-DATA    6683/AMA
   KM6             6027-DATA
   KM7             6029-DATA
   KM8             6031-DATA
   KM9             6122-EQU
   KNMSIZE         5916-DATA    6678/AMA     6928/AMA     6987/AMA
   KORBIAS         5932-DATA    6860/AMA
   KORDER          5892-DATA    6847/NOP     6858/LMF
   KOSBYTE         5906-DATA    6595/LMF     6597/STO     6607/ORM     6709/ORM     6734/STO     6767/STO
      6795/STO     6800/STO     6938/ORM     7018/LMF     7069/STO     7079/STO     7090/STO     7100/STO
   KOVRUN          5935-DATA    6605/STO
   KPAGE           5926-DATA
   KPGINC          5928-DATA    6665/AMA     6686/AMA     6689/AMA
   KPGNO           5927-DATA    6664/LMF     6666/STO     6671/ORM     6685/LMF     6687/STO     6729/STO
      6857/STO
   KPROCBIAS       5925-DATA
   KPWC            5897-DATA    6645/STO     6660/LMF     6839/STO     6901/LMF     6959/LMF
   KR              6301/SET     6350-EQU     6968/LMF     7197/LMF
   KRAND           6167-DATA
   KRAND1          6171-DATA
   KRAR0           5978-DATA    7144/MMC
   KRAR1           5979-DATA    6931/MMC     7147/MMC
   KRAR2           5980-DATA    6989/MMC     7150/MMC
   KRAR3           5981-DATA    7153/MMC
   KRASB40         6180-DATA    7111/STO
   KRASB49         6190-DATA    7109/STO
   KRASLOC         6178-DATA    7194/LMF
   KRAS0           6181-DATA    7113/STO
   KRAS1           6182-DATA    7115/STO
   KRAS10          6192-DATA    7134/STO
   KRAS11          6193-DATA    7137/STO
   KRAS12          6194-DATA    7140/STO
   KRAS13          6195-DATA    7143/STO
   KRAS14          6196-DATA    7146/STO
   KRAS15          6197-DATA    7149/STO
   KRAS16          6198-DATA    7152/STO
   KRAS17          6199-DATA    7155/STO
   KRAS18          6200-DATA    7162/STO
   KRAS19          6201-DATA    7165/STO
   KRAS2           6183-DATA    7117/STO
   KRAS20          6202-DATA    7168/STO
   KRAS21          6203-DATA    7171/STO
   KRAS22          6204-DATA    7173/STO
   KRAS23          6205-DATA    7175/STO
   KRAS24          6206-DATA    7177/STO
   KRAS25          6207-DATA    7179/STO
   KRAS26          6208-DATA    7181/STO
   KRAS27          6209-DATA    7183/STO
   KRAS28          6210-DATA    7185/STO
   KRAS29          6211-DATA
   KRAS3           6184-DATA    7119/STO
   KRAS30          6212-DATA
   KRAS31          6213-DATA
   KRAS4           6185-DATA    7121/STO
   KRAS5           6186-DATA    7123/STO
   KRAS6           6187-DATA    7125/STO
   KRAS7           6188-DATA    7127/STO
   KRAS8           6189-DATA    7129/STO
   KRAS9           6191-DATA    7131/STO
   KRCR0           5944-DATA    7132/MMC
   KRCR1           5945-DATA    7135/MMC
   KRCR2           5946-DATA    7138/MMC
   KRCR3           5947-DATA    7141/MMC
   KRDIOD          5939-DATA    6548/MMC     6574/MMC     6580/MMC
   KRDR0           5966-DATA    6564/MMC     6752/MMC     6802/MMC     6830/MMC     6846/MMC     7160/MMC
   KRDR0AR         6045-DATA    6554/MMC     6823/MMC     7027/MMC
   KRDR1           5967-DATA    6909/MMC     7163/MMC
   KRDR1AR         6165-DATA
   KRDR2           5968-DATA    7166/MMC
   KRDR2AR         6166-DATA
   KRDR3           5969-DATA
   KRDR3AR         6056-DATA    7169/MMC
   KRGNUM          5911-DATA    6659/STO     6670/ORM
   KRGP            6176-DATA
   KSIGADDR        5924-DATA
   KSIGMASK        6173-DATA
   KSIGMAX         5931-DATA
   KSIGMEM         5913-DATA    6577/STO     6934/AMA     6992/AMA
   KSIGMIN         5930-DATA
   KSIGTEMP        5914-DATA    6582/STO     7189/ORM
   KSPADDR         5936-DATA
   KSYSTYPE        5929-DATA
   KTBLBL          5988-DATA
   KTBLBL1         5988/DATA    5989-DATA
   KTBLBR          5993-DATA
   KTBLBR1         5993/DATA    5994-DATA
   KTBLDL          5998-DATA
   KTBLDL1         5998/DATA    5999-DATA
   KTBLDM2         6137/DATA    6138-DATA
   KTBLDM2P        6137-DATA
   KTBLDR          6007-DATA
   KTBLDR1         6007/DATA    6008-DATA
   KTBLHL          5982-DATA
   KTBLHL1         5982/DATA    5983-DATA
   KTBLHR          5985-DATA
   KTBLHR1         5985/DATA    5986-DATA
   KTEMP           6080-DATA
   KTEMPA          6131-DATA
   KTEMP1          6132-DATA
   KTEMP2          6130-DATA
   KTIC            5883-DATA    6727/STO     6867/LTM     6870/STO     6892/STO     6951/STO
   KUNABIT         5918-DATA    6799/ORM
   KUNE            5898-DATA    6794/STO     7017/STO     7072/LTM     7082/LTM     7104/LTM
   KUNEBIT         5920-DATA    6596/ORM     7019/ORM     7078/ORM
   KW              6260/CNAME   6304/DO      6351-EQU     6803/NOP     6824/NOP     6825/NOP     6831/NOP
      6847/NOP     6910/NOP
   KWA             5886-DATA    6852/STO     6893/LMF     6953/ORM
   KWAR0           5974-DATA
   KWAR0LS         6073-DATA
   KWAR0R          6071-DATA    6750/LMF     6822/MKR
   KWAR0W          6070-DATA    6705/MMC     6712/MMC     6759/LMF     7188/LMF
   KWAR1           5975-DATA
   KWAR1R          6163-DATA    6894/AMA
   KWAR2           5976-DATA
   KWAR2R          6164-DATA
   KWAR2W          6072-DATA    6952/LMF
   KWAR3           5977-DATA
   KWAR3R          6079-DATA
   KWAR3W          6078-DATA
   KWC             5888-DATA    6628/AMA     6708/LMF     6838/STO     6899/LMF     6919/STO     6961/LMF
      6978/STO     7013/LTM
   KWCR0           5938-DATA    6545/MMC     6700/MMC     6748/MMC     6801/MMC     6821/MMC     6826/MMC
      6843/MMC     6873/MMC     7021/MMC     7156/MMC     7193/MMC
   KWCR0BL         6040-DATA    6829/MMC     6845/MMC
   KWCR0BR         6041-DATA
   KWCR0B3         5942-DATA    6563/MMC
   KWCR0DL         6042-DATA    6552/LMF     7025/LMF
   KWCR0DR         6043-DATA
   KWCR0HR         6039-DATA
   KWCR0HW         6038-DATA
   KWCR0WD         6075-DATA
   KWCR0WL         5970-DATA
   KWCR1           5940-DATA    6903/MMC     7157/MMC
   KWCR1WL         5971-DATA
   KWCR2           5941-DATA    6963/MMC     7158/MMC
   KWCR2WL         5972-DATA
   KWCR3           5943-DATA    7159/MMC
   KWCR3BL         6052-DATA
   KWCR3BR         6053-DATA
   KWCR3DL         6054-DATA
   KWCR3DR         6055-DATA
   KWCR3HL         6050-DATA
   KWCR3HR         6051-DATA
   KWCR3T1         6076-DATA
   KWCR3T2         6077-DATA
   KWCR3WL         5973-DATA
   KWCR3WR         6049-DATA
   KWDR0           5962-DATA    6550/MMC     6703/MMC     6710/MMC     6757/MMC     6828/MMC     6844/MMC
      7023/MMC     7198/MMC
   KWDR1           5963-DATA
   KWDR2           5964-DATA    6969/MMC
   KWDR3           5965-DATA
   KWDR3AR         6057-DATA
   KXAAAA          6089-DATA
   KXAAAAAAAA      6082-EQU
   KXAAAAAAAB      6099-DATA
   KXATA           5951-DATA    6082/EQU
   KXB1            6116-DATA
   KXB10           6084-DATA
   KXB15           6118-DATA
   KXB16           6140-DATA
   KXB2            6153-DATA
   KXB23           6115-DATA
   KXB27           6119-DATA
   KXB8            6117-DATA
   KXB9            6083-DATA
   KXC             6066-DATA
   KXCB99F974      6148-DATA
   KXC0000001      6102-DATA
   KXC399F974      6104-DATA
   KXD5555556      6100-DATA
   KXF             6068-DATA    6859/ANM
   KXFF            6065-DATA
   KXFFFF          6064-DATA    7014/ANM
   KXFFFFE000      6152-DATA
   KXFFFFFF        6174-DATA
   KXFFFFF000      6156-DATA
   KXFF15FFE3      6106-DATA
   KXFT8           5950-DATA
   KXF0            6113-DATA
   KXGEN           6111-DATA
   KXGENX          6154-DATA
   KXMGEN          6112-DATA
   KXM1            6017-DATA    6869/LMF
   KXM3            6177-DATA
   KXM3K           6074-DATA
   KXM7            6141-DATA
   KXM78CC0D19     6147-DATA
   KXM8            6142-DATA
   KX0             5958-DATA
   KX0T7           5949-DATA
   KX00EA001D      6107-DATA
   KX00FF          6037-DATA    6832/ANM     6850/ANM
   KX00008         6087-DATA
   KX01D4003A      6110-DATA
   KX01010101      6047-DATA
   KX0800          6093-DATA
   KX1             6016-DATA    6553/MKR     6594/LMF
   KX1T1           5952/DATA    5953-DATA
   KX10            6143-DATA    7038/AMA
   KX1000000       6046-DATA
   KX155           6096-DATA
   KX2AA           6095-DATA
   KX2T2           5954-DATA
   KX20            6144-DATA    7044/AMA
   KX200           6090-DATA
   KX2000          6091-DATA    6658/LMF
   KX200000        6114-DATA
   KX3             6145-DATA
   KX3FF           6097-DATA
   KX3FFFFFFF      6103-DATA
   KX3000000       6175-DATA
   KX3466068C      6105-DATA
   KX4T4           5955-DATA
   KX5T5           5956-DATA    6081/EQU
   KX51981A33      6109-DATA
   KX5555          6088-DATA
   KX55555555      6081-EQU
   KX68260D04      6108-DATA
   KX7FFFFFFE      6101-DATA
   KX7FFFFFFF      6151-DATA
   KX8T7           6069-DATA
   KX8T8           5957-DATA
   KX8000          6092-DATA
   KX80000001      6098-DATA
   K0              6229/CNAME   6230/CNAME   6237/CNAME   6238/CNAME   6239/CNAME   6240/CNAME   6241/CNAME
      6244/CNAME   6245/CNAME   6247/CNAME   6250/CNAME   6253/CNAME   6254/CNAME   6255/CNAME   6259/CNAME
      6261/CNAME   6264/CNAME   6305/ERROR   6309/ERROR   6349-EQU
   K15             6058-DATA
   K16             6059-DATA
   K16K            6146-DATA    6836/LMF
   K2              6018-DATA
   K3              6020-DATA    7035/ANM
   K31             6060-DATA
   K32             6061-DATA
   K4              6022-DATA
   K5              6024-DATA    7043/ANM
   K512            6035-DATA    6638/AMA     6644/LMF
   K6              6026-DATA    7026/MKR
   K63             6062-DATA
   K64             6063-DATA
   K7              6028-DATA
   K8              6030-DATA
   L               6449-EQU
   LAD             6227/OPEN    6246-CNAME
   LASTSAVE         516/BL       522-MBS
   LCM             6247-CNAME
   LCSAVE           896/STW      938-DATA    1222/LW*
   LDATASW         3888-DATA
   LDATSW1         3889-DATA
   LDD             6248-CNAME
   LDM             6249-CNAME
   LDTBB           4038/LD      4048-DATA
   LFAMACC         5144/LW      5229-DATA
   LIST            2387/DATA    2895/B       3680-LI
   LISTA           3685/BNE     3689-CI
   LISTB           3688/B       3692-LW      3705/BDR
   LISTC           3693/BEZ     3704-AI
   LISTDATA        3700/LI      3703/MTYPE   3807/LI      3811/MTYPE   3813/LI      3817/MTYPE
      5386-TEXTCS
   LISTEXT         3708/MTYPE   5471-TEXTCS
   LISTEXT1        3722/LI      3727/STW     3728/MTYPE   3731/STW     3732/MTYPE   5472-TEXTCS
   LISTEXT2        3738/STW     3742/LI      3748/LI      3754/LI      3756/MTYPE   5473-TEXTCS
   LISTEXT3        3761/LI      3763/MTYPE   5474-TEXTCS
   LISTHF          2548/BAL     3953-MTYPE   5649/BAL
   LISTHFA         3956-LW      3966/BIR
   LISTIOP         2542/BAL     3772-LI      5648/BAL
   LISTNEXT        3774-LW      3784/BIR
   LISTQ           3683/BE      3707-RES
   LISTQ1          3711-LI      3718/BEZ     3729/B       3757/B
   LISTQ2          3725/BLZ     3730-LW
   LISTQ3          3714/BGE     3758-LW
   LISTSAVE        3710/STW     3712/LW      3716/STW     3770-DATA
   LISTSKIP        3775/BEZ     3784-BIR
   LISTZ           3682/CW      3769-DATA
   LMF             6250-CNAME
   LMS             2388/DATA    3196-LW
   LMSA            3198/BL      3202/BL      3204/BE      3210-LW
   LMSB            3214/BE      3227-LW
   LMSC            3216/BE      3235-LI
   LMSMSG          3247/LI      3253/MTYPE   5352-TEXTCS
   LMSOK           3228/CW      3233-DATA
   LOC26           5554-B       5556/LW
   LOOK            2407/DATA    3787-RES
   LOOKDATA        3886-RES
   LOOKP           2309-CW      2314/B
   LOOKSAV         3810/STW     3812/LW      3816/STW     3819/LW      3823/STW     3826/LW      3830/STW
      3833/LW      3837/STW     3840/LW      3844/STW     3846/LW      3852-DATA
   LOWOK           4139/BE    4151.2-LW
   LP              2389/DATA    3178-LW
   LPA             3182/BE      3186-LI
   LPADD           1947/LW      1950/TIO*    1973/LW      2176-DATA    2720/MTW     2796/LW      2800/LW
      2802/TIO*    2949/STW     3187/STW     5615/TIO*    5647/STW
   LSTCHNL         5115/STW     5122/STB     5134/STW     5176/CW      5226-DATA
   LTM             6251-CNAME
   LWRFAM          5143/LW      5227-DATA
   M               6288/SET     6461/NOP     6462/NOP     6463/NOP     6464/NOP     6465/NOP     6466/NOP
      6467/NOP     6468/NOP     6469/NOP     6470/NOP     6471/NOP     6472/NOP     6473/NOP     6474/NOP
      6475/NOP     6476/NOP     6477/NOP     6478/NOP     6479/NOP     6480/NOP     6481/NOP     6482/NOP
      6483/NOP     6484/NOP     6485/NOP     6486/NOP     6487/NOP     6488/NOP     6489/NOP     6490/NOP
      6491/NOP     6492/NOP     6493/NOP     6494/NOP     6495/NOP     6496/NOP     6497/NOP     6498/NOP
      6499/NOP     6500/NOP     6505/NOP     6506/NOP     6507/NOP     6508/NOP     6509/NOP     6510/NOP
      6511/NOP     6512/NOP     6513/NOP     6514/NOP     6515/NOP     6516/NOP     6517/NOP     6518/NOP
      6519/NOP     6520/NOP     6544/NOP     6557/TRA     6568/NOP     6578/NOP     6583/NOP     6599/NOP
      6601/NOP     6602/NOP     6611/NOP     6615/NOP     6630/NOP     6632/NOP     6637/NOP     6639/NOP
      6648/NOP     6679/NOP     6682/NOP     6684/NOP     6689/AMA     6690/NOP     6699/NOP     6716/NOP
      6717/NOP     6735/NOP     6747/NOP     6755/NOP     6765/NOP     6769/NOP     6770/NOP     6773/STO
      6777/NOP     6778/NOP     6779/NOP     6781/NOP     6782/NOP     6788/NOP     6790/LTM     6791/STR
      6811/NOP     6812/NOP     6835/NOP     6841/NOP     6861/TRA     6868/NOP     6876/NOP     6880/NOP
      6897/NOP     6898/NOP     6920/NOP     6921/NOP     6924/NOP     6926/NOP     6929/NOP     6935/NOP
      6939/NOP     6956/NOP     6957/NOP     6958/NOP     6979/NOP     6980/NOP     6983/NOP     6985/NOP
      6988/NOP     6993/NOP     6994/NOP     7012/NOP     7016/STR     7045/TRA     7046/NOP     7050/NOP
      7058/STO     7061/STO     7064/NOP     7065/NOP     7066/NOP     7070/NOP     7073/CSR     7074/STO
      7080/NOP     7083/CSR     7084/STO     7092/STO     7094/NOP     7102/STO     7105/CSR     7106/STO
      7186/NOP     7203/NOP     7204/NOP
   MAPP             944/MTYPE   5337-TEXTCS
   MAXFAM          5232-DATA
   MBSW            2748/LW      2775/LW      2794-GEN
   MCDW            1901/STD     1902/LI      1929/STD     1931/LI      2129-DATA
   MCMEND          5674/LI      7206-EQU
   MCMEND1         7208-EQU
   MCMLMTAR        5675/LD      5740-DATA
   MCMSTART        5673/LI      6459-EQU
   MDOIT           1892-LW      1953/B
   MEMLIM           0.8-EQU   2168.2/DATA
   MEMTBL          1717/LW      1720-DATA
   MESSAGE         1057/BAL     1180/BAL     2974/BAL     3143-LW
   MESSDEV         1903/SIO*    1906/TIO*    1964/SIO*    1967/TIO*    1970-DATA    1976/TIO*    1982/STW
   MEXIT1          1098/BEZ     1100/BGE     1132/BCS     1154/BE      1157-LI
   MFLT1           5517-TEXTCS
   MFLT10          1728/DATA    5526-TEXTCS
   MFLT11          1729/DATA    5527-TEXTCS
   MFLT12          1730/DATA    5528-TEXTCS
   MFLT13          1731/DATA    5529-TEXTCS
   MFLT14          1732/DATA    5530-TEXTCS
   MFLT15          1733/DATA    5531-TEXTCS
   MFLT16          1734/DATA    5532-TEXTCS
   MFLT17          1735/DATA    5533-TEXTCS
   MFLT18          1736/DATA    5534-TEXTCS
   MFLT19          1737/DATA    5535-TEXTCS
   MFLT2           1720/DATA    5518-TEXTCS
   MFLT20          1738/DATA    5536-TEXTCS
   MFLT21          1739/DATA    5537-TEXTCS
   MFLT3           1721/DATA    5519-TEXTCS
   MFLT4           1722/DATA    5520-TEXTCS
   MFLT5           1723/DATA    5521-TEXTCS
   MFLT6           1724/DATA    5522-TEXTCS
   MFLT7           1725/DATA    5523-TEXTCS
   MFLT8           1726/DATA    5524-TEXTCS
   MFLT9           1727/DATA    5525-TEXTCS
   MGETOUT         1943-XPSD    1948/BLZ     1951/BIOANR  1974/BLZ     1984/BCS
   MINKEY           404-COM      830/B       1915-LW
   MINUTES         2042-DATA
   MKR             6252-CNAME
   MMC             6227/OPEN    6253-CNAME
   MORPE           1111/MTYPE   5346-TEXTCS
   MPRINT           402-COM      828/B       1947-LW
   MRC             6254-CNAME
   MSIZE            888/CW       931/CW      1093/LW      1099/CW      1103/LW      1128/LW      1129/LW
      1202/LW      1401/LW      1751/LW      2077/CW      2174-DATA    2588/STW     2593/STW     2606/STW
      2618/LW      2626/LS      2770/CW      2816/CW      2818/LW      3166/CW      3451/LW    4151.2/LW
      4199/CW      4315/LW      4420/LW      4859/LW      4944/OR      5019/LW      5072/CW      5573/STW
      5590/LW      5598/LS
   MTCNV           3370/BAL     3374/BAL     3378/BAL     3381-LW
   MTMAN           3367/BAZ     3377-LI
   MTMANM          3377/LI      3379/MTYPE   5368-TEXTCS
   MTNP            3365/BIOSNP  3373-LI
   MTNPM           3373/LI      3375/MTYPE   5369-TEXTCS
   MTNR            2803/BIOANR  2948/BIOANR  3364/BIOANR  3369-LI
   MTNRM           3369/LI      3371/MTYPE   5367-TEXTCS
   MTRVAL          5745-DATA    5808/LW      5812/STW     5818/STW     5828/LW
   MTTEST          3362-AND
   MTYPE            403-COM      829/B       1889-LW
   MYDW2           5547-DATA    5558/LPSD
   MYINPUT         2241/BAL     2256-LI      4673/BAL
   MYPSD1          5546-PSD     5552/XPSD
   MYPSD2          5548-PSD     5559/XPSD    5560/LW
   MYXPSD1         5552-XPSD    5566/LW
   MY46TRP          761-XPSD
   M9PAR            924/MTYPE   5335-TEXTCS
   NCR             3412/BNE     3420-LI
   NEWBUF          1369/BNEZ    1394-LI
   NEXTIOP          662/BEZ      665/BNEZ     670-AI
   NOBTAB          3482/BEZ     3485/BEZ     3487-BIR
   NOCLEAR         1119/BLEZ    1125/BCR     1133-MTYPE
   NOCTAB          3470/BEZ     3473/BEZ     3475-BIR
   NOINT            942-EQU      980/DATA
   NOINTLV          901/BEZ      915-LCI
   NOIOP           5130/BEZ     5234-MTYPE
   NOLP            5645/MTYPE   5864-TEXTCS
   NOP             6227/OPEN    6255-CNAME
   NOPEM           1108/MTYPE   3010/MTYPE   5356-TEXTCS
   NOPFAULT        1078/MTYPE   5344-TEXTCS
   NOPOFM           966/MTYPE   5340-TEXTCS
   NOTHEX          2305/BCS     2312-SLS
   NOTONA7         5563/MTYPE   5865-TEXTCS
   NPHZI            761/XPSD     794-PSD
   NUCORE          2610/MTYPE   5405-TEXTCS
   ODDTEX          2435/CW      3265/CW      3334-DATA
   OFFLINE         4172-LW      4641/BAL
   OFFLINX         4180/BEZ     4187-AI
   OFFWORD         3726/LW      3765-DATA
   OFLINEL         4179-LW      4189/BGEZ
   OLDGO           1102-LI      1116/BE
   ONE              686/MINKEY   687/LB      1113/MINKEY  1114/LB      1122/MINKEY  1123/LB
      1135/MINKEY  1136/LB      1143/MINKEY  1144/LB      1151/MINKEY  1152/LB      3443/MINKEY  3445/LB
      5366-TEXTCS
   ONWORD          3730/LW      3766-DATA
   OOUT            6809-RES
   ORD             6256-CNAME
   ORM             6257-CNAME
   ORR             6258-CNAME
   PANLOK          3854-DATA    4936/AND
   PARITY          1095/BAL     1105/BAL     1130/BAL     1197-STW
   PARITYMES       1226/MTYPE   5345-TEXTCS
   PARITY1         1204-LCI     1219/BDR
   PARITY4         1208/BGEZ    1210-STW
   PARITY5         1213/BCR     1215-LW
   PARITY6         1209/B       1216-AI
   PARITY7         1206/BCR     1218-AI
   PARSW4          1110/BCS     1127-LI
   PFAULTM         1027/MTYPE   5341-TEXTCS
   PHASE           1300/LW      1395/CW      1753/LW      2154-DATA    4245/STW     4271/STW     4303/STW
      4408/STW     4755/LW      4853/CW      5013/CW
   PHASEDLY        2155-DATA    4241/STW     4268/STW     4299/STW     4404/STW     4898/AW
   PHASETIME       2401/DATA    3614-LW
   PHASE1          4239/MTYPE   5394-TEXTCS
   PHASE2          4266/MTYPE   5395-TEXTCS
   PHASE3          4297/MTYPE   5396-TEXTCS
   PHASE4          4402/MTYPE   5397-TEXTCS
   PHASTIME        2156-DATA    3623/STW     4658/AW
   PHCNT           2153-DATA    3625/STW     4285/CW      4354/CW      4463/CW      4659/STW
   PHXCHECK         656-RES
   PHZ1             659-STW      673/BL
   PH1DLY          2157-DATA    2636/STW     4240/LW      5608/STW
   PH2DLY          2158-DATA    2634/STW     4267/LW      5606/STW
   PH3DLY          2159-DATA    2631/STW     4298/LW      4403/LW      5603/STW
   PH4CVA          4445/STW     4451/AWM     4455/AWM     4456/LW      4497/LW      4604-DATA
   PH4CVS          4446/STW     4605-DATA
   PH4MUL          4443/STW     4457/SW      4491/LW      4603-DATA
   PLOOP1          2295-LI      2323/B
   PLOOP2          2297-LB      2311/B
   PMIO            1168-TIO     1177/BDR     1182/BDR
   PMIOX           1164/STW     1178/B*      1183/B*      1184-RES
   POFFOK           963/BNEZ     965/BNEZ     968-MTW
   POLLMES         1133/MTYPE   5355-TEXTCS
   POLM            1101/B       1107/BNEZ    1109-RD      1117/BCS     1126/BNE     1139/BNE     1147/BNE
      1155/BCS
   POLMEM          1140/BAL     1164-STW
   PONCONT          969-LPSD
   POWERON          969/LPSD     971-DATA
   POWMES           975/MTYPE   5339-TEXTCS
   POWONP           962/MTW      968/MTW      977-DATA
   PRNTIO          2951/LW      2954-MPRINT
   PROGMSG       5582.1/MTYPE 5865.1-TEXTCS
   PSAVE            878/STW      918/BE*      933/B*       934-RES
   PSD              412-CNAME
   PSDSTACK         526/LM       531/LI       533/STD      696/PLM      699/PSM     1848/PSM     1852/PSM
      1860/PLM     1870-GEN     2137/DATA
   PSTAKW           532/LW      2230-DATA
   PTIMEA          3615/BEZ     3619/BE      3622-LW
   PTIMEB          3621/B       3623-STW
   PULLS            833/XPSD     877/XPSD    1077/XPSD    1160/XPSD    1435/XPSD    1462/XPSD    1489/XPSD
      1516/XPSD    1830/XPSD    1858-PSD     1908/XPSD    1943/XPSD    1969/XPSD    2250/XPSD    4678/XPSD
      4766/XPSD    4902/XPSD
   PUSHS            552/XPSD     560/XPSD     611/XPSD     618/XPSD     625/XPSD     643/XPSD     809/XPSD
       835/XPSD     842/XPSD     849/XPSD     870/XPSD     953/XPSD     981/XPSD    1025/XPSD    1087/XPSD
      1414/XPSD    1442/XPSD    1469/XPSD    1496/XPSD    1836-PSD     1840/LW*     1850/LPSD    1853/LPSD
      2233/XPSD    4667/XPSD    4717/XPSD    4792/XPSD
   R               6448-EQU
   RBUFLOOP        3405-LB      3429/BDR
   RC               690/CLM     1153/CLM     2134-DATA
   RCR             2889/LW      5351-TEXTCS
   RD              6444-EQU
   RDAR            3883-DATA
   RDCR            3882-DATA
   RDDR            3884-DATA
   RDDR3AR         3885-DATA
   RDIRECT         2390/DATA    3339-BAL
   RDPSR           3117-DATA
   RDWORD          3733/LW      3767-DATA
   REABIT           428-EQU      477/PSD      486/PSD      488/PSD      489/PSD      490/PSD      491/PSD
       492/PSD      493/PSD      494/PSD      495/PSD     2329/PSD     3135/PSD     3992/PSD     4044/PSD
      4789/PSD     5233/PSD     5546/PSD     5547/DATA    5548/PSD     5549/DATA
   READ            4109-GEN     4117/LW      4118/STW     4151/STW     4852/LI      4867/CI      5012/LI
      5028/CI
   READIOP         2386/DATA    3604-LW
   REAGAIN         3394-LW      3448/B
   REDM            3442/MTYPE   5373-TEXTCS
   REGET           2237-LI      2243/B
   REGOUT           681/BAL      856-STW     2089/BAL
   REGOUTX          856/STW      864/B*       865-RES
   REHELP          4669-LI      4675/B       4677/B
   RELCR           3397-MTYPE   3416/B
   RELOO           3400-LI      3430/B
   REMEVN          2449/BCS     3271-LI
   REMHF           3262/BE      3309-LW
   REMHFAL         3298/B       3311/BE      3319-RES     3331/BIR
   REMHF1          3324/BEZ     3331-BIR
   REMODD          2448/BCR     3267-LI
   REMOVE          2391/DATA    3256-LI
   REMOVEA         3275-LW      3285/BIR
   REMOVEB         3279/BEZ     3283-STW
   REMOVED         2453/BG      3274/BG      3287-MTYPE
   REMOVEE         3264/BE      3289-LI
   REMOVEF         3291-MTW     3297/BIR
   REMOVEG         3292/BEZ     3296-AI
   REMOVEH         3268/B       3272/B       3299-LI      3307/BIR
   REMOVEI         3302/BEZ     3306-AI
   REPLACE         2392/DATA    3388-BAL
   RESETDONE        745-STW      793/PSD
   RESETIO          744/XPSD     793-PSD
   REST            3408/BE      3431-MTW
   RESTART          500-BAL      980/DATA    2710/B       5554/B
   RESTCDW          501/BAL     2540/BAL     2576/BAL     4117-LW      4134/BAL
   RESTRHF         1434/BAL     1461/BAL     1488/BAL     1515/BAL     1517-RES     1696/BAL
   RET             6370-EQU     6632/NOP     6648/NOP     6690/NOP     6717/NOP     6769/NOP     6778/NOP
      7186/NOP
   RETURNS         1861/STD     1866/LPSD    1868-DATA
   REWTAPE         5689/LI      5694-DATA
   REXIT           3414/BNEZ    3439-LW
   RG1             6228/CNAME   6230/CNAME   6232/CNAME   6236/CNAME   6239/CNAME   6240/CNAME   6241/CNAME
      6243/CNAME   6244/CNAME   6245/CNAME   6252/CNAME   6254/CNAME   6255/CNAME   6258/CNAME   6260/CNAME
      6261/CNAME   6262/CNAME   6263/CNAME   6264/CNAME   6265/CNAME   6268/CNAME   6278/ERROR   6345-EQU
   RG2             6229/CNAME   6233/CNAME   6235/CNAME   6247/CNAME   6249/CNAME   6250/CNAME   6251/CNAME
      6253/CNAME   6257/CNAME   6267/CNAME   6274/EQU     6346-EQU
   RG3             6231/CNAME   6234/CNAME   6237/CNAME   6238/CNAME   6242/CNAME   6246/CNAME   6248/CNAME
      6256/CNAME   6259/CNAME   6266/CNAME   6347-EQU
   RMTAR           5736-DATA    5840/RD*
   RMTR            5735-EQU     5811/RD*
   RNEXT           3419/B       3424/BCS     3429-BDR     3438/BGEZ
   RPIA            1551/RD*     2183-DATA
   RPLY            2238/STB     2240/MINKEY  2260/LB      2263/LB      2270/LB      2276/LB      2297/LB
      2330-RES     2331/EQU     3401/STB     3402/MINKEY  3403/LB      3404/LI      3499/STB
      3500/MINKEY  3501/LB      3502/LI      4670/STB     4672/MINKEY
   RPLYS           2237/LI      2331-EQU     4669/LI
   RPSR            1559/RD*     2182-DATA
   RS              6288/SET     6768/NOP
   RSAR            1672/WD*     2185-DATA
   RSAR0           1419/RD*     2186-DATA
   RSAR1           1447/RD*     1474/RD*     1501/RD*     2187-DATA
   RSAVE            527/STM      567/STM      584/LI       608-EQU
   RSETXPSD         740/LW       744-XPSD
   RSPACE          3410/BE      3417-LI
   RSTACK           528/LI       530/STD      722/LH       728/MSP      732/PSM      774/PLM      859/LW
      1066/MSP     1068/PSM     1070/MSP     1837/PSM     1865/PLM     1876-GEN     2063/LW
   RSTAKW           529/LW      2229-DATA
   RUND            3422/BCR     3426-SLS
   S:KEYS          6288/SET
   S:PT             0.3/EQU
   S:RAD           6273/EQU
   S:UFV           6333/SET
   SAVEF           2328-RES     2719/STW     2756/BCS*    2759/BLZ*
   SAVERDW          511/LD      2137-DATA
   SAVERS           514-STB      521/B
   SAVE1            633-RES      639/STW      642/LW
   SAVE3            634-RES      660/STW      669/LW
   SAVE40          2557/STW     2608/LW      2682-DATA
   SAVE6            632-RES     1420/STW     1422/LW      1448/STW     1450/LW      1475/STW     1477/LW
      1502/STW     1504/LW      1577/LW
   SAVE7            631-RES      659/STW      668/LW
   SCATFLAG         507/STW     2166-DATA    4211/STW     4301/MTW     4358/STW     4406/MTW     4467/STW
   SCZ             6379-EQU
   SEARCH          2393/DATA    3451-LW
   SECONDS         2043-DATA
   SELBTAB         3465/BE      3481-LW      3487/BIR
   SELECT          2394/DATA    3461-LI
   SELECTA         3468-LW      3475/BIR
   SELECTDLY       2164-DATA    3545/STW     4894/MTW     4896/AW
   SELECTFL        1368/MTW     2151-DATA    2550/STW     3476/MTW     3478/STW     4619/MTW     4809/MTW
      4997/MTW
   SELIN           3471/BAL     3483/BAL     3491-LI
   SELINA          3498-LI      3518/B
   SELINS          3505/BE      3519-LI
   SELLOOP         3503-LB      3517/BDR
   SELMES          3491/LI      3494/MTYPE   5399-TEXTCS
   SELNEXT         3512/BCS     3517-BDR     3521/B
   SELW            3454-LW      3457/BDR
   SELX            3510/BCR     3514-SLS
   SERM            2426/STB     2427/MTYPE   5363-TEXTCS
   SERROR          2412/B       2414/B       2416/B       2418/B       2420/B       2422/B       2424/B
      2425-LI
   SERROR0         2411-LI
   SERROR1         2413-LI      2460/BE      2480/BE      2483/BGE     2575/B       2845/BEZ     2849/BG
      2923/BE      3180/BE      3200/BL      3205/BL      3207/BL      3209/BG      3313/BG      3350/B
      3467/BNE     3526/BE      3528/BGE     3557/BG      3576/BNE     3594/BG      3606/BG      3690/BG
      3790/BE      3792/BG      5102/BG      5319/BE
   SERROR2         2415-LI      2494/BLZ     2578/BEZ     2584/BEZ     2586/BL      2852/BEZ     2856/BG
      2927/BE      3003/BL      3212/BGE     3798/BG      5108/BG      5310/BE
   SERROR3         2417-LI      2859/BEZ     2863/BG      3229/BANZ    5114/BG      5307/BE
   SERROR4         2419-LI      2866/BEZ     2870/BG
   SERROR5         2421-LI
   SERROR6         2423-LI
   SETCDW          2888/BAL     4131-STW
   SETE            1674/LW      3078/LW      3128-DATA    5046/LW
   SETEXIT         4131/STW     4168/B*      4169-RES
   SETLOW          4142-CS      4146/B
   SETSIZE         2396/DATA    3524-LW
   SHORT           3163/BEZ     3173-AI
   SINT            2408/DATA    3532-RES
   SIO             2395/DATA    2918-LI
   SIOPA           4810/BNEZ    4812/BNEZ    4817-STW
   SIOPB           4803/BLZ     4820-LB
   SIOPBA          4844/BEZ     4847-HIO
   SIOPB1          4858/BNEZ    4862-STW
   SIOPD           4868/BNE     4874-STB
   SIOPE           4876-LI
   SIOPF           4854/BGE     4879-LW
   SIOPG           4878/B       4882-SIO
   SIOPH           4883/BCR     4893-GETTIME 5058/B       5067/B
   SLL             6403-CNAME
   SLOTDTA         3221/LI      3224/MTYPE   5323/LI      5325/MTYPE   5353-TEXTCS
   SPACE           3397/MTYPE   5374-TEXTCS
   SPURINT         1269/BAL     4224-RES     4259/BAL     4288/BAL     4359/BAL     4468/BAL
   SPURTXT         3535/LI      3537/MTYPE   4229/LI      4231/MTYPE   5372-TEXTCS
   SRA             6259-CNAME
   SRL             6390-CNAME
   STACKSZ          426-EQU      513/LI       797/DATA    1870/GEN     1872/DO1     1876/GEN     1878/DO1
      2137/DATA    2229/DATA    2230/DATA    2231/DATA
   START           2892/B       4210-LI      4222/B       4469/B
   STARTA          4238-BAL
   STARTB          4248-LW      4255/BGEZ
   STARTC          4252-MTW     4253/BGZ
   STARTD          4249/BEZ     4254-AI
   STARTE          4273-LI      4283/BNEZ    4286/BL
   STARTF          4274-LW      4280/BGEZ
   STARTG          4275/BEZ     4279-AI
   STARTI          4305-LI      4353/BNEZ    4355/BL      4395/B
   STARTIO         4789/PSD     4792-XPSD    4892/BGZ
   STARTIOP        1322/XPSD    4251/XPSD    4278/XPSD    4310/XPSD    4415/XPSD    4765/XPSD    4789-PSD
      4793/NOP
   STARTI4         4410-LI      4461/BNEZ    4464/BL      4508/B
   STARTJ          4306-MTW     4312/BGEZ
   STARTJ4         4411-MTW     4417/BGEZ
   STARTK          4307/BEZ     4309/BL      4311-AI
   STARTK4         4412/BEZ     4414/BL      4416-AI
   STARTL          4316/B       4319-BAL     4323/BGZ
   STARTL1         4329/BNE     4343-AI
   STARTL2         4331/BNEZ    4342/B       4351-GETTIME
   STARTL4         4421/B       4424-BAL     4428/BGZ
   STARTM          4338/BNE     4348/BNE     4361-INHIB
   STARTM1         4365/BCS     4390-LI
   STARTM4         4462-GETTIME 4548/BEZ
   STARTN          4371/BEZ     4392-LI
   STARTP1         4215/BNEZ    4236-MTW
   STARTP2         4217/BNEZ    4265-BAL
   STARTP3         4219/BNEZ    4296-BAL
   STARTP4         4221/BNEZ    4401-BAL
   STATEXIT        3632/STW     3675/B*      3677-RES
   STATMES         3608/MTYPE   3672/LI      3835/LI      3838/MTYPE   4736/MTYPE   5382-TEXTCS
   STATSAVE        3633/STW     3634/LW      3651/LW      3664/LW      3676-RES
   STC             6381-EQU     6598/LTM     6600/LTM     6629/ALR     6636/AMA     6638/AMA     6678/AMA
      6715/LTM     6746/LTM     6754/TZR     6764/TZR     6789/LTM     6790/LTM     6810/LTM     6834/TZR
      6840/LTM     6867/LTM     6923/TZR     6925/TZR     6928/AMA     6934/AMA     6982/TZR     6984/TZR
      6987/AMA     6992/AMA     7015/TZR     7063/LTM     7072/LTM     7082/LTM     7104/LTM     7202/TZR
   STO             6260-CNAME
   STOPIOP         4256/BAL     4287/BAL     4356/BAL     4465/BAL     4683-RES
   STOPIOP1        4691-MTW     4710/BIR
   STOPIOP2        4692/BEZ     4710-BIR
   STOPIOP3        4695-WD
   STR             6261-CNAME
   STRT            1015/LW      1530/LW      1679/LW      3063/LW      3083/LW      3118-DATA    4705/LW
      4945/LW      4952/LW      4959/LW      5052/LW
   STRTHF           502/BAL     4909-RES     4970/BIR
   STRTHFIO        4801/BLZ     4986-RES
   STRTHF1         4921-RES     4967/BDR
   STRTHF2         4914/BEZ     4968-RES
   STRTHF3         4930/B       4935/B       4937/BEZ     4942/B       4948/B       4955/B       4962/B
      4964-RES     4979/B
   STRTHF4         4972-RES
   STRT1           5014/BGE     5040-RES
   STRT1A          4996/BLZ     5000/B       5008-LB
   STRT1B          5039/B       5044-STW
   STRT2           5049/B       5055/B       5059-STW
   STZ             6380-EQU     6681/TZR     6683/AMA
   SYSRST0         2180-DATA
   SYSRST1         2181-DATA
   T               6275/SET     6461/NOP     6462/NOP     6463/NOP     6464/NOP     6465/NOP     6466/NOP
      6467/NOP     6468/NOP     6469/NOP     6470/NOP     6471/NOP     6472/NOP     6473/NOP     6474/NOP
      6475/NOP     6476/NOP     6477/NOP     6478/NOP     6479/NOP     6480/NOP     6481/NOP     6482/NOP
      6483/NOP     6484/NOP     6485/NOP     6486/NOP     6487/NOP     6488/NOP     6489/NOP     6490/NOP
      6491/NOP     6492/NOP     6493/NOP     6494/NOP     6495/NOP     6496/NOP     6497/NOP     6498/NOP
      6499/NOP     6500/NOP     6505/NOP     6506/NOP     6507/NOP     6508/NOP     6509/NOP     6510/NOP
      6511/NOP     6512/NOP     6513/NOP     6514/NOP     6515/NOP     6516/NOP     6517/NOP     6518/NOP
      6519/NOP     6520/NOP     6544/NOP     6545/MMC     6550/MMC     6551/NOP     6557/TRA     6562/NOP
      6563/MMC     6564/MMC     6568/NOP     6574/MMC     6578/NOP     6580/MMC     6583/NOP     6599/NOP
      6601/NOP     6602/NOP     6611/NOP     6615/NOP     6630/NOP     6632/NOP     6637/NOP     6639/NOP
      6648/NOP     6679/NOP     6682/NOP     6684/NOP     6690/NOP     6699/NOP     6700/MMC     6703/MMC
      6704/NOP     6705/MMC     6706/MKR     6707/NOP     6710/MMC     6711/NOP     6712/MMC     6713/MKR
      6714/NOP     6716/NOP     6717/NOP     6735/NOP     6747/NOP     6748/MMC     6749/NOP     6752/MMC
      6755/NOP     6757/MMC     6759/LMF     6760/MKR     6765/NOP     6768/NOP     6769/NOP     6770/NOP
      6777/NOP     6778/NOP     6779/NOP     6781/NOP     6782/NOP     6788/NOP     6789/LTM     6790/LTM
      6801/MMC     6802/MMC     6803/NOP     6811/NOP     6812/NOP     6821/MMC     6824/NOP     6825/NOP
      6826/MMC     6828/MMC     6829/MMC     6830/MMC     6831/NOP     6835/NOP     6841/NOP     6843/MMC
      6844/MMC     6845/MMC     6846/MMC     6847/NOP     6861/TRA     6868/NOP     6873/MMC     6874/NOP
      6876/NOP     6880/NOP     6897/NOP     6898/NOP     6903/MMC     6904/NOP     6910/NOP     6916/MMC
      6918/NOP     6920/NOP     6921/NOP     6924/NOP     6926/NOP     6929/NOP     6932/NOP     6935/NOP
      6939/NOP     6956/NOP     6957/NOP     6958/NOP     6963/MMC     6964/NOP     6969/MMC     6970/NOP
      6975/MMC     6977/NOP     6979/NOP     6980/NOP     6983/NOP     6985/NOP     6988/NOP     6990/NOP
      6993/NOP     6994/NOP     6997/NOP     7012/NOP     7016/STR     7017/STO     7021/MMC     7023/MMC
      7024/NOP     7025/LMF     7026/MKR     7027/MMC     7046/NOP     7050/NOP     7064/NOP     7065/NOP
      7066/NOP     7070/NOP     7080/NOP     7094/NOP     7130/TRA     7132/MMC     7135/MMC     7138/MMC
      7141/MMC     7144/MMC     7147/MMC     7150/MMC     7153/MMC     7156/MMC     7157/MMC     7158/MMC
      7159/MMC     7160/MMC     7163/MMC     7166/MMC     7169/MMC     7186/NOP     7193/MMC     7198/MMC
      7199/NOP     7203/NOP     7204/NOP
   TABLES          4090-EQU     5610/LI      5611/STW
   TABLESET        4242/BAL     4269/BAL     4300/BAL     4405/BAL     4613-MTW
   TABSETA         4614/BGE     4618-INHIB
   TABSETB         4626-MTW     4633/BIR
   TABSETC         4627/BEZ     4632-AI
   TABSETD         4620/BNEZ    4634-LI
   TABSETE         4648-MTW     4656/BIR
   TAR             6262-CNAME
   TDR             6263-CNAME
   TDV             2397/DATA    2938-LI
   TEMP             709/STW      715/LS       720/LW       733/LW       739/STM      746/LW       759/LW
       776/STM      779/LI       916/STM     1097/LS      1106/MTW     1118/MTW     1225/STM     1280/STW
      1285/STM     1562/STW     1567/LW      1783/STW     1784/STW     1785/STW     1787/STW     2081/STM
      2102/LW      2139-RES     2641/STW     2647/LW      3082/LW      3160/STD     3169/STD     3647/STM
      3660/STM     3671/STM     3699/STM     3804/STW     4366/STW     4367/STW     4369/STW     4372/STW
      4768/STW     4783/LW      4950/LI      5253/STW     5254/STW     5263/STW     5264/STW     5278/STD
      5291/LW
   TEMP46          2140-DATA
   TEN             2027/DW      2044-DATA
   TEST            2398/DATA    3566-RES
   TESTP2          4216-MTW     4237/BNEZ    4260/B
   TESTP3          4218-MTW     4289/B
   TESTP4          4220-MTW     4360/B
   TEST1           3571/BNE     3575-CW
   TEXTCS           405-CNAME
   THFHIO          3059-RES     3327/BAL
   TICK            2399/DATA    3541-LW
   TICKER           422/AW       542/LW      1235/LW      1248/LW      2146-DATA
   TICK1           3617/BE      3627-LI
   TIMEGET         2019/DW      2037-DATA
   TIMEIS          2020/STW     2025/LW      2040-RES
   TIMEMES         1778/MPRINT  2023/LI      2035/MTYPE   2050/LI      2052/MTYPE   2806/MPRINT
      4378/MPRINT  5358-TEXTCS
   TIMEOUT         1245/XPSD    4681-PSD     4718/NOP
   TIMEOUTA        4681/PSD     4717-XPSD
   TIMEOUTB        4723/BCS     4739-LW
   TIMEOUTC        4743/BGEZ    4747-LW
   TIMEOUTD        4746/B       4754-XPSD
   TIMEOUTE        4745/BCS     4752/BCS     4755-LW
   TIMEOUTF        4727/BL      4757/BGE     4764-LW
   TIMEOUTG        4763/B       4766-XPSD
   TIMEOUTH        4721/BGE     4767-RES
   TIMEOUTZ        4744-RD      4779/LI
   TIMESAVE        4719/STW     4729/LW      4739/LW      4760/LW      4764/LW      4786-RES
   TIMETICK         421/LW      1236/AWM     1240/LW      2048/LW      2147-DATA    3624/AW
   TIMEX           2015/STW     2036/B*      2047/STW     2053/B*      2054-RES
   TIMOUTD         3610/MTYPE   3661/LI      4738/MTYPE   5384-TEXTCS
   TIMOUTM         4731/LI      4735/MTYPE   5379-TEXTCS
   TIO             2400/DATA    2942-LI
   TITLE            0.3-EQU   5865.1/TEXTCS
   TOF             1777/DPRINT  2130-GEN     2805/DPRINT  2950/DPRINT  4377/DPRINT  5617/DPRINT
   TOFF            3575/CW      3582-DATA
   TON             3570/CW      3581-DATA
   TOPADDS         4114-DATA    4121/MTW     4124/STB*    4125/STB*    4127/STD     4132/MTW     4164/STD
   TP              6288/SET
   TRA             6264-CNAME
   TRACK           1317/STW     2152-DATA    4213/STW     4246/MTW     4250/MTW     4252/MTW     4258/STW
      4759/STW
   TRACKA          3552/BNE     3556-CI
   TRACKB          3555/B       3559-MTW     3563/BDR
   TRACKBUF        2402/DATA    3548-LW
   TRACKC          3560/BEZ     3562-AI
   TRAPHD           572/STH      575/LI       678/STH      679/MTYPE   2086/STH     2087/MTYPE
      5331-TEXTCS
   TRAPMES          577/LI       680/MTYPE    919/LI       925/MTYPE   1227/LI      1230/MTYPE   2082/LI
      2088/MTYPE   5332-TEXTCS
   TRAPS            555/BAL      562/BAL      569/BAL      613/BAL      620/BAL      627/BAL      647/BAL
       837/BAL      844/BAL      851/BAL      948/BAL      956/BAL     2073-STW
   TRAPSAV          927/STW      929/LW       936-RES
   TRAPSR          2073/STW     2085/EXU*    2090/B*      2091-RES
   TRAP4A           442/XPSD     479-PSD      843/NOP
   TRAP4B           443/XPSD     480-PSD      850/NOP
   TRAP4C           444/XPSD     481-PSD      871/NOP
   TRAP4CCCS        869/STCF     872/LCF      937-DATA
   TRAP4COK        1086/BNEZ    1090-LI
   TRAP4CR          880/STW      922/MTW      926/MTW      935-DATA    1085/MTW     1091/STW
   TRAP4D           445/XPSD     482-PSD      954/NOP
   TRAP40           432/XPSD     470-PSD      553/NOP
   TRAP41           433/XPSD     471-PSD      561/NOP
   TRAP42           434/XPSD     472-PSD      568/LD
   TRAP43           435/XPSD     473-PSD      612/NOP
   TRAP44           436/XPSD     474-PSD      619/NOP
   TRAP45           437/XPSD     475-PSD      626/NOP
   TRAP46           438/XPSD     476-PSD      638/LPSD     644/NOP
   TRAP46R          684/MTYPE   5334-TEXTCS
   TRAP48           440/XPSD     477-PSD      810/NOP
   TRAP49           441/XPSD     478-PSD      836/NOP
   TSET            3616/CW      3630-DATA
   TTYADD           573/LW       598/HIO*     600/SIO*     601/TIO*    1889/LW      1915/LW      1930/HIO*
      1932/SIO*    1935/TIO*    1956/LW      2177-DATA    2798/CW
   TURNOFFDW        786/STW      787/LPSD     796-DATA
   TURNOFFPDF       674/BAL      708/BAL      785-EQU      928/BAL
   TXLATE          1359/BAL     1427/BAL     1455/BAL     1482/BAL     1509/BAL     1556/BAL     1565/BAL
      2051/BAL     2104/BAL     2115-LW      2124/BDR     2616/BAL     2621/BAL     2645/BAL     2729/BAL
      2733/BAL     3027/BAL     3031/BAL     3035/BAL     3039/BAL     3055/BAL     3147/BAL     3158/BAL
      3223/BAL     3248/BAL     3252/BAL     3384/BAL     3493/BAL     3536/BAL     3723/BAL     3743/BAL
      3749/BAL     3755/BAL     3762/BAL     3778/BAL     3782/BAL     3950/BAL     3960/BAL     3964/BAL
      4230/BAL     4480/BAL     4485/BAL     4490/BAL     4494/BAL     4500/BAL     4560/BAL     4564/BAL
      4569/BAL     4574/BAL     4579/BAL     4733/BAL     4777/BAL     4888/BAL     4977/BAL     5064/BAL
      5246/BAL     5324/BAL     5588/BAL     5593/BAL     5624/BAL     5628/BAL     5637/BAL     5641/BAL
      5772/BAL     5778/BAL     5782/BAL     5786/BAL     5825/BAL     5831/BAL     5843/BAL
   TYPECMD          597/STD      599/LI       605-RES
   TYPEIO          2955-MTYPE   2984/LW
   TYPEIT           576/BAL      578/BAL      590/BAL      593-LB
   TYPER           2403/DATA    2713-LI      2797/BLZ     2799/BE
   TYPERI           580/XW       588/STW     2754-MTYPE
   TYPETI           592-LI       607/BAL
   TZR             6265-CNAME
   T4CA             875/BAL      878-STW     1089/BAL
   T4CB             886/BCS      892-LCI
   T4CC             882-LI       889/BCS      932/BL
   T4CD             891/B        898-LW
   T4CF             930-AI
   T461             684-MTYPE    692/BNE
   T462             654/BCS      676/BCS      683/BCS      693-LPSD
   T463             691/BCR      694-LPSD
   T464             689/BE       695-LCI
   UDATASW         3887-DATA
   UFAMACC         5188/LW      5230-DATA
   UNDER           2303/BCR     2307-SLS
   UNITEXT         2644/LI      2646/LI      2667/LI      2669/MTYPE   5402-TEXTCS
   UNITEXT1        2639/MTYPE   5401-TEXTCS
   UNSELECT        3463/BEZ     3478-STW
   UPPERFAM        5097/STW     5167/MTW     5172/MTW     5186/STW     5223-DATA    5273/MTW
   UPRFAM          5187/LW      5228-DATA
   VALB            2258/STW     2317/STW     2409-RES     2410/EQU     2432/LW      2458/LW      2462/LW
      2478/LW      2484/LW      2499/LW      2507/LW      2517/STW     2518/LW      2519/LW      2526/MTW
      2558/LW      2577/LW      2684/LW      2844/LW      2851/LW      2858/LW      2865/LW      2894/STW
      2898/LW      2903/LW      2921/LW      2925/LW      2929/STW     2944/LW      2958/LW      2959/LW
      2962/LW      2967/STW     2968/LW      2982/CW      2995/LW      2996/LW      3178/LW      3196/LW
      3210/LW      3227/LW      3258/LW      3275/LW      3309/LW      3344/LW      3354/LW      3389/STW
      3390/STW     3394/LW      3395/LW      3439/LW      3440/LW      3462/LW      3524/LW      3541/LW
      3550/LW      3567/LW      3587/LW      3604/LW      3614/LW      3681/LW      3788/LW      3793/LW
      5098/LW      5104/LW      5110/LW      5305/LW      5308/LW      5317/LW
   VALBL           2256/LI      2258/STW     2321/CI      2410-EQU
   VALST           2300/BE      2310/BGE     2315-CI
   VERBUF          5723/LI      5755/LI      7209-EQU
   VERER1          5768/MTYPE   5867-TEXTCS
   VERER1A         5771/LI      5773/MTYPE   5788/MTYPE   5824/LI      5826/MTYPE   5868-TEXTCS
   VERER2          5792/STW     5796/STW     5797/MTYPE   5869-TEXTCS
   VERER3          5777/LI      5781/LI      5785/LI      5787/MTYPE   5870-TEXTCS
   VERER4          5833/STW     5837/STW     5838/MTYPE   5871-TEXTCS
   VERER5          5830/LI      5839/MTYPE   5872-TEXTCS
   VERER5A         5842/LI      5844/MTYPE   5873-TEXTCS
   VERIFY          5729/BAL     5752-RES
   VERIFY1         5757-LCI     5766/BGZ
   VERNOT          5762/BNE     5791-LW
   VERPE           5760/BCS     5768-MTYPE
   VERPE1          5769-LI      5798/B
   VERSB           5710/STW     5761/CW*     5764/MTW     5779/LW*     5800-DATA
   VERSION          0.2-EQU      0.3/EQU
   VERSIZE         5712/STW     5721/LW      5754/MTW     5765/MTW     5801-DATA
   VER1            5756/STW     5758/LMS*    5759/STW*    5763/MTW     5774/LW      5799-DATA
   W               6450-EQU
   WARN            5135/MTYPE   5408-TEXTCS
   WAT             6358-EQU     6461/NOP     6466/NOP     6467/NOP     6468/NOP     6469/NOP     6472/NOP
      6770/NOP     6779/NOP     7046/NOP     7066/NOP
   WDIRECT         2404/DATA    3353-BAL
   WDTL             635-EQU
   WMTR            5715/WD*     5725/WD*     5734-DATA    5735/EQU
   WORLD            538-LI
   WRCR            3879-DATA
   WRCR3           3880-DATA
   WRITE           4111-GEN     4119/LW      4120/STW     4149/STW     4849/LI      5009/LI
   WRTWORD         3737/LW      3768-DATA
   WT              6445-EQU
   XB0M1           1708/AND     2208-DATA
   XB1M1           2209-DATA
   XB2M1           2210-DATA
   XB3M1           2211-DATA    2997/AND     3001/AND     5320/AND
   XD07            2213-DATA
   XD17            2212-DATA
   XE0000          2204-DATA
   XF               813/AND     1546/AND     2194-DATA    2652/AND     4916/AND     5659/AND     5661/AND
   XFE0            2199-DATA    3666/AND
   XFF             1392/EOR     2197-DATA
   XFFC000         2205-DATA    2570/AND     2583/AND
   XFFF            2198-DATA    5853/CW      5855/SW
   XFFF000         1711/AND     2206-DATA
   XFO             2028/OR      2029/OR      2045-DATA
   XLATTEMP         921/BAL     1229/BAL     1288/BAL     1790/BAL     2084/BAL     2101-LI      2107/BDR
      3171/BAL     3650/BAL     3663/BAL     3674/BAL     3702/BAL     3809/BAL     3815/BAL     3822/BAL
      3829/BAL     3836/BAL     3843/BAL     3849/BAL     4375/BAL
   XND             6266-CNAME
   XNM             6267-CNAME
   XNR             6268-CNAME
   X0FF            5151/AND     5157/AND     5158/AND     5165/CW      5231-DATA    5260/AND
   X1E0             710/AND     2200-DATA
   X1E00            748/AND     2201-DATA
   X1F00           1294/AND     1298/AND     2202-DATA
   X10             1637/LRP     1644/LRP     1651/LRP     1658/LRP     2195-DATA
   X40000          2203-DATA    4747/LW
   X6F             2207-DATA    4000/LW      4547/AND
   X7F             2196-DATA    4590/EOR     5315/EOR
   X7FS             997/LW      1318/LW      1335/LW      1349/LW      1432/AND     1459/AND     1486/AND
      1513/AND     1757/AND     2001/LW      2222-DATA    2838/LW      4203/LW      4635/LW      4761/LW
      4900/LW      5079/LW
   X8              2193-DATA
   X80             1080-DATA
   YN              1115/CLM     1124/CLM     1137/CLM     1145/CLM     2133-DATA
   Z               6355-EQU     6363/EQU     6364/EQU     6367/EQU     6368/EQU
   ZEROSCAN        2757/B       2766-CI      2789/B
   ZFLAG           2751/STW     2778/MTW     2785/MTW     2792-DATA
   ZHPRT           2779/BNEZ    2786-AI
   ZMES            2782/MTYPE   2784/MPRINT  5330-TEXTCS
   ZMES1           2781/BLZ     2784-MPRINT
   2WAY             905/BAZ      908-LS
   4ATRAP           479/PSD      842-XPSD
   4BTRAP           480/PSD      849-XPSD
   4CBUS            874/BCS      947-MTYPE
   4CMAP            873/BCS      944-MTYPE
   4CTRAP           481/PSD      869-STCF
   4DTRAP           482/PSD      953-XPSD    1842/CW
   40TRAP           470/PSD      552-XPSD
   41TRAP           471/PSD      560-XPSD
   42TRAP           472/PSD      567-STM
   43TRAP           473/PSD      611-XPSD
   44TRAP           474/PSD      618-XPSD
   45TRAP           475/PSD      625-XPSD
   46CCS            652/STW      653/LCF      802-RES
   46CCSTAK         534/LI       537/STD      641/PSW      645/LW*      651/PLW      797-DATA
   46COUNT          650/STW      725/MTW      730/MTW      768/MTW      771/MTW      800-DATA    1029/STW
   46GOON           655/BCS      674-BAL      794/PSD
   46LAB            644-NOP     1844/CW
   46PUSH           643-XPSD
   46SAVEF          707/STW      760/LPSD     767/STW      772/BLZ*     791-RES
   46TRAP           647-BAL
   46TRENT          476/PSD      637-BCR
   48TRAP           477/PSD      809-XPSD
   49TRAP           478/PSD      835-XPSD
   5BINT            487/PSD     1234-STM
   5BINTI          1237-LI
   5BINTJ          1238-MTW     1247/BGEZ
   5BINTK          1239/BEZ     1242/BL      1244/BL      1246-AI
   5BREGS          1234/STM     1252/LM      1256-RES
   5DINT            489/PSD     2233-XPSD
   50INT            483/PSD      960-LI
   51INT            484/PSD      981-XPSD
   56INT            485/PSD     1025-XPSD
   57INT            486/PSD     1085-MTW
   66INT            490/PSD     1411-RES
   66INT1          1424/BANZ    1434-BAL
   67INT            491/PSD     1439-RES
   67INT1          1452/BANZ    1461-BAL
   68INT            492/PSD     1466-RES
   68INT1          1479/BANZ    1488-BAL
   69INT            493/PSD     1493-RES
   69INT1          1506/BANZ    1515-BAL
