ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \u5sysup.asm
SYSUP - UPDATE SYSTEM DCOM
2 | *************************************************** U5E00020
3 | * * U5E00030
4 | *STATUS - VERSION 2, MODIFICATION 12 * U5E00040
5 | * * U5E00050
6 | *FUNCTION/OPERATION- * U5E00060
7 | * * UPDATE DCOM OF THE SYSTEM CARTRIDGE FROM * U5E00070
8 | * THE DCOMS OF ALL THE REQUESTED CARTRIDGES. * U5E00080
9 | * THE DCOM TABLES UPDATED ARE- * U5E00090
10 | * #ANDU * U5E00100
11 | * #BNDU * U5E00110
12 | * #FPAD * U5E00120
13 | * #PCID * U5E00130
14 | * #CIDN * U5E00140
15 | * #CIBA * U5E00150
16 | * #SCRA * U5E00160
17 | * #FMAT * U5E00170
18 | * #FLET * U5E00180
19 | * #ULET * U5E00190
20 | * #WSCT * U5E00200
21 | * #CSHN * U5E00210
22 | * * U5E00220
23 | * * UPDATE $ACDE IN COMMA TO REFLECT THE * U5E00230
24 | * PHYSICAL DEFINITION OF EACH REQUESTED * U5E00240
25 | * LOGICAL DRIVE. * U5E00250
26 | * * U5E00260
27 | * * SET DEFECTIVE CYLINDER ADDRESSES IN COMMA * U5E00270
28 | * FROM SECTOR 0 OF EACH CARTRIDGE. * U5E00280
29 | * * U5E00290
30 | * * UPDATE $FPAD AND $ULET IN COMMA FROM DCOM. * U5E00300
31 | * * U5E00310
32 | *ENTRY POINTS- * U5E00320
33 | * * SYSUP-UPDATE SYSTEM DCOM. THE CALLING * U5E00330
34 | * SEQUENCE IS- * U5E00340
35 | * BSI L SYSUP * U5E00350
36 | * DC ADDR * U5E00360
37 | * WHERE ADDR IS THE ADDRESS OF THE * U5E00370
38 | * TABLE OF REQUESTED CARTRIDGE IDS. * U5E00380
39 | * * U5E00390
40 | *INPUT- * U5E00400
41 | * * A TABLE OF THE FIVE REQUESTED CARTRIDGE IDS.* U5E00410
42 | * THE LAST ITEMS OF THE TABLE MAY BE BLANK. * U5E00420
43 | * * U5E00430
44 | *OUTPUT- * U5E00440
45 | * * IN DCOM- * U5E00450
46 | * #ANDU * U5E00460
47 | * #BNDU * U5E00470
48 | * #CIBA * U5E00480
49 | * #CIDN * U5E00490
50 | * #CSHN * U5E00500
51 | * #FLET * U5E00510
52 | * #FMAT * U5E00520
53 | * #FPAD * U5E00530
54 | * #PCID * U5E00540
55 | * #SCRA * U5E00550
56 | * #ULET * U5E00560
57 | * #WSCT * U5E00570
58 | * #ACIN * U5E00580
59 | * * U5E00590
60 | * * IN COMMA- * U5E00600
61 | * $ACDE * U5E00610
62 | * $CIBA 2-3* U5E00614
63 | * $CILA 2-3* U5E00616
64 | * $DCYL * U5E00620
65 | * $FPAD * U5E00630
66 | * $ULET * U5E00640
67 | * * U5E00650
68 | *EXTERNAL REFERENCES- * U5E00660
69 | * *SUBROUTINES- * U5E00670
70 | * DZ000 SUBROUTNE TO PERFORM DISK I/O. * U5E00680
71 | * * U5E00690
72 | * * COMMA/DCOM- * U5E00700
73 | * $CH12 * U5E00710
74 | * $CYLN * U5E00720
75 | * $DBSY * U5E00730
76 | * $DUMP * U5E00740
77 | * $EXIT * U5E00750
78 | * $FLSH * U5E00760
79 | * $IBT4 * U5E00770
80 | * $IOCT 2-12 U5E00775
81 | * $IREQ * U5E00780
82 | * $LEV0 2-2 U5E00784
83 | * $LEV1 2-2 U5E00785
84 | * $LEV2 2-2 U5E00786
85 | * $PBSY * U5E00790
86 | * $PRET * U5E00800
87 | * $SYSC * U5E00810
88 | * #SYSC * U5E00820
89 | * * U5E00830
90 | *EXITS- * U5E00840
91 | * * NORMAL- * U5E00850
92 | * RETURN TO CALL + 3 UPON SUCCESSFUL * U5E00860
93 | * COMPLETION OF UPDATE. * U5E00870
94 | * * ERROR- * U5E00880
95 | * A BRANCH IS MADE TO $EXIT AFTER SETTING THE * U5E00890
96 | * ABORT JOB SWITCH AND PRINTING ONE OF THE * U5E00900
97 | * FOLLOWING MESSAGES- * U5E00910
98 | * XXXX IS NOT AN AVAILABLE CARTRIDGE ID * U5E00920
99 | * XXXX IS A DUPLICATED SPECIFIED CARTRIDGE ID * U5E00930
100 | * XXXX IS A DUPLICATED AVAILABLE CARTRIDGE ID * U5E00940
101 | * * U5E00950
102 | *TABLES/WORK AREAS- * U5E00960
103 | * * DCOMX IS A BUFFER FOR THE STORAGE OF A * U5E00970
104 | * SATELLITE (NON-SYSTEM) CARTRIDGE DCOM. * U5E00980
105 | * * U5E00990
106 | *ATTRIBUTES- * U5E01000
107 | * * REUSABLE. * U5E01010
108 | * * U5E01020
109 | *NOTES-N/A * U5E01030
110 | * * U5E01040
111 | *************************************************** U5E01050
SYSUP - UPDATE SYSTEM DCOM 3
113 | ENT SYSUP U5E01070
114 | * U5E01080
115 | * EXTERNAL EQUATE STATEMENTS U5E01090
116 | * U5E01100
009F 117 | $ACDE EQU /9F U5E01110
0006 118 | $CH12 EQU /06 U5E01120
0005 119 | $CIBA EQU /05 2-3 U5E01125
005A 120 | $CILA EQU /5A 2-3 U5E01126
009A 121 | $CYLN EQU /9A U5E01130
00EE 122 | $DBSY EQU /EE U5E01140
00A4 123 | $DCYL EQU /A4 U5E01150
003F 124 | $DUMP EQU /3F U5E01160
0038 125 | $EXIT EQU /38 U5E01170
0071 126 | $FLSH EQU /71 2-10 U5E01180
0095 127 | $FPAD EQU /95 U5E01190
00D4 128 | $IBT4 EQU /D4 U5E01200
0032 129 | $IOCT EQU /32 2-12 U5E01205
002C 130 | $IREQ EQU /2C U5E01210
0008 131 | $LEV0 EQU /8 INTERUPT ADDR LEV 0 2-2 U5E01214
0009 132 | $LEV1 EQU /9 INTERUPT ADDR LEV 1 2-2 U5E01215
000A 133 | $LEV2 EQU /A INTERUPT ADDR LEV 2 2-2 U5E01216
000C 134 | $LEV4 EQU /C INTERRUPT LEVEL 4 2-12 U5E01217
0036 135 | $PBSY EQU /36 U5E01220
0028 136 | $PRET EQU /28 U5E01230
00E0 137 | $SYSC EQU /E0 U5E01240
002D 138 | $ULET EQU /2D U5E01250
01E0 139 | $ZEND EQU /1E0 2-3 U5E01255
0001 140 | #DCOM EQU /01 U5E01260
0007 141 | #HDNG EQU /07 U5E01270
0000 142 | #IDAD EQU /00 U5E01280
00F2 143 | DZ000 EQU /F2 U5E01290
006E 144 | DSIZE EQU 110 2-3 U5E01292
00D0 145 | @CSTR EQU /00D0 2-3 U5E01294
SYSUP - UPDATE SYSTEM DCOM
147 | * U5E01310
148 | * UPDATE THE SYSTEM DCOM FROM ALL U5E01320
149 | * REQUESTED CARTRIDGES U5E01330
150 | * U5E01340
0000 0000 151 | SYSUP DC *-* ENTRY/RETURN ADDRESS U5E01350
152 | * U5E01360
0001 7400 0032 153 | MDX L $IOCT,0 LOOP UNTIL ALL I/O 2-12 U5E01364
0003 70FD 154 | MDX *-3 *IS COMPLETED 2-12 U5E01366
0004 DC00 02B4R 155 | STD L SU939 SAVE ACCUMULATOR, EXTENSION U5E01370
0006 2C00 0227R 156 | STS L SU360 SAVE STATUS U5E01380
0008 6D00 0229R 157 | STX L1 SU360+2 SAVE XR1 U5E01390
000A 6E00 022BR 158 | STX L2 SU360+4 SAVE XR2 U5E01400
000C 6F00 022DR 159 | STX L3 SU360+6 SAVE XR3 U5E01410
000E C400 000C 160 | LD L $LEV4 SAVE INTERRUPT ADDR 2-12 U5E01414
0010 D400 02B8R 161 | STO L SU939+4 FOR LEV 4 212 U5E01415
0012 C400 00D4 162 | LD L $IBT4 SAVE ADDRESS OF USERS U5E01420
0014 D400 02B2R 163 | STO L SU938 *INTERRUPT BRANCH TABLE U5E01430
0016 C400 0008 164 | LD L $LEV0 SAVE INTERUPT ADDR 2-2 U5E01433
0018 D400 02B6R 165 | STO L SU939+2 *FOR LEV 0 2-2 U5E01434
001A C400 0009 166 | LD L $LEV1 SAVE INTERUPT ADDR 2-2 U5E01435
001C D400 02B7R 167 | STO L SU939+3 *FOR LEV 1 2-2 U5E01436
168 | * 2-9 U5E01437
169 | * FETCH DEF CYLN TABLE FOR LOG DR 0 2-9 U5E01438
170 | * 2-9 U5E01439
001E C400 00F1R 171 | LD L SU917 FETCH I/O ADDRESS 2-9 U5E01440
0020 1890 172 | SRT 16 SHIFT TO EXT 2-9 U5E01441
0021 4400 00F2 173 | BSI L DZ000 BR TO READ DEF CYLN TB 2-9 U5E01442
0023 7400 00EE 174 | SU005 MDX L $DBSY,0 TEST DISK BUSY 2-9 U5E01443
0025 70FD 175 | MDX SU005 BR TO TEST AGAIN 2-9 U5E01444
176 | * 2-9 U5E01445
0026 61FD 177 | LDX 1 -3 XR1=TABLE LENGTH 2-9 U5E01446
0027 C500 00E7R 178 | SU007 LD L1 SU908+3 LD DEF CYL SCT ADDR 2-9 U5E01447
0029 D500 00A7 179 | STO L1 $DCYL+3 STO IN COMMA 2-9 U5E01448
002B 7101 180 | MDX 1 1 INCR CNT SKIP IF ZERO 2-9 U5E01449
002C 70FA 181 | MDX SU007 FETCH NEXT 2-9 U5E01450
182 | * 2-9 U5E01451
002D 0689*3155 183 | CALL FSLEN GET SCT ADDR FOR PRIN PR U5E01452
002F 0099 184 | DC /0099 PHASE ID OF PRIN PR SUBR U5E01453
0030 4408 0028 185 | PRET BSI L $PRET,+ BR TO POST-OP TRAP IF ACC Z U5E01460
0032 4808 186 | BSC + SKIP IF PH ID FOUND 2-9 U5E01462
0033 70FC 187 | MDX PRET BR TO $PRET IF NOT FOUND2-9 U5E01464
0034 068A*88A4 188 | CALL FSYSU FETCH AND STORE ADDRESS U5E01470
0036 D400 013ER 189 | STO L PRINT *OF PRIN PRINT SUBROUTINE U5E01480
190 | * U5E01490
191 | * INITIALIZE U5E01500
192 | * U5E01510
0038 6500 00A4 193 | LDX L1 $DCYL INITIALIZE ADDRESS AT WHICH U5E01520
003A 6D00 0355R 194 | STX L1 SU620 *TO STORE DEF CYL ADDRESSES U5E01530
003C 1810 195 | SRA 16 SET SYSTEM U5E01540
003D D400 00F3R 196 | STO L SU919 *CARTRIDGE SWITCH OFF AND U5E01550
003F D400 00EER 197 | STO L SU915 *AVAIL CART INDICATOR ZERO U5E01560
0041 C400 009F 198 | LD L $ACDE SAVE U5E01570
0043 1890 199 | SRT 16 *AREA CODE U5E01580
0044 C400 002C 200 | LD L $IREQ *AND ADDRESS OF U5E01590
0046 DC00 02B0R 201 | STD L SU936 *INTERRUPT REQUEST SUBR U5E01600
0048 C400 02AFR 202 | LD L SU935 POINT INTERRUPT REQUEST U5E01610
004A D400 002C 203 | STO L $IREQ *ADDRESS TO SYSUP SUBR U5E01620
204 | * U5E01630
205 | * FETCH ID LIST 2-3 U5E01640
206 | * 2-3 U5E01650
004C C480 0000R 207 | LD I SYSUP FETCH ADDRESS OF ID LIST2-3 U5E01660
004E 8400 00F0R 208 | A L SU916 INCREMENT ADDRESS BY 5 2-3 U5E01670
0050 D002 209 | STO SU010+1 STORE AS FETCH ADDRESS U5E01700
210 | * U5E01710
0051 61FB 211 | LDX 1 -5 ID LIST COUNT TO XR1 U5E01720
0052 C500 0000 212 | SU010 LD L1 *-* FETCH AN ID FROM USERS PROG U5E01730
0054 D500 00D5R 213 | STO L1 SU902+5 STORE ID TO ID LIST U5E01740
0056 7101 214 | MDX 1 1 INCR ID COUNT, SKIP IF ZERO U5E01750
0057 70FA 215 | MDX SU010 BRANCH TO FETCH NEXT ID U5E01760
216 | * U5E01890
217 | * FETCH DCOM FROM PREVIOUS MASTER CARTRIDGE U5E01900
218 | * U5E01910
0058 C077 219 | SU030 LD SU902 FETCH 1ST ID OF ID LIST2-11 U5E01920
0059 4C20 0068R 220 | BSC L SU040,Z BRANCH IF ID NON-BLANK U5E01930
005B C400 013DR 221 | LD L ADCOM FETCH ADDR OF DCOM I/O AREA U5E01940
005D 1890 222 | SRT 16 SHIFT TO EXT, ACC = 0 U5E01950
005E 4400 00F2 223 | BSI L DZ000 BRANCH TO DISK READ U5E01960
0060 7400 00EE 224 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE U5E01970
0062 70FD 225 | MDX *-3 BR TO TEST READ COMPLETE U5E01980
0063 C400 043BR 226 | LD L #CIDN FETCH SYSTEM CARTRIDGE ID U5E01990
0065 D06A 227 | STO SU902 STORE TO ID LIST U5E02000
0066 D400 00F3R 228 | STO L SU919 SET SYTEM CARTRIDGE SW ON U5E02010
229 | * U5E02020
230 | * CHECK FOR DUPLICATE CARTRIDGE IDS U5E02030
231 | * U5E02040
0068 10A0 232 | SU040 SLT 32 CLEAR THE SWITCH U5E02050
0069 6200 233 | LDX 2 0 ID LIST COUNT TO XR2 U5E02060
006A C600 00D0R 234 | SU050 LD L2 SU902 FETCH A CARTRIDGE ID U5E02070
006C 4C18 0073R 235 | BSC L SU070,+- BRANCH IF ID BLANK U5E02080
006E 4400 02B9R 236 | BSI L SU400 BR TO CK FOR A DUPLICATE ID U5E02090
0070 7201 237 | MDX 2 1 INCREMENT ID COUNT U5E02100
0071 1000 238 | NOP U5E02110
0072 70F7 239 | MDX SU050 BRANCH TO CHECK NEXT ID U5E02120
240 | * U5E02130
241 | * FETCH CART LIST U5E02140
242 | * U5E02150
0073 61F5 243 | SU070 LDX 1 -11 DRIVE COUNT TO XR1 2-11 U5E02160
0074 6200 244 | LDX 2 0 DEF CYL ADDR COUNT TO XR2 U5E02170
0075 C400 000A 245 | LD L $LEV2 SAVE THE CONTENTS U5E02180
0077 D07F 246 | STO SU923 *OF LOCATION 10 2-11 U5E02190
247 | * U5E02200
0078 C07D 248 | SU080 LD SU922 RESET INTERRUPT 2-11 U5E02210
0079 D400 000A 249 | STO L $LEV2 *BRANCH ADDRESS U5E02220
007B C500 0103R 250 | LD L1 SU924+11 FETCH AREA CODE 2-11 U5E02230
007D D400 009F 251 | STO L $ACDE STORE TO COMMA U5E02240
007F E874 252 | OR SU920 "OR" IN READ FUNCTION CODE U5E02250
0080 D068 253 | STO SU910+1 STORE TO 2ND WORD OF IOCC U5E02260
0081 E873 254 | OR SU921 "OR" IN SENSE FUNCTION CODE U5E02270
0082 D068 255 | STO SU912+1 STORE TO 2ND WORD OF IOCC U5E02280
0083 0864 256 | XIO SU910 INITIATE DISK READ U5E02290
0084 0865 257 | XIO SU912 SENSE DISK U5E02300
0085 1003 258 | SLA 3 SHIFT BUSY BIT TO 0-BIT U5E02310
0086 4C28 0091R 259 | BSC L SU100,Z+ BRANCH IF DISK BUSY U5E02320
260 | * U5E02330
261 | * DISK NOT BUSY, NO CARTRIDGE AVAILABLE U5E02340
262 | * U5E02350
0088 1810 263 | SRA 16 SET CART LIST U5E02360
0089 D500 00E1R 264 | STO L1 SU904+11 *TO ZERO 2-11 U5E02370
008B C062 265 | LD SU915 FETCH AVAIL CART INDICATOR U5E02380
008C 7024 266 | MDX SU120 BR TO INCREMENT DRIVE COUNT U5E02390
267 | * U5E02400
268 | * OPERATION COMPLETE INTERRUPT PROCESSING U5E02410
269 | * U5E02420
008D 0000 270 | SU090 DC *-* U5E02430
008E 085B 271 | XIO SU912 SENSE WITH RESET U5E02440
008F 4CC0 008DR 272 | BOSC I SU090 CONTINUE U5E02450
273 | * U5E02460
274 | * CARTRIDGE AVAILABLE, FETCH CARTRIDGE ID AND U5E02470
275 | * DEFECTIVE CYLINDER ADDRESSES U5E02480
276 | * U5E02490
0091 C0FB 277 | SU100 LD SU090 LD INT ENTRY POINT 2-11 U5E02500
0092 4818 278 | BSC +- SKIP IF OP-COMPLETE 2-11 U5E02502
0093 70FD 279 | MDX SU100 *OTHERWISE, LOOP 2-11 U5E02504
0094 1010 280 | SLA 16 RESET INTERRUPT ENTRY 2-11 U5E02506
0095 D0F7 281 | STO SU090 *POINT TO ZERO 2-11 U5E02508
0096 C060 282 | LD SU923 RESTORE CONTENTS U5E02510
0097 D400 000A 283 | STO L $LEV2 *OF LOCATION 10 U5E02520
0099 C053 284 | LD SU914+1 SET ARM POSITION TO 2-11 U5E02530
009A D400 009A 285 | STO L $CYLN *SECTOR ADDR JUST READ U5E02540
009C C054 286 | LD SU917 FETCH ADDRESS OF I/O AREA U5E02550
009D 1890 287 | SRT 16 SHIFT TO EXT, ACC = 0 U5E02560
009E 4400 00F2 288 | BSI L DZ000 BRANCH TO DISK READ U5E02570
00A0 7400 00EE 289 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE U5E02580
00A2 70FD 290 | MDX *-3 BR TO TEST READ COMPLETE U5E02590
291 | * U5E02600
00A3 C043 292 | LD SU908+3 FETCH CART ID AND U5E02610
00A4 D500 00E1R 293 | STO L1 SU904+11 *STORE TO CART LIST 2-11 U5E02620
00A6 C03D 294 | LD SU908 FETCH U5E02630
00A7 D600 0103R 295 | STO L2 SU925 *AND U5E02640
00A9 C03B 296 | LD SU908+1 *STORE U5E02650
00AA D600 0104R 297 | STO L2 SU925+1 *DEFECTIVE U5E02660
00AC C039 298 | LD SU908+2 *CYLINDER U5E02670
00AD D600 0105R 299 | STO L2 SU925+2 *ADDRESSES U5E02680
00AF C03E 300 | LD SU915 FETCH AVAIL CART INDICATOR U5E02690
00B0 E83E 301 | OR SU915+1 MASK IN BIT FOR THIS DRIVE U5E02700
302 | * U5E02710
00B1 1001 303 | SU120 SLA 1 SHIFT AND U5E02720
00B2 D03B 304 | STO SU915 *SAVE AVAIL CART INDICATOR U5E02730
00B3 7203 305 | MDX 2 3 INCR DEF CYLIN ADDR COUNT U5E02740
00B4 1000 306 | NOP U5E02750
00B5 7101 307 | MDX 1 1 INCR DR COUNT, SKIP IF ZERO U5E02760
00B6 70C1 308 | MDX SU080 U5E02770
309 | * U5E02780
00B7 C03F 310 | LD SU923 RESTORE CONTENTS U5E02790
00B8 D400 000A 311 | STO L $LEV2 *OF LOCATION 10 U5E02800
312 | * U5E02810
313 | * PRINT HEADING U5E02820
314 | * U5E02830
00BA C400 02B1R 315 | LD L SU937 RESTORE AREA CODE FOR 2-11 U5E02832
00BC D400 009F 316 | STO L $ACDE *OLD MASTER 2-11 U5E02834
00BE C480 0006 317 | LD I $CH12 FETCH CHANNEL 12 INDICATOR U5E02840
00C0 4420 03D8R 318 | BSI L RSTOR,Z BR TO RESTORE PAGE IF NON-Z U5E02850
00C2 C061 319 | LD SU926 FETCH PRINT AREA ADDRESS U5E02860
00C3 1890 320 | SRT 16 SHIFT TO EXTENTION U5E02870
00C4 C400 03AER 321 | LD L SU973 FETCH PRINT FUNCTION CODE U5E02880
00C6 4480 013ER 322 | BSI I PRINT BRANCH TO PRINT THE LINE U5E02890
00C8 7400 0036 323 | MDX L $PBSY,0 SKIP NEXT IF PRINT COMPLETE U5E02900
00CA 70FD 324 | MDX *-3 BR TO TEST PRINT COMPLETE U5E02910
325 | * U5E02920
326 | * FIND FIRST CARTRIDGE ID OF ID LIST IN U5E02930
327 | * CART LIST U5E02940
328 | * U5E02950
00CB 6100 329 | LDX 1 0 ID LIST COUNT TO XR1 U5E02960
00CC 4400 019FR 330 | BSI L SU279 BR TO FIND ID 2-11 U5E02970
00CE 7070 331 | MDX SU180 ON RETRN GO UPDTE DCOM 2-11 U5E02980
332 | * * AND COMMA 2-11 U5E02990
333 | * U5E03100
334 | * CONSTANTS AND WORK AREA U5E03110
335 | * U5E03120
00D0 336 | BSS E 0 U5E03130
00D0 337 | SU902 BSS 5 ID LIST U5E03160
00D5 0000 338 | DC 0 U5E03170
00D6 339 | SU904 BSS 11 CART LIST-PHY DR ORDER 2-11 U5E03180
00E1 FFFF 340 | DC -1 U5E03190
00E2 0004 341 | SU906 DC 4 WORD COUNT U5E03200
00E3 0000 342 | SU907 DC #IDAD SECTOR ADDRESS 2-3 U5E03210
00E4 343 | SU908 BSS 4 DEF CYL, CART ID I/O AREA U5E03220
00E8 00ECR 344 | SU910 DC SU914 ADDRESS OF I/O AREA U5E03230
00E9 0000 345 | DC *-* SECOND WORD OF READ IOCC U5E03240
00EA 0658 346 | SU912 DC /658 MAXIMUM ARM POSITION U5E03250
00EB 0000 347 | DC *-* SECOND WORD OF SENSE IOCC U5E03260
00EC 0001 348 | SU914 DC 1 WORD COUNT U5E03270
00ED 0000 349 | DC *-* I/O AREA U5E03280
00EE 0000 350 | SU915 DC *-* AVAIL CARTRIDGE INDICATOR U5E03290
00EF 0001 351 | DC /0001 U5E03300
00F0 0005 352 | SU916 DC 5 MAXIMUM NUMBER OF DRIVES2-3 U5E03310
00F1 00E2R 353 | SU917 DC SU906 ADDR OF CART ID I/O AREA U5E03320
00F2 0472R 354 | SU918 DC DCOMX-2 ADDR OF DCOM I/O AREA U5E03330
00F3 0000 355 | SU919 DC *-* SYSTEM CARTRIDGE SWITCH U5E03340
00F4 0600 356 | SU920 DC /0600 READ FUNCTION CODE U5E03350
00F5 0701 357 | SU921 DC /0701 SENSE FUNCTION CODE U5E03360
00F6 008DR 358 | SU922 DC SU090 INTERRUPT SERVICE ADDRESS U5E03370
00F7 0000 359 | SU923 DC *-* SAVE FOR LOCATION 10 U5E03380
00F8 2000 360 | SU924 DC /2000 AREA CODE FOR PHY DRIVE 0 U5E03390
00F9 8800 361 | DC /8800 AREA CODE FOR PHY DRIVE 1 U5E03400
00FA 9000 362 | DC /9000 AREA CODE FOR PHY DRIVE 2 U5E03410
00FB 9800 363 | DC /9800 AREA CODE FOR PHY DRIVE 3 U5E03420
00FC A000 364 | DC /A000 AREA CODE FOR PHY DRIVE 4 U5E03430
00FD B000 365 | DC /B000 AREA CODE-PHY DR 5 2-11 U5E03431
00FE B800 366 | DC /B800 AREA CODE-PHY DR 6 2-11 U5E03432
00FF B810 367 | DC /B810 AREA CODE-PHY DR 7 2-11 U5E03433
0100 B820 368 | DC /B820 AREA CODE-PHY DR 8 2-11 U5E03434
0101 B830 369 | DC /B830 AREA CODE-PHY DR 9 2-11 U5E03436
0102 B840 370 | DC /B840 AREA CODE-PHY DR 10 2-11 U5E03438
0103 371 | SU925 BSS 33 DEF CYLINDER ADDRS 2-11 U5E03440
0124 0125R 372 | SU926 DC SU928-1 ADDRESS OF PRINT AREA U5E03450
0125 0017 373 | DC 23 U5E03460
0126 D3D6 C740 C4D9 C9E5 374 | SU928 EBC .LOG DRIVE CART SPEC CART AVAIL. U5E03470
C540 4040 C3C1 D9E3 |
40E2 D7C5 C340 4040 |
C3C1 D9E3 40C1 E5C1 |
C9D3 |
0137 4040 D7C8 E840 C4D9 375 | EBC . PHY DRIVE . U5E03480
C9E5 C540 |
013D 0402R 376 | ADCOM DC DCOM-2 ADDRESS OF SYSTEM DCOM U5E03490
013E 0000 377 | PRINT DC *-* ENTRY TO PRINT SUBROUTINE U5E03500
378 | * U5E03510
379 | * READ SYSTEM CARTRIDGE DCOM U5E03520
380 | * U5E03530
013F 4400 0348R 381 | SU180 BSI L SU600 BR TO STORE $ACDE, DEF CYLS U5E03540
0141 C0E2 382 | LD SU926 SET SWITCH U5E03550
0142 1890 383 | SRT 16 *NON-ZERO U5E03560
0143 C600 00D6R 384 | LD L2 SU904 FETCH CARTRIDGE ID U5E03570
0145 4400 02B9R 385 | BSI L SU400 BR TO CK FOR DUPLICATE IDS U5E03580
386 | * U5E03590
0147 C0AB 387 | LD SU919 BRANCH IF THE SYSTEM U5E03600
0148 4C20 015FR 388 | BSC L SU220,Z *CARTRIDGE HAS NOT CHANGED U5E03610
389 | * U5E03620
014A C400 013DR 390 | LD L ADCOM FETCH ADDR OF DCOM I/O AREA U5E03630
014C 1890 391 | SRT 16 SHIFT TO EXT, ACC = 0 U5E03640
014D 4400 00F2 392 | BSI L DZ000 BRANCH TO DISK READ U5E03650
014F 7400 00EE 393 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE U5E03660
0151 70FD 394 | MDX *-3 BR TO TEST READ COMPLETE U5E03670
395 | * U5E03680
396 | * UPDATE MODIFICATION LEVEL IN COMMA U5E03690
397 | * U5E03700
0152 C400 040CR 398 | LD L #SYSC FETCH MOD LEVEL FROM DCOM U5E03710
0154 D400 00E0 399 | STO L $SYSC *AND STORE TO COMMA U5E03720
400 | * U5E03730
0156 6292 401 | LDX 2 -DSIZE SET DCOM WORD COUNT 2-3 U5E03740
0157 C600 0472R 402 | SU200 LD L2 DCOM+DSIZE FETCHA WD FROM SYS DCOM2-3 U5E03750
0159 D600 04E2R 403 | STO L2 DCOMX+DSIZE STORE TO NON-SYS DCOM2-3 U5E03760
015B 7201 404 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO U5E03770
015C 70FA 405 | MDX SU200 BRANCH TO FETCH NEXT WORD U5E03780
015D 4400 02FCR 406 | BSI L SU500 BRANCH TO UPDATE SYS DCOM U5E03790
407 | * U5E03800
408 | * SAVE THE CARTRIDGE IDS IN PHYSICAL ORDER IN U5E03810
409 | * DCOM U5E03820
410 | * U5E03830
015F 62FB 411 | SU220 LDX 2 -5 WORD COUNT TO XR2 U5E03840
0160 C600 00DBR 412 | LD L2 SU904+5 FETCH A CARTRIDGE ID U5E03850
0162 D600 043BR 413 | STO L2 #PCID+5 STORE TO DCOM U5E03860
0164 7201 414 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO U5E03870
0165 70FA 415 | MDX SU220+1 BRANCH TO FETCH NEXT ID U5E03880
0166 6680 03B1R 416 | LDX I2 SU977 FETCH THE CARTRIDGE ID U5E03890
0168 C500 00D0R 417 | LD L1 SU902 *THAT WAS ZEROED OUT U5E03900
016A 72FC 418 | MDX 2 -4 *CHECK IF PHY DR G.T.4 2-11 U5E03902
016B 7004 419 | MDX SU230 *BR IF YES 2-11 U5E03904
016C 7204 420 | MDX 2 4 *OTHERWISE RESTORE XR2 2-11 U5E03906
016D 1000 421 | NOP IN CASE OF SKIP 2-11 U5E03908
016E D600 0436R 422 | STO L2 #PCID *AND STORE ID TO DCOM 2-11 U5E03910
0170 C400 00EER 423 | SU230 LD L SU915 FETCH AVAIL CART IND 2-11 U5E03920
0172 1004 424 | SLA 4 SHIFT TO LEFT 11 BITS 2-11 U5E03930
0173 D400 0420R 425 | STO L #ACIN *AND STORE TO DCOM U5E03940
426 | * U5E03950
427 | * ZERO OUT TABLES IN COMMA AND DCOM U5E03960
428 | * U5E03970
0175 62FC 429 | LDX 2 -4 WORD COUNT TO XR2 U5E03980
0176 1810 430 | SRA 16 CLEAR ACCUMULATOR U5E03990
0177 D600 00A4 431 | SU240 STO L2 $ACDE+5 SET U5E04000
0179 D600 009F 432 | STO L2 $CYLN+5 *TO U5E04010
017B D600 042CR 433 | STO L2 #ANDU+5 *ZERO U5E04020
017D D600 0431R 434 | STO L2 #BNDU+5 *ITEMS 1-4 OF U5E04030
017F D600 0436R 435 | STO L2 #FPAD+5 *CARTRIDGE U5E04040
0181 D600 0440R 436 | STO L2 #CIDN+5 *DEPENDENT U5E04050
0183 D600 0445R 437 | STO L2 #CIBA+5 *TABLES U5E04060
0185 D600 044FR 438 | STO L2 #FMAT+5 *IN U5E04070
0187 D600 0454R 439 | STO L2 #FLET+5 *COMMA U5E04080
0189 D600 0459R 440 | STO L2 #ULET+5 *AND U5E04090
018B D600 045ER 441 | STO L2 #WSCT+5 *DCOM U5E04100
018D 7201 442 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO U5E04110
018E 70E8 443 | MDX SU240 BR TO ZERO OUT NEXT ITEM U5E04120
444 | * U5E04130
018F 62F4 445 | LDX 2 -12 WORD COUNT TO XR2 U5E04140
446 | * 1 INSTRUCTION REMOVED 2-11 U5E04150
0190 D600 00B3 447 | SU260 STO L2 $DCYL+15 STORE TO $DCYL IN COMMA U5E04160
0192 7201 448 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO U5E04170
0193 70FC 449 | MDX SU260 BR TO STORE NEXT DEF CYL U5E04180
450 | * U5E04190
451 | * PRINT CARTRIDGE ID AND DRIVE U5E04200
452 | * U5E04210
0194 C090 453 | MORE LD SU928-1 SET TO PRINT COMPLETE LINE U5E04220
0195 4400 0365R 454 | BSI L SU700 BRANCH TO PRINT A LINE U5E04230
455 | * U5E04240
456 | * INCREMENT LOGICAL DRIVE COUNT U5E04250
457 | * U5E04260
0197 7101 458 | MDX 1 1 INCREMENT DRIVE COUNT U5E04270
0198 1000 459 | NOP U5E04280
0199 C500 00D0R 460 | LD L1 SU902 FETCH NEXT ID FROM ID LIST U5E04290
019B 4C18 01CER 461 | BSC L NOMOR,+- BRANCH IF ID BLANK U5E04300
019D 4001 462 | BSI SU279 BR TO FIND ID 2-11 U5E04302
019E 7015 463 | MDX SU300 ON RETRN GO UPDTE DCOM 2-11 U5E04304
464 | * U5E04310
465 | * FIND CARTRIDGE ID IN CART LIST U5E04320
466 | * U5E04330
019F 0000 467 | SU279 DC *-* ENTRY/RETURN ADDRESS 2-11 U5E04338
01A0 6600 0103R 468 | LDX L2 SU925 FETCH AND SAVE ADDRESS OF U5E04340
01A2 6E00 0364R 469 | STX L2 SU960 *DEF CYL ADDRESSES U5E04350
01A4 6200 470 | LDX 2 0 CART LIST COUNT TO XR2 U5E04360
01A5 C600 00D6R 471 | SU280 LD L2 SU904 FETCH AN ID FROM CART LIST U5E04370
01A7 4C28 0241R 472 | BSC L SU390,+Z BR IF ID NEGATIVE 2-2 U5E04380
01A9 4C08 01AFR 473 | BSC L SU290,+ BRANCH IF ID BLANK U5E04390
01AB 9500 00D0R 474 | S L1 SU902 SUBTRACT ID FROM ID LIST U5E04400
01AD 4C98 019FR 475 | BSC I SU279,+- BR IF IDS EQUAL 2-11 U5E04410
01AF 7201 476 | SU290 MDX 2 1 INCREMENT CART LIST COUNT U5E04420
01B0 1000 477 | NOP U5E04430
01B1 7403 0364R 478 | MDX L SU960,3 INCR ADDR OF DEF CYL ADDRS U5E04440
01B3 70F1 479 | MDX SU280 BRANCH TO TEST NEXT ID U5E04450
480 | * U5E04460
01B4 4400 0348R 481 | SU300 BSI L SU600 BR TO STORE $ACDE, DEF CYLS U5E04470
01B6 C001 482 | LD *+1 SET SWITCH U5E04480
01B7 1890 483 | SRT 16 *NON-ZERO U5E04490
01B8 C600 00D6R 484 | LD L2 SU904 FETCH CARTRIDGE ID U5E04500
01BA 4400 02B9R 485 | BSI L SU400 BR TO CK FOR DUPLICATE IDS U5E04510
486 | * U5E04520
487 | * READ NON-SYSTEM CARTRIDGE DCOM U5E04530
488 | * U5E04540
01BC C400 03B0R 489 | LD L SU976 FETCH DRIVE NUMBER U5E04550
01BE 100C 490 | SLA 12 SHIFT NUMBER TO BITS 0-3 U5E04560
01BF 8400 0403R 491 | A L DCOM-1 ADD SECTOR ADDRESS U5E04570
01C1 DC00 0473R 492 | STD L DCOMX-1 STORE TO DCOM I/O AREA U5E04580
01C3 C400 00F2R 493 | LD L SU918 FETCH ADDR OF DCOM I/O AREA U5E04590
01C5 1890 494 | SRT 16 SHIFT TO EXT, ACC = 0 U5E04600
01C6 4400 00F2 495 | BSI L DZ000 BRANCH TO DISK READ U5E04610
01C8 7400 00EE 496 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE U5E04620
01CA 70FD 497 | MDX *-3 BR TO TEST READ COMPLETE U5E04630
498 | * U5E04640
01CB 4400 02FCR 499 | BSI L SU500 BRANCH TO UPDATE DCOM U5E04650
01CD 70C6 500 | MDX MORE U5E04660
501 | * U5E04670
502 | * ALL REQUESTED CARTRIDGE IDS HAVE BEEN FOUND U5E04680
503 | * AND ALL COMMA AND DCOM TABLES HAVE BEEN U5E04690
504 | * UPDATED U5E04700
505 | * U5E04710
01CE 61F5 506 | NOMOR LDX 1 -11 CART LIST COUNT TO XR2 2-11 U5E04720
507 | * U5E04730
01CF C500 00E1R 508 | SU310 LD L1 SU904+11 FETCH ID FR CART LIST 2-11 U5E04740
01D1 4C18 01DDR 509 | BSC L SU320,+- BRANCH IF ID BLANK U5E04750
510 | * U5E04760
01D3 6D00 03B1R 511 | STX L1 SU977 SAVE XR1 VALUE 2-11 U5E04770
01D5 740B 03B1R 512 | MDX L SU977,11 CONVERT TO PHY DR NO. 2-11 U5E04780
01D7 1000 513 | NOP IN CASE OF SKIP 2-11 U5E04790
01D8 D400 03B2R 514 | STO L SU978 STORE TO PRINT SUBR U5E04800
01DA 1810 515 | SRA 16 SET TO PRINT HALF LINE U5E04810
01DB 4400 0365R 516 | BSI L SU700 BRANCH TO PRINT A LINE U5E04820
517 | * U5E04830
01DD 7101 518 | SU320 MDX 1 1 INCR CART LIST CNT, SK IF Z U5E04840
01DE 70F0 519 | MDX SU310 BRANCH TO FETCH NEXT ID U5E04850
520 | * U5E04860
01DF 61FB 521 | LDX 1 -5 WORD COUNT TO XR1 U5E04870
01E0 C500 0459R 522 | SU330 LD L1 #ULET+5 STORE LET SECTOR ADDRESS U5E04880
01E2 D500 0032 523 | STO L1 $ULET+5 *TO COMMA U5E04890
01E4 C500 0436R 524 | LD L1 #FPAD+5 STORE FILE PROTECTED ADDR U5E04900
01E6 D500 009A 525 | STO L1 $FPAD+5 *TO COMMA U5E04910
01E8 7101 526 | MDX 1 1 INCR WORD CNT, SKIP IF ZERO U5E04920
01E9 70F6 527 | MDX SU330 BRANCH TO FETCH NEXT WORD U5E04930
528 | * U5E04940
529 | * WRITE UPDATED DCOM TO SYSTEM CARTRIDGE U5E04950
530 | * U5E04960
01EA C400 013DR 531 | LD L ADCOM FETCH ADDR OF DCOM I/O AREA U5E04970
01EC 1890 532 | SRT 16 SHIFT TO EXTENTION U5E04980
01ED C400 00ECR 533 | LD L SU914 FETCH WRITE FUNCTION CODE U5E04990
01EF 4400 00F2 534 | BSI L DZ000 BRANCH TO DISK WRITE U5E05000
01F1 7400 00EE 535 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE U5E05010
01F3 70FD 536 | MDX *-3 BR TO TEST WRITE COMPLETE U5E05020
537 | * 2-3 U5E05021
538 | * UPDATE $CIBA AND $CILA IN COMMA 2-3 U5E05022
539 | * 2-3 U5E05023
01F4 C400 0440R 540 | LD L #CIBA SET SECTOR ADDRESS OF 2-3 U5E05024
01F6 D400 0005 541 | STO L $CIBA *CIB IN COMMA 2-3 U5E05025
01F8 C400 00E3R 542 | LD L SU907 FETCH AND STORE 2-3 U5E05026
01FA 1890 543 | SRT 16 *ID SECTOR 2-3 U5E05027
01FB C06A 544 | LD SU929+1 *WORD COUNT 2-3 U5E05028
01FC DC00 0402R 545 | STD L DCOM-2 *AND SECTOR ADDRESS 2-3 U5E05029
01FE C400 013DR 546 | LD L ADCOM FETCH ADDRESS OF I/OAREA2-3 U5E05030
0200 1890 547 | SRT 16 SHIFT TO EXT, ACC = 0 2-3 U5E05031
0201 4400 00F2 548 | BSI L DZ000 BRANCH TO DISK READ 2-3 U5E05032
0203 7400 00EE 549 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLE2-3 U5E05033
0205 70FD 550 | MDX *-3 BR TO TEST READ COMPLETE2-3 U5E05034
0206 CC00 050ER 551 | LDD L DCOM+$ZEND-@CSTR-6 FETCH ANDSTORE2-3 U5E05036
0208 DC80 005A 552 | STD I $CILA *WCNT/SCTR ADDR OF CIL2-3 U5E05038
553 | * 2-3 U5E05039
020A 402C 554 | BSI SU380 BR TO TEST FOR INTRPT REQ U5E05040
555 | * U5E05050
020B C400 02B6R 556 | LD L SU939+2 RESTORE INTERUPT ADDR 2-2 U5E05053
020D D400 0008 557 | STO L $LEV0 *FOR LEV 0 2-2 U5E05054
020F C400 02B7R 558 | LD L SU939+3 RESTORE INTERUPT ADDR 2-2 U5E05055
0211 D400 0009 559 | STO L $LEV1 *FOR LEV 1 2-2 U5E05056
0213 C400 02B8R 560 | LD L SU939+4 RESTORE INTERRUPT ADDR 212 U5E05057
0215 D400 000C 561 | STO L $LEV4 *FOR LEV 4 2-12 U5E05058
0217 C400 02B2R 562 | LD L SU938 RESTORE ADDRESS OF USERS U5E05060
0219 D400 00D4 563 | STO L $IBT4 *INTERRUPT BRANCH TABLE U5E05070
021B C400 0265R 564 | LD L SU929 *RESTORE 2-3 U5E05071
021D D400 0403R 565 | STO L DCOM-1 *TO 2-3 U5E05072
021F C400 02FBR 566 | LD L SU944 *MAKE 2-3 U5E05073
0221 D400 0402R 567 | STO L DCOM-2 *SYSUP 2-3 U5E05074
0223 D400 0472R 568 | STO L DCOMX-2 *REUSABLE 2-3 U5E05075
0225 CC00 02B4R 569 | LDD L SU939 RESTORE ACC AND EXT U5E05080
0227 2000 570 | SU360 LDS 0 RESTORE STATUS U5E05090
0228 6500 0000 571 | LDX L1 *-* RESTORE XR1 U5E05100
022A 6600 0000 572 | LDX L2 *-* RESTORE XR2 U5E05110
022C 6700 0000 573 | LDX L3 *-* RESTORE XR3 U5E05120
022E 7401 0000R 574 | MDX L SYSUP,1 INCREMENT RETURN ADDRESS U5E05130
0230 4C80 0000R 575 | BSC I SYSUP RETURN U5E05140
576 | * U5E05150
577 | * TEMPORARY INTERRUPT REQUEST SUBROUTINE U5E05160
578 | * U5E05170
0232 0000 579 | SU370 DC *-* ENTRY U5E05180
0233 0C00 02B2R 580 | XIO L SU938 SENSE INT REQ W/RESET 2-11 U5E05190
0235 4C00 00D5 581 | BSC L $IBT4+1 BRANCH TO ILS04 SUBR 2-2 U5E05200
582 | * U5E05210
583 | * TEST FOR THE OCCURANCE OF AN INTERRUPT U5E05220
584 | * REQUEST DURING SYSUP U5E05230
585 | * U5E05240
0237 0000 586 | SU380 DC *-* ENTRY U5E05250
0238 C077 587 | LD SU936 RESTORE ADDRESS OF U5E05260
0239 D400 002C 588 | STO L $IREQ *INTERRUPT REQUEST SUBR U5E05270
023B C0F6 589 | LD SU370 TEST FOR AND RETURN IF U5E05280
023C 4C98 0237R 590 | BSC I SU380,+- *INTRPT REQ SUBR NOT ENTER U5E05290
023E 4400 003F 591 | BSI L $DUMP BRANCH TO PROCESS U5E05300
0240 FFFE 592 | DC -2 *INTERRUPT REQUEST U5E05310
593 | * U5E05320
594 | * PRINT ERROR MESSAGES U5E05330
595 | * U5E05340
0241 8023 596 | SU390 A SU929 CHECK IF ID = -1 2-2 U5E05344
0242 4C18 0247R 597 | BSC L ERRUP,+- *IF YES DO NOT PR ID IN 2-2 U5E05345
0244 9020 598 | S SU929 *ACC, IF NO ID IN ACC 2-2 U5E05346
0245 D500 00D0R 599 | STO L1 SU902 *SHOULD BE PRINTED 2-2 U5E05350
600 | * U5E05360
0247 6201 601 | ERRUP LDX 2 1 POINT TO ERROR MESSAGE U5E05365
0248 C600 0267R 602 | LD L2 SU930 FETCH ADDR OF ERROR MESSAGE U5E05370
024A 801A 603 | A SU929 INCREMENT AND U5E05380
024B D400 03D7R 604 | STO L SU984 *STORE TO CONVERSION SUBR U5E05390
024D C500 00D0R 605 | LD L1 SU902 FETCH CARTRIDGE ID U5E05400
024F 4400 03B3R 606 | BSI L SU800 BRANCH TO CONVERT TO EBCDIC U5E05410
607 | * U5E05420
0251 C480 0006 608 | LD I $CH12 FETCH CHANNEL 12 INDICATOR U5E05430
0253 4420 03D8R 609 | BSI L RSTOR,Z BR TO RESTORE PAGE IF NON-Z U5E05440
610 | * U5E05450
0255 C600 0267R 611 | LD L2 SU930 FETCH ADDR OF ERROR MESSAGE U5E05460
0257 1890 612 | SRT 16 SHIFT TO EXTENSION U5E05470
0258 C00E 613 | LD SU930 FETCH PRINT FUNCTION CODE U5E05480
0259 4480 013ER 614 | BSI I PRINT BRANCH TO PRINT THE MESSAGE U5E05490
025B 7400 0036 615 | MDX L $PBSY,0 SKIP NEXT IF PRINT COMPLETE U5E05500
025D 70FD 616 | MDX *-3 BR TO TEST PRINT COMPLETE U5E05510
617 | * U5E05520
025E C052 618 | LD SU937 RESTORE U5E05530
025F D400 0071 619 | STO L $FLSH SET FLUSH JOB SWITCH U5E05550
0261 40D5 620 | BSI SU380 BR TO TEST FOR INTRPT REQ U5E05560
0262 6038 621 | EXIT BR TO MCRA 2-11 U5E05570
622 | * U5E05580
623 | * CONSTANTS AND WORK AREA U5E05590
624 | * U5E05600
0264 625 | BSS E 1 FORCE NEXT LOC TO BE ODD2-3 U5E05610
0265 0001 626 | SU929 DC 1 CONSTANT ONE U5E05620
0266 0140 627 | DC 320 SECTOR WORD COUNT 2-3 U5E05625
0267 7001 628 | SU930 DC /7001 U5E05630
0268 026BR 629 | DC SU931 U5E05640
0269 027FR 630 | DC SU932 U5E05650
026A 0297R 631 | DC SU933 U5E05660
026B 0013 632 | SU931 DC 19 U5E05670
026C E7E7 E7E7 40C9 E240 633 | EBC .XXXX IS NOT AN AVAILABLE CARTRIDGE. U5E05680
D5D6 E340 C1D5 40C1 |
E5C1 C9D3 C1C2 D3C5 |
40C3 C1D9 E3D9 C9C4 |
C7C5 |
027D 40C9 C440 634 | EBC . ID . U5E05690
027F 0017 635 | SU932 DC 23 U5E05700
0280 E7E7 E7E7 40C9 E240 636 | EBC .XXXX IS A DUPLICATED SPECIFIED CAR. U5E05710
C140 C4E4 D7D3 C9C3 |
C1E3 C5C4 40E2 D7C5 |
C3C9 C6C9 C5C4 40C3 |
C1D9 |
0291 E3D9 C9C4 C7C5 40C9 637 | EBC .TRIDGE ID . U5E05720
C440 4040 |
0297 0017 638 | SU933 DC 23 U5E05730
0298 E7E7 E7E7 40C9 E240 639 | EBC .XXXX IS A DUPLICATED AVAILABLE CAR. U5E05740
C140 C4E4 D7D3 C9C3 |
C1E3 C5C4 40C1 E5C1 |
C9D3 C1C2 D3C5 40C3 |
C1D9 |
02A9 E3D9 C9C4 C7C5 40C9 640 | EBC .TRIDGE ID . U5E05750
C440 4040 |
02AF 0232R 641 | SU935 DC SU370 ADDR OF SYSUP INTRPT REQ U5E05760
02B0 0000 642 | SU936 DC *-* ADDR OF NORMAL INTRPT REQ U5E05770
02B1 0000 643 | SU937 DC *-* AREA CODE OF PREV SYS CART U5E05780
02B2 0000 644 | SU938 DC *-* ADDRESS OF USERS IBT U5E05790
02B3 0F01 645 | DC /0F01 SENSE INTERRUPT WITH RESET U5E05800
02B4 0000 646 | SU939 DC *-* SAVE ACCUMULATOR U5E05810
02B5 0000 647 | DC *-* SAVE EXTENSION U5E05820
02B6 0000 648 | DC *-* SAVE INTERPT ADDR LEV 0 2-2 U5E05821
02B7 0000 649 | DC *-* SAVE INTERPT ADDR LEV 1 2-2 U5E05822
02B8 0000 650 | DC *-* SAVE INTRPT ADDR LEV 4 2-12 U5E05823
UPDATE SYSTEM DCOM
652 | * U5E05840
653 | * CHECK FOR DUPLICATE CARTRIDGE IDS U5E05850
654 | * U5E05860
02B9 0000 655 | SU400 DC *-* ENTRY/RETURN ADDRESS U5E05870
656 | * U5E05880
02BA D83B 657 | STD SU940 SAVE CARTRIDGE ID AND SW U5E05890
02BB 693C 658 | STX 1 SU941 SAVE XR1 U5E05900
02BC 6A3C 659 | STX 2 SU942 SAVE XR2 U5E05910
02BD C039 660 | LD SU940+1 FETCH SWITCH U5E05930
02BE 4C20 02CBR 661 | BSC L SU440,Z BRANCH IF NON-ZERO U5E05940
662 | * U5E05950
663 | * CHECK ID LIST FOR DUPLICATE CARTRIDGE IDS U5E05960
664 | * U5E05970
02C0 6205 665 | SU420 LDX 2 5 ID LIST CNT TO XR2 2-11 U5E05975
02C1 C600 00CFR 666 | LD L2 SU902-1 FETCH A CART ID 2-11 U5E05980
02C3 4C18 02ECR 667 | BSC L SU480,+- BR IF ID BLANK 2-6 U5E05990
02C5 9030 668 | S SU940 TEST FOR AND U5E06000
02C6 4418 02D6R 669 | BSI L SU460,+- *BRANCH IF IDENTICAL IDS U5E06010
02C8 72FF 670 | SU430 MDX 2 -1 DECR ID CNT,SKIP IF=0 2-11 U5E06020
02C9 70F7 671 | MDX SU420+1 BR TO TEST NEXT ID 2-11 U5E06030
02CA 7021 672 | MDX SU480 BRANCH TO RETURN U5E06040
673 | * U5E06050
674 | * CHECK CART LIST FOR DUPLICATE CARTRIDGE IDS U5E06060
675 | * U5E06070
02CB 620B 676 | SU440 LDX 2 11 CART LIST CNT TO XR2 2-11 U5E06075
02CC C600 00D5R 677 | LD L2 SU904-1 FETCH A CART ID 2-11 U5E06080
02CE 4C18 02D3R 678 | BSC L SU450,+- BRANCH IF ID BLANK U5E06090
02D0 9025 679 | S SU940 TEST FOR AND U5E06100
02D1 4418 02D6R 680 | BSI L SU460,+- *BRANCH IF IDENTICAL IDS U5E06110
02D3 72FF 681 | SU450 MDX 2 -1 DECR ID CNT,SKIP IF=0 2-11 U5E06120
02D4 70F7 682 | MDX SU440+1 BR TO TEST NEXT ID 2-11 U5E06130
02D5 7016 683 | MDX SU480 BRANCH TO RETURN U5E06140
684 | * U5E06150
685 | * CHECK IF IDENTICAL CARTRIDGE IDS THE SAME ID U5E06160
686 | * U5E06170
02D6 0000 687 | SU460 DC *-* ENTRY/RETURN ADDRESS U5E06180
02D7 6A22 688 | STX 2 SU943 SAVE COUNTER 2-11 U5E06190
02D8 74FF 02FAR 689 | MDX L SU943,-1 ADJUST TO BE LIST PNTR 2-11 U5E06200
02DA 1000 690 | NOP IN CASE OF SKIP 2-11 U5E06210
02DB C01D 691 | LD SU942 FETCH EXTERNAL COUNTER U5E06220
02DC 901D 692 | S SU943 TEST FOR AND U5E06230
02DD 4C98 02D6R 693 | BSC I SU460,+- *RETURN IF COUNTERS EQUAL U5E06240
694 | * U5E06250
02DF C017 695 | LD SU940+1 FETCH SWITCH U5E06260
02E0 4C20 02E7R 696 | BSC L SU470,Z BRANCH IF NON-ZERO U5E06270
02E2 6580 02F9R 697 | LDX I1 SU942 POINT TO CARTRIDGE ID U5E06280
02E4 6202 698 | LDX 2 2 POINT TO ERROR MESSAGE U5E06290
02E5 4C00 0248R 699 | BSC L ERRUP+1 BRANCH TO PRINT THE MESSAGE U5E06300
02E7 6580 02F8R 700 | SU470 LDX I1 SU941 POINT TO CARTRIDGE ID U5E06310
02E9 6203 701 | LDX 2 3 POINT TO ERROR MESSAGE U5E06320
02EA 4C00 0248R 702 | BSC L ERRUP+1 BRANCH TO PRINT THE MESSAGE U5E06330
703 | * U5E06340
704 | * RESTORE AND RETURN U5E06350
705 | * U5E06360
02EC 6580 02F8R 706 | SU480 LDX I1 SU941 RESTORE XR1 U5E06370
02EE 6680 02F9R 707 | LDX I2 SU942 RESTORE XR2 U5E06380
02F0 1810 708 | SRA 16 SET CARTRIDGE ID U5E06390
02F1 D600 00D6R 709 | STO L2 SU904 *IN CART LIST BLANK U5E06400
02F3 C802 710 | LDD SU940 RESTORE ACC AND EXT U5E06410
02F4 4C80 02B9R 711 | BSC I SU400 RETURN U5E06420
712 | * U5E06430
713 | * WORK AREA U5E06440
714 | * U5E06450
02F6 0000 0000 715 | SU940 DEC 0.0 CARTRIDGE ID AND SWITCH U5E06460
02F8 0000 716 | SU941 DC *-* SAVE FOR XR1 U5E06470
02F9 0000 717 | SU942 DC *-* SAVE FOR XR2 U5E06480
02FA 0000 718 | SU943 DC *-* TEMPORARY COUNTER U5E06490
02FB 006E 719 | SU944 DC /6E U5E06491
UPDATE SYSTEM DCOM
721 | * U5E06510
722 | * UPDATE SYSTEM CARTRIDGE DCOM U5E06520
723 | * U5E06530
02FC 0000 724 | SU500 DC *-* ENTRY/RETURN ADDRESS U5E06540
725 | * U5E06550
726 | * FIND THE POSITION OF THE CARTRIDGE ID U5E06560
727 | * IN #CIDN OF DCOM U5E06570
728 | * U5E06580
02FD 62FB 729 | LDX 2 -5 #CIDN COUNT TO XR1 U5E06590
02FE C500 00D0R 730 | SU520 LD L1 SU902 FETCH CART ID FROM ID LIST U5E06600
0300 9600 04B0R 731 | S L2 DCOMX+60 SUBTRACT #CIDN U5E06610
0302 4C18 0308R 732 | BSC L SU540,+- BR IF THE TWO IDS ARE EQUAL U5E06620
0304 7201 733 | MDX 2 1 INCR #CIDN CNT, SKIP IF Z U5E06630
0305 70F8 734 | MDX SU520 BRANCH TO TEST NEXT CARID U5E06640
0306 4C00 0247R 735 | BSC L ERRUP BRANCH TO ERROR RETURN U5E06650
736 | * U5E06660
737 | * MOVE ITEMS FROM XR2 POSITION IN NON-SYSTEM U5E06670
738 | * DCOM TO XR1 POSITION IN SYSTEM DCOM U5E06680
739 | * U5E06690
0308 7205 740 | SU540 MDX 2 5 SET CARID COUNT POSITIVE U5E06700
0309 1000 741 | NOP U5E06710
030A 693C 742 | STX 1 SU950 STORE AS DRIVE CODE U5E06720
030B C03B 743 | LD SU950 FETCH DRIVE CODE TO ACC U5E06730
030C 100C 744 | SLA 12 SHIFT DR CODE TO BITS 0-3 U5E06740
030D D039 745 | STO SU950 SAVE AS DRIVE CODE MASK U5E06750
746 | * U5E06760
030E C600 0497R 747 | LD L2 DCOMX+35 FETCH ADDR OF END OF UA-ADJ U5E06770
0310 D500 0427R 748 | STO L1 #ANDU STORE TO SYSTEM DCOM U5E06780
749 | * U5E06790
0312 C600 049CR 750 | LD L2 DCOMX+40 FETCH ADDR OF END OF UA-BAS U5E06800
0314 D500 042CR 751 | STO L1 #BNDU STORE TO SYSTEM DCOM U5E06810
752 | * U5E06820
0316 C600 04A1R 753 | LD L2 DCOMX+45 FETCH FILE PROTECT ADDRESS U5E06830
0318 4028 754 | BSI SU550 UPDATE DRIVE CODE U5E06840
0319 D500 0431R 755 | STO L1 #FPAD STORE TO SYSTEM DCOM U5E06850
756 | * U5E06860
031B C600 04ABR 757 | LD L2 DCOMX+55 FETCH CARTRIDGE ID U5E06870
031D D500 043BR 758 | STO L1 #CIDN STORE TO SYSTEM DCOM U5E06880
759 | * U5E06890
031F C600 04B0R 760 | LD L2 DCOMX+60 FETCH SECTOR ADDRESS OF CIB U5E06900
0321 401F 761 | BSI SU550 UPDATE DRIVE CODE U5E06910
0322 D500 0440R 762 | STO L1 #CIBA STORE TO SYSTEM DCOM U5E06920
763 | * U5E06930
0324 C600 04B5R 764 | LD L2 DCOMX+65 FETCH SCTR ADDRESS OF SCRA U5E06940
0326 401A 765 | BSI SU550 UPDATE DRIVE CODE U5E06950
0327 D500 0445R 766 | STO L1 #SCRA STORE TO SYSTEM DCOM U5E06960
767 | * U5E06970
0329 C600 04BAR 768 | LD L2 DCOMX+70 FETCH FORMAT OF PROG IN WS U5E06980
032B D500 044AR 769 | STO L1 #FMAT STORE TO SYSTEM DCOM U5E06990
770 | * U5E07000
032D C600 04BFR 771 | LD L2 DCOMX+75 FETCH FLET SECTOR ADDRESS U5E07010
032F 4011 772 | BSI SU550 UPDATE DRIVE CODE U5E07020
0330 D500 044FR 773 | STO L1 #FLET STORE TO SYSTEM DCOM U5E07030
774 | * U5E07040
0332 C600 04C4R 775 | LD L2 DCOMX+80 FETCH LET SECTOR ADDRESS U5E07050
0334 400C 776 | BSI SU550 UPDATE DRIVE CODE U5E07060
0335 D500 0454R 777 | STO L1 #ULET STORE TO SYSTEM DCOM U5E07070
778 | * U5E07080
0337 C600 04C9R 779 | LD L2 DCOMX+85 FETCH BLK CNT OF PROG IN WS U5E07090
0339 D500 0459R 780 | STO L1 #WSCT STORE TO SYSTEM DCOM U5E07100
781 | * U5E07110
033B C600 04CER 782 | LD L2 DCOMX+90 FETCH SCTR ADDR OF CUSHION U5E07120
033D D500 045ER 783 | STO L1 #CSHN STORE TO SYSTEM DCOM U5E07130
784 | * U5E07140
033F 4C80 02FCR 785 | BSC I SU500 RETURN U5E07150
786 | * U5E07160
787 | * UPDATE DRIVE CODE OF SECTOR ADDRESS U5E07170
788 | * U5E07180
0341 0000 789 | SU550 DC *-* ENTRY/RETURN ADDRESS U5E07190
0342 1004 790 | SLA 4 SHIFT OUT PRESENT DR CODE U5E07200
0343 1804 791 | SRA 4 SHIFT SECTOR ADDRESS BACK U5E07210
0344 E802 792 | OR SU950 MASK IN NEW DRIVE CODE U5E07220
0345 4C80 0341R 793 | BSC I SU550 RETURN U5E07230
794 | * U5E07240
0347 0000 795 | SU950 DC *-* DRIVE CODE U5E07250
SYSUP - UPDATE SYSTEM DCOM
797 | * U5E07270
798 | * STORE AREA CODE AND DEFECTIVE CYLINDER U5E07280
799 | * ADDRESSES TO COMMA U5E07290
800 | * U5E07300
0348 0000 801 | SU600 DC *-* ENTRY/RETURN ADDRESS U5E07310
802 | * U5E07320
0349 6966 803 | STX 1 SU976 SAVE LOG DR NO. 2-11 U5E07330
034A 6A66 804 | STX 2 SU977 SAVE PHY DR NO. 2-11 U5E07340
034B C600 00D6R 805 | LD L2 SU904 FETCH AND STORE U5E07350
034D D064 806 | STO SU978 *CART LIST ID TO PRINT SUBR U5E07360
807 | * U5E07370
034E C600 00F8R 808 | LD L2 SU924 FETCH AREA CODE U5E07380
0350 D500 009F 809 | STO L1 $ACDE STORE TO COMMA U5E07390
810 | * U5E07400
0352 6580 0364R 811 | LDX I1 SU960 FETCH ADDR OF DEF CYL ADDR U5E07410
0354 6600 0000 812 | LDX L2 *-* FETCH ADDRESS IN COMMA AT U5E07420
0355R 813 | SU620 EQU *-1 *WHICH TO STORE DEF CYL U5E07430
0356 C100 814 | LD 1 0 STORE U5E07440
0357 D200 815 | STO 2 0 *DEFECTIVE U5E07450
0358 C101 816 | LD 1 1 *CYLINDER U5E07460
0359 D201 817 | STO 2 1 *ADDRESSES U5E07470
035A C102 818 | LD 1 2 *TO U5E07480
035B D202 819 | STO 2 2 *COMMA U5E07490
820 | * U5E07500
035C 7403 0355R 821 | MDX L SU620,3 INCR STORE ADDR OF DEF CYL U5E07510
035E 6580 03B0R 822 | LDX I1 SU976 RESTORE XR1 U5E07520
0360 6680 03B1R 823 | LDX I2 SU977 RESTORE XR2 U5E07530
824 | * U5E07540
0362 4C80 0348R 825 | BSC I SU600 RETURN U5E07550
826 | * U5E07560
0364 0000 827 | SU960 DC *-* ADDR OF DEF CYL ADDRESSES U5E07570
SYSUP - UPDATE SYSTEM DCOM
829 | * U5E07590
830 | * PRINT LOG DRIVE, SPEC CART, AVAIL CART AND U5E07600
831 | * PHY DRIVE U5E07610
832 | * U5E07620
0365 0000 833 | SU700 DC *-* ENTRY/RETURN ADDRESS U5E07630
834 | * U5E07640
0366 18D0 835 | RTE 16 MOVE ID TO Q-REG 2-2 U5E07645
0367 1010 836 | SLA 16 ZERO THE A-REG 2-2 U5E07650
0368 C02D 837 | LD SU970 FETCH AND STORE INITIAL U5E07660
0369 D06D 838 | STO SU984 *PRINT AREA ADDRESS U5E07670
839 | * U5E07680
840 | * CLEAR THE PRINT AREA U5E07690
841 | * U5E07700
036A 62EA 842 | LDX 2 -22 WORD COUNT TO XR2 U5E07710
036B C043 843 | LD SU974 FETCH BLANK WORD U5E07720
036C D600 03AER 844 | SU710 STO L2 SU972+22 STORE TO PRINT AREA U5E07730
036E 7201 845 | MDX 2 1 INCR WORD CNT, SKIP IF ZERO U5E07740
036F 70FC 846 | MDX SU710 BRANCH TO STORE NEXT WORD U5E07750
847 | * U5E07760
0370 1090 848 | SLT 16 LINE SWITCH TO ACCUMULATOR U5E07770
0371 4C18 037DR 849 | BSC L SU720,+- BRANCH TO PRINT HALF LINE U5E07780
850 | * U5E07790
851 | * CONVERT AND STORE LOGICAL DRIVE U5E07800
852 | * U5E07810
0373 7402 03D7R 853 | MDX L SU984,2 INCREMENT PRINT AREA ADDR U5E07820
0375 C03A 854 | LD SU976 FETCH LOGICAL DRIVE U5E07830
0376 403C 855 | BSI SU800 BR TO CONVT TO EBCDIC 2-11 U5E07840
856 | * U5E07850
857 | * CONVERT AND STORE SPECIFIED CARTRIDGE ID U5E07860
858 | * U5E07870
0377 7404 03D7R 859 | MDX L SU984,4 INCREMENT PRINT AREA ADDR U5E07880
0379 C500 00D0R 860 | LD L1 SU902 FETCH SPEC CARTRIDGE ID U5E07890
037B 4037 861 | BSI SU800 BR TO CONVT TO EBCDIC 2-11 U5E07900
037C 7002 862 | MDX SU740 U5E07910
863 | * U5E07920
864 | * CONVERT AND STORE AVAILABLE CARTRIDGE ID U5E07930
865 | * U5E07940
037D 740A 03D7R 866 | SU720 MDX L SU984,10 INCREMENT PRINT AREA ADDR U5E07950
867 | * U5E07960
037F 7404 03D7R 868 | SU740 MDX L SU984,4 INCREMENT PRINT AREA ADDR U5E07970
0381 C030 869 | LD SU978 FETCH AVAIL CARTRIDGE ID U5E07980
0382 4030 870 | BSI SU800 BR TO CONVT TO EBCDIC 2-11 U5E07990
871 | * U5E08000
872 | * CONVERT AND STORE PHYSICAL DRIVE U5E08010
873 | * U5E08020
0383 7404 03D7R 874 | MDX L SU984,4 INCREMENT PRINT AREA ADDR U5E08030
0385 C02B 875 | LD SU977 FETCH PHYSICAL DRIVE U5E08040
0386 402C 876 | BSI SU800 BR TO CONVT TO EBCDIC 2-11 U5E08050
877 | * U5E08060
878 | * PRINT THE PRINT AREA U5E08070
879 | * U5E08080
0387 C480 0006 880 | LD I $CH12 FETCH CHANNEL 12 INDICATOR U5E08090
0389 4420 03D8R 881 | BSI L RSTOR,Z BR TO RESTORE PAGE IF NON-Z U5E08100
038B C00A 882 | LD SU970 FETCH PRINT AREA ADDRESS U5E08110
038C 1890 883 | SRT 16 SHIFT TO EXTENTION U5E08120
038D C020 884 | LD SU973 FETCH PRINT FUNCTION CODE U5E08130
038E 4480 013ER 885 | BSI I PRINT BRANCH TO PRINT THE LINE U5E08140
0390 7400 0036 886 | MDX L $PBSY,0 SKIP NEXT IF PRINT COMPLETE U5E08150
0392 70FD 887 | MDX *-3 BR TO TEST PRINT COMPLETE U5E08160
888 | * U5E08170
0393 4C80 0365R 889 | BSC I SU700 RETURN U5E08180
890 | * U5E08190
891 | * CONSTANTS AND WORK AREA U5E08200
892 | * U5E08210
0396 893 | BSS E 0 U5E08220
0396 0397R 894 | SU970 DC SU972-1 ADDRESS OF PRINT AREA U5E08230
0397 0016 895 | DC 22 WORD COUNT OF PRINT AREA U5E08240
0398 896 | SU972 BSS 22 PRINT AREA U5E08250
03AE 7001 897 | SU973 DC /7001 PRINT FUNCTION CODE U5E08260
03AF 4040 898 | SU974 DC /4040 EBCDIC BLANK WORD U5E08270
03B0 0000 899 | SU976 DC *-* LOGICAL DRIVE U5E08280
03B1 0000 900 | SU977 DC *-* PHYSICAL DRIVE U5E08290
03B2 0000 901 | SU978 DC *-* AVAILABLE CARTRIDGE ID U5E08300
SYSUP - UPDATE SYSTEM DCOM
903 | *************************************************** U5E08320
904 | * THIS SUBROUTINE CONVERTS A 16 BIT BINARY NUMBER * U5E08330
905 | * TO FOUR EBCDIC VALUES THAT ARE THE EQUIVALENT IN* U5E08340
906 | * HEX. * U5E08350
907 | * INPUT - 16 BIT BINARY NUMBER IN ACCUMULATOR * U5E08360
908 | * OUTPUT - FOUR EBCDIC VALUES PACKED TWO PER WORD* U5E08370
909 | * AND STORED IN THE PRINT BUFFER * U5E08380
910 | * * U5E08390
911 | * XR1 AND XR2 ARE SAVED AND RESTORED * U5E08400
912 | *************************************************** U5E08410
913 | * U5E08420
03B3 0000 914 | SU800 DC *-* ENTRY/RETURN ADDR 2-11 U5E08430
915 | * 2-11 U5E08440
03B4 1890 916 | SRT 16 NUMBER TO EXT 2-11 U5E08450
03B5 6918 917 | STX 1 SU890+1 SAVE XR1 2-11 U5E08460
03B6 6A19 918 | STX 2 SU890+3 SAVE XR2 2-11 U5E08470
03B7 61FE 919 | LDX 1 -2 SET OUTPUT WORD CNT 2-11 U5E08480
920 | * U5E08490
03B8 62FE 921 | SU820 LDX 2 -2 SET CHAR PER WORD CNT 2-11 U5E08500
03B9 D01C 922 | STO SU983 STORE TEMPORARILY 2-11 U5E08510
03BA 1810 923 | SRA 16 CLEAR ACC TO ZERO 2-11 U5E08520
03BB 1084 924 | SLT 4 GET 4 BITS TO CONVT 2-11 U5E08530
03BC 9016 925 | S SU980 SUB 9 TO CHK 0-9 OR A-F2-11 U5E08540
03BD 4808 926 | BSC + SKIP IF A-F 2-11 U5E08550
03BE 8015 927 | A SU981 ADD /0039 2-11 U5E08560
03BF 8015 928 | A SU982 ADD /00C0 2-11 U5E08570
03C0 1008 929 | SLA 8 SHIFT TO LEFT OF WORD 2-11 U5E08580
03C1 7201 930 | MDX 2 1 DECRE CHAR PER WD CNT 2-11 U5E08590
03C2 70F6 931 | MDX SU820+1 CONT IF WD NOT FULL 2-11 U5E08600
932 | * U5E08610
03C3 1808 933 | SRA 8 OTHERWISE, SHIFT JUST 2-11 U5E08620
03C4 E811 934 | OR SU983 *CNVTD WD TO RT,OR IN 2-11 U5E08630
03C5 D480 03D7R 935 | STO I SU984 *1ST HALF,STO TO PRINT 2-11 U5E08640
03C7 7401 03D7R 936 | MDX L SU984,1 INCRE PRINT AREA ADDR 2-11 U5E08650
03C9 1810 937 | SRA 16 SET TEMP STORE AREA 2-11 U5E08660
03CA D00B 938 | STO SU983 *TO ZERO 2-11 U5E08670
939 | * U5E08680
03CB 7101 940 | MDX 1 1 DECRE OUTPUT WD CNT 2-11 U5E08690
03CC 70EB 941 | MDX SU820 IF TWO WORDS NOT OUTPUT2-11 U5E08700
942 | * *CONTINUE CONVERSION 2-11 U5E08710
943 | * 2-11 U5E08720
03CD 6500 0000 944 | SU890 LDX L1 *-* *OTHERWISE, RESTORE 2-11 U5E08730
03CF 6600 0000 945 | LDX L2 *-* *REGISTERS 2-11 U5E08740
03D1 4C80 03B3R 946 | BSC I SU800 *AND RETURN TO CONTINUE2-11 U5E08750
947 | * 2-11 U5E08754
948 | * CONSTANTS AND WORKAREA 2-11 U5E08755
949 | * 2-11 U5E08760
03D3 0009 950 | SU980 DC /0009 CONVERSION CONSTANTS 2-11 U5E08770
03D4 0039 951 | SU981 DC /0039 * 2-11 U5E08780
03D5 00C0 952 | SU982 DC /00C0 * 2-11 U5E08790
03D6 0000 953 | SU983 DC *-* TEMP STOR FOR CNVT CHAR2-11 U5E08800
03D7 0000 954 | SU984 DC *-* PRINT AREA ADDRESS 2-11 U5E08810
SYSUP - UPDATE SYSTEM DCOM
956 | * U5E08830
957 | * RESTORE THE PAGE AND PRINT THE HEADING U5E08840
958 | * U5E08850
03D8 0000 959 | RSTOR DC *-* ENTRY/RETURN ADDRESS U5E08860
03D9 C018 960 | LD RST91 STORE HEADING SECTOR ADDR U5E08870
03DA D01C 961 | STO RST94+1 *TO HEADING I/O AREA U5E08880
03DB C017 962 | LD RST92 FETCH ADDRESS OF I/O AREA U5E08890
03DC 1890 963 | SRT 16 SHIFT TO EXT, ACC = 0 U5E08900
03DD 4400 00F2 964 | BSI L DZ000 BRANCH TO DISK READ U5E08910
03DF 7400 00EE 965 | MDX L $DBSY,0 SKIP NEXT IF READ COMPLETE U5E08920
03E1 70FD 966 | MDX *-3 BR TO TEST READ COMPLETE U5E08930
967 | * U5E08940
03E2 C013 968 | LD RST94 STORE HEADING WORD COUNT U5E08950
03E3 D013 969 | STO RST94+1 *TO HEADING I/O AREA U5E08960
03E4 C00F 970 | LD RST93 FETCH ADDRESS OF I/O AREA U5E08970
03E5 1890 971 | SRT 16 SHIFT TO EXTENSION U5E08980
03E6 C009 972 | LD RST90 FETCH RESTORE PAGE CODE U5E08990
03E7 4480 013ER 973 | BSI I PRINT BRANCH TO RESTORE PAGE U5E09000
03E9 4480 013ER 974 | BSI I PRINT BRANCH TO PRINT HEADING U5E09010
03EB C005 975 | LD RST90+1 FETCH SPACE ONE LINE CODE U5E09020
03EC 4480 013ER 976 | BSI I PRINT BRANCH TO SPACE ONE LINE U5E09030
03EE 4C80 03D8R 977 | BSC I RSTOR RETURN U5E09040
978 | * U5E09050
979 | * CONSTANTS AND WORK AREA U5E09060
980 | * U5E09070
03F0 7000 981 | RST90 DC /7000 RESTORE PAGE FUNCTION CODE U5E09080
03F1 7002 982 | DC /7002 SPACE ONE LINE FUNC CODE U5E09090
03F2 0007 983 | RST91 DC #HDNG SCTR ADDR OF HEADING BUFFER U5E09100
03F3 03F6R 984 | RST92 DC RST94 ADDRESS OF DISK I/O AREA U5E09110
03F4 03F7R 985 | RST93 DC RST94+1 ADDRESS OF PRINT AREA U5E09120
03F6 986 | BSS E 0 U5E09130
03F6 000A 987 | RST94 DC 10 WORD COUNT U5E09140
03F7 0000 988 | DC *-* SECTOR ADDRESS/WORD COUNT U5E09150
03F8 989 | RST96 BSS 10 HEADING I/O AREA U5E09160
990 | * U5E09170
991 | * DCOM I/O AREAS U5E09180
992 | * U5E09190
0402 006E 993 | DC DSIZE SYSTEM DCOM WORD COUNT 2-3 U5E09200
0403 0001 994 | DC #DCOM SYSTEM DCOM SECTOR ADDR 2-3 U5E09210
0404 995 | DCOM BSS DSIZE SYSTEM DCOM I/O AREA 2-3 U5E09220
0472 006E 996 | DC DSIZE NON-SYS DCOM WORD COUNT 2-3 U5E09230
0473 0000 997 | DC *-* NON-SYS DCOM SCTR ADDR 2-3 U5E09240
0474 998 | DCOMX BSS DSIZE NON-SYSTEM DCOM I/O AREA2-3 U5E09250
04E2 999 | BSS 320-2*DSIZE-2 COMPLET A DSK BFR 2-3 U5E09255
040CR 1000 | #SYSC EQU DCOM+8 U5E09260
0420R 1001 | #ACIN EQU DCOM+28 AVAIL CARTRIDGE INDICATOR U5E09270
0427R 1002 | #ANDU EQU DCOM+35 U5E09280
042CR 1003 | #BNDU EQU DCOM+40 U5E09290
0431R 1004 | #FPAD EQU DCOM+45 U5E09300
0436R 1005 | #PCID EQU DCOM+50 U5E09310
043BR 1006 | #CIDN EQU DCOM+55 U5E09320
0440R 1007 | #CIBA EQU DCOM+60 U5E09330
0445R 1008 | #SCRA EQU DCOM+65 U5E09340
044AR 1009 | #FMAT EQU DCOM+70 U5E09350
044FR 1010 | #FLET EQU DCOM+75 U5E09360
0454R 1011 | #ULET EQU DCOM+80 U5E09370
0459R 1012 | #WSCT EQU DCOM+85 U5E09380
045ER 1013 | #CSHN EQU DCOM+90 U5E09390
1014 | * U5E09400
1015 | * U5E09410
0544 1016 | BSS PATCH AREA 2-2 U5E09430
1017 | * U5E09440
0544 1018 | END U5E09450
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#ACIN 0420R 1001 425
#ANDU 0427R 1002 433 748
#BNDU 042CR 1003 434 751
#CIBA 0440R 1007 437 540 762
#CIDN 043BR 1006 226 436 758
#CSHN 045ER 1013 783
#DCOM 0001 140 994
#FLET 044FR 1010 439 773
#FMAT 044AR 1009 438 769
#FPAD 0431R 1004 435 524 755
#HDNG 0007 141 983
#IDAD 0000 142 342
#PCID 0436R 1005 413 422
#SCRA 0445R 1008 766
#SYSC 040CR 1000 398
#ULET 0454R 1011 440 522 777
#WSCT 0459R 1012 441 780
$ACDE 009F 117 198 251 316 431 809
$CH12 0006 118 317 608 880
$CIBA 0005 119 541
$CILA 005A 120 552
$CYLN 009A 121 285 432
$DBSY 00EE 122 174 224 289 393 496 535 549 965
$DCYL 00A4 123 179 193 447
$DUMP 003F 124 591
$EXIT 0038 125
$FLSH 0071 126 619
$FPAD 0095 127 525
$IBT4 00D4 128 162 563 581
$IOCT 0032 129 153
$IREQ 002C 130 200 203 588
$LEV0 0008 131 164 557
$LEV1 0009 132 166 559
$LEV2 000A 133 245 249 283 311
$LEV4 000C 134 160 561
$PBSY 0036 135 323 615 886
$PRET 0028 136 185
$SYSC 00E0 137 399
$ULET 002D 138 523
$ZEND 01E0 139 551
'CSTR 00D0 145 551
ADCOM 013DR 376 221 390 531 546
DCOM 0404R 995 376 402 491 545 551 565 567 1000 1001 1002 1003 1004
1005 1006 1007 1008 1009 1010 1011 1012 1013
DCOMX 0474R 998 354 403 492 568 731 747 750 753 757 760 764 768
771 775 779 782
DSIZE 006E 144 401 402 403 993 995 996 998 999
DZ000 00F2 143 173 223 288 392 495 534 548 964
ERRUP 0247R 601 597 699 702 735
MORE 0194R 453 500
NOMOR 01CER 506 461
PRET 0030R 185 187
PRINT 013ER 377 189 322 614 885 973 974 976
RST90 03F0R 981 972 975
RST91 03F2R 983 960
RST92 03F3R 984 962
RST93 03F4R 985 970
RST94 03F6R 987 961 968 969 984 985
RST96 03F8R 989
RSTOR 03D8R 959 318 609 881 977
SU005 0023R 174 175
SU007 0027R 178 181
SU010 0052R 212 209 215
SU030 0058R 219
SU040 0068R 232 220
SU050 006AR 234 239
SU070 0073R 243 235
SU080 0078R 248 308
SU090 008DR 270 272 277 281 358
SU100 0091R 277 259 279
SU120 00B1R 303 266
SU180 013FR 381 331
SU200 0157R 402 405
SU220 015FR 411 388 415
SU230 0170R 423 419
SU240 0177R 431 443
SU260 0190R 447 449
SU279 019FR 467 330 462 475
SU280 01A5R 471 479
SU290 01AFR 476 473
SU300 01B4R 481 463
SU310 01CFR 508 519
SU320 01DDR 518 509
SU330 01E0R 522 527
SU360 0227R 570 156 157 158 159
SU370 0232R 579 589 641
SU380 0237R 586 554 590 620
SU390 0241R 596 472
SU400 02B9R 655 236 385 485 711
SU420 02C0R 665 671
SU430 02C8R 670
SU440 02CBR 676 661 682
SU450 02D3R 681 678
SU460 02D6R 687 669 680 693
SU470 02E7R 700 696
SU480 02ECR 706 667 672 683
SU500 02FCR 724 406 499 785
SU520 02FER 730 734
SU540 0308R 740 732
SU550 0341R 789 754 761 765 772 776 793
SU600 0348R 801 381 481 825
SU620 0355R 813 194 821
SU700 0365R 833 454 516 889
SU710 036CR 844 846
SU720 037DR 866 849
SU740 037FR 868 862
SU800 03B3R 914 606 855 861 870 876 946
SU820 03B8R 921 931 941
SU890 03CDR 944 917 918
SU902 00D0R 337 213 219 227 234 417 460 474 599 605 666 730 860
SU904 00D6R 339 264 293 384 412 471 484 508 677 709 805
SU906 00E2R 341 353
SU907 00E3R 342 542
SU908 00E4R 343 178 292 294 296 298
SU910 00E8R 344 253 256
SU912 00EAR 346 255 257 271
SU914 00ECR 348 284 344 533
SU915 00EER 350 197 265 300 301 304 423
SU916 00F0R 352 208
SU917 00F1R 353 171 286
SU918 00F2R 354 493
SU919 00F3R 355 196 228 387
SU920 00F4R 356 252
SU921 00F5R 357 254
SU922 00F6R 358 248
SU923 00F7R 359 246 282 310
SU924 00F8R 360 250 808
SU925 0103R 371 295 297 299 468
SU926 0124R 372 319 382
SU928 0126R 374 372 453
SU929 0265R 626 544 564 596 598 603
SU930 0267R 628 602 611 613
SU931 026BR 632 629
SU932 027FR 635 630
SU933 0297R 638 631
SU935 02AFR 641 202
SU936 02B0R 642 201 587
SU937 02B1R 643 315 618
SU938 02B2R 644 163 562 580
SU939 02B4R 646 155 161 165 167 556 558 560 569
SU940 02F6R 715 657 660 668 679 695 710
SU941 02F8R 716 658 700 706
SU942 02F9R 717 659 691 697 707
SU943 02FAR 718 688 689 692
SU944 02FBR 719 566
SU950 0347R 795 742 743 745 792
SU960 0364R 827 469 478 811
SU970 0396R 894 837 882
SU972 0398R 896 844 894
SU973 03AER 897 321 884
SU974 03AFR 898 843
SU976 03B0R 899 489 803 822 854
SU977 03B1R 900 416 511 512 804 823 875
SU978 03B2R 901 514 806 869
SU980 03D3R 950 925
SU981 03D4R 951 927
SU982 03D5R 952 928
SU983 03D6R 953 922 934 938
SU984 03D7R 954 604 838 853 859 866 868 874 935 936
SYSUP 0000R 151 207 574 575