ibm:ibm1130-lib:dmsr2v12:u6dlcib_lst
U6DLCIB
| Table Of Contents |
|---|
|
- 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
ibm/ibm1130-lib/dmsr2v12/u6dlcib_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator