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