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