U6DLCIB

Table Of Contents
  • [00004] DLCIB-DELETE CIB FROM NON-SYST CARTS
  • [00085] DLCIB- DELETE CIB OF NON-SYTEM CARTS.
  • [00206] DLCIB- DELETE CIB
  • [00443] DLCIB- PRINT SIGN OFF MESSAGE
  • [00499] DLCIB - BINARY TO PACK EBCDIC
  • [00551] DLCIB- RESET KB INTERRUPT
  • [00570] DLCIB- CONSTANTS
  • [00614] DLCIB- WORKING STORAGE AND I/O AREAS
u6dlcib.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:10 2020
 
Source File: \u6dlcib.asm 
DLCIB-DELETE CIB  FROM NON-SYST CARTS
 
                             2 | *************************************************** U6D00020
                             3 | * STATUS- VERSION 2, MODIFICATION LEVEL 12        * U6D00030
                             4 | *                                                 * U6D00040
                             5 | * FUNCTION/OPERATION-                             * U6D00050
                             6 | *    THIS PROGRAM DELETES THE CORE IMAGE BUFFER   * U6D00060
                             7 | *    FROM A NON-SYSTEMS CARTRIDGE. THE CARTRIDGE  * U6D00070
                             8 | *    TO HAVE THE CIB DELETED IS SPECIFIED BY A    * U6D00080
                             9 | *    *ID RECORD. THE *ID RECORD IS READ BY THE    * U6D00090
                            10 | *    PRINCIPAL INPUT DEVICE USING THE CALLED      * U6D00100
                            11 | *    SUBROUTINE RDREC. THE SUBROUTINE ALSO PRINTS * U6D00110
                            12 | *    THE *ID RECORD, CONVERTS THE CARTRIDGE ID    * U6D00120
                            13 | *    NUMBER FROM HEX TO BINARY.                   * U6D00130
                            14 | *                                                 * U6D00140
                            15 | *    THE KEYBOARD REQUEST INTERRUPT IS LOCKOUT    * U6D00150
                            16 | *    UNTIL THE DELETION HAS BEEN COMPLETED. AT    * U6D00160
                            17 | *    THAT TIME IT IS RESTORED.                    * U6D00170
                            18 | *                                                 * U6D00180
                            19 | *    WHEN THE CORE IMAGE IS DELETED THE           * U6D00190
                            20 | *    USERS AREA AND WORKING STORAGE IS MOVE DOWN  * U6D00200
                            21 | *    TO REPLACE THE CIB. ALL THE ENTRIES IN THE   * U6D00210
                            22 | *    RESIDENT MONITOR FOR THIS CARTRIDGE ARE      * U6D00220
                            23 | *    ALTERED ACORDINGLY. THE DCOMS OF THE         * U6D00230
                            24 | *    SPECIFIED CARTRIDGE AND THE SYSTEM CARTRIDGE * U6D00240
                            25 | *   ARE ALSO ALTERED.                             * U6D00250
                            26 | *                                                 * U6D00260
                            27 | *    THE SIGN-OFF MESSAGE IS PRINTED ON THE       * U6D00270
                            28 | *    SYSTEM PRINT DEVICE.                         * U6D00280
                            29 | *                                                 * U6D00290
                            30 | * ENTRY POINTS-                                   * U6D00300
                            31 | *    *DL001 -BEGINNING OF THE PROGRAM             * U6D00310
                            32 | *                                                 * U6D00320
                            33 | * INPUT-                                          * U6D00330
                            34 | *    * *ID RECORD FROM PRINCIPAL INPUT DEVICE     * U6D00340
                            35 | *    * DISK CARTRIDGE SPECIFIED                   * U6D00350
                            36 | *    * SYSTEM CARTRIDGE DECOM                     * U6D00360
                            37 | *                                                 * U6D00370
                            38 | * OUTPUT-                                         * U6D00380
                            39 | *    * SYSTEM CARTRIDGE DECOM                     * U6D00390
                            40 | *    * SPECIFIED CARTRIDGE                        * U6D00400
                            41 | *    * MESSAGES ON PRINCIPAL PRINT DEVICE         * U6D00410
                            42 | *                                                 * U6D00420
                            43 | * EXTERNAL REFERENCES-                            * U6D00430
                            44 | *    SUBROUTINES                                  * U6D00440
                            45 | *    *RDREC- READ AND CONVERT *ID RECORD          * U6D00450
                            46 | *    COMMA/DCOM-                                  * U6D00460
                            47 | *    *$FPAD                                       * U6D00470
                            48 | *    *#FPAD                                       * U6D00480
                            49 | *    *DZ000                                       * U6D00490
                            50 | *    *$DBSY                                       * U6D00500
                            51 | *    *#CIBA                                       * U6D00510
                            52 | *    *$ACDE                                       * U6D00520
                            53 | *    *#CIDN                                       * U6D00530
                            54 | *    *#ULET                                       * U6D00540
                            55 | *    *$IREQ                                       * U6D00550
                            56 | *    *$I410                                       * U6D00560
                            57 | *    *$PBSY                                       * U6D00570
                            58 | *                                                 * U6D00580
                            59 | * EXITS-                                          * U6D00590
                            60 | *    NORMAL- CALL EXIT                            * U6D00600
                            61 | *                                                 * U6D00610
                            62 | *    ERROR-N/A                                    * U6D00620
                            63 | *                                                 * U6D00630
                            64 | * TABLES/WORK AREAS-                              * U6D00640
                            65 | *    *DL921-DL925   WORK ARE FOR BINARY TO HEX    * U6D00650
                            66 | *    *DL900-DL910   WORK AREAS                    * U6D00660
                            67 | *    *DL940         TABLE FOR CART IDS            * U6D00670
                            68 | *    *DL951         PRINT LINE                    * U6D00680
                            69 | *    *DL964         DCOM AREA                     * U6D00690
                            70 | *    *DL970         DISK I/O                      * U6D00700
                            71 | *                                                 * U6D00710
                            72 | * ATTRIBUTES-                                     * U6D00720
                            73 | *    *RELOCATABLE                                 * U6D00730
                            74 | *                                                 * U6D00740
                            75 | * NOTES-                                          * U6D00750
                            76 | *    N/A                                          * U6D00760
                            77 | *                                                 * U6D00770
                            78 | *                                                 * U6D00780
                            79 | *                                                 * U6D00790
                            80 | *************************************************** U6D00800
DLCIB- DELETE CIB OF NON-SYTEM CARTS.
 
002C                        82 | $IREQ EQU     /2C  ADDR OF INT REQUEST SUBROUTINE   U6D00820
0036                        83 | $PBSY EQU     /36  PRINC PTR BUSY INDR,NON-ZERO=BSY U6D00830
0095                        84 | $FPAD EQU     /95  FILE PROTECT ADDR (ADJ),LOG DR 0 U6D00840
009F                        85 | $ACDE EQU     /9F  AREA CODE FOR LOGICAL DRIVE 0    U6D00850
00D6                        86 | $I410 EQU     /D6                                   U6D00860
00EE                        87 | $DBSY EQU     /EE  DISK BUSY INDR,NON-ZERO=DK BUSY  U6D00870
00F2                        88 | DZ000 EQU     /0F2 DISKZ ENTRY POINT                U6D00880
0023                        89 | #ANDU EQU     35   ADDR OF END OF UA (ADJUSTED) 2-4 U6D00886
0028                        90 | #BNDU EQU     40   ADDR OF END OF UA (BASE)     2-4 U6D00888
002D                        91 | #FPAD EQU     45   FILE PROTECT ADDR (BASE)LOG DR 0 U6D00890
0037                        92 | #CIDN EQU     55   CARTRIDGE ID FOR LOGICAL DRIVE 0 U6D00900
003C                        93 | #CIBA EQU     60   ADDR OF CIB FOR LOGICAL DRIVE 0  U6D00910
0050                        94 | #ULET EQU     80   ADDR OF  LET, LOGICAL DRIVE 0    U6D00920
0001                        95 | #DCOM EQU     1    SCTR CONTAINING DCOM             U6D00930
                            96 | *************************************************** U6D00940
                            97 | * FETCH *ID RECORD USING RDREC SUBROUTINE         * U6D00950
                            98 | *************************************************** U6D00960
                            99 | *                                                   U6D00970
0000 01C6R                 100 | DL000 DC      DL940     TABLE ADDRESS               U6D00980
0001 C0FE                  101 | DL001 LD      DL000                                 U6D00990
0002 1911*9143             102 |       CALL    RDREC     READ *ID RECORD             U6D01000
0004 6500 01A3R            103 |       LDX  L1 DX                                    U6D01010
0006 D0F9                  104 |       STO     DL000     STORE SYSTEM SUBR ENTRY     U6D01020
0007 C400 002C             105 | DL010 LD   L  $IREQ     SAVE KB INTRPT RTN ENTRY    U6D01030
                           106 | *************************************************** U6D01040
                           107 | * LOCKOUT KEYBOARD REQUEST                          U6D01050
                           108 | *************************************************** U6D01060
0009 D115                  109 |       STO   1 DL900-DX                              U6D01070
000A C116                  110 |       LD    1 DL901-DX                              U6D01080
000B D400 002C             111 |       STO  L  $IREQ                                 U6D01090
000D C101                  112 |       LD    1 DL800-DX                              U6D01100
000E D400 019DR            113 |       STO  L  DL500     ZERO ENTRY POINT            U6D01110
                           114 | *                                                   U6D01120
                           115 | *************************************************** U6D01130
                           116 | * FETCH SYSTEM CARTRIDGE DCOM                     * U6D01140
                           117 | *************************************************** U6D01150
                           118 | *                                                   U6D01160
0010 C105                  119 | DL020 LD    1 DL810-DX  FETCH I/P ADDR              U6D01170
0011 1890                  120 |       SRT     16                                    U6D01180
0012 C106                  121 |       LD    1 DL811-DX  FETCH FUNCTION CODE         U6D01190
0013 4400 00F2             122 |       BSI  L  DZ000                                 U6D01200
0015 7400 00EE             123 | DL021 MDX  L  $DBSY,0                               U6D01210
0017 70FD                  124 |       MDX     DL021     BUSY                        U6D01220
                           125 | *************************************************** U6D01230
                           126 | * SEARCH DCOM AND THE AVAILABLE CARTRIDGES FOR    * U6D01240
                           127 | * THE SPECIFIED CARTRIDGE                         * U6D01250
                           128 | *************************************************** U6D01260
                           129 | *                                                   U6D01270
0018 C103                  130 |       LD    1 DL804-DX                              U6D01280
0019 D400 004BR            131 |       STO  L  DL049                                 U6D01290
001B 6600 01E4R            132 |       LDX  L2 DC        DCOM ADDRESS                U6D01300
001D C600 0037             133 | DL030 LD   L2 #CIDN     FETCH CARTRIDGE ID          U6D01310
001F 9125                  134 |       S     1 DL942-DX                              U6D01320
0020 4818                  135 |       BSC     +-        CART ID NOT FOUND-SKIP      U6D01330
0021 702A                  136 |       MDX     DL050                                 U6D01340
                           137 | *                                                   U6D01350
0022 7201                  138 |       MDX   2 +1                                    U6D01360
0023 74FF 004BR            139 |       MDX  L  DL049,-1                              U6D01370
0025 70F7                  140 |       MDX     DL030     NEXT CARTRIDGE              U6D01380
                           141 | *                                                   U6D01390
                           142 | *************************************************** U6D01400
                           143 | *IF THE CART ID IS NOT IN DCOM  SEARCH THE CARTS. * U6D01410
                           144 | *************************************************** U6D01420
                           145 | *                                                   U6D01430
0026 6204                  146 |       LDX   2 4                                     U6D01440
0027 C600 009F             147 | DL035 LD   L2 $ACDE     FETCH DISK DRIVE AREA CODE  U6D01450
0029 4820                  148 |       BSC     Z                                     U6D01460
002A 7008                  149 |       MDX     DL040     DRIVE AVAILABLE             U6D01470
                           150 | *                                                   U6D01480
002B 72FF                  151 | DL036 MDX   2 -1        ALL DRIVE TESTED IF ZERO    U6D01490
002C 70FA                  152 |       MDX     DL035     NEXT DRIVE                  U6D01500
                           153 | *                                                   U6D01510
002D 4400 015BR            154 |       BSI  L  DL300     TO ERROR PRINT              U6D01520
                           155 | *                                                   U6D01530
002F 4400 0194R            156 |       BSI  L  DL450     TO KB RESET RTN             U6D01540
                           157 | *                                                   U6D01550
0031 6038                  158 |       EXIT              E O J  ERROR CONDITION      U6D01560
                           159 | *************************************************** U6D01570
                           160 | * SETUP TO READ AND CHECK ID OF AVAILABLE CARTS   * U6D01580
                           161 | *************************************************** U6D01590
                           162 | *                                                   U6D01600
0032 0000                  163 | DL920 DC      *-*       SAVE DRIVE NO.              U6D01610
0033 6AFE                  164 | DL040 STX   2 DL920     XR2 CONTAINS DRIVE NO.      U6D01620
0034 C0FD                  165 |       LD      DL920                                 U6D01630
0035 100C                  166 |       SLA     12        PLACE IN DRIVE NO POSITION  U6D01640
0036 D400 0325R            167 |       STO  L  DL971     STORE IN I/O HEADER         U6D01650
0038 D117                  168 |       STO   1 DL902-DX  SAVE DRIVE NO.              U6D01660
0039 C10C                  169 |       LD    1 DL817-DX  FETCH I/O HEADER            U6D01670
003A 1890                  170 |       SRT     16                                    U6D01680
003B C106                  171 |       LD    1 DL811-DX  FETCH FUNCTION CODE         U6D01690
003C 4400 00F2             172 |       BSI  L  DZ000                                 U6D01700
003E 7400 00EE             173 | DL041 MDX  L  $DBSY,0   SKIP IF COMPLETE            U6D01710
0040 70FD                  174 |       MDX     DL041                                 U6D01720
                           175 | *                                                   U6D01730
                           176 | *                                                   U6D01740
0041 C400 0329R            177 |       LD   L  DL972+3   FETCH CART ID               U6D01750
0043 9125                  178 |       S     1 DL942-DX                              U6D01760
0044 4820                  179 |       BSC     Z                                     U6D01770
0045 70E5                  180 |       MDX     DL036     ID NOT SAME-GET NEXT CART   U6D01780
                           181 | *                                                   U6D01790
0046 4400 0054R            182 | DL045 BSI  L  DL100     TO DELETE                   U6D01800
                           183 | *                                                   U6D01810
0048 4400 012CR            184 |       BSI  L  DL200     TO PRINT END MESSAGE        U6D01820
                           185 | *                                                   U6D01830
004A 6038                  186 |       EXIT              END OF PROGRAM              U6D01840
                           187 | *                                                   U6D01850
                           188 | *************************************************** U6D01860
                           189 | *SETUP FOR DELETE OF CART FOUND IN DCOM           * U6D01870
                           190 | *************************************************** U6D01880
004B 0000                  191 | DL049 DC      *-*                                   U6D01890
004C C103                  192 | DL050 LD    1 DL804-DX                              U6D01900
004D 90FD                  193 |       S       DL049                                 U6D01910
004E D11F                  194 |       STO   1 DL910-DX                              U6D01920
004F 100C                  195 |       SLA     12                                    U6D01930
0050 D400 0325R            196 |       STO  L  DL971                                 U6D01940
0052 D117                  197 |       STO   1 DL902-DX                              U6D01950
0053 70F2                  198 |       MDX     DL045     DELETE CIB                  U6D01960
                           199 | *                                                   U6D01970
                           200 | *                                                   U6D01980
DLCIB- DELETE CIB
 
                           202 | *************************************************** U6D02000
                           203 | * DELETE CIB FROM SPECIFIED CARTRIDGE             * U6D02010
                           204 | * UPDATE COMMA AND DCOM                           * U6D02020
                           205 | *************************************************** U6D02030
                           206 | *                                                   U6D02040
0054 0000                  207 | DL100 DC      *-*       ENTRY/EXIT                  U6D02050
0055 C10E                  208 |       LD    1 DL819-DX  FETCH WD COUNT              U6D02060
0056 D400 0324R            209 |       STO  L  DL970                                 U6D02070
0058 C117                  210 |       LD    1 DL902-DX  FETCH DRIVE NO.             U6D02080
0059 8102                  211 |       A     1 DL801-DX  INCR TO SCTR 1              U6D02090
005A D400 0325R            212 |       STO  L  DL971                                 U6D02100
005C C10C                  213 |       LD    1 DL817-DX  FETCH WD CNT-SCTR ADDR      U6D02110
005D 1890                  214 |       SRT     16                                    U6D02120
005E C106                  215 |       LD    1 DL811-DX  FUNCTION CODE               U6D02130
005F 4400 00F2             216 |       BSI  L  DZ000                                 U6D02140
                           217 | *                                                   U6D02150
0061 7400 00EE             218 | DL105 MDX  L  $DBSY,0                               U6D02160
0063 70FD                  219 |       MDX     DL105                                 U6D02170
                           220 | *                                                   U6D02180
0064 C400 032ER            221 |       LD   L  DL972+8                               U6D02190
0066 4818                  222 |       BSC     +-                                    U6D02200
0067 7005                  223 |       MDX     DL110                                 U6D02210
0068 4400 015BR            224 | DL107 BSI  L  DL300                                 U6D02220
006A 4400 0194R            225 |       BSI  L  DL450     KB RESET                    U6D02230
006C 6038                  226 |       EXIT              ERROR EXIT***************   U6D02240
                           227 | *                                                   U6D02250
                           228 | *************************************************** U6D02260
                           229 | * FETCH THE SECTOR ADDRESS OF THE CIB FROM DCOM   * U6D02270
                           230 | * FETCH THE FILE PROTECT ADDRESS FROM DCOM        * U6D02280
                           231 | *************************************************** U6D02290
                           232 | *                                                   U6D02300
006D C117                  233 | DL110 LD    1 DL902-DX  FETCH DRIVE NO.             U6D02310
006E 180C                  234 |       SRA     12                                    U6D02320
006F 810F                  235 |       A     1 DL820-DX  ADD DCOM ADDRESS            U6D02330
0070 D001                  236 |       STO     DL115+1                               U6D02340
0071 6600 0000             237 | DL115 LDX  L2 *-*       XR2 CONTAINS DCOM           U6D02350
0073 C600 003C             238 |       LD   L2 #CIBA     FETCH CIB SCTR ADDRESS      U6D02360
0075 D118                  239 |       STO   1 DL903-DX                              U6D02370
0076 1004                  240 |       SLA     4         CHECK FOR ALREADY       2-7 U6D02372
0077 4C18 0068R            241 |       BSC  L  DL107,+-  *DELETED.BR IF YES      2-7 U6D02374
0079 C600 002D             242 |       LD   L2 #FPAD     FETCH PFAD SCTR ADDRESS     U6D02380
007B D119                  243 |       STO   1 DL904-DX                              U6D02390
007C C600 0050             244 |       LD   L2 #ULET     FETCH LET SCTR ADDR         U6D02400
007E D11A                  245 |       STO   1 DL905-DX                              U6D02410
007F C600 0023             246 |       LD   L2 #ANDU                             2-4 U6D02412
0081 D120                  247 |       STO   1 DL911-DX  SAVE #ANDU              2-4 U6D02414
0082 C600 0028             248 |       LD   L2 #BNDU                             2-4 U6D02416
0084 D121                  249 |       STO   1 DL912-DX  SAVE #BNDU              2-4 U6D02418
                           250 | *************************************************** U6D02420
                           251 | * GET LET TO FIND THE SCTR ADDR OF THE USERS AREA * U6D02430
                           252 | *************************************************** U6D02440
0085 C117                  253 |       LD    1 DL902-DX  FETCH DRIVE NO.             U6D02450
0086 E91A                  254 |       OR    1 DL905-DX  OR SECTOR ADDR OF LET       U6D02460
0087 D400 0325R            255 |       STO  L  DL971     PLACE IN I/O HEADER         U6D02470
0089 C10C                  256 |       LD    1 DL817-DX                              U6D02480
008A 1890                  257 |       SRT     16                                    U6D02490
008B C106                  258 |       LD    1 DL811-DX  FETCH FUNCTION CODE         U6D02500
008C 4400 00F2             259 |       BSI  L  DZ000                                 U6D02510
008E 7400 00EE             260 | DL117 MDX  L  $DBSY,0   SKIP IF COMPLETE            U6D02520
0090 70FD                  261 |       MDX     DL117                                 U6D02530
0091 C400 0327R            262 |       LD   L  DL972+1   FETCH UA SCTR ADDR          U6D02540
0093 E917                  263 |       OR    1 DL902-DX                              U6D02550
0094 D11B                  264 |       STO   1 DL906-DX                              U6D02560
                           265 | *************************************************** U6D02570
                           266 | * COMPUTE THE NUMBER OF SCTRS IN THE UA             U6D02580
                           267 | *************************************************** U6D02590
0095 C119                  268 |       LD    1 DL904-DX  FETCH FPAD                  U6D02600
0096 911B                  269 |       S     1 DL906-DX  UA                          U6D02610
0097 D11C                  270 |       STO   1 DL907-DX  NUMBER SCTR IN UA           U6D02620
                           271 | *************************************************** U6D02630
                           272 | * SETUP THE FROM-TO ADDRESS FOR MOVE THE UA       * U6D02640
                           273 | *************************************************** U6D02650
0098 C117                  274 |       LD    1 DL902-DX  FETCH DRIVE NO              U6D02660
0099 E918                  275 |       OR    1 DL903-DX  SET TO SCTR ADDRESS         U6D02670
009A D11E                  276 |       STO   1 DL909-DX                              U6D02680
009B C117                  277 |       LD    1 DL902-DX                              U6D02690
009C E91B                  278 |       OR    1 DL906-DX  SET FROM SCTR ADDRESS       U6D02700
009D D11D                  279 |       STO   1 DL908-DX                              U6D02710
009E C11C                  280 |       LD    1 DL907-DX  FETCH NO SCTR TO MOVE       U6D02720
009F 4818                  281 |       BSC     +-        IF NON-ZERO MOVE USERS AREA U6D02730
00A0 7025                  282 |       MDX     DL127     IF ZERO BYPASS              U6D02740
DLCIB- DELETE CIB
 
00A1 6B06                  284 |       STX   3 DL123+1                               U6D02760
00A2 6780 01C2R            285 |       LDX  I3 DL910     DRIVE NUMBER                U6D02770
00A4 C101                  286 |       LD    1 DL800-DX  ZERO TO FPAD OF SPEC. CART  U6D02780
00A5 D700 0095             287 |       STO  L3 $FPAD                                 U6D02790
00A7 6700 0000             288 | DL123 LDX  L3 *-*       RESTORE XR3                 U6D02800
                           289 | *                                                   U6D02810
                           290 | *************************************************** U6D02820
                           291 | *DELETE CIB AND MOVE THE UA DOWN                  * U6D02830
                           292 | *************************************************** U6D02840
                           293 | *                                                   U6D02850
00A9 C11D                  294 | DL120 LD    1 DL908-DX  SECTOR TO I/O HEADER        U6D02860
00AA D400 0325R            295 |       STO  L  DL971                                 U6D02870
00AC 8102                  296 |       A     1 DL801-DX  INCR SCTR ADDR              U6D02880
00AD D11D                  297 |       STO   1 DL908-DX                              U6D02890
00AE C10C                  298 |       LD    1 DL817-DX  I/O HEADER                  U6D02900
00AF 1890                  299 |       SRT     16                                    U6D02910
00B0 C106                  300 |       LD    1 DL811-DX  FUNCTION CODE               U6D02920
00B1 4400 00F2             301 |       BSI  L  DZ000     TO DISK READ                U6D02930
00B3 7400 00EE             302 | DL122 MDX  L  $DBSY,0                               U6D02940
00B5 70FD                  303 |       MDX     DL122     BUSY                        U6D02950
                           304 | *                                                   U6D02960
                           305 | *                                                   U6D02970
                           306 | *     WRITE UA                                      U6D02980
                           307 | *                                                   U6D02990
00B6 C11E                  308 |       LD    1 DL909-DX  GET SCTR ADDR               U6D03000
00B7 D400 0325R            309 |       STO  L  DL971                                 U6D03010
00B9 8102                  310 |       A     1 DL801-DX  INCR TO SCTR ADDR           U6D03020
00BA D11E                  311 |       STO   1 DL909-DX                              U6D03030
00BB C10C                  312 |       LD    1 DL817-DX  I/O HEADER                  U6D03040
00BC 1890                  313 |       SRT     16                                    U6D03050
00BD C110                  314 |       LD    1 DL821-DX  FUNCTION CODE               U6D03060
00BE 4400 00F2             315 |       BSI  L  DZ000     TO DISK WRITE               U6D03070
                           316 | *                                                   U6D03080
00C0 7400 00EE             317 | DL126 MDX  L  $DBSY,0                               U6D03090
00C2 70FD                  318 |       MDX     DL126     BUSY                        U6D03100
                           319 | *                                                   U6D03110
00C3 74FF 01BFR            320 |       MDX  L  DL907,-1  LAST UA SCTR MOVED          U6D03120
00C5 70E3                  321 |       MDX     DL120     MOVE NEXT SCTR              U6D03130
                           322 | *                                                   U6D03140
                           323 | *************************************************** U6D03150
                           324 | * ALTER $FPAD IN RESIDENT MONITOR                 * U6D03160
                           325 | *************************************************** U6D03170
                           326 | *                                                   U6D03180
00C6 C101                  327 | DL127 LD    1 DL800-DX  ZREO CIB SCTR ADDR IN DCOM  U6D03190
00C7 D600 003C             328 |       STO  L2 #CIBA                                 U6D03200
                           329 | *                                                   U6D03210
00C9 6B10                  330 |       STX   3 DL129+1   SAVE XR3                    U6D03220
00CA 6780 01C2R            331 |       LDX  I3 DL910     LD DR NO FOR STORING $FPAD  U6D03230
00CC C11E                  332 |       LD    1 DL909-DX                              U6D03240
00CD D600 002D             333 |       STO  L2 #FPAD     CHANGE DECOM FPAD           U6D03250
00CF D700 0095             334 |       STO  L3 $FPAD     FILE PROTECT ADDR TO COMMA  U6D03260
00D1 C120                  335 |       LD    1 DL911-DX                          2-4 U6D03262
00D2 9114                  336 |       S     1 DL825-DX  UPDATE #ANDU            2-4 U6D03263
00D3 D600 0023             337 |       STO  L2 #ANDU     *IN DCOM                2-4 U6D03264
00D5 C121                  338 |       LD    1 DL912-DX                          2-4 U6D03265
00D6 9114                  339 |       S     1 DL825-DX  UPDATE #BNDU            2-4 U6D03266
00D7 D600 0028             340 |       STO  L2 #BNDU     *IN DCOM                2-4 U6D03267
00D9 6700 0000             341 | DL129 LDX  L3 *-*       RESTORE XR3                 U6D03270
                           342 | *                                                   U6D03280
                           343 | *                                                   U6D03290
                           344 | *************************************************** U6D03300
                           345 | * WRITE UPDATED DCOM BACK ON SYSTEM CARTRIDGE     * U6D03310
                           346 | * AND ON THE CARTRIDGE FROM WHICH THE CIB WAS     * U6D03320
                           347 | * DELETED.                                        * U6D03330
                           348 | *************************************************** U6D03340
00DB C105                  349 | DL130 LD    1 DL810-DX  I/O HDR ADDR                U6D03350
00DC 1890                  350 |       SRT     16                                    U6D03360
00DD C110                  351 |       LD    1 DL821-DX                              U6D03370
00DE 4400 00F2             352 |       BSI  L  DZ000                                 U6D03380
00E0 7400 00EE             353 | DL132 MDX  L  $DBSY,0   DCOM TO MASTER CARTRIDGE    U6D03390
00E2 70FD                  354 |       MDX     DL132                                 U6D03400
00E3 C101                  355 |       LD    1 DL800-DX                              U6D03410
00E4 D400 01ECR            356 |       STO  L  DL966+8                               U6D03420
00E6 C140                  357 |       LD    1 DL965-DX                              U6D03430
00E7 E917                  358 |       OR    1 DL902-DX  OR IN DRIVE NO              U6D03440
00E8 D140                  359 |       STO   1 DL965-DX                              U6D03450
00E9 C105                  360 |       LD    1 DL810-DX                              U6D03460
00EA 1890                  361 |       SRT     16                                    U6D03470
00EB C110                  362 |       LD    1 DL821-DX  FUNCTION CODE               U6D03480
00EC 4400 00F2             363 |       BSI  L  DZ000     WRITE DCOM TO CHANGE CART   U6D03490
00EE 7400 00EE             364 | DL135 MDX  L  $DBSY,0                               U6D03500
00F0 70FD                  365 |       MDX     DL135                                 U6D03510
                           366 | *                                                   U6D03520
                           367 | *                                                   U6D03530
                           368 | *************************************************** U6D03540
                           369 | *CHANGE USER AREA SECTOR ADDR IN LET              * U6D03550
                           370 | *************************************************** U6D03560
00F1 C117                  371 | DL150 LD    1 DL902-DX  DRIVE NO                    U6D03570
00F2 E91A                  372 |       OR    1 DL905-DX  LET SCTR ADDR               U6D03580
00F3 D400 0325R            373 |       STO  L  DL971     PUT IN I/O HDR              U6D03590
                           374 | *                                                   U6D03600
                           375 | * READ LET OF  SPECIFIED CARTRIDGE                  U6D03610
                           376 | *                                                   U6D03620
00F5 C10C                  377 | DL152 LD    1 DL817-DX  FETCH HDR                   U6D03630
00F6 1890                  378 |       SRT     16                                    U6D03640
00F7 C106                  379 |       LD    1 DL811-DX                              U6D03650
00F8 4400 00F2             380 |       BSI  L  DZ000     READ LET                    U6D03660
00FA 7400 00EE             381 | DL155 MDX  L  $DBSY,0                               U6D03670
00FC 70FD                  382 |       MDX     DL155     BUSY                        U6D03680
                           383 | *                                                   U6D03690
                           384 | * STORE UA SCTR ADDR IN SECOND WORD OF LET SCTR     U6D03700
                           385 | *                                                   U6D03710
00FD C118                  386 | DL160 LD    1 DL903-DX  FETCH SCTR ADDR             U6D03720
00FE 1004                  387 |       SLA     4                                     U6D03730
00FF 1804                  388 |       SRA     4                                     U6D03740
0100 D400 0327R            389 |       STO  L  DL972+1   PLACE IN LET                U6D03750
                           390 | *                                                   U6D03760
                           391 | *                                                   U6D03770
                           392 | *                                                   U6D03780
                           393 | * WRITE LET SECTOR                                  U6D03790
                           394 | *                                                   U6D03800
0102 C10C                  395 | DL161 LD    1 DL817-DX  I/O HDR                     U6D03810
0103 1890                  396 |       SRT     16                                    U6D03820
0104 C110                  397 |       LD    1 DL821-DX  FUNCTION CODE               U6D03830
0105 4400 00F2             398 |       BSI  L  DZ000     WRITE LET SCTR              U6D03840
0107 7400 00EE             399 | DL162 MDX  L  $DBSY,0                               U6D03850
0109 70FD                  400 |       MDX     DL162     BUSY                        U6D03860
                           401 | *                                                   U6D03870
                           402 | *************************************************** U6D03880
                           403 | * TEST FOR ANOTHER LET SECTOR                     * U6D03890
                           404 | *************************************************** U6D03900
                           405 | *                                                   U6D03910
010A C400 032AR            406 |       LD   L  DL972+4                               U6D03920
010C 4818                  407 |       BSC     +-                                    U6D03930
010D 7009                  408 |       MDX     DL170     NO MORE LET SECTORS         U6D03940
                           409 | *                                                   U6D03950
010E 9104                  410 |       S     1 DL808-DX  CHAIN ADDR EQUAL FLET       U6D03960
010F 4818                  411 |       BSC     +-                                    U6D03970
0110 7006                  412 |       MDX     DL170     NO MORE LET SECTORS         U6D03980
                           413 | *                                                   U6D03990
0111 C400 032AR            414 |       LD   L  DL972+4   GET NEXT LET SECT ADDR 2-12 U6D03995
0113 E917                  415 |       OR    1 DL902-DX  *AND ADD DRIVE NO.     2-12 U6D04000
0114 D400 0325R            416 |       STO  L  DL971                                 U6D04010
0116 70DE                  417 |       MDX     DL152                                 U6D04020
                           418 | *                                                   U6D04030
0117 C10E                  419 | DL170 LD    1 DL819-DX  FETCH SECTOR COUNT          U6D04040
0118 9400 0329R            420 |       S    L  DL972+3   SUBTRACT WORDS AVAIL        U6D04050
011A 8113                  421 |       A     1 DL824-DX  ADD ADDR OF I/O AREA        U6D04060
011B D002                  422 |       STO     DL172+1   SET-UP DB CNT ADDRESS       U6D04070
011C D004                  423 |       STO     DL173+1                               U6D04080
011D C400 0000             424 | DL172 LD   L  *-*       FETCH 1DUMY DB CNT FROM LET U6D04090
011F 8114                  425 |       A     1 DL825-DX  ADD SIZE OF CIB             U6D04100
0120 D400 0000             426 | DL173 STO  L  *-*       NEW DB CNT TO LET           U6D04110
0122 C10C                  427 |       LD    1 DL817-DX  I/O HEADER                  U6D04120
0123 1890                  428 |       SRT     16                                    U6D04130
0124 C110                  429 |       LD    1 DL821-DX  FUNCTION CODE               U6D04140
0125 4400 00F2             430 |       BSI  L  DZ000     WRITE LAST LET SECTOR       U6D04150
0127 7400 00EE             431 | DL174 MDX  L  $DBSY,0   WRITE COMPLETE              U6D04160
0129 70FD                  432 |       MDX     DL174     NO                          U6D04170
                           433 | *                                                   U6D04180
012A 4C80 0054R            434 |       BSC  I  DL100     RETURN                      U6D04190
                           435 | *                                                   U6D04200
DLCIB- PRINT SIGN OFF MESSAGE
 
                           437 | *************************************************** U6D04220
                           438 | * SIGN OFF MESSAGE PRINTING                       * U6D04230
                           439 | *************************************************** U6D04240
                           440 | *                                                 * U6D04250
012C 0000                  441 | DL200 DC      *-*       ENTRY POINT                 U6D04260
012D C112                  442 |       LD    1 DL823-DX  I/O HEADER                  U6D04270
012E 1890                  443 |       SRT     16                                    U6D04280
012F C10B                  444 |       LD    1 DL816-DX  FUNCTION CODE               U6D04290
0130 4480 0000R            445 |       BSI  I  DL000     PRINT                       U6D04300
0132 7400 0036             446 | DL202 MDX  L  $PBSY,0                               U6D04310
0134 70FD                  447 |       MDX     DL202     BUSY                        U6D04320
0135 C118                  448 |       LD    1 DL903-DX  FETCH UA SCTR ADDR          U6D04330
0136 D400 0189R            449 |       STO  L  DL921                                 U6D04340
0138 4400 0169R            450 |       BSI  L  DL400     TO CONVERT TO EBCDIC        U6D04350
013A C400 018AR            451 |       LD   L  DL922     STORE IN PRINT LINE         U6D04360
013C D400 01D7R            452 |       STO  L  DL957                                 U6D04370
013E C400 018BR            453 |       LD   L  DL922+1                               U6D04380
0140 D400 01D8R            454 |       STO  L  DL957+1                               U6D04390
                           455 | *                                                   U6D04400
0142 C11E                  456 |       LD    1 DL909-DX  FPAD SCTR ADDR              U6D04410
0143 D400 0189R            457 |       STO  L  DL921                                 U6D04420
0145 4400 0169R            458 |       BSI  L  DL400                                 U6D04430
                           459 | *                                                   U6D04440
0147 C400 018AR            460 |       LD   L  DL922     FPAD  TO PRINT              U6D04450
0149 D400 01DFR            461 |       STO  L  DL959+6                               U6D04460
014B C400 018BR            462 |       LD   L  DL922+1                               U6D04470
014D D400 01E0R            463 |       STO  L  DL959+7                               U6D04480
                           464 | *                                                   U6D04490
                           465 | *                                                   U6D04500
                           466 | * FETCH PRINT SUBROUTINE AND PRINT MESSAGE        * U6D04510
                           467 | *                                                   U6D04520
014F C10A                  468 |       LD    1 DL815-DX                              U6D04530
0150 1890                  469 |       SRT     16                                    U6D04540
0151 C10B                  470 |       LD    1 DL816-DX  FUNCTION CODE               U6D04550
0152 4480 0000R            471 |       BSI  I  DL000     PRINT                       U6D04560
0154 7400 0036             472 | DL215 MDX  L  $PBSY,0                               U6D04570
0156 70FD                  473 |       MDX     DL215     BUSY                        U6D04580
                           474 | *                                                   U6D04590
0157 4400 0194R            475 |       BSI  L  DL450                                 U6D04600
                           476 | *                                                   U6D04610
0159 4C80 012CR            477 |       BSC  I  DL200     RETURN                      U6D04620
                           478 | *                                                   U6D04630
015B 0000                  479 | DL300 DC      *-*                                   U6D04640
015C C107                  480 |       LD    1 DL812-DX  ERROR TO PRINT LINE         U6D04650
015D D136                  481 |       STO   1 DL959-DX                              U6D04660
015E C108                  482 |       LD    1 DL813-DX                              U6D04670
015F D137                  483 |       STO   1 DL959+1-DX                            U6D04680
0160 C109                  484 |       LD    1 DL814-DX                              U6D04690
0161 D138                  485 |       STO   1 DL959+2-DX                            U6D04700
0162 C10A                  486 |       LD    1 DL815-DX  FETCH O/P ADDRESS           U6D04710
0163 1890                  487 |       SRT     16                                    U6D04720
0164 C10B                  488 |       LD    1 DL816-DX  FETCH FUNCTION CODE         U6D04730
0165 4480 0000R            489 |       BSI  I  DL000     TO SYSTEMS PRT SUBR         U6D04740
0167 4C80 015BR            490 |       BSC  I  DL300     RETURN                      U6D04750
DLCIB - BINARY TO PACK EBCDIC
 
                           492 | *************************************************** U6D04770
0169 0000                  493 | DL400 DC      *-*                                   U6D04780
016A 6204                  494 |       LDX   2 4                                     U6D04790
016B C01D                  495 | DL403 LD      DL921     FETCH BINARY NO.            U6D04800
016C 1884                  496 |       SRT     4         SET-UP FOR HEX              U6D04810
016D D01B                  497 |       STO     DL921                                 U6D04820
016E 1090                  498 |       SLT     16                                    U6D04830
016F 180C                  499 |       SRA     12                                    U6D04840
0170 D01B                  500 |       STO     DL925                                 U6D04850
0171 901B                  501 |       S       DL899                                 U6D04860
0172 4808                  502 |       BSC     +         GREATER THAN 9              U6D04870
0173 7013                  503 |       MDX     DL408                                 U6D04880
0174 D017                  504 |       STO     DL925                                 U6D04890
0175 C018                  505 |       LD      DL898     FETCH /00C0                 U6D04900
0176 E815                  506 | DL404 OR      DL925     OR IN NUMBER                U6D04910
0177 D600 018ER            507 |       STO  L2 DL926-1   SAVE NO                     U6D04920
0179 72FF                  508 |       MDX   2 -1        RETURN IF ZERO              U6D04930
017A 70F0                  509 |       MDX     DL403                                 U6D04940
017B C016                  510 |       LD      DL926+3   PACK                        U6D04950
017C 1888                  511 |       SRT     8         CONVERTED                   U6D04960
017D C013                  512 |       LD      DL926+2   NUMBER                      U6D04970
017E 1088                  513 |       SLT     8         FOR                         U6D04980
017F D00B                  514 |       STO     DL922+1   PRINT                       U6D04990
0180 C00F                  515 |       LD      DL926+1   *SUBROUTINE                 U6D05000
0181 1888                  516 |       SRT     8                                     U6D05010
0182 C00C                  517 |       LD      DL926                                 U6D05020
0183 1088                  518 |       SLT     8                                     U6D05030
0184 D005                  519 |       STO     DL922                                 U6D05040
0185 4C80 0169R            520 |       BSC  I  DL400     RETURN                      U6D05050
                           521 | *                                                   U6D05060
                           522 | *                                                   U6D05070
0187 C00B                  523 | DL408 LD      DL897     FETCH /00F0                 U6D05080
0188 70ED                  524 |       MDX     DL404                                 U6D05090
                           525 | *                                                   U6D05100
                           526 | *                                                   U6D05110
                           527 | *                                                   U6D05120
                           528 | *                                                   U6D05130
                           529 | *                                                   U6D05140
                           530 | *************************************************** U6D05150
                           531 | * CONVERT CONSTANTS                               * U6D05160
                           532 | *************************************************** U6D05170
                           533 | *                                                   U6D05180
0189 0000                  534 | DL921 DC      *-*                                   U6D05190
018A 0000                  535 | DL922 DC      *-*                                   U6D05200
018B 0000                  536 |       DC      *-*                                   U6D05210
018C 0000                  537 | DL925 DC      *-*                                   U6D05220
018D 0009                  538 | DL899 DC      9                                     U6D05230
018E 00C0                  539 | DL898 DC      /00C0                                 U6D05240
018F                       540 | DL926 BSS     4                                     U6D05250
0193 00F0                  541 | DL897 DC      /00F0                                 U6D05260
DLCIB- RESET KB INTERRUPT
 
0194 0000                  543 | DL450 DC      *-*                                   U6D05280
0195 C115                  544 |       LD    1 DL900-DX                              U6D05290
0196 D400 002C             545 |       STO  L  $IREQ                                 U6D05300
0198 C004                  546 |       LD      DL500                                 U6D05310
0199 4820                  547 |       BSC     Z                                     U6D05320
019A 7005                  548 |       MDX     DL501                                 U6D05330
019B 4C80 0194R            549 |       BSC  I  DL450                                 U6D05340
                           550 | *************************************************** U6D05350
                           551 | * KEYBOARD INTERRUPT TESTING AND RESET            * U6D05360
                           552 | *************************************************** U6D05370
                           553 | *                                                   U6D05380
019D 0000                  554 | DL500 DC      *-*                                   U6D05390
019E 4C00 00D6             555 |       BSC  L  $I410     TO ISL04 RTN                U6D05400
                           556 | *                                                   U6D05410
01A0 4480 002C             557 | DL501 BSI  I  $IREQ     SERVICE INTRPT REQUEST      U6D05420
01A2 FFFE                  558 |       DC      -2        ERROR CODE                  U6D05430
                           559 | *                                                   U6D05440
DLCIB- CONSTANTS
 
                           561 | *************************************************** U6D05460
                           562 | * CONSTANTS                                       * U6D05470
                           563 | *************************************************** U6D05480
01A3 0000                  564 | DX    DC      *-*                                   U6D05490
01A4                       565 |       BSS  E  0         POINTER WORD FOR XR3        U6D05500
01A4 0000                  566 | DL800 DC      0         ZERO                        U6D05510
01A5 0001                  567 | DL801 DC      1                                     U6D05520
01A6 0004                  568 | DL804 DC      4                                     U6D05530
01A7 0008                  569 | DL808 DC      /0008     FLET SECTOR ADDR            U6D05540
01A8 01E2R                 570 | DL810 DC      DL964     DCOM I/P ADDR               U6D05550
01A9 7000                  571 | DL811 DC      /7000     FUNCTION CODE               U6D05560
01AA C5D9                  572 | DL812 EBC     .ER.                                  U6D05570
01AB D9D6                  573 | DL813 EBC     .RO.                                  U6D05580
01AC D940                  574 | DL814 EBC     .R .                                  U6D05590
01AD 01D1R                 575 | DL815 DC      DL951     PRINT LINE ADDRESS          U6D05600
01AE 7001                  576 | DL816 DC      /7001     FUNCTION CODE               U6D05610
01AF 0324R                 577 | DL817 DC      DL970     DISK I/O AREA ADDRESS       U6D05620
01B0 0010                  578 | DL818 DC      /0010     WD CNT FOR SCTR ZERO        U6D05630
01B1 0140                  579 | DL819 DC      /0140     WD CNT FOR DELETING CIB     U6D05640
01B2 01E4R                 580 | DL820 DC      DL966     I/O ADDR                    U6D05650
01B3 7001                  581 | DL821 DC      /7001     FUNCTION CODE               U6D05660
01B4 0095                  582 | DL822 DC      $FPAD                                 U6D05670
01B5 0469R                 583 | DL823 DC      DL975                                 U6D05680
01B6 0325R                 584 | DL824 DC      DL971     ADDR OF I/O AREA+1          U6D05690
01B7 0100                  585 | DL825 DC      /0100     DB CNT OF CIB               U6D05700
                           586 | *************************************************** U6D05710
                           587 | * WORKING STORAGE                                 * U6D05720
                           588 | *************************************************** U6D05730
01B8                       589 |       BSS  E  0                                     U6D05740
01B8 0000                  590 | DL900 DC      *-*       NORMAL KP ENTRY STORAGE     U6D05750
01B9 019DR                 591 | DL901 DC      DL500                                 U6D05760
01BA 0000                  592 | DL902 DC      *-*       COMPUTE DRIVE NO. AREA      U6D05770
01BB 0000                  593 | DL903 DC      *-*       ADDRESS OF CIB              U6D05780
01BC 0000                  594 | DL904 DC      *-*       FILE PROTECT ADDR           U6D05790
01BD 0000                  595 | DL905 DC      *-*       LET SCTR ADDR               U6D05800
01BE 0000                  596 | DL906 DC      *-*       UA SCTR ADDR                U6D05810
01BF 0000                  597 | DL907 DC      *-*       NUMBER OF UA SECTORS        U6D05820
01C0 0000                  598 | DL908 DC      *-*       FROM SCTR ADDR FOR UA       U6D05830
01C1 0000                  599 | DL909 DC      *-*       TO SCTR ADDR FOR UA         U6D05840
01C2 0000                  600 | DL910 DC      *-*       DRIVE NO RIGHT JUSTIFIED    U6D05850
01C3 0000                  601 | DL911 DC      *-*       #ANDU TEMP STORAGE      2-4 U6D05851
01C4 0000                  602 | DL912 DC      *-*       #BNDU TEMP STORAGE      2-4 U6D05852
DLCIB- WORKING STORAGE AND I/O AREAS
 
                           604 | *************************************************** U6D05870
                           605 | * INPUT/OUTPUT AREAS                              * U6D05880
                           606 | *************************************************** U6D05890
                           607 | *             CONVERTED *ID RECORD                  U6D05900
01C6                       608 |       BSS  E  0                                     U6D05910
01C6 0000                  609 | DL940 DC      *-*       SPACER                      U6D05920
01C7 0000                  610 |       DC      *-*       COUNT                       U6D05930
01C8 0000                  611 | DL942 DC                                            U6D05940
01C9 0000                  612 |       DC                                            U6D05950
01CA 0000                  613 |       DC                                            U6D05960
01CB 0000                  614 |       DC                                            U6D05970
01CC 0000                  615 |       DC                                            U6D05980
01CD 0000                  616 |       DC                                            U6D05990
01CE 0000                  617 |       DC                                            U6D06000
01CF 0000                  618 |       DC                                            U6D06010
01D0                       619 |       BSS  E  1                                     U6D06020
01D1 0010                  620 | DL951 DC      DL963-DL951 WORD COUNT                U6D06030
01D2 4040 4040             621 | DL952 EBC     .    .                                U6D06040
01D4 4040 4040 4040        622 | DL954 EBC     .      .    PRINT LINE                U6D06050
01D7 4040 4040             623 | DL957 EBC     .    .                                U6D06060
01D9 4040 4040 4040 4040   624 | DL959 EBC     .                .                    U6D06070
     4040 4040 4040 4040       |
01E1 4040                  625 | DL963 EBC     .  .                                  U6D06080
01E2                       626 |       BSS  E  0                                     U6D06090
01E2 0140                  627 | DL964 DC      320       WD CNT                      U6D06100
01E3 0001                  628 | DL965 DC      /0001     SCTR ADDR                   U6D06110
01E4                       629 | DL966 BSS     320       DCOM AREA                   U6D06120
0324                       630 |       BSS  E  0                                     U6D06130
0324 0010                  631 | DL970 DC      16                                    U6D06140
0325 0000                  632 | DL971 DC      *-*                                   U6D06150
0326                       633 | DL972 BSS     320       I/O AREA                    U6D06160
0466 0000                  634 |       DC      *-*                                   U6D06170
01E4R                      635 | DC    EQU     DL966                                 U6D06180
0326R                      636 | DD    EQU     DL972                                 U6D06190
0468                       637 |       BSS  E  1         HEADING LINE                U6D06200
0469 0010                  638 | DL975 DC      DL979-DL975                           U6D06210
046A C3C1 D9E3 7B40 4040   639 |       EBC     .CART#     UA/FX           FPAD.      U6D06220
     4040 E4C1 61C6 E740       |
     4040 4040 4040 4040       |
     4040 C6D7 C1C4            |
0479 4040                  640 | DL979 EBC     .  .                                  U6D06230
047A 0000                  641 |       DC      *-*                                   U6D06240
047B                       642 |       END     DL001                                 U6D06250
 
There were no errors in this assembly
 
Program transfer address = 0001
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
#ANDU 0023    89  246  337
#BNDU 0028    90  248  340
#CIBA 003C    93  238  328
#CIDN 0037    92  133
#DCOM 0001    95
#FPAD 002D    91  242  333
#ULET 0050    94  244
$ACDE 009F    85  147
$DBSY 00EE    87  123  173  218  260  302  317  353  364  381  399  431
$FPAD 0095    84  287  334  582
$I410 00D6    86  555
$IREQ 002C    82  105  111  545  557
$PBSY 0036    83  446  472
DC    01E4R  635  132
DD    0326R  636
DL000 0000R  100  101  104  445  471  489
DL001 0001R  101  642
DL010 0007R  105
DL020 0010R  119
DL021 0015R  123  124
DL030 001DR  133  140
DL035 0027R  147  152
DL036 002BR  151  180
DL040 0033R  164  149
DL041 003ER  173  174
DL045 0046R  182  198
DL049 004BR  191  131  139  193
DL050 004CR  192  136
DL100 0054R  207  182  434
DL105 0061R  218  219
DL107 0068R  224  241
DL110 006DR  233  223
DL115 0071R  237  236
DL117 008ER  260  261
DL120 00A9R  294  321
DL122 00B3R  302  303
DL123 00A7R  288  284
DL126 00C0R  317  318
DL127 00C6R  327  282
DL129 00D9R  341  330
DL130 00DBR  349
DL132 00E0R  353  354
DL135 00EER  364  365
DL150 00F1R  371
DL152 00F5R  377  417
DL155 00FAR  381  382
DL160 00FDR  386
DL161 0102R  395
DL162 0107R  399  400
DL170 0117R  419  408  412
DL172 011DR  424  422
DL173 0120R  426  423
DL174 0127R  431  432
DL200 012CR  441  184  477
DL202 0132R  446  447
DL215 0154R  472  473
DL300 015BR  479  154  224  490
DL400 0169R  493  450  458  520
DL403 016BR  495  509
DL404 0176R  506  524
DL408 0187R  523  503
DL450 0194R  543  156  225  475  549
DL500 019DR  554  113  546  591
DL501 01A0R  557  548
DL800 01A4R  566  112  286  327  355
DL801 01A5R  567  211  296  310
DL804 01A6R  568  130  192
DL808 01A7R  569  410
DL810 01A8R  570  119  349  360
DL811 01A9R  571  121  171  215  258  300  379
DL812 01AAR  572  480
DL813 01ABR  573  482
DL814 01ACR  574  484
DL815 01ADR  575  468  486
DL816 01AER  576  444  470  488
DL817 01AFR  577  169  213  256  298  312  377  395  427
DL818 01B0R  578
DL819 01B1R  579  208  419
DL820 01B2R  580  235
DL821 01B3R  581  314  351  362  397  429
DL822 01B4R  582
DL823 01B5R  583  442
DL824 01B6R  584  421
DL825 01B7R  585  336  339  425
DL897 0193R  541  523
DL898 018ER  539  505
DL899 018DR  538  501
DL900 01B8R  590  109  544
DL901 01B9R  591  110
DL902 01BAR  592  168  197  210  233  253  263  274  277  358  371  415
DL903 01BBR  593  239  275  386  448
DL904 01BCR  594  243  268
DL905 01BDR  595  245  254  372
DL906 01BER  596  264  269  278
DL907 01BFR  597  270  280  320
DL908 01C0R  598  279  294  297
DL909 01C1R  599  276  308  311  332  456
DL910 01C2R  600  194  285  331
DL911 01C3R  601  247  335
DL912 01C4R  602  249  338
DL920 0032R  163  164  165
DL921 0189R  534  449  457  495  497
DL922 018AR  535  451  453  460  462  514  519
DL925 018CR  537  500  504  506
DL926 018FR  540  507  510  512  515  517
DL940 01C6R  609  100
DL942 01C8R  611  134  178
DL951 01D1R  620  575
DL952 01D2R  621
DL954 01D4R  622
DL957 01D7R  623  452  454
DL959 01D9R  624  461  463  481  483  485
DL963 01E1R  625  620
DL964 01E2R  627  570
DL965 01E3R  628  357  359
DL966 01E4R  629  356  580  635
DL970 0324R  631  209  577
DL971 0325R  632  167  196  212  255  295  309  373  416  584
DL972 0326R  633  177  221  262  389  406  414  420  636
DL975 0469R  638  583
DL979 0479R  640  638
DX    01A3R  564  103  109  110  112  119  121  130  134  168  169  171  178
                  192  194  197  208  210  211  213  215  233  235  239  243
                  245  247  249  253  254  256  258  263  264  268  269  270
                  274  275  276  277  278  279  280  286  294  296  297  298
                  300  308  310  311  312  314  327  332  335  336  338  339
                  349  351  355  357  358  359  360  362  371  372  377  379
                  386  395  397  410  415  419  421  425  427  429  442  444
                  448  456  468  470  480  481  482  483  484  485  486  488
                  544
DZ000 00F2    88  122  172  216  259  301  315  352  363  380  398  430