User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:u6id_lst

U6ID

Table Of Contents
  • [00004] ID
  • [00062] ID- SYSTEM EQUATES
  • [00069] ID- MAINLINE
  • [00099] ID- KEYBOARD
  • [00144] ID- ERROR MESSAGE
  • [00170] ID- COMPLETION AND SIGN-OFF
  • [00190] ID- CHECK AND CHANGE ID
  • [00257] ID- WRITE NEW ID ON CARTRIDGE
  • [00297] ID- KEYBOARD INTRPT REQUESTED
  • [00309] ID- DCOM TO CHANGEED CARTRIDGE
  • [00324] ID- DCOM TO SYSTEM CARTRIDGE
  • [00344] ID- DISK READ
  • [00376] ID- CONSTANT AND WORKING STORAGE
u6id.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:10 2020
 
Source File: \u6id.asm 
ID
 
                             2 | *************************************************** U6G00020
                             3 | *                                                 * U6G00030
                             4 | * STATUS-VERSION 1                                * U6G00040
                             5 | *                                                 * U6G00050
                             6 | * FUNCTION/OPERATION                              * U6G00060
                             7 | *   *ID IS USED TO CHANGE THE CART ID ON UP TO    * U6G00070
                             8 | *    FOUR DISK CARTS.                             * U6G00080
                             9 | *   *THE NEW IDS ARE SPECIFIED IN A *ID RECORD.   * U6G00090
                            10 | *    THIS RECORD IS READ BY THE RDREC SUBROUTINE. * U6G00100
                            11 | *    AFTER CHECKING FOR INVALID DATA THE DATA     * U6G00110
                            12 | *    IS TRANSFERRED TO ID.                        * U6G00120
                            13 | *   *DCOM OF THE MASTER CARTRIDGE IS FETCHED TO   * U6G00130
                            14 | *    OBTAIN THE CART ID TABLE (#CIDN).            * U6G00140
                            15 | *   *A TEST IS MADE TO DETERMINE IF THE LAST CART * U6G00150
                            16 | *    ID HAS BEEN PROCESSED) IF SO DCOM IS UPDATED * U6G00160
                            17 | *    AND THE SIGN/OFF MESSAGE IS PRINTED.         * U6G00170
                            18 | *   *DCOM IS UPDATED BY CALLING THE SYSUP SUBR.   * U6G00180
                            19 | *   *THE SIGN/OFF MESSAGE IS PRINTED USING CALPR. * U6G00190
                            20 | *   *AFTER PRINTING THE SIGN/OFF EXIT             * U6G00200
                            21 | *   *ALSO BEFORE CHANGING THE IDS THE KEYBOARD    * U6G00210
                            22 | *    REQUEST IS LOCKED OUT AND THEN RESTORED      * U6G00220
                            23 | *    AFTER THE IDS ARE CHANGED.                   * U6G00230
                            24 | *ENTRY POINTS -ID001 ENTRY TO MAINLINE            * U6G00240
                            25 | *INPUT-IDS FROM ALL AVAILABLE DISK DRIVE 1-4.     * U6G00250
                            26 | *      DECOM OF SYSTEMS CARTRIDGE.                * U6G00260
                            27 | *OUTPUT-SAME AS INPUT                             * U6G00270
                            28 | *EXTERNAL REFERENCES-                             * U6G00280
                            29 | *  *SUBROUTINES-                                  * U6G00290
                            30 | *      CALPR                                      * U6G00300
                            31 | *      SYSUP                                      * U6G00310
                            32 | *   *DCOM/COMMA-                                  * U6G00320
                            33 | *      DZ000                                      * U6G00330
                            34 | *      $ACDE                                      * U6G00340
                            35 | *      $DBSY                                      * U6G00350
                            36 | *      $IREQ                                      * U6G00360
                            37 | *      $I410                                      * U6G00370
                            38 | *EXIT                                             * U6G00380
                            39 | *     *NORMAL   CALL EXIT WHEN JOB COMPLETE       * U6G00390
                            40 | *     *ERROR-N/A                                  * U6G00400
                            41 | *TABLES/WORK AREAS                                * U6G00410
                            42 | *   * ID900                                       * U6G00420
                            43 | *   * ID912                                       * U6G00430
                            44 | *   * ID916                                       * U6G00440
                            45 | *   * ID920                                       * U6G00450
                            46 | *   * ID950                                       * U6G00460
                            47 | *   * ID963                                       * U6G00470
                            48 | *   * ID930                                       * U6G00480
                            49 | *   * ID931                                       * U6G00490
                            50 | *   * ID934                                       * U6G00500
                            51 | *   * ID946                                       * U6G00510
                            52 | *   * ID973                                       * U6G00520
                            53 | *   * ID976                                       * U6G00530
                            54 | *ATTRIBUTES- RELOCATABLE                          * U6G00540
                            55 | *NOTES-N/A                                        * U6G00550
                            56 | *                                                 * U6G00560
                            57 | *************************************************** U6G00570
ID- SYSTEM EQUATES
 
00F2                        59 | DZ000 EQU     /0F2 DISK ENTRY POINT                 U6G00590
009F                        60 | $ACDE EQU     /9F  AREA CODE FOR LOGICAL DRIVE 0    U6G00600
00EE                        61 | $DBSY EQU     /EE  DISK BUSY INDR,NON-ZERO=DISK BSY U6G00610
002C                        62 | $IREQ EQU     /2C  ADDR OF INT REQUEST SUBROUTINE   U6G00620
00D6                        63 | $I410 EQU     /D6                                   U6G00630
ID- MAINLINE
 
                            65 | *                                                   U6G00650
                            66 | *GET PRINCIPAL INPUT PRINCIPAL PRINT, AND           U6G00660
                            67 | *PRINCIPAL CONVERSION SUBR IOAR HEADERS FROM SLET   U6G00670
                            68 | *                                                   U6G00680
                            69 | *                                                   U6G00690
                            70 | *                                                   U6G00700
                            71 | *************************************************** U6G00710
0000 013CR                  72 | ID000 DC      ID920                                 U6G00720
0001 C0FE                   73 | ID001 LD      ID000                                 U6G00730
0002 1911*9143              74 |       CALL    RDREC     RD *ID RECORD               U6G00740
0004 D0FB                   75 |       STO     ID000     SAVE SUBR ENTRY POINT       U6G00750
                            76 | *                                                   U6G00760
                            77 | *************************************************** U6G00770
                            78 | * LOCKOUT KEYBOARD REQUEST                        * U6G00780
                            79 | *************************************************** U6G00790
                            80 | *                                                   U6G00800
0005 4007                   81 |       BSI     ID200                                 U6G00810
                            82 | *                                                   U6G00820
                            83 | *************************************************** U6G00830
                            84 | * CHANGE ID                                       * U6G00840
                            85 | *************************************************** U6G00850
                            86 | *                                                   U6G00860
0006 4400 005AR             87 |       BSI  L  ID510                                 U6G00870
                            88 | *************************************************** U6G00880
                            89 | *                                                   U6G00890
0008 4400 0049R             90 |       BSI  L  ID400     SIGN-OFF AND UPDATE DCOM    U6G00900
000A 4400 0018R             91 |       BSI  L  ID225     RESET KB                    U6G00910
000C 6038                   92 |       EXIT                                          U6G00920
ID- KEYBOARD
 
                            94 | *************************************************** U6G00940
                            95 | * KEYBOARD LOCKOUT                                * U6G00950
                            96 | *************************************************** U6G00960
                            97 | *                                                   U6G00970
000D 0000                   98 | ID200 DC      *-*       ENTRY/EXIT                  U6G00980
000E C400 002C              99 |       LD   L  $IREQ     SAVE KB INTRPT RTN ENTRY    U6G00990
0010 D016                  100 |       STO     ID290                                 U6G01000
0011 C016                  101 |       LD      ID291     LOAD MASK                   U6G01010
0012 D400 002C             102 |       STO  L  $IREQ                                 U6G01020
0014 C014                  103 |       LD      ID292     ZERO ENTRY POINT            U6G01030
0015 D00B                  104 |       STO     ID250                                 U6G01040
0016 4C80 000DR            105 |       BSC  I  ID200     RETURN                      U6G01050
                           106 | *                                                   U6G01060
                           107 | *************************************************** U6G01070
                           108 | * RESET KB REQ ENTRY POINT                        * U6G01080
                           109 | *************************************************** U6G01090
0018 0000                  110 | ID225 DC      *-*       ENTRY/EXIT                  U6G01100
0019 C00D                  111 |       LD      ID290     RESET KB                    U6G01110
001A D400 002C             112 |       STO  L  $IREQ                                 U6G01120
001C C004                  113 |       LD      ID250                                 U6G01130
001D 4820                  114 |       BSC     Z                                     U6G01140
001E 7005                  115 |       MDX     ID275                                 U6G01150
001F 4C80 0018R            116 |       BSC  I  ID225                                 U6G01160
                           117 | *                                                   U6G01170
                           118 | *                                                   U6G01180
                           119 | *                                                   U6G01190
                           120 | *************************************************** U6G01200
                           121 | * INTERRUPT                                       * U6G01210
                           122 | *************************************************** U6G01220
                           123 | *                                                   U6G01230
0021 0000                  124 | ID250 DC      *-*                                   U6G01240
0022 4C00 00D6             125 |       BSC  L  $I410     TO ILS04 RTN                U6G01250
                           126 | *                                                   U6G01260
                           127 | *                                                   U6G01270
0024 4480 002C             128 | ID275 BSI  I  $IREQ     SERVICE INTRPT REQUEST      U6G01280
0026 FFFE                  129 |       DC      -2        ERROR CODE                  U6G01290
                           130 | *                                                   U6G01300
                           131 | * KEYBOARD CONSTANTS                                U6G01310
                           132 | *                                                   U6G01320
0027 0000                  133 | ID290 DC      *-*                                   U6G01330
0028 0021R                 134 | ID291 DC      ID250                                 U6G01340
0029 0000                  135 | ID292 DC      /0000                                 U6G01350
                           136 | *                                                   U6G01360
ID- ERROR MESSAGE
 
                           138 | ************************************************    U6G01380
                           139 | *  SET UP ERROR MESSAGE  FOR MISSING CART           U6G01390
                           140 | *  AND PRINT THE MESSAGE WITH THE REST OF THE       U6G01400
                           141 | * TABLE.   PRINT MESSAGE NOTING JOB TERM.           U6G01410
                           142 | **************************************************  U6G01420
                           143 | *                                                   U6G01430
002A 0000                  144 | ID300 DC      *-*       ENTRY  EXIT                 U6G01440
002B C019                  145 |       LD      ID979                                 U6G01450
002C D500 0152R            146 |       STO  L1 ID935                                 U6G01460
002E C017                  147 |       LD      ID979+1                               U6G01470
002F D500 0153R            148 |       STO  L1 ID935+1                               U6G01480
0031 C015                  149 |       LD      ID979+2                               U6G01490
0032 D500 0154R            150 |       STO  L1 ID935+2                               U6G01500
0034 C013                  151 |       LD      ID979+3                               U6G01510
0035 D500 0155R            152 |       STO  L1 ID935+3                               U6G01520
0037 4400 0049R            153 |       BSI  L  ID400                                 U6G01530
0039 C400 012AR            154 |       LD   L  ID791                                 U6G01540
003B D400 011CR            155 |       STO  L  ID790+1                               U6G01550
003D D400 011DR            156 |       STO  L  ID790+2                               U6G01560
003F 0305*35D9             157 |       CALL    CALPR                                 U6G01570
0041 011BR                 158 |       DC      ID790                                 U6G01580
0042 0001                  159 |       DC      1                                     U6G01590
0043 4C80 002AR            160 |       BSC  I  ID300                                 U6G01600
0045 E4D5 E5C1 C9D3 C1C2   161 | ID979 EBC     .UNVAILAB.                            U6G01610
ID- COMPLETION AND SIGN-OFF
 
                           163 | *************************************************** U6G01630
                           164 | * PRINT SIGN-OFF MESSAGE AND UPDATE SYSTEM DCOM   * U6G01640
                           165 | *************************************************** U6G01650
0049 0000                  166 | ID400 DC      *-*       ENTRY/EXIT                  U6G01660
004A 0305*35D9             167 |       CALL    CALPR     PRINT HEADING               U6G01670
004C 0187R                 168 |       DC      ID942                                 U6G01680
004D 0001                  169 |       DC      1                                     U6G01690
004E C400 013DR            170 |       LD   L  ID921                                 U6G01700
0050 D003                  171 |       STO     ID410                                 U6G01710
                           172 | *                                                   U6G01720
0051 0305*35D9             173 |       CALL    CALPR     PRINT CART IDS              U6G01730
0053 0147R                 174 |       DC      ID933                                 U6G01740
0054 0000                  175 | ID410 DC      *-*       NO OF PRINT LINES           U6G01750
                           176 | *                                                   U6G01760
0055 22A2*2917             177 |       CALL    SYSUP                                 U6G01770
0057 01CDR                 178 |       DC      ID90I                                 U6G01780
                           179 | *                                                   U6G01790
0058 4C80 0049R            180 |       BSC  I  ID400     RETURN                      U6G01800
ID- CHECK AND CHANGE ID
 
                           182 | *************************************************** U6G01820
                           183 | *                                                   U6G01830
                           184 | * THE FOLLOWING CHECKS FOR,                       * U6G01840
                           185 | *    *WAS LAST CARTRIDGE PROCESSED,               * U6G01850
                           186 | *    * IS THE DRIVE BE REQUESTED PRESENT          * U6G01860
                           187 | *    *FETCH ID FROM CARTRIDGE                     * U6G01870
                           188 | *    *CHECK ID OF THE CARTRIDGE WITH SYSTEM CARID * U6G01880
                           189 | *    *CHECK FOR END OF THE TABLE                  * U6G01890
                           190 | *    *IF LAST CARTRIDGE PROC GO TO PRINT TABLE    * U6G01900
                           191 | *    *IF CART ID UNEQUAL GO TO ERROR PRINT        * U6G01910
                           192 | *                                                 * U6G01920
                           193 | *************************************************** U6G01930
005A 0000                  194 | ID510 DC      *-*       ENTRY/EXIT                  U6G01940
005B 4400 0108R            195 |       BSI  L  ID700     RD SYSTEM DCOM              U6G01950
005D 6201                  196 |       LDX   2 1         LOAD TABLE CNT              U6G01960
005E 6101                  197 |       LDX   1 1         LOAD DISK DRIVE CNT         U6G01970
005F 74FF 012DR            198 | ID511 MDX  L  ID971,-1  LAST DRIVE                  U6G01980
0061 7002                  199 |       MDX     ID512     *NO                         U6G01990
                           200 | *                                                   U6G02000
0062 4C80 005AR            201 |       BSC  I  ID510     *YES                        U6G02010
                           202 | *                                                   U6G02020
0064 C500 009F             203 | ID512 LD   L1 $ACDE     FETCH AREA CODE FROM COMMA  U6G02030
0066 4C18 00D1R            204 |       BSC  L  ID515,+-  CARTRIDGE PRESENT           U6G02040
                           205 | *                                                   U6G02050
0068 C400 012FR            206 |       LD   L  ID973     MODIFY DRIVE NO             U6G02060
006A 8400 0130R            207 |       A    L  ID974                                 U6G02070
006C D400 012FR            208 |       STO  L  ID973                                 U6G02080
006E 8400 0131R            209 |       A    L  ID975     SETUP DCOM ADDR             U6G02090
0070 D400 0195R            210 |       STO  L  ID900+1                               U6G02100
0072 CC00 012ER            211 |       LDD  L  ID972     MOVE TO I/O AREA            U6G02110
0074 DC00 02DAR            212 |       STD  L  ID950                                 U6G02120
0076 C069                  213 |       LD      ID722                                 U6G02130
0077 1890                  214 |       SRT     16                                    U6G02140
0078 C065                  215 |       LD      ID720                                 U6G02150
0079 4400 00F2             216 |       BSI  L  DZ000                                 U6G02160
007B 7400 00EE             217 |       MDX  L  $DBSY,0                               U6G02170
007D 70FD                  218 |       MDX     *-3                                   U6G02180
007E C400 02DFR            219 |       LD   L  ID950+5   FETCH ID                    U6G02190
0080 9500 01CDR            220 |       S    L1 ID90I     IF NOT EQUAL SYSTEM DECOM   U6G02200
0082 4C20 00D8R            221 |       BSC  L  ID519,Z   * ID GO TO ERROR            U6G02210
0084 6E00 0132R            222 |       STX  L2 ID976     STORE XR2                   U6G02220
0086 C400 0138R            223 |       LD   L  ID930     END OF TABLE                U6G02230
0088 9400 0132R            224 |       S    L  ID976                                 U6G02240
008A 4C28 00D1R            225 |       BSC  L  ID515,Z+                              U6G02250
                           226 | *                                                   U6G02260
008C C400 02DFR            227 |       LD   L  ID950+5   TEST CART ID TO ID          U6G02270
008E 9600 013DR            228 |       S    L2 ID921     *IN TABLE                   U6G02280
0090 4C20 00D1R            229 |       BSC  L  ID515,Z                               U6G02290
0092 C600 013ER            230 |       LD   L2 ID922     CHANGE CART ID              U6G02300
0094 D400 02DFR            231 |       STO  L  ID950+5                               U6G02310
0096 D500 01CDR            232 |       STO  L1 ID90I     NEW ID TO SYSTEMS DECOM     U6G02320
0098 6915                  233 |       STX   1 ID514+1                               U6G02330
0099 6500 0000             234 | ID513 LDX  L1 *-*                                   U6G02340
009B C400 0134R            235 |       LD   L  ID978     MOVE 'COMPLETE' TO          U6G02350
009D D500 0152R            236 |       STO  L1 ID935     *FROM-TO TABLE              U6G02360
009F C400 0135R            237 |       LD   L  ID978+1                               U6G02370
00A1 D500 0153R            238 |       STO  L1 ID935+1                               U6G02380
00A3 C400 0136R            239 |       LD   L  ID978+2                               U6G02390
00A5 D500 0154R            240 |       STO  L1 ID935+2                               U6G02400
00A7 C400 0137R            241 |       LD   L  ID978+3                               U6G02410
00A9 D500 0155R            242 |       STO  L1 ID935+3                               U6G02420
00AB 7110                  243 |       MDX   1 16        INCR TABLE CNT              U6G02430
00AC 69ED                  244 |       STX   1 ID513+1                               U6G02440
00AD 6500 0000             245 | ID514 LDX  L1 *-*                                   U6G02450
00AF 7202                  246 |       MDX   2 2         INCR TABLE POINTER          U6G02460
ID- WRITE NEW ID ON CARTRIDGE
 
                           248 | * WRITE NEW ID ON CARTRIDGE                         U6G02480
                           249 | *                                                   U6G02490
00B0 C02F                  250 |       LD      ID722                                 U6G02500
00B1 1890                  251 |       SRT     16                                    U6G02510
00B2 C02C                  252 |       LD      ID721                                 U6G02520
00B3 4400 00F2             253 |       BSI  L  DZ000                                 U6G02530
00B5 7400 00EE             254 |       MDX  L  $DBSY,0                               U6G02540
00B7 70FD                  255 |       MDX     *-3                                   U6G02550
00B8 C400 0195R            256 |       LD   L  ID900+1   SAVE DRIVE NO.              U6G02560
00BA D026                  257 |       STO     ID723                                 U6G02570
00BB 4400 00F4R            258 |       BSI  L  ID650     DCOM TO SYSTEM CART         U6G02580
00BD C023                  259 |       LD      ID723     RESTORE DRIVE NO.           U6G02590
00BE D400 0195R            260 |       STO  L  ID900+1                               U6G02600
00C0 C021                  261 |       LD      ID724     35 TO WD CNT                U6G02610
00C1 D400 0194R            262 |       STO  L  ID900                                 U6G02620
00C3 4400 00FDR            263 |       BSI  L  ID675     READ FIRST 35 WD OF DCOM    U6G02630
00C5 C400 012ER            264 |       LD   L  ID972                                 U6G02640
00C7 D400 0194R            265 |       STO  L  ID900     RESTORE WD CNT TO 320       U6G02650
00C9 4400 00E9R            266 |       BSI  L  ID600     WRITE DCOM TO CHANGED CART  U6G02660
00CB C400 0131R            267 |       LD   L  ID975     RESET I/O FOR SYSTEM CART   U6G02670
00CD D400 0195R            268 |       STO  L  ID900+1                               U6G02680
00CF 4400 0108R            269 |       BSI  L  ID700     READ SYSTEM DCOM            U6G02690
                           270 | *                                                   U6G02700
00D1 C400 0021R            271 | ID515 LD   L  ID250     CHECK KB INTRPT             U6G02710
00D3 4820                  272 |       BSC     Z                                     U6G02720
00D4 700E                  273 |       MDX     ID550                                 U6G02730
00D5 7101                  274 |       MDX   1 1         INCR DISK DRIVE CNT         U6G02740
00D6 4C00 005FR            275 |       BSC  L  ID511     PROCESS NEXT NO             U6G02750
                           276 | *                                                   U6G02760
00D8 4400 002AR            277 | ID519 BSI  L  ID300                                 U6G02770
00DA 4400 0018R            278 |       BSI  L  ID225                                 U6G02780
00DC 6038                  279 |       EXIT              ERROR EXIT                  U6G02790
00DD 0194R                 280 | ID719 DC      ID900                                 U6G02800
00DE 7000                  281 | ID720 DC      /7000                                 U6G02810
00DF 7001                  282 | ID721 DC      /7001                                 U6G02820
00E0 02DAR                 283 | ID722 DC      ID950                                 U6G02830
00E1 0000                  284 | ID723 DC      *-*       SAVE DRIVE NO.              U6G02840
00E2 0023                  285 | ID724 DC      35        WD CNT FOR DCOM READ        U6G02850
ID- KEYBOARD INTRPT REQUESTED
 
                           287 | *************************************************** U6G02870
                           288 | * KEYBOARD INTRPT REQUESTED                       * U6G02880
                           289 | *************************************************** U6G02890
00E3 4400 0049R            290 | ID550 BSI  L  ID400     PRINT SIGN-OFF              U6G02900
00E5 4400 0018R            291 |       BSI  L  ID225     RESET KB                    U6G02910
                           292 | *                                                   U6G02920
00E7 4C80 005AR            293 |       BSC  I  ID510     RETURN                      U6G02930
                           294 | *                                                   U6G02940
                           295 | *************************************************** U6G02950
                           296 | *                                                   U6G02960
ID- DCOM TO CHANGEED CARTRIDGE
 
                           298 | *************************************************** U6G02980
                           299 | * WRITE NEW DCOM TO CHANGED CARTRIDGE             * U6G02990
                           300 | *************************************************** U6G03000
                           301 | *                                                   U6G03010
00E9 0000                  302 | ID600 DC      *-*       ENTRY/EXIT                  U6G03020
00EA C0F2                  303 |       LD      ID719                                 U6G03030
00EB 1890                  304 |       SRT     16                                    U6G03040
00EC C0F2                  305 |       LD      ID721                                 U6G03050
00ED 4400 00F2             306 |       BSI  L  DZ000                                 U6G03060
00EF 7400 00EE             307 |       MDX  L  $DBSY,0                               U6G03070
00F1 70FD                  308 |       MDX     *-3                                   U6G03080
00F2 4C80 00E9R            309 |       BSC  I  ID600     RETURN                      U6G03090
                           310 | *************************************************** U6G03100
ID- DCOM TO SYSTEM CARTRIDGE
 
                           312 | *************************************************** U6G03120
                           313 | * WRITE DCOM TO SYSTEMS CARTRIDGE                 * U6G03130
                           314 | *************************************************** U6G03140
                           315 | *                                                   U6G03150
00F4 0000                  316 | ID650 DC      *-*       ENTRY/EXIT                  U6G03160
00F5 C400 0131R            317 |       LD   L  ID975     DRIVE NO TO SYSTEMS CART    U6G03170
00F7 D400 0195R            318 |       STO  L  ID900+1                               U6G03180
00F9 4400 00E9R            319 |       BSI  L  ID600     TO DISK WRITE               U6G03190
00FB 4C80 00F4R            320 |       BSC  I  ID650     RETURN                      U6G03200
                           321 | *                                                   U6G03210
00FD 0000                  322 | ID675 DC      *-*       READ DCOM OF CHANGED CART   U6G03220
00FE C0DE                  323 |       LD      ID719                                 U6G03230
00FF 1890                  324 |       SRT     16                                    U6G03240
0100 C0DD                  325 |       LD      ID720                                 U6G03250
0101 4400 00F2             326 |       BSI  L  DZ000     TO DISK ROUTINE             U6G03260
0103 7400 00EE             327 |       MDX  L  $DBSY,0   READ COMPLETE               U6G03270
0105 70FD                  328 |       MDX     *-3                                   U6G03280
0106 4C80 00FDR            329 |       BSC  I  ID675     RETURN                      U6G03290
ID- DISK READ
 
                           331 | *************************************************** U6G03310
                           332 | *READ DCOM FROM SYSTEMS CARTRIDGE                 * U6G03320
                           333 | *************************************************** U6G03330
                           334 | *                                                   U6G03340
0108 0000                  335 | ID700 DC      *-*       ENTRY/EXIT                  U6G03350
0109 C0D3                  336 |       LD      ID719                                 U6G03360
010A 1890                  337 |       SRT     16                                    U6G03370
010B C0D2                  338 |       LD      ID720                                 U6G03380
010C 4400 00F2             339 |       BSI  L  DZ000                                 U6G03390
010E 7400 00EE             340 |       MDX  L  $DBSY,0                               U6G03400
0110 70FD                  341 |       MDX     *-3                                   U6G03410
0111 4C80 0108R            342 |       BSC  I  ID700     RETURN                      U6G03420
                           343 | *************************************************** U6G03430
                           344 | * DISK ERROR ROUTINE                              * U6G03440
                           345 | *************************************************** U6G03450
                           346 | *                                                   U6G03460
0113 0000                  347 | ID750 DC      *-*       ENTRY/EXIT                  U6G03470
0114 0305*35D9             348 |       CALL    CALPR     PRINT ERROR MESSAGE         U6G03480
0116 011BR                 349 |       DC      ID790                                 U6G03490
0117 0001                  350 |       DC      1                                     U6G03500
0118 6038                  351 |       EXIT              ERROR EXIT                  U6G03510
                           352 | *                                                   U6G03520
011A                       353 |       BSS  E  1                                     U6G03530
011B 000F                  354 | ID790 DC      ID791-ID790  WD CNT                   U6G03540
011C C4C9 E2D2 40C5 D9D9   355 |       EBC     .DISK ERROR    JOB TERMINATED.        U6G03550
     D6D9 4040 4040 D1D6       |
     C240 E3C5 D9D4 C9D5       |
     C1E3 C5C4                 |
012A 4040                  356 | ID791 DC      /4040                                 U6G03560
                           357 | *                                                   U6G03570
ID- CONSTANT AND WORKING STORAGE
 
                           359 | *************************************************** U6G03590
                           360 | * CONSTANTS AND WORKING STORAGE                   * U6G03600
                           361 | *************************************************** U6G03610
012C                       362 | ID970 BSS  E  1                                     U6G03620
012D 0005                  363 | ID971 DC      /0005     DISK COUNTER                U6G03630
012E 0140                  364 | ID972 DC      320        DISK WD CNT                U6G03640
012F 0000                  365 | ID973 DC      /0000     MODIFIED I/O AREA CODE      U6G03650
0130 1000                  366 | ID974 DC      /1000     I/O CODE MODIFIER           U6G03660
0131 0001                  367 | ID975 DC      /0001                                 U6G03670
0132 0000                  368 | ID976 DC      *-*                                   U6G03680
0133                       369 | ID977 BSS     1                                     U6G03690
0134 C3D6 D4D7 D3C5 E3C5   370 | ID978 EBC     .COMPLETE.                            U6G03700
                           371 | *                                                   U6G03710
0138 0008                  372 | ID930 DC      /0008     CNTER CONSTANT              U6G03720
0139 0004                  373 | ID931 DC      /0004                                 U6G03730
013A 0040                  374 | ID932 DC      /0040     BLANK TEST MASK             U6G03740
                           375 | *                                                   U6G03750
                           376 | *                                                   U6G03760
013C                       377 |       BSS  E  0         BINARY TABLE                U6G03770
013C 0000                  378 | ID920 DC      *-*       SPACER                      U6G03780
013D 0000                  379 | ID921 DC      *-*       FROM-TO COUNT               U6G03790
013E 0000                  380 | ID922 DC      *-*                                   U6G03800
013F 0000                  381 |       DC      *-*                                   U6G03810
0140 0000                  382 |       DC      *-*                                   U6G03820
0141 0000                  383 |       DC      *-*                                   U6G03830
0142 0000                  384 |       DC      *-*                                   U6G03840
0143 0000                  385 |       DC      *-*                                   U6G03850
0144 0000                  386 |       DC      *-*                                   U6G03860
0145 0000                  387 |       DC      *-*                                   U6G03870
                           388 | *                                                   U6G03880
0146                       389 |       BSS  E  1                                     U6G03890
0147 000F                  390 | ID933 DC      ID936-ID933  WD CNT                   U6G03900
0148 4040 4040             391 | ID934 EBC     .    .                                U6G03910
014A 4040 4040 4040        392 |       EBC     .      .                              U6G03920
014D 4040 4040             393 |       EBC     .    .                                U6G03930
014F 4040 4040 4040        394 |       EBC     .      .                              U6G03940
0152 D5D6 E340 C4D6 D5C5   395 | ID935 EBC     .NOT DONE.                            U6G03950
0156 0040                  396 | ID936 DC      /0040                                 U6G03960
0157 000F                  397 | ID937 DC      ID938-ID937  WD CNT                   U6G03970
0158 4040 4040             398 |       EBC     .    .                                U6G03980
015A 4040 4040 4040        399 |       EBC     .      .                              U6G03990
015D 4040 4040             400 |       EBC     .    .                                U6G04000
015F 4040 4040 4040        401 |       EBC     .      .                              U6G04010
0162 D5D6 E340 C4D6 D5C5   402 |       EBC     .NOT DONE.                            U6G04020
0166 0040                  403 | ID938 DC      /0040                                 U6G04030
0167 000F                  404 | ID939 DC      ID940-ID939  WD CNT                   U6G04040
0168 4040 4040             405 |       EBC     .    .                                U6G04050
016A 4040 4040 4040        406 |       EBC     .      .                              U6G04060
016D 4040 4040             407 |       EBC     .    .                                U6G04070
016F 4040 4040 4040        408 |       EBC     .      .                              U6G04080
0172 D5D6 E340 C4D6 D5C5   409 |       EBC     .NOT DONE.                            U6G04090
0176 0040                  410 | ID940 DC      /0040                                 U6G04100
0177 000F                  411 | ID94A DC      ID941-ID94A WD CNT                    U6G04110
0178 4040 4040             412 |       EBC     .    .                                U6G04120
017A 4040 4040 4040        413 |       EBC     .      .                              U6G04130
017D 4040 4040             414 |       EBC     .    .                                U6G04140
017F 4040 4040 4040        415 |       EBC     .      .                              U6G04150
0182 D5D6 E340 C4D6 D5C5   416 |       EBC     .NOT DONE.                            U6G04160
0186 0040                  417 | ID941 DC      /0040                                 U6G04170
                           418 | *************************************************** U6G04180
                           419 | * HEADING LINE                                    * U6G04190
                           420 | *************************************************** U6G04200
0187 0008                  421 | ID942 DC      ID943-ID942                           U6G04210
0188 C6D9 D6D4             422 |       EBC     .FROM.                                U6G04220
018A 4040 4040 4040        423 |       EBC     .      .                              U6G04230
018D 40E3 D640             424 |       EBC     . TO .                                U6G04240
018F 0040                  425 | ID943 DC      /0040                                 U6G04250
0190 0000                  426 | ID945 DC      *-*       TEST CNT FOR NO OF ITEMS    U6G04260
                           427 | *                                                   U6G04270
0191 0002                  428 | ID998 DC      /0002                                 U6G04280
0192 0000                  429 | ID999 DC      /0000     ERROR FLAG WORD             U6G04290
0194                       430 |       BSS  E  0                                     U6G04300
0194 0140                  431 | ID900 DC      /0140                                 U6G04310
0195 0001                  432 |       DC      /0001                                 U6G04320
0196                       433 | ID902 BSS     320       DISK I/O AREA               U6G04330
02D6 0198R                 434 | ID927 DC      ID902+2   BUFFER ADDRESS              U6G04340
02D7 7002                  435 | ID928 DC      /7002     INPUT FUNCTION CODE         U6G04350
02D8 0197R                 436 |       DC      ID902+1   ADDRESS OF INPUT AREA       U6G04360
019BR                      437 | ID907 EQU     ID902+5   FIRST NO OF FROM FIELD      U6G04370
019CR                      438 | ID908 EQU     ID902+6   2ND NO                      U6G04380
01CDR                      439 | ID90I EQU     ID902+55                              U6G04390
02DA                       440 | ID950 BSS  E  322                                   U6G04400
                           441 | *************************************************** U6G04410
041C 0000                  442 |       DC      *-*                                   U6G04420
041D                       443 |       END     ID001                                 U6G04430
 
There were no errors in this assembly
 
Program transfer address = 0001
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
$ACDE 009F    60  203
$DBSY 00EE    61  217  254  307  327  340
$I410 00D6    63  125
$IREQ 002C    62   99  102  112  128
DZ000 00F2    59  216  253  306  326  339
ID000 0000R   72   73   75
ID001 0001R   73  443
ID200 000DR   98   81  105
ID225 0018R  110   91  116  278  291
ID250 0021R  124  104  113  134  271
ID275 0024R  128  115
ID290 0027R  133  100  111
ID291 0028R  134  101
ID292 0029R  135  103
ID300 002AR  144  160  277
ID400 0049R  166   90  153  180  290
ID410 0054R  175  171
ID510 005AR  194   87  201  293
ID511 005FR  198  275
ID512 0064R  203  199
ID513 0099R  234  244
ID514 00ADR  245  233
ID515 00D1R  271  204  225  229
ID519 00D8R  277  221
ID550 00E3R  290  273
ID600 00E9R  302  266  309  319
ID650 00F4R  316  258  320
ID675 00FDR  322  263  329
ID700 0108R  335  195  269  342
ID719 00DDR  280  303  323  336
ID720 00DER  281  215  325  338
ID721 00DFR  282  252  305
ID722 00E0R  283  213  250
ID723 00E1R  284  257  259
ID724 00E2R  285  261
ID750 0113R  347
ID790 011BR  354  155  156  158  349
ID791 012AR  356  154  354
ID900 0194R  431  210  256  260  262  265  268  280  318
ID902 0196R  433  434  436  437  438  439
ID907 019BR  437
ID908 019CR  438
ID90I 01CDR  439  178  220  232
ID920 013CR  378   72
ID921 013DR  379  170  228
ID922 013ER  380  230
ID927 02D6R  434
ID928 02D7R  435
ID930 0138R  372  223
ID931 0139R  373
ID932 013AR  374
ID933 0147R  390  174
ID934 0148R  391
ID935 0152R  395  146  148  150  152  236  238  240  242
ID936 0156R  396  390
ID937 0157R  397
ID938 0166R  403  397
ID939 0167R  404
ID940 0176R  410  404
ID941 0186R  417  411
ID942 0187R  421  168
ID943 018FR  425  421
ID945 0190R  426
ID94A 0177R  411
ID950 02DAR  440  212  219  227  231  283
ID970 012CR  362
ID971 012DR  363  198
ID972 012ER  364  211  264
ID973 012FR  365  206  208
ID974 0130R  366  207
ID975 0131R  367  209  267  317
ID976 0132R  368  222  224
ID977 0133R  369
ID978 0134R  370  235  237  239  241
ID979 0045R  161  145  147  149  151
ID998 0191R  428
ID999 0192R  429
ibm/ibm1130-lib/dmsr2v12/u6id_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator