ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020 Source File: \u6dslet.asm DUMP SYST LOCATION EQUIVALENCE TABLE 2 | *************************************************** U6E00020 3 | * STATUS - VERSION 2, MODIFICATION 11 * U6E00025 4 | * * U6E00030 5 | * PROGRAM NAME- DUMP SYSTEM LOCATION EQUIVALENCE* U6E00040 6 | * TABLE * U6E00050 7 | * CODE NAME- DSLET * U6E00060 8 | * FUNCTION/OPERATION * U6E00070 9 | * THIS PROGRAM DUMPS SLET TO THE PRINCIPAL * U6E00080 10 | * PRINT DEVICE. EACH ENTRY CONSISTS OF A * U6E00090 11 | * SYMBOLIC NAME, PHASE ID, CORE ADDRESS, WORD* U6E00100 12 | * COUNT, AND DISK SECTOR ADDRESS. UP TO 40 * U6E00110 13 | * LINES OF FOUR ENTRIES EACH ARE PRINTED. * U6E00120 14 | * ENTRY POINTS- * U6E00130 15 | * DSLET HAS ONLY ONE ENTRY POINT. THE PROGRAM* U6E00140 16 | * IS ENTERED AS FOLLOWS-- * U6E00150 17 | * // XEQ DSLET * U6E00160 18 | * INPUT- NONE. * U6E00170 19 | * OUPUT- A ONE PAGE LISTING OF THE CONTENTS OF * U6E00180 20 | * THE SYSTEM LOCATION EQUIVALENCE TABLE. * U6E00190 21 | * EXTERNAL REFERENCES- * U6E00200 22 | * DZ000 -- ENTRY POINT FOR THE SYSTEM DISK * U6E00210 23 | * I/O SUBROUTINE. * U6E00220 24 | * $PBSY -- PRINCIPAL PRINTER BUSY INDICATOR * U6E00230 25 | * $DBSY -- DISK BUSY INDICATOR * U6E00240 26 | * $EXIT -- ADDRESS OF CALL EXIT ENTRY POINT * U6E00250 27 | * @SLET -- SECTOR ADDR OF SLET * U6E00260 28 | * @HDNG -- SECTOR CONTAINING PAGE HEADING * U6E00270 29 | * EXITS- * U6E00280 30 | * NORMAL- * U6E00290 31 | * BR TO CALL EXIT ENTRY POINT * U6E00300 32 | * ERROR- * U6E00310 33 | * NOT APPLICABLE * U6E00320 34 | * TABLES/WORK AREAS- * U6E00330 35 | * COMMA AND SLET * U6E00340 36 | * ATTRIBUTES- * U6E00350 37 | * NONE * U6E00360 38 | * NOTES- * U6E00370 39 | * THIS SUBROUTINE HAS BEEN LARGELY REWRITTEN * U6E00380 40 | * AT MOD 9 AND IS SIGNIFICANTLY EXPANDED TO * U6E00381 41 | * INCLUDE THE SLET INFORMATION FOR COBOL COM-* U6E00382 42 | * PILER PHASES AND AN ADDITIONAL 320 WORD * U6E00383 43 | * BUFFER TO ACCOMMODATE A 3-SECTOR SLET TABLE* U6E00384 44 | * * U6E00390 45 | *************************************************** U6E00400 DUMP SYST LOCATION EQUIVALENCE TABLE 47 | * U6E00420 48 | * SYSTEM EQUATE STMNTS U6E00430 49 | * U6E00440 00EE 50 | $DBSY EQU /EE U6E00450 0036 51 | $PBSY EQU /36 U6E00460 0038 52 | $EXIT EQU /38 U6E00470 00F2 53 | DZ000 EQU /F2 U6E00480 54 | * U6E00490 55 | * READ SLET IOCC U6E00500 56 | * U6E00510 0000 57 | BSS E 0 MAKE ADDRESS EVEN U6E00520 0000 7000 58 | DS900 DC /7000 DISK READ FUNCTION U6E00530 0001 024ER 59 | DC DS990 SLET BUFFER ADDRESS U6E00540 60 | * U6E00550 61 | * READ HEADER RECORD IOCC U6E00560 62 | * U6E00570 0002 7000 63 | DS901 DC /7000 DISK READ FUNCTION U6E00580 0003 016AR 64 | DC DS950-2 HEADER BUFFER ADDR U6E00590 65 | * U6E00600 66 | * FIRST HEADER LINE IOCC U6E00610 67 | * U6E00620 0004 7000 68 | DS902 DC /7000 SKIP TO CHANNEL 1 FUNC CODE U6E00630 0005 016BR 69 | DC DS950-1 WORD COUNT ADDRESS U6E00640 70 | * U6E00650 71 | * SUBHEADING IOCC U6E00660 72 | * U6E00670 0006 7001 73 | DS903 DC /7001 PRINT FUNCTION CODE U6E00680 0007 0000 74 | DC *-* WORD COUNT ADDRESS U6E00690 75 | * U6E00700 76 | * READ SLET FROM MASTER CARTRIDGE U6E00710 77 | * U6E00720 0008 C8F7 78 | DS000 LDD DS900 READ FUNC AND BUFFER ADDR U6E00730 0009 4400 00F2 79 | BSI L DZ000 READ SLET U6E00740 80 | * U6E00750 81 | * GET PRINCIPAL PRINT ROUTINE U6E00760 82 | * U6E00770 000B 0689*3155 83 | CALL FSLEN U6E00780 000D 0099 84 | DC 153 PHASE ID OF PRINCIPAL PRINT U6E00790 000E 068A*88A4 85 | CALL FSYSU U6E00800 0010 D400 009FR 86 | STO L DS920 ADDR OF PRINCIPAL PRINT U6E00810 87 | * U6E00820 88 | * CHECK FOR DISK READ COMPLETE U6E00830 89 | * U6E00840 0012 C400 00EE 90 | LD L $DBSY DISK BUSY INDR U6E00850 0014 4820 91 | BSC Z SKIP NEXT IF READ COMPLETED U6E00860 0015 70FC 92 | MDX *-4 LOOP ON BUSY U6E00870 93 | * U6E00880 94 | * READ HEADER RECORD FROM DISK U6E00890 95 | * U6E00900 0016 C8EB 96 | LDD DS901 READ FUNC AND BUFFER ADDR U6E00910 0017 4400 00F2 97 | BSI L DZ000 READ HEADER RECORD U6E00920 98 | * U6E00930 99 | * CHECK FOR DISK READ COMPLETE U6E00940 100 | * U6E00950 0019 C400 00EE 101 | LD L $DBSY DISK BUSY INDR U6E00960 001B 4820 102 | BSC Z SKIP NEXT IF READ COMPLETED U6E00970 001C 70FC 103 | MDX *-4 LOOP ON BUSY U6E00980 104 | * U6E00990 105 | * PRINT FIRST HEADER LINE U6E01000 106 | * U6E01010 001D C07B 107 | LD DS911 HEADER PRINT WORD COUNT U6E01020 001E D400 016BR 108 | STO L DS950-1 SET UP WORD COUNT FOR PRINT U6E01030 0020 C8E3 109 | LDD DS902 FUNC CODE AND WORD CNT ADDR U6E01040 0021 4480 009FR 110 | BSI I DS920 BR TO SKIP TO NEW PAGE U6E01050 0023 4480 009FR 111 | BSI I DS920 BR TO PRINT FIRST HEADER U6E01060 112 | * U6E01070 113 | * TWO VERTICAL SPACES U6E01080 114 | * U6E01090 0025 C072 115 | LD DS910 /7002 - SPACE FUNC CODE U6E01100 0026 4480 009FR 116 | BSI I DS920 BR TO PRINT ROUTINE U6E01110 0028 C06F 117 | LD DS910 SECOND SPACE U6E01120 0029 4480 009FR 118 | BSI I DS920 BR TO PRINT A BLANK LINE U6E01130 119 | * U6E01140 120 | * PRINT SUBHEADING U6E01150 121 | * U6E01160 002B 6500 0195R 122 | LDX L1 DS960-1 U6E01170 002D 6D00 0007R 123 | STX L1 DS903+1 FIRST LINE BUFFER ADDRESS U6E01180 002F C8D6 124 | LDD DS903 FUNC CODE AND WD CNT ADDR U6E01190 0030 4480 009FR 125 | BSI I DS920 PRINT FIRST LINE U6E01200 0032 6500 01D3R 126 | LDX L1 DS970-1 U6E01210 0034 69D2 127 | STX 1 DS903+1 SECOND LINE BUFFER ADDRESS U6E01220 0035 C8D0 128 | LDD DS903 FUNC CODE AND WD CNT ADDR U6E01230 0036 4480 009FR 129 | BSI I DS920 PRINT SECOND LINE U6E01240 0038 6500 0211R 130 | LDX L1 DS980-1 U6E01250 003A 69CC 131 | STX 1 DS903+1 THIRD LINE BUFFER ADDRESS U6E01260 003B C8CA 132 | LDD DS903 FUNC CODE AND WD CNT ADDR U6E01270 003C 4480 009FR 133 | BSI I DS920 PRINT THIRD LINE U6E01280 134 | * U6E01290 135 | * ONE VERTICAL SPACE U6E01300 136 | * U6E01310 003E C059 137 | LD DS910 /7002 - SPACE FUNC CODE U6E01320 003F 4480 009FR 138 | BSI I DS920 BR TO PRINT ROUTINE U6E01330 139 | * U6E01340 140 | * INITIALIZE POINTERS TO SLET AND U6E01350 141 | * NAME TABLE U6E01360 142 | * U6E01370 0041 6600 0250R 143 | LDX L2 DS990+2 ADDR CORE SLET TABLE 2-8 U6E01380 0043 6500 FCB0 144 | LDX L1 DS800-DS810 NEG LENGTH NAME TABLE2-8 U6E01390 145 | * U6E01400 146 | * PREPARE FOR PRINTING FIRST LINE U6E01410 147 | * U6E01420 0045 4400 00C2R 148 | BSI L DS250 CLEAR PRINT/RESET TAB 2-8 U6E01430 149 | * U6E01440 150 | * PROCESS CURRENT PHASE ID FROM SLET U6E01450 151 | * U6E01460 0047 C200 152 | DS100 LD 2 0 ACC=PHASE ID IN SLET 2-8 U6E01470 0048 9058 153 | S DS922 CHECK FOR MUP PHASE ID 2-9 U6E01471 0049 4818 154 | BSC +- SKIP IF NOT 2-9 U6E01472 004A 6857 155 | STX 0 DS923 SET REACHED MUP SW 2-9 U6E01473 156 | * 2-9 U6E01474 004B C200 157 | LD 2 0 RESTORE PHASE ID TO ACC 2-9 U6E01475 004C 4C20 0053R 158 | BSC L DS105,Z GO PROCESS ID IF NZ 2-9 U6E01476 159 | * 2-9 U6E01477 004E 7104 160 | MDX 1 +4 INCR TO NEXT NAME 2-9 U6E01478 004F C052 161 | LD DS923 REACHED MUP SW 2-9 U6E01479 0050 4C20 0095R 162 | BSC L DS350,Z ALL ZEROES LEFT, EXIT 2-9 U6E01480 0052 703E 163 | MDX DS180 GO INCR SLET PTR 2-9 U6E01481 164 | * 2-9 U6E01482 0053 407F 165 | DS105 BSI DS200 CNV PHID TO UNPACKED EBC2-9 U6E01490 0054 0003 166 | DC 3 *ARG 1--LENGTH 2-11 U6E01500 0055 0008 167 | DC 8 *ARG 2--DISPLACEMENT 2-8 U6E01510 168 | * U6E01520 169 | * PROCESS LOAD ADDR OF CURRENT PHASE U6E01530 170 | * U6E01540 0056 C201 171 | LD 2 1 ACC=LOAD ADDRESS 2-8 U6E01550 0057 407B 172 | BSI DS200 CNV ADDR TO UNPACKED EBC2-8 U6E01560 0058 0004 173 | DC 4 *ARG 1--LENGTH 2-8 U6E01570 0059 000E 174 | DC 14 *ARG 2--DISPLACEMENT 2-8 U6E01580 175 | * U6E01590 176 | * PROCESS WORD COUNT OF CURRENT PHASE U6E01600 177 | * U6E01610 005A C202 178 | LD 2 2 ACC=WORD COUNT 2-8 U6E01620 005B 4077 179 | BSI DS200 CNV WDCT TO UNPACKED EBC2-8 U6E01630 005C 0004 180 | DC 4 *ARG 1--LENGTH 2-8 U6E01640 005D 0014 181 | DC 20 *ARG 2--DISPLACEMENT 2-8 U6E01650 182 | * U6E01660 183 | * PROCESS SCTR ADDR OF CURRENT PHASE U6E01670 184 | * U6E01680 005E C203 185 | LD 2 3 ACC=SECTOR ADDRESS 2-8 U6E01690 005F 4073 186 | BSI DS200 CNV ADDR TO UNPACKED EBC2-8 U6E01700 0060 0004 187 | DC 4 *ARG 1--LENGTH 2-8 U6E01710 0061 001A 188 | DC 26 *ARG 2--DISPLACEMENT 2-8 U6E01720 189 | * U6E01730 190 | * DETERMINE IF NAME EXISTS FOR U6E01740 191 | * THIS PHASE U6E01750 192 | * U6E01760 0062 7000 193 | DS120 MDX * SWITCH--BR TO DS150 WHEN2-8 U6E01770 194 | * *PHID GT HIGHEST NAME 2-8 U6E01780 0063 C200 195 | DS125 LD 2 0 ACC=PHID AGAIN 2-8 U6E01790 0064 9500 0960R 196 | S L1 DS810 COMPARE ID CURRENT NAME 2-8 U6E01800 0066 4C28 008BR 197 | BSC L DS150,+Z BR IF SLET ID LOW 2-8 U6E01810 0068 4C08 006DR 198 | BSC L DS130,+ BR IF SLET ID MATCHES 2-8 U6E01820 199 | * U6E01830 006A 7104 200 | MDX 1 +4 INCR NAME TABLE PTR 2-8 U6E01840 006B 70F7 201 | MDX DS125 BR IF MORE NAMES TO TRY 2-8 U6E01850 006C 701C 202 | MDX DS140 BR TO BYPASS IF NO MORE 2-8 U6E01860 203 | * U6E01870 204 | * NAME EXISTS. INSERT IT. U6E01880 205 | * U6E01890 006D 6780 00D0R 206 | DS130 LDX I3 DS290 XR3=ADDR OF HORIZ TAB 2-8 U6E01900 006F 1090 207 | SLT 16 CLEAR EXT 2-8 U6E01910 0070 C500 0961R 208 | LD L1 DS810+1 ACC=CHARS 1,2 OF NAME 2-8 U6E01920 0072 18C8 209 | RTE 8 ACC=/00XX, 1ST CHAR 2-8 U6E01930 0073 F02A 210 | EOR DS919 IS IT 'AT SIGN' 2-8 U6E01940 0074 4818 211 | BSC +- SKIP IF IT IS *NOT* 2-8 U6E01950 0075 C024 212 | LD DS912 MAKE 'APOSTROPHE' 2-8 U6E01960 0076 F027 213 | EOR DS919 RESTORE CHARACTER 2-8 U6E01970 0077 D300 214 | STO 3 0 STORE 1ST CHAR TO PRINT 2-8 U6E01980 0078 1010 215 | SLA 16 CLEAR ACC 2-8 U6E01990 0079 1088 216 | SLT 8 ACC=2ND CHAR 2-8 U6E02000 007A D301 217 | STO 3 1 STORE 2ND CHAR TO PRINT 2-8 U6E02010 007B 1090 218 | SLT 16 CLEAR EXT 2-8 U6E02020 007C C500 0962R 219 | LD L1 DS810+2 ACC=CHARS 3,4 OF NAME 2-8 U6E02030 007E 18C8 220 | RTE 8 ACC=3RD CHAR 2-8 U6E02040 007F D302 221 | STO 3 2 STORE 3RD CHAR TO PRINT 2-8 U6E02050 0080 1010 222 | SLA 16 CLEAR ACC 2-8 U6E02060 0081 1088 223 | SLT 8 ACC=4TH CHAR 2-8 U6E02070 0082 D303 224 | STO 3 3 STORE 4TH CHAR TO RPINT 2-8 U6E02080 0083 C500 0963R 225 | LD L1 DS810+3 ACC=4TH CHAR (/XX40) 2-8 U6E02090 0085 1808 226 | SRA 8 RIGHT-ADJUST CHAR 2-8 U6E02100 0086 D304 227 | STO 3 4 STORE 5TH CHAR TO PRINT 2-8 U6E02110 228 | * U6E02120 229 | * INCREMENT NAME TABLE POINTER U6E02130 230 | * U6E02140 0087 7104 231 | MDX 1 +4 INCR TO NEXT NAME 2-8 U6E02150 0088 7002 232 | MDX DS150 BR IF MORE ENTRIES 2-8 U6E02160 233 | * U6E02170 234 | * NO MORE ENTRIES IN NAME TABLE. U6E02180 235 | * SET BYPASS-COMPARE SWITCH. U6E02190 236 | * U6E02200 0089 7428 0062R 237 | DS140 MDX L DS120,DS150-DS120-1 SET BYPASS SW2-8 U6E02210 238 | * U6E02220 239 | * SLET ENTRY COLLECTED IN PRINT LINE. U6E02230 240 | * INCREMENT HORIZONTAL TAB POINTER. U6E02240 241 | * TEST IF LINE NOW FULL. U6E02250 242 | * U6E02260 008B 741F 00D0R 243 | DS150 MDX L DS290,+31 INCR HORIZ TAB POINTER 2-8 U6E02270 008D 74FF 00D1R 244 | MDX L DS295,-1 DECREMENT TAB COUNT 2-8 U6E02280 008F 7001 245 | MDX DS180 BR IF LINE *NOT* FULL 2-8 U6E02290 246 | * U6E02300 247 | * LINE IS FULL. PRINT THE LINE. U6E02310 248 | * U6E02320 0090 4012 249 | BSI DS220 PRINT, CLEAR, RESET TAB 2-8 U6E02330 250 | * U6E02340 251 | * FINISHED WITH ONE ENTRY. UPDATE U6E02350 252 | * POINTER TO SLET. U6E02360 0091 7204 253 | DS180 MDX 2 +4 INCR SLET PTR 2-8 U6E02370 0092 74FF 00D2R 254 | MDX L DS298,-1 DECR SLET ENTRY COUNT 2-8 U6E02380 0094 70B2 255 | MDX DS100 BR IF SLET NOT EXHAUSTED2-8 U6E02390 256 | * U6E02400 257 | * EXHAUSTED SLET ITEMS. PRINT PENDING U6E02410 258 | * LINE (MAY BE BLANK). U6E02420 259 | * U6E02430 0095 400D 260 | DS350 BSI DS220 PRINT THE LINE 2-8 U6E02440 261 | * U6E02450 262 | * E X I T F R O M D S L E T U6E02460 263 | * U6E02470 0096 6038 264 | EXIT 2-8 U6E02480 266 | * U6E02500 267 | * CONSTANTS AND WORK AREA U6E02510 268 | * U6E02520 0098 269 | BSS E 0 ASSURE EVEN BOUNDARY 2-8 U6E02530 0098 7002 270 | DS910 DC /7002 VERTICAL SPACE FUNC CODE U6E02540 0099 0028 271 | DS911 DC DS955-DS950 HEADER PRINT WORD COUNT U6E02550 009A 0001 272 | DS912 DC /0001 MASK FOR APOSTROPHE 2-8 U6E02560 009B 0009 273 | DS913 DC 9 DECIMAL NINE CONSTANT U6E02570 009C 0039 274 | DS914 DC /F9-/C0 CONVERSION CONSTANT U6E02580 009D 00C0 275 | DS915 DC /C0 CONVERSION CONSTANT U6E02590 009E 007C 276 | DS919 DC /007C EBCDIC AT SIGN U6E02600 009F 0000 277 | DS920 DC *-* ADDR OF PRINCIPAL PRINT U6E02610 00A0 0040 278 | DS921 DC /0040 BLANK FOR CLEARING LINE 2-8 U6E02620 00A1 00CE 279 | DS922 DC /CE MUP PHASE ID 2-9 U6E02621 00A2 0000 280 | DS923 DC *-* MUP REACHED SWITCH 2-9 U6E02622 281 | * U6E02630 282 | * SERVICE ROUTINE TO PACK A LINE, U6E02640 283 | * PRINT IT, CAUSE IT TO BE CLEARED U6E02650 284 | * AND HORIZONTAL TAB POINTER RESET. U6E02660 285 | * U6E02670 00A3 0000 286 | DS220 DC *-* ENTRY POINT 2-8 U6E02680 00A4 6A1A 287 | STX 2 DS240+1 SAVE XR2 2-8 U6E02690 00A5 6600 00F2R 288 | LDX L2 DS930 XR2=ADDR PACKED LINE 2-8 U6E02700 00A7 6388 289 | LDX 3 -120 XR3=NEG WORD COUNT UNPKD2-8 U6E02710 290 | * 2-8 U6E02720 00A8 CF00 016AR 291 | DS230 LDD L3 DS930+120 TWO WORDS UNPACKED 2-8 U6E02730 00AA 1088 292 | SLT 8 PACK TWO CHARS 2-8 U6E02740 00AB 1808 293 | SRA 8 *INTO 2-8 U6E02750 00AC 1088 294 | SLT 8 *ONE WORD 2-8 U6E02760 00AD D200 295 | STO 2 0 STORE INTO PACKED LINE 2-8 U6E02770 00AE 7201 296 | MDX 2 +1 INCR PTR TO PACKED LINE 2-8 U6E02780 00AF 7302 297 | MDX 3 +2 INCR PTR TO UNPKD LINE 2-8 U6E02790 00B0 70F7 298 | MDX DS230 BR IF LINE NOT FINISHED 2-8 U6E02800 299 | * 2-8 U6E02810 00B1 6700 00F1R 300 | LDX L3 DS930-1 PRINT BUFFER ADDRESS 2-8 U6E02820 00B3 6F00 0007R 301 | STX L3 DS903+1 * 2-8 U6E02830 00B5 CC00 0006R 302 | LDD L DS903 FUNC CODE AND ADDRESS 2-8 U6E02840 00B7 4480 009FR 303 | BSI I DS920 INVOKE DEVICE ROUTINE 2-8 U6E02850 00B9 C400 0036 304 | LD L $PBSY PRINT BUSY INDICATOR 2-8 U6E02860 00BB 4830 305 | BSC -Z SKIP IF BUFFER FREE 2-8 U6E02870 00BC 70FC 306 | MDX *-4 BR IF NOT YET FREE 2-8 U6E02880 307 | * 2-8 U6E02890 00BD 4004 308 | BSI DS250 BR TO CLEAR AND RESET 2-8 U6E02900 309 | * 2-8 U6E02910 00BE 6600 0000 310 | DS240 LDX L2 *-* RESTORE XR2 2-8 U6E02920 00C0 4C80 00A3R 311 | BSC I DS220 RETURN TO CALLER 2-8 U6E02930 312 | * U6E02940 313 | * INNER SERVICE ROUTINE TO CLEAR U6E02950 314 | * BUFFER AND RESET HORIZONTAL TAB U6E02960 315 | * U6E02970 00C2 0000 316 | DS250 DC *-* ENTRY POINT 2-8 U6E02980 00C3 6388 317 | LDX 3 -120 POINTER/COUNTER 2-8 U6E02990 00C4 C0DB 318 | LD DS921 ACC=/0040 2-8 U6E03000 319 | * 2-8 U6E03010 00C5 D700 016AR 320 | DS260 STO L3 DS930+120 CLEAR PRINT 2-8 U6E03020 00C7 7301 321 | MDX 3 +1 *AREA TO 2-8 U6E03030 00C8 70FC 322 | MDX DS260 *ALL BLANKS 2-8 U6E03040 323 | * 2-8 U6E03050 00C9 6304 324 | LDX 3 4 SET NO. ENTRIES/LINE 2-8 U6E03060 00CA 6B06 325 | STX 3 DS295 *INTO COUNTER 2-8 U6E03070 00CB 6700 00F2R 326 | LDX L3 DS930 XR3=PTR TO TAB STOP 1 2-8 U6E03080 00CD 6B02 327 | STX 3 DS290 TAB PTR NOW RESET 2-8 U6E03090 328 | * 2-8 U6E03100 00CE 4C80 00C2R 329 | BSC I DS250 RETURN TO CALLER 2-8 U6E03110 330 | * U6E03120 331 | * CONSTANT AND WORK AREAS U6E03130 332 | * U6E03140 00D0 0000 333 | DS290 DC *-* HORIZ TAB POINTER 2-8 U6E03150 00D1 0000 334 | DS295 DC *-* NO. TABS REMAINING 2-8 U6E03160 00D2 00F0 335 | DS298 DC 240 MAX NO. SLET ENTRIES 2-8 U6E03170 337 | * U6E03190 338 | * SERVICE ROUTINE TO CONVERT BINARY IN U6E03200 339 | * ACC TO UNPACKED EBCDIC REPRESEN- U6E03210 340 | * TATION OF HEX DIGITS U6E03220 341 | * U6E03230 00D3 0000 342 | DS200 DC *-* ENTRY POINT 2-8 U6E03240 00D4 1890 343 | SRT 16 BINARY VALUE TO EXT 2-8 U6E03250 00D5 6780 00D3R 344 | LDX I3 DS200 XR3=ADDR OF ARG LIST 2-8 U6E03260 00D7 C300 345 | LD 3 0 ACC=NO. DIGITS 2-8 U6E03270 00D8 D015 346 | STO DS215 SAVE NO. DIGITS 2-8 U6E03280 00D9 C301 347 | LD 3 1 ACC=DISPLACEMENT 2-8 U6E03290 00DA 80F5 348 | A DS290 ADD TAB POINTER 2-8 U6E03300 00DB D001 349 | STO *+1 SET XR3 TO 2-8 U6E03310 00DC 6700 0000 350 | LDX L3 *-* *RIGHT END ADDRESS 2-8 U6E03320 00DE 7402 00D3R 351 | MDX L DS200,+2 PREPARE RETURN ADDRESS 2-8 U6E03330 352 | * 2-8 U6E03340 00E0 1010 353 | DS210 SLA 16 CLEAR ACC 2-8 U6E03350 00E1 18C4 354 | RTE 4 ACC(BITS 0-3)=HEX DIGIT 2-8 U6E03360 00E2 180C 355 | SRA 12 ACC=/000X 2-8 U6E03370 00E3 90B7 356 | S DS913 SUBTRACT 9 2-8 U6E03380 00E4 4808 357 | BSC + SKIP IF WAS /A-/F 2-8 U6E03390 00E5 80B6 358 | A DS914 ADD /39 IF WAS /0-/9 2-8 U6E03400 00E6 80B6 359 | A DS915 ALWAYS ADD /C0 2-8 U6E03410 00E7 D300 360 | STO 3 0 STORE UNPACKED EBC CHAR 2-8 U6E03420 00E8 73FF 361 | MDX 3 -1 DECR POINTER TO LINE 2-8 U6E03430 00E9 74FF 00EER 362 | MDX L DS215,-1 DECR COUNT 2-8 U6E03440 00EB 70F4 363 | MDX DS210 BR IF MORE TO CONVERT 2-8 U6E03450 364 | * 2-8 U6E03460 00EC 4C80 00D3R 365 | BSC I DS200 RETURN TO CALLER 2-8 U6E03470 366 | * 2-8 U6E03480 00EE 0000 367 | DS215 DC *-* SAVE NO. DIGITS 2-8 U6E03490 368 | * U6E03500 369 | * BUFFERS AND TABLES U6E03510 370 | * U6E03520 371 | * *CODING REMOVED* 2-8 U6E03530 372 | * U6E03540 373 | * UNPACKED/PACKED ENTRY LINE BUFFER U6E03550 374 | * U6E03560 00F0 375 | BSS E 1 2-8 U6E03570 00F1 003C 376 | DC 60 WORD COUNT FOR PRINT 2-8 U6E03580 00F2 377 | DS930 BSS 120 PACKED/UNPACKED LINE 2-8 U6E03590 378 | * U6E03600 379 | * FIRST HEADER LINE BUFFER U6E03610 380 | * U6E03620 016A 381 | BSS E 0 MAKE ADDRESS EVEN U6E03630 016A 000F 382 | DC 15 WORD COUNT FOR DISK READ U6E03640 016B 0007 383 | DC /0007 SECTOR ADDR OF HEADER U6E03650 016C 4040 4040 4040 4040 384 | DS950 EBC . . 40 U6E03660 4040 4040 4040 4040 | 4040 4040 | 0176 4040 4040 4040 4040 385 | EBC . . *BLANKS U6E03670 4040 4040 4040 4040 | 4040 4040 | 0180 E2E8 E2E3 C5D4 40D3 386 | EBC .SYSTEM LOCATION EQUIVALENCE TABLE . U6E03680 D6C3 C1E3 C9D6 D540 | C5D8 E4C9 E5C1 D3C5 | D5C3 C540 E3C1 C2D3 | C540 | 0191 4DE2 D3C5 E35D 387 | EBC .(SLET). U6E03690 0194R 388 | DS955 EQU * END OF BUFFER U6E03700 389 | * U6E03710 390 | * FIRST LINE OF SUBHEADING U6E03720 391 | * U6E03730 0194 392 | BSS E 1 U6E03740 0195 003C 393 | DC DS965-DS960 WORD COUNT U6E03750 0196 E2E8 D4C2 D6D3 40D7 394 | DS960 EBC .SYMBOL PH CORE WORD SCTR . U6E03760 C840 40C3 D6D9 C540 | 40E6 D6D9 C440 40E2 | C3E3 D940 | 01A4 4040 40E2 E8D4 C2D6 395 | EBC . SYMBOL PH CORE WORD SCTR . U6E03770 D340 D7C8 4040 C3D6 | D9C5 4040 E6D6 D9C4 | 4040 E2C3 E3D9 4040 | 4040 | 01B5 E2E8 D4C2 D6D3 40D7 396 | EBC .SYMBOL PH CORE WORD SCTR . U6E03780 C840 40C3 D6D9 C540 | 40E6 D6D9 C440 40E2 | C3E3 D940 | 01C3 4040 40E2 E8D4 C2D6 397 | EBC . SYMBOL PH CORE WORD SCTR. U6E03790 D340 D7C8 4040 C3D6 | D9C5 4040 E6D6 D9C4 | 4040 E2C3 E3D9 | 01D2R 398 | DS965 EQU * END OF BUFFER U6E03800 399 | * U6E03810 400 | * SECOND LINE OF SUBHEADING U6E03820 401 | * U6E03830 01D2 402 | BSS E 1 U6E03840 01D3 003C 403 | DC DS975-DS970 U6E03850 01D4 4040 4040 4040 40C9 404 | DS970 EBC . ID ADDR COUNT ADDR . U6E03860 C440 40C1 C4C4 D940 | 40C3 D6E4 D5E3 40C1 | C4C4 D940 | 01E2 4040 4040 4040 4040 405 | EBC . ID ADDR COUNT ADDR . U6E03870 4040 C9C4 4040 C1C4 | C4D9 4040 C3D6 E4D5 | E340 C1C4 C4D9 4040 | 4040 | 01F3 4040 4040 4040 40C9 406 | EBC . ID ADDR COUNT ADDR . U6E03880 C440 40C1 C4C4 D940 | 40C3 D6E4 D5E3 40C1 | C4C4 D940 | 0201 4040 4040 4040 4040 407 | EBC . ID ADDR COUNT ADDR. U6E03890 4040 C9C4 4040 C1C4 | C4D9 4040 C3D6 E4D5 | E340 C1C4 C4D9 | 0210R 408 | DS975 EQU * U6E03900 409 | * U6E03910 410 | * THIRD LINE OF SUBHEADING U6E03920 411 | * U6E03930 0210 412 | BSS E 1 U6E03940 0211 003C 413 | DC DS985-DS980 U6E03950 0212 5C5C 5C5C 5C40 405C 414 | DS980 EBC .***** ** **** **** **** . U6E03960 5C40 405C 5C5C 5C40 | 405C 5C5C 5C40 405C | 5C5C 5C40 | 0220 4040 405C 5C5C 5C5C 415 | EBC . ***** ** **** **** **** . U6E03970 4040 5C5C 4040 5C5C | 5C5C 4040 5C5C 5C5C | 4040 5C5C 5C5C 4040 | 4040 | 0231 5C5C 5C5C 5C40 405C 416 | EBC .***** ** **** **** **** . U6E03980 5C40 405C 5C5C 5C40 | 405C 5C5C 5C40 405C | 5C5C 5C40 | 023F 4040 405C 5C5C 5C5C 417 | EBC . ***** ** **** **** ****. U6E03990 4040 5C5C 4040 5C5C | 5C5C 4040 5C5C 5C5C | 4040 5C5C 5C5C | 024ER 418 | DS985 EQU * U6E04000 419 | * U6E04010 420 | * SLET BUFFER U6E04020 421 | * U6E04030 024E 422 | BSS E 0 U6E04040 024E 03C0 423 | DS990 DC 960 BUFFER WORD COUNT 2-8 U6E04050 024F 0003 424 | DC /0003 SLET SECTOR ADDRESS U6E04060 0250 425 | BSS 960 RESERVE 960 WORDS 2-8 U6E04070 426 | * U6E04080 427 | * SLET MNEMONIC NAME TABLE U6E04090 428 | * U6E04100 429 | * DISK UTILITY PROGRAM - PART I 2-8 U6E04110 430 | * U6E04120 0610 0001 431 | DS800 DC /01 PHASE ID U6E04130 0611 7CC4 C4E4 D740 432 | EBC .@DDUP . DUPCO U6E04140 0614 0002 433 | DC /02 PHASE ID U6E04150 0615 7CC4 C3E3 D340 434 | EBC .@DCTL . DUP CONTROL - PART 1 2-8 U6E04160 0618 0003 435 | DC /03 PHASE ID U6E04170 0619 7CE2 E3D6 D940 436 | EBC .@STOR . STORE U6E04180 061C 0004 437 | DC /04 PHASE ID U6E04190 061D 7CC6 C9D3 D840 438 | EBC .@FILQ . FILE EQUATE U6E04200 0620 0005 439 | DC /05 PHASE ID U6E04210 0621 7CC4 E4D4 D740 440 | EBC .@DUMP . DUMP U6E04220 0624 0006 441 | DC /06 PHASE ID U6E04230 0625 7CC4 D361 C640 442 | EBC .@DL/F . DUMP LET/FLET U6E04240 0628 0007 443 | DC /07 PHASE ID U6E04250 0629 7CC4 D3E3 C540 444 | EBC .@DLTE . DELETE U6E04260 062C 0008 445 | DC /08 PHASE ID U6E04270 062D 7CC4 C6D5 C540 446 | EBC .@DFNE . DEFINE U6E04280 0630 0009 447 | DC /09 PHASE ID U6E04290 0631 7CC5 E7C9 E340 448 | EBC .@EXIT . DEXIT U6E04300 0634 000A 449 | DC /0A PHASE ID U6E04310 0635 7CC3 C6C3 C540 450 | EBC .@CFCE . CARD INTERFACE U6E04320 0638 000B 451 | DC /0B PHASE ID U6E04330 0639 7CC4 E4F1 F140 452 | EBC .@DU11 . KEYBOARD INTERFACE U6E04340 063C 000C 453 | DC /0C PHASE ID U6E04350 063D 7CC4 E4F1 F240 454 | EBC .@DU12 . PAPER TAPE INTERFACE U6E04360 0640 000D 455 | DC /0D PHASE ID U6E04370 0641 7CC4 E4F1 F340 456 | EBC .@DU13 . DUP UPCOR U6E04380 0644 000E 457 | DC /0E PHASE ID U6E04390 0645 7CC4 E4F1 F440 458 | EBC .@DU14 . DUP PRINCIPAL I/O U6E04400 0648 000F 459 | DC /0F PHASE ID U6E04410 0649 7CC4 E4F1 F540 460 | EBC .@DU15 . DUP PRINCIPAL I/O SANS KB U6E04420 064C 0010 461 | DC /10 PHASE ID U6E04430 064D 7CC4 E4F1 F640 462 | EBC .@DU16 . DUP PAPER TAPE I/O U6E04440 0650 0011 463 | DC /11 PHASE ID U6E04450 0651 7CD7 D9C3 C940 464 | EBC .@PRCI . PRE CORE IMAGE U6E04460 0654 0012 465 | DC /12 PHASE ID U6E04470 0655 7CC4 E4F1 F840 466 | EBC .@DU18 . DUP RESERVED U6E04480 467 | * U6E04490 468 | * FORTRAN COMPILER U6E04500 469 | * U6E04510 0658 001F 470 | DC /1F PHASE ID U6E04520 0659 7CC6 D9F0 F140 471 | EBC .@FR01 . INPUT U6E04530 065C 0020 472 | DC /20 PHASE ID U6E04540 065D 7CC6 D9F0 F240 473 | EBC .@FR02 . CLASSIFIER U6E04550 0660 0021 474 | DC /21 PHASE ID U6E04560 0661 7CC6 D9F0 F340 475 | EBC .@FR03 . CHECK ORDER/STMNT NUMBER U6E04570 0664 0022 476 | DC /22 PHASE ID U6E04580 0665 7CC6 D9F0 F440 477 | EBC .@FR04 . COMMON/SUBROUTINE OR FUNC U6E04590 0668 0023 478 | DC /23 PHASE ID U6E04600 0669 7CC6 D9F0 F540 479 | EBC .@FR05 . DIM/REAL, INTEGER, EXTERNAL U6E04610 066C 0024 480 | DC /24 PHASE ID U6E04620 066D 7CC6 D9F0 F640 481 | EBC .@FR06 . REAL CONSTANTS U6E04630 0670 0025 482 | DC /25 PHASE ID U6E04640 0671 7CC6 D9F0 F740 483 | EBC .@FR07 . DEFN FILE, CALL LINK/EXIT U6E04650 0674 0026 484 | DC /26 PHASE ID U6E04660 0675 7CC6 D9F0 F840 485 | EBC .@FR08 . VARIABLES AND STMNT FUNC U6E04670 0678 0027 486 | DC /27 PHASE ID U6E04680 0679 7CC6 D9F0 F940 487 | EBC .@FR09 . DATA STATEMENT U6E04690 067C 0028 488 | DC /28 PHASE ID U6E04700 067D 7CC6 D9F1 F040 489 | EBC .@FR10 . FORMAT U6E04710 0680 0029 490 | DC /29 PHASE ID U6E04720 0681 7CC6 D9F1 F140 491 | EBC .@FR11 . SUBSCRIPT DECOMPOSITION U6E04730 0684 002A 492 | DC /2A PHASE ID U6E04740 0685 7CC6 D9F1 F240 493 | EBC .@FR12 . ASCAN I U6E04750 0688 002B 494 | DC /2B PHASE ID U6E04760 0689 7CC6 D9F1 F340 495 | EBC .@FR13 . ASCAN II U6E04770 068C 002C 496 | DC /2C PHASE ID U6E04780 068D 7CC6 D9F1 F440 497 | EBC .@FR14 . DO, CONTINUE, ETC U6E04790 0690 002D 498 | DC /2D PHASE ID U6E04800 0691 7CC6 D9F1 F540 499 | EBC .@FR15 . SUBSCRIPT OPTIMIZE U6E04810 0694 002E 500 | DC /2E PHASE ID U6E04820 0695 7CC6 D9F1 F640 501 | EBC .@FR16 . SCAN U6E04830 0698 002F 502 | DC /2F PHASE ID U6E04840 0699 7CC6 D9F1 F740 503 | EBC .@FR17 . EXPANDER I U6E04850 069C 0030 504 | DC /30 PHASE ID U6E04860 069D 7CC6 D9F1 F840 505 | EBC .@FR18 . EXPANDER II U6E04870 06A0 0031 506 | DC /31 PHASE ID U6E04880 06A1 7CC6 D9F1 F940 507 | EBC .@FR19 . DATA ALLOCATION U6E04890 06A4 0032 508 | DC /32 PHASE ID U6E04900 06A5 7CC6 D9F2 F040 509 | EBC .@FR20 . COMPILATION ERRORS U6E04910 06A8 0033 510 | DC /33 PHASE ID U6E04920 06A9 7CC6 D9F2 F140 511 | EBC .@FR21 . STATEMENT ALLOCATION U6E04930 06AC 0034 512 | DC /34 PHASE ID U6E04940 06AD 7CC6 D9F2 F240 513 | EBC .@FR22 . LIST STATEMENT ALLOCATION U6E04950 06B0 0035 514 | DC /35 PHASE ID U6E04960 06B1 7CC6 D9F2 F340 515 | EBC .@FR23 . LIST SYMBOLS U6E04970 06B4 0036 516 | DC /36 PHASE ID U6E04980 06B5 7CC6 D9F2 F440 517 | EBC .@FR24 . LIST CONSTANTS U6E04990 06B8 0037 518 | DC /37 PHASE ID U6E05000 06B9 7CC6 D9F2 F540 519 | EBC .@FR25 . OUTPUT I U6E05010 06BC 0038 520 | DC /38 PHASE ID U6E05020 06BD 7CC6 D9F2 F640 521 | EBC .@FR26 . OUTPUT II U6E05030 06C0 0039 522 | DC /39 PHASE ID U6E05040 06C1 7CC6 D9F2 F740 523 | EBC .@FR27 . RECOVERY U6E05050 06C4 003A 524 | DC /3A PHASE ID U6E05060 06C5 C4E4 D4D4 E840 525 | EBC .DUMMY . DUMMY NAME U6E05070 06C8 003B 526 | DC /3B PHASE ID U6E05080 06C9 C4E4 D4D4 E840 527 | EBC .DUMMY . DUMMY NAME U6E05090 06CC 003C 528 | DC /3C PHASE ID U6E05100 06CD C4E4 D4D4 E840 529 | EBC .DUMMY . DUMMY NAME U6E05110 530 | * 2-9 U6E05120 531 | * COBOL COMPILER 2-9 U6E05130 532 | * 2-9 U6E05140 06D0 0051 533 | DC /51 PHASE ID 2-9 U6E05150 06D1 7CD8 C3E3 D340 534 | EBC .@QCTL . PROCESS CTL CDS 2-9 U6E05160 06D4 0052 535 | DC /52 PHASE ID 2-9 U6E05170 06D5 7CD8 E3E7 E340 536 | EBC .@QTXT . SOURCE TEXT REDUCTION 2-9 U6E05180 06D8 0053 537 | DC /53 PHASE ID 2-9 U6E05190 06D9 7CD8 D3C9 E340 538 | EBC .@QLIT . LITERAL ALLOCATION 2-9 U6E05200 06DC 0054 539 | DC /54 PHASE ID 2-9 U6E05210 06DD 7CD8 C4E3 C140 540 | EBC .@QDTA . DATA DIVISION PROCESSING2-9 U6E05220 06E0 0055 541 | DC /55 PHASE ID 2-9 U6E05230 06E1 7CD8 D7D9 D640 542 | EBC .@QPRO . PROCEDURE DIV SCAN 2-9 U6E05240 06E4 0056 543 | DC /56 PHASE ID 2-9 U6E05250 06E5 7CD8 C7C5 D540 544 | EBC .@QGEN . GENERATE INST STRINGS 2-9 U6E05260 06E8 0057 545 | DC /57 PHASE ID 2-9 U6E05270 06E9 7CD8 D6C2 D140 546 | EBC .@QOBJ . PRODUCE DSF-MODULE 2-9 U6E05280 06EC 0058 547 | DC /58 PHASE ID 2-9 U6E05290 06ED 7CD8 C5D9 D940 548 | EBC .@QERR . MAP/DIAGNOSTIC OUTPUT 2-9 U6E05300 06F0 0059 549 | DC /59 PHASE ID 2-9 U6E05310 06F1 7CD8 C5D5 C440 550 | EBC .@QEND . COMPILE TERMINATION 2-9 U6E05320 06F4 005A 551 | DC /5A PHASE ID 2-9 U6E05330 06F5 7CD8 E2C5 D940 552 | EBC .@QSER . PRODUCE SERVICEABILITY 2-9 U6E05340 06F8 005B 553 | DC /5B 2-11 U6E05342 06F9 7CD8 E7D9 F140 554 | EBC .@QXR1 . 2-11 U6E05344 06FC 005C 555 | DC /5C 2-11 U6E05346 06FD 7CD8 E7D9 F240 556 | EBC .@QXR2 . 2-11 U6E05348 557 | * U6E05350 558 | * SUPERVISOR U6E05360 559 | * U6E05370 0700 006E 560 | DC /6E PHASE ID U6E05380 0701 7CE2 E4D7 F140 561 | EBC .@SUP1 . MONITOR CTRL RCD ANALYZER U6E05390 0704 006F 562 | DC /6F PHASE ID U6E05400 0705 7CE2 E4D7 F240 563 | EBC .@SUP2 . JOB RECORD PROCESSING 2-4 U6E05410 0708 0070 564 | DC /70 PHASE ID U6E05420 0709 7CE2 E4D7 F340 565 | EBC .@SUP3 . DELETE TEMPOTARY LET 2-4 U6E05430 070C 0071 566 | DC /71 PHASE ID U6E05440 070D 7CE2 E4D7 F440 567 | EBC .@SUP4 . XEQ RECORD PROCESSING 2-4 U6E05450 0710 0072 568 | DC /72 2-2 U6E05460 0711 7CE2 E4D7 F540 569 | EBC .@SUP5 . SCR PROCESSING 2-4 U6E05470 0714 0073 570 | DC /73 2-4 U6E05480 0715 7CE2 E4D7 F640 571 | EBC .@SUP6 . SYSTEM DUMP PROGRAM 2-4 U6E05490 0718 0074 572 | DC /74 2-4 U6E05500 0719 7CE2 E4D7 F740 573 | EBC .@SUP7 . AUXILIARY SUPERVISOR 2-4 U6E05510 574 | * U6E05520 575 | * CORE LOAD BUILDER U6E05530 576 | * U6E05540 071C 0078 577 | DC /78 PHASE ID U6E05550 071D 7CC3 D3C2 F140 578 | EBC .@CLB1 . PHASE 1 U6E05560 0720 0079 579 | DC /79 PHASE ID U6E05570 0721 7CC3 D3C2 F240 580 | EBC .@CLB2 . PHASE 2 U6E05580 0724 007A 581 | DC /7A PHASE ID U6E05590 0725 7CC3 D3C2 F340 582 | EBC .@CLB3 . PHASE 3 U6E05600 0728 007B 583 | DC /7B PHASE ID U6E05610 0729 7CC3 D3C2 F440 584 | EBC .@CLB4 . PHASE 4 U6E05620 072C 007C 585 | DC /7C PHASE ID U6E05630 072D 7CC3 D3C2 F540 586 | EBC .@CLB5 . PHASE 5 U6E05640 0730 007D 587 | DC /7D PHASE ID U6E05650 0731 7CC3 D3C2 F640 588 | EBC .@CLB6 . PHASE 6 U6E05660 0734 007E 589 | DC /7E PHASE ID U6E05670 0735 7CC3 D3C2 F740 590 | EBC .@CLB7 . PHASE 7 U6E05680 0738 007F 591 | DC /7F PHASE ID U6E05690 0739 7CC3 D3C2 F840 592 | EBC .@CLB8 . PHASE 8 U6E05700 073C 0080 593 | DC /80 PHASE ID U6E05710 073D 7CC3 D3C2 F940 594 | EBC .@CLB9 . PHASE 9 U6E05720 0740 0081 595 | DC /81 PHASE ID U6E05730 0741 7CC3 D3C2 C140 596 | EBC .@CLBA . PHASE 10 U6E05740 0744 0082 597 | DC /82 PHASE ID U6E05750 0745 7CC3 D3C2 C240 598 | EBC .@CLBB . PHASE 11 U6E05760 0748 0083 599 | DC /83 PHASE ID U6E05770 0749 7CC3 D3C2 C340 600 | EBC .@CLBC . PHASE 12 U6E05780 074C 0084 601 | DC /84 2-2 U6E05790 074D 7CC3 D3C2 C440 602 | EBC .@CLBD . PHASE 13 (GRAPHICS) 2-2 U6E05800 603 | * U6E05810 604 | * SYSTEM DEVICE SUBROUTINES U6E05820 605 | * U6E05830 0750 008C 606 | DC /8C PHASE ID U6E05840 0751 7CF1 F4F0 F340 607 | EBC .@1403 . 1403 SUBR U6E05850 0754 008D 608 | DC /8D PHASE ID U6E05860 0755 7CF1 F1F3 F240 609 | EBC .@1132 . 1132 SUBR U6E05870 0758 008E 610 | DC /8E PHASE ID U6E05880 0759 7CC3 D7E3 D940 611 | EBC .@CPTR . CONSOLE PRINTER SUBR U6E05890 075C 008F 612 | DC /8F PHASE ID U6E05900 075D 7CF2 F5F0 F140 613 | EBC .@2501 . 2501 SUBR U6E05910 0760 0090 614 | DC /90 PHASE ID U6E05920 0761 7CF1 F4F4 F240 615 | EBC .@1442 . 1442 SUBR U6E05930 0764 0091 616 | DC /91 PHASE ID U6E05940 0765 7CF1 F1F3 F440 617 | EBC .@1134 . 1134 SUBR U6E05950 0768 0092 618 | DC /92 PHASE ID U6E05960 0769 7CD2 C2C3 D740 619 | EBC .@KBCP . KB/CONSOLE PRINTER SUBR U6E05970 076C 0093 620 | DC /93 PHASE ID U6E05980 076D 7CC3 C4C3 E540 621 | EBC .@CDCV . 2501/1442 CONVERSION SUBR U6E05990 0770 0094 622 | DC /94 PHASE ID U6E06000 0771 7CD7 E3C3 E540 623 | EBC .@PTCV . 1134 CONVERSION SUBR U6E06010 0774 0095 624 | DC /95 PHASE ID U6E06020 0775 7CD2 C2C3 E540 625 | EBC .@KBCV . KB/CP CONVERSION SUBR U6E06030 0778 0096 626 | DC /96 PHASE ID U6E06040 0779 7CC4 E9C9 C440 627 | EBC .@DZID . DISKZ U6E06050 077C 0097 628 | DC /97 PHASE ID U6E06060 077D 7CC4 F1C9 C440 629 | EBC .@D1ID . DISK1 U6E06070 0780 0098 630 | DC /98 PHASE ID U6E06080 0781 7CC4 D5C9 C440 631 | EBC .@DNID . DISKN U6E06090 0784 0099 632 | DC /99 PHASE ID U6E06100 0785 7CD7 D7D9 E340 633 | EBC .@PPRT . PRINCIPAL PRINT SUBROUTINE U6E06110 0788 009A 634 | DC /9A PHASE ID U6E06120 0789 7CD7 C9E6 D240 635 | EBC .@PIWK . PRINCIPAL INPUT SUBROUTINE U6E06130 078C 009B 636 | DC /9B PHASE ID U6E06140 078D 7CD7 C9E7 D240 637 | EBC .@PIXK . PRINCIPAL INPUT W/O KB U6E06150 0790 009C 638 | DC /9C PHASE ID U6E06160 0791 7CD7 C3E6 D240 639 | EBC .@PCWK . PRINCIPAL CONV W/ KEYBOARD U6E06170 0794 009D 640 | DC /9D PHASE ID U6E06180 0795 7CD7 C3E7 D240 641 | EBC .@PCXK . PRINCIPAL CONV W/O KEYBOARD U6E06190 642 | * U6E06200 643 | * CORE IMAGE LOADER U6E06210 644 | * U6E06220 0798 00A0 645 | DC /A0 PHASE ID U6E06230 0799 7CC3 C9D3 F140 646 | EBC .@CIL1 . PHASE 1 U6E06240 079C 00A1 647 | DC /A1 PHASE ID U6E06250 079D 7CC3 C9D3 F240 648 | EBC .@CIL2 . PHASE 2 U6E06260 649 | * 2-5 U6E06270 650 | * REPORT PROGRAM GENERATOR 2-5 U6E06280 651 | * 2-5 U6E06290 07A0 00B0 652 | DC /B0 PHASE ID 2-5 U6E06300 07A1 7CD9 C7F0 F040 653 | EBC .@RG00 . PHASE 0 2-5 U6E06310 07A4 00B1 654 | DC /B1 PHASE ID 2-5 U6E06320 07A5 7CD9 C7F0 F240 655 | EBC .@RG02 . PHASE 2 2-5 U6E06330 07A8 00B2 656 | DC /B2 PHASE ID 2-5 U6E06340 07A9 7CD9 C7F0 F440 657 | EBC .@RG04 . PHASE 4 2-5 U6E06350 07AC 00B3 658 | DC /B3 PHASE ID 2-5 U6E06360 07AD 7CD9 C7F0 F640 659 | EBC .@RG06 . PHASE 6 2-5 U6E06370 07B0 00B4 660 | DC /B4 PHASE ID 2-5 U6E06380 07B1 7CD9 C7F0 F840 661 | EBC .@RG08 . PHASE 8 2-5 U6E06390 07B4 00B5 662 | DC /B5 PHASE ID 2-5 U6E06400 07B5 7CD9 C7F1 F040 663 | EBC .@RG10 . PHASE 10 2-5 U6E06410 07B8 00B6 664 | DC /B6 PHASE ID 2-5 U6E06420 07B9 7CD9 C7F1 F240 665 | EBC .@RG12 . PHASE 12 2-5 U6E06430 07BC 00B7 666 | DC /B7 PHASE ID 2-5 U6E06440 07BD 7CD9 C7F1 F440 667 | EBC .@RG14 . PHASE 14 2-5 U6E06450 07C0 00B8 668 | DC /B8 PHASE ID 2-5 U6E06460 07C1 7CD9 C7F1 F640 669 | EBC .@RG16 . PHASE 16 2-5 U6E06470 07C4 00B9 670 | DC /B9 PHASE ID 2-5 U6E06480 07C5 7CD9 C7F1 F740 671 | EBC .@RG17 . PHASE 17 2-5 U6E06490 07C8 00BA 672 | DC /BA PHASE ID 2-5 U6E06500 07C9 7CD9 C7F1 F940 673 | EBC .@RG19 . PHASE 19 2-5 U6E06510 07CC 00BB 674 | DC /BB PHASE ID 2-5 U6E06520 07CD 7CD9 C7F2 F040 675 | EBC .@RG20 . PHASE 20 2-5 U6E06530 07D0 00BC 676 | DC /BC PHASE ID 2-5 U6E06540 07D1 7CD9 C7F2 F140 677 | EBC .@RG21 . PHASE 21 2-5 U6E06550 07D4 00BD 678 | DC /BD PHASE ID 2-5 U6E06560 07D5 7CD9 C7F2 F240 679 | EBC .@RG22 . PHASE 22 2-5 U6E06570 07D8 00BE 680 | DC /BE PHASE ID 2-5 U6E06580 07D9 7CD9 C7F2 F440 681 | EBC .@RG24 . PHASE 24 2-5 U6E06590 07DC 00BF 682 | DC /BF PHASE ID 2-5 U6E06600 07DD 7CD9 C7F2 F640 683 | EBC .@RG26 . PHASE 26 2-5 U6E06610 07E0 00C0 684 | DC /C0 PHASE ID 2-5 U6E06620 07E1 7CD9 C7F2 F840 685 | EBC .@RG28 . PHASE 28 2-5 U6E06630 07E4 00C1 686 | DC /C1 PHASE ID 2-5 U6E06640 07E5 7CD9 C7F3 F240 687 | EBC .@RG32 . PHASE 32 2-5 U6E06650 07E8 00C2 688 | DC /C2 PHASE ID 2-5 U6E06660 07E9 7CD9 C7F3 F440 689 | EBC .@RG34 . PHASE 34 2-5 U6E06670 07EC 00C3 690 | DC /C3 PHASE ID 2-5 U6E06680 07ED 7CD9 C7F3 F640 691 | EBC .@RG36 . PHASE 36 2-5 U6E06690 07F0 00C4 692 | DC /C4 PHASE ID 2-5 U6E06700 07F1 7CD9 C7F3 F840 693 | EBC .@RG38 . PHASE 38 2-5 U6E06710 07F4 00C5 694 | DC /C5 PHASE ID 2-5 U6E06720 07F5 7CD9 C7F4 F040 695 | EBC .@RG40 . PHASE 40 2-5 U6E06730 07F8 00C6 696 | DC /C6 PHASE ID 2-5 U6E06740 07F9 7CD9 C7F4 F240 697 | EBC .@RG42 . PHASE 42 2-5 U6E06750 07FC 00C7 698 | DC /C7 PHASE ID 2-5 U6E06760 07FD 7CD9 C7F4 F440 699 | EBC .@RG44 . PHASE 44 2-5 U6E06770 0800 00C8 700 | DC /C8 PHASE ID 2-5 U6E06780 0801 7CD9 C7F4 F640 701 | EBC .@RG46 . PHASE 46 2-5 U6E06790 0804 00C9 702 | DC /C9 PHASE ID 2-5 U6E06800 0805 7CD9 C7F5 F240 703 | EBC .@RG52 . PHASE 52 2-5 U6E06810 0808 00CA 704 | DC /CA PHASE ID 2-5 U6E06820 0809 7CD9 C7F5 F440 705 | EBC .@RG54 . PHASE 54 2-5 U6E06830 080C 00CB 706 | DC /CB PHASE ID 2-5 U6E06840 080D 7CD9 C7F5 F840 707 | EBC .@RG58 . PHASE 58 2-5 U6E06850 0810 00CC 708 | DC /CC PHASE ID 2-5 U6E06860 0811 7CD9 C7F6 F040 709 | EBC .@RG60 . PHASE 60 2-5 U6E06870 710 | * 2-8 U6E06880 711 | * DISK UTILITY PROGRAM - PART II 2-8 U6E06890 712 | * 2-8 U6E06900 0814 00CD 713 | DC /CD PHASE ID 2-8 U6E06910 0815 7CC4 C3D3 F240 714 | EBC .@DCL2 . DUP CONTROL - PART 2 2-8 U6E06920 0818 00CE 715 | DC /CE PHASE ID 2-8 U6E06930 0819 7CC4 D4E4 D740 716 | EBC .@DMUP . MACRO UPDATE PROGRAM 2-8 U6E06940 717 | * 2-8 U6E06950 718 | * ASSEMBLER 2-8 U6E06960 719 | * 2-8 U6E06970 081C 00CF 720 | DC /CF PHASE ID 2-8 U6E06980 081D 7CC1 E2F0 F040 721 | EBC .@AS00 . PHASE 0 2-8 U6E06990 0820 00D0 722 | DC /D0 PHASE ID 2-8 U6E07000 0821 7CC1 C3D5 E540 723 | EBC .@ACNV . CARD CONVERSION 2-8 U6E07010 0824 00D1 724 | DC /D1 PHASE ID 2-8 U6E07020 0825 7CC1 E2F1 F040 725 | EBC .@AS10 . PHASE 10 2-8 U6E07030 0828 00D2 726 | DC /D2 PHASE ID 2-8 U6E07040 0829 7CC1 E2F1 F140 727 | EBC .@AS11 . PHASE 11 2-8 U6E07050 082C 00D3 728 | DC /D3 PHASE ID 2-8 U6E07060 082D 7CC1 E2F1 F240 729 | EBC .@AS12 . PHASE 12 2-8 U6E07070 0830 00D4 730 | DC /D4 PHASE ID 2-8 U6E07080 0831 7CC1 C5D9 D440 731 | EBC .@AERM . ERROR MESSAGES 2-8 U6E07090 0834 00D5 732 | DC /D5 PHASE ID 2-8 U6E07100 0835 7CC1 E2F0 F140 733 | EBC .@AS01 . PHASE 1 2-8 U6E07110 0838 00D6 734 | DC /D6 PHASE ID 2-8 U6E07120 0839 7CC1 E2F1 C140 735 | EBC .@AS1A . PHASE 1A 2-8 U6E07130 083C 00D7 736 | DC /D7 PHASE ID 2-8 U6E07140 083D 7CC1 E2E8 D440 737 | EBC .@ASYM . SYSTEM SYMBOL TABLE 2-8 U6E07150 0840 00D8 738 | DC /D8 PHASE ID 2-8 U6E07160 0841 7CC1 E2F0 F340 739 | EBC .@AS03 . PHASE 3 2-8 U6E07170 0844 00D9 740 | DC /D9 PHASE ID 2-8 U6E07180 0845 7CC1 E2F0 F440 741 | EBC .@AS04 . PHASE 4 2-8 U6E07190 0848 00DA 742 | DC /DA PHASE ID 2-8 U6E07200 0849 7CC1 E2F0 F240 743 | EBC .@AS02 . PHASE 2 2-8 U6E07210 084C 00DB 744 | DC /DB PHASE ID 2-8 U6E07220 084D 7CC1 E2F2 C140 745 | EBC .@AS2A . PHASE 2A 2-8 U6E07230 0850 00DC 746 | DC /DC PHASE ID 2-8 U6E07240 0851 7CC1 E2F0 F940 747 | EBC .@AS09 . PHASE 9 2-8 U6E07250 0854 00DD 748 | DC /DD PHASE ID 2-8 U6E07260 0855 7CC1 E2F0 F540 749 | EBC .@AS05 . PHASE 5 2-8 U6E07270 0858 00DE 750 | DC /DE PHASE ID 2-8 U6E07280 0859 7CC1 E2F0 F640 751 | EBC .@AS06 . PHASE 6 2-8 U6E07290 085C 00DF 752 | DC /DF PHASE ID 2-8 U6E07300 085D 7CC1 E2F0 F740 753 | EBC .@AS07 . PHASE 7 2-8 U6E07310 0860 00E0 754 | DC /E0 PHASE ID 2-8 U6E07320 0861 7CC1 E2F7 C140 755 | EBC .@AS7A . PHASE 7A 2-8 U6E07330 0864 00E1 756 | DC /E1 PHASE ID 2-8 U6E07340 0865 7CC1 E2F0 F840 757 | EBC .@AS08 . PHASE 8 2-8 U6E07350 0868 00E2 758 | DC /E2 PHASE ID 2-8 U6E07360 0869 7CC1 E2F8 C140 759 | EBC .@AS8A . PHASE 8A 2-8 U6E07370 086C 00E3 760 | DC /E3 PHASE ID 2-8 U6E07380 086D 7CC1 D7C3 E540 761 | EBC .@APCV . CARD PUNCH CONVERSION 2-8 U6E07390 0870 00E4 762 | DC /E4 PHASE ID 2-8 U6E07400 0871 7CC1 C9D5 E340 763 | EBC .@AINT . INTERMEDIATE DISK OUTPT 2-8 U6E07410 0874 00E5 764 | DC /E5 PHASE ID 2-8 U6E07420 0875 7CC1 E2C1 C140 765 | EBC .@ASAA . PHASE 10A 2-8 U6E07430 0878 00E6 766 | DC /E6 PHASE ID 2-8 U6E07440 0879 7CC1 E2C7 D940 767 | EBC .@ASGR . PHASE 13 GRAPHICS 2-8 U6E07450 087C 00E7 768 | DC /E7 PHASE ID 2-8 U6E07460 087D 7CC1 C4C9 E540 769 | EBC .@ADIV . DIVISION OPERATOR 2-8 U6E07470 0880 00E8 770 | DC /E8 PHASE ID 2-8 U6E07480 0881 7CC1 D4C3 C340 771 | EBC .@AMCC . MACRO CONTROL CARDS III 2-8 U6E07490 0884 00E9 772 | DC /E9 PHASE ID 2-8 U6E07500 0885 7CC1 D4F0 F140 773 | EBC .@AM01 . MACRO PHASE 1 2-8 U6E07510 0888 00EA 774 | DC /EA PHASE ID 2-8 U6E07520 0889 7CC1 D4F1 C140 775 | EBC .@AM1A . MACRO PHASE 1A 2-8 U6E07530 088C 00EB 776 | DC /EB PHASE ID 2-8 U6E07540 088D 7CC1 D4F1 C240 777 | EBC .@AM1B . MACRO PHASE 1B 2-8 U6E07550 0890 00EC 778 | DC /EC PHASE ID 2-8 U6E07560 0891 7CC1 D4F0 F240 779 | EBC .@AM02 . MACRO PHASE 2 2-8 U6E07570 0894 00ED 780 | DC /ED PHASE ID 2-8 U6E07580 0895 7CC1 D4F2 C140 781 | EBC .@AM2A . MACRO PHASE 2A 2-8 U6E07590 0898 00EE 782 | DC /EE PHASE ID 2-8 U6E07600 0899 7CC1 D4F2 C240 783 | EBC .@AM2B . MACRO PHASE 2B 2-8 U6E07610 089C 00EF 784 | DC /EF PHASE ID 2-8 U6E07620 089D 7CC1 D4F0 F340 785 | EBC .@AM03 . MACRO PHASE 3 2-8 U6E07630 08A0 00F0 786 | DC /F0 PHASE ID 2-8 U6E07640 08A1 7CC1 D4F3 C140 787 | EBC .@AM3A . MACRO PHASE 3A 2-8 U6E07650 08A4 00F1 788 | DC /F1 PHASE ID 2-8 U6E07660 08A5 7CC1 D4F3 C240 789 | EBC .@AM3B . MACRO PHASE 3B 2-8 U6E07670 08A8 00F2 790 | DC /F2 PHASE ID 2-8 U6E07680 08A9 7CC1 E7F0 F140 791 | EBC .@AX01 . CROSS REF - PART 1 2-8 U6E07690 08AC 00F3 792 | DC /F3 PHASE ID 2-8 U6E07700 08AD 7CC1 E7F2 C140 793 | EBC .@AX2A . CROSS REF - PART 2A 2-8 U6E07710 08B0 00F4 794 | DC /F4 PHASE ID 2-8 U6E07720 08B1 7CC1 E7F2 C240 795 | EBC .@AX2B . CROSS REF - PART 2B 2-8 U6E07730 08B4 00F5 796 | DC /F5 PHASE ID 2-8 U6E07740 08B5 7CC1 E7F2 C340 797 | EBC .@AX2C . CROSS REF - PART 2C 2-8 U6E07750 08B8 00F6 798 | DC /F6 PHASE ID 2-8 U6E07760 08B9 7CC1 E7F0 F340 799 | EBC .@AX03 . CROSS REF - PART 3 2-8 U6E07770 800 | * 2-11 U6E07780 801 | * MSP7 ASSEMBLER PHASE ID TABLE 2-11 U6E07790 802 | * 2-11 U6E07800 08BC 0100 803 | DC /100 2-11 U6E07810 08BD 7CC1 E2F0 F040 804 | EBC .@AS00 . 2-11 U6E07820 08C0 0101 805 | DC /101 2-11 U6E07830 08C1 7CC1 C3D5 E540 806 | EBC .@ACNV . 2-11 U6E07840 08C4 0102 807 | DC /102 2-11 U6E07850 08C5 7CC1 E2F1 F040 808 | EBC .@AS10 . 2-11 U6E07860 08C8 0103 809 | DC /103 2-11 U6E07870 08C9 7CC1 E2F1 F140 810 | EBC .@AS11 . 2-11 U6E07880 08CC 0104 811 | DC /104 2-11 U6E07890 08CD 7CC1 E2F1 F240 812 | EBC .@AS12 . 2-11 U6E07900 08D0 0105 813 | DC /105 2-11 U6E07910 08D1 7CC1 C5D9 D440 814 | EBC .@AERM . 2-11 U6E07920 08D4 0106 815 | DC /106 2-11 U6E07930 08D5 7CC1 E2F0 F140 816 | EBC .@AS01 . 2-11 U6E07940 08D8 0107 817 | DC /107 2-11 U6E07950 08D9 7CC1 E2F1 C140 818 | EBC .@AS1A . 2-11 U6E07960 08DC 0108 819 | DC /108 2-11 U6E07970 08DD 7CC1 E2E8 D440 820 | EBC .@ASYM . 2-11 U6E07980 08E0 0109 821 | DC /109 2-11 U6E07990 08E1 7CC1 E2F0 F340 822 | EBC .@AS03 . 2-11 U6E08000 08E4 010A 823 | DC /10A 2-11 U6E08010 08E5 7CC1 E2F0 F440 824 | EBC .@AS04 . 2-11 U6E08020 08E8 010B 825 | DC /10B 2-11 U6E08030 08E9 7CC1 E2F0 F240 826 | EBC .@AS02 . 2-11 U6E08040 08EC 010C 827 | DC /10C 2-11 U6E08050 08ED 7CC1 E2F2 C140 828 | EBC .@AS2A . 2-11 U6E08060 08F0 010D 829 | DC /10D 2-11 U6E08070 08F1 7CC1 E2F0 F940 830 | EBC .@AS09 . 2-11 U6E08080 08F4 010E 831 | DC /10E 2-11 U6E08090 08F5 7CC1 E2F0 F540 832 | EBC .@AS05 . 2-11 U6E08100 08F8 010F 833 | DC /10F 2-11 U6E08110 08F9 7CC1 E2F0 F640 834 | EBC .@AS06 . 2-11 U6E08120 08FC 0110 835 | DC /110 2-11 U6E08130 08FD 7CC1 E2F0 F740 836 | EBC .@AS07 . 2-11 U6E08140 0900 0111 837 | DC /111 2-11 U6E08150 0901 7CC1 E2F7 C140 838 | EBC .@AS7A . 2-11 U6E08160 0904 0112 839 | DC /112 2-11 U6E08170 0905 7CC1 E2F0 F840 840 | EBC .@AS08 . 2-11 U6E08180 0908 0113 841 | DC /113 2-11 U6E08190 0909 7CC1 E2F8 C140 842 | EBC .@AS8A . 2-11 U6E08200 090C 0114 843 | DC /114 2-11 U6E08210 090D 7CC1 D7C3 E540 844 | EBC .@APCV . 2-11 U6E08220 0910 0115 845 | DC /115 2-11 U6E08230 0911 7CC1 C9D5 E340 846 | EBC .@AINT . 2-11 U6E08240 0914 0116 847 | DC /116 2-11 U6E08250 0915 7CC1 E2C1 C140 848 | EBC .@ASAA . 2-11 U6E08260 0918 0117 849 | DC /117 2-11 U6E08270 0919 7CC1 E2C7 D940 850 | EBC .@ASGR . 2-11 U6E08280 091C 0118 851 | DC /118 2-11 U6E08290 091D 7CC1 C4C9 E540 852 | EBC .@ADIV . 2-11 U6E08300 0920 0119 853 | DC /119 2-11 U6E08310 0921 7CC1 D4C3 C340 854 | EBC .@AMCC . 2-11 U6E08320 0924 011A 855 | DC /11A 2-11 U6E08330 0925 7CC1 D4F0 F140 856 | EBC .@AM01 . 2-11 U6E08340 0928 011B 857 | DC /11B 2-11 U6E08350 0929 7CC1 D4F1 C140 858 | EBC .@AM1A . 2-11 U6E08360 092C 011C 859 | DC /11C 2-11 U6E08370 092D 7CC1 D4F1 C240 860 | EBC .@AM1B . 2-11 U6E08380 0930 011D 861 | DC /11D 2-11 U6E08390 0931 7CC1 D4F0 F240 862 | EBC .@AM02 . 2-11 U6E08400 0934 011E 863 | DC /11E 2-11 U6E08410 0935 7CC1 D4F2 C140 864 | EBC .@AM2A . 2-11 U6E08420 0938 011F 865 | DC /11F 2-11 U6E08430 0939 7CC1 D4F2 C240 866 | EBC .@AM2B . 2-11 U6E08440 093C 0120 867 | DC /120 2-11 U6E08450 093D 7CC1 D4F0 F340 868 | EBC .@AM03 . 2-11 U6E08460 0940 0121 869 | DC /121 2-11 U6E08470 0941 7CC1 D4F3 C140 870 | EBC .@AM3A . 2-11 U6E08480 0944 0122 871 | DC /122 2-11 U6E08490 0945 7CC1 D4F3 C240 872 | EBC .@AM3B . 2-11 U6E08500 0948 0123 873 | DC /123 2-11 U6E08510 0949 7CC1 E7F0 F140 874 | EBC .@AX01 . 2-11 U6E08520 094C 0124 875 | DC /124 2-11 U6E08530 094D 7CC1 E7F2 C140 876 | EBC .@AX2A . 2-11 U6E08540 0950 0125 877 | DC /125 2-11 U6E08550 0951 7CC1 E7F2 C240 878 | EBC .@AX2B . 2-11 U6E08560 0954 0126 879 | DC /126 2-11 U6E08570 0955 7CC1 E7F2 C340 880 | EBC .@AX2C . 2-11 U6E08580 0958 0127 881 | DC /127 2-11 U6E08590 0959 7CC1 E7F0 F340 882 | EBC .@AX03 . 2-11 U6E08600 095C 0128 883 | DC /128 2-11 U6E08610 095D 7CC1 E2D7 F740 884 | EBC .@ASP7 . 2-11 U6E08620 885 | * 2-11 U6E08630 886 | * BLANK ENTRY 2-11 U6E08640 887 | * 2-11 U6E08650 0960 0000 888 | DS810 DC 0 2-11 U6E08660 0961 4040 4040 4040 889 | EBC . . 2-11 U6E08670 0964 890 | END DS000 2-11 U6E08680 There were no errors in this assembly Program transfer address = 0008 === CROSS REFERENCES ========================================================== Name Val Defd Referenced $DBSY 00EE 50 90 101 $EXIT 0038 52 $PBSY 0036 51 304 DS000 0008R 78 890 DS100 0047R 152 255 DS105 0053R 165 158 DS120 0062R 193 237 DS125 0063R 195 201 DS130 006DR 206 198 DS140 0089R 237 202 DS150 008BR 243 197 232 237 DS180 0091R 253 163 245 DS200 00D3R 342 165 172 179 186 344 351 365 DS210 00E0R 353 363 DS215 00EER 367 346 362 DS220 00A3R 286 249 260 311 DS230 00A8R 291 298 DS240 00BER 310 287 DS250 00C2R 316 148 308 329 DS260 00C5R 320 322 DS290 00D0R 333 206 243 327 348 DS295 00D1R 334 244 325 DS298 00D2R 335 254 DS350 0095R 260 162 DS800 0610R 431 144 DS810 0960R 888 144 196 208 219 225 DS900 0000R 58 78 DS901 0002R 63 96 DS902 0004R 68 109 DS903 0006R 73 123 124 127 128 131 132 301 302 DS910 0098R 270 115 117 137 DS911 0099R 271 107 DS912 009AR 272 212 DS913 009BR 273 356 DS914 009CR 274 358 DS915 009DR 275 359 DS919 009ER 276 210 213 DS920 009FR 277 86 110 111 116 118 125 129 133 138 303 DS921 00A0R 278 318 DS922 00A1R 279 153 DS923 00A2R 280 155 161 DS930 00F2R 377 288 291 300 320 326 DS950 016CR 384 64 69 108 271 DS955 0194R 388 271 DS960 0196R 394 122 393 DS965 01D2R 398 393 DS970 01D4R 404 126 403 DS975 0210R 408 403 DS980 0212R 414 130 413 DS985 024ER 418 413 DS990 024ER 423 59 143 DZ000 00F2 53 79 97