File: RES50C.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 1
FILE # 1
1 /OS/8 RESOURCES PROGRAM FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 /
8 /
9 /
10 /
11 /COPYRIGHT (C) 1978 BY DIGITAL EQUIPMENT CORPORATION
12 / AND 1979 BY DATAPLAN GMBH
13 / AND 2015 W. VAN DER MARK
14 /
15 /
16 /
17 /
18 /
19 /
20 /
21 /
22 /
23 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
24 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
25 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
26 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
27 /
28 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
29 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
30 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
31 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
32 /
33 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
34 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
35 /DIGITAL.
36 /
37 /
38 /
39 /
40 /
41 /
42 /
43 /
44 /
45 /
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 2
FILE # 1
46
47
48
49 / J.M.
50 / W.V.D.M.
51
52 /SAVE INFO:
53
54 /INSTRUCTIONS FOR CREATING RESORC.SV V40A
55
56 / .MAC RESORC
57 / .MAC RESOV0
58 / .MAC RESOV1
59 / .MAC RESOV2
60 / .MAC RESOV3
61 / .MAC RESOVD
62 / .LINK RESORC,RESOVD$
63 / */9/O
64 / *RESOV0/C
65 / *RESOV1/C
66 / *RESOV2/C
67 / *RESOV3$
68
69
70 /CORE MAP:
71
72 /0000-1777 C.D.
73 /2000-2377 DEVICE NAME AND LENGTH TABLE
74 /2400-2777 OUTPUT BUFFER (DOESN'T OVERLAP BETA REGISTER)
75 /3000-3377 INPUT HANDLER
76 /3400-3777 OUTPUT HANDLER
77 /4000-7377 INPUT DIRECTORY
78 /4000-7577 INPUT HANDLERS (LOSE 2ND HALF OF LAST ONE)
79
80 /FIELD 1
81
82 /10000-11777 USR
83 /11400-11777 INPUT KBM
84 /12000-15577 PROGRAM
85 /15600-16177 INPUT BLOCK 0
86 /16200-17577 INPUT USR
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 3
FILE # 1
87
88
89 5600 INPBL0==5600
90 1400 INPKBM==1400
91 6200 INPUSR==6200
92 4000 INPHND==4000
93
94 0020 FAST=20
95 0021 DIG=21
96 0022 EXTEN=22
97 0023 DEVNUM=23 /DEVICE NUMBER OF HANDLER
98 0024 CNT=24
99 0025 PDNT=25 /PTS TO DEVICE NAME TABLE
100 0026 TEMP=26
101 0027 PUDNT=27 /PTS TO USER DEVICE NAME TABLE
102 0030 PDHIT=30 /PTS TO DEVICE HANDLER INFO TABLE
103 0031 PDCWT=31 /PTS TO DEVICE CONTROL WORD TABLE
104 0032 PTYP=32
105 0033 LFT=33
106 0034 RT=LFT+1
107 0035 DVNO=35
108 0036 BLOC=36
109 0037 PDHRT=37 /POINTS TO DEVICE HANDLER RESIDENCY TABLE
110 0006 UN=6
111 0010 X0=10
112 0011 XR1=11
113
114 0330 RESVERSION="X
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 4
FILE # 1
115
116
117 /FIXES SINCE FIELD TEST RELEASE:
118
119 /1. 'INPUT ERROR' MESSAGE NO LONGER GARBLED
120 /2. '%NON SYSTEM DEVICE' NEVER PRINTS HANDLERS
121
122 /FIXES FOR MAINTENANCE RELEASE (V3C):
123
124 /3. INCORPORATED PATCH SEQ NO 1 ALLOWS DISTINGUISHING BETWEEN
125 / HIGH AND LOW SPEED PTR'S AND ADDITIONAL CASSETTES
126 / [DSN FEB 1975]
127
128 /4. FIXED LENGTHS OF DF32'S AND RF08'S [SUPERSEDES PATCH SEQ #2
129 / DSN APR 1975]
130
131 /5. CHANGED VERSION NUMBER TO V3, UPDATED COPYRIGHT
132 /6. ADDED DUMP, LST, AND RX-- TO INTERNAL NAME TABLES
133
134 /7. ADDED DETAILS ABOUT DUMP AND FLOPPIES TO TABLES
135
136 /V3D CHANGES:
137
138 /8. ADDED NAMES SLU AND LQP TO TABLES
139 /9. CAN DISTINGUISH LQP KIND OF LPTR
140 /10. FIXED BUG ABOUT DUMPING BUFFER FULL OF NULLS
141 /11. REMOVED LITTLE-USED 'OUT', 'DEV' FROM NAME TABLES
142
143 /VERSION 5
144
145 /12. ADDED RL01 SUPPORT
146 /13. CONVERTED TO MACREL
147 /14. ADDED LINKER OVERLAYS
148 /15. ADDED RX02 SUPPORT
149 /16. ADDED VXA0 SUPPORT
150
151 /VERSION 40
152
153 /1. NEW NAME ROUTINE IN OV3
154 /2. GERMAN MESSAGES
155 /3. WIDER OUTPUT
156 /4. ALL SLOTS ALWAYS PRINTED
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 5
FILE # 1
157
158
159 0070 XFERV==70
160
161 .EXTERNAL SWAPER
162 .EXTERNAL VERSN,SIZE,BLOCK,MODE, ENTRY /IN OV3
163 .EXTERNAL DIRT,KIND,CNTSLT,ZEROSL
164 .EXTERNAL TYPTBL,DNTONM
165 .GLOBAL GETTYP,PUTNAM,PUTO,PUTSP,CRLF,DPRINT
166 .GLOBAL FREEDV,OPRINT,READI,SLOTAB,PRINT,GERMAN
167
168 0200 .ASECT RESORC
169 2000 .START 2000,1
170 6603 .JSW 6603
171
172 / GERMAN=1
173
174 0001 FIELD 1
175 2000 *2000
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 6
FILE # 1
176
177
178 12000 7410 START, SKP
179 12001 5205 JMP NOCD /CHAIN ENTRY POINT
180 12002 4777 CD, JMS I (200
181 12003 0005 5 /COMMAND DECODE
182 12004 2331 2331 /DEFAULT INPUT EXTENSION = 'SY'
183 12005 3776' NOCD, DCA CTRLO
184 12006 3070 DCA XFERV
185 12007 1375 TAD (SWAPER
186 12010 3071 DCA XFERV+1
187 12011 4774' JMS OPENO /OPEN OUTPUT FILE
188 12012 3324 DCA FILENO
189 12013 1373 TAD (7617
190 12014 3321 DCA INPTR /POINT TO FIRST INPUT FILE
191 12015 1772 TAD I (7644
192 12016 0371 AND (4 / V OPTION?
193 12017 7640 SZA CLA
194 12020 4770' JMS TYPEV /OUTPUT VERSION #
195 12021 4301 JMS SETSW
196 12022 3326 DCA FLAG
197 12023 1773 TAD I (7617
198 12024 7650 SNA CLA
199 12025 4327 JMS SPCASE /NO FIRST ARG MEANS USE SYS: IN SPECIAL SENSE
200 12026 5233 JMP INL2
201 12027 1721 INLOOP, TAD I INPTR /GET INPUT FILE # AND LENGTH
202 12030 7650 SNA CLA
203 12031 5263 JMP FINI /NO MORE INPUT
204 12032 4767' JMS PRDASH
205 12033 1721 INL2, TAD I INPTR
206 12034 0366 AND (17
207 12035 3035 DCA DVNO /GET 4-BIT DEVICE #
208 12036 2324 ISZ FILENO
209 12037 1721 TAD I INPTR
210 12040 0365 AND (7760 /GET NEGATIVE OF FILE LENGTH
211 12041 3322 DCA FILEN
212 12042 2321 ISZ INPTR
213 12043 1721 TAD I INPTR /GET STARTING BLOCK OF FILE
214 12044 3325 DCA SBLOCK
215 12045 2321 ISZ INPTR
216 12046 1035 TAD DVNO
217 12047 4271 JMS GETDCW
218 12050 7700 SMA CLA
219 12051 5764' JMP NOFLST /DEVICE IS NOT FILE STRUCTURED
220 12052 4763' JMS OPENI /GET INPUT HANDLER
221 12053 4762' JMS DIRECT /ASCERTAIN DIRECTORY INFO
222 12054 4761' JMS HNDLRS /ASCERTAIN HANDLERS
223 12055 1022 TAD EXTEN
224 12056 7640 SZA CLA
225 12057 4760 JMS I (CNTSLT
226 12060 4757' JMS MONVER /ASCERTAIN MONITOR VERSION #
227 12061 3326 NEXT, DCA FLAG
228 12062 5227 JMP INLOOP
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 7
FILE # 1
229
230
231 12063 4756' FINI, JMS CLOSEO /CLOSE OUTPUT FILE
232 12064 1755 FINIS, TAD I (7642
233 12065 7700 SMA CLA
234 12066 5202 JMP CD /COMMAND LINE ENDED WITH CR
235 12067 6203 CIF CDF 0 /COMMAND LINE ENDED WITH ALTMODE
236 12070 5754 JMP I (7605 /GO BACK TO MONITOR
237
238 /CURRENT PIP /Y FILES ARE 50 (DEC) = 62 (OCTAL) BLOCKS LONG
239
240 12071 0000 GETDCW, 0
241 12072 0366 AND (17
242 12073 1353 TAD (7757 /GET PTR INTO DEVICE CONTROL WORD TABLE
243 12074 3323 DCA DCW
244 12075 1723 TAD I DCW /GET D.C.W.
245 12076 3323 DCA DCW /SAVE (WHY?)
246 12077 1323 TAD DCW
247 12100 5671 JMP I GETDCW
248
249 12101 0000 SETSW, 0
250 12102 3020 DCA FAST
251 12103 3022 DCA EXTEN
252 12104 7201 CLA IAC
253 12105 0752 AND I (7643
254 12106 7650 SNA CLA
255 12107 5312 JMP NOTF
256 12110 2020 ISZ FAST
257 12111 5701 JMP I SETSW
258 12112 1752 NOTF, TAD I (7643
259 12113 0377 AND (200
260 12114 7650 SNA CLA
261 12115 5701 JMP I SETSW
262 12116 2022 ISZ EXTEN
263 12117 2020 ISZ FAST
264 12120 5701 JMP I SETSW
265
266 /FAST GT 0 IF /L OR /E SWITCH SET
267 /EXTEN=1 IF /E SWITCH SET AND /L NOT SET
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 8
FILE # 1
268
269
270 12121 0000 INPTR, 0 /POINTS TO INPUT FILE LIST
271 12122 0000 FILEN, 0 /INPUT FILE LENGTH (NEG IN BITS 0-7)
272 12123 0000 DCW, 0 /INPUT DEVICE CONTROL WORD
273 12124 0000 FILENO, 0 /INPUT FILE NUMBER IN INPUT LIST
274 12125 0000 SBLOCK, 0 /STARTING BLOCK # OF INPUT FILE
275 12126 0000 FLAG, 0 /NON-ZERO MEANS SPECIAL CASE OF NO FIRST ARG
276
277 12127 0000 SPCASE, 0
278 12130 2326 ISZ FLAG /NOTE SPECIAL CASE
279 12131 7201 CLA IAC
280 12132 3773 DCA I (7617 /FORCE FIRST INPUT TO BE SYS:
281 12133 5727 JMP I SPCASE
------
12152 7643
12153 7757
12154 7605
12155 7642
12156 2400
12157 3600
12160 0000 *
12161 4000
12162 2671
12163 3312
12164 3521
12165 7760
12166 0017
12167 3134
12170 3541
12171 0004
12172 7644
12173 7617
12174 2417
12175 0000 *
12176 2271
12177 0200
282 2200 PAGE
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 9
FILE # 1
283
284
285 12200 0000 PRINT, 0
286 12201 1600 TAD I PRINT
287 12202 3214 DCA PRT
288 12203 2200 ISZ PRINT
289 12204 1214 TAD PRT
290 12205 7002 BSW
291 12206 4215 JMS PR
292 12207 5600 JMP I PRINT
293 12210 1214 TAD PRT
294 12211 4215 JMS PR
295 12212 5600 JMP I PRINT
296 12213 5201 JMP PRINT+1
297 12214 0000 PRT, 0
298
299 12215 0000 PR, 0
300 12216 0377 AND (77
301 12217 7450 SNA
302 12220 5615 JMP I PR
303 12221 1376 TAD (240
304 12222 0377 AND (77
305 12223 1376 TAD (240
306 12224 4775' JMS PUTO
307 12225 2215 ISZ PR
308 12226 5615 JMP I PR
309
310 12227 0000 TPRINT, 0 /PRINT TO TELETYPE
311 12230 7200 CLA
312 12231 1627 TAD I TPRINT
313 12232 3214 DCA PRT
314 12233 2227 ISZ TPRINT
315 12234 1214 TAD PRT
316 12235 7002 BSW
317 12236 4242 JMS TPUT
318 12237 1214 TAD PRT
319 12240 4242 JMS TPUT
320 12241 5230 JMP TPRINT+1
321
322 12242 0000 TPUT, 0
323 12243 0377 AND (77
324 12244 7450 SNA
325 12245 5253 JMP PUTCR
326 12246 1376 TAD (240
327 12247 0377 AND (77
328 12250 1376 TAD (240
329 12251 4255 JMS TYPE
330 12252 5642 JMP I TPUT
331
332 12253 4340 PUTCR, JMS TCRLF
333 12254 5627 JMP I TPRINT
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 10
FILE # 1
334
335
336 12255 0000 TYPE, 0
337 12256 3270 DCA TYTEM
338 12257 1271 TAD CTRLO
339 12260 7640 SZA CLA
340 12261 5655 JMP I TYPE /DON'T TYPE IF CONTROL/O FLAG SET
341 12262 6031 KSF
342 12263 7410 SKP
343 12264 4300 JMS LOOKC
344 12265 1270 TAD TYTEM
345 12266 4272 A, JMS TYPE2
346 12267 5655 JMP I TYPE
347
348 12270 0000 TYTEM, 0
349 12271 0000 CTRLO, 0 /NON-ZERO MEANS CTRLO/O WAS STRUCK
350
351 12272 0000 TYPE2, 0
352 12273 6046 TLS
353 12274 6041 TSF
354 12275 5274 JMP .-1
355 12276 7200 CLA
356 12277 5672 JMP I TYPE2
357
358 12300 0000 LOOKC, 0
359 12301 6036 CTSBCK, KRB
360 12302 0374 AND (177
361 12303 1373 TAD (-17
362 12304 7450 SNA /IS IT ^O?
363 12305 5316 JMP CTROLO /YES
364 12306 1372 TAD (17-23 /IS IT ^S
365 12307 7450 SNA
366 12310 5327 JMP CTRLS /YES, WAIT
367 12311 1371 TAD (23-3 /NO
368 12312 7640 SZA CLA /IS IT ^C?
369 12313 5700 JMP I LOOKC /NO
370 12314 6203 CIF CDF 0 /YES
371 12315 5770 JMP I (7605
372 12316 1367 CTROLO, TAD ("^
373 12317 4272 JMS TYPE2
374 12320 1366 TAD ("O
375 12321 4272 JMS TYPE2
376 12322 2271 ISZ CTRLO
377 12323 1365 TAD (215
378 12324 4272 JMS TYPE2
379 12325 1364 TAD (212
380 12326 5266 JMP A
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 11
FILE # 1
381
382
383 12327 6031 CTRLS, KSF /AFTER ^S WAIT FOR ANY
384 12330 5327 JMP .-1
385 12331 5301 JMP CTSBCK /READ THIS AGAIN
386
387 12332 0000 CRLF, 0
388 12333 1365 TAD (215
389 12334 4775' JMS PUTO
390 12335 1364 TAD (212
391 12336 4775' JMS PUTO
392 12337 5732 JMP I CRLF
393
394 12340 0000 TCRLF, 0
395 12341 1365 TAD (215
396 12342 4255 JMS TYPE
397 12343 1364 TAD (212
398 12344 4255 JMS TYPE
399 12345 5740 JMP I TCRLF
400
401 12346 6030 DLST, -1750 /1000
402 12347 7634 -144 /100
403 12350 7766 -12 /10
404 12351 7777 -1 /1
405 12352 0000 0 /END
------
12364 0212
12365 0215
12366 0317
12367 0336
12370 7605
12371 0020
12372 7774
12373 7761
12374 0177
12375 2600
12376 0240
12377 0077
406 2400 PAGE
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 12
FILE # 1
407
408
409 12400 0000 CLOSEO, 0 /CLOSE OUTPUT FILE
410 12401 1377 TAD (232 /PUT ^Z IN BUFFER
411 12402 4776' JMS PUTO
412 12403 1375 TAD (-577 /V3D
413 12404 3271 DCA KNT /SEND 577 NULLS TO OUTPUT BUFFER
414 12405 4776' JMS PUTO /THIS GUARANTEES TO PURGE IT
415 12406 2271 ISZ KNT
416 12407 5205 JMP .-2
417 12410 1774 TAD I (7600
418 12411 4773 JMS I (200
419 12412 0004 4 /CLOSE
420 12413 7601 L7601, 7601 /POINTER TO OUTPUT FILE NAME
421 12414 0000 OUTLEN, 0 /LENGTH OF OUTPUT FILE
422 12415 7402 HLT /SYSTEM ERROR, CANNOT OCCUR
423 12416 5600 JMP I CLOSEO
424 12417 0000 OPENO, 0
425 12420 4772' JMS OINIT
426 12421 3214 DCA OUTLEN
427 12422 1371 TAD (3401
428 12423 3237 DCA OENTRY
429 12424 1774 TAD I (7600
430 12425 7650 SNA CLA
431 12426 5272 JMP DEFALT
432 12427 1774 TAD I (7600
433 12430 4770' JMS GETDCW
434 12431 7004 RAL
435 12432 7710 SPA CLA
436 12433 5767' JMP NOWR /READ ONLY
437 12434 1774 TAD I (7600
438 12435 4773 JMS I (200
439 12436 0001 1 /FETCH DEVICE HANDLER (POSSIBLY 2-PAGE)
440 12437 3401 OENTRY, 3401 /INTO PAGE 3400
441 12440 7402 HLT /SYSTEM ERROR CANNOT OCCUR
442 12441 1213 O2, TAD L7601
443 12442 3257 DCA SBLKO
444 12443 1613 TAD I L7601
445 12444 7450 SNA
446 12445 1366 TAD (2205 /RE
447 12446 3613 DCA I L7601 /DEFAULT OUTPUT NAME IS RE
448 12447 3260 DCA OLEN
449 12450 1765 TAD I (7604
450 12451 7450 SNA
451 12452 1364 TAD (1423 /LS
452 12453 3765 DCA I (7604 / .LS IS DEFAULT OUTPUT EXTENSION
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 13
FILE # 1
453
454
455 12454 1774 TAD I (7600
456 12455 4773 JMS I (200
457 12456 0003 3 /ENTER OUTPUT FILE
458 12457 7601 SBLKO, 7601 /POINTS TO OUTPUT FILE NAME
459 12460 0000 OLEN, 0 /COMPLEMENT OF ACTUAL OUTPUT FILE LENGTH
460 12461 5763' JMP DEVFUL /OUTPUT DEVICE FULL
461 12462 1257 TAD SBLKO
462 12463 3762' DCA OBLOCK
463 12464 1260 TAD OLEN
464 12465 7440 SZA
465 12466 1361 TAD (-1
466 12467 3260 DCA OLEN
467 12470 5617 JMP I OPENO
468
469 12471 0000 KNT, 0
470
471 12472 1360 DEFALT, TAD (3100 /SET TTY: AS DEFAULT OUTPUT DEVICE
472 12473 3301 DCA DVN
473 12474 1371 TAD (3401
474 12475 3302 DCA OENT
475 12476 4773 JMS I (200
476 12477 0001 1 /FETCH HANDLER BY NAME
477 12500 2424 2424 /TT
478 12501 3100 DVN, 3100 /DEVICE TTY:
479 12502 3401 OENT, 3401 /INTO 3400
480 12503 5757' JMP NOTTY /NO TTY: ON SYS:
481 12504 1302 TAD OENT
482 12505 3237 DCA OENTRY
483 12506 1301 TAD DVN
484 12507 3774 DCA I (7600
485 12510 5241 JMP O2
486
487 12511 4756' OUTERR, JMS TPRINT
488 12512 7717 .IF NDF GERMAN < TEXT /?OUTPUT ERROR/>
12513 2524
12514 2025
12515 2440
12516 0522
12517 2217
12520 2200
489 .IF DF GERMAN < TEXT /?SCHREIB-FEHLER/>
490 12521 4755' JMS CRLF
491 12522 5754' JMP FINIS
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 14
FILE # 1
492
493
494 12523 0000 PUTSP, 0
495 12524 1353 TAD (40
496 12525 4776' JMS PUTO
497 12526 1353 TAD (40
498 12527 4776' JMS PUTO
499 12530 5723 JMP I PUTSP
------
12553 0040
12554 2064
12555 2332
12556 2227
12557 3232
12560 3100
12561 7777
12562 2656
12563 3200
12564 1423
12565 7604
12566 2205
12567 3213
12570 2071
12571 3401
12572 3246
12573 0200
12574 7600
12575 7201
12576 2600
12577 0232
500 2600 PAGE
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 15
FILE # 1
501
502
503 12600 0000 PUTO, 0
504 12601 0377 AND (377
505 12602 6201 CDF 0
506 12603 5604 JMP I PUTJMP
507 12604 2605 PUTJMP, X1
508 12605 3665 X1, DCA I PUTPT1
509 12606 1376 TAD (X2
510 12607 3204 DCA PUTJMP
511 12610 6211 PUTLV, CDF 10
512 12611 5600 JMP I PUTO /RETURN
513
514 12612 3666 X2, DCA I PUTPT2
515 12613 1375 TAD (X3
516 12614 3204 DCA PUTJMP
517 12615 5210 JMP PUTLV
518
519 12616 3270 X3, DCA TMP
520 12617 1270 TAD TMP
521 12620 7106 CLL RTL
522 12621 7006 RTL
523 12622 0374 AND (7400
524 12623 1665 TAD I PUTPT1
525 12624 3665 DCA I PUTPT1
526 12625 1270 TAD TMP
527 12626 7112 CLL RTR
528 12627 7012 RTR
529 12630 7010 RAR
530 12631 0374 AND (7400
531 12632 1666 TAD I PUTPT2
532 12633 3666 DCA I PUTPT2
533 12634 2265 ISZ PUTPT1
534 12635 2265 ISZ PUTPT1
535 12636 2266 ISZ PUTPT2
536 12637 2266 ISZ PUTPT2
537 12640 1373 TAD (X1
538 12641 3204 DCA PUTJMP
539 12642 2267 ISZ PUTKNT
540 12643 5210 JMP PUTLV
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 16
FILE # 1
541
542
543 12644 6211 CDF 10 /BUFFER FILLED
544 12645 2772' ISZ OLEN
545 12646 7410 SKP
546 12647 5771' JMP DEVFUL /CAN'T WRITE ANYMORE
547 12650 6202 CIF 0
548 12651 1770' TAD OENTRY
549 12652 3264 DCA OENTR /GET ON SAME PAGE
550 12653 4664 JMS I OENTR
551 12654 4200 4200 /WRITE 1 BLOCK
552 12655 2400 2400 /FIELD 0, LOC 2400
553 12656 0000 OBLOCK, 0 /OUTPUT BLOCK #
554 12657 5767' JMP OUTERR
555 12660 2766' ISZ OUTLEN
556 12661 2256 ISZ OBLOCK /POINT TO NEXT BLOCK
557 12662 4765' JMS OINIT
558 12663 5600 JMP I PUTO /RETURN
559
560 12664 0000 OENTR, 0
561 12665 0000 PUTPT1, 0
562 12666 0000 PUTPT2, 0
563 12667 0000 PUTKNT, 0
564
565 12670 0000 TMP, 0
566
567 12671 0000 DIRECT, 0
568 12672 1764' TAD SBLOCK
569 12673 7640 SZA CLA
570 12674 5671 JMP I DIRECT /NO DIRECTORY INFO FOR FILES
571 12675 4763 JMS I (DIRT
572 12676 5671 JMP I DIRECT
573
574 12677 0000 SLOTAB, ZBLOCK 10 /KEEPS TRACK OF USED SLOTS
575
576 12707 0000 GETTYP, 0
577 12710 6201 CDF 0
578 12711 1432 TAD I PTYP
579 12712 6211 CDF 10
580 12713 5707 JMP I GETTYP
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 17
FILE # 1
581
582
583 12714 0000 PUTNAM, 0
584 12715 3324 DCA PUTNMT
585 12716 1724 TAD I PUTNMT
586 12717 4762' JMS PUTPAK
587 12720 2324 ISZ PUTNMT
588 12721 1724 TAD I PUTNMT
589 12722 4762' JMS PUTPAK
590 12723 5714 JMP I PUTNAM
591 12724 0000 PUTNMT, 0
592
593 /THIS PRINTS A 4 CHAR NAME, ARG IN AC.
594
------
12762 3477
12763 0000 *
12764 2125
12765 3246
12766 2414
12767 2511
12770 2437
12771 3200
12772 2460
12773 2605
12774 7400
12775 2616
12776 2612
12777 0377
595 3000 PAGE
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 18
FILE # 1
596
597
598 13000 0000 NAME, 0
599 13001 3223 DCA NAM
600 13002 1020 TAD FAST
601 13003 7640 SZA CLA
602 13004 5213 JMP TRY1
603 13005 7240 STA
604 13006 1023 TAD DEVNUM
605 13007 7650 SNA CLA
606 13010 5213 JMP TRY1
607 13011 1377 TAD (",
608 13012 4776' JMS PUTO
609 13013 1223 TRY1, TAD NAM
610 13014 7700 SMA CLA /IF POSITIVE 2 LETTERS
611 13015 4224 JMS TRY2LT
612 13016 1223 TAD NAM
613 13017 4775 JMS I (DNTONM /GO TO OVERLAY WITH NAMES
614 13020 5774' JMP GOTIT /OK
615 13021 4224 JMS TRY2LT /NOT FOUND: MAKE SOME NAME
616 13022 5264 JMP TRY4 /BAD NAME
617
618 13023 0000 NAM, 0 /SPECIFIED NAME
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 19
FILE # 1
619
620
621 13024 0000 TRY2LT, 0
622 13025 1223 TAD NAM
623 13026 7002 BSW
624 13027 0373 AND (77
625 13030 7450 SNA
626 13031 5264 JMP TRY4 /FUNNY!
627 13032 4244 JMS SETIFA
628 13033 7002 BSW
629 13034 3033 DCA LFT
630 13035 1223 TAD NAM
631 13036 0373 AND (77
632 13037 4244 JMS SETIFA
633 13040 1033 TAD LFT
634 13041 3033 DCA LFT
635 13042 3034 DCA RT
636 13043 5774' JMP GOTIT
637
638 13044 0000 SETIFA, 0
639 13045 7450 SNA
640 13046 5644 JMP I SETIFA
641 13047 1372 TAD (-33
642 13050 7510 SPA
643 13051 5260 JMP LETR
644 13052 1371 TAD (33-60
645 13053 7100 CLL
646 13054 1370 TAD (-12
647 13055 7430 SZL
648 13056 5262 JMP NODI
649 13057 1367 TAD (12+60-33
650 13060 1366 LETR, TAD (33
651 13061 5644 JMP I SETIFA
652 13062 7200 NODI, CLA
653 13063 5624 JMP I TRY2LT
654
655 13064 7200 TRY4, CLA
656 13065 1223 TAD NAM
657 13066 4765' JMS NNAME
658 13067 5600 NAMLV, JMP I NAME
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 20
FILE # 1
659
660
661 13070 4764' BADFIL, JMS PRINT
662 13071 4516 .IF NDF GERMAN < TEXT /%NOT A SYSTEM HEAD/>
13072 1724
13073 4001
13074 4023
13075 3123
13076 2405
13077 1540
13100 1005
13101 0104
13102 0000
663 .IF DF GERMAN < TEXT /%KEIN SYSTEM-KOPF/>
664 13103 4763' JMS CRLF
665 13104 5762' JMP NEXT
666
667 13105 4764' NONSYS, JMS PRINT
668 13106 4516 .IF NDF GERMAN < TEXT /%NON SYSTEM DEVICE/>
13107 1716
13110 4023
13111 3123
13112 2405
13113 1540
13114 0405
13115 2611
13116 0305
13117 0000
669 .IF DF GERMAN < TEXT /%KEIN SYSTEM-GERAET/>
670 13120 4763' JMS CRLF
671 13121 5762' JMP NEXT
672
673 13122 4764' BADMON, JMS PRINT
674 13123 4502 .IF NDF GERMAN < TEXT /%BAD MONITOR/>
13124 0104
13125 4015
13126 1716
13127 1124
13130 1722
13131 0000
675 .IF DF GERMAN < TEXT /%UNBEKANNTER MONITOR/>
676 13132 4763' JMS CRLF
677 13133 5762' JMP NEXT
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 21
FILE # 1
678
679
680 13134 0000 PRDASH, 0
681 13135 4763' JMS CRLF
682 13136 4764' JMS PRINT
683 13137 5555 TEXT /----/
13140 5555
13141 0000
684 13142 4763' JMS CRLF
685 13143 5734 JMP I PRDASH
------
13162 2061
13163 2332
13164 2200
13165 4305
13166 0033
13167 0037
13170 7766
13171 7753
13172 7745
13173 0077
13174 3731
13175 0000 *
13176 2600
13177 0254
686 3200 PAGE
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 22
FILE # 1
687
688
689 13200 4777' DEVFUL, JMS TPRINT
690 13201 7717 .IF NDF GERMAN < TEXT /?OUTPUT DEV FULL/>
13202 2524
13203 2025
13204 2440
13205 0405
13206 2640
13207 0625
13210 1414
13211 0000
691 .IF DF GERMAN < TEXT /?AUSGABE-GERAET VOLL/>
692 13212 5776' JMP FINIS
693
694 13213 4777' NOWR, JMS TPRINT
695 13214 7717 .IF NDF GERMAN < TEXT /?OUTPUT DEV IS READ-ONLY/>
13215 2524
13216 2025
13217 2440
13220 0405
13221 2640
13222 1123
13223 4022
13224 0501
13225 0455
13226 1716
13227 1431
13230 0000
696 .IF DF GERMAN < TEXT /?AUSGABE AN LESE-GERAET/>
697 13231 5776' JMP FINIS
698 13232 4777' NOTTY, JMS TPRINT
699 13233 7724 .IF NDF GERMAN < TEXT /?TTY DOES NOT EXIST/>
13234 2431
13235 4004
13236 1705
13237 2340
13240 1617
13241 2440
13242 0530
13243 1123
13244 2400
700 .IF DF GERMAN < TEXT /?ES GIBT KEIN TTY!/>
701 13245 5776' JMP FINIS
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 23
FILE # 1
702
703
704 13246 0000 OINIT, 0
705 13247 1375 TAD (-200
706 13250 3774' DCA PUTKNT
707 13251 1373 TAD (2400
708 13252 3772' DCA PUTPT1
709 13253 1371 TAD (2401
710 13254 3770' DCA PUTPT2
711 13255 1367 TAD (X1
712 13256 3766' DCA PUTJMP
713 13257 5646 JMP I OINIT
714
715 13260 0000 READI, 0
716 13261 1660 TAD I READI
717 13262 3274 DCA ARG1
718 13263 2260 ISZ READI
719 13264 1660 TAD I READI
720 13265 3275 DCA ARG2
721 13266 2260 ISZ READI
722 13267 1660 TAD I READI
723 13270 3276 DCA ARG3
724 13271 2260 ISZ READI
725 13272 6202 CIF 0
726 13273 4720 JMS I IENTRY
727 13274 0000 ARG1, 0
728 13275 0000 ARG2, 0
729 13276 0000 ARG3, 0
730 13277 5301 JMP INERR
731 13300 5660 JMP I READI /REURN
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 24
FILE # 1
732
733
734 13301 4777' INERR, JMS TPRINT
735 13302 7711 .IF NDF GERMAN < TEXT /?INPUT ERROR/>
13303 1620
13304 2524
13305 4005
13306 2222
13307 1722
13310 0000
736 .IF DF GERMAN < TEXT /?LESE-FEHLER/>
737 13311 5776' JMP FINIS
738
739 13312 0000 OPENI, 0 /FECTH INPUT HANDLER
740 13313 1365 TAD (3001 /INTO PAGES 3000, 3200
741 13314 3320 DCA IENTRY
742 13315 1035 TAD DVNO
743 13316 4764 JMS I (200
744 13317 0001 1 /FETCH HANDLER
745 13320 3001 IENTRY, 3001
746 13321 7402 HLT /SYSTEM ERROR, CAN'T OCCUR
747 13322 5712 JMP I OPENI
748
749 13323 0000 MULSYS, 0 /CHECK ON MULTI8 SYSTEM
750 13324 1763 TAD I (INPBL0+210
751 13325 1362 TAD (-4270 /IS 'JMS FGENIO'
752 13326 7640 SZA CLA
753 13327 5342 JMP NOM8
754 13330 4761' JMS PRINT
755 13331 5440 .IF NDF GERMAN < TEXT /, MULTI-8 SYSTEM/>
13332 1525
13333 1424
13334 1155
13335 7040
13336 2331
13337 2324
13340 0515
13341 0000
756 .IF DF GERMAN < TEXT /, MULTI-8 SYSTEM/>
757 13342 4760' NOM8, JMS CRLF
758 13343 5723 JMP I MULSYS
------
13360 2332
13361 2200
13362 3510
13363 6010
13364 0200
13365 3001
13366 2604
13367 2605
13370 2666
13371 2401
13372 2665
13373 2400
13374 2667
13375 7600
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 24-1
FILE # 1
13376 2064
13377 2227
759 3400 PAGE
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 25
FILE # 1
760
761
762 /DECIMAL PRINT
763 /LINK OFF MEANS PRINT LEADING SPACES
764 /LINK ON MEANS DON'T PRINT LEADING SPACES OR ZEROS
765
766 13400 0000 DPRINT, 0
767 13401 3276 DCA DTM
768 13402 7010 RAR
769 13403 3247 DCA LNK
770 13404 3246 DCA ZFLG
771 13405 1377 TAD (DLST
772 13406 3245 DCA PLST
773 13407 3244 DPL2, DCA DYG
774 13410 1645 DPLUP, TAD I PLST
775 13411 7450 SNA
776 13412 5600 JMP I DPRINT
777 13413 7100 CLL
778 13414 1276 TAD DTM
779 13415 7420 SNL
780 13416 5222 JMP NEGG
781 13417 2244 ISZ DYG
782 13420 3276 DCA DTM
783 13421 5210 JMP DPLUP
784
785 13422 7200 NEGG, CLA
786 13423 1244 TAD DYG
787 13424 1246 TAD ZFLG
788 13425 7450 SNA
789 13426 5235 JMP PRBLNK
790 13427 1376 TAD (60
791 13430 4775' JMS PUTO
792 13431 7330 STL CLA RAR /4000
793 13432 3246 DCA ZFLG
794 13433 2245 ISZZ, ISZ PLST
795 13434 5207 JMP DPL2
796
797 13435 1247 PRBLNK, TAD LNK
798 13436 7104 CLL RAL
799 13437 1316 TAD L40
800 13440 7420 SNL
801 13441 4775' JMS PUTO
802 13442 7200 CLA
803 13443 5233 JMP ISZZ
804 13444 0000 DYG, 0
805 13445 0000 PLST, 0
806 13446 0000 ZFLG, 0 /4000 MEANS PASSED LEADING ZEROES
807 13447 0000 LNK, 0
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 26
FILE # 1
808
809
810 /PRINTS A 2-DIGIT OCTAL NUMBER WITH LEADING 0'S
811
812 13450 0000 OPRINT, 0
813 13451 3320 DCA OTEM
814 13452 1320 TAD OTEM
815 13453 7012 RTR
816 13454 7010 RAR
817 13455 4261 JMS OPRI
818 13456 1320 TAD OTEM
819 13457 4261 JMS OPRI
820 13460 5650 JMP I OPRINT
821
822 13461 0000 OPRI, 0
823 13462 0374 AND (7
824 13463 1373 TAD (260
825 13464 4775' JMS PUTO
826 13465 5661 JMP I OPRI
827
828 13466 0000 PRINT4, 0
829 13467 3276 DCA DTM
830 13470 1276 TAD DTM
831 13471 7002 BSW
832 13472 4250 JMS OPRINT
833 13473 1276 TAD DTM
834 13474 4250 JMS OPRINT
835 13475 5666 JMP I PRINT4
836
837 13476 0000 DTM, 0
838
839 13477 0000 PUTPAK, 0
840 13500 3276 DCA DTM
841 13501 1276 TAD DTM
842 13502 7002 BSW
843 13503 4772' JMS PR
844 13504 4311 JMS BLNKIT
845 13505 1276 TAD DTM
846 13506 4772' JMS PR
847 13507 4311 JMS BLNKIT
848 13510 5677 JMP I PUTPAK
849
850 13511 0000 BLNKIT, 0
851 13512 1020 TAD FAST
852 13513 7640 SZA CLA
853 13514 1316 TAD L40
854 13515 4772' JMS PR
855 13516 0040 L40, 40 /CAN'T HURT TO CALL PR WITH A 0
856 13517 5711 JMP I BLNKIT
857 13520 0000 OTEM, 0
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 27
FILE # 1
858
859
860 13521 4771' NOFLST, JMS PRINT
861 13522 4504 .IF NDF GERMAN < TEXT /%DEV IS NOT FILE STRUCTURED/>
13523 0526
13524 4011
13525 2340
13526 1617
13527 2440
13530 0611
13531 1405
13532 4023
13533 2422
13534 2503
13535 2425
13536 2205
13537 0400
862 .IF DF GERMAN < TEXT /%GERAET OHNE DATEI-STRUKTUR/>
863 13540 5770' JMP NEXT
864
865 13541 0000 TYPEV, 0
866 13542 4771' JMS PRINT
867 13543 2205 TEXT /RESORC V50 /
13544 2317
13545 2203
13546 4026
13547 6560
13550 4000
868 3550 *.-1
869 13550 3000 RESVERSION&77^100
870 13551 4767' JMS CRLF
871 13552 5741 JMP I TYPEV
872
------
13567 2332
13570 2061
13571 2200
13572 2215
13573 0260
13574 0007
13575 2600
13576 0060
13577 2346
873 3600 PAGE
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 28
FILE # 1
874
875
876 13600 0000 MONVER, 0
877 13601 1020 TAD FAST
878 13602 7650 SNA CLA
879 13603 5600 JMP I MONVER
880 13604 1777 TAD I (INPKBM
881 13605 1376 TAD (-7607
882 13606 7450 SNA
883 13607 5232 JMP NOTV3
884 13610 1375 TAD (7607+60
885 13611 3231 DCA TEMPX
886 13612 1774 TAD I (INPKBM+31
887 13613 3230 DCA TMPTWO
888 13614 1373 OS8, TAD ("O
889 13615 4772' JMS PUTO
890 13616 4771' MONV2, JMS PRINT
891 13617 2357 TEXT \S/8 V\
13620 7040
13621 2600
892 13622 1231 TAD TEMPX
893 13623 4772' JMS PUTO
894 13624 1230 TAD TMPTWO
895 13625 4772' JMS PUTO
896 13626 4770' JMS MULSYS /GO CHECK ON MULTI-8 AND CRLF
897 13627 5600 JMP I MONVER
898
899 13630 0000 TMPTWO, 0
900 13631 0000 TEMPX, 0
901
902 13632 1367 NOTV3, TAD (40
903 13633 3230 DCA TMPTWO
904 /CHECK FOR PS/8 AND COS
905 13634 5214 JMP OS8
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 29
FILE # 1
906
907
908 13635 0000 PRIHND, 0
909 13636 1366 TAD (-17
910 13637 3024 DCA CNT
911 13640 3765' DCA FREEDV
912 13641 4764' JMS ZEROSL
913 13642 3023 DCA DEVNUM
914 13643 4763' JMS SETPTS
915 13644 4762' JMS HEADING
916 13645 2023 LOOP, ISZ DEVNUM /PT TO NEXT HANDLER
917 13646 1425 TAD I PDNT /LOOK AT DEVICE NAME
918 13647 7650 SNA CLA
919 13650 2765' ISZ FREEDV
920 13651 1020 TAD FAST
921 13652 7650 SNA CLA
922 13653 5256 JMP NONUM
923 13654 1023 TAD DEVNUM
924 13655 4761' JMS OPRINT
925 13656 1425 NONUM, TAD I PDNT
926 13657 7440 SZA
927 13660 4760' JMS NAME /PRINT NAME
928 13661 1020 TAD FAST
929 13662 7650 SNA CLA
930 13663 5311 JMP NEXXT
931 13664 1425 TAD I PDNT
932 13665 7650 SNA CLA
933 13666 5322 JMP PREMPT
934 13667 4757' JMS TIPE /PRINT TYPE
935 13670 1022 TAD EXTEN
936 13671 7650 SNA CLA
937 13672 5303 JMP PUSER
938 13673 4756' JMS MODE /PRINT MODE
939 13674 4755' JMS SIZE /PRINT SIZE
940 13675 4754' JMS BLOCK /PRINT BLOCK # OF LOC OF HANDLER
941 13676 4753' JMS VERSN /PRINT HANDLER VERSION #
942 13677 4752' JMS ENTRY /PRINT ENTRY POINT
943 13700 7240 STA /LAST 5 IN 1 OVERLAY!!
944 13701 3006 DCA UN /SET TO NO UNIT
945 13702 4751' JMS KIND /PRINT KIND
946 13703 1427 PUSER, TAD I PUDNT
947 13704 7650 SNA CLA
948 13705 5310 JMP EOL
949 13706 1427 TAD I PUDNT
950 13707 4760' JMS NAME /PRINT USER NAME
951 13710 4750' EOL, JMS CRLF
952 13711 2025 NEXXT, ISZ PDNT
953 13712 2027 ISZ PUDNT
954 13713 2030 ISZ PDHIT
955 13714 2031 ISZ PDCWT
956 13715 2037 ISZ PDHRT
957 13716 2024 ISZ CNT
958 13717 5245 JMP LOOP
959 13720 4750' JMS CRLF
960 13721 5635 JMP I PRIHND
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 30
FILE # 1
961
962
963 13722 4771' PREMPT, JMS PRINT
964 13723 4074 .IF NDF GERMAN < TEXT / <EMPTY>/>
13724 0515
13725 2024
13726 3176
13727 0000
965 .IF DF GERMAN < TEXT / <FREI>/>
966 13730 5310 JMP EOL
967 /DTN
968 /DKN
969 13731 1020 GOTIT, TAD FAST
970 13732 7640 SZA CLA
971 13733 4747' JMS PUTSP
972 13734 1346 TAD (LFT
973 13735 4745' JMS PUTNAM
974 13736 1020 TAD FAST
975 13737 7640 SZA CLA
976 13740 4747' JMS PUTSP
977 13741 5744' JMP NAMLV
978
------
13744 3067
13745 2714
13746 0033
13747 2523
13750 2332
13751 0000 *
13752 0000 *
13753 0000 *
13754 0000 *
13755 0000 *
13756 0000 *
13757 4316
13760 3000
13761 3450
13762 4200
13763 4263
13764 0000 *
13765 4030
13766 7761
13767 0040
13770 3323
13771 2200
13772 2600
13773 0317
13774 1431
13775 7667
13776 0171
13777 1400
979 4000 PAGE
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 31
FILE # 1
980
981
982 /FORMAT OF SYSTEM HEAD FILE
983
984 /REL BLK CONTENTS ABS BLK ON DEV
985
986 /0 BOOTSTRAP & PAGE 0'S 0
987 /1-4 KEYBOARD MONITOR 7-12
988 /5-7 USR 13-15
989 /10-17 DEVICE HANDLERS 16-25
990 /20 ENTER 26
991 /21-42 SCRATCH BLOCKS 27-50
992 /43-45 COMMAND DECODER 51-53
993 /46-47 SAVE,DATE 54-55
994 /50 ERROR OVERLAY 56
995 /51 CHAIN OVERLAY 57
996 /52-55 ODT 60-63
997 /56 RESERVED FOR EXPN 64
998 /57 CCL SCRATCH 65
999 /60 12K TD8E HANDLER 66
1000 /61 CCL OVERLAY 67
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 32
FILE # 1
1001
1002
1003 14000 0000 HNDLRS, 0
1004 14001 1777' TAD SBLOCK
1005 14002 7450 SNA /IS IT A FILE?
1006 14003 5264 JMP DEV /NO
1007 14004 3230 DCA BLCK0 /YES
1008 14005 1230 TAD BLCK0
1009 14006 1376 TAD (60
1010 14007 3240 DCA BLCK66
1011 14010 1775' TAD FILEN
1012 14011 1374 TAD (-6340
1013 14012 7640 SZA CLA
1014 14013 5773' JMP BADFIL /FILE DOESN'T HAVE LENGTH 50 (DECIMAL)
1015 14014 1230 TAD BLCK0
1016 14015 7001 IAC
1017 14016 3251 DCA KBM
1018 14017 1230 TAD BLCK0
1019 14020 1372 TAD (5
1020 14021 3255 DCA USRBLK
1021 14022 1230 TAD BLCK0
1022 14023 1371 TAD (10
1023 14024 3261 RD, DCA HNDBLK
1024 14025 4770' JMS READI /READ IN BLOCK 0
1025 14026 0210 210 /2 PAGES
1026 14027 5600 INPBL0
1027 FREEDV, /# OF FREE DEVICE NUMBERS
1028 14030 0000 BLCK0, 0
1029 14031 1767 TAD I (INPBL0+212 /** DEPENDS ON TD8E HANDLER
1030 14032 1366 TAD (-3
1031 14033 7640 SZA CLA /IS IT 12K TD8E?
1032 14034 5241 JMP NOTD8E /NO
1033 14035 4770' JMS READI /YES
1034 14036 0110 110 /1 PAGE
1035 14037 5600 INPBL0
1036 14040 0066 BLCK66, 66
1037 14041 1765 NOTD8E, TAD I (INPBL0+200
1038 14042 1364 TAD (-4207
1039 14043 7640 SZA CLA
1040 14044 5763' JMP BADMON /BAD MONITOR ON DEVICE
1041 14045 3007 DCA 7 /DELETE CURRENT USR DIRECTORY SEGMENT
1042 /SINCE KBM READS OVER IT
1043 14046 4770' JMS READI /READ IN KEYBOARD MONITOR
1044 14047 0211 211 /ONLY FIRST 2 PAGES
1045 14050 1400 INPKBM
1046 14051 0007 KBM, 7
1047 14052 4770' JMS READI /READ IN USR
1048 14053 0611 611 /6 PAGES
1049 14054 6200 INPUSR
1050 14055 0013 USRBLK, 13
1051 14056 4770' JMS READI /READ IN ALL HANDLERS (EXCEPT 2ND PAGE OF LAST ONE)
1052 14057 1700 1700 /17 PAGES
1053 14060 4000 INPHND
1054 14061 0016 HNDBLK, 16
1055 14062 4762' JMS PRIHND
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 32-1
FILE # 1
1056 14063 5600 JMP I HNDLRS
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 33
FILE # 1
1057
1058
1059 14064 3230 DEV, DCA BLCK0
1060 14065 1361 TAD (66
1061 14066 3240 DCA BLCK66
1062 14067 1360 TAD (7
1063 14070 3251 DCA KBM
1064 14071 1357 TAD (13
1065 14072 3255 DCA USRBLK
1066 14073 6201 CDF 0
1067 14074 1756 TAD I (4001 /GET STARTING BLOCK # OF FILES
1068 14075 6211 CDF 10
1069 14076 1355 TAD (-7
1070 14077 7650 SNA CLA
1071 14100 5754' JMP NONSYS /FILES START AT BLOCK 7 OF DEVICE
1072 14101 1353 TAD (16
1073 /CHECK TO SEE THAT DEVICE HAS SYSTEM ON IT
1074 14102 5224 JMP RD
1075
1076
------
14153 0016
14154 3105
14155 7771
14156 4001
14157 0013
14160 0007
14161 0066
14162 3635
14163 3122
14164 3571
14165 6000
14166 7775
14167 6012
14170 3260
14171 0010
14172 0005
14173 3070
14174 1440
14175 2122
14176 0060
14177 2125
1077 4200 PAGE
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 34
FILE # 1
1078
1079
1080 14200 0000 HEADING,0
1081 14201 1020 TAD FAST
1082 14202 7650 SNA CLA
1083 14203 5600 JMP I HEADING
1084 14204 1022 TAD EXTEN
1085 14205 7650 SNA CLA
1086 14206 5245 JMP REGLR
1087 14207 4777' JMS PRINT
1088 14210 4340 .IF NDF GERMAN <TEXT /# NAME TYPE MODE SIZE BLK V ENT KIND U USER/>
14211 4040
14212 1601
14213 1505
14214 4040
14215 2431
14216 2005
14217 4040
14220 1517
14221 0405
14222 4023
14223 1132
14224 0540
14225 4002
14226 1413
14227 4040
14230 2640
14231 4005
14232 1624
14233 4040
14234 1311
14235 1604
14236 4040
14237 2540
14240 4040
14241 2523
14242 0522
14243 0000
1089 .IF DF GERMAN <TEXT /# NAME TYP MODUS BLKE ORT V ADR ART EH ASS./>
1090 14244 5261 JMP HDLV
1091 14245 4777' REGLR, JMS PRINT
1092 14246 4340 .IF NDF GERMAN < TEXT /# NAME TYPE USER/>
14247 4040
14250 1601
14251 1505
14252 4040
14253 2431
14254 2005
14255 4040
14256 2523
14257 0522
14260 0000
1093 .IF DF GERMAN < TEXT /# NAME TYP ASS./>
1094 14261 4776' HDLV, JMS CRLF
1095 14262 5600 JMP I HEADING
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 35
FILE # 1
1096
1097
1098 14263 0000 SETPTS, 0
1099 14264 1775 TAD I (INPUSR+36
1100 14265 1374 TAD (INPUSR
1101 14266 3025 DCA PDNT
1102 14267 1773' TAD FLAG
1103 14270 7640 SZA CLA
1104 14271 1372 TAD (7741-141-INPBL0
1105 14272 1371 TAD (INPBL0+141
1106 14273 3027 DCA PUDNT
1107 /CHANGE FOR FLAG?
1108 14274 1770 TAD I (INPUSR+37
1109 14275 1374 TAD (INPUSR
1110 14276 3030 DCA PDHIT
1111 /FLAG?
1112 14277 1367 TAD (INPBL0+160
1113 14300 3031 DCA PDCWT
1114 14301 1366 TAD (INPBL0+47
1115 14302 3037 DCA PDHRT /DEVICE HANDLER RESIDENCY TABLE
1116 14303 5663 JMP I SETPTS
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 36
FILE # 1
1117
1118
1119 14304 0000 CODE, 0 /DEVICE CODE
1120
1121 14305 0000 NNAME, 0
1122 14306 3316 DCA TIPE
1123 14307 1365 TAD (' (
1124 14310 4764' JMS PUTPAK
1125 14311 1316 TAD TIPE
1126 14312 4763' JMS PRINT4
1127 14313 1362 TAD (')
1128 14314 4764' JMS PUTPAK
1129 14315 5705 JMP I NNAME
1130
1131 14316 0000 TIPE, 0
1132 14317 1431 TAD I PDCWT
1133 14320 7012 RTR
1134 14321 7010 RAR
1135 14322 0361 AND (77
1136 14323 3304 DCA CODE
1137 14324 1304 TAD CODE
1138 14325 7106 CLL RTL
1139 14326 1360 TAD (TYPTBL
1140 14327 3032 DCA PTYP
1141 14330 4757' JMS GETTYP
1142 14331 2032 ISZ PTYP
1143 14332 7450 SNA
1144 14333 5341 JMP UNKN
1145 14334 4764' JMS PUTPAK
1146 14335 4757' JMS GETTYP
1147 14336 4764' JMS PUTPAK
1148 14337 2032 ISZ PTYP /POINT TO SIZE
1149 14340 5716 JMP I TIPE
1150 14341 4756' UNKN, JMS BLNKIT
1151 14342 1304 TAD CODE
1152 14343 4755' JMS OPRINT
1153 14344 4756' JMS BLNKIT
1154 14345 2032 ISZ PTYP
1155 14346 5716 JMP I TIPE
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 37
FILE # 1
1156
1157
1158 /
------
14355 3450
14356 3511
14357 2707
14360 0000 *
14361 0077
14362 5140
14363 3466
14364 3477
14365 4050
14366 5647
14367 5760
14370 6237
14371 5741
14372 2000
14373 2126
14374 6200
14375 6236
14376 2332
14377 2200
1159 4400 PAGE
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 38
FILE # 1
1160
1161
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 39
FILE # 1
1162
1163
/OS/8 RESOURCES PROGRAM FOR KBM MACREL-V2C WED 10-JUN-87 PAGE 40
SYMBOL TABLE
A 2266 HEADIN 4200 OPRINT G 3450 TMPTWO 3630
ARG1 3274 HNDBLK 4061 OS8 3614 TPRINT 2227
ARG2 3275 HNDLRS 4000 OTEM 3520 TPUT 2242
ARG3 3276 IENTRY 3320 OUTERR 2511 TRY1 3013
BADFIL 3070 INERR 3301 OUTLEN 2414 TRY2LT 3024
BADMON 3122 INLOOP 2027 O2 2441 TRY4 3064
BLCK0 4030 INL2 2033 PDCWT 0031 TYPE 2255
BLCK66 4040 INPBL0 G 5600 PDHIT 0030 TYPEV 3541
BLNKIT 3511 INPHND G 4000 PDHRT 0037 TYPE2 2272
BLOC 0036 INPKBM G 1400 PDNT 0025 TYPTBL X ****
BLOCK X **** INPTR 2121 PLST 3445 TYTEM 2270
CD 2002 INPUSR G 6200 PR 2215 UN 0006
CLOSEO 2400 ISZZ 3433 PRBLNK 3435 UNKN 4341
CNT 0024 KBM 4051 PRDASH 3134 USRBLK 4055
CNTSLT X **** KIND X **** PREMPT 3722 VERSN X ****
CODE 4304 KNT 2471 PRIHND 3635 XFERV G 0070
CRLF G 2332 LETR 3060 PRINT G 2200 XR1 0011
CTRLO 2271 LFT 0033 PRINT4 3466 X0 0010
CTRLS 2327 LNK 3447 PRT 2214 X1 2605
CTROLO 2316 LOOKC 2300 PTYP 0032 X2 2612
CTSBCK 2301 LOOP 3645 PUDNT 0027 X3 2616
DCW 2123 L40 3516 PUSER 3703 ZEROSL X ****
DEFALT 2472 L7601 2413 PUTCR 2253 ZFLG 3446
DEV 4064 MODE X **** PUTJMP 2604
DEVFUL 3200 MONVER 3600 PUTKNT 2667
DEVNUM 0023 MONV2 3616 PUTLV 2610
DIG 0021 MULSYS 3323 PUTNAM G 2714
DIRECT 2671 NAM 3023 PUTNMT 2724
DIRT X **** NAME 3000 PUTO G 2600
DLST 2346 NAMLV 3067 PUTPAK 3477
DNTONM X **** NEGG 3422 PUTPT1 2665
DPLUP 3410 NEXT 2061 PUTPT2 2666
DPL2 3407 NEXXT 3711 PUTSP G 2523
DPRINT G 3400 NNAME 4305 RD 4024
DTM 3476 NOCD 2005 READI G 3260
DVN 2501 NODI 3062 REGLR 4245
DVNO 0035 NOFLST 3521 RESORC 4400 ASECT
DYG 3444 NOM8 3342 RESVER 0330
ENTRY X **** NONSYS 3105 RT 0034
EOL 3710 NONUM 3656 SBLKO 2457
EXTEN 0022 NOTD8E 4041 SBLOCK 2125
FAST 0020 NOTF 2112 SETIFA 3044
FILEN 2122 NOTTY 3232 SETPTS 4263
FILENO 2124 NOTV3 3632 SETSW 2101
FINI 2063 NOWR 3213 SIZE X ****
FINIS 2064 OBLOCK 2656 SLOTAB G 2677
FLAG 2126 OENT 2502 SPCASE 2127
FLD: 0 0200 ASECT OENTR 2664 START 2000
FREEDV G 4030 OENTRY 2437 SWAPER X ****
GERMAN G ****? <---- OINIT 3246 TCRLF 2340
GETDCW 2071 OLEN 2460 TEMP 0026
GETTYP G 2707 OPENI 3312 TEMPX 3631
GOTIT 3731 OPENO 2417 TIPE 4316
HDLV 4261 OPRI 3461 TMP 2670