ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020
Source File: \pmonitor.asm
1 | * RLTV ADDR* SYMBOL* DESCRIPTION PMN00010
2 | * * * PMN00020
3 | * 0-3 * * RESERVED FOR EVEN BOUNDARIES PMN00030
4 | * 4-5 * #NAME * NAME OF PROGRAM/CORE LOAD PMN00040
5 | * 6 * #DBCT * BLOCK COUNT OF PROG/CORE LOAD PMN00050
6 | * 7 * #FCNT * *FILES SWITCH--ZERO MEANS NO PMN00060
7 | * * * FILES HAVE BEEN EQUATED PMN00070
8 | * 8 * #SYSC * SYS/NON-SYS CARTRIDGE INDR PMN00080
9 | * 9 * #JBSW * JOBT SWITCH-- NON-ZERO MEANS PMN00090
10 | * * * TEMPORARY MODE PMN00100
11 | * 10 * #CBSW * CLB-RETURN-TO-DUP SWITCH-- PMN00110
12 | * * * ZERO=CLB RETURN TO SUPV PMN00120
13 | * 11 * #LCNT * NO. OF LOCALS PMN00130
14 | * 12 * #MPSW * CORE MAP SWITCH--ZERO MEANS PMN00140
15 | * * * DO NOT PRINT A CORE MAP PMN00150
16 | * 13 * #MDF1 * NO. DUP CTRL RECDS (MODIF) PMN00160
17 | * 14 * #MDF2 * ADDR OF MODIF BUFFER PMN00170
18 | * 15 * #NCNT * NO. OF NOCALS PMN00180
19 | * 16 * #ENTY * RLTV ENTRY ADDR OF PROGRAM PMN00190
20 | * 17 * #RP67 * 1442-5 SW (0=1442-5 ON SYSTEM PMN00200
21 | * 18 * #TODR * 'TO' WORKING STG DRIVE CODE PMN00210
22 | * 19 * #FRDR * 'FROM' WORKING STG DRIVE CODE PMN00220
23 | * 20 * #FHOL * ADDR OF LARGEST HOLE IN FXA PMN00230
24 | * 21 * #FSZE * BLK CNT OF LARGEST HOLE IN FXA PMN00240
25 | * 22 * #UHOL * ADDR OF LAST HOLE IN UA 2-10 PMN00250
26 | * 23 * #USZE * BLK CNT OF LAST HOLE IN UA2-10 PMN00260
27 | * 24 * #DCSW * DUP CALL SW--NON-ZERO=DUP CALL PMN00270
28 | * 25 * #PIOD * PRINCIPAL I/O DEVICE INDICATOR PMN00280
29 | * 26 * #PPTR * PRINC. PRINT DEVICE INDICATOR PMN00290
30 | * 27 * #CIAD * RLTV ADDR IN @STRT OF CIL ADDR PMN00300
31 | * 28 * #ACIN * AVAILABLE CARTRIDGE INDICAT2-2 PMN00310
32 | * 29 * #GRPH * 2250 INDICATOR 2G2 PMN00320
33 | * 30 * #GCNT * NO. G2250 RECORDS 2G2 PMN00330
34 | * 31 * #LOSW * LOCAL-CANNOT-CALL-LOCAL SW 2-2 PMN00340
35 | * 32 * #X3SW * SPECIAL ILS SWITCH 2-2 PMN00350
36 | * 33 * #ECNT * NO. OF *EQUAT RCDS 2-4 PMN00360
37 | * 33-34 * * RESERVED FOR FUTURE USE 2-2 PMN00370
38 | * 35 * #ANDU * 1+BLOCK ADDR OF END OF USER PMN00380
39 | * * * AREA (ADJUSTED) LOGICAL DR 0 PMN00390
40 | * 36 * * 1+BLOCK ADDR OF END OF USER PMN00400
41 | * * * AREA (ADJUSTED) LOGICAL DR 1 PMN00410
42 | * 37 * * 1+BLOCK ADDR OF END OF USER PMN00420
43 | * * * AREA (ADJUSTED) LOGICAL DR 2 PMN00430
44 | * 38 * * 1+BLOCK ADDR OF END OF USER PMN00440
45 | * * * AREA (ADJUSTED) LOGICAL DR 3 PMN00450
46 | * 39 * * 1+BLOCK ADDR OF END OF USER PMN00460
47 | * * * AREA (ADJUSTED) LOGICAL DR 4 PMN00470
48 | * 40 * #BNDU * 1+BLOCK ADDR OF END OF USER PMN00480
49 | * * * AREA (BASE) LOGICAL DRIVE 0 PMN00490
50 | * 41 * * 1+BLOCK ADDR OF END OF USER PMN00500
51 | * * * AREA (BASE) LOGICAL DRIVE 1 PMN00510
52 | * 42 * * 1+BLOCK ADDR OF END OF USER PMN00520
53 | * * * AREA (BASE) LOGICAL DRIVE 2 PMN00530
54 | * 43 * * 1+BLOCK ADDR OF END OF USER PMN00540
55 | * * * AREA (BASE) LOGICAL DRIVE 3 PMN00550
56 | * 44 * * 1+BLOCK ADDR OF END OF USER PMN00560
57 | * * * AREA (BASE) LOGICAL DRIVE 4 PMN00570
58 | * 45 * #FPAD * FILE PROTECT ADDR, LOGICAL PMN00580
59 | * * * DRIVE 0 (BASE) PMN00590
60 | * 46 * * FILE PROTECT ADDR, LOGICAL PMN00600
61 | * * * DRIVE 1 (BASE) PMN00610
62 | * 47 * * FILE PROTECT ADDR, LOGICAL PMN00620
63 | * * * DRIVE 2 (BASE) PMN00630
64 | * 48 * * FILE PROTECT ADDR, LOGICAL PMN00640
65 | * * * DRIVE 3 (BASE) PMN00650
66 | * 49 * * FILE PROTECT ADDR,LOGICAL PMN00660
67 | * * * DRIVE 4 (BASE) PMN00670
68 | * 50 * #PCID * CARTRIDGE ID, PHYSICAL DRIVE 0 PMN00680
69 | * 51 * * CARTRIDGE ID, PHYSICAL DRIVE 1 PMN00690
70 | * 52 * * CARTRIDGE ID, PHYSICAL DRIVE 2 PMN00700
71 | * 53 * * CARTRIDGE ID, PHYSICAL DRIVE 3 PMN00710
72 | * 54 * * CARTRIDGE ID, PHYSICAL DRIVE 4 PMN00720
73 | * 55 * #CIDN * CARTRIDGE ID, LOGICAL DRIVE 0 PMN00730
74 | * 56 * * CARTRIDGE ID, LOGICAL DRIVE 1 PMN00740
75 | * 57 * * CARTRIDGE ID, LOGICAL DRIVE 2 PMN00750
76 | * 58 * * CARTRIDGE ID, LOGICAL DRIVE 3 PMN00760
77 | * 59 * * CARTRIDGE ID, LOGICAL DRIVE 4 PMN00770
78 | * 60 * #CIBA * SCTR ADDR OF CIB, LOGICAL DR 0 PMN00780
79 | * 61 * * SCTR ADDR OF CIB, LOGICAL DR 1 PMN00790
80 | * 62 * * SCTR ADDR OF CIB, LOGICAL DR 2 PMN00800
81 | * 63 * * SCTR ADDR OF CIB, LOGICAL DR 3 PMN00810
82 | * 64 * * SCTR ADDR OF CIB, LOGICAL DR 4 PMN00820
83 | * 65 * #SCRA * SCRA, LOGICAL DRIVE 0 PMN00830
84 | * 66 * * SCRA, LOGICAL DRIVE 1 PMN00840
85 | * 67 * * SCRA, LOGICAL DRIVE 2 PMN00850
86 | * 68 * * SCRA, LOGICAL DRIVE 3 PMN00860
87 | * 69 * * SCRA, LOGICAL DRIVE 4 PMN00870
88 | * 70 * #FMAT * FORMAT OF PROG IN WS, DRIVE 0 PMN00880
89 | * 71 * * FORMAT OF PROG IN WS, DRIVE 1 PMN00890
90 | * 72 * * FORMAT OF PROG IN WS, DRIVE 2 PMN00900
91 | * 73 * * FORMAT OF PROG IN WS, DRIVE 3 PMN00910
92 | * 74 * * FORMAT OF PROG IN WS, DRIVE 4 PMN00920
93 | * 75 * #FLET * FLET SCTR ADDR, LOGICAL DR 0 PMN00930
94 | * 76 * * FLET SCTR ADDR, LOGICAL DR 1 PMN00940
95 | * 77 * * FLET SCTR ADDR, LOGICAL DR 2 PMN00950
96 | * 78 * * FLET SCTR ADDR, LOGICAL DR 3 PMN00960
97 | * 79 * * FLET SCTR ADDR, LOGICAL DR 4 PMN00970
98 | * 80 * #ULET * LET SCTR ADDR, LOGICAL DR 0 PMN00980
99 | * 81 * * LET SCTR ADDR, LOGICAL DR 1 PMN00990
100 | * 82 * * LET SCTR ADDR, LOGICAL DR 2 PMN01000
101 | * 83 * * LET SCTR ADDR, LOGICAL DR 3 PMN01010
102 | * 84 * * LET SCTR ADDR, LOGICAL DR 4 PMN01020
103 | * 85 * #WSCT * BLK CNT OF PROG IN WS, DRIVE 0 PMN01030
104 | * 86 * * BLK CNT OF PROG IN WS, DRIVE 1 PMN01040
105 | * 87 * * BLK CNT OF PROG IN WS, DRIVE 2 PMN01050
106 | * 88 * * BLK CNT OF PROG IN WS, DRIVE 3 PMN01060
107 | * 89 * * BLK CNT OF PROG IN WS, DRIVE 4 PMN01070
108 | * 90 * #CSHN * SCTR CNT CUSHION,LOGICAL DR 0 PMN01080
109 | * 91 * * SCTR CNT CUSHION,LOGICAL DR 1 PMN01090
110 | * 92 * * SCTR CNT CUSHION,LOGICAL DR 2 PMN01100
111 | * 93 * * SCTR CNT CUSHION,LOGICAL DR 3 PMN01110
112 | * 94 * * SCTR CNT CUSHION,LOGICAL DR 4 PMN01120
113 | * 95-319 * * RESERVED FOR FUTURE USE PMN01130
RESIDENT MONITOR
115 | *************************************************** PMN01150
116 | * * PMN01160
117 | *STATUS-VERSION 2, MODIFICATION 10 * PMN01170
118 | * * PMN01180
119 | *FUNCTION/OPERATION- * PMN01190
120 | * THIS SECTION ALWAYS REMAINS IN CORE. IT * PMN01200
121 | * IS COMPRISED OF THE COMMUNICATIONS * PMN01210
122 | * AREA (COMMA), THE SKELETON SUPERVISOR, AND * PMN01220
123 | * A DISK I/O SUBROUTINE, NOMINALLY DISKZ. (THE * PMN01230
124 | * FIRST TWO OF THESE SECTIONS ARE INTERMIXED.) * PMN01240
125 | * COMMA CONTAINS THE SYSTEM PARAMETERS REQUIR- * PMN01250
126 | * ED TO FETCH A CORE LOAD IN CORE IMAGE FOR- * PMN01260
127 | * MAT. THE SKELETON SUPERVISOR PROVIDES IN- * PMN01270
128 | * STRUCTIONS FOR INITIATING A CALL EXIT, A * PMN01280
129 | * CALL LINK, A DUMP-TO-PRINTER OR A CALL TO THE * PMN01290
130 | * AUXILIARY SUPERVISOR. IN ADDITION, THE SKELE-* PMN01300
131 | * TON SUPERVISOR CONTAINS SEVERAL TRAPS FOR CER-* PMN01310
132 | * TAIN I/O FUNCTIONS/CONDITIONS. THE DISK I/O * PMN01320
133 | * SECTION CONSISTS OF A SUBROUTINE FOR READING * PMN01330
134 | * FROM OR WRITING ON A DISK CARTRIDGE ON A * PMN01340
135 | * GIVEN LOGICAL DISK DRIVE. * PMN01350
136 | * * PMN01360
137 | *ENTRY POINTS- * PMN01370
138 | * * $PRET-A TRAP FOR PREOPERATIVE I/O ERRORS. * PMN01380
139 | * THE CALLING SEQUENCE IS * PMN01390
140 | * BSI L $PRET * PMN01400
141 | * * $PSTX-A POSTOPERATIVE ERROR TRAP FOR I/O * PMN01410
142 | * DEVICES ON LEVEL X (X=1,2,3,OR 4). * PMN01420
143 | * THE CALLING SEQUENCE IS * PMN01430
144 | * BSI L $PSTX * PMN01440
145 | * * $STOP-THE PROGRAM STOP KEY TRAP. * PMN01450
146 | * * $EXIT-THE ENTRY POINT FOR THE EXIT/CALL * PMN01460
147 | * EXIT STATEMENT. THE CALLING SEQUENCE IS* PMN01470
148 | * LDX 0 $EXIT * PMN01480
149 | * * $LINK-THE ENTRY POINT FOR THE LINK/CALL * PMN01490
150 | * LINK STATEMENT. THE CALLING SEQUENCE IS* PMN01500
151 | * BSI L $LINK * PMN01510
152 | * * $DUMP-THE ENTRY POINT FOR THE DUMP/PDMP * PMN01520
153 | * STATEMENT. THE CALLING SEQUENCE IS * PMN01530
154 | * BSI L $DUMP * PMN01540
155 | * DC FORMAT * PMN01550
156 | * DC LIMIT1 * PMN01560
157 | * DC LIMIT2 * PMN01570
158 | * WHERE LIMIT1 AND LIMIT2 ARE THE LIMITS * PMN01580
159 | * BETWEEN WHICH THE DUMP IS TO OCCUR, AND* PMN01590
160 | * FORMAT IS A CODE INDICATING THE FORMAT * PMN01600
161 | * OF THE DUMP. IF FORMAT IS NEGATIVE, * PMN01610
162 | * THE AUXILIARY SUPERVISOR IS FETCHED * PMN01620
163 | * AND CONTROL PASSED TO IT. * PMN01630
164 | * * DZ000-ENTERED WHEN THE CALLER WISHES TO * PMN01640
165 | * PERFORM A DISK I/O OPERATION. THE * PMN01650
166 | * CALLING SEQUENCE VARIES WITH THE * PMN01660
167 | * VERSION OF THE DISK I/O SUBROUTINE. * PMN01670
168 | * * $I200/$I400-ENTERED WHEN THE OPERATION- * PMN01680
169 | * COMPLETE INTERRUPT OCCURS ON * PMN01690
170 | * LEVEL 2/4. * PMN01700
171 | * * PMN01710
172 | *INPUT-N/A * PMN01720
173 | * * PMN01730
174 | *OUTPUT-WORDS 6-4090 SAVED ON THE CIB ON A CALL * PMN01740
175 | * DUMP * PMN01750
176 | * * PMN01760
177 | *EXTERNAL REFERENCES-N/A * PMN01770
178 | * * PMN01780
179 | *EXITS- * PMN01790
180 | * * NORMAL * PMN01800
181 | * *THE EXITS FROM THE SUBROUTINES AT $PRET * PMN01810
182 | * $PST1, $PST2, $PST3, $PST4, AND $STOP * PMN01820
183 | * ARE BRANCH INSTRUCTIONS FOLLOWING A * PMN01830
184 | * WAIT INSTRUCTION. $STOP TURNS OFF IN- * PMN01840
185 | * TERRUPT LEVEL 5 AFTER THE START KEY IS * PMN01850
186 | * DEPRESSED. * PMN01860
187 | * *THE EXITS FROM $EXIT,$LINK,AND $DUMP ARE * PMN01870
188 | * TO THE CORE IMAGE LOADER, PHASE 1, * PMN01880
189 | * AFTER THAT PHASE HAS BEEN FETCHED. * PMN01890
190 | * *THE EXIT FROM DZ000 IS BACK TO THE * PMN01900
191 | * CALLER AFTER THE REQUESTED DISK OPERA- * PMN01910
192 | * TION HAS BEEN INITIATED. * PMN01920
193 | * *THE EXITS FROM $I200/$I400 ARE BACK TO * PMN01930
194 | * THE ADDRESSES FROM WHICH THE DISK OP- * PMN01940
195 | * ERATION COMPLETE INTERRUPT OCCURED * PMN01950
196 | * AFTER THE INTERRUPT HAS BEEN SERVICED * PMN01960
197 | * BY THE APPROPRIATE ISS. * PMN01970
198 | * * ERROR-N/A * PMN01980
199 | * * PMN01990
200 | *TABLES/WORK AREAS- * PMN02000
201 | * * $ACDE * PMN02010
202 | * * $CH12 * PMN02020
203 | * * $CILA * PMN02030
204 | * * $CLSW * PMN02040
205 | * * $COMN * PMN02050
206 | * * $CORE * PMN02060
207 | * * $CTSW * PMN02070
208 | * * $CXR1 * PMN02080
209 | * * $CYLN * PMN02090
210 | * * $DADR * PMN02100
211 | * * $DBSY * PMN02110
212 | * * $DCYL * PMN02120
213 | * * $DMPF * PMN02130
214 | * * $DREQ * PMN02140
215 | * * $FPAD * PMN02150
216 | * * $GCOM 2G2 * PMN02160
217 | * * $GRIN 2G2 * PMN02170
218 | * * $HASH * PMN02180
219 | * * $IBT2 * PMN02190
220 | * * $IBT4 * PMN02200
221 | * * $IBSY * PMN02210
222 | * * $IOCT * PMN02220
223 | * * $KCSW * PMN02230
224 | * * $LAST * PMN02240
225 | * * $LNXQ 2-9 * PMN02250
226 | * * $NDUP * PMN02260
227 | * * $NXEQ * PMN02270
228 | * * $PBSY * PMN02280
229 | * * $PGCT * PMN02290
230 | * * $PHSE * PMN02300
231 | * * $RMSW * PMN02310
232 | * * $SCAT 2-4 * PMN02320
233 | * * $SNLT * PMN02330
234 | * * $UFIO * PMN02340
235 | * * $ULET * PMN02350
236 | * * $WRD1 * PMN02360
237 | * * $WSDR * PMN02370
238 | * * $XR3X 2-2 * PMN02380
239 | * * PMN02390
240 | *ATTRIBUTES-REUSABLE * PMN02400
241 | * * PMN02410
242 | *NOTES- * PMN02420
243 | * THERE ARE WAIT INSTRUCTIONS AT $PRET+1, * PMN02430
244 | * $STOP+1, AND $PSTX+1. DEPRESSING THE START * PMN02440
245 | * KEY WILL RETURN CONTROL TO THE CALLER IN ALL * PMN02450
246 | * CASES. * PMN02460
247 | *************************************************** PMN02470
RESIDENT MONITOR
249 | * PROVIDE PARAMETERS FOR SYSTEM LOADER PMN02490
250 | * PMN02500
251 | ABS PMN02510
0004 252 | ORG 4 PMN02520
0004 0FFA 253 | DC 4095-* WD CNT FOR WRITING CORE ON CIB PMN02530
0005 0000 254 | $CIBA DC *-* SCTR ADDR OF THE CIB PMN02540
0006 0000 255 | $CH12 DC *-* ADDR OF CHANNEL 12 INDICATOR PMN02550
0007 0000 256 | $COMN DC *-* LENGTH OF COMMON (IN WORDS) PMN02560
257 | * PMN02570
258 | * ULTIMATE RESIDENCE OF THE INTERRUPT TV PMN02580
259 | * PMN02590
0008 0000 260 | $LEV0 DC *-* LEVEL 0 BRANCH ADDRESS PMN02600
0009 0000 261 | $LEV1 DC *-* LEVEL 1 BRANCH ADDRESS PMN02610
000A 00B3 262 | $LEV2 DC $I200 LEVEL 2 BRANCH ADDR PMN02620
000B 0000 263 | $LEV3 DC *-* LEVEL 3 BRANCH ADDRESS PMN02630
000C 00C4 264 | $LEV4 DC $I400 LEVEL 4 BRANCH ADDR PMN02640
000D 0091 265 | $LEV5 DC $STOP LEVEL 5 BRANCH ADDR PMN02650
266 | * PMN02660
267 | * PMN02670
000E 0000 268 | $CORE DC *-* SIZE OF CORE, E.G., /1000=4K PMN02680
000F 0000 269 | $CTSW DC *-* CONTROL RECORD TRAP SWITCH PMN02690
0010 0000 270 | $DADR DC *-* SCTR ADDR OF PROG TO BE LOADED PMN02700
0011 0000 271 | $SCAT DC *-* NON ZERO=SCA INTRPT PNDNG 2-4 PMN02710
0012 0000 272 | $DREQ DC *-* IND. FOR REQUESTED VERSION DKI/O PMN02720
0013 0000 273 | $IBSY DC *-* NON-ZERO IF CD/PAP TP DEV. BUSY PMN02730
0014 274 | $HASH BSS E 12 WORK AREA PMN02740
275 | * PMN02750
276 | * PMN02760
0020 277 | $SCAN BSS 8 1132 SCAN AREA 32 PMN02770
278 | * PMN02780
279 | * PMN02790
280 | * PMN02800
281 | * TRAP FOR PREOPERATIVE I/O ERRORS PMN02810
282 | * PMN02820
0028 0000 283 | $PRET DC *-* ENTRY POINT PMN02830
0029 3000 284 | WAIT WAIT TIL START KEY PUSHED PMN02840
002A 4C80 0028 285 | BSC I $PRET RETURN TO CALLER PMN02850
286 | * PMN02860
287 | * PMN02870
002C 0000 288 | $IREQ DC *-* ADDR OF INT REQUEST SUBROUTINE PMN02880
002D 0000 289 | $ULET DC *-* ADDR OF LET, LOGICAL DR 0 PMN02890
002E 0000 290 | DC *-* ADDR OF LET, LOGICAL DR 1 PMN02900
002F 0000 291 | DC *-* ADDR OF LET, LOGICAL DR 2 PMN02910
0030 0000 292 | DC *-* ADDR OF LET, LOGICAL DR 3 PMN02920
0031 0000 293 | DC *-* ADDR OF LET, LOGICAL DR 4 PMN02930
0032 0000 294 | $IOCT DC *-* ZERO IF NO I/O IN PROGRESS 50 PMN02940
0033 0000 295 | $LAST DC *-* NON-ZERO WHEN LAST CARD SENSED PMN02950
0034 0000 296 | $NDUP DC *-* DO NOT DUP IF NON-ZERO PMN02960
0035 0000 297 | $NXEQ DC *-* DO NOT EXECUTE IF NON-ZERO PMN02970
0036 0000 298 | $PBSY DC *-* NON-ZERO WHEN PRINTER BUSY PMN02980
0037 0000 299 | $PGCT DC *-* PAGE NO. FOR HEADINGS PMN02990
300 | * PMN03000
301 | * CALL EXIT ENTRY POINT TO SKELETON SUPERVISOR PMN03010
302 | * PMN03020
0038 7019 303 | $EXIT MDX $S000 BR TO FETCH CIL, PHASE 1 56 PMN03030
304 | * PMN03040
305 | *** CALL LINK ENTRY POINT PMN03050
306 | * PMN03060
0039 0000 307 | $LINK DC *-* ENTRY POINT 57 PMN03070
003A 1810 308 | SRA 16 PMN03080
003B 7017 309 | MDX $S100 BR TO FETCH CIL, PHASE 1 PMN03090
003C 310 | BSS E 0 PMN03100
003C 0001 311 | $S900 DC 1 DISK PARAMETERS FOR SAVING CORE PMN03110
312 | *$S900 ALSO USED AS CONSTANT 1 BY CIL PH2 2-10 PMN03111
003D 0004 313 | DC $CIBA-1 *IN CONNECTION WITH DUMP PMN03120
003E FFFF 314 | $S910 DC -1 CALL EXIT INDICATOR PMN03130
315 | *$S910 ALSO USED AS CONSTANT-1 BY CIL PH2 2-10 PMN03131
316 | * PMN03140
317 | *** SAVE 1ST 4K OF CORE ON THE CIB PMN03150
318 | * PMN03160
003F 0000 319 | $DUMP DC *-* ENTRY POINT 63 PMN03170
0040 D8D9 320 | STD $ACEX SAVE ACCUMULATOR, EXTENSION PMN03180
0041 4023 321 | BSI $S250 CHK PNDNG INTRPT 2-4 PMN03190
0042 282A 322 | STS $SSTS SAVE STATUS 2-6 PMN03200
0043 69D3 323 | STX 1 $CXR1 SAVE XR1 PMN03210
0044 C480 003F 324 | LD I $DUMP PMN03220
0046 D0D2 325 | STO $DMPF SAVE DUMP FORMAT CODE PMN03230
0047 C8F4 326 | LDD $S900 PMN03240
0048 4400 00F2 327 | BSI L DZ000 SAVE WDS 6-4095 ON CIB PMN03250
004A C0F1 328 | LD $S900 PMN03260
004B 7007 329 | MDX $S100 BR TO FETCH CIL, PHASE 1 PMN03270
330 | * 2-6 PMN03280
004C 331 | BSS 6 PATCH AREA 2-7 PMN03290
RESIDENT MONITOR
333 | * PMN03310
334 | *** FETCH CORE IMAGE LOADER, PHASE 1 PMN03320
335 | * PMN03330
0052 C0EB 336 | $S000 LD $S910 PMN03340
0053 D0C2 337 | $S100 STO $RMSW SAVE EXIT-LINK-DUMP SWITCH PMN03350
0054 6580 0039 338 | LDX I1 $LINK LINK ADDR TO XR1 PMN03360
0056 C101 339 | LD 1 1 FETCH 2ND WD OF LINK NAME PMN03370
0057 18D0 340 | RTE 16 PMN03380
0058 C100 341 | LD 1 0 FETCH 1ST WD OF LINK NAME PMN03390
342 | * $S150+1 CONTAINS ADDR LAST WD OF DISK I/O MINUS 3 PMN03400
0059 6500 0000 343 | $S150 LDX L1 *-* ADDR END OF DKI/O-1 TO XR1 PMN03410
005B D8B8 344 | STD $LKNM SAVE LINK NAME PMN03420
005C 4008 345 | BSI $S250 CHK ANY PNDNG INTRPT 2-4 PMN03430
005D C0FC 346 | LD $CILA PMN03440
005E 1890 347 | $S200 SRT 16 PMN03450
005F 4400 00F2 348 | BSI L DZ000 FETCH CI LOADER, PHASE 1 PMN03460
0061 4003 349 | BSI $S250 CHK DISK OP FINISHED 2-4 PMN03470
0062 4102 350 | BSI 1 2 BR TO CI LOADER, PHASE 1 PMN03480
351 | * PMN03490
0063 0000 352 | $GCOM DC *-* GRAPHIC SUBR PACKAGE INDR 2G2 PMN03500
0064 0000 353 | $GRIN DC *-* GRAPHIC INITLZN PROGRAM INDR 2G2 PMN03510
354 | * PMN03520
355 | *** SUBR TO CHECK IF ANY INTRPT IS PENDING PMN03530
356 | * PMN03540
0065 0000 357 | $S250 DC *-* ENTRY POINT PMN03550
0066 C0CB 358 | $S300 LD $IOCT IS THERE INTRPT PNDNG PMN03560
0067 E8A9 359 | OR $SCAT *OR SCA INTRPT PNDNG PMN03570
0068 4C20 0066 360 | BSC L $S300,Z *THEN BR,IF ALL INTRPT PMN03580
006A 0803 361 | XIO $I499 RESET 2250 2-7 PMN03590
006B 4C80 0065 362 | BSC I $S250 *IS SERVICED-RETURN PMN03600
363 | * 2-6 PMN03610
006D 2000 364 | $SSTS LDS *-* STATUS SAVED FOR DUMP 2-7 PMN03620
006E 0000 365 | $I499 DC 0 IOCC FOR RESET 2-7 PMN03630
006F CC80 366 | DC /CC80 *OF 2250 2-7 PMN03640
0070 0000 367 | $LNXQ DC *-* LINK/XEQ SW, -1 LINK,+1 XEQ 2-9 PMN03650
368 | * PMN03660
0071 0000 369 | $FLSH DC *-* FLUSH-TO-NEXT-JOB SWITCH 1=FLUSH PMN03670
0072 370 | BSS E 0 PMN03680
0072 0000 371 | $CWCT DC *-* WORD COUNT AND SECTOR ADDRESS PMN03690
0073 0000 372 | DC *-* *FOR SAVING/RESTORING COMMON PMN03700
0074 0000 373 | $CCAD DC *-* ADDR FOR SAVING/RESTORING COMMON PMN03710
0075 0000 374 | $LSAD DC *-* SCTR ADDR OF 1ST LOCAL/SOCAL PMN03720
0076 0000 375 | $DZ1N DC *-* DISKZ/1/N INDICATOR (-1,0,+1) PMN03730
0077 0000 376 | $DCDE DC *-* LOGICAL DRIVE CODE FOR PROGRAM PMN03740
0078 0000 377 | $PHSE DC *-* NO. OF PHASE NOW IN CORE PMN03750
0079 0000 378 | $UFIO DC *-* UNFORMATTED I/O RECORD NO. PMN03760
007A 0000 379 | $WSDR DC *-* WORKING STORAGE DRIVE CODE PMN03770
007B 0000 380 | $WRD1 DC *-* LOADING ADDR OF THE CORE LOAD PMN03780
007C 0000 381 | $KCSW DC *-* 1 IF KB,CP BOTH UTILIZED PMN03790
007D 0000 382 | $UFDR DC *-* UNFORMATTED I/O DRIVE CODE PMN03800
007E 0000 383 | $CPTR DC *-* CHANNEL 12 INDICATOR FOR CP PMN03810
007F 0000 384 | $1132 DC *-* CHANNEL 12 INDICATOR FOR 1132 PMN03820
0080 0000 385 | $1403 DC *-* CHANNEL 12 INDICATOR FOR 1403 PMN03830
RESIDENT MONITOR
387 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 1 PMN03850
388 | * PMN03860
0081 0000 389 | $PST1 DC *-* ENTRY POINT PMN03870
0082 3000 390 | WAIT PMN03880
0083 4C80 0081 391 | BSC I $PST1 RETURN TO DEVICE SUBROUTINE PMN03890
392 | * PMN03900
393 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 2 PMN03910
394 | * PMN03920
0085 0000 395 | $PST2 DC *-* ENTRY POINT PMN03930
0086 3000 396 | WAIT PMN03940
0087 4C80 0085 397 | BSC I $PST2 RETURN TO DEVICE SUBROUTINE PMN03950
398 | * PMN03960
399 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 3 PMN03970
400 | * PMN03980
0089 0000 401 | $PST3 DC *-* ENTRY POINT PMN03990
008A 3000 402 | WAIT PMN04000
008B 4C80 0089 403 | BSC I $PST3 RETURN TO DEVICE SUBROUTINE PMN04010
404 | * PMN04020
405 | * TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 4 PMN04030
406 | * PMN04040
008D 0000 407 | $PST4 DC *-* ENTRY POINT PMN04050
008E 3000 408 | WAIT PMN04060
008F 4C80 008D 409 | BSC I $PST4 RETURN TO DEVICE SUBROUTINE PMN04070
410 | * PMN04080
411 | * PMN04090
412 | * PROGRAM STOP KEY TRAP PMN04100
413 | * PMN04110
0091 0000 414 | $STOP DC *-* ENTRY POINT PMN04120
0092 3000 415 | WAIT WAIT TIL START KEY PUSHED PMN04130
0093 4CC0 0091 416 | BOSC I $STOP RETURN TO CALLER PMN04140
RESIDENT MONITOR
418 | * PMN04160
419 | * PARAMETERS USED BY THE DISK I/O SUBROUTINES. THE PMN04170
420 | * LOGICAL DRIVE CODE IS FOUND IN BITS 1-3 FOR ALL PMN04180
421 | * BUT THE AREA CODE. BIT 0 WILL ALWAYS BE ZERO. PMN04190
422 | * PMN04200
423 | * PMN04210
424 | *** DISK1 AND DISKN WILL NOT WRITE BELOW THE PMN04220
425 | *** FOLLOWING SCTR ADDRESSES (EXCEPT WRITE IMMED). PMN04230
426 | * PMN04240
0095 0000 427 | $FPAD DC *-* FILE PROTECT ADDR, LOGICAL DR 0 PMN04250
0096 0000 428 | DC *-* FILE PROTECT ADDR, LOGICAL DR 1 PMN04260
0097 0000 429 | DC *-* FILE PROTECT ADDR, LOGICAL DR 2 PMN04270
0098 0000 430 | DC *-* FILE PROTECT ADDR, LOGICAL DR 3 PMN04280
0099 0000 431 | DC *-* FILE PROTECT ADDR, LOGICAL DR 4 PMN04290
432 | * PMN04300
433 | *** THE ARM POSITION IS UPDATED WHENEVER A SEEK PMN04310
434 | *** OCCURS. PMN04320
435 | * PMN04330
009A 0000 436 | $CYLN DC 0 ARM POSITION FOR LOGICAL DRIVE 0 PMN04340
009B 0000 437 | DC 0 ARM POSITION FOR LOGICAL DRIVE 1 PMN04350
009C 0000 438 | DC 0 ARM POSITION FOR LOGICAL DRIVE 2 PMN04360
009D 0000 439 | DC 0 ARM POSITION FOR LOGICAL DRIVE 3 PMN04370
009E 0000 440 | DC 0 ARM POSITION FOR LOGICAL DRIVE 4 PMN04380
441 | * PMN04390
442 | *** BELOW ARE THE DISK AREA CODES. A ZERO PMN04400
443 | *** INDICATES THE CORRESPONDING DRIVE IS NOT PMN04410
444 | *** ON THE SYSTEM PMN04420
445 | * PMN04430
009F 0000 446 | $ACDE DC *-* AREA CODE FOR LOGICAL DRIVE 0 PMN04440
00A0 0000 447 | DC *-* AREA CODE FOR LOGICAL DRIVE 1 PMN04450
00A1 0000 448 | DC *-* AREA CODE FOR LOGICAL DRIVE 2 PMN04460
00A2 0000 449 | DC *-* AREA CODE FOR LOGICAL DRIVE 3 PMN04470
00A3 0000 450 | DC *-* AREA CODE FOR LOGICAL DRIVE 4 PMN04480
451 | * PMN04490
452 | *** THE ADR OF THE CYLINDER IN WHICH A DEFECT OC- PMN04500
453 | *** CURS, IF ANY, IS STORED IN THE 1ST, 2ND, OR 3RD PMN04510
454 | *** WORD BELOW, DEPENDING ON WHETHER IT IS THE 1ST, PMN04520
455 | *** 2ND, OR 3RD DEFECT ON THE CARTRIDGE. PMN04530
456 | * PMN04540
00A4 0000 457 | $DCYL DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04550
00A5 0000 458 | DC *-* *FOR LOGICAL DRIVE 0 2 PMN04560
00A6 0000 459 | DC *-* 3 PMN04570
00A7 0000 460 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04580
00A8 0000 461 | DC *-* *FOR LOGICAL DRIVE 1 2 PMN04590
00A9 0000 462 | DC *-* 3 PMN04600
00AA 0000 463 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04610
00AB 0000 464 | DC *-* *FOR LOGICAL DRIVE 2 2 PMN04620
00AC 0000 465 | DC *-* 3 PMN04630
00AD 0000 466 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04640
00AE 0000 467 | DC *-* *FOR LOGICAL DRIVE 3 2 PMN04650
00AF 0000 468 | DC *-* 3 PMN04660
00B0 0000 469 | DC *-* DEFECTIVE CYLINDER ADDRESSES 1 PMN04670
00B1 0000 470 | DC *-* *FOR LOGICAL DRIVE 4 2 PMN04680
00B2 0000 471 | DC *-* 3 PMN04690
RESIDENT MONITOR
473 | * PMN04710
474 | * ILS02--THIS SUBROUTINE SAVES XR1, XR2, STATUS, PMN04720
475 | * AND THE ACCUMULATOR AND ITS EXTENSION. PMN04730
476 | * THE ADDRESS OF THE INTERRUPT SERVICE ROU- PMN04740
477 | * TINE IS STORED IN $I205 BY PHASE 2 OF PMN04750
478 | * THE CORE IMAGE LOADER. WORD 10 ALWAYS PMN04760
479 | * CONTAINS THE ADDRESS OF $I200. PMN04770
480 | * PMN04780
481 | * PMN04790
482 | * PMN04800
00B3 0000 483 | $I200 DC *-* ENTRY PT (LEVEL 2 INTRUPT) PMN04810
00B4 6906 484 | STX 1 $I210+1 SAVE XR1 PMN04820
00B5 6A07 485 | STX 2 $I210+3 SAVE XR2 PMN04830
00B6 2807 486 | STS $I210+4 STORE STATUS PMN04840
00B7 D80A 487 | STD $I290 SAVE ACCUMULATOR,EXTENSION PMN04850
488 | * $I205+1 CONTAINS ADDR INTERRUPT ENTRY PT TO DKI/O PMN04860
00B8 4400 0000 489 | $I205 BSI L *-* BR TO SERVICE THE INTERRUPT PMN04870
00BA 6500 0000 490 | $I210 LDX L1 *-* RESTORE XR1 PMN04880
00BC 6600 0000 491 | LDX L2 *-* RESTORE XR2 PMN04890
00BE 2000 492 | LDS 0 RESTORE STATUS PMN04900
00BF C802 493 | LDD $I290 RESTORE ACCUMULATOR,EXT PMN04910
00C0 4CC0 00B3 494 | BOSC I $I200 RETURN FROM INTERRUPT PMN04920
00C2 495 | $I290 BSS E 0 PMN04930
00C2 0000 496 | DC *-* CONTENTS OF ACCUMULATOR AND PMN04940
00C3 0000 497 | DC *-* *EXTENTION PMN04950
RESIDENT MONITOR
499 | * PMN04970
500 | * ILS04--THIS SUBROUTINE SAVES XR1, XR2, STATUS, PMN04980
501 | * AND THE ACCUMULATOR AND ITS EXTENSION. PMN04990
502 | * IF THE INTERRUPT IS FOR A KEYBOARD REQ- * PMN05000
503 | * UEST,AND IF A MONITOR PROGRAM IS IN CON- * PMN05010
504 | * TROL, CONTROL IS PASSED TO DUMP. OTHER- * PMN05020
505 | * WISE, CONTROL IS PASSED TO THE KEYBOARD/ * PMN05030
506 | * CONSOLE PRINTER SUBROUTINE. WORD 12 AL- * PMN05040
507 | * WAYS CONTAINS THE ADDRESS OF $I400. * PMN05050
508 | * PMN05060
509 | * THE TABLE BELOW CONTAINS THE ADDRESSES OF THE PMN05070
510 | * INTERRUPT SERVICE ROUTINES FOR ALL THE DEVICES PMN05080
511 | * ON LEVEL 4. PMN05090
512 | * PMN05100
513 | * PMN05110
514 | * PMN05120
00C4 0000 515 | $I400 DC *-* ENTRY POINT PMN05130
00C5 D818 516 | STD $I490 SAVE ACCUMULATOR, EXTENSION PMN05140
00C6 280E 517 | STS $I410 SAVE STATUS PMN05150
00C7 690F 518 | STX 1 $I410+2 SAVE XR1 PMN05160
00C8 6A10 519 | STX 2 $I410+4 SAVE XR2 PMN05170
00C9 0816 520 | XIO $I492 SENSE DSW PMN05180
00CA 1002 521 | SLA 2 IS THIS INTERRUPT REQUEST PMN05190
00CB 4C10 00D0 522 | BSC L $I403,- BR IF NOT INTERRUPT REQUEST PMN05200
00CD 4480 002C 523 | BSI I $IREQ BR IF INTERRUPT REQUEST PMN05210
00CF FFFE 524 | DC -2 ERROR CODE PMN05220
00D0 6109 525 | $I403 LDX 1 9 NO. DEVICES ON LEVEL TO XR1 PMN05230
00D1 0810 526 | XIO $I494 SENSE ILSW PMN05240
00D2 1140 527 | SLCA 1 FIND CAUSE OF INTERRUPT PMN05250
528 | * $I405+1 CONTAINS ADDR OF LEVEL 4 IBT MINUS 1 PMN05260
00D3 4580 0000 529 | $I405 BSI I1 *-* BR TO SERVICE THE INTERRUPT PMN05270
00D5 2000 530 | $I410 LDS 0 RESTORE STATUS PMN05280
00D6 6500 0000 531 | LDX L1 *-* RESTORE XR1 PMN05290
00D8 6600 0000 532 | LDX L2 *-* RESTORE XR2 PMN05300
00DA C803 533 | LDD $I490 RESTORE ACCUMULATOR, EXT. PMN05310
00DB 4CC0 00C4 534 | BOSC I $I400 RETURN PMN05320
535 | * PMN05330
536 | * CONSTANTS AND WORK AREAS PMN05340
537 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES PMN05350
538 | * PMN05360
00DD 0000 539 | $DDSW DC *-* DSW FOR THE DISK PMN05370
00DE 540 | $I490 BSS E 2 CONTENTS OF ACCUMULATOR, EXT. PMN05380
00E0 0000 541 | $I492 DC *-* PMN05390
00E0 542 | $SYSC EQU *-1 VERSION AND MOD NO. PMN05400
00E1 0F00 543 | DC /0F00 IOCC FOR SENSE IOCC FOR KB/CP PMN05410
00E2 544 | $I494 BSS 1 PATCH AREA PMN05420
00E3 0300 545 | DC /0300 IOCC FOR SENSING ILSW04 PMN05430
RESIDENT MONITOR
547 | * 2-2 PMN05450
548 | * 2-2 PMN05460
00E4 0000 549 | $I496 DC *-* XR3 SETTING DURING XEQ 2-2 PMN05470
00E5 0F01 550 | DC /0F01 SENSE KEY BOARD W RESET2-2 PMN05480
551 | * 2-2 PMN05490
00E6 0000 552 | $I420 DC *-* ENTRY POINT FLUSH JOB 2-2 PMN05500
00E7 08FC 553 | XIO $I496 SENSE KEY BOARD W RESET2-2 PMN05510
00E8 4C40 00EA 554 | BOSC L $I425 TURN OF INTERRUPT 2-2 PMN05520
00EA 4400 003F 555 | $I425 BSI L $DUMP BR TO $DUMP 2-7 PMN05530
00EC FFFE 556 | DC -2 CALLING AUX SUP 2-7 PMN05540
557 | * 2-2 PMN05550
00ED 558 | BSS 1 PATCH AREA 2-7 PMN05560
00EE 0000 559 | $DBSY DC *-* NON-ZERO WHEN DISK I/O BUSY PMN05570
DISKZ
561 | *************************************************** PMN05590
562 | * * PMN05600
563 | *STATUS - VERSION 2, MODIFICATION 11 * PMN05610
564 | * * PMN05620
565 | *PROGRAM NAME- * PMN05630
566 | * *FULL NAME-FORTRAN/SYSTEM DISK I/O SUBROUTINE * PMN05640
567 | * *CALLING SEQUENCE- * PMN05650
568 | * LDD PARAM * PMN05660
569 | * BSI L DZ000 * PMN05670
570 | * WHERE PARAM IS THE LABEL OF A DOUBLE-WORD * PMN05680
571 | * CELL CONTAINING THE FUNCTION CODE AND THE * PMN05690
572 | * ADDR OF THE I/O BUFFER,I.E., ADDR OF WD CNT. * PMN05700
573 | * SEE 'CAPABILITIES' FOR DISCUSSION OF PARAM- * PMN05710
574 | * ETERS. * PMN05720
575 | * PMN05730
576 | *PURPOSE- * PMN05740
577 | * TO PROVIDE A SUBROUTINE TO PERFORM DISK OPERA-* PMN05750
578 | * TIONS. THIS SUBROUTINE IS INTENDED FOR USE BY * PMN05760
579 | * MONITOR PROGRAMS AND USER PROGRAMS WRITTEN IN * PMN05770
580 | * FORTRAN. THUS,IT IS INTENDED FOR USE IN AN * PMN05780
581 | * ERROR-FREE ENVIRONMENT. * PMN05790
582 | * * PMN05800
583 | *METHOD- * PMN05810
584 | * DISKZ REQUIRES A BUFFER,THE LENGTH OF WHICH IS* PMN05820
585 | * 2 GREATER THAN THE NO. WORDS TO BE READ/WRIT- * PMN05830
586 | * TEN. * PMN05840
587 | * * PMN05850
588 | *CAPABILITIES AND LIMITATIONS- * PMN05860
589 | * THE WD CNT,AS WELL AS DZ000,MUST BE ON AN EVEN* PMN05870
590 | * BOUNDARY,MUST BE IN THE RANGE 0-32767. THE * PMN05880
591 | * DRIVE CODE MUST BE IN BITS 1-3 OF THE SECTOR * PMN05890
592 | * ADDR,WHICH FOLLOWS THE WD CNT. THE FUNCTION * PMN05900
593 | * INDICATOR MUST BE XX00 FOR A READ OR XX01 FOR * PMN05910
594 | * A WRITE,WHERE 'XX' MEANS ANY 2 HEXADECIMAL * PMN05920
595 | * CHARACTERS. A WD CNT OF ZERO INDICATES A SEEK.* PMN05930
596 | * (READ OR WRITE MAY BE INDICATED.) AUTOMATIC * PMN05940
597 | * SEEKING IS PROVIDED AS A PART OF READ/WRITE. * PMN05950
598 | * A WRITE IS ALWAYS WITH A READ-BACK-CHECK. * PMN05960
599 | * DISKZ MAKES NO PREOPERATIVE PARAMETER CHECKS. * PMN05970
600 | * * PMN05980
601 | *SPECIAL FEATURES- * PMN05990
602 | * DISKZ PROVIDES ONLY THOSE FUNCTIONS MENTIONED * PMN06000
603 | * ABOVE. DISK1 AND DISKN OFFER THIS BASIC SET OF* PMN06010
604 | * FUNCTIONS PLUS OTHERS. * PMN06020
605 | * * PMN06030
606 | *************************************************** PMN06040
DISKZ
608 | * PROVIDE PARAMETERS FOR SYSTEM LOADER PMN06060
609 | * PMN06070
00F0 610 | BSS E 0 PMN06080
00F0 00EF 611 | DC $ZEND-* DISKZ WORD COUNT PMN06090
00F1 FF6A 612 | DC -@DZID PHASE ID PMN06100
00F2 00E8 613 | DC $ZEND-6-*+1 ADDR OF SLET EXTRACT PMN06110
00F3 0001 614 | DC 1 NO. ENTRIES IN SLET EXTRACT PMN06120
00F2 615 | ORG *-2 PMN06130
DISKZ
00F2 0000 617 | DZ000 DC *-* ENTRY POINT PMN06150
00F3 7400 00EE 618 | MDX L $DBSY,0 LOOP UNTIL OPERATION IN PMN06160
00F5 70FD 619 | MDX *-3 *PROGRESS IS COMPLETE PMN06170
00F6 7002 620 | MDX DZ020 BR AROUND INT ENTRY POINT PMN06180
621 | * PMN06190
622 | * INTERRUPT ENTRY POINT PMN06200
623 | * PMN06210
00F7 0000 624 | DZ010 DC *-* INTERRUPT ADDRESS PMN06220
00F8 7018 625 | MDX DZ180 BR TO SERVICE INTERRUPT PMN06230
00F9 690B 626 | DZ020 STX 1 DZ100+1 SAVE XR1 PMN06240
00FA 6A0C 627 | STX 2 DZ100+3 SAVE XR2 PMN06250
00FB 1008 628 | SLA 8 SHIFT INDICATOR 8 BITS PMN06260
00FC D03C 629 | STO DZ945 SAVE FUNCTION INDICATOR PMN06270
00FD 18D0 630 | RTE 16 PMN06280
00FE D05A 631 | STO DZ235+1 SAVE ADDR OF THE I/O AREA PMN06290
00FF 7054 632 | MDX DZ230 BR TO CONTINUE PMN06300
0100 4C00 0000 633 | DZ060 BSC L *-* BR TO SERVICE THE INTERRUPT PMN06310
634 | * PMN06320
635 | * START ALL DISK OPERATIONS PMN06330
636 | * PMN06340
0102 690F 637 | DZ070 STX 1 DZ180+1 SAVE ADDR OF THE I/O AREA PMN06350
0103 0822 638 | XIO DZ904 START AN OPERATION PMN06360
639 | * PMN06370
640 | * RETURN TO USER PMN06380
641 | * PMN06390
0104 6500 0000 642 | DZ100 LDX L1 *-* RESTORE XR1 PMN06400
0106 6600 0000 643 | LDX L2 *-* RESTORE XR2 PMN06410
0108 C0EE 644 | LD DZ010 INTERRUPT ENTRY 2-6 PMN06420
0109 4C98 00F2 645 | BSC I DZ000,+- NO,MONITOR ENTRY 2-6 PMN06430
010B D003 646 | STO DZ110+1 YES,INT ENTRY 2-6 PMN06440
010C 1810 647 | SRA 16 RESET 2-6 PMN06450
010D D0E9 648 | STO DZ010 *INT ENTRY 2-6 PMN06460
010E 4C00 0000 649 | DZ110 BSC L *-* 2-6 PMN06470
0110 1000 650 | NOP DUMMY OP 2-6 PMN06480
651 | * PMN06490
652 | * SERVICE ALL INTERRUPTS PMN06500
653 | * PMN06510
0111 6500 0000 654 | DZ180 LDX L1 *-* ADDR OF I/O AREA TO XR1 PMN06520
0113 6600 00F2 655 | LDX L2 DZ000 ADDR OF DZ000 TO XR2 PMN06530
0115 0816 656 | XIO DZ910 SENSE THE DSW PMN06540
0116 D0C6 657 | STO $DDSW SAVE THE DSW PMN06550
0117 4810 658 | BSC - SKIP IF ERROR BIT SET 2-6 PMN06560
0118 70E7 659 | MDX DZ060 BRANCH IF ERROR BIT NOT SET PMN06570
0119 C80A 660 | DZ185 LDD DZ902 RESTORE WORD COUNT PMN06580
011A D900 661 | STD 1 0 *AND SECTOR ADDRESS PMN06590
011B 74FF 00EE 662 | MDX L $DBSY,-1 SKIP IF 16 RETRIES DONE PMN06600
011D 703A 663 | MDX DZ235 BRANCH IF LESS THAN 16 PMN06610
664 | * PMN06620
665 | * TRAP OUT TO POSTOPERATIVE TRAP PMN06630
666 | * PMN06640
011E C80F 667 | LDD DZ912 1+SCTR ADDR TO EXTENSION PMN06650
011F C011 668 | LD DZ915 PMN06660
0120 4293 669 | DZ190 BSI 2 $PST2-X2 BR TO POSTOPERATIVE ER TRAP PMN06670
0121 7034 670 | MDX DZ232 RETRY OPERATION 2-6 PMN06680
671 | * PMN06690
672 | * CONSTANTS AND WORK AREAS PMN06700
673 | * PMN06710
0122 674 | BSS E 0 PMN06720
675 | * EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES PMN06730
0122 0001 676 | DZ900 DC 1 CONSTANT,READ-AFTER-SEEK WD CNT PMN06740
0123 0000 677 | DZ901 DC 0 CURRENT ARM POSITION PMN06750
0124 0000 678 | DZ902 DC *-* LAST TWO WORDS OF SECTOR PMN06760
0125 0000 679 | DC *-* *PREVIOUSLY READ PMN06770
0126 0000 680 | DZ904 DC *-* IOCC FOR OPERATION CURRENTLY PMN06780
0127 0000 681 | DZ905 DC *-* *BEING PERFORMED PMN06790
0128 0000 682 | DZ906 DC *-* SAVE AREA FOR IOCC FOR PMN06800
0129 0000 683 | DZ907 DC *-* *USER-REQUESTED OPERATION PMN06810
012A 0122 684 | DZ908 DC DZ900 IOCC FOR READ PMN06820
012B 0000 685 | DZ909 DC *-* *AFTER SEEK PMN06830
012C 0000 686 | DZ910 DC *-* 2ND WORD OF SEEK IOCC PMN06840
012D 0000 687 | DZ911 DC *-* SENSE IOCC PMN06850
012E 0000 688 | DZ912 DC *-* INTERMEDIATE WORD COUNT PMN06860
012F 0000 689 | DZ913 DC *-* ADDR OF NEXT SEQUENTIAL SECTOR PMN06870
0130 5002 690 | DZ914 DC /5002 WRITE SELECT/POWER UNSAFE INDR PMN06880
0131 5004 691 | DZ915 DC /5004 READ/WRITE/SEEK ERROR INDICATOR PMN06890
0132 FEC0 692 | DZ916 DC -320 TO BE USED TO SIMULTANEOUSLY PMN06900
0133 0001 693 | DC 1 *DECR WD CNT, INCR SCTR ADDR PMN06910
0134 0080 694 | DZ920 DC /0080 READ CHECK BIT FOR IOCC PMN06920
0135 0600 695 | DZ925 DC /0600 2ND WD OF READ IOCC W/O AREA CD PMN06930
0136 0008 696 | DZ930 DC 8 NO. SECTORS PER CYLINDER PMN06940
0137 5000 697 | DZ935 DC /5000 NOT READY DISPLAY CODE PMN06950
0138 0FF8 698 | DZ940 DC /0FF8 'AND' OUT DR CODE, SCTR ADDR PMN06960
0139 0000 699 | DZ945 DC *-* FUNC INDICATOR (0=READ,1=WRITE) PMN06970
013A 0701 700 | DZ950 DC /0701 SENSE IOCC W/O AREA CODE PMN06980
013B 0007 701 | DZ955 DC /0007 'AND' OUT ALL BUT SCTR NO. PMN06990
013C 000A 702 | DZ960 DC $DCYL-$CYLN BASE DEFECTIVE CYL ADDR PMN07000
013D 009F 703 | DZ965 DC $ACDE BASE AREA CODE ADDR PMN07010
013E FFFB 704 | DZ970 DC $CYLN-$ACDE BASE ARM POSITION ADDR PMN07020
013F 0000 705 | DZ975 DC *-* 2ND WORD OF READ CHECK IOCC PMN07030
0140 0400 706 | DZ980 DC /0400 2ND WD OF SEEK IOCC W/O AREA CD PMN07040
0141 0141 707 | DZ985 DC 321 NO. WORDS PER SECTOR (W/ ADDR) PMN07050
0142 0000 708 | DZ990 DC *-* CURRENT SECTOR NO. PMN07060
0143 FFFF 709 | DZ995 DC -1 MASK FOR COMPLEMENTING PMN07070
710 | * PMN07080
711 | * RESERVED FOR SAVING CORE ON A DUMP ENTRY TO SKEL PMN07090
712 | * PMN07100
0144 713 | BSS 2 THIS AREA MUST BE AT $CIBA+319 PMN07110
00F2 714 | X2 EQU DZ000 PMN07120
715 | * PMN07130
716 | * PMN07140
717 | * PMN07150
0146 1810 718 | DZ210 SRA 16 PMN07160
0147 D0A6 719 | STO $DBSY CLEAR BUSY INDICATOR PMN07170
0148 74FF 0032 720 | MDX L $IOCT,-1 DECREMENT IOCS COUNTER PMN07180
014A 1000 721 | NOP PMN07190
014B 70B8 722 | MDX DZ100 TO EXIT PMN07200
723 | * PMN07210
724 | * PREPARE TO TRAP OUT ON 'POWER UNSAFE' CONDITION PMN07220
725 | * PMN07230
014C C8D7 726 | DZ215 LDD DZ902 RESTORE WORD COUNT 2-6 PMN07240
014D D900 727 | STD 1 0 *AND SECTOR ADDRES 2-6 PMN07250
014E C0E1 728 | LD DZ914 PMN07260
014F 70D0 729 | MDX DZ190 BR TO TPAP OUT PMN07270
730 | * PMN07280
731 | * PREPARE TO TRAP OUT ON 'NOT READY' CONDITION PMN07290
732 | * PMN07300
0150 C0E6 733 | DZ220 LD DZ935 FETCH ERROR CODE PMN07310
0151 4400 0028 734 | BSI L $PRET BR TO PREOPERATIVE ERR TRAP PMN07320
0153 7038 735 | MDX DZ340 RETRY THE OPERATION PMN07330
736 | * PMN07340
737 | * STATEMENTS MOVED 2-1 PMN07350
738 | * PMN07360
0154 7401 0032 739 | DZ230 MDX L $IOCT,1 INCREMENT IOCS COUNTER PMN07370
0156 6211 740 | DZ232 LDX 2 @TCNT TURN BUSY INDICATOR ON 2-10 PMN07380
0157 6A96 741 | STX 2 $DBSY * 2-6 PMN07390
0158 6500 0000 742 | DZ235 LDX L1 *-* ADDR I/O AREA TO XR1 PMN07400
015A C900 743 | LDD 1 0 PMN07410
015B D8C8 744 | STD DZ902 SAVE WORD COUNT, SCTR ADDR PMN07420
015C D8D1 745 | STD DZ912 PMN07430
015D 1810 746 | DZ240 SRA 16 PMN07440
015E 1084 747 | SLT 4 DRIVE CODE IN BITS 12-15 PMN07450
015F D00E 748 | STO DZ280+1 PMN07460
0160 80DC 749 | A DZ965 COMPUTE AND STORE THE PMN07470
0161 D01C 750 | STO DZ330+1 *ADDR OF THE AREA CODE PMN07480
0162 80DB 751 | A DZ970 COMPUTE AND STORE THE PMN07490
0163 D034 752 | STO DZ350+1 *ADDR OF THE ARM POSITION PMN07500
0164 80D7 753 | A DZ960 ADD IN BASE DT ADDR PMN07510
0165 8008 754 | A DZ280+1 ADD IN THE DRIVE PMN07520
0166 8007 755 | A DZ280+1 *CODE TWICE MORE PMN07530
0167 D006 756 | STO DZ280+1 PMN07540
0168 62FD 757 | LDX 2 -3 INITIALIZE COUNTER FOR LOOP PMN07550
0169 69BE 758 | STX 1 DZ906 PMN07560
016A C101 759 | LD 1 1 FETCH DESIRED SECTOR ADDR PMN07570
016B E0CC 760 | AND DZ940 'AND' OUT SECTOR NO. PMN07580
016C D101 761 | DZ250 STO 1 1 *AND DRIVE CODE PMN07590
016D 9400 0000 762 | DZ280 S L *-* SUB DEFECTIVE CYLINDER ADDR PMN07600
016F 4828 763 | BSC Z+ SKIP IF BAD CYLINDER PMN07610
0170 7007 764 | MDX DZ300 BR TO CONTINUE PROCESSING PMN07620
0171 C101 765 | LD 1 1 PMN07630
0172 80C3 766 | A DZ930 INCREMENT SCTR ADDR BY 8 PMN07640
0173 7401 016E 767 | MDX L DZ280+1,1 POINT TO NEXT DEFECTIVE CYL PMN07650
0175 7201 768 | MDX 2 1 SKIP AFTER 3RD PASS PMN07660
0176 70F5 769 | MDX DZ250 COMPARE W/ NEXT DEF CYL ADR PMN07670
0177 D101 770 | STO 1 1 SCTR ADDR WITH 3 DEF CYL2-4 PMN07680
771 | * PMN07690
772 | * CONSTRUCT THE 2ND WORD OF ALL IOCC'S PMN07700
773 | * PMN07710
0178 6600 00F2 774 | DZ300 LDX L2 DZ000 ADDR OF DZ000 TO XR2 PMN07720
017A C23D 775 | LD 2 DZ913-X2 FETCH SECTOR ADDRESS PMN07730
017B E249 776 | AND 2 DZ955-X2 'AND' OUT ALL BUT SECTOR NO PMN07740
017C D250 777 | STO 2 DZ990-X2 SAVE SECTOR NO. PMN07750
017D C400 0000 778 | DZ330 LD L *-* FETCH AREA CODE PMN07760
017F EA4E 779 | OR 2 DZ980-X2 'OR' IN SEEK FUNCTION CODE PMN07770
0180 D23A 780 | STO 2 DZ910-X2 SEEK IOCC MINUS DIRECTION PMN07780
0181 EA43 781 | OR 2 DZ925-X2 'OR' IN READ FUNCTION CODE PMN07790
0182 D239 782 | STO 2 DZ909-X2 IOCC FOR READ-AFTER-SEEK PMN07800
0183 EA50 783 | OR 2 DZ990-X2 'OR' IN SECTOR NO. PMN07810
0184 9247 784 | S 2 DZ945-X2 COMPLETE READ/WRITE CODE PMN07820
0185 D237 785 | STO 2 DZ907-X2 2ND WD OF READ/WRITE IOCC PMN07830
0186 EA42 786 | OR 2 DZ920-X2 'OR' IN READ CHECK BIT PMN07840
0187 8247 787 | A 2 DZ945-X2 PMN07850
0188 D24D 788 | STO 2 DZ975-X2 2ND WD OF READ CHECK IOCC PMN07860
0189 EA48 789 | OR 2 DZ950-X2 'OR' IN SENSE IOCC BITS PMN07870
018A D23B 790 | STO 2 DZ911-X2 COMPLETED SENSE IOCC PMN07880
018B CA3C 791 | LDD 2 DZ912-X2 1+SCTR ADDR TO EXTENSION PMN07890
018C 0A3A 792 | DZ340 XIO 2 DZ910-X2 SENSE FOR DISK READY PMN07900
018D D2EB 793 | STO 2 $DDSW-X2 SAVE THE DSW PMN07910
018E 4828 794 | BSC Z+ SKIP UNLESS POWER UNSAFE OR PMN07920
018F 70BC 795 | MDX DZ215 *WRITE SELECT, BR OTHERWISE PMN07930
0190 1002 796 | SLA 2 BR TO PREOPERATIVE ERR TRAP PMN07940
0191 4828 797 | BSC Z+ *IF DISK NOT READY, SKIP PMN07950
0192 70BD 798 | MDX DZ220 *OTHERWISE PMN07960
799 | * STATEMENTS REMOVED 2-1 PMN07970
0193 1002 800 | SLA 2 CHECK FOR ARM AT HOME 2-11 PMN07980
0194 4828 801 | BSC +Z SKIP IF NOT HOME 2-11 PMN07990
0195 7010 802 | MDX DZ390+1 BR TO VERIFY ARM AT HOM2-11 PMN08000
803 | * 2-11 PMN08010
804 | * 3 INSTRUCTIONS REMOVED 2-11 PMN08020
805 | * 2-11 PMN08025
0196 C101 806 | LD 1 1 FETCH DESIRED CYLINDER ADDR PMN08030
0197 9400 0000 807 | DZ350 S L *-* SUBTRACT ARM POSITION PMN08040
0199 4818 808 | BSC +- SKIP IF SEEK NECESSARY PMN08050
019A 701B 809 | MDX DZ400 BRANCH TO PERFORM OPERATION PMN08060
810 | * PMN08070
811 | * SEEK PMN08080
812 | * PMN08090
019B 1893 813 | SRT 19 PUT NO. CYLINDERS IN EXT PMN08100
019C 180F 814 | SRA 15 + OR - SIGN TO BIT 15 PMN08110
019D 1002 815 | SLA 2 SHIFT SIGN TO BIT 13 PMN08120
019E EA3A 816 | OR 2 DZ910-X2 "OR"