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