User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:u6disc_lst

U6DISC

Table Of Contents
  • [00004] NON-SYST DISK CART INITIALIZATION
  • [00974] DISK READ/WRITE SUBROUTINE
u6disc.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:10 2020
 
Source File: \u6disc.asm 
NON-SYST DISK CART INITIALIZATION
 
                             2 | *************************************************** U6C00020
                             3 | *                                                 * U6C00030
                             4 | *STATUS - VERSION 2, MODIFICATION LEVEL 12        * U6C00040
                             5 | *   PROGRAM NAME- NON-SYSTEM DISK CARTRIDGE       * U6C00050
                             6 | *      INITIALIZATION                             * U6C00060
                             7 | *      CODE NAME- DISC                            * U6C00070
                             8 | *   FUNCTION/OPERATION-                           * U6C00080
                             9 | *      THIS PROGRAM INITIALIZES UP TO FOUR SATEL- * U6C00090
                            10 | *      LITE CARTRIDGES -- ALL BUT THE MASTER CAR- * U6C00100
                            11 | *      TRIDGE ON LOGICAL DRIVE 0.  IT WRITES THE  * U6C00110
                            12 | *      SECTOR ADDRESSES, DEFECTIVE CYLINDER AD-   * U6C00120
                            13 | *      DRESSES, CARTRIDGE ID, A LET, A DCOM, AND A* U6C00130
                            14 | *      CIB ON EACH CARTRIDGE INITIALIZED. THE     * U6C00140
                            15 | *      SYSUP SUBROUTINE IS CALLED TO UPDATE THE   * U6C00150
                            16 | *      MASTER CARTRIDGE WITH THE LABELS AND DCOM  * U6C00160
                            17 | *      INFORMATION FROM ALL SATELLITE CARTRIDGES  * U6C00170
                            18 | *      SUCCESSFULLY INITIALIZED BY DISC.          * U6C00180
                            19 | *   ENTRY POINTS-                                 * U6C00190
                            20 | *      DISC HAS ONLY ONE ENTRY POINT.  THE PROGRAM* U6C00200
                            21 | *      IS ENTERED AS FOLLOWS--                    * U6C00210
                            22 | *             // XEQ DISC                         * U6C00220
                            23 | *             *IDXXX1,YYY1,XXX2,YYY2,...,XXX4,YYY4* U6C00230
                            24 | *      WHERE XXXN IS THE CURRENT CARTRIDGE LABEL  * U6C00240
                            25 | *      AND YYYN IS THE DESIRED LABEL.             * U6C00250
                            26 | *   INPUT- AN *ID RECORD AS SPECIFIED UNDER ENTRY * U6C00260
                            27 | *      POINTS.                                    * U6C00270
                            28 | *   OUTPUT- A LIST OF CARTRIDGES ON THE SYSTEM AND* U6C00280
                            29 | *      THEIR LOGICAL AND PHYSICAL SEQUENCE AFTER  * U6C00290
                            30 | *      THE EXECUTION OF DISC IS PRINTED ON THE    * U6C00300
                            31 | *      PRINCIPAL PRINT DEVICE.  A SIGN-OFF MESSAGE* U6C00310
                            32 | *      IS ALSO PRINTED CONTAINING ONE LINE FOR    * U6C00320
                            33 | *      EACH PAIR OF FROM-TO CARTRIDGE LABELS AND  * U6C00330
                            34 | *      THE WORDS NOT DONE OR COMPLETE.  ANY ONE OF* U6C00340
                            35 | *      FOUR ERROR MESSAGES MAY ALSO BE PRINTED AS * U6C00350
                            36 | *      FOLLOWS--                                  * U6C00360
                            37 | *         CARTRIDGE XXXN IS DEFECTIVE             * U6C00370
                            38 | *         CARTRIDGE XXXN IS NOT AVAILABLE         * U6C00380
                            39 | *         CARTRIDGE XXXN INVALID...LOGICAL 0 ID   * U6C00390
                            40 | *         CARTRIDGE XXXN NEW LABEL IS INVALID     * U6C00400
                            41 | *   EXTERNAL REFERENCES-                          * U6C00410
                            42 | *      DZ000 -- ENTRY POINT FOR THE SYSTEM DISK   * U6C00420
                            43 | *               I/O SUBROUTINE.                   * U6C00430
                            44 | *      $PBSY -- PRINCIPAL PRINTER BUSY INDICATOR  * U6C00440
                            45 | *      $EXIT -- ADDRESS OF CALL EXIT ENTRY POINT  * U6C00450
                            46 | *      $DUMP -- ADDRESS OF CALL DUMP ENTRY POINT  * U6C00460
                            47 | *      $CYLN -- ARM POSITION FOR LOGICAL DRIVE 0  * U6C00470
                            48 | *      $ACDE -- AREA CODE FOR LOGICAL DRIVE 0     * U6C00480
                            49 | *      $DCYL -- 1ST DEF CYL ADDR, LOGICAL DRIVE 0 * U6C00490
                            50 | *      $DBSY -- DISK BUSY INDICATOR               * U6C00500
                            51 | *      $IBT2 -- ADDR OF IBT FOR LEVEL 2           * U6C00510
                            52 | *      $IREQ -- ADDR OF INTRPT REQUEST SUBROUTINE * U6C00520
                            53 | *      $I410 -- ILS04 ENTRY POINT                 * U6C00530
                            54 | *      $ZEND -- ADDR LAST WORD OF DISKZ +1        * U6C00540
                            55 | *      #ACIN -- AVAILABLE CARTRIDGES INDICATOR    * U6C00550
                            56 | *      #ANDU -- BLK ADDR END UA+1 (ADJ), LOG DR 0 * U6C00560
                            57 | *      #BNDU -- BLD ADDR END UA+1 (BASE), LOG DR 0* U6C00570
                            58 | *      #FPAD -- FILE PROTET ADDR (BASE), LOG DR 0 * U6C00580
                            59 | *      #PCID -- CARTRIDGE ID, PHYSICAL DRIVE 0    * U6C00590
                            60 | *      #CIDN -- CARTRIDGE ID, LOGICAL DRIVE 0     * U6C00600
                            61 | *      #CIBA -- ADDR OF CORE IMAGE BUFFER LOG DR 0* U6C00610
                            62 | *      #ULET -- ADDR OF LET, LOGICAL DRIVE 0      * U6C00620
                            63 | *   EXITS-                                        * U6C00630
                            64 | *      NORMAL-                                    * U6C00640
                            65 | *         BR TO CALL EXIT ENTRY POINT             * U6C00650
                            66 | *      ERROR-                                     * U6C00660
                            67 | *         NOT APPLICABLE                          * U6C00670
                            68 | *   TABLES/WORK AREAS-                            * U6C00680
                            69 | *      COMMA AND DCOM AS SHOWN UNDER EXTERNAL REF-* U6C00690
                            70 | *      ERENCES.                                   * U6C00700
                            71 | *   ATTRIBUTES-                                   * U6C00710
                            72 | *      NONE                                       * U6C00720
                            73 | *   NOTES-                                        * U6C00730
                            74 | *      PROGRAM REVISED IN MOD 2                  *  U6C00740
                            75 | *                                                 * U6C00750
                            76 | *************************************************** U6C00760
NON-SYST DISK CART INITIALIZATION
 
                            78 | *                                                   U6C00780
                            79 | *             RELATIVE DCOM LOCATION EQUATE STMNTS  U6C00790
                            80 | *                                                   U6C00800
001C                        81 | #ACIN EQU     28                                    U6C00810
0023                        82 | #ANDU EQU     35                                    U6C00820
0028                        83 | #BNDU EQU     40                                    U6C00830
002D                        84 | #FPAD EQU     45                                    U6C00840
0032                        85 | #PCID EQU     50                                    U6C00850
0037                        86 | #CIDN EQU     55                                    U6C00860
003C                        87 | #CIBA EQU     60                                    U6C00870
0050                        88 | #ULET EQU     80                                    U6C00880
0000                        89 | #IDAD EQU     /0000                            2-11 U6C00890
                            90 | *                                                   U6C00900
                            91 | *             RESIDENT MONITOR EQUATE STMNTS        U6C00910
                            92 | *                                                   U6C00920
0036                        93 | $PBSY EQU     /36                                   U6C00930
0038                        94 | $EXIT EQU     /38                                   U6C00940
003F                        95 | $DUMP EQU     /3F                                   U6C00950
009A                        96 | $CYLN EQU     /9A                                   U6C00960
009F                        97 | $ACDE EQU     /9F                                   U6C00970
00A4                        98 | $DCYL EQU     /A4                                   U6C00980
00EE                        99 | $DBSY EQU     /EE                                   U6C00990
00B9                       100 | $IBT2 EQU     /B9                                   U6C01000
000A                       101 | $LEV2 EQU     /A                               2-11 U6C01010
002C                       102 | $IREQ EQU     /2C                                   U6C01020
00D5                       103 | $I410 EQU     /D5                                   U6C01030
01E0                       104 | $ZEND EQU     /1E0                                  U6C01040
00F2                       105 | DZ000 EQU     /F2                                   U6C01050
00D0                       106 | CLDST EQU     /D0                                   U6C01060
                           107 | *                                                   U6C01070
                           108 | *             READ AN *ID RECORD, PRINT THE RECORD  U6C01080
                           109 | *             ON THE PRINCIPAL OUTPUT DEVICE, CON-  U6C01090
                           110 | *             VERT AND STORE RECORD INFORMATION IN  U6C01100
                           111 | *             A FROM-TO TABLE AND A PACKED EBC      U6C01110
                           112 | *             TABLE FOR OUTPUT OF SIGN-OFF MESSAGE. U6C01120
                           113 | *                                                   U6C01130
0000 C400 012BR            114 | IC000 LD   L  IC920     ADDR OF FROM-TO BUFFER      U6C01140
0002 1911*9143             115 |       CALL    RDREC     READ ID RECORD              U6C01150
0004 D400 012DR            116 |       STO  L  IC922     ADDR PRINCIPAL OUTPUT SUBR  U6C01160
                           117 | *                                              2-11 U6C01170
                           118 | *             GO BUILD AVAILABLE CART LIST     2-11 U6C01180
                           119 | *                                              2-11 U6C01190
0006 4400 0420R            120 |       BSI  L  IT200                            2-11 U6C01200
                           121 | *                                                   U6C01210
                           122 | *             READ DCOM FROM MASTER CARTRIDGE       U6C01220
                           123 | *                                                   U6C01230
0008 CC00 0118R            124 |       LDD  L  IC900     READ FUNC AND BUFFER ADDR   U6C01240
000A 4400 00F2             125 |       BSI  L  DZ000     READ DCOM                   U6C01250
                           126 | *                                                   U6C01260
                           127 | *             CHECK FOR DISK READ COMPLETE          U6C01270
                           128 | *                                                   U6C01280
000C 7400 00EE             129 | IC010 MDX  L  $DBSY,0   SKIP IF DISK NOT BUSY  2-11 U6C01290
000E 70FD                  130 |       MDX     IC010     LOOP ON BUSY           2-11 U6C01300
                           131 | *                                              2-11 U6C01310
                           132 | *                                                   U6C01320
                           133 | *             INITIALIZE                            U6C01330
                           134 | *                                                   U6C01340
                           135 | * ONE INSTRUCTION REMOVED                      2-11 U6C01350
000F 1010                  136 |       SLA     16        ZERO ACC               2-11 U6C01360
0010 9400 03B3R            137 |       S    L  IC980+1   NEGATE CART INITIALIZE CTR  U6C01370
0012 D030                  138 |       STO     IC065+1   SET UP SIGN-OFF LINE COUNT  U6C01380
0013 7401 03B3R            139 |       MDX  L  IC980+1,1  CART INIT COUNTER          U6C01390
0015 6100                  140 |       LDX   1 0         INIT FROM-TO TABLE POINTER  U6C01400
0016 6D00 0136R            141 |       STX  L1 IC931     FROM-TO TABLE POINTER       U6C01410
0018 C400 043CR            142 |       LD   L  IC992+2+#ACIN                         U6C01420
001A D400 013BR            143 |       STO  L  IC936     AVAILABLE CART INDR WORD    U6C01430
                           144 | *                                                   U6C01440
                           145 | *             SAVE $IREQ -POINT TO INTRPT REQUEST   U6C01450
                           146 | *                                                   U6C01460
001C C400 002C             147 |       LD   L  $IREQ                                 U6C01470
001E D400 0137R            148 |       STO  L  IC932     SAVE $IREQ                  U6C01480
0020 6600 01F6R            149 |       LDX  L2 IC380     ADDR OF KB ROUTINE          U6C01490
0022 6E00 002C             150 |       STX  L2 $IREQ     SET UP KEYBOARD REQUEST KEY U6C01500
                           151 | *                                                   U6C01510
                           152 | *             SAVE $IBT2 -POINT TO DIO ERROR SEQ    U6C01520
                           153 | *                                                   U6C01530
0024 C400 00B9             154 |       LD   L  $IBT2                                 U6C01540
0026 D400 0133R            155 |       STO  L  IC928     TEMPORARY                   U6C01550
0028 6600 04A0R            156 |       LDX  L2 DIO-3     DISK INTERRUPT ADDR         U6C01560
002A 6E00 00B9             157 |       STX  L2 $IBT2     SET UP INTERRUPT ADDRESS    U6C01570
                           158 | *                                               212 U6C01571
                           159 | *             SAVE $LEV2 - POINT TO $I200       212 U6C01572
                           160 | *                                               212 U6C01573
002C C400 000A             161 |       LD   L  $LEV2     SAVE $LEV2 TEMPORARILY  212 U6C01574
002E D400 013CR            162 |       STO  L  IC937                             212 U6C01575
0030 C400 013DR            163 |       LD   L  IC938     SET $LEV2 = $I200       212 U6C01576
0032 D400 000A             164 |       STO  L  $LEV2                             212 U6C01577
                           165 | *                                                   U6C01580
                           166 | *             TEST FOR LAST CARTRIDGE INITIALIZED   U6C01590
                           167 | *                                                   U6C01600
0034 74FF 03B3R            168 | IC050 MDX  L  IC980+1,-1  SKIP NEXT IF DONE         U6C01610
0036 7026                  169 |       MDX     IC200     BR TO PROCESS NEXT CART     U6C01620
                           170 | *                                                   U6C01630
                           171 | *             RESTORE LEVEL 2 INTERRUPT             U6C01640
                           172 | *                                                   U6C01650
0037 C400 0133R            173 | IC060 LD   L  IC928                                 U6C01660
0039 D400 00B9             174 |       STO  L  $IBT2                                 U6C01670
003B C400 013CR            175 |       LD   L  IC937                             212 U6C01673
003D D400 000A             176 |       STO  L  $LEV2                             212 U6C01676
                           177 | *                                                   U6C01680
                           178 | *             CALL SYSUP                            U6C01690
                           179 | *                                                   U6C01700
003F 22A2*2917             180 |       CALL    SYSUP                                 U6C01710
0041 0457R                 181 |       DC      IC992+2+#CIDN  CART ID TABLE          U6C01720
                           182 | *                                                   U6C01730
                           183 | *             PRINT SIGN-OFF MESSAGE                U6C01740
                           184 | *                                                   U6C01750
0042 6600 0000             185 | IC065 LDX  L2 *-*       SET UP LINE COUNT           U6C01760
0044 6700 03BDR            186 |       LDX  L3 IC980+11  ADDR OF FIRST LINE WD COUNT U6C01770
0046 6F00 0261R            187 | IC070 STX  L3 IC950+1                               U6C01780
0048 CC00 0260R            188 |       LDD  L  IC950     FUNC CODE AND WD CNT ADDR   U6C01790
004A 4480 012DR            189 |       BSI  I  IC922     BR TO PRINT ROUTINE         U6C01800
004C 7400 0036             190 |       MDX  L  $PBSY,0   SKIP IF PRNTR NOT BUSY 2-11 U6C01810
004E 70FD                  191 |       MDX     *-3       LOOP ON BUSY           2-11 U6C01820
                           192 | * ONE INSTRUCTION REMOVED                      2-11 U6C01830
004F 7310                  193 |       MDX   3 16        INCR TO NEXT LINE WD COUNT  U6C01840
0050 7201                  194 |       MDX   2 1         INCR LINE COUNT             U6C01850
0051 70F4                  195 |       MDX     IC070     BR TO PRINT ANOTHER LINE    U6C01860
                           196 | *                                                   U6C01870
                           197 | *             RESTORE INTERRUPT REQUEST ADDRESS     U6C01880
                           198 | *                                                   U6C01890
0052 C400 0137R            199 |       LD   L  IC932                                 U6C01900
0054 D400 002C             200 |       STO  L  $IREQ     POINT TO ILS ROUTINE        U6C01910
                           201 | *                                                   U6C01920
                           202 | *             EXIT TO MONITOR OR KEYBOARD REQUEST   U6C01930
                           203 | *                                                   U6C01940
0056 7400 01F6R            204 |       MDX  L  IC380,0   SKIP IF NO KEYBOARD REQUEST U6C01950
0058 7001                  205 |       MDX     IC100     BR IF KEYBOARD REQUEST      U6C01960
0059 6038                  206 |       EXIT              EXIT TO MONITOR        2-11 U6C01970
005A 4400 003F             207 | IC100 BSI  L  $DUMP     EXIT VIA KEYBOARD REQUEST   U6C01980
005C FFFE                  208 |       DC      -2                                    U6C01990
                           209 | *                                                   U6C02000
                           210 | *             ERROR IF LABEL IS MASTER CARTRIDGE    U6C02010
                           211 | *                                                   U6C02020
005D C500 03B4R            212 | IC200 LD   L1 IC980+2   CURRENT CART LABEL          U6C02030
005F 4C08 0092R            213 |       BSC  L  IC226,+   BR IF CUR ID INVALID   2-11 U6C02032
0061 9400 0457R            214 |       S    L  IC992+2+#CIDN                    2-11 U6C02034
0063 4C18 0077R            215 |       BSC  L  IC205,+-  BR IF MASTER CARTRIDGE 2-11 U6C02036
0065 C500 03B4R            216 |       LD   L1 IC980+2   LOAD CURRENT ID        2-11 U6C02038
0067 D00E                  217 |       STO     IC905     *AND SAVE FOR SEARCH   2-11 U6C02040
0068 63FB                  218 |       LDX   3 -5        INITIALIZE POINTER     2-11 U6C02042
0069 C700 045CR            219 | IC201 LD   L3 IC992+2+#CIDN+5  FETCH ID FROM   2-11 U6C02044
006B 900A                  220 |       S       IC905     *DCOM                  2-11 U6C02046
006C 4C18 007BR            221 |       BSC  L  IC208,+-  BR IF MATCH OCCURS     2-11 U6C02048
006E 7301                  222 |       MDX   3 1         INCRE POINTER-SKIP ON 02-11 U6C02050
006F 70F9                  223 |       MDX     IC201     BR TO CONTINUE         2-11 U6C02052
0070 C005                  224 |       LD      IC905     BR IF SEARCHING FOR AN 2-11 U6C02054
0071 4C18 0092R            225 |       BSC  L  IC226,+-  *AVAILABLE ENTRY       2-11 U6C02056
0073 1010                  226 |       SLA     16        SET ID TO ZERO AND GO  2-11 U6C02058
0074 D001                  227 |       STO     IC905     *SEARCH FOR AN EMPTY   2-11 U6C02060
0075 70F2                  228 |       MDX     IC201-1   *ENTRY IN DCOM         2-11 U6C02062
                           229 | *                                              2-11 U6C02064
0076 0000                  230 | IC905 DC      *-*       CURRENT ID SAVE AREA   2-11 U6C02066
                           231 | *                                              2-11 U6C02068
                           232 | *             PRINT ERROR MSG -INVALID-SYST CART ID U6C02070
                           233 | *                                                   U6C02080
0077 6700 0250R            234 | IC205 LDX  L3 IC943     SUB-MSG ADDR           2-11 U6C02090
0079 4400 0206R            235 |       BSI  L  IC400     BR TO PRINT                 U6C02100
                           236 | *                                                   U6C02110
                           237 | *             INITIALIZE SECTOR 0 - CARTRIDGE ID    U6C02120
                           238 | *                                                   U6C02130
007B C400 0120R            239 | IC208 LD   L  IC910     SET DM2 INITIALIZED    2-11 U6C02140
007D D400 0277R            240 |       STO  L  IC970+9   *STATUS WORD  (WORD 7 = -2) U6C02150
007F C500 03B5R            241 |       LD   L1 IC980+3                               U6C02160
0081 D400 0273R            242 |       STO  L  IC970+5   NEW CARTRIDGE LABEL         U6C02170
0083 4C30 0089R            243 |       BSC  L  IC220-1,-Z  INVALID LABEL IF NOT PLUS U6C02180
                           244 | *                                                   U6C02190
                           245 | *             PRINT ERROR MSG -NEW LABEL IS INVALID U6C02200
                           246 | *                                                   U6C02210
0085 6700 0254R            247 |       LDX  L3 IC944     SUB-MSG ADDRESS             U6C02220
0087 4400 0206R            248 |       BSI  L  IC400     BR TO PRINT                 U6C02230
                           249 | *                                                   U6C02240
                           250 | *             FIND PHYSICAL DRIVE NUMBER            U6C02250
                           251 | *                                                   U6C02260
0089 63F5                  252 |       LDX   3 -11       INITIALIZE POINTER     2-11 U6C02270
008A C700 048ER            253 | IC220 LD   L3 IT904+11  FETCH ID FROM ID LIST  2-11 U6C02280
008C 9500 03B4R            254 |       S    L1 IC980+2   CURRENT CART LABEL          U6C02290
008E 4C18 0097R            255 |       BSC  L  IC230,+-  BR IF LABEL FOUND           U6C02300
0090 7301                  256 | IC225 MDX   3 1         INCR POINTER- SKIP IF END   U6C02310
0091 70F8                  257 |       MDX     IC220                                 U6C02320
                           258 | *                                                   U6C02330
                           259 | *             PRINT ERROR MSG -IS NOT AVAILABLE     U6C02340
                           260 | *                                                   U6C02350
0092 6700 0245R            261 | IC226 LDX  L3 IC942     SUB-MSG ADDR           2-11 U6C02360
0094 4400 0206R            262 |       BSI  L  IC400     BR TO PRINT                 U6C02370
0096 7016                  263 |       MDX     IC236     BR TO CHK FOR ERROR         U6C02380
                           264 | *                                                   U6C02390
                           265 | *             CHECK DRIVE READY INDICATOR           U6C02400
                           266 | *                                                   U6C02410
0097 730B                  267 | IC230 MDX   3 11        CNVRT PNTR TO DR NO    2-11 U6C02420
0098 1000                  268 |       NOP               MAY SKIP                    U6C02430
0099 C400 013BR            269 |       LD   L  IC936     DRIVE READY INDR WORD       U6C02440
009B 1300                  270 |       SLA   3           SHIFT READY INDR INTO SIGN  U6C02450
009C 4810                  271 |       BSC     -         SKIP NEXT IF READY          U6C02460
009D 7005                  272 |       MDX     IC232     BR TO GET NEXT PCID ENTRY   U6C02470
                           273 | *                                                   U6C02480
                           274 | *             CHK FOR DRIVE PREVIOUSLY INITIALIZED  U6C02490
                           275 | *                                                   U6C02500
009E C400 013AR            276 |       LD   L  IC935     DRIVE INIT INDR             U6C02510
00A0 1300                  277 |       SLA   3           SHIFT TO SIGN               U6C02520
00A1 4C10 00A6R            278 |       BSC  L  IC234,-   BR IF DRIVE NOT INITIALIZED U6C02530
                           279 | *                                                   U6C02540
                           280 | *             RESTORE XR3 AND GET NEXT PCID ENTRY   U6C02550
                           281 | *                                                   U6C02560
00A3 73F5                  282 | IC232 MDX   3 -11       SET TO NEXT AVAIL ID   2-11 U6C02570
00A4 1000                  283 |       NOP               MAY SKIP                    U6C02580
00A5 70EA                  284 |       MDX     IC225     BR TO CONTINUE PCID SEARCH  U6C02590
                           285 | *                                                   U6C02600
                           286 | *             SET DRIVE INITIALIZED INDR BIT ON     U6C02610
                           287 | *                                                   U6C02620
00A6 C400 0122R            288 | IC234 LD   L  IC912     SIGN BIT                    U6C02630
00A8 1B00                  289 |       SRA   3           SHIFT TO RELATIVE DRIVE BIT U6C02640
00A9 EC00 013AR            290 |       OR   L  IC935     *(0-4) AND STORE AS DRIVE   U6C02650
00AB D400 013AR            291 |       STO  L  IC935     *INITIALIZED INDICATOR.     U6C02660
                           292 | *                                                   U6C02670
                           293 | *             GET NEXT CART ID IF ANY ERROR         U6C02680
                           294 | *                                                   U6C02690
00AD C400 0138R            295 | IC236 LD   L  IC933     ERROR INDR                  U6C02700
00AF 4C20 01E8R            296 |       BSC  L  IC370,Z   BR IF ANY ERROR             U6C02710
                           297 | *                                                   U6C02720
                           298 | *             SAVE PHYSICAL DRIVE NUMBER            U6C02730
                           299 | *                                                   U6C02740
00B1 6F00 0139R            300 |       STX  L3 IC934     PHYSICAL DRIVE INDEX VALUE  U6C02750
00B3 C400 0139R            301 |       LD   L  IC934                                 U6C02760
00B5 100C                  302 |       SLA     12        SHIFT TO DRIVE NO. POSITION U6C02770
00B6 D077                  303 |       STO     IC923     SAVE                        U6C02780
00B7 D400 054BR            304 |       STO  L  IC990+1                               U6C02790
                           305 | *                                                   U6C02800
                           306 | *             SEEK HOME CURRENT CARTRIDGE           U6C02810
                           307 | *                                                   U6C02820
00B9 4400 04A2R            308 |       BSI  L  DIO-1     CALL DISK ROUTINE           U6C02830
00BB 0300                  309 |       DC      /0300     SEEK HOME FUNCTION          U6C02840
00BC 054AR                 310 |       DC      IC990                                 U6C02850
                           311 | *                                                   U6C02860
                           312 | *             INITIALIZE DEFECTIVE CYLINDER TABLE   U6C02870
                           313 | *                                                   U6C02880
00BD 62FD                  314 |       LDX   2 -3        LOOP COUNT - 3 WORDS        U6C02890
00BE 6A70                  315 |       STX   2 IC924     INITIALIZE DEF CYL COUNT    U6C02900
00BF C063                  316 |       LD      IC913     INITIALIZE VALUE            U6C02910
00C0 D600 0273R            317 | IC210 STO  L2 IC970+2+3 DEF CYL TBL                 U6C02920
00C2 7201                  318 |       MDX   2 1         INCR COUNT                  U6C02930
00C3 70FC                  319 |       MDX     IC210     REPEAT                      U6C02940
                           320 | *                                                   U6C02950
                           321 | *             WRITE PATTERN TO ONE CARTRIDGE        U6C02960
                           322 | *                                                   U6C02970
00C4 6A6B                  323 |       STX   2 IC925     INITIALIZE SECTOR ADDRESS   U6C02980
00C5 63FA                  324 | IC235 LDX   3 -6        PATTERN INDEX VALUE         U6C02990
00C6 6A6D                  325 | IC240 STX   2 IC929     INIT RETRY COUNTER          U6C03000
00C7 C052                  326 |       LD      IC901     NEGATIVE VALUE              U6C03010
00C8 D069                  327 |       STO     IC927     INIT BAD CYLINDER INDR      U6C03020
                           328 | *                                                   U6C03030
                           329 | *             FILL BUFFER WITH PATTERN              U6C03040
                           330 | *                                                   U6C03050
00C9 6600 FEC0             331 |       LDX  L2 -320      BUFFER FILL COUNTER         U6C03060
00CB CF00 0120R            332 |       LDD  L3 IC901+6   PATTERN TO WRITE            U6C03070
00CD DE00 068CR            333 | IC245 STD  L2 IC990+322  FILL BUFFER WITH PATTERN   U6C03080
00CF 7202                  334 |       MDX   2 2         INCR COUNTER- SKIP IF ZERO  U6C03090
00D0 70FC                  335 |       MDX     IC245                                 U6C03100
                           336 | *                                                   U6C03110
                           337 | *             SET UP SECTOR ADDRESS                 U6C03120
                           338 | *                                                   U6C03130
00D1 C05E                  339 |       LD      IC925     SECTOR 0 ADDR FOR THIS CYL  U6C03140
00D2 E85B                  340 |       OR      IC923     DRIVE NO. FOR THIS CART     U6C03150
00D3 D05D                  341 |       STO     IC926     SCTR ADDR TEMP              U6C03160
                           342 | *                                                   U6C03170
                           343 | *             WRITE PATTERN TO EIGHT SECTORS        U6C03180
                           344 | *                                                   U6C03190
00D4 6208                  345 |       LDX   2 8         INIT SCTR WRITE COUNT       U6C03200
00D5 D400 054BR            346 | IC250 STO  L  IC990+1   BUFFER SCTR ADDR            U6C03210
00D7 4400 04A2R            347 |       BSI  L  DIO-1     CALL DISK ROUTINE           U6C03220
00D9 0200                  348 |       DC      /0200     WRITE FUNCTION              U6C03230
00DA 054AR                 349 |       DC      IC990     BUFFER WD CNT ADDR          U6C03240
00DB 4400 04A2R            350 |       BSI  L  DIO-1     TEST FOR BUSY               U6C03250
00DD 0000                  351 |       DC      /0000     SENSE FUNCTION CODE         U6C03260
00DE 0130R                 352 |       DC      IC926-1                               U6C03270
00DF 7400 0134R            353 |       MDX  L  IC929,0   SKIP NEXT IF NO RETRY       U6C03280
00E1 7063                  354 |       MDX     IC280     BR IF RETRY                 U6C03290
00E2 803E                  355 | IC255 A       IC911     DECR SECTOR ADDR            U6C03300
00E3 72FF                  356 |       MDX   2 -1        DECR SCTR WRITE CTR         U6C03310
00E4 70F0                  357 |       MDX     IC250     BR TO WRITE A SECTOR        U6C03320
                           358 | *                                                   U6C03330
                           359 | *             READ BACK AND COMPARE EIGHT SECTORS   U6C03340
                           360 | *                                                   U6C03350
00E5 6A46                  361 |       STX   2 IC921     CLEAR COMPARE ERROR INDR    U6C03360
00E6 6A4E                  362 |       STX   2 IC930     CLEAR SCTR ADDR ERROR INDR  U6C03370
00E7 6208                  363 |       LDX   2 8         INIT SCTR READ COUNT        U6C03380
00E8 7407 0131R            364 |       MDX  L  IC926,7   POINT TO SECTOR 7           U6C03390
00EA C046                  365 | IC260 LD      IC926     ADDR OF SCTR TO READ        U6C03400
00EB D400 054BR            366 |       STO  L  IC990+1   BUFFER SCTR ADDR            U6C03410
00ED 4400 04A2R            367 |       BSI  L  DIO-1     CALL DISK ROUTINE           U6C03420
00EF 0100                  368 |       DC      /0100     READ FUNCTION               U6C03430
00F0 054AR                 369 |       DC      IC990     BUFFER WD CNT ADDR          U6C03440
00F1 4400 04A2R            370 |       BSI  L  DIO-1     TEST FOR BUSY               U6C03450
00F3 0000                  371 |       DC      /0000     SENSE FUNCTION CODE         U6C03460
00F4 0130R                 372 |       DC      IC926-1                               U6C03470
00F5 7400 0134R            373 |       MDX  L  IC929,0   SKIP NEXT IF NO RETRY       U6C03480
00F7 7051                  374 |       MDX     IC285     BR IF RETRY                 U6C03490
                           375 | *                                                   U6C03500
                           376 | *             COMPARE SECTOR ADDR                   U6C03510
                           377 | *                                                   U6C03520
00F8 E02B                  378 | IC265 AND     IC916     EXTRACT SCTR ADDR           U6C03530
00F9 F400 054BR            379 |       EOR  L  IC990+1   COMPARE W/ BUFFER SCTR ADDR U6C03540
00FB 4C20 014DR            380 |       BSC  L  IC300,Z   BR IF SCTR ADDR ERROR       U6C03550
                           381 | *                                                   U6C03560
                           382 | *             COMPARE BUFFER CONTENTS WITH PATTERN  U6C03570
                           383 | *                                                   U6C03580
00FD 6500 0140             384 |       LDX  L1 320       INITIALIZE BUFFER POINTER   U6C03590
00FF CD00 054AR            385 | IC270 LDD  L1 IC990     TWO WDS OF BUFFER           U6C03600
0101 9F00 0120R            386 |       SD   L3 IC901+6   COMPARE W/ PATTERN WRITTEN  U6C03610
0103 4818                  387 |       BSC     +-        SKIP IF NOT SAME            U6C03620
0104 18D0                  388 |       RTE     16        FLIP SECOND WORD INTO ACC   U6C03630
0105 4C20 0156R            389 |       BSC  L  IC301,Z   BR IF NOT SAME              U6C03640
0107 71FE                  390 |       MDX   1 -2        DECR BUFFER POINTER         U6C03650
0108 70F6                  391 |       MDX     IC270     BR TO COMPARE TWO MORE WDS  U6C03660
0109 1010                  392 |       SLA     16        CLEAR ACC                   U6C03670
010A D021                  393 | IC271 STO     IC921     CLEAR COMPARE ERROR FLAG    U6C03680
010B 74FF 0131R            394 |       MDX  L  IC926,-1  DECR SCTR ADDR              U6C03690
010D 1000                  395 |       NOP               MAY SKIP                    U6C03700
010E 72FF                  396 |       MDX   2 -1        DECR SCTR READ COUNT        U6C03710
010F 70DA                  397 |       MDX     IC260     BR TO READ A SECTOR         U6C03720
                           398 | *                                                   U6C03730
                           399 | *             NEXT PATTERN                          U6C03740
                           400 | *                                                   U6C03750
0110 7302                  401 |       MDX   3 2         INCR PATTERN POINTER        U6C03760
0111 70B4                  402 |       MDX     IC240     BR TO WRITE NEXT PATTERN    U6C03770
                           403 | *                                                   U6C03780
                           404 | *             CHECK FOR BAD CYLINDER                U6C03790
                           405 | *                                                   U6C03800
0112 C01F                  406 |       LD      IC927     BAD CYLINDER INDR           U6C03810
0113 4C30 0165R            407 |       BSC  L  IC310,Z-  BR IF BAD CYLINDER          U6C03820
0115 4C10 0169R            408 |       BSC  L  IC315,-   BR IF CYL ZERO DEFECTIVE    U6C03830
0117 7026                  409 |       MDX     IC275     BR TO INCR SCTR POINTER     U6C03840
                           410 | *                                                   U6C03850
                           411 | *             CONSTANTS AND WORK AREA               U6C03860
                           412 | *                                                   U6C03870
0118                       413 |       BSS  E  0         MAKE ADDR EVEN              U6C03880
0118 7000                  414 | IC900 DC      /7000     DISK READ FUNCTION          U6C03890
0119 041ER                 415 |       DC      IC992     DCOM BUFFER ADDR            U6C03900
011A AAAA                  416 | IC901 DC      /AAAA     FIRST PATTERN               U6C03910
011B AAAA                  417 |       DC      /AAAA                                 U6C03920
011C 5555                  418 |       DC      /5555     SECOND PATTERN              U6C03930
011D 5555                  419 |       DC      /5555                                 U6C03940
011E 0000                  420 |       DC      0         THIRD PATTERN               U6C03950
011F 0000                  421 |       DC      0                                     U6C03960
0120 FFFE                  422 | IC910 DC      -2        DM2 INITIALIZED STATUS WORD U6C03970
0121 0001                  423 | IC911 DC      1         DECIMAL ONE CONSTANT        U6C03980
0122 8000                  424 | IC912 DC      /8000     SIGN BIT CONSTANT           U6C03990
0123 0658                  425 | IC913 DC      /0658     INITIAL VALUE DEF CYL TBL   U6C04000
0124 0FFF                  426 | IC916 DC      /0FFF     SECTOR ADDR EXTRACT MASK    U6C04010
0123R                      427 | IC917 EQU     IC913     NO. OF SCTRS/CART CONSTANT  U6C04020
0125 0180                  428 | IC918 DC      /0180     DCOM INITIALIZE CONSTANT    U6C04030
0126 0008                  429 |       DC      /0008     DCOM INITIALIZE CONSTANT    U6C04040
0127 C3D6 D4D7 D3C5 E3C5   430 | IC919 EBC     .COMPLETE.                            U6C04050
012B 03B2R                 431 | IC920 DC      IC980     ADDR OF FROM-TO TABLE       U6C04060
012C 0000                  432 | IC921 DC      *-*       COMPARE ERROR INDR          U6C04070
012D 0000                  433 | IC922 DC      *-*       ADDR PRINCIPAL OUTPUT SUBR  U6C04080
012E 0000                  434 | IC923 DC      *-*       PHYSICAL DR NUMBER          U6C04090
012F 0000                  435 | IC924 DC      *-*       DEFECTIVE CYLINDER COUNTER  U6C04100
0130                       436 |       BSS  E  0         IC926-1 MUST BE EVEN        U6C04110
0130 0000                  437 | IC925 DC      *-*       SECTOR ZERO ADDRESS TEMP    U6C04120
0131 0000                  438 | IC926 DC      *-*       SECTOR ADDR TEMPORARY       U6C04130
0132 0000                  439 | IC927 DC      *-*       BAD CYLINDER INDR           U6C04140
0133 0000                  440 | IC928 DC      *-*       TEMPORARY FOR $IBT2         U6C04150
0134 0000                  441 | IC929 DC      *-*       RETRY COUNTER               U6C04160
0135 0000                  442 | IC930 DC      *-*       SCTR ADDR ERROR INDR        U6C04170
0136 0000                  443 | IC931 DC      *-*       FROM-TO TABLE POINTER       U6C04180
0137 0000                  444 | IC932 DC      *-*       TEMPORARY FOR $IREQ         U6C04190
0138 0000                  445 | IC933 DC      *-*       ID RECORD ERROR INDR        U6C04200
0139 0000                  446 | IC934 DC      *-*       PHYSICAL DRIVE INDEX VALUE  U6C04210
013A 0000                  447 | IC935 DC      *-*       DRIVE INITIALIZED INDR      U6C04220
013B 0000                  448 | IC936 DC      *-*       DRIVE READY INDR WORD       U6C04230
013C 0000                  449 | IC937 DC      *-*       TEMP STORAGE FOR $LEV2  212 U6C04235
013D 00B3                  450 | IC938 DC      /B3       $I200 LOCATION          212 U6C04238
                           451 | *                                                   U6C04240
                           452 | *             INCR TO CHECK NEXT CYLINDER           U6C04250
                           453 | *                                                   U6C04260
013E 7408 0130R            454 | IC275 MDX  L  IC925,8   POINT SCTR ADDR TO NEXT CYL U6C04270
0140 C0EF                  455 |       LD      IC925                                 U6C04280
0141 90E1                  456 |       S       IC917     END CONSTANT                U6C04290
0142 4C18 0175R            457 |       BSC  L  IC330,+-  BR IF ALL CYLINDERS TESTED  U6C04300
0144 7080                  458 |       MDX     IC235     BR TO INIT TO FIRST PATTERN U6C04310
                           459 | *                                                   U6C04320
                           460 | *             RETRY WRITE                           U6C04330
                           461 | *                                                   U6C04340
0145 74FF 0134R            462 | IC280 MDX  L  IC929,-1  DECR RETRY CTR              U6C04350
0147 708D                  463 |       MDX     IC250     BR TO RETRY                 U6C04360
0148 7099                  464 |       MDX     IC255     BR TO DECR SCTR ADDR        U6C04370
                           465 | *                                                   U6C04380
                           466 | *             RETRY READ                            U6C04390
                           467 | *                                                   U6C04400
0149 74FF 0134R            468 | IC285 MDX  L  IC929,-1  DECR RETRY COUNTER          U6C04410
014B 709E                  469 |       MDX     IC260     BR TO RETRY                 U6C04420
014C 70AB                  470 |       MDX     IC265     BR TO COMPARE               U6C04430
                           471 | *                                                   U6C04440
                           472 | *             SECTOR ADDRESS ERROR                  U6C04450
                           473 | *                                                   U6C04460
014D C0E2                  474 | IC300 LD      IC925     SECTOR 0 ADDR FOR THIS CYL  U6C04470
014E F400 054BR            475 |       EOR  L  IC990+1   CURRENT SCTR ADDR FR BUFFER U6C04480
0150 4C20 0156R            476 |       BSC  L  IC301,Z   BR IF NOT SECTOR ZERO       U6C04490
0152 7400 0135R            477 |       MDX  L  IC930,0   SKIP IF FIRST SCTR ZERO ERR U6C04500
0154 7014                  478 |       MDX     IC315     BR IF DEFECTIVE CARTRIDGE   U6C04510
0155 68DF                  479 |       STX     IC930     SET SCTR ADDR ERROR INDR ON U6C04520
                           480 | *                                                   U6C04530
                           481 | *             COMPARE ERROR                         U6C04540
                           482 | *                                                   U6C04550
0156 7400 012CR            483 | IC301 MDX  L  IC921,0   CHK FOR PREVIOUS CMP ERROR  U6C04560
0158 7007                  484 |       MDX     IC305     BR IF SECOND COMPARE ERROR  U6C04570
0159 68D2                  485 |       STX     IC921     SET COMPARE ERROR INDR ON   U6C04580
015A 7400 0134R            486 |       MDX  L  IC929,0   SKIP NEXT IF NO RETRY SET   U6C04590
015C 708D                  487 |       MDX     IC260     BR TO RETRY                 U6C04600
015D 7432 0134R            488 |       MDX  L  IC929,50  INCR TO RETRY 50 TIMES      U6C04610
015F 708A                  489 |       MDX     IC260     BR TO RETRY                 U6C04620
0160 C0CF                  490 | IC305 LD      IC925     CURRENT CYL SCTR 0 ADDR     U6C04630
0161 D0D0                  491 |       STO     IC927     SET BAD CYL INDR ON         U6C04640
0162 1010                  492 |       SLA     16        CLEAR ACC                   U6C04650
0163 D0D0                  493 |       STO     IC929     RESET RETRY COUNTER         U6C04660
0164 70A5                  494 |       MDX     IC271     BR TO TEST NEXT SECTOR      U6C04670
                           495 | *                                                   U6C04680
                           496 | *             CHECK DEFECTIVE CYLINDER COUNT        U6C04690
                           497 | *                                                   U6C04700
0165 6780 012FR            498 | IC310 LDX  I3 IC924     DEFECTIVE CYLINDER COUNT    U6C04710
0167 7300                  499 |       MDX   3 0         SKIP IF MORE THAN 3 BAD CYL U6C04720
0168 7006                  500 |       MDX     IC316                                 U6C04730
                           501 | *                                                   U6C04740
                           502 | *             DEFECTIVE CARTRIDGE                   U6C04750
                           503 | *                                                   U6C04760
0169 6700 023AR            504 | IC315 LDX  L3 IC941     SUB-MSG ADDRESS             U6C04770
016B 4400 0206R            505 |       BSI  L  IC400     BR TO PRINT                 U6C04780
016D 4C00 01E8R            506 |       BSC  L  IC370     BR TO GET NEXT CART ID      U6C04790
                           507 | *                                                   U6C04800
                           508 | *             PUT DEFECTIVE CYL ADDR INTO TABLE     U6C04810
                           509 | *                                                   U6C04820
016F D700 0273R            510 | IC316 STO  L3 IC970+2+3 DEFECTIVE CYL TABLE         U6C04830
0171 7401 012FR            511 |       MDX  L  IC924,1   INCR DEFECTIVE CYL COUNT    U6C04840
0173 1000                  512 |       NOP               MAY SKIP                    U6C04850
0174 70C9                  513 |       MDX     IC275     BR TO CHECK NEXT CYLINDER   U6C04860
                           514 | *                                                   U6C04870
                           515 | *             INITIALIZE SECTOR 1 - DCOM            U6C04880
                           516 | *                                                   U6C04890
0175 6580 0136R            517 | IC330 LDX  I1 IC931     FROM-TO TABLE POINTER       U6C04900
0177 63FB                  518 |       LDX   3 -5        INITIALIZE TABLE POINTER    U6C04910
0178 C700 045CR            519 | IC340 LD   L3 IC992+2+#CIDN+5  NEXT LABEL IN #CIDN  U6C04920
017A 9500 03B4R            520 |       S    L1 IC980+2                               U6C04930
017C 4C18 0184R            521 |       BSC  L  IC350,+-  BR IF LABEL FOUND           U6C04940
017E 7301                  522 |       MDX   3 1         INCR POINTER- SKIP IF END   U6C04950
017F 70F8                  523 |       MDX     IC340     BR TO GET NEXT TBL ENTRY    U6C04960
0180 1010                  524 |       SLA     16                                    U6C04970
0181 D500 03B4R            525 |       STO  L1 IC980+2   SET UP TO LOOK FOR 1ST ZERO U6C04980
0183 70F3                  526 |       MDX     IC340-1   BR TO SEARCH AGAIN          U6C04990
0184 62AF                  527 | IC350 LDX   2 -81       CLEAR BUFFER COUNT          U6C05000
0185 D600 0451R            528 |       STO  L2 IC993+2+81  CLEAR SCTR 1 BUFFER       U6C05010
0187 7201                  529 |       MDX   2 1         DECR COUNTER                U6C05020
0188 70FC                  530 |       MDX     IC350+1   BR TO CONTINUE CLEARING     U6C05030
0189 C400 0273R            531 |       LD   L  IC970+5   NEW CARTRIDGE LABEL         U6C05040
018B D700 045CR            532 |       STO  L3 IC992+2+#CIDN+5  MASTER DCOM          U6C05050
018D D400 0437R            533 |       STO  L  IC993+2+#CIDN  SATELLITE DCOM         U6C05060
018F C095                  534 |       LD      IC918     HEX VALUE 0180              U6C05070
0190 D400 0423R            535 |       STO  L  IC993+2+#ANDU  INIT #ANDU             U6C05080
0192 D400 0428R            536 |       STO  L  IC993+2+#BNDU  INIT #BNDU             U6C05090
0194 1804                  537 |       SRA     4         = HEX VALUE 0018            U6C05100
0195 D400 042DR            538 |       STO  L  IC993+2+#FPAD  INIT #FPAD             U6C05110
0197 C08E                  539 |       LD      IC918+1   HEX VALUE 0008              U6C05120
0198 D400 043CR            540 |       STO  L  IC993+2+#CIBA  INIT #CIBA             U6C05130
019A 1802                  541 |       SRA     2         = HEX VALUE 0002            U6C05140
019B D400 0450R            542 |       STO  L  IC993+2+#ULET                         U6C05150
                           543 | *                                                   U6C05160
                           544 | *             SET UP AREA CODE FOR DZ000            U6C05170
                           545 | *                                                   U6C05180
019D 6680 0139R            546 |       LDX  I2 IC934     PHYSICAL DRIVE INDEX VALUE  U6C05190
019F C600 0262R            547 |       LD   L2 IC960     AREA CODE - CURRENT CART    U6C05200
01A1 D700 00A4             548 |       STO  L3 $ACDE+5                               U6C05210
                           549 | *                                                   U6C05220
                           550 | *             SET UP CURRENT ARM POSITION           U6C05230
                           551 | *                                                   U6C05240
01A3 74F8 0130R            552 |       MDX  L  IC925,-8  CURRENT ARM POSITION        U6C05250
01A5 C400 0130R            553 |       LD   L  IC925                                 U6C05260
01A7 D700 009F             554 |       STO  L3 $CYLN+5   CURRENT ARM POSITION-DZ000  U6C05270
                           555 | *                                                   U6C05280
                           556 | *             SET UP DRIVE CODE FOR DISK WRITE      U6C05290
                           557 | *                                                   U6C05300
01A9 7305                  558 |       MDX   3 5         LOGICAL DRIVE NUMBER IN XR3 U6C05310
01AA 1000                  559 |       NOP               MAY SKIP                    U6C05320
01AB 6F00 026FR            560 |       STX  L3 IC970+1   TEMPORARY                   U6C05330
01AD C400 026FR            561 |       LD   L  IC970+1                               U6C05340
01AF 100C                  562 |       SLA     12        SHIFT TO DRIVE CODE POSITN  U6C05350
01B0 D400 026FR            563 |       STO  L  IC970+1   SET UP SECTOR 0 ADDR        U6C05360
01B2 8400 0121R            564 |       A    L  IC911     ONE                         U6C05370
01B4 D400 03FFR            565 |       STO  L  IC993+1   SET UP SECTOR 1 ADDR        U6C05380
01B6 8400 0121R            566 |       A    L  IC911     ONE                         U6C05390
01B8 D400 03A9R            567 |       STO  L  IC978+1   SET UP SECTOR 2 ADDR        U6C05400
                           568 | *                                                   U6C05410
                           569 | *             SET UP DEFECTIVE CYLINDER TABLE       U6C05420
                           570 | *                                                   U6C05430
01BA 180B                  571 |       SRA     11        LOG DR NO. X2 RT JUSTIFIED  U6C05440
01BB D004                  572 |       STO     IC351-2   TEMPORARY                   U6C05450
01BC 1801                  573 |       SRA     1         LOG DR NO. RIGHT JUSTIFIED  U6C05460
01BD 8002                  574 |       A       IC351-2   LOG DR NO. TIMES 3          U6C05470
01BE D001                  575 |       STO     IC351-2   STORE TO LOAD XR3           U6C05480
01BF 6700 0000             576 |       LDX  L3 *-*       XR3 = LOG DR NO. TIMES 3    U6C05490
01C1 62FD                  577 |       LDX   2 -3        NEW DEFECTIVE CYL POINTER   U6C05500
01C2 C600 0273R            578 | IC351 LD   L2 IC970+2+3 NEXT ENTRY OF NEW TABLE     U6C05510
01C4 D700 00A4             579 |       STO  L3 $DCYL     SET UP DEFECTIVE CYL TABLE  U6C05520
01C6 7301                  580 |       MDX   3 1         INCR DEFECTIVE CYL TBL PT   U6C05530
01C7 7201                  581 |       MDX   2 1         INCR NEW TABLE POINTER      U6C05540
01C8 70F9                  582 |       MDX     IC351     BR TO MOVE NEXT WD OF TBL   U6C05550
                           583 | *                                                   U6C05560
                           584 | *             WRITE SECTORS 0,1, AND 2 TO SATELLITE U6C05570
                           585 | *                                                   U6C05580
01C9 C400 0133R            586 |       LD   L  IC928                                 U6C05590
01CB D400 00B9             587 |       STO  L  $IBT2     RESTORE INTERRUPT ADDR      U6C05600
01CD 6600 026ER            588 |       LDX  L2 IC970     ADDR OF SECTOR 0 BUFFER     U6C05610
01CF 402C                  589 |       BSI     IC355     BR TO WRITE ONE SCTR        U6C05620
01D0 6600 03FER            590 |       LDX  L2 IC993     SECTOR 1 BUFFER ADDR        U6C05630
01D2 4029                  591 |       BSI     IC355     BR TO WRITE ONE SCTR        U6C05640
01D3 6600 03A8R            592 |       LDX  L2 IC978     SECTOR 2 BUFFER ADDR        U6C05650
01D5 4026                  593 |       BSI     IC355     BR TO WRITE ONE SCTR        U6C05660
01D6 6600 04A0R            594 |       LDX  L2 DIO-3     SET DISK INTERRUPT BACK TO  U6C05670
01D8 6E00 00B9             595 |       STX  L2 $IBT2     *DIO INTERNAL ROUTINE       U6C05680
                           596 | *                                                   U6C05690
                           597 | *             STORE COMPLETE IN SIGN-OFF MESSAGE    U6C05700
                           598 | *                                                   U6C05710
01DA 62FC                  599 |       LDX   2 -4        INITIALIZE EBC COMPLETE PT  U6C05720
01DB C400 0136R            600 |       LD   L  IC931     FROM-TO TABLE POINTER       U6C05730
01DD 1003                  601 |       SLA     3         MPY BY  8                   U6C05740
01DE D001                  602 |       STO     *+1                                   U6C05750
01DF 6700 0000             603 |       LDX  L3 *-*       SIGN-OFF MESSAGE POINTER    U6C05760
01E1 C600 012BR            604 | IC360 LD   L2 IC919+4   EBC COMPLETE                U6C05770
01E3 D700 03C8R            605 |       STO  L3 IC980+22  ST COMPLETE OVER NOT DONE   U6C05780
01E5 7301                  606 |       MDX   3 1         INCR MESSAGE POINTER        U6C05790
01E6 7201                  607 |       MDX   2 1         INCR EBC COMPLETE POINTER   U6C05800
01E7 70F9                  608 |       MDX     IC360     BR TO MOVE TWO MORE CHARS   U6C05810
                           609 | *                                                   U6C05820
                           610 | *             CHECK FOR KEYBOARD INTERRUPT          U6C05830
                           611 | *                                                   U6C05840
01E8 7400 01F6R            612 | IC370 MDX  L  IC380,0   SKIP IF NO INTERRUPT        U6C05850
01EA 7009                  613 |       MDX     IC375     BR TO END SEQUENCE          U6C05860
                           614 | *                                                   U6C05870
                           615 | *             INCR FROM-TO TABLE POINTER            U6C05880
                           616 | *                                                   U6C05890
01EB 1010                  617 |       SLA     16                                    U6C05900
01EC D400 0138R            618 |       STO  L  IC933     CLEAR ID ERROR              U6C05910
01EE 7402 0136R            619 |       MDX  L  IC931,2   INCR FROM-TO POINTER        U6C05920
01F0 6580 0136R            620 |       LDX  I1 IC931     FROM-TO TABLE POINTER       U6C05930
01F2 4C00 0034R            621 |       BSC  L  IC050     BR TO TEST FOR LAST CART    U6C05940
01F4 4C00 0037R            622 | IC375 BSC  L  IC060     BR TO END SEQUENCE          U6C05950
                           623 | *                                                   U6C05960
                           624 | *             KEYBOARD INTERRUPT MAKES IC380 NON-0  U6C05970
                           625 | *                                                   U6C05980
01F6 0000                  626 | IC380 DC      *-*       ENTRY PT AND INTERRUPT INDR U6C05990
01F7 0802                  627 |       XIO     IC939     RESET INTERRUPT             U6C06000
01F8 4C00 00D5             628 |       BSC  L  $I410     BR TO ILS04                 U6C06010
                           629 | *                                                   U6C06020
                           630 | *             IOCC TO RESET KEYBOARD INTERRUPT      U6C06030
                           631 | *                                                   U6C06040
01FA                       632 | IC939 BSS  E  1         EVEN BOUNDARY FOR IOCC      U6C06050
01FB 0F01                  633 |       DC      /0F01     SENSE WITH RESET FUNCTION   U6C06060
                           634 | *                                                   U6C06070
                           635 | *             WRITE ONE SECTOR SUBROUTINE           U6C06080
                           636 | *                                                   U6C06090
01FC 0000                  637 | IC355 DC      *-*       RETURN ADDRESS              U6C06100
01FD 6A63                  638 |       STX   2 IC950+1   SET UP ADDR IN DISC IOCC    U6C06110
01FE C861                  639 |       LDD     IC950     WRITE FUNC AND BUFFER ADDR  U6C06120
01FF 4400 00F2             640 |       BSI  L  DZ000     WRITE A SECTOR              U6C06130
0201 7400 00EE             641 | IC356 MDX  L  $DBSY,0   SKIP IF DISK NOT BUSY  2-11 U6C06140
0203 70FD                  642 |       MDX     IC356     LOOP ON BUSY           2-11 U6C06150
                           643 | *                                              2-11 U6C06160
0204 4C80 01FCR            644 |       BSC  I  IC355     EXIT                        U6C06170
                           645 | *                                                   U6C06180
                           646 | *             PRINT ERROR MESSAGE SUBROUTINE        U6C06190
                           647 | *                                                   U6C06200
0206 0000                  648 | IC400 DC      *-*       RETURN ADDRESS              U6C06210
0207 6C00 0138R            649 |       STX  L  IC933     SET ID RECORD ERROR ON      U6C06220
0209 C400 0136R            650 |       LD   L  IC931     FROM-TO TABLE POINTER       U6C06230
020B 1003                  651 |       SLA     3         MULTIPLY BY 8               U6C06240
020C D001                  652 |       STO     *+1                                   U6C06250
020D 6600 0000             653 |       LDX  L2 *-*       SIGN-OFF MESSAGE POINTER    U6C06260
020F CE00 03BER            654 |       LDD  L2 IC980+12  EBC CART ID                 U6C06270
0211 D81A                  655 |       STD     IC940+6                               U6C06280
0212 62F5                  656 |       LDX   2 -11       INIT MESSAGE POINTER        U6C06290
0213 C300                  657 | IC410 LD    3 0         FIRST WORD OF MESSAGE TYPE  U6C06300
0214 D600 023AR            658 |       STO  L2 IC940+20  STORE IN ERROR MESSAGE      U6C06310
0216 7301                  659 |       MDX   3 1         INCR TO NEXT WORD           U6C06320
0217 7201                  660 |       MDX   2 1         INCR POINTER                U6C06330
0218 70FA                  661 |       MDX     IC410     BR TO MOVE ANOTHER WORD     U6C06340
0219 C808                  662 |       LDD     IC940-4   FUNC CODE AND WORD CNT ADDR U6C06350
021A 4480 012DR            663 |       BSI  I  IC922     BR TO PRINT ROUTINE         U6C06360
021C C400 0036             664 |       LD   L  $PBSY     PRINCIPAL PR BUSY INDR      U6C06370
021E 4820                  665 |       BSC     Z         SKIP NEXT IF NOT BUSY       U6C06380
021F 70FC                  666 |       MDX     *-4       LOOP ON BUSY                U6C06390
0220 4C80 0206R            667 |       BSC  I  IC400     EXIT                        U6C06400
                           668 | *                                                   U6C06410
                           669 | *             ERROR MESSAGE BUFFER                  U6C06420
                           670 | *                                                   U6C06430
0222                       671 |       BSS  E  0         MAKE ADDR EVEN              U6C06440
0222 7001                  672 |       DC      /7001     WRITE FUNCTION CODE         U6C06450
0223 0225R                 673 |       DC      IC940-1   BUFFER WORD COUNT ADDR      U6C06460
0224 0000                  674 |       DC      0         BLANK SPACER WORD           U6C06470
0225 0014                  675 |       DC      IC941-IC940  WORD COUNT               U6C06480
0226 4040 C3C1 D9E3 D9C9   676 | IC940 EBC     .  CARTRIDGE .                        U6C06490
     C4C7 C540                 |
022C 4040 4040 4040        677 |       EBC     .      .  CART ID FOLLOWED BY 2 SPACE U6C06500
022F 4040 4040 4040 4040   678 |       EBC     .                      .  22 BLANKS   U6C06510
     4040 4040 4040 4040       |
     4040 4040 4040            |
023A C9E2 40C4 C5C6 C5C3   679 | IC941 EBC     .IS DEFECTIVE          .              U6C06520
     E3C9 E5C5 4040 4040       |
     4040 4040 4040            |
0245 C9E2 40D5 D6E3 40C1   680 | IC942 EBC     .IS NOT AVAILABLE      .              U6C06530
     E5C1 C9D3 C1C2 D3C5       |
     4040 4040 4040            |
0250 C9D5 E5C1 D3C9 C440   681 | IC943 EBC     .INVALID...LOGICAL 0 ID.              U6C06540
0254 D5C5 E640 D3C1 C2C5   682 | IC944 EBC     .NEW LABEL IS INVALID  .              U6C06550
     D340 C9E2 40C9 D5E5       |
     C1D3 C9C4 4040            |
                           683 | *                                                   U6C06560
                           684 | *             DISK WRITE IOCC                       U6C06570
                           685 | *                                                   U6C06580
0260                       686 |       BSS  E  0         MAKE ADDRESS EVEN           U6C06590
0260 7001                  687 | IC950 DC      /7001     DISK WRITE FUNCTION         U6C06600
0261 0000                  688 |       DC      *-*       ADDR OF BUFFER TO WRITE     U6C06610
                           689 | *                                                   U6C06620
                           690 | *             AREA CODE TABLE                       U6C06630
                           691 | *                                                   U6C06640
0262 2000                  692 | IC960 DC      /2000     DRIVE 0                     U6C06650
0263 8800                  693 |       DC      /8800     DRIVE 1                     U6C06660
0264 9000                  694 |       DC      /9000     DRIVE 2                     U6C06670
0265 9800                  695 |       DC      /9800     DRIVE 3                     U6C06680
0266 A000                  696 |       DC      /A000     DRIVE 4                     U6C06690
0267 B000                  697 |       DC      /B000     DRIVE  5               2-11 U6C06700
0268 B800                  698 |       DC      /B800     DRIVE  6               2-11 U6C06710
0269 B810                  699 |       DC      /B810     DRIVE  7               2-11 U6C06720
026A B820                  700 |       DC      /B820     DRIVE  8               2-11 U6C06730
026B B830                  701 |       DC      /B830     DRIVE  9               2-11 U6C06740
026C B840                  702 |       DC      /B840     DRIVE 10               2-11 U6C06750
                           703 | *                                                   U6C06760
                           704 | *             SATELLITE SECTOR 0 BUFFER             U6C06770
                           705 | *                                                   U6C06780
026E                       706 |       BSS  E  0         MAKE ADDRESS EVEN           U6C06790
026E 0138                  707 | IC970 DC      IC977-IC970-1  WORD COUNT             U6C06800
026F 0000                  708 |       DC      0         SECTOR ADDR                 U6C06810
0270                       709 |       BSS     3         DEFECTIVE CYLINDER TABLE    U6C06820
0273                       710 |       BSS     1         CARTRIDGE LABEL             U6C06830
0274                       711 |       BSS     $ZEND-CLDST-6  RESERVED FOR SYSTEM    U6C06840
                           712 | *                                                   U6C06850
                           713 | *             CONSOLE PRINTER PRINT ROUTINE         U6C06860
                           714 | *                                                   U6C06870
01E0                       715 | A     EQU     $ZEND     COLD START RELATIVE ADDRESS U6C06880
037E 6500 01ED             716 | IC971 LDX  L1 IC973-IC971+A  XR1 TO INTRPT BR ADDR  U6C06890
0380 6D00 000C             717 |       STX  L1 12        SET UP LOC 12 FOR INTERRUPT U6C06900
0382 6114                  718 |       LDX   1 IC977-IC976+1  CHARACTER COUNT        U6C06910
0383 080C                  719 | IC972 XIO     IC974     TYPE A CHARACTER            U6C06920
0384 7401 01F2             720 |       MDX  L  IC974-IC971+A,1  PT I0CC TO NEXT CHAR U6C06930
0386 3000                  721 |       WAIT              WAIT FOR INTERRUPT          U6C06940
0387 71FF                  722 |       MDX   1 -1        DECR CHAR COUNT             U6C06950
0388 70FA                  723 |       MDX     IC972     BR TO TYPE ANOTHER CHAR     U6C06960
0389 3000                  724 |       WAIT              HARD WAIT                   U6C06970
038A 70FE                  725 |       MDX     *-2       GO BACK TO WAIT             U6C06980
038B 0000                  726 | IC973 DC      *-*       INTERRUPT ENTRY POINT       U6C06990
038C 0805                  727 |       XIO     IC975     SENSE AND RESET             U6C07000
038D 4CC0 01ED             728 |       BOSC I  IC973-IC971+A  RETURN                 U6C07010
                           729 | *                                                   U6C07020
                           730 | *             IOCC WORDS TO PRINT MESSAGE           U6C07030
                           731 | *                                                   U6C07040
0390                       732 |       BSS  E  0         MAKE ADDRESS EVEN           U6C07050
0390 01F6                  733 | IC974 DC      IC976-IC971+A  ADDR OF MESSAGE BUFFER U6C07060
0391 0900                  734 |       DC      /0900     WRITE FUNCTION CODE         U6C07070
0392 0000                  735 | IC975 DC      0         BLANK WORD FOR SENSE IOCC   U6C07080
0393 0F01                  736 |       DC      /0F01     SENSE AND RESET FUNCTION    U6C07090
                           737 | *                                                   U6C07100
                           738 | *             MESSAGE CHARACTERS - CONSOLE PRINTER  U6C07110
                           739 | *                                                   U6C07120
0394 8100                  740 | IC976 DC      /8100     CARRIER RETURN              U6C07130
0395 7400                  741 |       DC      /7400     N                           U6C07140
0396 5000                  742 |       DC      /5000     O                           U6C07150
0397 7400                  743 |       DC      /7400     N                           U6C07160
0398 8400                  744 |       DC      /8400     HYPHEN                      U6C07170
0399 9800                  745 |       DC      /9800     S                           U6C07180
039A A400                  746 |       DC      /A400     Y                           U6C07190
039B 9800                  747 |       DC      /9800     S                           U6C07200
039C 9C00                  748 |       DC      /9C00     T                           U6C07210
039D 2100                  749 |       DC      /2100     SPACE                       U6C07220
039E 1C00                  750 |       DC      /1C00     C                           U6C07230
039F 3C00                  751 |       DC      /3C00     A                           U6C07240
03A0 6000                  752 |       DC      /6000     R                           U6C07250
03A1 9C00                  753 |       DC      /9C00     T                           U6C07260
03A2 2100                  754 |       DC      /2100     SPACE                       U6C07270
03A3 3400                  755 |       DC      /3400     E                           U6C07280
03A4 6000                  756 |       DC      /6000     R                           U6C07290
03A5 6000                  757 |       DC      /6000     R                           U6C07300
03A6 5000                  758 |       DC      /5000     O                           U6C07310
03A7 6000                  759 | IC977 DC      /6000     R                           U6C07320
                           760 | *                                                   U6C07330
                           761 | *             SATELLITE SECTOR 2 BUFFER- LET HEADER U6C07340
                           762 | *                                                   U6C07350
03A8                       763 |       BSS  E  0         MAKE ADDR EVEN              U6C07360
03A8 0008                  764 | IC978 DC      IC979-IC978-1  BUFFER WORD COUNT      U6C07370
03A9 0002                  765 |       DC      /0002     SECTOR ADDR OF LET          U6C07380
03AA 0000                  766 |       DC      /0000     RELATIVE LET SCTR NUMBER    U6C07390
03AB 0018                  767 |       DC      /0018     USER AREA SCTR ADDRESS      U6C07400
03AC 0000                  768 |       DC      /0000     LET HEADER RESERVED WORD    U6C07410
03AD 0138                  769 |       DC      /0138     WDS AVAILABLE THIS LET SCTR U6C07420
03AE 0000                  770 |       DC      /0000     LET SCTR CHAIN ADDRESS      U6C07430
03AF 7112                  771 |       DC      /7112     1DUMY IN NAME CODE WITH     U6C07440
03B0 4528                  772 |       DC      /4528     * 01 AS FIRST TWO BITS.     U6C07450
03B1 6280                  773 | IC979 DC      /6280     DB SIZE OF WORKING STORAGE  U6C07460
                           774 | *                                                   U6C07470
                           775 | *             FROM-TO CARTRIDGE ID TABLE AND SIGN-  U6C07480
                           776 | *             OFF MESSAGE PASSED FROM RDREC FUNC    U6C07490
                           777 | *                                                   U6C07500
03B2                       778 | IC980 BSS  E  1         MAKE NEXT ADDR ODD          U6C07510
03B3                       779 |       BSS     1         FROM-TO ELEMENT COUNT       U6C07520
03B4                       780 |       BSS     8         4 PAIRS FROM-TO CART IDS    U6C07530
                           781 | *                                                   U6C07540
                           782 | *             SIGN-OFF MESSAGE                      U6C07550
                           783 | *                                                   U6C07560
03BC                       784 |       BSS  E  1         BLANK SPACER WORD           U6C07570
03BD 000F                  785 | IC981 DC      IC982-IC981-1  WORD COUNT             U6C07580
03BE 4040 4040             786 |       EBC     .    .    FROM                        U6C07590
03C0 4040 4040 4040        787 |       EBC     .      .  SPACES                      U6C07600
03C3 4040 4040             788 |       EBC     .    .    TO                          U6C07610
03C5 4040 4040 4040        789 |       EBC     .      .  SPACES                      U6C07620
03C8 D5D6 E340 C4D6 D5C5   790 |       EBC     .NOT DONE.                            U6C07630
03CC 4040                  791 |       EBC     .  .                                  U6C07640
03CD 000F                  792 | IC982 DC      IC983-IC982-1  WD COUNT               U6C07650
03CE 4040 4040             793 |       EBC     .    .    FROM                        U6C07660
03D0 4040 4040 4040        794 |       EBC     .      .  SPACES                      U6C07670
03D3 4040 4040             795 |       EBC     .    .    TO                          U6C07680
03D5 4040 4040 4040        796 |       EBC     .      .  SPACES                      U6C07690
03D8 D5D6 E340 C4D6 D5C5   797 |       EBC     .NOT DONE.                            U6C07700
03DC 4040                  798 |       EBC     .  .                                  U6C07710
03DD 000F                  799 | IC983 DC      IC984-IC983-1  WD COUNT               U6C07720
03DE 4040 4040             800 |       EBC     .    .    FROM                        U6C07730
03E0 4040 4040 4040        801 |       EBC     .      .  SPACES                      U6C07740
03E3 4040 4040             802 |       EBC     .    .    TO                          U6C07750
03E5 4040 4040 4040        803 |       EBC     .      .  SPACES                      U6C07760
03E8 D5D6 E340 C4D6 D5C5   804 |       EBC     .NOT DONE.                            U6C07770
03EC 4040                  805 |       EBC     .  .                                  U6C07780
03ED 000F                  806 | IC984 DC      IC985-IC984-1  WD COUNT               U6C07790
03EE 4040 4040             807 |       EBC     .    .    FROM                        U6C07800
03F0 4040 4040 4040        808 |       EBC     .      .  SPACES                      U6C07810
03F3 4040 4040             809 |       EBC     .    .    TO                          U6C07820
03F5 4040 4040 4040        810 |       EBC     .      .  SPACES                      U6C07830
03F8 D5D6 E340 C4D6 D5C5   811 |       EBC     .NOT DONE.                            U6C07840
03FC 4040                  812 |       EBC     .  .                                  U6C07850
03FDR                      813 | IC985 EQU     *                                     U6C07860
                           814 | *                                                   U6C07870
                           815 | *             SATELLITE DCOM BUFFER                 U6C07880
                           816 | *                                                   U6C07890
03FE                       817 |       BSS  E  0         MAKE ADDR EVEN              U6C07900
03FE 0051                  818 | IC993 DC      81        WORD COUNT                  U6C07910
03FF 0001                  819 |       DC      /0001     SECTOR ADDR OF DCOM         U6C07920
0400                       820 |       BSS     81-52     RESERVE 81 WORDS            U6C07930
                           821 | *                                                   U6C07940
                           822 | *             MASTER DCOM BUFFER                    U6C07950
                           823 | *                                                   U6C07960
041E                       824 |       BSS  E  0         MAKE ADDR EVEN              U6C07970
041E 003C                  825 | IC992 DC      60        WORD COUNT                  U6C07980
041F 0001                  826 |       DC      /0001     SECTOR ADDRESS OF DCOM      U6C07990
0420                       827 |       BSS     60        RESERVE 60 WORDS            U6C08000
0420                       828 |       ORG     *-60      BEGIN FOLLOWING SUBR.  2-11 U6C08010
                           829 | *                       *IN DCOM DISK BUFFER   2-11 U6C08020
                           830 | *                       *TO ALLOW IT TO BE     2-11 U6C08030
                           831 | *                       *OVERLAYED AFTER IT IS 2-11 U6C08040
                           832 | *                       *USED                  2-11 U6C08050
                           833 | *************************************************** U6C08060
                           834 | * THIS SUBROUTINE DETERMINES WHICH DRIVES HAVE    * U6C08070
                           835 | * CARTRIDGES MOUNTED AND READY.  IT ALSO SAVES THE* U6C08080
                           836 | * IDS IN PHYSICAL DRIVE ORDER.IF A DRIVE DOES NOT * U6C08090
                           837 | * HAVE A CARTRIDGE MOUNTED AND READY, ITS ENTRY   * U6C08100
                           838 | * IN THE PHYSICAL DRIVE LIST IS SET TO ZERO       * U6C08110
                           839 | *************************************************** U6C08120
 
0420 0000                  841 | IT200 DC      *-*       ENTRY/RETURN ADDRESS   2-11 U6C08140
 
                           843 | * SAVE VALUES OF $ACDE IN COMMA                     U6C08160
 
0421 62FB                  845 |       LDX   2 -5        XR1 = $ACDE TABLE SIZE 2-11 U6C08180
0422 C600 00A4             846 | IT205 LD   L2 $ACDE+5   LOAD FIRST ENTRY       2-11 U6C08190
0424 D600 0483R            847 |       STO  L2 IT926+5   *AND SAVE              2-11 U6C08200
0426 7201                  848 |       MDX   2 1         SKIP IF FINISHED       2-11 U6C08210
0427 70FA                  849 |       MDX     IT205     *OTHERWISE, CONTINUE   2-11 U6C08220
 
0428 61F5                  851 |       LDX   1 -11       DRIVE COUNT TO XR1     2-11 U6C08240
0429 C400 000A             852 |       LD   L  $LEV2     SAVE CONTENTS          2-11 U6C08250
042B D051                  853 |       STO     IT923     *OF LOCATION 10        2-11 U6C08260
 
042C C04F                  855 | IT210 LD      IT922     RESET INTERRUPT        2-11 U6C08280
042D D400 000A             856 |       STO  L  $LEV2     *BRANCH ADDRESS        2-11 U6C08290
042F C500 026DR            857 |       LD   L1 IC960+11  FETCH AREA CODE        2-11 U6C08300
0431 D400 009F             858 |       STO  L  $ACDE     STORE TO COMMA         2-11 U6C08310
0433 E810                  859 |       OR      IT918     OR IN READ FUNC CODE   2-11 U6C08320
0434 D040                  860 |       STO     IT911+1   STO TO 2ND WD OF IOCC  2-11 U6C08330
0435 E845                  861 |       OR      IT921     OR IN SENSE FUNC CODE  2-11 U6C08340
0436 D040                  862 |       STO     IT912+1   STO TO 2ND WD OF IOCC  2-11 U6C08350
0437 083C                  863 |       XIO     IT911     INITIATE DISK READ     2-11 U6C08360
0438 083D                  864 |       XIO     IT912     SENSE DISK             2-11 U6C08370
0439 1003                  865 |       SLA     3         SHIFT BUSY BIT TO SIGN 2-11 U6C08380
043A 4C28 0445R            866 |       BSC  L  IT230,+Z  BR IF DISK BUSY        2-11 U6C08390
 
                           868 | * DISK NOT BUSY, NO CARTRIDGE AVAILABLE             U6C08410
 
043C 1010                  870 |       SLA     16        SET PHY DR LIST ENTRY  2-11 U6C08430
043D D500 048ER            871 |       STO  L1 IT904+11  *TO ZERO               2-11 U6C08440
043F 701A                  872 |       MDX     IT240     BR TO INCRE DR POINTER 2-11 U6C08450
 
                           874 | * OPERATION COMPLETE INTERRUPT PROCESSING           U6C08470
 
0440 0000                  876 | IT220 DC      *-*       INT ENTRY POINT        2-11 U6C08490
0441 0834                  877 |       XIO     IT912     SENSE WITH RESET       2-11 U6C08500
0442 4CC0 0440R            878 |       BOSC I  IT220     CONTINUE               2-11 U6C08510
0444 0600                  879 | IT918 DC      /0600     READ FUNC CODE         2-11 U6C08520
 
                           881 | * CARTRIDGE AVAILABLE, FETCH CARTRIDGE ID AND       U6C08540
                           882 | * DEFECTIVE CYLINDER ADDRESS                        U6C08550
 
0445 C0FA                  884 | IT230 LD      IT220     CHECK INT ENTRY POINT  2-11 U6C08570
0446 4818                  885 |       BSC     +-        *FOR NON-ZERO, AND LOOP2-11 U6C08580
0447 70FD                  886 |       MDX     IT230     *UNTIL INTERRUPT OCCURS2-11 U6C08590
0448 1010                  887 |       SLA     16        RESET INT ENTRY POINT  2-11 U6C08600
0449 D0F6                  888 |       STO     IT220     *TO ZERO               2-11 U6C08610
044A C032                  889 |       LD      IT923     RESTORE CONTENTS       2-11 U6C08620
044B D400 000A             890 |       STO  L  $LEV2     *OF LOCATION 10        2-11 U6C08630
044D C02B                  891 |       LD      IT915+1   SET ARM POSITION TO    2-11 U6C08640
044E D400 009A             892 |       STO  L  $CYLN     *SECTOR ADDR JUST READ 2-11 U6C08650
0450 C029                  893 |       LD      IT917     FETCH ADDR OF I/O AREA 2-11 U6C08660
0451 1890                  894 |       SRT     16        SHIFT TO EXT, ACC = 0  2-11 U6C08670
0452 4400 00F2             895 |       BSI  L  DZ000     BRANCH TO DISK READ    2-11 U6C08680
0454 7400 00EE             896 |       MDX  L  $DBSY,0   SKIP IF READ COMPLETE  2-11 U6C08690
0456 70FD                  897 |       MDX     *-3       LOOP IF NOT COMPLETE   2-11 U6C08700
 
0457 C01B                  899 |       LD      IT908+3   FETCH CART ID AND      2-11 U6C08720
0458 D500 048ER            900 |       STO  L1 IT904+11  *STORE TO CART LIST    2-11 U6C08730
045A C022                  901 | IT240 LD      IT923     RESTORE CONTENTS OF    2-11 U6C08740
045B D400 000A             902 |       STO  L  $LEV2     *LEVEL 2 INT ADDR      2-11 U6C08750
045D 7202                  903 |       MDX   2 2         INCRE AVAIL CART PNTR  2-11 U6C08760
045E 7101                  904 |       MDX   1 1         SKIP IF DR CNT = 0     2-11 U6C08770
045F 70CC                  905 |       MDX     IT210     *OTHERWISE, CONTINUE   2-11 U6C08780
 
                           907 | * RESTORE VALUES OF $ACDE IN COMMA, AND SINCE       U6C08800
                           908 | * THIS SUBROUTINE HAS MOVED ALL ARMS TO CYL. 0      U6C08810
                           909 | * TO READ THE CARTRIDGE ID, SET $CYLN TO ZERO       U6C08820
 
0460 62FB                  911 |       LDX   2 -5        XR1 = TABLE LENGTH     2-11 U6C08840
0461 C600 0483R            912 | IT250 LD   L2 IT926+5   RESTORE ORIGINAL       2-11 U6C08850
0463 D600 00A4             913 |       STO  L2 $ACDE+5   *CONTENTS OF $ACDE     2-11 U6C08860
0465 1810                  914 |       SRA     16        SET CURRENT ARM        2-11 U6C08870
0466 D600 009F             915 |       STO  L2 $CYLN+5   *POSITION TO ZERO      2-11 U6C08880
0468 7201                  916 |       MDX   2 1         SKIP IF FINISHED       2-11 U6C08890
0469 70F7                  917 |       MDX     IT250     *OTHERWISE, CONTINUE   2-11 U6C08900
 
046A 4C80 0420R            919 |       BSC  I  IT200     RETURN TO MAINLINE     2-11 U6C08920
                           921 | * CONSTANTS AND WORK AREA                           U6C08940
 
046C                       923 |       BSS  E  1         ASSURE ODD BOUNDARY    2-11 U6C08960
046D FFFF                  924 |       DC      -1        CONSTANT OF -1         2-11 U6C08970
046E 0004                  925 | IT906 DC      4         WORD COUNT             2-11 U6C08980
046F 0000                  926 | IT907 DC      #IDAD     SECTOR ADDRESS         2-11 U6C08990
0470                       927 | IT908 BSS  4  4         DEF CYL,ID I/O AREA    2-11 U6C09000
**** Warning: Modifier '4' not permitted
0474 0478R                 928 | IT911 DC      IT915     ADDRESS OF I/O AREA    2-11 U6C09010
0475 0000                  929 |       DC      *-*       2ND WORD OF READ IOCC  2-11 U6C09020
0476 0658                  930 | IT912 DC      /658      MAXIMUM ARM POSITION   2-11 U6C09030
0477 0000                  931 |       DC      *-*       2ND WORD OF SENSE IOCC 2-11 U6C09040
0478 0001                  932 | IT915 DC      1         WORD COUNT             2-11 U6C09050
0479 0000                  933 |       DC      *-*       I/O AREA               2-11 U6C09060
047A 046ER                 934 | IT917 DC      IT906     ADDR OF ID I/O AREA    2-11 U6C09070
047B 0701                  935 | IT921 DC      /0701     SENSE W/RESET FUNC CODE2-11 U6C09080
047C 0440R                 936 | IT922 DC      IT220     ADDR OF TEMP INT ROUTN 2-11 U6C09090
047D 0000                  937 | IT923 DC      *-*       $LEV2 SAVE AREA        2-11 U6C09100
047E                       938 | IT926 BSS     5         $ACDE SAVE AREA        2-11 U6C09110
0483                       939 | IT904 BSS     11        CART LIST-PHY DR ORDER 2-11 U6C09120
                           940 | *             THE FOLLOWING BSS MUST CAUSE DISKN    U6C09130
                           941 | *             TO BEGIN ON AN EVEN BOUNDARY          U6C09140
                           942 | *                                                   U6C09150
048E                       943 |       BSS  E  1                                     U6C09160
                           944 | *                                                   U6C09170
                           945 | *             SET READ OR WRITE ERROR               U6C09180
                           946 | *                                                   U6C09190
048F 7400 0134R            947 | IC320 MDX  L  IC929,0   SKIP NEXT IF RETRY NOT SET  U6C09200
0491 7003                  948 |       MDX     IC325     BR IF NOT FIRST ERROR       U6C09210
0492 7432 0134R            949 |       MDX  L  IC929,50  INCR TO RETRY 50 TIMES      U6C09220
0494 7004                  950 |       MDX     IC326     BR TO EXIT                  U6C09230
0495 C400 0130R            951 | IC325 LD   L  IC925     CURRENT CYL SCTR 0 ADDR     U6C09240
0497 D400 0132R            952 |       STO  L  IC927     SET BAD CYL INDR ON         U6C09250
0499 4C00 0000             953 | IC326 BSC  L  *-*       EXIT                        U6C09260
049B 70F3                  954 |       MDX     IC320     BR TO SET ERROR             U6C09270
                           955 | *                                                   U6C09280
                           956 | *                                                   U6C09290
                           957 | * PATCH AREA REMOVED                           2-11 U6C09300
                           958 | *                                                   U6C09310
                           959 | *                                                   U6C09320
DISK READ/WRITE SUBROUTINE
 
049C 6A4F                  961 | DISKN STX   2 D0900+3   SAVE CONTENTS OF XR2        U6C09340
049D 6680 0000             962 |       LDX  I2 *-*       PUT LINK WD FROM TV IN XR2  U6C09350
049F 7035                  963 |       MDX     D0027     BRANCH TO CALL PROCESSING   U6C09360
04A0 0000                  964 | D0004 DC      *-*       ENTRY POINT FOR INTERRUPTS  U6C09370
04A1 7005                  965 |       MDX     D0600     BR TO CONTINUE              U6C09380
04A2 0000                  966 |       DC      *-*       DISC ENTRY                  U6C09390
04A3 6A48                  967 |       STX   2 D0900+3   SAVE XR2                    U6C09400
04A4 6680 04A2R            968 |       LDX  I2 *-4                                   U6C09410
04A6 702E                  969 |       MDX     D0027     BRANCH TO CONTINUE          U6C09420
04A7 1010                  970 | D0600 SLA     16        INITIALIZE PHY DR CODE 2-11 U6C09430
04A8 D009                  971 |       STO     D0620+1   *ACCUMULATOR TO ZERO   2-11 U6C09440
04A9 0C00 052AR            972 |       XIO  L  SENSI-1   SENSE ILSW             2-11 U6C09450
04AB 1001                  973 | D0610 SLA     1                                2-11 U6C09460
04AC 4C18 04B1R            974 |       BSC  L  D0620,+-  BR IF DR CD ACCUMULATED2-11 U6C09470
04AE 7402 04B2R            975 |       MDX  L  D0620+1,2  ACCUMULATE 2*DR CODE  2-11 U6C09480
04B0 70FA                  976 |       MDX     D0610     BR TO CHECK FOR ZERO   2-11 U6C09490
04B1 6500 0000             977 | D0620 LDX  L1 *-*       XR1 = 2*DRIVE NUMBER   2-11 U6C09500
04B3 7500 0534R            978 |       MDX  L1 CYLIN     ADJUST TO STORAGE AREA      U6C09510
04B5 0900                  979 |       XIO   1 D0950-1-C  SENSE WITH RESET      2-11 U6C09520
04B6 4C10 04C1R            980 |       BSC  L  D0698,-   BRANCH IF NO DATA ERROR     U6C09530
04B8 C879                  981 |       LDD     IOCCN     FETCH LAST IOCC        2-11 U6C09540
04B9 40E0                  982 |       BSI     IC326+1    BR TO DISK ERROR RTN   2-9 U6C09550
04BA 4C10 04C8R            983 |       BSC  L  D0697,-   BRANCH TO IGNORE ERROR      U6C09560
04BC C000                  984 | D0696 LD      *         FETCH NON-ZERO WORD         U6C09570
04BD 0874                  985 |       XIO     IOCCN     RETRY LAST OPERATION   2-11 U6C09580
04BE D071                  986 | D0699 STO     DBUSY     SET DBUSY AS SWITCH    2-11 U6C09590
04BF 4C80 04A0R            987 |       BSC  I  D0004     RETURN TO INTERRUPT LEVEL   U6C09600
                           988 | *                                                   U6C09610
04C1 C071                  989 | D0698 LD      IOCCN+1   GET 2ND WD LAST IOCC   2-11 U6C09620
04C2 E068                  990 |       AND     SENSI     DETERMINE IF LAST OPERATION U6C09630
04C3 4C18 04CAR            991 |       BSC  L  D0695,+-  *WAS A SENSE. BR IF IT WAS  U6C09640
04C5 C06A                  992 |       LD      DBUSY     CHECK DBUSY SIGN       2-11 U6C09650
04C6 4C28 04BCR            993 |       BSC  L  D0696,Z+                              U6C09660
04C8 1010                  994 | D0697 SLA     16        CLEAR ACC TO SET SWITCH     U6C09670
04C9 70F4                  995 |       MDX     D0699     RETURN TO INTERRUPT LEVEL   U6C09680
                           996 | *                                                   U6C09690
04CA 74FF 052DR            997 | D0695 MDX  L  SCNTR,-1  DECREMENT RETRY COUNTER     U6C09700
04CC 7002                  998 |       MDX     *+2       BR TO TRY AGAIN             U6C09710
04CD 3333                  999 |       DC      /3333     WAIT                        U6C09720
04CE 70FE                 1000 |       MDX     *-2                                   U6C09730
04CF 0900                 1001 |       XIO   1 D0950-1-C  SENSE WITH RESET      2-11 U6C09740
04D0 1004                 1002 |       SLA     4                                     U6C09750
04D1 4C28 04C8R           1003 |       BSC  L  D0697,Z+  BRANCH IF CARRIAGE HOME     U6C09760
04D3 0852                 1004 |       XIO     SEEK      INITIATE SEEK               U6C09770
04D4 70EA                 1005 |       MDX     D0699+1   BRANCH TO EXIT              U6C09780
                          1006 | *                                                   U6C09790
04D5 D852                 1007 | D0027 STD     SAVAC     SAVE ACC AND EXT            U6C09800
04D6 6913                 1008 |       STX   1 D0900+1   SAVE CONTENTS OF XR1        U6C09810
04D7 CE80 0001            1009 |       LDD  I2 1         FETCH WD CNT, SCTR ADDRESS  U6C09820
04D9 1090                 1010 |       SLT     16        ISOLATE THE DRIVE CODE      U6C09830
04DA 18CB                 1011 |       RTE     11                               2-11 U6C09840
04DB D001                 1012 |       STO     SAVE1+1   SAVE TWICE THE              U6C09850
04DC 6500 0000            1013 | SAVE1 LDX  L1 *-*       *DRIVE CODE                 U6C09860
04DE 7500 0534R           1014 |       MDX  L1 CYLIN     POINT TO BUFFER AREA        U6C09870
                          1015 | * ONE INSTRUCTION REMOVED                      2-11 U6C09880
04E0 7400 0530R           1016 |       MDX  L  DBUSY,0   SKIP IF DISK NOT BUSY  2-11 U6C09890
04E2 70FD                 1017 |       MDX     *-3       *BRANCH TO TRY AGAIN        U6C09900
04E3 C200                 1018 |       LD    2 0         LOAD CONTROL PARAMETER      U6C09910
04E4 4C20 04F3R           1019 |       BSC  L  D0202,Z   BRANCH IF NOT TEST FUNCTION U6C09920
04E6 C841                 1020 | D0024 LDD     SAVAC     RESTORE ACC AND EXT         U6C09930
04E7 7202                 1021 |       MDX   2 2         SET UP FOR RETURN TO CALL+3 U6C09940
04E8 6A05                 1022 | D0030 STX   2 D0150     STORE RETURN ADDRESS        U6C09950
04E9 6500 0000            1023 | D0900 LDX  L1 *-*       RESTORE XR1                 U6C09960
04EB 6600 0000            1024 |       LDX  L2 *-*       RESTORE XR2                 U6C09970
04ED 4C00 0000            1025 |       BSC  L  *-*       RETURN TO USER              U6C09980
04EER                     1026 | D0150 EQU     *-1                                   U6C09990
                          1027 | *                                                   U6C10000
                          1028 | * PREPARE TO MAKE PRE-OPERATIVE ERROR EXIT          U6C10010
                          1029 | *                                                   U6C10020
04EF C03F                 1030 | D0550 LD      NTRDY     LOAD NOT READY ERROR CODE   U6C10030
04F0 4400 0028            1031 |       BSI  L  STRAP     WAIT AT PRE-OPERATIVE EXIT  U6C10040
04F2 7017                 1032 |       MDX     D0203     BR ON STRAP RETURN          U6C10050
                          1033 | *                                                   U6C10060
                          1034 | * PROCESS ALL FUNCTIONS EXCEPT TEST                 U6C10070
                          1035 | *                                                   U6C10080
04F3 1885                 1036 | D0202 SRT     5         RIGHT JUSTIFY SCTR ADDR     U6C10090
04F4 C201                 1037 |       LD    2 1         LOAD AND SAVE ADDRESS       U6C10100
04F5 D03C                 1038 |       STO     IOCCN     *OF USERS I/O BUFFER   2-11 U6C10110
04F6 C680 0001            1039 |       LD   I2 1         FETCH WORD COUNT            U6C10120
04F8 DE80 0001            1040 |       STD  I2 1                                     U6C10130
04FA 1003                 1041 |       SLA     3         ISOLATE SECTOR NUMBER       U6C10140
04FB 18C3                 1042 |       RTE     3                                     U6C10150
04FC 180D                 1043 |       SRA     13                                    U6C10160
04FD EA00                 1044 |       OR    2 0         OR IN THE FUNCTION CODE     U6C10170
04FE D031                 1045 |       STO     DBUSY     SET BUSY INDICATOR     2-11 U6C10180
04FF F101                 1046 |       EOR   1 D0950-C   OR IN AREA CD & SENSE  2-11 U6C10190
0500 F029                 1047 |       EOR     D0001                                 U6C10200
0501 D031                 1048 |       STO     IOCCN+1   PUT IN 2ND WD OF IOCC  2-11 U6C10210
0502 E028                 1049 |       AND     SENSI     CHECK IF REQ FUNC IS A SEEK U6C10220
0503 4C20 050AR           1050 |       BSC  L  D0203,Z   BR IF NOT                   U6C10230
0505 C024                 1051 |       LD      D0001                                 U6C10240
0506 D100                 1052 |       STO   1 CYLIN-C   SET CURRENT CYLN TO 1  2-11 U6C10250
0507 1008                 1053 |       SLA     8                                     U6C10260
0508 D024                 1054 |       STO     SCNTR                                 U6C10270
0509 1090                 1055 |       SLT     16                                    U6C10280
050A 0900                 1056 | D0203 XIO   1 D0950-1-C  SENSE DR N WITH RESET 2-11 U6C10290
050B 1002                 1057 |       SLA     2         TEST FOR DRIVE READY        U6C10300
050C 4C28 04EFR           1058 |       BSC  L  D0550,Z+  *AND BRANCH IF IT IS NOT    U6C10310
                          1059 | *                                                   U6C10320
                          1060 | * CHECK TO SEE IF A SEEK IS NECESSARY               U6C10330
                          1061 | *                                                   U6C10340
050E 1090                 1062 |       SLT     16        SAVE SOUGHT                 U6C10350
050F D0CD                 1063 |       STO     SAVE1+1   *CYLINDER                   U6C10360
0510 9100                 1064 |       S     1 CYLIN-C   SUB CURRENT ARM POSN   2-11 U6C10370
0511 4C18 0524R           1065 |       BSC  L  D0042,+-  BR IF SEEK NOT NECESSARY    U6C10380
                          1066 | *                                              2-11 U6C10390
                          1067 | *                                              2-11 U6C10400
                          1068 | * SIX INSTRUCTIONS REMOVED                     2-11 U6C10410
                          1069 | *                                              2-11 U6C10420
                          1070 | * BUILD SEEK IOCC                              2-11 U6C10430
                          1071 | *                                              2-11 U6C10440
0513 1890                 1072 |       SRT     16        PUT NO. CYLINDERS IN EXT    U6C10450
0514 E017                 1073 |       AND     D0940     AND WITH BIT 3              U6C10460
0515 E901                 1074 |       OR    1 D0950-C   CONSTRUCT              2-11 U6C10470
0516 F014                 1075 |       EOR     SENSI     *SEEK                       U6C10480
0517 8016                 1076 |       A       D0917     *IOCC                       U6C10490
0518 18D0                 1077 |       RTE     16                                    U6C10500
0519 4810                 1078 |       BSC     -         SKIP IF SEEK TOWARD HOME    U6C10510
051A 7002                 1079 |       MDX     *+2       BR TO CONTINUE              U6C10520
051B F012                 1080 |       EOR     D0917     GENERATE POSITIVE NO. CYLS  U6C10530
051C 800D                 1081 |       A       D0001     *TO SEEK                    U6C10540
051D D808                 1082 |       STD     SEEK      STORE IOCC WORDS            U6C10550
                          1083 | *                       INST.MOVED AHEAD 4 INST2-10 U6C10560
051E C0BE                 1084 |       LD      SAVE1+1   RESET CURRENT               U6C10570
051F D100                 1085 |       STO   1 CYLIN-C   *ARM POSITION          2-11 U6C10580
0520 C00D                 1086 |       LD      D0917     LOAD NEGATIVE NUMBER        U6C10590
0521 D00E                 1087 |       STO     DBUSY     USE DBUSY AS SEEK FLAG 2-11 U6C10600
0522 0803                 1088 |       XIO     SEEK      INITIATE SEEK          2-10 U6C10610
0523 70C2                 1089 |       MDX     D0024     BRANCH TO EXIT              U6C10620
0524 080D                 1090 | D0042 XIO     IOCCN     INITIATE READ OR WRITE 2-11 U6C10630
0525 70C0                 1091 |       MDX     D0024     BRANCH TO EXIT              U6C10640
                          1092 | *                                                   U6C10650
                          1093 | * CONSTANTS AND WORK AREAS                          U6C10660
                          1094 | *                                                   U6C10670
0526                      1095 | SEEK  BSS  E  2         STORAGE FOR SEEK IOCC       U6C10680
0528                      1096 | SAVAC BSS  E  2         ACC AND EXT STORAGE    2-11 U6C10690
052A 0001                 1097 | D0001 DC      1         CONSTANT OF ONE             U6C10700
052B 0300                 1098 | SENSI DC      /0300     FUNCTION CODE MASK          U6C10710
052C 0004                 1099 | D0940 DC      4         SEEK IOCC DIRECTION MASK    U6C10720
052D 0000                 1100 | SCNTR DC      *-*       RETRY COUNTER               U6C10730
052E FFFF                 1101 | D0917 DC      -1        CONSTANT                    U6C10740
052F 5000                 1102 | NTRDY DC      /5000     DISK NOT READY ERROR CODE   U6C10750
0530 0000                 1103 | DBUSY DC      *-*       DISK BUSY/SEEK INDIC   2-11 U6C10760
0532                      1104 | IOCCN BSS  E  2         IOCC FOR REQUESTED FUNC2-11 U6C10770
0534 00CB                 1105 | CYLIN DC      203       CURRENT ARM POSN,DR  0 2-11 U6C10780
0535 2701                 1106 | D0950 DC      /2701     SENSE IOCC, DR  0      2-11 U6C10790
0536 00CB                 1107 |       DC      203       CURRENT ARM POSN,DR  1 2-11 U6C10800
0537 8F01                 1108 |       DC      /8F01     SENSE IOCC, DR  1      2-11 U6C10810
0538 00CB                 1109 |       DC      203       CURRENT ARM POSN,DR  2 2-11 U6C10820
0539 9701                 1110 |       DC      /9701     SENSE IOCC, DR  2      2-11 U6C10830
053A 00CB                 1111 |       DC      203       CURRENT ARM POSN,DR  3 2-11 U6C10840
053B 9F01                 1112 |       DC      /9F01     SENSE IOCC, DR  3      2-11 U6C10850
053C 00CB                 1113 |       DC      203       CURRENT ARM POSN,DR  4 2-11 U6C10860
053D A701                 1114 |       DC      /A701     SENSE IOCC, DR  4      2-11 U6C10870
053E 00CB                 1115 |       DC      203       CURRENT ARM POSN,DR  5 2-11 U6C10880
053F B701                 1116 |       DC      /B701     SENSE IOCC, DR  5      2-11 U6C10890
0540 00CB                 1117 |       DC      203       CURRENT ARM POSN,DR  6 2-11 U6C10900
0541 BF01                 1118 |       DC      /BF01     SENSE IOCC, DR  6      2-11 U6C10910
0542 00CB                 1119 |       DC      203       CURRENT ARM POSN,DR  7 2-11 U6C10920
0543 BF11                 1120 |       DC      /BF11     SENSE IOCC, DR  7      2-11 U6C10930
0544 00CB                 1121 |       DC      203       CURRENT ARM POSN,DR  8 2-11 U6C10940
0545 BF21                 1122 |       DC      /BF21     SENSE IOCC, DR  8      2-11 U6C10950
0546 00CB                 1123 |       DC      203       CURRENT ARM POSN,DR  9 2-11 U6C10960
0547 BF31                 1124 |       DC      /BF31     SENSE IOCC, DR  9      2-11 U6C10970
0548 00CB                 1125 |       DC      203       CURRENT ARM POSN,DR 10 2-11 U6C10980
0549 BF41                 1126 |       DC      /BF41     SENSE IOCC, DR 10      2-11 U6C10990
0534R                     1127 | C     EQU     CYLIN     TABLE POINTER          2-11 U6C11000
0028                      1128 | STRAP EQU     40        ADDRESS OF STRAP IN (COMMA) U6C11010
04A3R                     1129 | DIO   EQU     DISKN+7   TV LINK WORD ADDRESS        U6C11020
                          1130 | *                                                   U6C11030
                          1131 | *             DISK SECTOR READ-WRITE BUFFER         U6C11040
                          1132 | *                                                   U6C11050
054A                      1133 |       BSS  E  0         MAKE ADDR EVEN              U6C11060
054A 0141                 1134 | IC990 DC      321       BUFFER WORD COUNT           U6C11070
054B                      1135 |       BSS     321       RESERVE 321 WORDS           U6C11080
054C                      1136 |       ORG     *-320     OVERLAY BUFFER WITH NEXT    U6C11090
054C                      1137 |       END     IC000                                 U6C11100
There was 1 warning in this assembly
 
Program transfer address = 0000
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
#ACIN 001C    81  142
#ANDU 0023    82  535
#BNDU 0028    83  536
#CIBA 003C    87  540
#CIDN 0037    86  181  214  219  519  532  533
#FPAD 002D    84  538
#IDAD 0000    89  926
#PCID 0032    85
#ULET 0050    88  542
$ACDE 009F    97  548  846  858  913
$CYLN 009A    96  554  892  915
$DBSY 00EE    99  129  641  896
$DCYL 00A4    98  579
$DUMP 003F    95  207
$EXIT 0038    94
$I410 00D5   103  628
$IBT2 00B9   100  154  157  174  587  595
$IREQ 002C   102  147  150  200
$LEV2 000A   101  161  164  176  852  856  890  902
$PBSY 0036    93  190  664
$ZEND 01E0   104  711  715
A     01E0   715  716  720  728  733
C     0534R 1127  979 1001 1046 1052 1056 1064 1074 1085
CLDST 00D0   106  711
CYLIN 0534R 1105  978 1014 1052 1064 1085 1127
D0001 052AR 1097 1047 1051 1081
D0004 04A0R  964  987
D0024 04E6R 1020 1089 1091
D0027 04D5R 1007  963  969
D0030 04E8R 1022
D0042 0524R 1090 1065
D0150 04EER 1026 1022
D0202 04F3R 1036 1019
D0203 050AR 1056 1032 1050
D0550 04EFR 1030 1058
D0600 04A7R  970  965
D0610 04ABR  973  976
D0620 04B1R  977  971  974  975
D0695 04CAR  997  991
D0696 04BCR  984  993
D0697 04C8R  994  983 1003
D0698 04C1R  989  980
D0699 04BER  986  995 1005
D0900 04E9R 1023  961  967 1008
D0917 052ER 1101 1076 1080 1086
D0940 052CR 1099 1073
D0950 0535R 1106  979 1001 1046 1056 1074
DBUSY 0530R 1103  986  992 1016 1045 1087
DIO   04A3R 1129  156  308  347  350  367  370  594
DISKN 049CR  961 1129
DZ000 00F2   105  125  640  895
IC000 0000R  114 1137
IC010 000CR  129  130
IC050 0034R  168  621
IC060 0037R  173  622
IC065 0042R  185  138
IC070 0046R  187  195
IC100 005AR  207  205
IC200 005DR  212  169
IC201 0069R  219  223  228
IC205 0077R  234  215
IC208 007BR  239  221
IC210 00C0R  317  319
IC220 008AR  253  243  257
IC225 0090R  256  284
IC226 0092R  261  213  225
IC230 0097R  267  255
IC232 00A3R  282  272
IC234 00A6R  288  278
IC235 00C5R  324  458
IC236 00ADR  295  263
IC240 00C6R  325  402
IC245 00CDR  333  335
IC250 00D5R  346  357  463
IC255 00E2R  355  464
IC260 00EAR  365  397  469  487  489
IC265 00F8R  378  470
IC270 00FFR  385  391
IC271 010AR  393  494
IC275 013ER  454  409  513
IC280 0145R  462  354
IC285 0149R  468  374
IC300 014DR  474  380
IC301 0156R  483  389  476
IC305 0160R  490  484
IC310 0165R  498  407
IC315 0169R  504  408  478
IC316 016FR  510  500
IC320 048FR  947  954
IC325 0495R  951  948
IC326 0499R  953  950  982
IC330 0175R  517  457
IC340 0178R  519  523  526
IC350 0184R  527  521  530
IC351 01C2R  578  572  574  575  582
IC355 01FCR  637  589  591  593  644
IC356 0201R  641  642
IC360 01E1R  604  608
IC370 01E8R  612  296  506
IC375 01F4R  622  613
IC380 01F6R  626  149  204  612
IC400 0206R  648  235  248  262  505  667
IC410 0213R  657  661
IC900 0118R  414  124
IC901 011AR  416  326  332  386
IC905 0076R  230  217  220  224  227
IC910 0120R  422  239
IC911 0121R  423  355  564  566
IC912 0122R  424  288
IC913 0123R  425  316  427
IC916 0124R  426  378
IC917 0123R  427  456
IC918 0125R  428  534  539
IC919 0127R  430  604
IC920 012BR  431  114
IC921 012CR  432  361  393  483  485
IC922 012DR  433  116  189  663
IC923 012ER  434  303  340
IC924 012FR  435  315  498  511
IC925 0130R  437  323  339  454  455  474  490  552  553  951
IC926 0131R  438  341  352  364  365  372  394
IC927 0132R  439  327  406  491  952
IC928 0133R  440  155  173  586
IC929 0134R  441  325  353  373  462  468  486  488  493  947  949
IC930 0135R  442  362  477  479
IC931 0136R  443  141  517  600  619  620  650
IC932 0137R  444  148  199
IC933 0138R  445  295  618  649
IC934 0139R  446  300  301  546
IC935 013AR  447  276  290  291
IC936 013BR  448  143  269
IC937 013CR  449  162  175
IC938 013DR  450  163
IC939 01FAR  632  627
IC940 0226R  676  655  658  662  673  675
IC941 023AR  679  504  675
IC942 0245R  680  261
IC943 0250R  681  234
IC944 0254R  682  247
IC950 0260R  687  187  188  638  639
IC960 0262R  692  547  857
IC970 026ER  707  240  242  317  510  531  560  561  563  578  588
IC971 037ER  716  720  728  733
IC972 0383R  719  723
IC973 038BR  726  716  728
IC974 0390R  733  719  720
IC975 0392R  735  727
IC976 0394R  740  718  733
IC977 03A7R  759  707  718
IC978 03A8R  764  567  592
IC979 03B1R  773  764
IC980 03B2R  778  137  139  168  186  212  216  241  254  431  520  525  605
                  654
IC981 03BDR  785
IC982 03CDR  792  785
IC983 03DDR  799  792
IC984 03EDR  806  799
IC985 03FDR  813  806
IC990 054AR 1134  304  310  333  346  349  366  369  379  385  475
IC992 041ER  825  142  181  214  219  415  519  532
IC993 03FER  818  528  533  535  536  538  540  542  565  590
IOCCN 0532R 1104  981  985  989 1038 1048 1090
IT200 0420R  841  120  919
IT205 0422R  846  849
IT210 042CR  855  905
IT220 0440R  876  878  884  888  936
IT230 0445R  884  866  886
IT240 045AR  901  872
IT250 0461R  912  917
IT904 0483R  939  253  871  900
IT906 046ER  925  934
IT907 046FR  926
IT908 0470R  927  899
IT911 0474R  928  860  863
IT912 0476R  930  862  864  877
IT915 0478R  932  891  928
IT917 047AR  934  893
IT918 0444R  879  859
IT921 047BR  935  861
IT922 047CR  936  855
IT923 047DR  937  853  889  901
IT926 047ER  938  847  912
NTRDY 052FR 1102 1030
SAVAC 0528R 1096 1007 1020
SAVE1 04DCR 1013 1012 1063 1084
SCNTR 052DR 1100  997 1054
SEEK  0526R 1095 1004 1082 1088
SENSI 052BR 1098  972  990 1049 1075
STRAP 0028  1128 1031
ibm/ibm1130-lib/dmsr2v12/u6disc_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator