1 C00   20:55 JUN 20,'83                                                                          PAGE    1
A      1                     2.000  +2,2                                                                *H01
       2                     2.010  VERSION  EQU      C'H01'                                            *H01
       3                   172.000  +172,172                                                            *H01
       4                   172.010           SPACE                                                      *H01
       5                   172.020  CARDS    SET      ABSVAL(S:UFV(ENDALL))-X'40' WORDS BEYOND BOOT     *H01
       6                   172.030  CARDX    SET      CARDS-30*(CARDS/30)   WORDS IN PARTIAL RECORD     *H01
       7                   172.040           SPACE                                                      *H01
       8                   172.050  BEGIN    LI,2     CARDS/30+1+(CARDX>0) TOTAL RECORDS IN LOADER      *H01
       9                   172.060           SPACE                                                      *H01
      10                   223.000  +223,223                                                            *H01
      11                   223.010  START    LI,1     -1                SET UP TO SCAN FOR              *H01
      12                   223.020           SLS,1    -15                MEMORY SIZE                    *H01
      13                   223.030           SPACE                                                      *H01
      14                   225.000  +225                                                                *H01
      15                   225.010           SPACE                                                      *H01
      16                   225.020           CI,1     X'1FFFF'          LOADER BIAS MAXIMUM             *H01
      17                   225.030           BLE      %+2                AT 128K-256                    *H01
      18                   225.040           LI,1     X'1FFFF'                                          *H01
      19                   225.050           SPACE                                                      *H01
      20                   640.000  +640,640                                                            *H01
      21                   640.010           LI,0     MESS3                                             *H01
      22                   750.000  +750,750                                                            *H01
      23                   750.010           CI,8     X'3C'              AND CHECK VALIDITY             *H01
      24                   750.020           BE       ROC11,X                                           *H01
      25                   750.030           CI,8     X'1C'                                             *H01
      26                   750.040           BE       ROC11,X                                           *H01
      27                   750.050           SPACE                                                      *H01
      28                   750.060           LI,0     MESS2             INVALID ID                      *H01
      29                   750.070           BAL,15   PRINT,X            (CANNOT CONTINUE)              *H01
      30                   750.080           WAIT     %                                                 *H01
      31                   750.090           SPACE                                                      *H01
      32                   750.100  ROC11    AW,8     0                 ADD ID TO CHECKSUM              *H01
      33                   754.000  +754                                                                *H01
      34                   754.010           SPACE                                                      *H01
      35                   755.000  +755                                                                *H01
      36                   755.010           CI,6     5                  AND CHECK FOR VALIDITY         *H01
      37                   755.020           BL       ROC12,X                                           *H01
      38                   755.030           CI,6     108                                               *H01
      39                   755.040           BLE      ROC1,X                                            *H01
      40                   755.050           SPACE                                                      *H01
      41                   755.060  ROC12    LI,0     MESSA             INVALID SIZE                    *H01
      42                   755.070           BAL,15   PRINT,X            (CANNOT CONTINUE)              *H01
      43                   755.080           WAIT     %                                                 *H01
      44                   755.090           SPACE                                                      *H01
      45                   757.000  +757                                                                *H01
      46                   757.010           SPACE                                                      *H01
      47                   926.000  +926                                                                *H01
      48                   926.005  MESS2    TEXTC    CR,'INVALID ROM ID'                               *H01
      49                   926.010  MESS3    TEXTC    CR,'NO START ADDRESS'                             *H01
      50                   932.000  +932                                                                *H01
      51                   932.010  MESSA    TEXTC    CR,'INVALID ROM SIZE'                             *H01
      52                  9999.999  +END
1 C00   20:55 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:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE    3
A       1                                     PCC                                                        *G02
        1*        TEXT               VERSION  EQU      C'H01'                                            *H01
        3         TEXT               CATALOG  EQU      C'0011'                                           *G02
        4                            TITLE    EQU      S:PT('T-SERIES MTL LOADER 960-',;                 *G02
        5         TEXT                                 CATALOG,'-',VERSION)                              *G02
        6                                     SOCW                                                       *G00
        7                                     SYSTEM   SIG7FDP                                           *G00

        9         00000001           X        EQU      1                 RELOCATION REGISTER             *G00
       10         TEXT               CR       EQU      '
'                                               *G00

       12                                     OPEN     BOUND             ORIGINAL BAD FOR SOCW           *G00
       13         00000000           BOUND    CNAME                                                      *G02
       14                                     PROC                                                       *G02
       15                                     LOCAL    OFFSET                                            *G02
       16                                     LIST     0                                                 *G02
       17                            OFFSET   SET      ABSVAL(BA(%%))-(ABSVAL(BA(%%))/AF(1))*AF(1)       *G02
       18                                     DO       (OFFSET>0)*(AF(1)-OFFSET)                         *G02
       19                                     DATA,1   0                                                 *G02
       20                                     FIN                                                        *G02
       21                                     LIST     1                                                 *G02
       22                                     PEND                                                       *G02
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE    4
A      24                            *  LOADING PROCEDURES.
       25                            *--------------------------
       26                            *        1. SET COMPUTE SWITCH TO IDLE.
       27                            *
       28                            *        2. CLEAR MEMORY BY SIMULTANEOUSLY PRESSING CPU/CLEAR AND
       29                            *           CPU/RESET SWITCHES FOR SIGMA 5/6/7 OR BY PRESSING THE
       30                            *           MEMORY CLEAR SWITCH FOR SIGMA 8/9.
       31                            *
       32                            *        3. SET THE UNIT ADDRESS SWITCHES TO THE ADDRESS OF THE
       33                            *           DESIRED INPUT PERIPHERAL DEVICE.
       34                            *
       35                            *        4. SET THE WATCHDOG TIMER SWITCH TO HALT.
       36                            *
       37                            *        5. SET THE INTERLEAVE SWITCH TO THE DESIRED POSITION,
       38                            *           INTERLEAVE OR DIAGNOSTIC MODE.
       39                            *
       40                            *        6. SET THE PARITY ERROR MODE SWITCH TO CONTINUE.
       41                            *
       42                            *        7. SET CLOCK MODE SWITCH TO CONTINUE.
       43                            *
       44                            *        8. SET THE ADDRESS STOP SWITCH TO THE OFF POSITION.
       45                            *
       46                            *        9. FOR SIGMA 9 PRESS NOT NORMAL SWITCH AND CHECK FOR NORMAL
       47                            *           INDICATION.
       48                            *
       49                            *        10. SET SENSE SWITCHES FOR DESIRED OPTIONS.(SEE PROGRAM
       50                            *            OPTIONS)
       51                            *
       52                            *
       53                            *        11.      PRESS I/O RESET AND THEN LOAD SWITCH.
       54                            *
       55                            *        12.      MOVE COMPUTE SWITCH FROM IDLE TO RUN.
       56                            *
       57                            *            AT THIS POINT THE PROGRAM WILL BE LOADED ACCORDING
       58                            *            TO THE SENSE SWITCH SETTINGS.
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE    5
A      60                            *  SENSE SWITCH OPTIONS.
       61                            *-----------------------
       62                            *
       63                            *   SENSE SWITCH SETTING.               REACTIONS.
       64                            *   .....................               ..........
       65                            *
       66                            *        SS4  ON         AFTER THE LOADER HAS BEEN READ,            *G02
       67                            *                        THE PROGRAM WILL ASK FOR THE RELOCATION BIAS
       68                            *                        TO BE USED FOR THE LOADER. THE FOLLOWING
       69                            *                        RESPONSES ARE PERMITTED:
       70                            *                        (NOTE. N/L MEANS NEW LINE CHARACTER.)
       71                            *                        1. A 5 DIGIT HEXADECIMAL VALUE FOLLOWED BY
       72                            *                           N/L. THIS WILL BE THE RELOCATION BIAS
       73                            *                           FOR THE STARTING LOCATION FOR THE LOADER.
       74                            *                        2. A N/L WITH NO PRECEDING CHARACTER WILL
       75                            *                           DISREGARD THE QUESTION FOR A RELOCATION
       76                            *                           BIAS AND PROCEED TO PLACE THE LOADER AT
       77                            *                           THE TOP OF MEMORY AS IF SS4 WERE OFF.   *G02
       78                            *                        3. A END OF MESSAGE CHARACTER WILL DISREGARD
       79                            *                           THE PRECEDING INPUT AND ACCEPT A NEW VALUE.
       80                            *
       81                            *        SS4  OFF        THE LOADER WILL RELOCATE TO THE LAST PAGE  *G02
       82                            *                        OF MEMORY WITHOUT WAITING.                 *G02
       83                            *
       84                            *       SS2  ON          PROGRAM WILL COME TO A WAIT BEFORE TRANSFER-
       85                            *                        RING CONTROL TO THE LOADER PROGRAM. THE CON-
       86                            *                        TENTS OF REGISTER 12 POINTS TO THE START
       87                            *                        ADDRESS INDICATED BY THE END CARD. CLEARING
       88                            *                        THIS WAIT WILL EXECUTE AN INDIRECT BRANCH TO
       89                            *                        REGISTER 12.
       90                            *
       91                            *       SS2  OFF         NO WAIT OCCURS.

       93                            *  PROGRAM WAITS.
       94                            *-------------------
       95                            *
       96                            *  WHEN A WAIT OCCURS AT I;EITHER OF THE FOLLOWING 2 LOCATIONS SPECI-
       97                            *  FIED BELOW, IT MEANS THAT THE ASR/KSR DEVICE ADDRESS WAS NOT RECOG-
       98                            *  NIZED. ENTER THE CORRECT ADDRESS INTO REGISTER 0 AND CLEAR THE WAIT.
       99                            *
      100         00 000DC           VAL1     EQU             S:UFV(WAIT1)  EITHER THIS LOCATION OR ;
      101         00 001A2           VAL2     EQU             S:UFV(WAIT2)  THIS LOCATION + CONTENTS OF REG. 1
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE    6
A     103                            * SCNT TABLE.
      104                            *---------------
      105                            *
      106                            *  REGISTER 1 CONTAINS THE ADDRESS LOCATION OF SCNT WHEN IT TRANSFERS
      107                            *  CONTROL TO THE LOADED PROGRAM.
      108                            *
      109                            *  THE SCNT TABLE IS AS FOLLOWS:
      110                            *
      111                            *
      112                            *        SCNT     TABLE ADDRESS     SCNT IS THE LABEL THAT IS ATTACHED
      113                            *        SCNT+1   I/O RETURN ADDRESS  WHEN INPUT IS DONE BY THE USER
      114                            *                                   THIS IS WHERE SEQUENCE AND CHECKSUM
      115                            *                                   CHECKING STARTS.
      116                            *        SCNT+2   IOCD              IOCD USED BY THE LOADER SIO.
      117                            *        SCNT+3     *
      118                            *
      119                            *        SCNT+4   ADDRESS OF THE LOADER SIO
      120                            *
      121                            *        SCNT+5   INPUT DEVICE ADDRESS
      122                            *
      123                            *        SCNT+6   LAST MEMORY ADDRESS
      124                            *
      125                            *        SCNT+7   BUFFER ADDRESS USED BY THE LOADER FOR INPUT
      126                            *        SCNT+8    LOADER ENTRANCE LOCATION
      127                            *        SCNT+9    BRANCH TO LOADER START
      128                            *TABLE   SCNT+10  MT LIBRARY FLAG   0 = LOADED FROM CARDS
      129                            *                                   NOT 0 = MT LINK TABLE ADDR.
      130                            *        SCNT+11  ENDPROGRAM        FIRST LOCATION ABOVE LOADER
      131                            *                                   TO LOCATION INDICATED BY REG. 1
      132                            *        SCNT+12  PROTECT ADDRESS   THIS LOCATION CONTAINS THE ADR.
      133                            *                                   OF THE LOAD BUFFER AND PROTECTS THE
      134                            *                                   LOADER FROM BEING OVERLAID. THIS ADR.
      135                            *                                   MAY BE ALTERED TO PROTECT ADDITIONAL
      136                            *                                   MEMORY LOCATIONS
      137                            *        SCNT+13  0                 REMOTE ENVIRONMENT CODE.
      138                            *        SCNT+14  TELETYPE ADDRESS  THE DEVICE ADDRESS USED TO NOTIFY
      139                            *                                   THE OPERATOR OF ERRORS THAT OCCUR
      140                            *                                   DURING THE LOAD OPERATION
      141                            *        SCNT+15  0                 COC DEVICE.
      142                            *        SCNT+16  0                 DIO DEVICE.
      143                            *        SCNT+17  0                 COC STATE.
      144                            *        SCNT+18  0                 COC LINE NO.
      145                            *        SCNT+19  0                 PSENSE.
      146                            *        SCNT+20  L1A ADDRESS       ADDRESS WHERE PROCESSING BEGINS
      147                            *        SCNT+21  L1C ADDRESS       NOP INSTRUCTION.
      148                            *                                   CAN BE USED TO INSERT A BRANCH
      149                            *                                   FOR USER INTERPRETATION OF BUF-
      150                            *                                   FER DATA INPUT BY LOADER.
      151                            *        SCNT+22  0               SCNT+22-SCNT+25 ARE NOT USED.
      152                            *        SCNT+23  SEEK ADR                                          *A01
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE    7
A     154                            *  USE AS A SUBROUTINE TO LOAD ADDITIONAL OBJECT MODULES
      155                            *-------------------------------------------------------
      156                            *
      157                            * WHEN USING  THE LOADER AS A SUBROUTINE REG. 11 SHOULD CONTAIN THE
      158                            * ADDRESS THAT THE LOADER RETURNS TO. IF REG.11 CONTAINS A ZERO THE
      159                            * LOADER GOES TO THE ADDRESS INDICATED ON THE END CARD OF THE OBJECT
      160                            * DECK. REGISTER 0 MUST CONTAIN THE AMOUNT OF RELOCATION BIAS TO
      161                            * BE ADDED TO THE OBJECT MODULE TO BE LOADED. THIS VALUE CAN
      162                            * NOT BE NEGATIVE. AN EXAMPLE WOULD BE:
      163                            *
      164                            *
      165                            *
      166                            *        LI,0     RELOCATIONBIAS
      167                            *        LI,1     LOADERADDRESS
      168                            *        BAL,11   8,1
      169                            *        GO                         THE LOADER WILL RETURN HERE
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE    8
A     171   00 0002A                          ORG      X'2A'
            00 0002A

        2*        000002AF           CARDS    SET      ABSVAL(S:UFV(ENDALL))-X'40' WORDS BEYOND BOOT     *H01
        3*        0000001B           CARDX    SET      CARDS-30*(CARDS/30)   WORDS IN PARTIAL RECORD     *H01

        5*  00 0002A    22200018 A   BEGIN    LI,2     CARDS/30+1+(CARDX>0) TOTAL RECORDS IN LOADER      *H01

      173   00 0002B    32000035 A            LW,0     NOP         *** ELIMINATE SETTING REGISTER TO
      174   00 0002C    3500002A A            STW,0    BEGIN       *** INDEX NO OF CARDS OF LOADER DECK
      175   00 0002D    22400078 A            LI,4     X'78'
      176   00 0002E    32500036 A            LW,5     IOCD        ADD HEX 78 EYTES TO BYTE COUNT
      177   00 0002F    30500004 A            AW,5     4            ADDRESS
      178   00 00030    35500036 A            STW,5    IOCD
      179   00 00031    2200001B A            LI,0     DA(IOCD)
      180   00 00032    64200027 A            BDR,2    X'27'
      181   00 00033    CD600025 A            TIO,6    *X'25'      FETCH STATUS TO REG 7
      182   00 00034    68000041 A            B        PRELEM

      184   00 00035    02000000 A   NOP      NOP

      186                                     BOUND    8
      187   00 00036    02000088 A   IOCD     DATA     X'02000100'-X'78'
      188   00 00037    0E000078 A            DATA     X'0E000078'  HTE,IUE,SIL FLAGS SET

      190         00 00038           ENDCARD  EQU      %
      191         00000010                    DO       30-ABSVAL(ENDCARD-BEGIN)
      192   00 00038    00000000 A            DATA     0
      193                                     FIN
            00 00039    00000000 A
            00 0003A    00000000 A
            00 0003B    00000000 A
            00 0003C    00000000 A
            00 0003D    00000000 A
            00 0003E    00000000 A
            00 0003F    00000000 A
            00 00040    00000000 A
            00 00041    00000000 A
            00 00042    00000000 A
            00 00043    00000000 A
            00 00044    00000000 A
            00 00045    00000000 A
            00 00046    00000000 A
            00 00047    00000000 A
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE    9
A     195   00 00040                          ORG      X'40'
            00 00040
      196   00 00040    0F000062 A            XPSD,0   MEMSIZE           FOR DETERMINING MEMORYSIZE

      198   00 00041    31900077 A   PRELEM   CW,9     PI           IS REGISTER 9 = PI (31415926)
      199   00 00042    69300049 A            BNE      GO:ON        BRANCH IF NOT REMOTE PCKGE
      200   00 00043    22200000 A            LI,2     0            CLEAR INDEX REGISTER 2

      202   00 00044    32840009 A   PRE:BCK  LW,8     9,2         SAVE REGISTERS 9 - 15
      203   00 00045    3584010B A            STW,8    SCNTO:+13,2   INTO REMOTE ENVIRONMENT
      204   00 00046    20200001 A            AI,2     1            INCREMENT INDEX REG. 2
      205   00 00047    21200006 A            CI,2     6            DO UNTIL REGISTER 9-15 DONE
      206   00 00048    68200044 A            BLE      PRE:BCK

      208   00 00049    22900000 A   GO:ON    LI,9     0           CLEAR REGISTER 9
      209   00 0004A    32C00025 A            LW,12    X'25'       FETCH DEVICE ADDRESS FROM X'25'
      210   00 0004B    35C00084 A            STW,12    INPUTDEV
      211   00 0004C    4B7000EE A            AND,7    DEVMASK           CHECK FOR INC LENGTH
      212   00 0004D    69300051 A            BNEZ     %+4               FOR CALCULATING THE CDW USE

      214   00 0004E    22D00002 A   COMD     LI,13    2                 IN READING THE OBJECT DECK      *A01
      215   00 0004F    35D000EF A            STW,13   DEVTYPE
      216   00 00050    68000055 A            B        START

      218   00 00051    4BC000ED A            AND,12   :X80
      219   00 00052    6930004E A            BNEZ     COMD                                              *A01
      220   00 00053    22D00006 A            LI,13    6
      221   00 00054    6800004F A            B        COMD+1                                            *A01

        1*  00 00055    221FFFFF A   START    LI,1     -1                SET UP TO SCAN FOR              *H01
        2*  00 00056    25100071 A            SLS,1    -15                MEMORY SIZE                    *H01

      224   00 00057    B5100001 A   AGAIN    STW,1    *1
      225   00 00058    351000EC A            STW,1    CORESIZE          STORE MEMORY SIZE

        2*  00 00059    2111FFFF A            CI,1     X'1FFFF'          LOADER BIAS MAXIMUM             *H01
        3*  00 0005A    6820005C A            BLE      %+2                AT 128K-256                    *H01
        4*  00 0005B    2211FFFF A            LI,1     X'1FFFF'                                          *H01

      226   00 0005C    201FFE01 A            AI,1     -511              DETERMIN LOADER BIAS
      227   00 0005D    4B1000E8 A            AND,1    MIN2              INSURE EVEN WORD ADDRESS
      228   00 0005E    35100083 A            STW,1    LOADERBIAS

      230   00 0005F    6C000000 A            RD,0     0                 READ SENSE SWITCHES
      231   00 00060    69100068 A            BCS,1    FETCH              SKIP IF KEYBOARD BIAS          *G02
      232   00 00061    68000086 A            B        MOVELOADER          REQUESTED, ELSE CONTINUE      *G02
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   10
A     234                                     BOUND  8
      235   00 00062    00000000 A   MEMSIZE  DATA     0,0,%+2,0
            00 00063    00000000 A
            00 00064    00000066 A
            00 00065    00000000 A
      236   00 00066    201FF000 A            AI,1     -X'1000'          SUBTRACT IN 4K INCREMENTS
      237   00 00067    68000057 A            B        AGAIN             BRANCH BACK TO STW

      239   00 00068    7200007A A   FETCH    LB,0     MESS0             FETCH LENGTH OF MESSAGE         *G00
      240   00 00069    22100003 A            LI,1     3                                                 *G00
      241   00 0006A    75020079 A            STB,0    MESS1+1,1          AND SAVE IN IOCD               *G00

      243   00 0006B    2200003C A            LI,0     DA(MESS1)         POINT TO CHANNEL PROGRAM        *G00
      244   00 0006C    6AF000D7 A            BAL,15   OUTPUT            WITH THE TELETYPE
      245   00 0006D    2200007D A            LI,0     DA(RELOC)         IT ASKES FOR LOADER BIAS IN HEX
      246   00 0006E    6AF000DE A            BAL,15   OUTIN             IT ASKS FOR OBJECT PROGRAM
      247   00 0006F    6AF000BB A            BAL,15   CONVERT           BIAS IN HEX
      248   00 00070    31500083 A            CW,5     LOADERBIAS        IT ASKS FOR ALTERNATE INPUT
      249   00 00071    68200073 A            BLE      %+2               DEVICE ADDRESS OF OBJECT
      250   00 00072    68000068 A            B        FETCH             PROGRAM.
      251   00 00073    4B5000E8 A            AND,5    MIN2              INSURE EVEN ADDRESS
      252   00 00074    68300086 A            BEZ      MOVELOADER       ALL BIASES ON A DOUBLE WORD
      253   00 00075    35500083 A            STW,5    LOADERBIAS        WORD BOUNDRY.
      254   00 00076    68000086 A            B        MOVELOADER
      255                            *
      256   00 00077    31415926 A   PI       DATA     X'31415926'  VALUE OF 'PI' (FOR COMPARISON)

      258                                     BOUND    8                                                 *G00
      259   00 00078    050001E9 A   MESS1    GEN,8,24 X'05',BA(MESS0)+1                                 *G00
      260   00 00079    0A000000 A            GEN,8,24 X'0A',0                                           *G00

      262   00 0007A    2115D9C5 A   MESS0    TEXTC    CR,'RELOCATION BIAS OF LOADER (HEX):'             *G00
            00 0007B    D3D6C3C1 A
            00 0007C    E3C9D6D5 A
            00 0007D    40C2C9C1 A
            00 0007E    E240D6C6 A
            00 0007F    40D3D6C1 A
            00 00080    C4C5D940 A
            00 00081    4DC8C5E7 A
            00 00082    5D7A4040 A
      263   00 00083    00000000 A   LOADERBIAS DATA   0
      264   00 00084    00000000 A   INPUTDEV DATA     0
      265   00 00085    00000000 A   PROGBIAS  DATA   0
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   11
A     267         00 00086           MOVELOADER EQU %                                                    *G00
      268   00 00086    227FFE0F A            LI,7     -(ENDPROG-SCNT+1) NUMBER OF WORDS TO MOVE         *G00
      269   00 00087    32100083 A            LW,1     LOADERBIAS
      270   00 00088    22200000 A            LI,2     0
      271   00 00089    32AE02EF A            LW,10    ENDALL,7          PICKUP WORD OF LOADER           *G00
      272   00 0008A    B5A40001 A            STW,10   *1,2               AND MOVE IT TO FINAL LOCATION  *G00
      273   00 0008B    20200001 A            AI,2     1
      274   00 0008C    65700089 A            BIR,7    %-3

      276   00 0008D    32820008 A            LW,8     L1,X              SET LOADER BIAS
      277   00 0008E    30800001 A            AW,8     X
      278   00 0008F    35820008 A            STW,8    L1,X
      279   00 00090    32600001 A            LW,6     X
      280   00 00091    30600006 A            AW,6     6
      281   00 00092    30600006 A            AW,6     6
      282   00 00093    75DC0002 A            STB,13   SCNT+2,6

      284   00 00094    32600001 A            LW,6     X
      285   00 00095    3562000C A            STW,6    PROTECT,X
      286   00 00096    206FFE00 A            AI,6     -X'200'           LOAD BUFFER UNDER LOADER
      287   00 00097    35620007 A            STW,6    ADDR+2,X
      288   00 00098    32800084 A            LW,8     INPUTDEV
      289   00 00099    35820005 A            STW,8    ADDR,X
      290   00 0009A    326000EC A            LW,6     CORESIZE
      291   00 0009B    35620006 A            STW,6    ADDR+1,X

      293   00 0009C    22B00000 A            LI,11    0                 CLEAR RETURN ADDRESS FLAG       *G00
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   12
A     295   00 0009D    3262001A A            LW,6     SEEKIOCD,X        COMPUTE                         *A01
      296   00 0009E    30600001 A            AW,6     X                   SEEK                          *A01
      297   00 0009F    30600006 A            AW,6     6                     BUFFER                      *A01
      298   00 000A0    30600006 A            AW,6     6                       ADDRESS                   *A01
      299   00 000A1    22000003 A            LI,0     3                 MERGE                           *A01
      300   00 000A2    75000006 A            STB,0    6                   ORDER CODE                    *A01
      301   00 000A3    3562001A A            STW,6    SEEKIOCD,X        SAVE IOCD1                      *A01

      303   00 000A4    32020019 A            LW,0     SEEKCDA,X                                         *A01
      304   00 000A5    30000001 A            AW,0     X                                                 *A01
      305   00 000A6    226FFFE2 A            LI,6     -30               COMPUTE                         *A01
      306   00 000A7    30000000 A            AW,0     0                  SEEK                           *A01
      307   00 000A8    681000AA A            BCR,1    %+2                 IOCD                          *A01
      308   00 000A9    300201EA A            AW,0     SHIFTMSK,X            DW                          *A01
      309   00 000AA    656000A7 A            BIR,6    %-3                     ADDR                      *A01
      310   00 000AB    35020019 A            STW,0    SEEKCDA,X                                         *A01

      312   00 000AC    326000EB A            LW,6     TTYDEVNO
      313   00 000AD    3562000E A            STW,6    TYADDR,X

      315   00 000AE    32000085 A            LW,0     PROGBIAS
      316   00 000AF    22200000 A            LI,2     0
      317   00 000B0    323000B5 A            LW,3     CLR+1
      318   00 000B1    324000B6 A            LW,4     CLR+2
      319   00 000B2    325000B7 A            LW,5     CLR+3
      320   00 000B3    326000B8 A            LW,6     CLR+4
      321   00 000B4    68000004 A   CLR      B        4                 CLEAR LOWER CORE

      323   00 000B5    000003E0 A            DATA     X'3E0'
      324   00 000B6    3526001F A            STW,2    X'1F',3
      325   00 000B7    64300004 A            BDR,3    4
      326   00 000B8    68020008 A            B        8,1
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   13
A     328   00 000B9    20FFFFFB A   CONV03   AI,15    -5                ERROR RETURN
      329   00 000BA    E800000F A            B        *15

      331   00 000BB    22500000 A   CONVERT  LI,5     0
      332   00 000BC    22800015 A            LI,8     X'15'  NEW LINE CHARACTER
      333   00 000BD    22900008 A            LI,9     X'08'  END OF MSG.CHARACTER
      334   00 000BE    224FFFF8 A            LI,4     -8

      336   00 000BF    718800FE A   TERMCK   CB,8     INPUTBUF+2,4
      337   00 000C0    683000C5 A            BE       CONV01
      338   00 000C1    719800FE A            CB,9     INPUTBUF+2,4
      339   00 000C2    683000B9 A            BE       CONV03
      340   00 000C3    654000BF A            BIR,4   TERMCK
      341   00 000C4    680000B9 A            B        CONV03

      343   00 000C5    214FFFF8 A   CONV01   CI,4     -8
      344   00 000C6    E830000F A            BE       *15
      345   00 000C7    224FFFF8 A            LI,4     -8

      347   00 000C8    728800FE A   CONV04   LB,8     INPUTBUF+2,4
      348   00 000C9    21800015 A            CI,8     X'15'
      349   00 000CA    E830000F A            BE       *15
      350   00 000CB    226FFFFC A            LI,6     -4
      351   00 000CC    30500005 A            AW,5     5
      352   00 000CD    656000CC A            BIR,6    %-1
      353   00 000CE    22700011 A            LI,7     TABSIZE
      354   00 000CF    718E00F0 A            CB,8     TABADDR,7
      355   00 000D0    683000D3 A            BE       CONV05
      356   00 000D1    647000CF A            BDR,7    %-2
      357   00 000D2    680000B9 A            B        CONV03

      359   00 000D3    728E00F5 A   CONV05   LB,8     DEFADDR,7
      360   00 000D4    30500008 A            AW,5     8
      361   00 000D5    654000C8 A            BIR,4    CONV04
      362   00 000D6    680000B9 A            B        CONV03
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   14
A     364   00 000D7    322000EB A   OUTPUT   LW,2     TTYDEVNO
      365   00 000D8    CD000002 A            TIO,0    *2
      366   00 000D9    688000DE A            BCR,8    OUTIN             SKIP IF RECOGNITION             *G00
      367   00 000DA    320000EB A            LW,0    TTYDEVNO
      368   00 000DB    2E000000 A            WAIT                       INPUT DEVICE NO INTO REG. 2

      370   00 000DC    350000EB A   WAIT1    STW,0    TTYDEVNO
      371   00 000DD    680000D7 A            B        OUTPUT

      373   00 000DE    22900008 A   OUTIN    LI,9     X'08'  END OF MSG.CHARACTER
      374   00 000DF    759000FC A            STB,9    INPUTBUF
      375   00 000E0    322000EB A            LW,2     TTYDEVNO
      376   00 000E1    CF000002 A            HIO,0    *2           HALT DEVICE.
      377   00 000E2    CC000002 A            SIO,0    *2
      378   00 000E3    22702328 A            LI,7     9000         SET DELAY TIME
      379   00 000E4    647000E4 A            BDR,7    %            DELAY ........
      380   00 000E5    CD000002 A            TIO,0    *2
      381   00 000E6    69C000E3 A            BCS,12   %-3
      382   00 000E7    E800000F A            B        *15

      384   00 000E8    FFFFFFFE A   MIN2     DATA     -2
      385   00 000E9    00000000 A   CONFLG   DATA     0
      386   00 000EA    22000000 A   TIOMASK  DATA     X'22000000'
      387   00 000EB    00000001 A   TTYDEVNO DATA     1
      388   00 000EC    00000000 A   CORESIZE DATA     0
      389   00 000ED    00000080 A   :X80     DATA     X'80'
      390   00 000EE    00800000 A   DEVMASK  DATA     X'00800000'
      391   00 000EF    00000000 A   DEVTYPE  DATA     0
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   15
A     393         00 000F0           YY       EQU      BA(%%)
      394                            TABADDR  DATA,1   X'15',X'F0',X'F1',X'F2',X'F3',X'F4',X'F5',;
      395                                              X'F6',X'F7',X'F8',X'F9',X'C1',X'C2',X'C3',;
      396   00 000F0    15       A                     X'C4',X'C5',X'C6'
            00 000F0 1  F0       A
            00 000F0 2  F1       A
            00 000F0 3  F2       A
            00 000F1    F3       A
            00 000F1 1  F4       A
            00 000F1 2  F5       A
            00 000F1 3  F6       A
            00 000F2    F7       A
            00 000F2 1  F8       A
            00 000F2 2  F9       A
            00 000F2 3  C1       A
            00 000F3    C2       A
            00 000F3 1  C3       A
            00 000F3 2  C4       A
            00 000F3 3  C5       A
            00 000F4    C6       A
      397         00 000F4 1         XX       EQU      BA(%%)
      398         00000011           TABSIZE  EQU      XX-YY

      400                                     BOUND    4                                                 *G02
      401   00 000F5    00       A   DEFADDR  DATA,1   0,0,1,2,3,4,5,6,7,8,9,X'A',X'B',X'C',X'D',X'E'
            00 000F5 1  00       A
            00 000F5 2  01       A
            00 000F5 3  02       A
            00 000F6    03       A
            00 000F6 1  04       A
            00 000F6 2  05       A
            00 000F6 3  06       A
            00 000F7    07       A
            00 000F7 1  08       A
            00 000F7 2  09       A
            00 000F7 3  0A       A
            00 000F8    0B       A
            00 000F8 1  0C       A
            00 000F8 2  0D       A
            00 000F8 3  0E       A
      402   00 000F9    0F       A            DATA,1   X'F'

      404                                     BOUND    8                                                 *G00
      405   00 000FA    860003F0 A   RELOC   GEN,8,24,8,24 X'86',BA(INPUTBUF),X'A',8
                        0A000008
      406   00 000FC    00000000 A   INPUTBUF DATA   0,0
            00 000FD    00000000 A
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   16
A     408   00 00000                          LOC      0                                                 *G00
            00 000FE
      409         00 000FE           SCNTO:   EQU      %%                                                *G00
      410   00 00000    0100000A A   SCNT     GEN,8,24 1,TABLE
      411   00 00001    00000107 A            DATA     ROC6-SCNT         REL. ADDR. OF I/O RETURN LOCATION
      412   00 00002    02000000 A            DATA     X'02000000'       IOCD ORDER = 02/06
      413   00 00003    000007F8 A            DATA     2040
      414   00 00004    000000F7 A            DATA     ROC0-SCNT         RELATIVE ADDR. OF SIO INSTRUCTION
      415   00 00005    00000000 A   ADDR     DATA     0                 INPUT DEVICE ADDRESS
      416   00 00006    00000000 A            DATA     0                 LAST MEMORY ADDRESS STORAGE
      417   00 00007    00000000 A            DATA     0                 BUFFER ADDRESS STORAGE
      418   00 00008    22100000 A   L1       LI,1     0                 LOAD LOADER RELOCATION INDEX (1)
      419   00 00009    6802001E A            B        L1START,X
      420   00 0000A    00000000 A   TABLE    DATA     0                 MT LIBRARY FLAG, 0 = LOADED    *MT1
      421                            *                                   FROM CARDS; NOT 0 = MT LINK
      422                            *                                   TABLE ADDRESS.
      423   00 0000B    000001F0 A   ENDPRG   DATA     ENDPROG      LAST LOCATION OF PROGRAM.
      424   00 0000C    00000000 A   PROTECT  DATA     0
      425   00 0000D    00000000 A   REMCODE  DATA     0            REMOTE ENVIRONMENT SAVE LOCATION
      426   00 0000E    00000000 A   TYADDR   DATA     0             STARTS FROM HERE.
      427   00 0000F    00000000 A   COCDEV   DATA     0              FROM REMCODE-PSENSE
      428   00 00010    00000000 A   DIODEV   DATA     0
      429   00 00011    00000000 A   COCSTATE DATA     0
      430   00 00012    00000000 A   COCLINE  DATA     0
      431   00 00013    00000000 A   PSENSE   DATA     0
      432   00 00014    0000002D A   LA       DATA     L1A
      433   00 00015    0000002E A   LC       DATA     L1C

      435   00 00016    EE7F0000 A   DEV:MSK  DATA     X'EE7F0000'                                       *A01
      436   00 00017    00000000 A   SEEKADR  DATA     0                                                 *A01
      437   00 00018    00000000 A   SEEKINCR DATA     0                                                 *A01
      438   00 00019    0000001A A   SEEKCDA  DATA     SEEKIOCD                                          *A01
      439   00 0001A    03000017 A   SEEKIOCD GEN,8,24,8,24  X'03',SEEKADR,0,4                           *A01
                        00000004
      440   00 0001C    8EFFFFFF A   SEEK:MSK DATA     X'8EFFFFFF'                                       *A01
      441                            *
      442   00 0001D    68020158 A   SEEKBR   B        SEEK,X                                            *A01
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   17
A     444   00 0001E    35020096 A   L1START  STW,0    BIAS,X            SAVE PROGRAM RELOCATION BIAS (0)
      445   00 0001F    33020018 A            MTW,0    SEEKINCR,X                                        *A01
      446   00 00020    68320022 A            BEZ      %+2,X                                             *A01
      447   00 00021    6AF2001D A            BAL,15   SEEKBR,X                                          *A01
      448   00 00022    32620007 A            LW,6     ADDR+2,X
      449   00 00023    356201DF A            STW,6    SIOCD,X
      450   00 00024    3262000C A            LW,6     PROTECT,X
      451   00 00025    30600006 A            AW,6     6
      452   00 00026    30600006 A            AW,6     6
      453   00 00027    356201B4 A            STW,6    BA:PROTECT,X
      454   00 00028    22600000 A            LI,6     0                 ZERO BYTE INDEX REGS. (6) (7)
      455   00 00029    356201E0 A            STW,6    BYTCNT,X
      456   00 0002A    22700000 A            LI,7     0
      457   00 0002B    22C00000 A            LI,12    0                 ZERO START ADDR (12),SEQ NO. (13)
      458   00 0002C    22D00000 A            LI,13    0
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   18
A     460   00 0002D    6AF200D6 A   L1A      BAL,15   FOB,X             FETCH ONE BYTE
      461   00 0002E    02000000 A   L1C      NOP
      462   00 0002F    21000000 A            CI,0     0                 PADDING.
      463   00 00030    6832002D A            BCR,3    L1A,X
      464   00 00031    21000004 A            CI,0     4                 ORIGIN
      465   00 00032    68320097 A            BCR,3    L3,X
      466   00 00033    2100000D A            CI,0     13                START
      467   00 00034    683200A2 A            BCR,3    L5,X
      468   00 00035    2100000E A            CI,0     14                MODULE END
      469   00 00036    683200AE A            BCR,3    L6,X
      470   00 00037    2100000C A            CI,0     12                CONTROL SECTION DECLARATION
      471   00 00038    6832006D A            BCR,3    L10,X
      472   00 00039    21000007 A            CI,0     7                 DEFINE FIELD VALUE
      473   00 0003A    683200D2 A            BCR,3    L7A,X
      474   00 0003B    2100000F A            CI,0     15                REPEAT LOAD                     *A02
      475   00 0003C    68320071 A            BE       L10B,X                                            *A02
      476   00 0003D    32200000 A            LW,2     0
      477   00 0003E    4B2201E6 A            AND,2    MINXF,X
      478   00 0003F    21200040 A            CI,2     X'40'             LOAD ABSOLUTE
      479   00 00040    683200C7 A            BCR,3    L7,X
      480   00 00041    32E20096 A            LW,14    BIAS,X
      481   00 00042    21200080 A   L1B      CI,2     X'80'             LOAD RELOCATABLE (SHORT FORM)
      482   00 00043    6942005B A            BCS,4    L8,X
      483   00 00044    21200050 A            CI,2     X'50'
      484   00 00045    6832004B A            BE       L12A,X                                            *G02

      486   00 00046    32300000 A            LW,3     0                 SAVE FAILING ITEM               *G02

      488   00 00047    220001CB A   ERROR    LI,0     MESS7                                             *A02
      489   00 00048    6AF20192 A            BAL,15   PRINT,X
      490   00 00049    2E000049 A            WAIT     %
      491   00 0004A    6802004A A            B        %,X

      493                            * ERROR LOOP. CURRENT RECORD OF OBJECT PROGRAM CONTAINS A LOAD ITEM
      494                            * WHICH CANNOT BE PROCESSED BY LOADER. OBJECT PROGRAM CANNOT BE LOADED
      495                            * BY THIS LOADER.
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   19
A     497   00 0004B    32200000 A   L12A     LW,2     0                 FIND RELOCATION (LONG FORM)
      498   00 0004C    4B22011E A            AND,2    ROC2,X             FOR BYTE OR
      499   00 0004D    30E0000E A            AW,14    14                  HALF WORD OR
      500   00 0004E    30E0000E A            AW,14    14
      501   00 0004F    482201E7 A            EOR,2    MIN1,X
      502   00 00050    20200001 A            AI,2     1                    WORD OR
      503   00 00051    2230001F A            LI,3     31
      504   00 00052    30300002 A            AW,3     2
      505   00 00053    30E0000E A            AW,14    14
      506   00 00054    68120056 A            BCR,1    %+2,X
      507   00 00055    30E201EA A            AW,14    SHIFTMSK,X
      508   00 00056    64320053 A            BDR,3    %-3,X
      509   00 00057    4B0201DE A            AND,0    MASK,X            SKIP ONE
      510   00 00058    6932005A A            BCS,3    %+2,X              OR TWO
      511   00 00059    6AF200D6 A            BAL,15   FOB,X               BYTE REF
      512   00 0005A    6AF200D6 A            BAL,15   FOB,X                NUMBER
      513                            *
      514                            *        LOAD RELOCATABLE SHORT AND LONG FORM
      515                            *
      516   00 0005B    20400003 A   L8       AI,4     3
      517   00 0005C    314201B4 A            CW,4     BA:PROTECT,X
      518   00 0005D    6812005D A            BGE      %,X
      519   00 0005E    223FFFE3 A            LI,3     -29
      520   00 0005F    30400004 A            AW,4      4
      521   00 00060    68120062 A            BCR,1    %+2,X
      522   00 00061    304201EA A            AW,4     SHIFTMSK,X
      523   00 00062    6532005F A            BIR,3    %-3,X
      524   00 00063    223FFFFC A            LI,3     -4
      525   00 00064    6AF200D6 A   L81      BAL,15   FOB,X             FETCH
      526   00 00065    75060006 A            STB,0    6,3                FOUR
      527   00 00066    65320064 A            BIR,3    L81,X               BYTES
      528   00 00067    3050000E A            AW,5     14                ADD PROGRAM RELOCATION BIAS
      529   00 00068    35580000 A            STW,5    0,4                AND STORE DATA WORD
      530   00 00069    20400001 A            AI,4     1                 UPDATE PUTAWAY ADDRESS
      531   00 0006A    30400004 A            AW,4     4                  AND RE-ALIGN ADDRESS
      532   00 0006B    30400004 A            AW,4     4
      533   00 0006C    6802002D A            B        L1A,X
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   20
A     535                            *        DECLARE CONTROL SECTION
      536                            *
      537   00 0006D    6AF200D6 A   L10      BAL,15   FOB,X             SKIP
      538   00 0006E    6AF200D6 A            BAL,15   FOB,X              THREE
      539   00 0006F    6AF200D6 A            BAL,15   FOB,X               BYTES
      540   00 00070    6802002D A            B        L1A,X
      541                            *        REPEAT LOAD
      542                            *
      543                            *
      544                            *
      545   00 00071    6AF200D6 A   L10B     BAL,15   FOB,X                                             *A02
      546   00 00072    22500002 A            LI,5     2                                                 *A02
      547   00 00073    750A0000 A            STB,0    0,5                                               *A02
      548   00 00074    4B0201EB A            AND,0    REPEAT,X                                          *A02
      549   00 00075    350201B3 A            STW,0    REGSAVE1,X                                        *A02
      550   00 00076    6AF200D6 A            BAL,15   FOB,X
      551   00 00077    660201B3 A            AWM,0    REGSAVE1,X                                        *A02
      552   00 00078    6AF200D6 A            BAL,15   FOB,X                                             *A02
      553   00 00079    21000041 A            CI,0     X'41'                                             *A02
      554   00 0007A    69320047 A            BNE      ERROR,X                                           *A02
      555   00 0007B    6AF200D6 A            BAL,15   FOB,X                                             *A02
      556   00 0007C    325201B3 A            LW,5     REGSAVE1,X                                        *A02
      557   00 0007D    75080000 A            STB,0    0,4                                               *A02
      558   00 0007E    20400001 A            AI,4     1                                                 *A02
      559   00 0007F    6452007D A            BDR,5    %-2,X                                             *A02
      560   00 00080    6802002D A            B        L1A,X                                             *A02
      561                            *        EXPRESSION
      562                            *
      563   00 00081    22500000 A   EXPR     LI,5     0                 ZERO EXPRESSION ACCUMULATOR
      564   00 00082    6AF200D6 A   EXPR1    BAL,15   FOB,X             FETCH ONE BYTE
      565   00 00083    21000002 A            CI,0     2                 EXPRESSION END
      566   00 00084    E830000E A            BCR,3    *14
      567   00 00085    21000001 A            CI,0     1                 ADD CONSTANT
      568   00 00086    6932008C A            BCS,3    EXPR3,X
      569   00 00087    223FFFFC A   EXPR2    LI,3     -4
      570   00 00088    6AF200D6 A            BAL,15   FOB,X             FETCH
      571   00 00089    75060006 A            STB,0    6,3                FOUR
      572   00 0008A    65320088 A            BIR,3    EXPR2+1,X           BYTES
      573   00 0008B    68020082 A            B        EXPR1,X
      574   00 0008C    35020095 A   EXPR3    STW,0    EXRR,X            SAVE RESOLUTION KEY
      575   00 0008D    2100002F A            CI,0     X'2F'             BYPASS SKIP
      576   00 0008E    69220082 A            BCS,2    EXPR1,X            BYTE OPERATION
      577   00 0008F    21000004 A            CI,0     4                   OR SKIP ONE
      578   00 00090    68420092 A            BCR,4    %+2,X                OR TWO BYTES
      579   00 00091    6AF200D6 A            BAL,15   FOB,X
      580   00 00092    6AF200D6 A            BAL,15   FOB,X
      581   00 00093    68020082 A            B        EXPR1,X
      582   00 00094    1E1F2001 A   SHFTCNT  GEN,8,8,8,8  30,31,32,1  SHIFT COUNT CONSTANTS
      583   00 00095    00000000 A   EXRR     DATA     0                 TEMPORARY STORAGE
      584   00 00096    00000000 A   BIAS     DATA     0                 PROGRAM RELOCATION BIAS
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   21
A     586                            *        DEFINE LOAD COUNTER
      587                            *
      588   00 00097    6AE20081 A   L3       BAL,14   EXPR,X            FETCH EXPRESSION
      589   00 00098    32420096 A            LW,4     BIAS,X            BYTE ALIGN PROGRAM
      590   00 00099    30400004 A            AW,4     4                  RELOCATION BIAS
      591   00 0009A    30400004 A            AW,4     4
      592   00 0009B    30400005 A            AW,4     5                 ADD PROGRAM RELOCATION BIAS
      593   00 0009C    21400040 A            CI,4     64
      594   00 0009D    6812002D A            BCR,1    L1A,X
      595   00 0009E    220001CB A            LI,0     MESS7
      596   00 0009F    6AF20192 A            BAL,15   PRINT,X
      597   00 000A0    2E0000A0 A            WAIT     %                 LOADING INTO REGISTERS
      598   00 000A1    680200A1 A            B        %,X
      599                            *
      600                            *        DEFINE  START ADDRESS
      601                            *
      602   00 000A2    6AE20081 A   L5       BAL,14   EXPR,X            FETCH EXPRESSION
      603   00 000A3    32020094 A            LW,0     SHFTCNT,X         MAINTAIN SIGMET
      604   00 000A4    32320095 A            LW,3     EXRR,X             AND METASYMBOL
      605   00 000A5    4B32011E A            AND,3    ROC2,X              COMPATIBILITY
      606   00 000A6    72360000 A            LB,3     0,3               FORCE CORRECT
      607   00 000A7    30500005 A            AW,5     5                  ADDRESS RESOLUTION
      608   00 000A8    688200AA A            BCR,8    %+2,X
      609   00 000A9    20500001 A            AI,5     1
      610   00 000AA    643200A7 A            BDR,3    %-3,X
      611   00 000AB    30520096 A            AW,5     BIAS,X             ADD PROGRAM RELOCATION BIAS
      612   00 000AC    3550000C A            STW,5    12                STORE PROGRAM START ADDRESS (12)
      613   00 000AD    6802002D A            B        L1A,X
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   22
A     615                            *        MODULE END
      616                            *
      617   00 000AE    6AF200D6 A   L6       BAL,15   FOB,X             FETCH SEVERITY BYTE
      618   00 000AF    21000000 A            CI,0     0                 ISSUE A WARNING IF              *G00
      619   00 000B0    683200B4 A            BE       L6A,X              IF ERROR SEVERITY NOT 0        *G00
      620   00 000B1    220001D3 A            LI,0     MESS9                                             *G00
      621   00 000B2    6AF20192 A            BAL,15   PRINT,X                                           *G00
      622   00 000B3    2E000000 A            WAIT                                                       *G00

      624         00 000B4           L6A      EQU      %                                                 *G00
      625   00 000B4    32F2000A A            LW,15    TABLE,X           IS REWIND FLAG SET
      626   00 000B5    681200B7 A            BCR,1    %+2,X             BR. IF NOT SET
      627   00 000B6    6AF2013E A            BAL,15   REWIND,X          REWIND MAG TAPE LIBRARY.
      628   00 000B7    21B00000 A            CI,11    0                 LOADER CALLED AS
      629   00 000B8    E930000B A            BCS,3    *11                LOAD SUBROUTINE
      630   00 000B9    6C000000 A            RD,0     0                 TEST SENSE SWITCH 2
      631   00 000BA    684200BC A            BCR,4    %+2,X              FOR OPTION TO WAIT
      632   00 000BB    2E000000 A            WAIT                         PRIOR TO PROGRAM EXECUTION

      634                            * SUCCESS WAIT. OBJECT PROGRAM HAS BEEN LOADED AND SENSE SWITCH 2 IS SET
      635                            * SPECIFYING A WAIT BEFORE INITIATING EXECUTION OF PROGRAM JUST LOADED.
      636                            * RESET SENSE SWITCH 2 AND CLEAR WAIT TO PROCEED.

      638   00 000BC    21C00000 A            CI,12    0
      639   00 000BD    E930000C A            BNE      *12
        1*  00 000BE    220001B9 A            LI,0     MESS3                                             *H01
      641   00 000BF    6AF20192 A            BAL,15   PRINT,X
      642   00 000C0    2E000000 A            WAIT                       NO STARTING ADDRESS
      643   00 000C1    680200C1 A            B        %,X

      645                            * ERROR LOOP. PROGRAM SUCCESSFULLY LOADED BUT NO PROGRAM START ADDRESS
      646                            * SPECIFIED. REASSEMBLE PROGRAM OR MANUALLY START PROGRAM BY SETTING
      647                            * THE PROGRAM STARTING ADDRESS INTO THE PSW.

      649   00 000C2    E8300006 A            BE       *6
      650   00 000C3    220001CB A   HERROR   LI,0     MESS7
      651   00 000C4    6AF20192 A            BAL,15   PRINT,X
      652   00 000C5    2E0000C5 A            WAIT     %                 PATCH CARD ERROR
      653   00 000C6    680200C6 A            B        %,X
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   23
A     655                            *        LOAD ABSOLUTE
      656                            *
      657   00 000C7    4B02013D A   L7       AND,0    ROC5A,X           GET
      658   00 000C8    692200CA A            BCS,2    %+2,X              BYTE
      659   00 000C9    22000010 A            LI,0     16                  COUNT
      660   00 000CA    32300000 A            LW,3     0
      661   00 000CB    6AF200D6 A   L71      BAL,15   FOB,X             FETCH ONE BYTE
      662   00 000CC    314201B4 A            CW,4     BA:PROTECT,X
      663   00 000CD    681200CD A            BGE      %,X               LOADING OVER LOADER
      664   00 000CE    75080000 A            STB,0    0,4               STORE BYTE
      665   00 000CF    20400001 A            AI,4     1                  UPDATE BYTE ADDRESS
      666   00 000D0    643200CB A            BDR,3    L71,X             LOOP
      667   00 000D1    6802002D A            B        L1A,X
      668                            *
      669                            *        DEFINE FIELD VALUE
      670                            *
      671   00 000D2    6AF200D6 A   L7A      BAL,15   FOB,X             SKIP TWO
      672   00 000D3    6AF200D6 A            BAL,15   FOB,X              BYTES
      673   00 000D4    6AE20081 A            BAL,14   EXPR,X            SKIP EXPRESSION
      674   00 000D5    6802002D A            B        L1A,X
      675                            *
      676                            *        FETCH ONE BYTE SUBROUTINE
      677                            *
      678   00 000D6    35F201E5 A   FOB      STW,15   SAVRET,X          SAVE RETURN ADDRESS
      679   00 000D7    31700006 A            CW,7     6                 LAST BYTE
      680   00 000D8    69320139 A            BCS,3    ROC4A,X
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   24
A     682                            *        READ ONE RECORD SUBROUTINE
      683                            *
      684   00 000D9    320201E0 A   ROC      LW,0     BYTCNT,X          GET CURRENT BYTE COUNT
      685   00 000DA    683200E1 A            BCR,3    RDNBLOK,X         IF 0 READ NEXT RECORD
      686   00 000DB    20000078 A            AI,0     120
      687   00 000DC    350201E0 A            STW,0    BYTCNT,X          ADJUST BYTE COUNT
      688   00 000DD    320201DF A            LW,0     SIOCD,X           SET POINTER
      689   00 000DE    2000001E A            AI,0     30
      690   00 000DF    350201DF A            STW,0    SIOCD,X
      691   00 000E0    68020107 A            B        ROC6,X
      692   00 000E1    32620007 A   RDNBLOK  LW,6     ADDR+2,X          RESTORE SIOCD
      693   00 000E2    356201DF A            STW,6    SIOCD,X
      694   00 000E3    32620002 A            LW,6     SCNT+2,X          GENERATE
      695   00 000E4    4B6201E4 A            AND,6    IOCDFLG,X          THE CORRECT
      696   00 000E5    353201B1 A            STW,3    REGSAVE,X             *
      697   00 000E6    223FFFE3 A            LI,3     -29
      698   00 000E7    30600006 A            AW,6     6
      699   00 000E8    681200EA A            BCR,1    %+2,X
      700   00 000E9    306201EA A            AW,6     SHIFTMSK,X
      701   00 000EA    653200E7 A            BIR,3    %-3,X
      702   00 000EB    306201DF A            AW,6     SIOCD,X              FOR THE
      703   00 000EC    30600006 A            AW,6     6                     GIVEN
      704   00 000ED    30600006 A            AW,6     6
      705   00 000EE    35620002 A            STW,6    SCNT+2,X               BUFFER AREA
      706   00 000EF    32000001 A   RETRY    LW,0     1                 GET IOCD
      707   00 000F0    20000002 A            AI,0     2                  DOUBLEWORD
      708   00 000F1    223FFFE2 A            LI,3     -30
      709   00 000F2    30000000 A            AW,0     0
      710   00 000F3    681200F5 A            BCR,1    %+2,X
      711   00 000F4    300201EA A            AW,0     SHIFTMSK,X
      712   00 000F5    653200F2 A            BIR,3    %-3,X
      713   00 000F6    32820005 A            LW,8     ADDR,X            LOAD INPUT DEVICE ADDRESS
      714   00 000F7    CC000008 A   ROC0     SIO,0    *8                READ ONE RECORD
      715   00 000F8    68C200FA A            BCR,12   %+2,X             SIO ACCEPTED
      716   00 000F9    68020167 A            B        NTRDY,X           SIO NOT ACCEPTED
      717   00 000FA    2270000F A             LI,7      15             SET MAX DELAY
      718   00 000FB    CD300008 A            TIO,3    *8                 LOOP UNTIL
      719   00 000FC    69C200FE A            BCS,12   %+2,X             COMPLETE OR MAX DELAY TIME OUT
      720   00 000FD    68020101 A            B        %+4,X             DEVICE IS READY
      721   00 000FE    20700001 A            AI,7     1
      722   00 000FF    68320167 A            BEZ      NTRDY,X
      723   00 00100    680200FB A            B        %-5,X             LOOP ANOTHER TIME
      724   00 00101    31320016 A            CW,3     DEV:MSK,X   COMPARE ANY DEVICE ERROR
      725   00 00102    6942014C A            BCS,4    DERROR,X                                          *A01
      726   00 00103    4B3201E8 A            AND,3    BC,X                                              *A01
      727   00 00104    203FF880 A            AI,3     -1920
      728   00 00105    353201E0 A            STW,3    BYTCNT,X
      729   00 00106    323201B1 A            LW,3     REGSAVE,X
      730                            * ERROR LOOP.  INPUT DEVICE MALFUNCTIONED AND IS NOT IN READY AUTOMATIC
      731                            * MODE TO INPUT ANY RECORD OF OBJECT PROGRAM.  COMPLETELY REINITIATE
      732                            * LOAD OPERATION.
      733   00 00107    228FFFC8 A   ROC6     LI,8     X'FFFC8'
      734   00 00108    22700001 A            LI,7     1                  SET BYTE INDEX = 1
      735   00 00109    32F201DF A            LW,15    SIOCD,X             AND SET BUFFER INDEX
      736   00 0010A    F180000F A            CB,8     *15          IS IT PATCH (H)
      737   00 0010B    6832016C A            BE       H,X          BRANCH IF PATCH.
      738   00 0010C    F20E000F A            LB,0     *15,7             LOAD SEQ NO
      739   00 0010D    3100000D A            CW,0     13
      740   00 0010E    68320113 A            BE       ROC10,X           SEQUENCE ERROR
      741   00 0010F    220001C2 A            LI,0     MESS5
      742   00 00110    6AF20192 A            BAL,15   PRINT,X
      743   00 00111    2E000111 A            WAIT     %
      744   00 00112    680200D9 A            B        ROC,X             SEQUENCE ERROR
      745                            * ERROR LOOP.  RECORD SEQUENCE ERROR.  OBJECT PROGRAM RECORDS ARE NOT
      746                            * IN CORRECT NUMERICAL SEQUENCE BY BYTE 1 (COL NO. 1 ROWS 6-9 COL NO.2
      747                            * ROWS 12-1).  MANUALLY RE-SEQUENCE (IF POSSIBLE) OR OBTAIN NEW OBJECT
      748                            * PROGRAM.
      749   00 00113    F280000F A   ROC10    LB,8     *15               LOAD ID BYTE
        1*  00 00114    2180003C A            CI,8     X'3C'              AND CHECK VALIDITY             *H01
        2*  00 00115    6832011B A            BE       ROC11,X                                           *H01
        3*  00 00116    2180001C A            CI,8     X'1C'                                             *H01
        4*  00 00117    6832011B A            BE       ROC11,X                                           *H01

        6*  00 00118    220001B5 A            LI,0     MESS2             INVALID ID                      *H01
        7*  00 00119    6AF20192 A            BAL,15   PRINT,X            (CANNOT CONTINUE)              *H01
        8*  00 0011A    2E00011A A            WAIT     %                                                 *H01

       10*  00 0011B    30800000 A   ROC11    AW,8     0                 ADD ID TO CHECKSUM              *H01
      751   00 0011C    20700001 A            AI,7     1
      752   00 0011D    F20E000F A            LB,0     *15,7             LOAD CHECKSUM BYTE TO REGISTER 0
      753   00 0011E    22700003 A   ROC2     LI,7     3
      754   00 0011F    731E000D A            MTB,1    13,7              UPDATE SEQUENCE NUMBER

      755   00 00120    F26E000F A            LB,6     *15,7             LOAD REC LEN BYTE TO REGISTER 6
        1*  00 00121    21600005 A            CI,6     5                  AND CHECK FOR VALIDITY         *H01
        2*  00 00122    69120125 A            BL       ROC12,X                                           *H01
        3*  00 00123    2160006C A            CI,6     108                                               *H01
        4*  00 00124    68220128 A            BLE      ROC1,X                                            *H01

        6*  00 00125    220001D9 A   ROC12    LI,0     MESSA             INVALID SIZE                    *H01
        7*  00 00126    6AF20192 A            BAL,15   PRINT,X            (CANNOT CONTINUE)              *H01
        8*  00 00127    2E000127 A            WAIT     %                                                 *H01

      756   00 00128    210000FF A   ROC1     CI,0     255               BYPASS CHECK SUM
      757   00 00129    68320138 A            BCR,3    ROC4,X

      758   00 0012A    F2AE000F A   ROC3     LB,10    *15,7             COMPUTE
      759   00 0012B    3080000A A            AW,8     10                 RECORD
      760   00 0012C    4B820128 A            AND,8    ROC1,X              CHECK
      761   00 0012D    20700001 A            AI,7     1                    SUM
      762   00 0012E    31700006 A            CW,7     6
      763   00 0012F    6932012A A            BCS,3    ROC3,X            LOOP
      764   00 00130    31000008 A            CW,0     8
      765   00 00131    68320138 A            BCR,3    ROC4,X
      766   00 00132    220001BE A            LI,0     MESS4
      767   00 00133    6AF20192 A            BAL,15   PRINT,X
      768   00 00134    2E000000 A            WAIT
      769   00 00135    22700003 A            LI,7     3                 RESET SEQUENCE COUNT
      770   00 00136    73FE000D A            MTB,-1   13,7
      771   00 00137    680200D9 A            B        ROC,X
      772                            * ERROR LOOP.  RECORD CHECKSUM ERROR.  CURRENT PROGRAM RECORD
      773                            * CONTAINS A CHECKSUM ERROR.  COMPLETELY REINITIATE LOAD OPERATION.
      774                            * IF CHECKSUM REOCCURS, OBTAIN NEW OBJECT PROGRAM.
      775   00 00138    22700004 A   ROC4     LI,7     4
      776   00 00139    32F201DF A   ROC4A    LW,15    SIOCD,X           LOAD DATA BYTE
      777   00 0013A    F20E000F A            LB,0     *15,7              TO REGISTER ZERO
      778   00 0013B    20700001 A            AI,7     1
      779   00 0013C    32F201E5 A   ROC5     LW,15    SAVRET,X          RETURN
      780   00 0013D    E800000F A   ROC5A    B        *15
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   25
A     782   00 0013E    220001EC A   REWIND   LI,0     REWORD
      783   00 0013F    30000001 A            AW,0     X
      784   00 00140    222FFFE2 A            LI,2     -30               COMPUTE
      785   00 00141    30000000 A            AW,0     0                  COMMAND
      786   00 00142    68120144 A            BCR,1    %+2,X               DOUBLE
      787   00 00143    300201EA A            AW,0     SHIFTMSK,X           WORD
      788   00 00144    65220141 A            BIR,2    %-3,X                 FOR
      789   00 00145    32820005 A            LW,8     ADDR,X                 SIO OPER.
      790   00 00146    CC000008 A            SIO,0    *8
      791   00 00147    69C20146 A            BCS,12   %-1,X
      792   00 00148    3222000A A            LW,2     TABLE,X
      793   00 00149    4B2201B0 A            AND,2    RESETFLG,X
      794   00 0014A    3522000A A            STW,2    TABLE,X
      795   00 0014B    E800000F A            B        *15
      796                            *
      797   00 0014C    33020018 A   DERROR   MTW,0    SEEKINCR,X                                        *A01
      798   00 0014D    68320155 A            BEZ      DEVERROR,X        NOT A DISK                      *A01
      799   00 0014E    CE300008 A            TDV,3    *8                                                *A01
      800   00 0014F    4B3201E9 A            AND,3    UNAVAIL,X                                         *A01
      801   00 00150    68420155 A            BCR,4    DEVERROR,X        NOT SECTOR UNAVAIL              *A01
      802   00 00151    6AF20158 A            BAL,15   SEEK,X                                            *A01
      803   00 00152    32F20018 A            LW,15    SEEKINCR,X                                        *A01
      804   00 00153    66F20017 A            AWM,15   SEEKADR,X                                         *A01
      805   00 00154    680200EF A            B        RETRY,X           SEEK ERROR                      *A01
      806   00 00155    CF000008 A   DEVERROR HIO,0    *8          HALT DEVICE AND CLEAR IO
      807   00 00156    220001CF A            LI,0     MESS8              PRINT DEVICE ERROR MESSAGE     *G00
      808   00 00157    68020169 A            B        NTRDY+2,X   BRANCH TO PRINT AND WAIT
      809                            *
      810   00 00158    32020019 A   SEEK     LW,0     SEEKCDA,X                                         *A01
      811   00 00159    32820005 A            LW,8     ADDR,X                                            *A01
      812   00 0015A    CC000008 A            SIO,0    *8                                                *A01
      813   00 0015B    68C2015D A            BCR,12   %+2,X                                             *A01
      814   00 0015C    68020167 A            B        NTRDY,X           SIO NOT ACCEPTED                *A01
      815   00 0015D    2270000F A             LI,7      15
      816   00 0015E    CD300008 A            TIO,3    *8                                                *A01
      817   00 0015F    69C20161 A            BCS,12   %+2,X                                             *A01
      818   00 00160    68020164 A            B        %+4,X                                             *A01
      819   00 00161    20700001 A            AI,7     1                                                 *A01
      820   00 00162    68320167 A            BEZ      NTRDY,X                                           *A01
      821   00 00163    6802015E A            B        %-5,X                                             *A01
      822   00 00164    3132001C A            CW,3     SEEK:MSK,X                                        *A01
      823   00 00165    69420155 A            BCS,4    DEVERROR,X        SEEKERROR                       *A01
      824   00 00166    E800000F A            B        *15               EXIT                            *A01
      825   00 00167    CF000008 A   NTRDY    HIO,0    *8                HALT LAST SIO INSTR.
      826   00 00168    220001C6 A            LI,0     MESS6                                             *G00
      827   00 00169    6AF20192 A            BAL,15   PRINT,X           PRINT 'DEVICE NOT READY'
      828   00 0016A    2E00016A A            WAIT     %
      829   00 0016B    680200EF A            B        RETRY,X           TRY AGAIN
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   26
A     831                            * HEX. PATCH ROUTINE - SINGLE OR MULTIPLE CONTIGUOS LOCATIONS
      832                            *
      833   00 0016C    6A620172 A   H        BAL,6    HEX,X        FETCH HEX. ADDRESS
      834   00 0016D    3290000A A            LW,9     10           SAVE HEX ADDRESS IN 9
      835   00 0016E    6A620172 A   H02      BAL,6    HEX,X        FETCH HEX. PATCH
      836   00 0016F    B5A00009 A            STW,10   *9           SAVE PATCH ADDRESS.
      837   00 00170    20900001 A            AI,9     1             INCREMENT PATCH ADDRESS
      838   00 00171    6802016E A            B        H02,X          LOOP TILL ALL DONE
      839                            *
      840                            * EBCDIC TO HEX. DIGIT CONVERSION ROUTINE
      841                            *
      842   00 00172    22A00000 A   HEX      LI,10    0            CLEAR HEX DIGIT ACCUMULATOR
      843   00 00173    6A82018B A   HEX01    BAL,8    TST01,X      FETCH ONE BYTE
      844   00 00174    210000F9 A            CI,0     X'F9'        GREATER THAN 9
      845   00 00175    69220184 A            BCS,2    HEX04,X      YES, EXIT TO COMMA TEST.
      846   00 00176    210000EF A            CI,0     X'EF'         NO, LESS THAN 0
      847   00 00177    6922017D A            BCS,2    HEX02,X        BRANCH IF NO TO ACCUMULATOR
      848   00 00178    210000C6 A            CI,0     X'C6'        YES, GREATER THAN F
      849   00 00179    69220184 A            BCS,2    HEX04,X       YES, EXIT TO COMMA TEST
      850   00 0017A    210000C1 A            CI,0     X'C1'        NO, LESS THAN A
      851   00 0017B    69120184 A            BCS,1    HEX04,X       YES, EXIT TO COMMA TEST
      852   00 0017C    20000009 A            AI,0     9            NO. CONVERT TO HEX.
      853   00 0017D    4B02013D A   HEX02    AND,0    ROC5A,X      EXTRACT BINARY
      854   00 0017E    30A0000A A            AW,10    10
      855   00 0017F    30A0000A A            AW,10    10           RE-POSITION THE
      856   00 00180    30A0000A A            AW,10    10            ACCUMULATOR.
      857   00 00181    30A0000A A            AW,10    10              *
      858   00 00182    30A00000 A            AW,10    0               MERGE TO ACCUMULATOR
      859   00 00183    68020173 A            B        HEX01,X      CONTINUE CONVERSION
      860   00 00184    2100006B A   HEX04    CI,0     X'6B'        COMMA SEPARATOR.
      861   00 00185    69320185 A            BCS,3    %,X          NO,::**SYNTAX FORMAT ERROR**::
      862                            *
      863                            * ERROR LOOP. SYNTAX FORMAT ERROR ON CURRENT EBCDIC PATCH CARD.
      864                            * CHARACTER OTHER THAN A COMMA WAS ENCOUNTERED.
      865                            * CHANGE CARD AND RE-INITIATE LOAD OPERATION.
      866                            *
      867   00 00186    E8000006 A            B        *6           RETURN
      868   00 00187    00000000 A            DATA     0,0,0,0      PADDING
            00 00188    00000000 A
            00 00189    00000000 A
            00 0018A    00000000 A
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   27
A     870                            * LAST BYTE AND END OF TEXT TEST AND FETCH ONE BYTE ROUTINE
      871                            *
      872   00 0018B    20700001 A   TST01    AI,7     1            UPDATE BYTE INDEX
      873   00 0018C    21700048 A            CI,7     72           LAST BYTE
      874   00 0018D    683200C3 A            BE       HERROR,X     BRANCH IF EQUAL
      875                            *
      876                            * ERROR LOOP. SYNTAX FORMAT ERROR ON CURRENT EBCDIC PATCH CARD
      877                            * ENTIRE CARD (80 BYTES) WAS PROCESSED WITHOUT ENCOUNTERING
      878                            * END OF TEXT CHARACTER (9-7 PUNCHES).
      879                            * CHANGE CARD AND RE-INITIALIZE LOAD OPERATION.
      880                            *
      881   00 0018E    F20E000F A            LB,0     *15,7        LOAD 1 BYTE TO REGISTER ZERO
      882   00 0018F    21000037 A            CI,0     X'37'        IS IT END OF TEXT.
      883   00 00190    683200D9 A            BE       ROC,X        BRANCH IF YES. RETURN TO LOADER
      884   00 00191    E8000008 A            B        *8           BRANCH IF NO. RETURN TO CALLER.
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   28
A     886   00 00192    30000001 A   PRINT    AW,0     1                                                 *A01
      887   00 00193    30000000 A            AW,0     0                                                 *A01
      888   00 00194    30000000 A            AW,0     0                                                 *A01
      889   00 00195    32200000 A            LW,2     0                                                 *A01
      890   00 00196    72240000 A            LB,2     0,2               GET BYTE CNT                    *A01
      891   00 00197    20000001 A            AI,0     1                                                 *A01
      892   00 00198    300201E2 A            AW,0     X05,X                                             *A01
      893   00 00199    302201E3 A            AW,2     X0A,X                                             *A01
      894   00 0019A    350201EE A            STW,0    PIOCD,X                                           *A01
      895   00 0019B    20200001 A            AI,2     1                                                 *A01
      896   00 0019C    352201EF A            STW,2    PIOCD+1,X                                         *A01

      898   00 0019D    3222000E A   PRINT1   LW,2     TYADDR,X                                          *A01
      899   00 0019E    CD000002 A            TIO,0    *2
      900   00 0019F    688201A4 A            BCR,8    PRINT2,X          SKIP IF RECOGNITION             *G00

      902   00 001A0    3202000E A            LW,0     TYADDR,X
      903   00 001A1    2E0001A1 A            WAIT     %

      905   00 001A2    3502000E A   WAIT2    STW,0    TYADDR,X
      906   00 001A3    6802019D A            B        PRINT1,X                                          *A01

      908   00 001A4    220001EE A   PRINT2   LI,0     PIOCD
      909   00 001A5    30000001 A            AW,0     X
      910   00 001A6    222FFFE2 A            LI,2     -30               COMPUTE
      911   00 001A7    30000000 A            AW,0     0                  COMMAND
      912   00 001A8    681201AA A            BCR,1    %+2,X               DOUBLE
      913   00 001A9    300201EA A            AW,0     SHIFTMSK,X           WORD
      914   00 001AA    652201A7 A            BIR,2    %-3,X                 FOR

      916   00 001AB    3222000E A            LW,2     TYADDR,X
      917   00 001AC    CC000002 A            SIO,0    *2
      918   00 001AD    CD000002 A            TIO,0    *2
      919   00 001AE    69C201AD A            BCS,12   %-1,X
      920   00 001AF    E800000F A            B        *15

      922   00 001B0    7FFFFFFF A   RESETFLG DATA     X'7FFFFFFF'
      923   00 001B1    00000000 A   REGSAVE  DATA     0,0
            00 001B2    00000000 A
      924   00 001B3    00000000 A   REGSAVE1 DATA     0                                                 *A02
      925   00 001B4    00000000 A   BA:PROTECT DATA   0
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   29
A       1*  00 001B5    0F15C9D5 A   MESS2    TEXTC    CR,'INVALID ROM ID'                               *H01
            00 001B6    E5C1D3C9 A
            00 001B7    C440D9D6 A
            00 001B8    D440C9C4 A
        2*  00 001B9    1115D5D6 A   MESS3    TEXTC    CR,'NO START ADDRESS'                             *H01
            00 001BA    40E2E3C1 A
            00 001BB    D9E340C1 A
            00 001BC    C4C4D9C5 A
            00 001BD    E2E24040 A
      927   00 001BE    0F15C3C8 A   MESS4    TEXTC    CR,'CHECKSUM ERROR'                               *G00
            00 001BF    C5C3D2E2 A
            00 001C0    E4D440C5 A
            00 001C1    D9D9D6D9 A
      928   00 001C2    0F15E2C5 A   MESS5    TEXTC    CR,'SEQUENCE ERROR'                               *G00
            00 001C3    D8E4C5D5 A
            00 001C4    C3C540C5 A
            00 001C5    D9D9D6D9 A
      929   00 001C6    1115C4C5 A   MESS6    TEXTC    CR,'DEVICE NOT READY'                             *G00
            00 001C7    E5C9C3C5 A
            00 001C8    40D5D6E3 A
            00 001C9    40D9C5C1 A
            00 001CA    C4E84040 A
      930   00 001CB    0E15C2C1 A   MESS7    TEXTC    CR,'BAD LOAD ITEM'                                *G00
            00 001CC    C440D3D6 A
            00 001CD    C1C440C9 A
            00 001CE    E3C5D440 A
      931   00 001CF    0D15C4C5 A   MESS8    TEXTC    CR,'DEVICE ERROR'                                 *G00
            00 001D0    E5C9C3C5 A
            00 001D1    40C5D9D9 A
            00 001D2    D6D94040 A
      932   00 001D3    1515E2C5 A   MESS9    TEXTC    CR,'SEVERITY LEVEL NOT 0'                         *G00
            00 001D4    E5C5D9C9 A
            00 001D5    E3E840D3 A
            00 001D6    C5E5C5D3 A
            00 001D7    40D5D6E3 A
            00 001D8    40F04040 A
        1*  00 001D9    1115C9D5 A   MESSA    TEXTC    CR,'INVALID ROM SIZE'                             *H01
            00 001DA    E5C1D3C9 A
            00 001DB    C440D9D6 A
            00 001DC    D440E2C9 A
            00 001DD    E9C54040 A
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   30
A     934   00 001DE    00000008 A   MASK     DATA     X'8'
      935   00 001DF    00000000 A   SIOCD    DATA     0
      936   00 001E0    00000000 A   BYTCNT   DATA     0
      937   00 001E1    FFFF0000 A   NEGBC    DATA     X'FFFF0000'
      938   00 001E2    05000000 A   X05      DATA     X'05000000'                                       *A01
      939   00 001E3    0A000000 A   X0A      DATA     X'0A000000'                                       *A01
      940   00 001E4    FF000000 A   IOCDFLG  DATA     X'FF000000'
      941   00 001E5    00000000 A   SAVRET   DATA     0                 FOB RETURN ADDRESS STORAGE
      942   00 001E6    FFFFFFF0 A   MINXF    DATA     X'FFFFFFF0'
      943   00 001E7    FFFFFFFF A   MIN1     DATA     -1
      944   00 001E8    0000FFFF A   BC       DATA     X'0000FFFF'                                       *A01
      945   00 001E9    20000000 A   UNAVAIL  DATA     X'20000000'                                       *A01
      946   00 001EA    80000001 A   SHIFTMSK DATA     X'80000001'
      947   00 001EB    0000FF00 A   REPEAT   DATA     X'0000FF00'                                       *A02

      949                                     BOUND    8
      950   00 001EC    33000000 A   REWORD   GEN,8,24 X'33',0           REWIND ORDER                    *MT1
      951   00 001ED    0A000000 A            GEN,8,24 X'0A',0                                           *MT1
      952   00 001EE    00000000 A   PIOCD    DATA     0                                                 *A01
      953   00 001EF    00000000 A            DATA     0                                                 *A01

      955   00 001F0    00000000 A   ENDPROG  DATA     0                                                 *G00
      956         00 002EF           ENDALL   EQU      %%                                                *G00
      957                                     END

  CONTROL SECTION SUMMARY: 01 00000   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:55 JUN 20,'83    T-SERIES MTL LOADER 960-0011-H01                                      PAGE   31
A  ADDR             287/STW      289/STW      291/STW      415-DATA     448/LW       692/LW       713/LW
       789/LW       811/LW
   AGAIN            224-STW      237/B
   BA:PROTECT       453/STW      517/CW       662/CW       925-DATA
   BC               726/AND      944-DATA
   BEGIN          171.5-LI       174/STW      191/DO
   BIAS             444/STW      480/LW       584-DATA     589/LW       611/AW
   BOUND             12/OPEN      13-CNAME
   BYTCNT           455/STW      684/LW       687/STW      728/STW      936-DATA
   CARDS          171.2-SET    171.3/SET    171.3/SET    171.5/LI
   CARDX          171.3-SET    171.5/LI
   CATALOG            3-EQU        4/EQU
   CLR              317/LW       318/LW       319/LW       320/LW       321-B
   COCDEV           427-DATA
   COCLINE          430-DATA
   COCSTATE         429-DATA
   COMD             214-LI       219/BNEZ     221/B
   CONFLG           385-DATA
   CONVERT          247/BAL      331-LI
   CONV01           337/BE       343-CI
   CONV03           328-AI       339/BE       341/B        357/B        362/B
   CONV04           347-LB       361/BIR
   CONV05           355/BE       359-LB
   CORESIZE         225/STW      290/LW       388-DATA
   CR                10-EQU      262/TEXTC  926.1/TEXTC  926.2/TEXTC    927/TEXTC    928/TEXTC    929/TEXTC
       930/TEXTC    931/TEXTC    932/TEXTC  932.1/TEXTC
   DEFADDR          359/LB       401-DATA
   DERROR           725/BCS      797-MTW
   DEV:MSK          435-DATA     724/CW
   DEVERROR         798/BEZ      801/BCR      806-HIO      823/BCS
   DEVMASK          211/AND      390-DATA
   DEVTYPE          215/STW      391-DATA
   DIODEV           428-DATA
   ENDALL         171.2/SET      271/LW       956-EQU
   ENDCARD          190-EQU      191/DO
   ENDPRG           423-DATA
   ENDPROG          268/LI       423/DATA     955-DATA
   ERROR            488-LI       554/BNE
   EXPR             563-LI       588/BAL      602/BAL      673/BAL
   EXPR1            564-BAL      573/B        576/BCS      581/B
   EXPR2            569-LI       572/BIR
   EXPR3            568/BCS      574-STW
   EXRR             574/STW      583-DATA     604/LW
   FETCH            231/BCS      239-LB       250/B
   FOB              460/BAL      511/BAL      512/BAL      525/BAL      537/BAL      538/BAL      539/BAL
       545/BAL      550/BAL      552/BAL      555/BAL      564/BAL      570/BAL      579/BAL      580/BAL
       617/BAL      661/BAL      671/BAL      672/BAL      678-STW
   GO:ON            199/BNE      208-LI
   H                737/BE       833-BAL
   HERROR           650-LI       874/BE
   HEX              833/BAL      835/BAL      842-LI
   HEX01            843-BAL      859/B
   HEX02            847/BCS      853-AND
   HEX04            845/BCS      849/BCS      851/BCS      860-CI
   H02              835-BAL      838/B
   INPUTBUF         336/CB       338/CB       347/LB       374/STB      405/GEN      406-DATA
   INPUTDEV         210/STW      264-DATA     288/LW
   IOCD             176/LW       178/STW      179/LI       187-DATA
   IOCDFLG          695/AND      940-DATA
   LA               432-DATA
   LC               433-DATA
   LOADERBIAS       228/STW      248/CW       253/STW      263-DATA     269/LW
   L1               276/LW       278/STW      418-LI
   L1A              432/DATA     460-BAL      463/BCR      533/B        540/B        560/B        594/BCR
       613/B        667/B        674/B
   L1B              481-CI
   L1C              433/DATA     461-NOP
   L1START          419/B        444-STW
   L10              471/BCR      537-BAL
   L10B             475/BE       545-BAL
   L12A             484/BE       497-LW
   L3               465/BCR      588-BAL
   L5               467/BCR      602-BAL
   L6               469/BCR      617-BAL
   L6A              619/BE       624-EQU
   L7               479/BCR      657-AND
   L7A              473/BCR      671-BAL
   L71              661-BAL      666/BDR
   L8               482/BCS      516-AI
   L81              525-BAL      527/BIR
   MASK             509/AND      934-DATA
   MEMSIZE          196/XPSD     235-DATA
   MESSA          755.6/LI     932.1-TEXTC
   MESS0            239/LB       259/GEN      262-TEXTC
   MESS1            241/STB      243/LI       259-GEN
   MESS2          749.6/LI     926.1-TEXTC
   MESS3          639.1/LI     926.2-TEXTC
   MESS4            766/LI       927-TEXTC
   MESS5            741/LI       928-TEXTC
   MESS6            826/LI       929-TEXTC
   MESS7            488/LI       595/LI       650/LI       930-TEXTC
   MESS8            807/LI       931-TEXTC
   MESS9            620/LI       932-TEXTC
   MINXF            477/AND      942-DATA
   MIN1             501/EOR      943-DATA
   MIN2             227/AND      251/AND      384-DATA
   MOVELOADER       232/B        252/BEZ      254/B        267-EQU
   NEGBC            937-DATA
   NOP              173/LW       184-NOP
   NTRDY            716/B        722/BEZ      808/B        814/B        820/BEZ      825-HIO
   OUTIN            246/BAL      366/BCR      373-LI
   OUTPUT           244/BAL      364-LW       371/B
   PI               198/CW       256-DATA
   PIOCD            894/STW      896/STW      908/LI       952-DATA
   PRE:BCK          202-LW       206/BLE
   PRELEM           182/B        198-CW
   PRINT            489/BAL      596/BAL      621/BAL      641/BAL      651/BAL      742/BAL    749.7/BAL
     755.7/BAL      767/BAL      827/BAL      886-AW
   PRINT1           898-LW       906/B
   PRINT2           900/BCR      908-LI
   PROGBIAS         265-DATA     315/LW
   PROTECT          285/STW      424-DATA     450/LW
   PSENSE           431-DATA
   RDNBLOK          685/BCR      692-LW
   REGSAVE          696/STW      729/LW       923-DATA
   REGSAVE1         549/STW      551/AWM      556/LW       924-DATA
   RELOC            245/LI       405-GEN
   REMCODE          425-DATA
   REPEAT           548/AND      947-DATA
   RESETFLG         793/AND      922-DATA
   RETRY            706-LW       805/B        829/B
   REWIND           627/BAL      782-LI
   REWORD           782/LI       950-GEN
   ROC              684-LW       744/B        771/B        883/BE
   ROC0             414/DATA     714-SIO
   ROC1           755.4/BLE      756-CI       760/AND
   ROC10            740/BE       749-LB
   ROC11          749.2/BE     749.4/BE    749.10-AW
   ROC12          755.2/BL     755.6-LI
   ROC2             498/AND      605/AND      753-LI
   ROC3             758-LB       763/BCS
   ROC4             757/BCR      765/BCR      775-LI
   ROC4A            680/BCS      776-LW
   ROC5             779-LW
   ROC5A            657/AND      780-B        853/AND
   ROC6             411/DATA     691/B        733-LI
   S:PT               4/EQU
   S:UFV            100/EQU      101/EQU    171.2/SET
   SAVRET           678/STW      779/LW       941-DATA
   SCNT             268/LI       282/STB      410-GEN      411/DATA     414/DATA     694/LW       705/STW
   SCNTO:           203/STW      409-EQU
   SEEK             442/B        802/BAL      810-LW
   SEEK:MSK         440-DATA     822/CW
   SEEKADR          436-DATA     439/GEN      804/AWM
   SEEKBR           442-B        447/BAL
   SEEKCDA          303/LW       310/STW      438-DATA     810/LW
   SEEKINCR         437-DATA     445/MTW      797/MTW      803/LW
   SEEKIOCD         295/LW       301/STW      438/DATA     439-GEN
   SHFTCNT          582-GEN      603/LW
   SHIFTMSK         308/AW       507/AW       522/AW       700/AW       711/AW       787/AW       913/AW
       946-DATA
   SIOCD            449/STW      688/LW       690/STW      693/STW      702/AW       735/LW       776/LW
       935-DATA
   START            216/B      222.1-LI
   TABADDR          354/CB       394-DATA
   TABLE            410/GEN      420-DATA     625/LW       792/LW       794/STW
   TABSIZE          353/LI       398-EQU
   TERMCK           336-CB       340/BIR
   TIOMASK          386-DATA
   TITLE              4-EQU       23/TITLE
   TST01            843/BAL      872-AI
   TTYDEVNO         312/LW       364/LW       367/LW       370/STW      375/LW       387-DATA
   TYADDR           313/STW      426-DATA     898/LW       902/LW       905/STW      916/LW
   UNAVAIL          800/AND      945-DATA
   VAL1             100-EQU
   VAL2             101-EQU
   VERSION          1.1-EQU        4/EQU
   WAIT1            100/EQU      370-STW
   WAIT2            101/EQU      905-STW
   X                  9-EQU      276/LW       277/AW       278/STW      279/LW       284/LW       285/STW
       287/STW      289/STW      291/STW      295/LW       296/AW       301/STW      303/LW       304/AW
       308/AW       310/STW      313/STW      419/B        442/B        444/STW      445/MTW      446/BEZ
       447/BAL      448/LW       449/STW      450/LW       453/STW      455/STW      460/BAL      463/BCR
       465/BCR      467/BCR      469/BCR      471/BCR      473/BCR      475/BE       477/AND      479/BCR
       480/LW       482/BCS      484/BE       489/BAL      491/B        498/AND      501/EOR      506/BCR
       507/AW       508/BDR      509/AND      510/BCS      511/BAL      512/BAL      517/CW       518/BGE
       521/BCR      522/AW       523/BIR      525/BAL      527/BIR      533/B        537/BAL      538/BAL
       539/BAL      540/B        545/BAL      548/AND      549/STW      550/BAL      551/AWM      552/BAL
       554/BNE      555/BAL      556/LW       559/BDR      560/B        564/BAL      568/BCS      570/BAL
       572/BIR      573/B        574/STW      576/BCS      578/BCR      579/BAL      580/BAL      581/B
       588/BAL      589/LW       594/BCR      596/BAL      598/B        602/BAL      603/LW       604/LW
       605/AND      608/BCR      610/BDR      611/AW       613/B        617/BAL      619/BE       621/BAL
       625/LW       626/BCR      627/BAL      631/BCR      641/BAL      643/B        651/BAL      653/B
       657/AND      658/BCS      661/BAL      662/CW       663/BGE      666/BDR      667/B        671/BAL
       672/BAL      673/BAL      674/B        678/STW      680/BCS      684/LW       685/BCR      687/STW
       688/LW       690/STW      691/B        692/LW       693/STW      694/LW       695/AND      696/STW
       699/BCR      700/AW       701/BIR      702/AW       705/STW      710/BCR      711/AW       712/BIR
       713/LW       715/BCR      716/B        719/BCS      720/B        722/BEZ      723/B        724/CW
       725/BCS      726/AND      728/STW      729/LW       735/LW       737/BE       740/BE       742/BAL
       744/B      749.2/BE     749.4/BE     749.7/BAL    755.2/BL     755.4/BLE    755.7/BAL      757/BCR
       760/AND      763/BCS      765/BCR      767/BAL      771/B        776/LW       779/LW       783/AW
       786/BCR      787/AW       788/BIR      789/LW       791/BCS      792/LW       793/AND      794/STW
       797/MTW      798/BEZ      800/AND      801/BCR      802/BAL      803/LW       804/AWM      805/B
       808/B        810/LW       811/LW       813/BCR      814/B        817/BCS      818/B        820/BEZ
       821/B        822/CW       823/BCS      827/BAL      829/B        833/BAL      835/BAL      838/B
       843/BAL      845/BCS      847/BCS      849/BCS      851/BCS      853/AND      859/B        861/BCS
       874/BE       883/BE       892/AW       893/AW       894/STW      896/STW      898/LW       900/BCR
       902/LW       905/STW      906/B        909/AW       912/BCR      913/AW       914/BIR      916/LW
       919/BCS
   XX               397-EQU      398/EQU
   X0A              893/AW       939-DATA
   X05              892/AW       938-DATA
   YY               393-EQU      398/EQU
   :X80             218/AND      389-DATA
