ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:05 2020
Source File: \emonitor.asm
*SAVE SYMBOL TABLE 1 |
2 | * RLTV ADDR* SYMBOL* DESCRIPTION PMN00010
3 | * * * PMN00020
4 | * 0-3 * * RESERVED FOR EVEN BOUNDARIES PMN00030
5 | * 4-5 * #NAME * NAME OF PROGRAM/CORE LOAD PMN00040
6 | * 6 * #DBCT * BLOCK COUNT OF PROG/CORE LOAD PMN00050
7 | * 7 * #FCNT * *FILES SWITCH--ZERO MEANS NO PMN00060
8 | * * * FILES HAVE BEEN EQUATED PMN00070
9 | * 8 * #SYSC * SYS/NON-SYS CARTRIDGE INDR PMN00080
10 | * 9 * #JBSW * JOBT SWITCH-- NON-ZERO MEANS PMN00090
11 | * * * TEMPORARY MODE PMN00100
12 | * 10 * #CBSW * CLB-RETURN-TO-DUP SWITCH-- PMN00110
13 | * * * ZERO=CLB RETURN TO SUPV PMN00120
14 | * 11 * #LCNT * NO. OF LOCALS PMN00130
15 | * 12 * #MPSW * CORE MAP SWITCH--ZERO MEANS PMN00140
16 | * * * DO NOT PRINT A CORE MAP PMN00150
17 | * 13 * #MDF1 * NO. DUP CTRL RECDS (MODIF) PMN00160
18 | * 14 * #MDF2 * ADDR OF MODIF BUFFER PMN00170
19 | * 15 * #NCNT * NO. OF NOCALS PMN00180
20 | * 16 * #ENTY * RLTV ENTRY ADDR OF PROGRAM PMN00190
21 | * 17 * #RP67 * 1442-5 SW (0=1442-5 ON SYSTEM PMN00200
22 | * 18 * #TODR * 'TO' WORKING STG DRIVE CODE PMN00210
23 | * 19 * #FRDR * 'FROM' WORKING STG DRIVE CODE PMN00220
24 | * 20 * #FHOL * ADDR OF LARGEST HOLE IN FXA PMN00230
25 | * 21 * #FSZE * BLK CNT OF LARGEST HOLE IN FXA PMN00240
26 | * 22 * #UHOL * ADDR OF LAST HOLE IN UA 2-10 PMN00250
27 | * 23 * #USZE * BLK CNT OF LAST HOLE IN UA2-10 PMN00260
28 | * 24 * #DCSW * DUP CALL SW--NON-ZERO=DUP CALL PMN00270
29 | * 25 * #PIOD * PRINCIPAL I/O DEVICE INDICATOR PMN00280
30 | * 26 * #PPTR * PRINC. PRINT DEVICE INDICATOR PMN00290
31 | * 27 * #CIAD * RLTV ADDR IN @STRT OF CIL ADDR PMN00300
32 | * 28 * #ACIN * AVAILABLE CARTRIDGE INDICAT2-2 PMN00310
33 | * 29 * #GRPH * 2250 INDICATOR 2G2 PMN00320
34 | * 30 * #GCNT * NO. G2250 RECORDS 2G2 PMN00330
35 | * 31 * #LOSW * LOCAL-CANNOT-CALL-LOCAL SW 2-2 PMN00340
36 | * 32 * #X3SW * SPECIAL ILS SWITCH 2-2 PMN00350
37 | * 33 * #ECNT * NO. OF *EQUAT RCDS 2-4 PMN00360
38 | * 33-34 * * RESERVED FOR FUTURE USE 2-2 PMN00370
39 | * 35 * #ANDU * 1+BLOCK ADDR OF END OF USER PMN00380
40 | * * * AREA (ADJUSTED) LOGICAL DR 0 PMN00390
41 | * 36 * * 1+BLOCK ADDR OF END OF USER PMN00400
42 | * * * AREA (ADJUSTED) LOGICAL DR 1 PMN00410
43 | * 37 * * 1+BLOCK ADDR OF END OF USER PMN00420
44 | * * * AREA (ADJUSTED) LOGICAL DR 2 PMN00430
45 | * 38 * * 1+BLOCK ADDR OF END OF USER PMN00440
46 | * * * AREA (ADJUSTED) LOGICAL DR 3 PMN00450
47 | * 39 * * 1+BLOCK ADDR OF END OF USER PMN00460
48 | * * * AREA (ADJUSTED) LOGICAL DR 4 PMN00470
49 | * 40 * #BNDU * 1+BLOCK ADDR OF END OF USER PMN00480
50 | * * * AREA (BASE) LOGICAL DRIVE 0 PMN00490
51 | * 41 * * 1+BLOCK ADDR OF END OF USER PMN00500
52 | * * * AREA (BASE) LOGICAL DRIVE 1 PMN00510
53 | * 42 * * 1+BLOCK ADDR OF END OF USER PMN00520
54 | * * * AREA (BASE) LOGICAL DRIVE 2 PMN00530
55 | * 43 * * 1+BLOCK ADDR OF END OF USER PMN00540
56 | * * * AREA (BASE) LOGICAL DRIVE 3 PMN00550
57 | * 44 * * 1+BLOCK ADDR OF END OF USER PMN00560
58 | * * * AREA (BASE) LOGICAL DRIVE 4 PMN00570
59 | * 45 * #FPAD * FILE PROTECT ADDR, LOGICAL PMN00580
60 | * * * DRIVE 0 (BASE) PMN00590
61 | * 46 * * FILE PROTECT ADDR, LOGICAL PMN00600
62 | * * * DRIVE 1 (BASE) PMN00610
63 | * 47 * * FILE PROTECT ADDR, LOGICAL PMN00620
64 | * * * DRIVE 2 (BASE) PMN00630
65 | * 48 * * FILE PROTECT ADDR, LOGICAL PMN00640
66 | * * * DRIVE 3 (BASE) PMN00650
67 | * 49 * * FILE PROTECT ADDR,LOGICAL PMN00660
68 | * * * DRIVE 4 (BASE) PMN00670
69 | * 50 * #PCID * CARTRIDGE ID, PHYSICAL DRIVE 0 PMN00680
70 | * 51 * * CARTRIDGE ID, PHYSICAL DRIVE 1 PMN00690
71 | * 52 * * CARTRIDGE ID, PHYSICAL DRIVE 2 PMN00700
72 | * 53 * * CARTRIDGE ID, PHYSICAL DRIVE 3 PMN00710
73 | * 54 * * CARTRIDGE ID, PHYSICAL DRIVE 4 PMN00720
74 | * 55 * #CIDN * CARTRIDGE ID, LOGICAL DRIVE 0 PMN00730
75 | * 56 * * CARTRIDGE ID, LOGICAL DRIVE 1 PMN00740
76 | * 57 * * CARTRIDGE ID, LOGICAL DRIVE 2 PMN00750
77 | * 58 * * CARTRIDGE ID, LOGICAL DRIVE 3 PMN00760
78 | * 59 * * CARTRIDGE ID, LOGICAL DRIVE 4 PMN00770
79 | * 60 * #CIBA * SCTR ADDR OF CIB, LOGICAL DR 0 PMN00780
80 | * 61 * * SCTR ADDR OF CIB, LOGICAL DR 1 PMN00790
81 | * 62 * * SCTR ADDR OF CIB, LOGICAL DR 2 PMN00800
82 | * 63 * * SCTR ADDR OF CIB, LOGICAL DR 3 PMN00810
83 | * 64 * * SCTR ADDR OF CIB, LOGICAL DR 4 PMN00820
84 | * 65 * #SCRA * SCRA, LOGICAL DRIVE 0 PMN00830
85 | * 66 * * SCRA, LOGICAL DRIVE 1 PMN00840
86 | * 67 * * SCRA, LOGICAL DRIVE 2 PMN00850
87 | * 68 * * SCRA, LOGICAL DRIVE 3 PMN00860
88 | * 69 * * SCRA, LOGICAL DRIVE 4 PMN00870
89 | * 70 * #FMAT * FORMAT OF PROG IN WS, DRIVE 0 PMN00880
90 | * 71 * * FORMAT OF PROG IN WS, DRIVE 1 PMN00890
91 | * 72 * * FORMAT OF PROG IN WS, DRIVE 2 PMN00900
92 | * 73 * * FORMAT OF PROG IN WS, DRIVE 3 PMN00910
93 | * 74 * * FORMAT OF PROG IN WS, DRIVE 4 PMN00920
94 | * 75 * #FLET * FLET SCTR ADDR, LOGICAL DR 0 PMN00930
95 | * 76 * * FLET SCTR ADDR, LOGICAL DR 1 PMN00940
96 | * 77 * * FLET SCTR ADDR, LOGICAL DR 2 PMN00950
97 | * 78 * * FLET SCTR ADDR, LOGICAL DR 3 PMN00960
98 | * 79 * * FLET SCTR ADDR, LOGICAL DR 4 PMN00970
99 | * 80 * #ULET * LET SCTR ADDR, LOGICAL DR 0 PMN00980
100 | * 81 * * LET SCTR ADDR, LOGICAL DR 1 PMN00990
101 | * 82 * * LET SCTR ADDR, LOGICAL DR 2 PMN01000
102 | * 83 * * LET SCTR ADDR, LOGICAL DR 3 PMN01010
103 | * 84 * * LET SCTR ADDR, LOGICAL DR 4 PMN01020
104 | * 85 * #WSCT * BLK CNT OF PROG IN WS, DRIVE 0 PMN01030
105 | * 86 * * BLK CNT OF PROG IN WS, DRIVE 1 PMN01040
106 | * 87 * * BLK CNT OF PROG IN WS, DRIVE 2 PMN01050
107 | * 88 * * BLK CNT OF PROG IN WS, DRIVE 3 PMN01060
108 | * 89 * * BLK CNT OF PROG IN WS, DRIVE 4 PMN01070
109 | * 90 * #CSHN * SCTR CNT CUSHION,LOGICAL DR 0 PMN01080
110 | * 91 * * SCTR CNT CUSHION,LOGICAL DR 1 PMN01090
111 | * 92 * * SCTR CNT CUSHION,LOGICAL DR 2 PMN01100
112 | * 93 * * SCTR CNT CUSHION,LOGICAL DR 3 PMN01110
113 | * 94 * * SCTR CNT CUSHION,LOGICAL DR 4 PMN01120
114 | * 95-319 * * RESERVED FOR FUTURE USE PMN01130
RESIDENT MONITOR
116 | *************************************************** PMN01150
117 | * * PMN01160
118 | *STATUS-VERSION 2, MODIFICATION 10 * PMN01170
119 | * * PMN01180
120 | *FUNCTION/OPERATION- * PMN01190
121 | * THIS SECTION ALWAYS REMAINS IN CORE. IT * PMN01200
122 | * IS COMPRISED OF THE COMMUNICATIONS * PMN01210
123 | * AREA (COMMA), THE SKELETON SUPERVISOR, AND * PMN01220
124 | * A DISK I/O SUBROUTINE, NOMINALLY DISKZ. (THE * PMN01230
125 | * FIRST TWO OF THESE SECTIONS ARE INTERMIXED.) * PMN01240
126 | * COMMA CONTAINS THE SYSTEM PARAMETERS REQUIR- * PMN01250
127 | * ED TO FETCH A CORE LOAD IN CORE IMAGE FOR- * PMN01260
128 | * MAT. THE SKELETON SUPERVISOR PROVIDES IN- * PMN01270
129 | * STRUCTIONS FOR INITIATING A CALL EXIT, A * PMN01280
130 | * CALL LINK, A DUMP-TO-PRINTER OR A CALL TO THE * PMN01290
131 | * AUXILIARY SUPERVISOR. IN ADDITION, THE SKELE-* PMN01300
132 | * TON SUPERVISOR CONTAINS SEVERAL TRAPS FOR CER-* PMN01310
133 | * TAIN I/O FUNCTIONS/CONDITIONS. THE DISK I/O * PMN01320
134 | * SECTION CONSISTS OF A SUBROUTINE FOR READING * PMN01330
135 | * FROM OR WRITING ON A DISK CARTRIDGE ON A * PMN01340
136 | * GIVEN LOGICAL DISK DRIVE. * PMN01350
137 | * * PMN01360
138 | *ENTRY POINTS- * PMN01370
139 | * * $PRET-A TRAP FOR PREOPERATIVE I/O ERRORS. * PMN01380
140 | * THE CALLING SEQUENCE IS * PMN01390
141 | * BSI L $PRET * PMN01400
142 | * * $PSTX-A POSTOPERATIVE ERROR TRAP FOR I/O * PMN01410
143 | * DEVICES ON LEVEL X (X=1,2,3,OR 4). * PMN01420
144 | * THE CALLING SEQUENCE IS * PMN01430
145 | * BSI L $PSTX * PMN01440
146 | * * $STOP-THE PROGRAM STOP KEY TRAP. * PMN01450
147 | * * $EXIT-THE ENTRY POINT FOR THE EXIT/CALL * PMN01460
148 | * EXIT STATEMENT. THE CALLING SEQUENCE IS* PMN01470
149 | * LDX 0 $EXIT * PMN01480
150 | * * $LINK-THE ENTRY POINT FOR THE LINK/CALL * PMN01490
151 | * LINK STATEMENT. THE CALLING SEQUENCE IS* PMN01500
152 | * BSI L $LINK * PMN01510
153 | * * $DUMP-THE ENTRY POINT FOR THE DUMP/PDMP * PMN01520
154 | * STATEMENT. THE CALLING SEQUENCE IS * PMN01530
155 | * BSI L $DUMP * PMN01540
156 | * DC FORMAT * PMN01550
157 | * DC LIMIT1 * PMN01560
158 | * DC LIMIT2 * PMN01570
159 | * WHERE LIMIT1 AND LIMIT2 ARE THE LIMITS * PMN01580
160 | * BETWEEN WHICH THE DUMP IS TO OCCUR, AND* PMN01590
161 | * FORMAT IS A CODE INDICATING THE FORMAT * PMN01600
162 | * OF THE DUMP. IF FORMAT IS NEGATIVE, * PMN01610
163 | * THE AUXILIARY SUPERVISOR IS FETCHED * PMN01620
164 | * AND CONTROL PASSED TO IT. * PMN01630
165 | * * DZ000-ENTERED WHEN THE CALLER WISHES TO * PMN01640
166 | * PERFORM A DISK I/O OPERATION. THE * PMN01650
167 | * CALLING SEQUENCE VARIES WITH THE * PMN01660
168 | * VERSION OF THE DISK I/O SUBROUTINE. * PMN01670
169 | * * $I200/$I400-ENTERED WHEN THE OPERATION- * PMN01680
170 | * COMPLETE INTERRUPT OCCURS ON * PMN01690
171 | * LEVEL 2/4. * PMN01700
172 | * * PMN01710
173 | *INPUT-N/A * PMN01720
174 | * * PMN01730
175 | *OUTPUT-WORDS 6-4090 SAVED ON THE CIB ON A CALL * PMN01740
176 | * DUMP * PMN01750
177 | * * PMN01760
178 | *EXTERNAL REFERENCES-N/A * PMN01770
179 | * * PMN01780
180 | *EXITS- * PMN01790
181 | * * NORMAL * PMN01800
182 | * *THE EXITS FROM THE SUBROUTINES AT $PRET * PMN01810
183 | * $PST1, $PST2, $PST3, $PST4, AND $STOP * PMN01820
184 | * ARE BRANCH INSTRUCTIONS FOLLOWING A * PMN01830
185 | * WAIT INSTRUCTION. $STOP TURNS OFF IN- * PMN01840
186 | * TERRUPT LEVEL 5 AFTER THE START KEY IS * PMN01850
187 | * DEPRESSED. * PMN01860
188 | * *THE EXITS FROM $EXIT,$LINK,AND $DUMP ARE * PMN01870
189 | * TO THE CORE IMAGE LOADER, PHASE 1, * PMN01880
190 | * AFTER THAT PHASE HAS BEEN FETCHED. * PMN01890
191 | * *THE EXIT FROM DZ000 IS BACK TO THE * PMN01900
192 | * CALLER AFTER THE REQUESTED DISK OPERA- * PMN01910
193 | * TION HAS BEEN INITIATED. * PMN01920
194 | * *THE EXITS FROM $I200/$I400 ARE BACK TO * PMN01930
195 | * THE ADDRESSES FROM WHICH THE DISK OP- * PMN01940
196 | * ERATION COMPLETE INTERRUPT OCCURED * PMN01950
197 | * AFTER THE INTERRUPT HAS BEEN SERVICED * PMN01960
198 | * BY THE APPROPRIATE ISS. * PMN01970
199 | * * ERROR-N/A * PMN01980
200 | * * PMN01990
201 | *TABLES/WORK AREAS- * PMN02000
202 | * * $ACDE * PMN02010
203 | * * $CH12 * PMN02020
204 | * * $CILA * PMN02030
205 | * * $CLSW * PMN02040
206 | * * $COMN * PMN02050
207 | * * $CORE * PMN02060
208 | * * $CTSW * PMN02070
209 | * * $CXR1 * PMN02080
210 | * * $CYLN * PMN02090
211 | * * $DADR * PMN02100
212 | * * $DBSY * PMN02110
213 | * * $DCYL * PMN02120
214 | * * $DMPF * PMN02130
215 | * * $DREQ * PMN02140
216 | * * $FPAD * PMN02150
217 | * * $GCOM 2G2 * PMN02160
218 | * * $GRIN 2G2 * PMN02170
219 | * * $HASH * PMN02180
220 | * * $IBT2 * PMN02190
221 | * * $IBT4 * PMN02200
222 | * * $IBSY * PMN02210
223 | * * $IOCT * PMN02220
224 | * * $KCSW * PMN02230
225 | * * $LAST * PMN02240
226 | * * $LNXQ 2-9 * PMN02250
227 | * * $NDUP * PMN02260
228 | * * $NXEQ * PMN02270
229 | * * $PBSY * PMN02280
230 | * * $PGCT * PMN02290
231 | * * $PHSE * PMN02300
232 | * * $RMSW * PMN02310
233 | * * $SCAT 2-4 * PMN02320
234 | * * $SNLT * PMN02330
235 | * * $UFIO * PMN02340
236 | * * $ULET * PMN02350
237 | * * $WRD1 * PMN02360
238 | * * $WSDR * PMN02370
239 | * * $XR3X 2-2 * PMN02380
240 | * * PMN02390
241 | *ATTRIBUTES-REUSABLE * PMN02400
242 | * * PMN02410
243 | *NOTES- * PMN02420
244 | * THERE ARE WAIT INSTRUCTIONS AT $PRET+1, * PMN02430
245 | * $STOP+1, AND $PSTX+1. DEPRESSING THE START * PMN02440
246 | * KEY WILL RETURN CONTROL TO THE CALLER IN ALL * PMN02450
247 | * CASES. * PMN02460
248 | *************************************************** PMN02470
RESIDENT MONITOR
250 | * PROVIDE PARAMETERS FOR SYSTEM LOADER PMN02490
251 | * PMN02500
252 | ABS PMN02510
0004 253 | ORG 4 PMN02520
0004 0FFA 254 | DC 4095-* WD CNT FOR WRITING CORE ON CIB PMN02530
0005 0000 255 | $CIBA DC *-* SCTR ADDR OF THE CIB PMN02540
0006 0000 256 | $CH12 DC *-* ADDR OF CHANNEL 12 INDICATOR PMN02550
0007 0000 257 | $COMN DC *-* LENGTH OF COMMON (IN WORDS) PMN02560
258 | * PMN02570
259 | * ULTIMATE RESIDENCE OF THE INTERRUPT TV PMN02580
260 | * PMN02590
0008 0000 261 | $LEV0 DC *-* LEVEL 0 BRANCH ADDRESS PMN02600
0009 0000 262 | $LEV1 DC *-* LEVEL 1 BRANCH ADDRESS PMN02610
000A 00B3 263 | $LEV2 DC $I200 LEVEL 2 BRANCH ADDR PMN02620
000B 0000 264 | $LEV3 DC *-* LEVEL 3 BRANCH ADDRESS PMN02630
000C 00C4 265 | $LEV4 DC $I400 LEVEL 4 BRANCH ADDR PMN02640
000D 0091 266 | $LEV5 DC $STOP LEVEL 5 BRANCH ADDR PMN02650
267 | * PMN02660
268 | * PMN02670
000E 0000 269 | $CORE DC *-* SIZE OF CORE, E.G., /1000=4K PMN02680
000F 0000 270 | $CTSW DC *-* CONTROL RECORD TRAP SWITCH PMN02690
0010 0000 271 | $DADR DC *-* SCTR ADDR OF PROG TO BE LOADED PMN02700
0011 0000 272 | $SCAT DC *-* NON ZERO=SCA INTRPT PNDNG 2-4 PMN02710
0012 0000 273 | $DREQ DC *-* IND. FOR REQUESTED VERSION DKI/O PMN02720
0013 0000 274 | $IBSY DC *-* NON-ZERO IF CD/PAP TP DEV. BUSY PMN02730
0014 275 | $HASH BSS E 12 WORK AREA PMN02740
276 | * PMN02750
277 | * PMN02760
0020 278 | $SCAN BSS 8 1132 SCAN AREA 32 PMN02770
279 | * PMN02780
280 | * PMN02790
281 | * PMN02800
282 | * TRAP FOR PREOPERATIVE I/O ERRORS PMN02810
283 | * PMN02820
0028 0000 284 | $PRET DC *-* ENTRY POINT PMN02830
0029 3000 285 | WAIT WAIT TIL START KEY PUSHED PMN02840
002A 4C80 0028 286 | BSC I $PRET RETURN TO CALLER PMN02850
287 | * PMN02860
288 | * PMN02870
002C 0000 289 | $IREQ DC *-* ADDR OF INT REQUEST SUBROUTINE PMN02880
002D 0000 290 | $ULET DC *-* ADDR OF LET, LOGICAL DR 0 PMN02890
002E 0000 291 | DC *-* ADDR OF LET, LOGICAL DR 1 PMN02900
002F 0000 292 | DC *-* ADDR OF LET, LOGICAL DR 2 PMN02910
0030 0000 293 | DC *-* ADDR OF LET, LOGICAL DR 3 PMN02920
0031 0000 294 | DC *-* ADDR OF LET, LOGICAL DR 4 PMN02930
0032 0000 295 | $IOCT DC *-* ZERO IF NO I/O IN PROGRESS 50 PMN02940
0033 0000 296 | $LAST DC *-* NON-ZERO WHEN LAST CARD SENSED PMN02950
0034 0000 297 | $NDUP DC *-* DO NOT DUP IF NON-ZERO PMN02960
0035 0000 298 | $NXEQ DC *-* DO NOT EXECUTE IF NON-ZERO PMN02970
0036 0000 299 | $PBSY DC *-* NON-ZERO WHEN PRINTER BUSY PMN02980
0037 0000 300 | $PGCT DC *-* PAGE NO. FOR HEADINGS PMN02990
301 | * PMN03000
302 | * CALL EXIT ENTRY POINT TO SKELETON SUPERVISOR PMN03010
303 | * PMN03020
0038 7019 304 | $EXIT MDX $S000 BR TO FETCH CIL, PHASE 1 56 PMN03030
305 | * PMN03040
306 | *** CALL LINK ENTRY POINT PMN03050
307 | * PMN03060
0039 0000 308 | $LINK DC *-* ENTRY POINT 57 PMN03070
003A 1810 309 | SRA 16 PMN03080
003B 7017 310 | MDX $S100 BR TO FETCH CIL, PHASE 1 PMN03090
003C 311 | BSS E 0 PMN03100
003C 0001 312 | $S900 DC 1 DISK PARAMETERS FOR SAVING CORE PMN03110
313 | *$S900 ALSO USED AS CONSTANT 1 BY CIL PH2 2-10 PMN03111
003D 0004 314 | DC $CIBA-1 *IN CONNECTION WITH DUMP PMN03120
003E FFFF 315 | $S910 DC -1 CALL EXIT INDICATOR PMN03130
316 | *$S910 ALSO USED AS CONSTANT-1 BY CIL PH2 2-10 PMN03131
317 | * PMN03140
318 | *** SAVE 1ST 4K OF CORE ON THE CIB PMN03150
319 | * PMN03160
003F 0000 320 | $DUMP DC *-* ENTRY POINT 63 PMN03170
0040 D8D9 321 | STD $ACEX SAVE ACCUMULATOR, EXTENSION PMN03180
0041 4023 322 | BSI $S250 CHK PNDNG INTRPT 2-4 PMN03190
0042 282A 323 | STS $SSTS SAVE STATUS 2-6 PMN03200
0043 69D3 324 | STX 1 $CXR1 SAVE XR1 PMN03210
0044 C480 003F 325 | LD I $DUMP PMN03220
0046 D0D2 326 | STO $DMPF SAVE DUMP FORMAT CODE PMN03230
0047 C8F4 327 | LDD $S900 PMN03240
0048 4400 00F2 328 | BSI L DZ000 SAVE WDS 6-4095 ON CIB PMN03250
004A C0F1 329 | LD $S900 PMN03260
004B 7007 330 | MDX $S100 BR TO FETCH CIL, PHASE 1 PMN03270
331 | * 2-6 PMN03280
004C 332 | BSS 6 PATCH AREA 2-7 PMN03290
RESIDENT MONITOR
334 | * PMN03310
335 | *** FETCH CORE IMAGE LOADER, PHASE 1 PMN03320
336 | * PMN03330
0052 C0EB 337 | $S000 LD $S910 PMN03340
0053 D0C2 338 | $S100 STO $RMSW SAVE EXIT-LINK-DUMP SWITCH PMN03350
0054 6580 0039 339 | LDX I1 $LINK LINK ADDR TO XR1 PMN03360
0056 C101 340 | LD 1 1 FETCH 2ND WD OF LINK NAME PMN03370
0057 18D0 341 | RTE 16 PMN03380
0058 C100 342 | LD 1 0 FETCH 1ST WD OF LINK NAME PMN03390
343 | * $S150+1 CONTAINS ADDR LAST WD OF DISK I/O MINUS 3 PMN03400
0059 6500 0000 344 | $S150 LDX L1 *-* ADDR END OF DKI/O-1 TO XR1 PMN03410
005B D8B8 345 | STD $LKNM SAVE LINK NAME PMN03420
005C 4008 346 | BSI $S250 CHK ANY PNDNG INTRPT 2-4 PMN03430
005D C0FC 347 | LD $CILA PMN03440
005E 1890 348 | $S200 SRT 16 PMN03450
005F 4400 00F2 349 | BSI L DZ000 FETCH CI LOADER, PHASE 1 PMN03460
0061 4003 350 | BSI $S250 CHK DISK OP FINISHED 2-4 PMN03470
0062 4102 351 | BSI 1 2 BR TO CI LOADER, PHASE 1 PMN03480
352 | * PMN03490
0063 0000 353 | $GCOM DC *-* GRAPHIC SUBR PACKAGE INDR 2G2 PMN03500
0064 0000 354 | $GRIN DC *-* GRAPHIC INITLZN PROGRAM INDR 2G2 PMN03510
355 | * PMN03520
356 | *** SUBR TO CHECK IF ANY INTRPT IS PENDING PMN03530
357 | * PMN03540
0065 0000 358 | $S250 DC *-* ENTRY POINT PMN03550
0066 C0CB 359 | $S300 LD $IOCT IS THERE INTRPT PNDNG PMN03560
0067 E8A9 360 | OR $SCAT *OR SCA INTRPT PNDNG PMN03570
0068 4C20 0066 361 | BSC L $S300,Z *THEN BR,IF ALL INTRPT PMN03580
006A 0803 362 | XIO $I499 RESET 2250 2-7 PMN03590
006B 4C80 0065 363 | BSC I $S250 *IS SERVICED-RETURN PMN03600
364 | * 2-6 PMN03610
006D 2000 365 | $SSTS LDS *-* STATUS SAVED FOR DUMP 2-7 PMN03620
006E 0000 366 | $I499 DC 0 IOCC FOR RESET 2-7 PMN03630
006F CC80 367 | DC /CC80 *OF 2250 2-7 PMN03640
0070 0000 368 | $LNXQ DC *-* LINK/XEQ SW, -1 LINK,+1 XEQ 2-9 PMN03650
369 | * PMN03660
0071 0000 370 | $FLSH DC *-* FLUSH-TO-NEXT-JOB SWITCH 1=FLUSH PMN03670
0072 371 | BSS E 0 PMN03680
0072 0000 372 | $CWCT DC *-* WORD COUNT AND SECTOR ADDRESS PMN03690
0073 0000 373 | DC *-* *FOR SAVING/RESTORING COMMON PMN03700
0074 0000 374 | $CCAD DC *-* ADDR FOR SAVING/RESTORING COMMON PMN03710
0075 0000 375 | $LSAD DC *-* SCTR ADDR OF 1ST LOCAL/SOCAL PMN03720
0076 0000 376 | $DZ1N DC *-* DISKZ/1/N INDICATOR (-1,0,+1) PMN03730
0077 0000 377 | $DCDE DC *-* LOGICAL DRIVE CODE FOR PROGRAM PMN03740
0078 0000 378 | $PHSE DC *-* NO. OF PHASE NOW IN CORE PMN03750
0079 0000 379 | $UFIO DC *-* UNFORMATTED I/O RECORD NO. PMN03760
007A 0000 380 | $WSDR DC *-* WORKING STORAGE DRIVE CODE PMN03770
007B 0000 381 | $WRD1 DC *-* LOADING ADDR OF THE CORE LOAD PMN03780
007C 0000 382 | $KCSW DC *-* 1 IF KB,CP BOTH UTILIZED PMN03790
007D 0000 383 | $UFDR DC *-* UNFORMATTED I/O DRIVE CODE PMN03800
007E 0000 384 | $CPTR DC *-* CHANNEL 12 INDICATOR FOR CP PMN03810
007F 0000 385 | $1132 DC *-* CHANNEL 12 INDICATOR FOR 1132 PMN03820
0080 0000 386 | $1403 DC *-* CHANNEL 12 INDICATOR FOR 1403 PMN03830
RESIDENT MONITOR
388 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 1 PMN03850
389 | * PMN03860
0081 0000 390 | $PST1 DC *-* ENTRY POINT PMN03870
0082 3000 391 | WAIT PMN03880
0083 4C80 0081 392 | BSC I $PST1 RETURN TO DEVICE SUBROUTINE PMN03890
393 | * PMN03900
394 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 2 PMN03910
395 | * PMN03920
0085 0000 396 | $PST2 DC *-* ENTRY POINT PMN03930
0086 3000 397 | WAIT PMN03940
0087 4C80 0085 398 | BSC I $PST2 RETURN TO DEVICE SUBROUTINE PMN03950
399 | * PMN03960
400 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 3 PMN03970
401 | * PMN03980
0089 0000 402 | $PST3 DC *-* ENTRY POINT PMN03990
008A 3000 403 | WAIT PMN04000
008B 4C80 0089 404 | BSC I $PST3 RETURN TO DEVICE SUBROUTINE PMN04010
405 | * PMN04020
406 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 4 PMN04030
407 | * PMN04040
008D 0000 408 | $PST4 DC *-* ENTRY POINT PMN04050
008E 3000 409 | WAIT PMN04060
008F 4C80 008D 410 | BSC I $PST4 RETURN TO DEVICE SUBROUTINE PMN04070
411 | * PMN04080
412 | * PMN04090
413 | * PROGRAM STOP KEY TRAP PMN04100
414 | * PMN04110
0091 0000 415 | $STOP DC *-* ENTRY POINT PMN04120
0092 3000 416 | WAIT WAIT TIL START KEY PUSHED PMN04130
0093 4CC0 0091 417 | BOSC I $STOP RETURN TO CALLER PMN04140
RESIDENT MONITOR
419 | * PMN04160
420 | * PARAMETERS USED BY THE DISK I/O SUBROUTINES. THE PMN04170
421 | * LOGICAL DRIVE CODE IS FOUND IN BITS 1-3 FOR ALL PMN04180
422 | * BUT THE AREA CODE. BIT 0 WILL ALWAYS BE ZERO. PMN04190
423 | * PMN04200
424 | * PMN04210
425 | *** DISK1 AND DISKN WILL NOT WRITE BELOW THE PMN04220
426 | *** FOLLOWING SCTR ADDRESSES (EXCEPT WRITE IMMED). PMN04230
427 | * PMN04240
0095 0000 428 | $FPAD DC *-* FILE PROTECT ADDR, LOGICAL DR 0 PMN04250
0096 0000 429 | DC *-* FILE PROTECT ADDR, LOGICAL DR 1 PMN04260
0097 0000 430 | DC *-* FILE PROTECT ADDR, LOGICAL DR 2 PMN04270
0098 0000 431 | DC *-* FILE PROTECT ADDR, LOGICAL DR 3 PMN04280
0099 0000 432 | DC *-* FILE PROTECT ADDR, LOGICAL DR 4 PMN04290
433 | * PMN04300
434 | *** THE ARM POSITION IS UPDATED WHENEVER A SEEK PMN04310
435 | *** OCCURS. PMN04320
436 | * PMN04330
009A 0000 437 | $CYLN DC 0 ARM POSITION FOR LOGICAL DRIVE 0 PMN04340
009B 0000 438 | DC 0 ARM POSITION FOR LOGICAL DRIVE 1 PMN04350
009C 0000 439 | DC 0 ARM POSITION FOR LOGICAL DRIVE 2 PMN04360
009D 0000 440 | DC 0 ARM POSITION FOR LOGICAL DRIVE 3 PMN04370
009E 0000 441 | DC 0 ARM POSITION FOR LOGICAL DRIVE 4 PMN04380
442 | * PMN04390
443 | *** BELOW ARE THE DISK AREA CODES. A ZERO PMN04400
444 | *** INDICATES THE CORRESPONDING DRIVE IS NOT PMN04410
445 | *** ON THE SYSTEM PMN04420
446 | * PMN04430
009F 0000 447 | $ACDE DC *-* AREA CODE FOR LOGICAL DRIVE 0 PMN04440
00A0 0000 448 | DC *-* AREA CODE FOR LOGICAL DRIVE 1 PMN04450
00A1 0000 449 | DC *-* AREA CODE FOR LOGICAL DRIVE 2 PMN04460
00A2 0000 450 | DC *-* AREA CODE FOR LOGICAL DRIVE 3 PMN04470
00A3 0000 451 | DC *-* AREA CODE FOR LOGICAL DRIVE 4 PMN04480
452 | * PMN04490
453 | *** THE ADR OF THE CYLINDER IN WHICH A DEFECT OC- PMN04500
454 | *** CURS, IF ANY, IS STORED IN THE 1ST, 2ND, OR 3RD PMN04510
455 | *** WORD BELOW, DEPENDING ON WHETHER IT IS THE 1ST, PMN04520
456 | *** 2ND, OR 3RD DEFECT ON THE CARTRIDGE. PMN04530
457 | * PMN04540
00A4 0000 458 | $DCYL DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04550
00A5 0000 459 | DC *-* *FOR LOGICAL DRIVE 0 2 PMN04560
00A6 0000 460 | DC *-* 3 PMN04570
00A7 0000 461 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04580
00A8 0000 462 | DC *-* *FOR LOGICAL DRIVE 1 2 PMN04590
00A9 0000 463 | DC *-* 3 PMN04600
00AA 0000 464 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04610
00AB 0000 465 | DC *-* *FOR LOGICAL DRIVE 2 2 PMN04620
00AC 0000 466 | DC *-* 3 PMN04630
00AD 0000 467 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04640
00AE 0000 468 | DC *-* *FOR LOGICAL DRIVE 3 2 PMN04650
00AF 0000 469 | DC *-* 3 PMN04660
00B0 0000 470 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04670
00B1 0000 471 | DC *-* *FOR LOGICAL DRIVE 4 2 PMN04680
00B2 0000 472 | DC *-* 3 PMN04690
RESIDENT MONITOR
474 | * PMN04710
475 | * ILS02--THIS SUBROUTINE SAVES XR1, XR2, STATUS, PMN04720
476 | * AND THE ACCUMULATOR AND ITS EXTENSION. PMN04730
477 | * THE ADDRESS OF THE INTERRUPT SERVICE ROU- PMN04740
478 | * TINE IS STORED IN $I205 BY PHASE 2 OF PMN04750
479 | * THE CORE IMAGE LOADER. WORD 10 ALWAYS PMN04760
480 | * CONTAINS THE ADDRESS OF $I200. PMN04770
481 | * PMN04780
482 | * PMN04790
483 | * PMN04800
00B3 0000 484 | $I200 DC *-* ENTRY PT (LEVEL 2 INTRUPT) PMN04810
00B4 6906 485 | STX 1 $I210+1 SAVE XR1 PMN04820
00B5 6A07 486 | STX 2 $I210+3 SAVE XR2 PMN04830
00B6 2807 487 | STS $I210+4 STORE STATUS PMN04840
00B7 D80A 488 | STD $I290 SAVE ACCUMULATOR,EXTENSION PMN04850
489 | * $I205+1 CONTAINS ADDR INTERRUPT ENTRY PT TO DKI/O PMN04860
00B8 4400 0000 490 | $I205 BSI L *-* BR TO SERVICE THE INTERRUPT PMN04870
00BA 6500 0000 491 | $I210 LDX L1 *-* RESTORE XR1 PMN04880
00BC 6600 0000 492 | LDX L2 *-* RESTORE XR2 PMN04890
00BE 2000 493 | LDS 0 RESTORE STATUS PMN04900
00BF C802 494 | LDD $I290 RESTORE ACCUMULATOR,EXT PMN04910
00C0 4CC0 00B3 495 | BOSC I $I200 RETURN FROM INTERRUPT PMN04920
00C2 496 | $I290 BSS E 0 PMN04930
00C2 0000 497 | DC *-* CONTENTS OF ACCUMULATOR AND PMN04940
00C3 0000 498 | DC *-* *EXTENTION PMN04950
RESIDENT MONITOR
500 | * PMN04970
501 | * ILS04--THIS SUBROUTINE SAVES XR1, XR2, STATUS, PMN04980
502 | * AND THE ACCUMULATOR AND ITS EXTENSION. PMN04990
503 | * IF THE INTERRUPT IS FOR A KEYBOARD REQ- * PMN05000
504 | * UEST,AND IF A MONITOR PROGRAM IS IN CON- * PMN05010
505 | * TROL, CONTROL IS PASSED TO DUMP. OTHER- * PMN05020
506 | * WISE, CONTROL IS PASSED TO THE KEYBOARD/ * PMN05030
507 | * CONSOLE PRINTER SUBROUTINE. WORD 12 AL- * PMN05040
508 | * WAYS CONTAINS THE ADDRESS OF $I400. * PMN05050
509 | * PMN05060
510 | * THE TABLE BELOW CONTAINS THE ADDRESSES OF THE PMN05070
511 | * INTERRUPT SERVICE ROUTINES FOR ALL THE DEVICES PMN05080
512 | * ON LEVEL 4. PMN05090
513 | * PMN05100
514 | * PMN05110
515 | * PMN05120
00C4 0000 516 | $I400 DC *-* ENTRY POINT PMN05130
00C5 D818 517 | STD $I490 SAVE ACCUMULATOR, EXTENSION PMN05140
00C6 280E 518 | STS $I410 SAVE STATUS PMN05150
00C7 690F 519 | STX 1 $I410+2 SAVE XR1 PMN05160
00C8 6A10 520 | STX 2 $I410+4 SAVE XR2 PMN05170
00C9 0816 521 | XIO $I492 SENSE DSW PMN05180
00CA 1002 522 | SLA 2 IS THIS INTERRUPT REQUEST PMN05190
00CB 4C10 00D0 523 | BSC L $I403,- BR IF NOT INTERRUPT REQUEST PMN05200
00CD 4480 002C 524 | BSI I $IREQ BR IF INTERRUPT REQUEST PMN05210
00CF FFFE 525 | DC -2 ERROR CODE PMN05220
00D0 6109 526 | $I403 LDX 1 9 NO. DEVICES ON LEVEL TO XR1 PMN05230
00D1 0810 527 | XIO $I494 SENSE ILSW PMN05240
00D2 1140 528 | SLCA 1 FIND CAUSE OF INTERRUPT PMN05250
529 | * $I405+1 CONTAINS ADDR OF LEVEL 4 IBT MINUS 1 PMN05260
00D3 4580 0000 530 | $I405 BSI I1 *-* BR TO SERVICE THE INTERRUPT PMN05270
00D5 2000 531 | $I410 LDS 0 RESTORE STATUS PMN05280
00D6 6500 0000 532 | LDX L1 *-* RESTORE XR1 PMN05290
00D8 6600 0000 533 | LDX L2 *-* RESTORE XR2 PMN05300
00DA C803 534 | LDD $I490 RESTORE ACCUMULATOR, EXT. PMN05310
00DB 4CC0 00C4 535 | BOSC I $I400 RETURN PMN05320
536 | * PMN05330
537 | * CONSTANTS AND WORK AREAS PMN05340
538 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES PMN05350
539 | * PMN05360
00DD 0000 540 | $DDSW DC *-* DSW FOR THE DISK PMN05370
00DE 541 | $I490 BSS E 2 CONTENTS OF ACCUMULATOR, EXT. PMN05380
00E0 0000 542 | $I492 DC *-* PMN05390
00E0 543 | $SYSC EQU *-1 VERSION AND MOD NO. PMN05400
00E1 0F00 544 | DC /0F00 IOCC FOR SENSE IOCC FOR KB/CP PMN05410
00E2 545 | $I494 BSS 1 PATCH AREA PMN05420
00E3 0300 546 | DC /0300 IOCC FOR SENSING ILSW04 PMN05430
RESIDENT MONITOR
548 | * 2-2 PMN05450
549 | * 2-2 PMN05460
00E4 0000 550 | $I496 DC *-* XR3 SETTING DURING XEQ 2-2 PMN05470
00E5 0F01 551 | DC /0F01 SENSE KEY BOARD W RESET2-2 PMN05480
552 | * 2-2 PMN05490
00E6 0000 553 | $I420 DC *-* ENTRY POINT FLUSH JOB 2-2 PMN05500
00E7 08FC 554 | XIO $I496 SENSE KEY BOARD W RESET2-2 PMN05510
00E8 4C40 00EA 555 | BOSC L $I425 TURN OF INTERRUPT 2-2 PMN05520
00EA 4400 003F 556 | $I425 BSI L $DUMP BR TO $DUMP 2-7 PMN05530
00EC FFFE 557 | DC -2 CALLING AUX SUP 2-7 PMN05540
558 | * 2-2 PMN05550
00ED 559 | BSS 1 PATCH AREA 2-7 PMN05560
00EE 0000 560 | $DBSY DC *-* NON-ZERO WHEN DISK I/O BUSY PMN05570
DISKZ
562 | *************************************************** PMN05590
563 | * * PMN05600
564 | *STATUS - VERSION 2, MODIFICATION 11 * PMN05610
565 | * * PMN05620
566 | *PROGRAM NAME- * PMN05630
567 | * *FULL NAME-FORTRAN/SYSTEM DISK I/O SUBROUTINE * PMN05640
568 | * *CALLING SEQUENCE- * PMN05650
569 | * LDD PARAM * PMN05660
570 | * BSI L DZ000 * PMN05670
571 | * WHERE PARAM IS THE LABEL OF A DOUBLE-WORD * PMN05680
572 | * CELL CONTAINING THE FUNCTION CODE AND THE * PMN05690
573 | * ADDR OF THE I/O BUFFER,I.E., ADDR OF WD CNT. * PMN05700
574 | * SEE 'CAPABILITIES' FOR DISCUSSION OF PARAM- * PMN05710
575 | * ETERS. * PMN05720
576 | * PMN05730
577 | *PURPOSE- * PMN05740
578 | * TO PROVIDE A SUBROUTINE TO PERFORM DISK OPERA-* PMN05750
579 | * TIONS. THIS SUBROUTINE IS INTENDED FOR USE BY * PMN05760
580 | * MONITOR PROGRAMS AND USER PROGRAMS WRITTEN IN * PMN05770
581 | * FORTRAN. THUS,IT IS INTENDED FOR USE IN AN * PMN05780
582 | * ERROR-FREE ENVIRONMENT. * PMN05790
583 | * * PMN05800
584 | *METHOD- * PMN05810
585 | * DISKZ REQUIRES A BUFFER,THE LENGTH OF WHICH IS* PMN05820
586 | * 2 GREATER THAN THE NO. WORDS TO BE READ/WRIT- * PMN05830
587 | * TEN. * PMN05840
588 | * * PMN05850
589 | *CAPABILITIES AND LIMITATIONS- * PMN05860
590 | * THE WD CNT,AS WELL AS DZ000,MUST BE ON AN EVEN* PMN05870
591 | * BOUNDARY,MUST BE IN THE RANGE 0-32767. THE * PMN05880
592 | * DRIVE CODE MUST BE IN BITS 1-3 OF THE SECTOR * PMN05890
593 | * ADDR,WHICH FOLLOWS THE WD CNT. THE FUNCTION * PMN05900
594 | * INDICATOR MUST BE XX00 FOR A READ OR XX01 FOR * PMN05910
595 | * A WRITE,WHERE 'XX' MEANS ANY 2 HEXADECIMAL * PMN05920
596 | * CHARACTERS. A WD CNT OF ZERO INDICATES A SEEK.* PMN05930
597 | * (READ OR WRITE MAY BE INDICATED.) AUTOMATIC * PMN05940
598 | * SEEKING IS PROVIDED AS A PART OF READ/WRITE. * PMN05950
599 | * A WRITE IS ALWAYS WITH A READ-BACK-CHECK. * PMN05960
600 | * DISKZ MAKES NO PREOPERATIVE PARAMETER CHECKS. * PMN05970
601 | * * PMN05980
602 | *SPECIAL FEATURES- * PMN05990
603 | * DISKZ PROVIDES ONLY THOSE FUNCTIONS MENTIONED * PMN06000
604 | * ABOVE. DISK1 AND DISKN OFFER THIS BASIC SET OF* PMN06010
605 | * FUNCTIONS PLUS OTHERS. * PMN06020
606 | * * PMN06030
607 | *************************************************** PMN06040
DISKZ
609 | * PROVIDE PARAMETERS FOR SYSTEM LOADER PMN06060
610 | * PMN06070
00F0 611 | BSS E 0 PMN06080
00F0 00EF 612 | DC $ZEND-* DISKZ WORD COUNT PMN06090
00F1 FF6A 613 | DC -@DZID PHASE ID PMN06100
00F2 00E8 614 | DC $ZEND-6-*+1 ADDR OF SLET EXTRACT PMN06110
00F3 0001 615 | DC 1 NO. ENTRIES IN SLET EXTRACT PMN06120
00F2 616 | ORG *-2 PMN06130
DISKZ
00F2 0000 618 | DZ000 DC *-* ENTRY POINT PMN06150
00F3 7400 00EE 619 | MDX L $DBSY,0 LOOP UNTIL OPERATION IN PMN06160
00F5 70FD 620 | MDX *-3 *PROGRESS IS COMPLETE PMN06170
00F6 7002 621 | MDX DZ020 BR AROUND INT ENTRY POINT PMN06180
622 | * PMN06190
623 | * INTERRUPT ENTRY POINT PMN06200
624 | * PMN06210
00F7 0000 625 | DZ010 DC *-* INTERRUPT ADDRESS PMN06220
00F8 7018 626 | MDX DZ180 BR TO SERVICE INTERRUPT PMN06230
00F9 690B 627 | DZ020 STX 1 DZ100+1 SAVE XR1 PMN06240
00FA 6A0C 628 | STX 2 DZ100+3 SAVE XR2 PMN06250
00FB 1008 629 | SLA 8 SHIFT INDICATOR 8 BITS PMN06260
00FC D03C 630 | STO DZ945 SAVE FUNCTION INDICATOR PMN06270
00FD 18D0 631 | RTE 16 PMN06280
00FE D05A 632 | STO DZ235+1 SAVE ADDR OF THE I/O AREA PMN06290
00FF 7054 633 | MDX DZ230 BR TO CONTINUE PMN06300
0100 4C00 0000 634 | DZ060 BSC L *-* BR TO SERVICE THE INTERRUPT PMN06310
635 | * PMN06320
636 | * START ALL DISK OPERATIONS PMN06330
637 | * PMN06340
0102 690F 638 | DZ070 STX 1 DZ180+1 SAVE ADDR OF THE I/O AREA PMN06350
0103 0822 639 | XIO DZ904 START AN OPERATION PMN06360
640 | * PMN06370
641 | * RETURN TO USER PMN06380
642 | * PMN06390
0104 6500 0000 643 | DZ100 LDX L1 *-* RESTORE XR1 PMN06400
0106 6600 0000 644 | LDX L2 *-* RESTORE XR2 PMN06410
0108 C0EE 645 | LD DZ010 INTERRUPT ENTRY 2-6 PMN06420
0109 4C98 00F2 646 | BSC I DZ000,+- NO,MONITOR ENTRY 2-6 PMN06430
010B D003 647 | STO DZ110+1 YES,INT ENTRY 2-6 PMN06440
010C 1810 648 | SRA 16 RESET 2-6 PMN06450
010D D0E9 649 | STO DZ010 *INT ENTRY 2-6 PMN06460
010E 4C00 0000 650 | DZ110 BSC L *-* 2-6 PMN06470
0110 1000 651 | NOP DUMMY OP 2-6 PMN06480
652 | * PMN06490
653 | * SERVICE ALL INTERRUPTS PMN06500
654 | * PMN06510
0111 6500 0000 655 | DZ180 LDX L1 *-* ADDR OF I/O AREA TO XR1 PMN06520
0113 6600 00F2 656 | LDX L2 DZ000 ADDR OF DZ000 TO XR2 PMN06530
0115 0816 657 | XIO DZ910 SENSE THE DSW PMN06540
0116 D0C6 658 | STO $DDSW SAVE THE DSW PMN06550
0117 4810 659 | BSC - SKIP IF ERROR BIT SET 2-6 PMN06560
0118 70E7 660 | MDX DZ060 BRANCH IF ERROR BIT NOT SET PMN06570
0119 C80A 661 | DZ185 LDD DZ902 RESTORE WORD COUNT PMN06580
011A D900 662 | STD 1 0 *AND SECTOR ADDRESS PMN06590
011B 74FF 00EE 663 | MDX L $DBSY,-1 SKIP IF 16 RETRIES DONE PMN06600
011D 703A 664 | MDX DZ235 BRANCH IF LESS THAN 16 PMN06610
665 | * PMN06620
666 | * TRAP OUT TO POSTOPERATIVE TRAP PMN06630
667 | * PMN06640
011E C80F 668 | LDD DZ912 1+SCTR ADDR TO EXTENSION PMN06650
011F C011 669 | LD DZ915 PMN06660
0120 4293 670 | DZ190 BSI 2 $PST2-X2 BR TO POSTOPERATIVE ER TRAP PMN06670
0121 7034 671 | MDX DZ232 RETRY OPERATION 2-6 PMN06680
672 | * PMN06690
673 | * CONSTANTS AND WORK AREAS PMN06700
674 | * PMN06710
0122 675 | BSS E 0 PMN06720
676 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES PMN06730
0122 0001 677 | DZ900 DC 1 CONSTANT,READ-AFTER-SEEK WD CNT PMN06740
0123 0000 678 | DZ901 DC 0 CURRENT ARM POSITION PMN06750
0124 0000 679 | DZ902 DC *-* LAST TWO WORDS OF SECTOR PMN06760
0125 0000 680 | DC *-* *PREVIOUSLY READ PMN06770
0126 0000 681 | DZ904 DC *-* IOCC FOR OPERATION CURRENTLY PMN06780
0127 0000 682 | DZ905 DC *-* *BEING PERFORMED PMN06790
0128 0000 683 | DZ906 DC *-* SAVE AREA FOR IOCC FOR PMN06800
0129 0000 684 | DZ907 DC *-* *USER-REQUESTED OPERATION PMN06810
012A 0122 685 | DZ908 DC DZ900 IOCC FOR READ PMN06820
012B 0000 686 | DZ909 DC *-* *AFTER SEEK PMN06830
012C 0000 687 | DZ910 DC *-* 2ND WORD OF SEEK IOCC PMN06840
012D 0000 688 | DZ911 DC *-* SENSE IOCC PMN06850
012E 0000 689 | DZ912 DC *-* INTERMEDIATE WORD COUNT PMN06860
012F 0000 690 | DZ913 DC *-* ADDR OF NEXT SEQUENTIAL SECTOR PMN06870
0130 5002 691 | DZ914 DC /5002 WRITE SELECT/POWER UNSAFE INDR PMN06880
0131 5004 692 | DZ915 DC /5004 READ/WRITE/SEEK ERROR INDICATOR PMN06890
0132 FEC0 693 | DZ916 DC -320 TO BE USED TO SIMULTANEOUSLY PMN06900
0133 0001 694 | DC 1 *DECR WD CNT, INCR SCTR ADDR PMN06910
0134 0080 695 | DZ920 DC /0080 READ CHECK BIT FOR IOCC PMN06920
0135 0600 696 | DZ925 DC /0600 2ND WD OF READ IOCC W/O AREA CD PMN06930
0136 0008 697 | DZ930 DC 8 NO. SECTORS PER CYLINDER PMN06940
0137 5000 698 | DZ935 DC /5000 NOT READY DISPLAY CODE PMN06950
0138 0FF8 699 | DZ940 DC /0FF8 'AND' OUT DR CODE, SCTR ADDR PMN06960
0139 0000 700 | DZ945 DC *-* FUNC INDICATOR (0=READ,1=WRITE) PMN06970
013A 0701 701 | DZ950 DC /0701 SENSE IOCC W/O AREA CODE PMN06980
013B 0007 702 | DZ955 DC /0007 'AND' OUT ALL BUT SCTR NO. PMN06990
013C 000A 703 | DZ960 DC $DCYL-$CYLN BASE DEFECTIVE CYL ADDR PMN07000
013D 009F 704 | DZ965 DC $ACDE BASE AREA CODE ADDR PMN07010
013E FFFB 705 | DZ970 DC $CYLN-$ACDE BASE ARM POSITION ADDR PMN07020
013F 0000 706 | DZ975 DC *-* 2ND WORD OF READ CHECK IOCC PMN07030
0140 0400 707 | DZ980 DC /0400 2ND WD OF SEEK IOCC W/O AREA CD PMN07040
0141 0141 708 | DZ985 DC 321 NO. WORDS PER SECTOR (W/ ADDR) PMN07050
0142 0000 709 | DZ990 DC *-* CURRENT SECTOR NO. PMN07060
0143 FFFF 710 | DZ995 DC -1 MASK FOR COMPLEMENTING PMN07070
711 | * PMN07080
712 | * RESERVED FOR SAVING CORE ON A DUMP ENTRY TO SKEL PMN07090
713 | * PMN07100
0144 714 | BSS 2 THIS AREA MUST BE AT $CIBA+319 PMN07110
00F2 715 | X2 EQU DZ000 PMN07120
716 | * PMN07130
717 | * PMN07140
718 | * PMN07150
0146 1810 719 | DZ210 SRA 16 PMN07160
0147 D0A6 720 | STO $DBSY CLEAR BUSY INDICATOR PMN07170
0148 74FF 0032 721 | MDX L $IOCT,-1 DECREMENT IOCS COUNTER PMN07180
014A 1000 722 | NOP PMN07190
014B 70B8 723 | MDX DZ100 TO EXIT PMN07200
724 | * PMN07210
725 | * PREPARE TO TRAP OUT ON 'POWER UNSAFE' CONDITION PMN07220
726 | * PMN07230
014C C8D7 727 | DZ215 LDD DZ902 RESTORE WORD COUNT 2-6 PMN07240
014D D900 728 | STD 1 0 *AND SECTOR ADDRES 2-6 PMN07250
014E C0E1 729 | LD DZ914 PMN07260
014F 70D0 730 | MDX DZ190 BR TO TPAP OUT PMN07270
731 | * PMN07280
732 | * PREPARE TO TRAP OUT ON 'NOT READY' CONDITION PMN07290
733 | * PMN07300
0150 C0E6 734 | DZ220 LD DZ935 FETCH ERROR CODE PMN07310
0151 4400 0028 735 | BSI L $PRET BR TO PREOPERATIVE ERR TRAP PMN07320
0153 7038 736 | MDX DZ340 RETRY THE OPERATION PMN07330
737 | * PMN07340
738 | * STATEMENTS MOVED 2-1 PMN07350
739 | * PMN07360
0154 7401 0032 740 | DZ230 MDX L $IOCT,1 INCREMENT IOCS COUNTER PMN07370
0156 6211 741 | DZ232 LDX 2 @TCNT TURN BUSY INDICATOR ON 2-10 PMN07380
0157 6A96 742 | STX 2 $DBSY * 2-6 PMN07390
0158 6500 0000 743 | DZ235 LDX L1 *-* ADDR I/O AREA TO XR1 PMN07400
015A C900 744 | LDD 1 0 PMN07410
015B D8C8 745 | STD DZ902 SAVE WORD COUNT, SCTR ADDR PMN07420
015C D8D1 746 | STD DZ912 PMN07430
015D 1810 747 | DZ240 SRA 16 PMN07440
015E 1084 748 | SLT 4 DRIVE CODE IN BITS 12-15 PMN07450
015F D00E 749 | STO DZ280+1 PMN07460
0160 80DC 750 | A DZ965 COMPUTE AND STORE THE PMN07470
0161 D01C 751 | STO DZ330+1 *ADDR OF THE AREA CODE PMN07480
0162 80DB 752 | A DZ970 COMPUTE AND STORE THE PMN07490
0163 D034 753 | STO DZ350+1 *ADDR OF THE ARM POSITION PMN07500
0164 80D7 754 | A DZ960 ADD IN BASE DT ADDR PMN07510
0165 8008 755 | A DZ280+1 ADD IN THE DRIVE PMN07520
0166 8007 756 | A DZ280+1 *CODE TWICE MORE PMN07530
0167 D006 757 | STO DZ280+1 PMN07540
0168 62FD 758 | LDX 2 -3 INITIALIZE COUNTER FOR LOOP PMN07550
0169 69BE 759 | STX 1 DZ906 PMN07560
016A C101 760 | LD 1 1 FETCH DESIRED SECTOR ADDR PMN07570
016B E0CC 761 | AND DZ940 'AND' OUT SECTOR NO. PMN07580
016C D101 762 | DZ250 STO 1 1 *AND DRIVE CODE PMN07590
016D 9400 0000 763 | DZ280 S L *-* SUB DEFECTIVE CYLINDER ADDR PMN07600
016F 4828 764 | BSC Z+ SKIP IF BAD CYLINDER PMN07610
0170 7007 765 | MDX DZ300 BR TO CONTINUE PROCESSING PMN07620
0171 C101 766 | LD 1 1 PMN07630
0172 80C3 767 | A DZ930 INCREMENT SCTR ADDR BY 8 PMN07640
0173 7401 016E 768 | MDX L DZ280+1,1 POINT TO NEXT DEFECTIVE CYL PMN07650
0175 7201 769 | MDX 2 1 SKIP AFTER 3RD PASS PMN07660
0176 70F5 770 | MDX DZ250 COMPARE W/ NEXT DEF CYL ADR PMN07670
0177 D101 771 | STO 1 1 SCTR ADDR WITH 3 DEF CYL2-4 PMN07680
772 | * PMN07690
773 | * CONSTRUCT THE 2ND WORD OF ALL IOCC'S PMN07700
774 | * PMN07710
0178 6600 00F2 775 | DZ300 LDX L2 DZ000 ADDR OF DZ000 TO XR2 PMN07720
017A C23D 776 | LD 2 DZ913-X2 FETCH SECTOR ADDRESS PMN07730
017B E249 777 | AND 2 DZ955-X2 'AND' OUT ALL BUT SECTOR NO PMN07740
017C D250 778 | STO 2 DZ990-X2 SAVE SECTOR NO. PMN07750
017D C400 0000 779 | DZ330 LD L *-* FETCH AREA CODE PMN07760
017F EA4E 780 | OR 2 DZ980-X2 'OR' IN SEEK FUNCTION CODE PMN07770
0180 D23A 781 | STO 2 DZ910-X2 SEEK IOCC MINUS DIRECTION PMN07780
0181 EA43 782 | OR 2 DZ925-X2 'OR' IN READ FUNCTION CODE PMN07790
0182 D239 783 | STO 2 DZ909-X2 IOCC FOR READ-AFTER-SEEK PMN07800
0183 EA50 784 | OR 2 DZ990-X2 'OR' IN SECTOR NO. PMN07810
0184 9247 785 | S 2 DZ945-X2 COMPLETE READ/WRITE CODE PMN07820
0185 D237 786 | STO 2 DZ907-X2 2ND WD OF READ/WRITE IOCC PMN07830
0186 EA42 787 | OR 2 DZ920-X2 'OR' IN READ CHECK BIT PMN07840
0187 8247 788 | A 2 DZ945-X2 PMN07850
0188 D24D 789 | STO 2 DZ975-X2 2ND WD OF READ CHECK IOCC PMN07860
0189 EA48 790 | OR 2 DZ950-X2 'OR' IN SENSE IOCC BITS PMN07870
018A D23B 791 | STO 2 DZ911-X2 COMPLETED SENSE IOCC PMN07880
018B CA3C 792 | LDD 2 DZ912-X2 1+SCTR ADDR TO EXTENSION PMN07890
018C 0A3A 793 | DZ340 XIO 2 DZ910-X2 SENSE FOR DISK READY PMN07900
018D D2EB 794 | STO 2 $DDSW-X2 SAVE THE DSW PMN07910
018E 4828 795 | BSC Z+ SKIP UNLESS POWER UNSAFE OR PMN07920
018F 70BC 796 | MDX DZ215 *WRITE SELECT, BR OTHERWISE PMN07930
0190 1002 797 | SLA 2 BR TO PREOPERATIVE ERR TRAP PMN07940
0191 4828 798 | BSC Z+ *IF DISK NOT READY, SKIP PMN07950
0192 70BD 799 | MDX DZ220 *OTHERWISE PMN07960
800 | * STATEMENTS REMOVED 2-1 PMN07970
0193 1002 801 | SLA 2 CHECK FOR ARM AT HOME 2-11 PMN07980
0194 4828 802 | BSC +Z SKIP IF NOT HOME 2-11 PMN07990
0195 7010 803 | MDX DZ390+1 BR TO VERIFY ARM AT HOM2-11 PMN08000
804 | * 2-11 PMN08010
805 | * 3 INSTRUCTIONS REMOVED 2-11 PMN08020
806 | * 2-11 PMN08025
0196 C101 807 | LD 1 1 FETCH DESIRED CYLINDER ADDR PMN08030
0197 9400 0000 808 | DZ350 S L *-* SUBTRACT ARM POSITION PMN08040
0199 4818 809 | BSC +- SKIP IF SEEK NECESSARY PMN08050
019A 701B 810 | MDX DZ400 BRANCH TO PERFORM OPERATION PMN08060
811 | * PMN08070
812 | * SEEK PMN08080
813 | * PMN08090
019B 1893 814 | SRT 19 PUT NO. CYLINDERS IN EXT PMN08100
019C 180F 815 | SRA 15 + OR - SIGN TO BIT 15 PMN08110
019D 1002 816 | SLA 2 SHIFT SIGN TO BIT 13 PMN08120
019E EA3A 817 | OR 2 DZ910-X2 "OR" IN REMAINDER OF IOCC PMN08130
019F 18D0 818 | RTE 16 PMN08140
01A0 4810 819 | BSC - SKIP IF SEEK TOWARD HOME PMN08150
01A1 7002 820 | MDX DZ380 BRANCH IF SEEK TOWARD CENTR PMN08160
01A2 F251 821 | EOR 2 DZ995-X2 COMPLEMENT NO. CYLS TO BE PMN08170
01A3 8230 822 | A 2 DZ900-X2 *SOUGHT TO GET POSITIVE NO. PMN08180
01A4 DA34 823 | DZ380 STD 2 DZ904-X2 PMN08190
01A5 420F 824 | DZ390 BSI 2 DZ070-1-X2 START SEEK 2-1 PMN08200
825 | * PMN08210
826 | * SEEK COMPLETE INTERRUPT PROCESSING PMN08220
827 | * PMN08230
01A6 CA38 828 | LDD 2 DZ908-X2 SET UP IOCC FOR PMN08240
01A7 DA34 829 | STD 2 DZ904-X2 *READ AFTER SEEK PMN08250
01A8 420F 830 | BSI 2 DZ070-1-X2 START READ-AFTER-SEEK PMN08260
831 | * PMN08270
832 | * READ-AFTER-SEEK COMPLETE INTERRUPT PROCESSING PMN08280
833 | * PMN08290
01A9 C231 834 | LD 2 DZ901-X2 FETCH ADR OF SCTR JUST READ PMN08300
01AA D480 0198 835 | STO I DZ350+1 UPDATE ARM POSITION PMN08310
01AC 9101 836 | S 1 1 SUB DESIRED SCTR ADDR PMN08320
01AD 4C18 01B6 837 | BSC L DZ400,+- BR IF SEEK SUCCESSFUL 2-11 PMN08330
01AF 74FF 00EE 838 | MDX L $DBSY,-1 SKIP IF NO MORE RETRIES2-11 PMN08332
01B1 70E4 839 | MDX DZ350-1 BR TO CALC NEW SEEK 2-11 PMN08334
01B2 7401 00EE 840 | MDX L $DBSY,1 PREVENT A MINUS $DBSY 2-11 PMN08336
01B4 4C00 0119 841 | BSC L DZ185 BR TO TRAP OUT 2-11 PMN08338
842 | * PMN08340
843 | * PMN08350
844 | * READ/WRITE PMN08360
845 | * PMN08370
01B6 CA3C 846 | DZ400 LDD 2 DZ912-X2 FETCH INTERMEDIATE WD CNT PMN08380
01B7 4808 847 | BSC + SKIP, WD CNT NOT EXHAUSTED PMN08390
01B8 7011 848 | MDX DZ410 BR IF WD CNT EXHAUSTED 2-11 PMN08400
01B9 8A40 849 | AD 2 DZ916-X2 DECREMENT WORD COUNT AND PMN08410
01BA DA3C 850 | STD 2 DZ912-X2 *INCREMENT SECTOR ADDRESS PMN08420
01BB 4830 851 | BSC Z- SKIP IF THIS IS LAST SECTOR PMN08430
01BC 1810 852 | SRA 16 CLEAR ACCUMULATOR PMN08440
01BD 824F 853 | A 2 DZ985-X2 ADD BACK 321 TO WD CNT PMN08450
01BE D100 854 | STO 1 0 STORE RESULT IN I/O AREA PMN08460
01BF CA36 855 | LDD 2 DZ906-X2 RESTORE IOCC FOR ORIGINALLY PMN08470
01C0 DA34 856 | STD 2 DZ904-X2 *REQUESTED OPERATION PMN08480
01C1 C101 857 | LD 1 1 ADD SECTOR NO. TO SECTOR PMN08490
01C2 EA50 858 | OR 2 DZ990-X2 *ADDRESS PMN08500
01C3 D101 859 | STO 1 1 PMN08510
01C4 420F 860 | BSI 2 DZ070-1-X2 START READ/WRITE OPERATION PMN08520
861 | * PMN08530
862 | * READ/WRITE COMPLETE INTERRUPT PROCESSING PMN08540
863 | * PMN08550
01C5 C24D 864 | LD 2 DZ975-X2 SET UP FOR READ CHECK PMN08560
01C6 D235 865 | STO 2 DZ905-X2 PMN08570
01C7 C247 866 | LD 2 DZ945-X2 FETCH FUNCTION INDICATOR PMN08580
01C8 4820 867 | BSC Z SKIP IF READ REQUESTED PMN08590
01C9 420F 868 | BSI 2 DZ070-1-X2 START READ CHECK OPERATION PMN08600
01CA CA32 869 | DZ410 LDD 2 DZ902-X2 RESTORE LST 2 WDS, SEC-2-11 PMN08610
01CB D900 870 | STD 1 0 *TOR PREVIOUSLY READ PMN08620
01CC C23C 871 | LD 2 DZ912-X2 FETCH INTERMEDIATE WD CNT PMN08630
872 | * SHORT BSC AND MDX CHANGED TO FOLLOWING BSC L 2-11 PMN08640
01CD 4C08 0146 873 | BSC L DZ210,+ BR IF WD CNT EXHAUSTED 2-11 PMN08650
01CF 7500 0140 874 | MDX L1 320 POINT XR1 TO NEW I/O AREA PMN08660
01D1 C900 875 | LDD 1 0 SAVE LAST 2 WDS OF SECTOR PMN08670
01D2 DA32 876 | STD 2 DZ902-X2 *JUST READ/WRITTEN PMN08680
01D3 CA3C 877 | LDD 2 DZ912-X2 WD CNT, SCTR ADDR NEXT OP PMN08690
01D4 D900 878 | STD 1 0 STORE BOTH IN NEW I/O AREA PMN08700
01D5 7087 879 | MDX DZ240 BACK TO SET UP NEXT OPERATN PMN08710
880 | * PMN08720
881 | * PMN08730
01E0 882 | $ZEND EQU /01E0 1 + END OF DISKZ 2-11 PMN08735
01D6 883 | BSS $ZEND-*-6 PATCH AREA 2-11 PMN08740
884 | * PMN08750
885 | * PMN08760
01DA 00A0 886 | DC @CIL1 ID NO. OF CORE IMAGE LDR,P1 PMN08770
01DB 0000 887 | $CIDN DC *-* CORE ADDR/CID NO. PMN08780
01DC 0000 888 | DC *-* WORD COUNT PMN08790
01DD 0000 889 | DC *-* SCTR ADDR PMN08800
01DE 890 | BSS 2 WD CNT, SCTR ADDR CORE LDS PMN08810
891 | * $ZEND EQUATE MOVED 2-11 PMN08820
EQUIVALENCES
893 | * PMN08840
894 | * EQUIVALENCES FOR DCOM PARAMETERS PMN08850
895 | * PMN08860
0004 896 | #NAME EQU 4 NAME OF PROGRAM/CORE LOAD PMN08870
0006 897 | #DBCT EQU 6 BLOCK CT OF PROGRAM/CORE LOAD PMN08880
0007 898 | #FCNT EQU 7 FILES SWITCH PMN08890
0008 899 | #SYSC EQU 8 SYSTEM/NON-SYSTEM CARTRIDGE INDR PMN08900
0009 900 | #JBSW EQU 9 JOBT SWITCH PMN08910
000A 901 | #CBSW EQU 10 CLB-RETURN SWITCH PMN08920
000B 902 | #LCNT EQU 11 NO. OF LOCALS PMN08930
000C 903 | #MPSW EQU 12 CORE MAP SWITCH PMN08940
000D 904 | #MDF1 EQU 13 NO. DUP CTRL RECORDS (MODIF) PMN08950
000E 905 | #MDF2 EQU 14 ADDR OF MODIF BUFFER PMN08960
000F 906 | #NCNT EQU 15 NO. OF NOCALS PMN08970
0010 907 | #ENTY EQU 16 RLTV ENTRY ADDR OF PROGRAM PMN08980
0011 908 | #RP67 EQU 17 1442-5 SWITCH PMN08990
0012 909 | #TODR EQU 18 OBJECT WORK STORAGE DRIVE CODE PMN09000
0014 910 | #FHOL EQU 20 ADDR LARGEST HOLE IN FIXED AREA PMN09010
0015 911 | #FSZE EQU 21 BLK CNT LARGEST HOLE IN FXA PMN09020
0016 912 | #UHOL EQU 22 ADDR LAST HOLE IN USER AREA 2-10 PMN09030
0017 913 | #USZE EQU 23 BLK CNT LAST HOLE IN UA 2-10 PMN09040
0018 914 | #DCSW EQU 24 DUP CALL SWITCH PMN09050
0019 915 | #PIOD EQU 25 PRINCIPAL I/O DEVICE INDICATOR PMN09060
001A 916 | #PPTR EQU 26 PRINCIPAL PRINT DEVICE INDICATOR PMN09070
001B 917 | #CIAD EQU 27 RLTV ADDR IN @STRT OF CIL ADDR PMN09080
001C 918 | #ACIN EQU 28 AVAILABLE CARTRIDGE INDICATOR PMN09090
001D 919 | #GRPH EQU 29 2250 INDICATOR 2G2 PMN09100
001E 920 | #GCNT EQU 30 NO. G2250 RECORDS 2G2 PMN09110
001F 921 | #LOSW EQU 31 LOCAL-CALLS-LOCAL SWITCH 2-2 PMN09120
0020 922 | #X3SW EQU 32 SPECIAL ILS SWITCH 2-2 PMN09130
0021 923 | #ECNT EQU 33 NO. OF *EQUAT RCDS 2-4 PMN09140
0023 924 | #ANDU EQU 35 1+BLK ADDR END OF UA (ADJUSTED) PMN09150
0028 925 | #BNDU EQU 40 1+BLK ADDR END OF UA (BASE) PMN09160
002D 926 | #FPAD EQU 45 FILE PROTECT ADDR PMN09170
0032 927 | #PCID EQU 50 CARTRIDGE ID, PHYSICAL DRIVE PMN09180
0037 928 | #CIDN EQU 55 CARTRIDGE ID, LOGICAL DRIVE PMN09190
003C 929 | #CIBA EQU 60 SCTR ADDR OF CIB PMN09200
0041 930 | #SCRA EQU 65 SCTR ADDR OF SCRA PMN09210
0046 931 | #FMAT EQU 70 FORMAT OF PROG IN WORKING STG PMN09220
004B 932 | #FLET EQU 75 SCTR ADDR 1ST SCTR OF FLET PMN09230
0050 933 | #ULET EQU 80 SCTR ADDR 1ST SCTR OF LET PMN09240
0055 934 | #WSCT EQU 85 BLK CNT OF PROG IN WORKING STG PMN09250
005A 935 | #CSHN EQU 90 NO. SCTRS IN CUSHION AREA PMN09260
936 | * PMN09270
937 | * EQUIVALENCES FOR PHASE ID NUMBERS PMN09280
938 | * PMN09290
006E 939 | @MCRA EQU 110 PHASE ID FOR MCRA PMN09300
0073 940 | @SUP6 EQU 115 PHASE ID FOR DUMP PROG 2-10 PMN09310
0074 941 | @SUP7 EQU 116 PHASE ID FOR AUX SUPV 2-10 PMN09320
0078 942 | @CLB0 EQU 120 PHASE ID FOR CLB, PHASE 0/1 PMN09330
008C 943 | @1403 EQU 140 PHASE ID FOR SYS 1403 SUBR PMN09340
008D 944 | @1132 EQU 141 PHASE ID FOR SYS 1132 SUBR PMN09350
008E 945 | @CPTR EQU 142 PHASE ID FOR SYS CP SUBR PMN09360
008F 946 | @2501 EQU 143 PHASE ID FOR SYS 2501 SUBR PMN09370
0090 947 | @1442 EQU 144 PHASE ID FOR SYS 1442 SUBR PMN09380
0091 948 | @1134 EQU 145 PHASE ID FOR SYS 1134 SUBR PMN09390
0092 949 | @KBCP EQU 146 PHASE ID FOR SYS KB/CP SUBR PMN09400
0093 950 | @CDCV EQU 147 PHASE ID FOR SYS CD CONV PMN09410
0094 951 | @PTCV EQU 148 PHASE ID FOR SYS 1134 CONV PMN09420
0095 952 | @KBCV EQU 149 PHASE ID FOR SYS KB CONV PMN09430
0096 953 | @DZID EQU 150 PHASE ID FOR DISKZ PMN09440
0097 954 | @D1ID EQU 151 PHASE ID FOR DISKI PMN09450
0098 955 | @DNID EQU 152 PHASE ID FOR DISKN PMN09460
00A0 956 | @CIL1 EQU 160 PHASE ID FOR CI LOADER,PH 1 PMN09470
00A1 957 | @CIL2 EQU 161 PHASE ID FOR CI LOADER,PH 2 PMN09480
958 | * PMN09490
959 | * EQUIVALENCES FOR RESIDENT MONITOR PMN09500
960 | * PMN09510
0014 961 | $LKNM EQU $HASH SAVE AREA FOR NAME OF LINK PMN09520
0016 962 | $RMSW EQU $HASH+2 EXIT-LINK-DUMP SW(-1,0,+1) PMN09530
0017 963 | $CXR1 EQU $HASH+3 SAVE AREA FOR XR1 PMN09540
0018 964 | $CLSW EQU $HASH+4 SW FOR CORE IMAGE LDR,PH 2 PMN09550
0019 965 | $DMPF EQU $HASH+5 DUMP FORMAT CODE PMN09560
001A 966 | $ACEX EQU $HASH+6 ACC AND EXT WHEN ENTER DUMP PMN09570
005A 967 | $CILA EQU $S150+1 ADDR OF END OF DK I/O - 3 PMN09580
00B9 968 | $IBT2 EQU $I205+1 ADR OF SERVICE PART OF DKIO PMN09590
00D4 969 | $IBT4 EQU $I405+1 ADDR OF THE IBT PMN09600
00EF 970 | $SNLT EQU $DBSY+1 SENSE LIGHT INDICATOR PMN09610
00F0 971 | $PAUS EQU DZ000-2 PAUSE,INTERRUPT INDICATOR PMN09620
00F1 972 | $RWCZ EQU DZ000-1 READ/WRITE SWITCH (CARDZ) PMN09630
00E4 973 | $XR3X EQU $I496 XR3 SETTING DURING XEQ 2-2 PMN09640
974 | * PMN09650
975 | * EQUIVALENCES FOR ABSOLUTE SECTOR ADDRESSES PMN09660
976 | * PMN09670
0000 977 | @IDAD EQU 0 ADDR OF SCTR WITH ID,DEF CYL ADR PMN09680
0001 978 | @DCOM EQU 1 ADDR OF SCTR CONTAINING DCOM PMN09690
0002 979 | @RIAD EQU 2 ADDROOF SCTR CONTAINING RES IMGE PMN09700
0003 980 | @SLET EQU 3 ADDR OF SCTR CONTAINING SLET PMN09710
0006 981 | @RTBL EQU 6 ADDR OF SCTR CONTAINING RELD TBL PMN09720
0007 982 | @HDNG EQU 7 ADDR OF SCTR CONTAINING PAGE HDR PMN09730
0000 983 | @STRT EQU 0 ADDR OF SCTR W/ COLD START PROG PMN09740
984 | * PMN09750
985 | * EQUIVALENCES FOR THE CORE IMAGE HEADER PMN09760
986 | * PMN09770
0000 987 | @XEQA EQU 0 RLTV ADDR OF CORE LOAD EXEC ADDR PMN09780
0001 988 | @CMON EQU 1 RLTV ADDR OF WD CNT OF COMMON PMN09790
0002 989 | @DREQ EQU 2 RLTV ADDR OF DISK I/O INDICATOR PMN09800
0003 990 | @FILE EQU 3 RLTV ADDR OF NO. FILES DEFINED PMN09810
0004 991 | @HWCT EQU 4 RLTV ADDR OF WD CNT OF CI HEADER PMN09820
0005 992 | @LSCT EQU 5 SCTR CNT OF FILES IN WK STORAGE PMN09830
0006 993 | @LDAD EQU 6 RLTV ADDR OF LOAD ADDR CORE LOAD PMN09840
0007 994 | @XCTL EQU 7 RLTV ADDR DISK1/DISKN EXIT CTRL PMN09850
0008 995 | @TVWC EQU 8 RLTV ADDR OF WD CNT OF TV PMN09860
0009 996 | @WCNT EQU 9 RLTV ADDR OF WD CNT OF CORE LOAD PMN09870
000A 997 | @XR3X EQU 10 RLTV ADDR OF EXEC SETTING OF XR3 PMN09880
000B 998 | @ITVX EQU 11 RLTV ADDR OF 1ST WD OF ITV PMN09890
0011 999 | @ILS4 EQU 17 RLTV ADDR OF 1ST WD OF IBT4 PMN09900
001A 1000 | @OVSW EQU 26 RLTV ADDR OF LOCAL/SOCAL SWITCH PMN09910
001B 1001 | @CORE EQU 27 CORE SIZE OF BUILDING SYST 2-10 PMN09920
001D 1002 | @HEND EQU 29 RLTV ADDR OF LAST WD OF CI HDR PMN09930
1003 | * PMN09940
1004 | * EQUIVALENCES FOR LET/FLET PMN09950
1005 | * PMN09960
0005 1006 | @LFHD EQU 5 WORD COUNT OF LET/FLET HEADER PMN09970
0003 1007 | @LFEN EQU 3 NO OF WDS PER LET/FLET ENTRY PMN09980
0000 1008 | @SCTN EQU 0 RLTY ADDR OF LET/FLET SCTR NO. PMN09990
0001 1009 | @UAFX EQU 1 RLTV ADDR OF SCTR ADDR OF UA/FXA PMN10000
0003 1010 | @WDSA EQU 3 RLTV ADDR OF WDS AVAIL IN SCTR PMN10010
0004 1011 | @NEXT EQU 4 RLTV ADDR OF ADDR NEXT SCTR PMN10020
0000 1012 | @LFNM EQU 0 RLTV ADDR OF LET/FLET ENTRY NAME PMN10030
0002 1013 | @BLCT EQU 2 RLTV ADDR OF LET/FLET ENTRY DBCT PMN10040
1014 | * PMN10050
1015 | * MISCELLANEOUS EQUIVALENCES PMN10060
1016 | * PMN10070
0033 1017 | @ISTV EQU 51 ISS NO. ADJUSTMENT FACTOR 2-1 PMN10080
0005 1018 | @MXDR EQU 5 MAX NO. DRIVES SUPPORTED PMN10090
0380 1019 | @COMZ EQU 896 LOW COMMON LIMIT FOR DISKZ PMN10100
04C0 1020 | @COM1 EQU 1216 LOW COMMON LIMIT FOR DISK1 PMN10110
0600 1021 | @COM2 EQU 1536 LOW COMMON LIMIT OF DISKN PMN10120
0011 1022 | @TCNT EQU 17 NO. TRIES BEFORE DISK ERROR PMN10130
00F9 1023 | @DKEP EQU DZ000+7 LIBF ENTRY TO DISK1/N PMN10140
00F7 1024 | @DKIP EQU DZ000+5 DISK I/O INTERRUPT ENTRY PT PMN10150
0010 1025 | @SCIB EQU 16 CIB SECTOR COUNT 2-2 PMN10160
0003 1026 | @HCIB EQU 3 HIGH COMMON SECTOR COUNT 2-2 PMN10170
1000 1027 | @MCOR EQU 4096 SIZE OF MINIMUM CORE 2-2 PMN10180
007F 1028 | Y EQU 127 PMN10190
1029 | * PMN10200
0004 1030 | @CIDN EQU 4 RLTV ADDR CARTRIDGE ID 2-2 PMN10210
0005 1031 | @COPY EQU 5 RLTV ADDR COPY INDICATOR 2-2 PMN10220
0001 1032 | @DCTB EQU 1 RLTV ADDR DEFECTIV CYL TBL 2-2 PMN10230
0008 1033 | @DTYP EQU 8 RLTV ADDR DISK TYPE INDR 2-2 PMN10240
COLD START PROGRAM
1035 | *************************************************** PMN10260
1036 | * * PMN10270
1037 | *STATUS - VERSION 2, MODIFICATION 11 * PMN10280
1038 | * * PMN10290
1039 | *FUNCTION/OPERATION - * PMN10300
1040 | * THIS PROGRAM IS READ INTO CORE FROM SECTOR 0 * PMN10310
1041 | * OF THE SYSTEM CARTRIDGE AND TRANSFERRED TO BY * PMN10320
1042 | * THE COLD START CARD. DEFECTIVE CYLINDER * PMN10330
1043 | * ADDRESSES, CARTRIDGE ID AND DISKZ ARE ALSO ON * PMN10340
1044 | * SECTOR 0 AND ARE READ IN AT THE SAME TIME. * PMN10350
1045 | * ALL THAT REMAINS FOR THE COLD START PROGRAM IS* PMN10360
1046 | * TO READ IN THE RESIDENT IMAGE, SAVE THE * PMN10370
1047 | * CARTRIDGE ID AND TRANSFER TO THE AUXILIARY * PMN10380
1048 | * SUPERVISOR THROUGH $DUMP IN THE RESIDENT * PMN10390
1049 | * MONITOR. * PMN10400
1050 | * * PMN10410
1051 | *ENTRY - CR010-2 * PMN10420
1052 | * ENTER PROGRAM BY TRANSFER FROM COLD START CARD* PMN10430
1053 | * * PMN10440
1054 | *INPUT - * PMN10450
1055 | * THE CARTRIDGE ID OF LOGICAL DRIVE ZERO (THE * PMN10460
1056 | * SYSTEM CARTRIDGE) IS READ IN FROM SECTOR 0 * PMN10470
1057 | * WITH THE COLD START PROGRAM. * PMN10480
1058 | * * PMN10490
1059 | *OUTPUT - * PMN10500
1060 | * * THE RESIDENT IMAGE IS READ INTO CORE FROM * PMN10510
1061 | * THE DISK. * PMN10520
1062 | * * IN COMMA- * PMN10530
1063 | * $ACDE * PMN10540
1064 | * $CIBA-1 * PMN10550
1065 | * $CIDN * PMN10560
1066 | * $CYLN * PMN10570
1067 | * $DBSY * PMN10580
1068 | * $IOCT * PMN10590
1069 | * * PMN10600
1070 | *EXTERNAL REFERENCES - * PMN10610
1071 | * DZ000 SUBROUTINE TO PERFORM DISK I/O. * PMN10620
1072 | * * PMN10630
1073 | *EXITS - * PMN10640
1074 | * THE ONLY EXIT IS TO THE AUXILIARY SUPERVISOR * PMN10650
1075 | * AS FOLLOWS- * PMN10660
1076 | * BSI $DUMP * PMN10670
1077 | * DC -1 * PMN10680
1078 | * * PMN10690
1079 | *TABLES/WORK AREAS - N/A * PMN10700
1080 | * * PMN10710
1081 | *ATTRIBUTES - * PMN10720
1082 | * THIS PROGRAM IS NOT NATURALLY RELOCATABLE. * PMN10730
1083 | * * PMN10740
1084 | *NOTES - * PMN10750
1085 | * DISK ERRORS RESULT IN A WAIT AT $PST2. * PMN10760
1086 | *************************************************** PMN10770
COLD START PROGRAM
1088 | * PMN10790
1089 | * READ THE RESIDENT IMAGE INTO CORE PMN10800
1090 | * PMN10810
01E0 617F 1091 | LDX 1 Y PMN10820
01E1 C824 1092 | LDD CR920 SET UP WORD COUNT AND SCTR PMN10830
01E2 DC00 0004 1093 | CR010 STD L $CIBA-1 *ADDR OF RESIDENT IMAGE PMN10840
01E4 D125 1094 | STO 1 $DCYL-Y *INITIALIZE DEF CYL NO. 1 PMN10850
01E5 C184 1095 | LD 1 3-Y FETCH LOG DRIVE 0 AREA CODE PMN10860
01E6 D120 1096 | STO 1 $ACDE-Y *AND STORE IT IN COMMA PMN10870
01E7 D01F 1097 | STO CR920+1 SAVE THE AREA CODE PMN10880
01E8 C156 1098 | LD 1 DZ000-2-27-Y FETCH AND SAVE THE PMN10890
01E9 D0F1 1099 | STO $CIDN *CARTRIDGE ID PMN10900
01EA 6600 01FE 1100 | LDX L2 CR020 SET UP TEMPORARY 2-11 PMN10902
01EC 6E00 000A 1101 | STX L2 $LEV2 *ILS02 2-11 PMN10904
01EE C0F4 1102 | LD CR010+1 FETCH CORE ADDR OF RESIDENT PMN10910
01EF 1890 1103 | SRT 16 *IMAGE AND PUT IN EXTENSION PMN10920
01F0 D16F 1104 | STO 1 $DBSY-Y CLEAR DISK BUSY INDICATOR PMN10930
01F1 D11B 1105 | STO 1 $CYLN-Y INITIALIZE ARM POSITION PMN10940
01F2 4173 1106 | BSI 1 DZ000-Y FETCH RESIDENT IMAGE PMN10950
01F3 3000 1107 | WAIT WAIT OUT THE INTERRUPT PMN10960
1108 | * PMN10970
1109 | * INITIALIZE ITEMS IN COMMA PMN10980
1110 | * PMN10990
01F4 1810 1111 | SRA 16 PMN11000
01F5 D1B3 1112 | STO 1 $IOCT-Y CLEAR IOCS COUNTER PMN11010
01F6 C80D 1113 | LDD CR910 PMN11020
01F7 D985 1114 | STD 1 $CIBA-1-Y *FOR SAVING CORE ON THE CIB PMN11030
01F8 C00E 1115 | LD CR920+1 FETCH AREA CODE PMN11040
01F9 D120 1116 | STO 1 $ACDE-Y RESET AREA CODE PMN11050
01FA C00D 1117 | LD CR905 INITIALIZE WD ZERO TO PMN11060
01FB D181 1118 | STO 1 0-Y *AN 'MDX *-1' LOOP PMN11070
1119 | * PMN11080
1120 | * TRANSFER TO THE AUXILIARY SUPERVISOR PMN11090
1121 | * TO COMPLETE INITIALIZATION PMN11100
1122 | * PMN11110
01FC 41C0 1123 | BSI 1 $DUMP-Y BR TO AUXILLIARY SUPERVISOR PMN11120
01FD FFFF 1124 | DC -1 *FOR JOB PROCESSING PMN11130
1125 | * PMN11140
01FE 0000 1126 | CR020 DC *-* 2-11 PMN11142
01FF 4178 1127 | BSI 1 DZ010-Y BR TO SERVICE INTERRUPT2-11 PMN11144
0200 74FF 01FE 1128 | MDX L CR020,-1 2-11 PMN11146
0202 4CC0 01FE 1129 | BOSC I CR020 RETURN 2-11 PMN11148
1130 | * PMN11160
1131 | * CONSTANTS AND WORK AREAS PMN11170
1132 | * PMN11180
0204 1133 | BSS E 0 ASSURE EVEN BOUNDARY 2-11 PMN11190
0204 0000 1134 | CR910 DC 0 WD CNT,SCTR ADDR OF 2-5 PMN11200
0205 0007 1135 | DC @HDNG *HARMLESS WRITE TO DISK PMN11210
0206 00E8 1136 | CR920 DC $DBSY-$CH12 WD CNT AND SCTR PMN11220
0207 0002 1137 | DC @RIAD *ADDR OF RESIDENT IMAGE PMN11230
0208 70FF 1138 | CR905 MDX *-1 TO BE PUT AT ADDR 0000 2-11 PMN11231
0209 1139 | BSS /0212-* PATCH AREA 2-11 PMN11232
0212 1140 | END * PMN66890
There were no errors in this assembly
Program transfer address = 0212
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#ACIN 001C 918
#ANDU 0023 924
#BNDU 0028 925
#CBSW 000A 901
#CIAD 001B 917
#CIBA 003C 929
#CIDN 0037 928
#CSHN 005A 935
#DBCT 0006 897
#DCSW 0018 914
#ECNT 0021 923
#ENTY 0010 907
#FCNT 0007 898
#FHOL 0014 910
#FLET 004B 932
#FMAT 0046 931
#FPAD 002D 926
#FSZE 0015 911
#GCNT 001E 920
#GRPH 001D 919
#JBSW 0009 900
#LCNT 000B 902
#LOSW 001F 921
#MDF1 000D 904
#MDF2 000E 905
#MPSW 000C 903
#NAME 0004 896
#NCNT 000F 906
#PCID 0032 927
#PIOD 0019 915
#PPTR 001A 916
#RP67 0011 908
#SCRA 0041 930
#SYSC 0008 899
#TODR 0012 909
#UHOL 0016 912
#ULET 0050 933
#USZE 0017 913
#WSCT 0055 934
#X3SW 0020 922
$1132 007F 385
$1403 0080 386
$ACDE 009F 447 704 705 1096 1116
$ACEX 001A 966 321
$CCAD 0074 374
$CH12 0006 256 1136
$CIBA 0005 255 314 1093 1114
$CIDN 01DB 887 1099
$CILA 005A 967 347
$CLSW 0018 964
$COMN 0007 257
$CORE 000E 269
$CPTR 007E 384
$CTSW 000F 270
$CWCT 0072 372
$CXR1 0017 963 324
$CYLN 009A 437 703 705 1105
$DADR 0010 271
$DBSY 00EE 560 619 663 720 742 838 840 970 1104 1136
$DCDE 0077 377
$DCYL 00A4 458 703 1094
$DDSW 00DD 540 658 794
$DMPF 0019 965 326
$DREQ 0012 273
$DUMP 003F 320 325 556 1123
$DZ1N 0076 376
$EXIT 0038 304
$FLSH 0071 370
$FPAD 0095 428
$GCOM 0063 353
$GRIN 0064 354
$HASH 0014 275 961 962 963 964 965 966
$I200 00B3 484 263 495
$I205 00B8 490 968
$I210 00BA 491 485 486 487
$I290 00C2 496 488 494
$I400 00C4 516 265 535
$I403 00D0 526 523
$I405 00D3 530 969
$I410 00D5 531 518 519 520
$I420 00E6 553
$I425 00EA 556 555
$I490 00DE 541 517 534
$I492 00E0 542 521
$I494 00E2 545 527
$I496 00E4 550 554 973
$I499 006E 366 362
$IBSY 0013 274
$IBT2 00B9 968
$IBT4 00D4 969
$IOCT 0032 295 359 721 740 1112
$IREQ 002C 289 524
$KCSW 007C 382
$LAST 0033 296
$LEV0 0008 261
$LEV1 0009 262
$LEV2 000A 263 1101
$LEV3 000B 264
$LEV4 000C 265
$LEV5 000D 266
$LINK 0039 308 339
$LKNM 0014 961 345
$LNXQ 0070 368
$LSAD 0075 375
$NDUP 0034 297
$NXEQ 0035 298
$PAUS 00F0 971
$PBSY 0036 299
$PGCT 0037 300
$PHSE 0078 378
$PRET 0028 284 286 735
$PST1 0081 390 392
$PST2 0085 396 398 670
$PST3 0089 402 404
$PST4 008D 408 410
$RMSW 0016 962 338
$RWCZ 00F1 972
$S000 0052 337 304
$S100 0053 338 310 330
$S150 0059 344 967
$S200 005E 348
$S250 0065 358 322 346 350 363
$S300 0066 359 361
$S900 003C 312 327 329
$S910 003E 315 337
$SCAN 0020 278
$SCAT 0011 272 360
$SNLT 00EF 970
$SSTS 006D 365 323
$STOP 0091 415 266 417
$SYSC 00E0 543
$UFDR 007D 383
$UFIO 0079 379
$ULET 002D 290
$WRD1 007B 381
$WSDR 007A 380
$XR3X 00E4 973
$ZEND 01E0 882 612 614 883
'1132 008D 944
'1134 0091 948
'1403 008C 943
'1442 0090 947
'2501 008F 946
'BLCT 0002 1013
'CDCV 0093 950
'CIDN 0004 1030
'CIL1 00A0 956 886
'CIL2 00A1 957
'CLB0 0078 942
'CMON 0001 988
'COM1 04C0 1020
'COM2 0600 1021
'COMZ 0380 1019
'COPY 0005 1031
'CORE 001B 1001
'CPTR 008E 945
'D1ID 0097 954
'DCOM 0001 978
'DCTB 0001 1032
'DKEP 00F9 1023
'DKIP 00F7 1024
'DNID 0098 955
'DREQ 0002 989
'DTYP 0008 1033
'DZID 0096 953 613
'FILE 0003 990
'HCIB 0003 1026
'HDNG 0007 982 1135
'HEND 001D 1002
'HWCT 0004 991
'IDAD 0000 977
'ILS4 0011 999
'ISTV 0033 1017
'ITVX 000B 998
'KBCP 0092 949
'KBCV 0095 952
'LDAD 0006 993
'LFEN 0003 1007
'LFHD 0005 1006
'LFNM 0000 1012
'LSCT 0005 992
'MCOR 1000 1027
'MCRA 006E 939
'MXDR 0005 1018
'NEXT 0004 1011
'OVSW 001A 1000
'PTCV 0094 951
'RIAD 0002 979 1137
'RTBL 0006 981
'SCIB 0010 1025
'SCTN 0000 1008
'SLET 0003 980
'STRT 0000 983
'SUP6 0073 940
'SUP7 0074 941
'TCNT 0011 1022 741
'TVWC 0008 995
'UAFX 0001 1009
'WCNT 0009 996
'WDSA 0003 1010
'XCTL 0007 994
'XEQA 0000 987
'XR3X 000A 997
CR010 01E2 1093 1102
CR020 01FE 1126 1100 1128 1129
CR905 0208 1138 1117
CR910 0204 1134 1113
CR920 0206 1136 1092 1097 1115
DZ000 00F2 618 328 349 646 656 715 775 971 972 1023 1024 1098 1106
DZ010 00F7 625 645 649 1127
DZ020 00F9 627 621
DZ060 0100 634 660
DZ070 0102 638 824 830 860 868
DZ100 0104 643 627 628 723
DZ110 010E 650 647
DZ180 0111 655 626 638
DZ185 0119 661 841
DZ190 0120 670 730
DZ210 0146 719 873
DZ215 014C 727 796
DZ220 0150 734 799
DZ230 0154 740 633
DZ232 0156 741 671
DZ235 0158 743 632 664
DZ240 015D 747 879
DZ250 016C 762 770
DZ280 016D 763 749 755 756 757 768
DZ300 0178 775 765
DZ330 017D 779 751
DZ340 018C 793 736
DZ350 0197 808 753 835 839
DZ380 01A4 823 820
DZ390 01A5 824 803
DZ400 01B6 846 810 837
DZ410 01CA 869 848
DZ900 0122 677 685 822
DZ901 0123 678 834
DZ902 0124 679 661 727 745 869 876
DZ904 0126 681 639 823 829 856
DZ905 0127 682 865
DZ906 0128 683 759 855
DZ907 0129 684 786
DZ908 012A 685 828
DZ909 012B 686 783
DZ910 012C 687 657 781 793 817
DZ911 012D 688 791
DZ912 012E 689 668 746 792 846 850 871 877
DZ913 012F 690 776
DZ914 0130 691 729
DZ915 0131 692 669
DZ916 0132 693 849
DZ920 0134 695 787
DZ925 0135 696 782
DZ930 0136 697 767
DZ935 0137 698 734
DZ940 0138 699 761
DZ945 0139 700 630 785 788 866
DZ950 013A 701 790
DZ955 013B 702 777
DZ960 013C 703 754
DZ965 013D 704 750
DZ970 013E 705 752
DZ975 013F 706 789 864
DZ980 0140 707 780
DZ985 0141 708 853
DZ990 0142 709 778 784 858
DZ995 0143 710 821
X2 00F2 715 670 776 777 778 780 781 782 783 784 785 786 787
788 789 790 791 792 793 794 817 821 822 823 824
828 829 830 834 846 849 850 853 855 856 858 860
864 865 866 868 869 871 876 877
Y 007F 1028 1091 1094 1095 1096 1098 1104 1105 1106 1112 1114 1116 1118
1123 1127