|
|
1.1 root 1: .file "util.c"
2: .data
3: .L83:
4: .byte 0xa,0x44,0x72,0x69,0x76,0x65,0x20,0x69
5: .byte 0x73,0x20,0x6e,0x6f,0x74,0x20,0x72,0x65
6: .byte 0x61,0x64,0x79,0x21,0x0
7: .L86:
8: .byte 0xa,0x49,0x6e,0x76,0x61,0x6c,0x69,0x64
9: .byte 0x20,0x64,0x69,0x73,0x6b,0x20,0x61,0x64
10: .byte 0x64,0x72,0x65,0x73,0x73,0x20,0x69,0x73
11: .byte 0x73,0x75,0x65,0x64,0x21,0x0
12: .L89:
13: .byte 0xa,0x4e,0x6f,0x6e,0x2d,0x65,0x78,0x69
14: .byte 0x73,0x74,0x65,0x6e,0x74,0x20,0x6d,0x65
15: .byte 0x6d,0x6f,0x72,0x79,0x20,0x65,0x72,0x72
16: .byte 0x6f,0x72,0x21,0x0
17: .L92:
18: .byte 0xa,0x4d,0x61,0x69,0x6e,0x20,0x6d,0x65
19: .byte 0x6d,0x6f,0x72,0x79,0x20,0x70,0x61,0x72
20: .byte 0x69,0x74,0x79,0x20,0x65,0x72,0x72,0x6f
21: .byte 0x72,0x21,0x0
22: .L95:
23: .byte 0xa,0x43,0x50,0x55,0x20,0x61,0x62,0x6f
24: .byte 0x72,0x74,0x65,0x64,0x20,0x6f,0x70,0x65
25: .byte 0x72,0x61,0x74,0x69,0x6f,0x6e,0x21,0x0
26: .L98:
27: .byte 0xa,0x44,0x72,0x69,0x76,0x65,0x20,0x69
28: .byte 0x73,0x20,0x77,0x72,0x69,0x74,0x65,0x20
29: .byte 0x70,0x72,0x6f,0x74,0x65,0x63,0x74,0x65
30: .byte 0x64,0x21,0x0
31: .L101:
32: .byte 0xa,0x44,0x69,0x73,0x6b,0x20,0x73,0x65
33: .byte 0x65,0x6b,0x20,0x65,0x72,0x72,0x6f,0x72
34: .byte 0x21,0x0
35: .L103:
36: .byte 0xa,0x4e,0x6f,0x74,0x20,0x6f,0x6e,0x20
37: .byte 0x63,0x79,0x6c,0x69,0x6e,0x64,0x65,0x72
38: .byte 0x20,0x65,0x72,0x72,0x6f,0x72,0x21,0x0
39: .L104:
40: .byte 0x20,0x20,0x20,0x20,0x53,0x74,0x61,0x74
41: .byte 0x75,0x73,0x20,0x3d,0x20,0x25,0x6c,0x78
42: .byte 0xa,0x0
43: .set .R76,0x0
44: .set .R105,0x0
45: .L113:
46: .byte 0x66,0x74,0x20,0x6c,0x69,0x6e,0x65,0x30
47: .byte 0x2e,0x0
48: .L114:
49: .byte 0x66,0x74,0x20,0x6c,0x69,0x6e,0x65,0x31
50: .byte 0x2e,0x0
51: .L115:
52: .byte 0x66,0x74,0x20,0x6c,0x69,0x6e,0x65,0x32
53: .byte 0x2e,0x0
54: .L116:
55: .byte 0x66,0x74,0x20,0x6c,0x69,0x6e,0x65,0x33
56: .byte 0x2e,0x0
57: .set .R109,0x1c
58: .set .R118,0x4
59: .L126:
60: .byte 0x66,0x73,0x20,0x6c,0x69,0x6e,0x65,0x30
61: .byte 0x2e,0x0
62: .L127:
63: .byte 0x66,0x73,0x20,0x6c,0x69,0x6e,0x65,0x31
64: .byte 0x2e,0x0
65: .L128:
66: .byte 0x66,0x73,0x20,0x6c,0x69,0x6e,0x65,0x32
67: .byte 0x2e,0x0
68: .set .R122,0x1c
69: .L137:
70: .byte 0x2a,0x2a,0x20,0x57,0x61,0x72,0x6e,0x69
71: .byte 0x6e,0x67,0x20,0x2d,0x20,0x55,0x6e,0x61
72: .byte 0x62,0x6c,0x65,0x20,0x74,0x6f,0x20,0x72
73: .byte 0x65,0x6c,0x6f,0x63,0x61,0x74,0x65,0x20
74: .byte 0x73,0x65,0x63,0x74,0x6f,0x72,0x20,0x25
75: .byte 0x64,0x2c,0x0
76: .L138:
77: .byte 0x74,0x6f,0x20,0x6d,0x61,0x70,0x20,0x6f
78: .byte 0x75,0x74,0x20,0x75,0x73,0x65,0x69,0x6e
79: .byte 0x67,0x20,0x42,0x41,0x44,0x53,0x45,0x43
80: .byte 0x54,0x20,0x75,0x73,0x65,0x20,0x74,0x68
81: .byte 0x65,0x20,0x66,0x6f,0x6c,0x6c,0x6f,0x77
82: .byte 0x69,0x6e,0x67,0x20,0x76,0x61,0x6c,0x75
83: .byte 0x65,0x73,0x3a,0xa,0x0
84: .L143:
85: .byte 0x4f,0x6e,0x20,0x74,0x68,0x65,0x20,0x27
86: .byte 0x25,0x63,0x27,0x20,0x50,0x61,0x72,0x74
87: .byte 0x69,0x74,0x69,0x6f,0x6e,0x20,0x75,0x73
88: .byte 0x65,0x20,0x62,0x6c,0x6f,0x63,0x6b,0x20
89: .byte 0x25,0x64,0x2e,0xa,0x0
90: .set .R131,0x4
91: .L149:
92: .byte 0x66,0x72,0x6f,0x6d,0x20,0x75,0x6e,0x69
93: .byte 0x78,0x2e,0x0
94: .L151:
95: .byte 0x6c,0x69,0x6e,0x65,0x20,0x31,0x2e,0x0
96: .L153:
97: .byte 0x6c,0x69,0x6e,0x65,0x20,0x32,0x2e,0x0
98: .L154:
99: .byte 0x6c,0x69,0x6e,0x65,0x20,0x33,0x2e,0x0
100: .L155:
101: .byte 0x6c,0x69,0x6e,0x65,0x20,0x34,0x2e,0x0
102: .L156:
103: .byte 0x6c,0x69,0x6e,0x65,0x20,0x35,0x2e,0x0
104: .L157:
105: .byte 0x6c,0x69,0x6e,0x65,0x20,0x36,0x2e,0x0
106: .L158:
107: .byte 0x6c,0x69,0x6e,0x65,0x20,0x37,0x2e,0x0
108: .L160:
109: .byte 0x64,0x6f,0x6e,0x65,0x20,0x66,0x72,0x6f
110: .byte 0x6d,0x20,0x75,0x6e,0x69,0x78,0x2e,0x0
111: .set .R145,0x1000
112: .set .R162,0x1800
113: .set .R168,0x1c00
114: .L181:
115: .byte 0x28,0x25,0x64,0x3a,0x25,0x64,0x2c,0x25
116: .byte 0x64,0x29,0x0
117: .set .R174,0x1e00
118: .data
119: .globl _lastcyl
120: .comm _lastcyl,256
121: .globl _dkprf
122: .comm _dkprf,26368
123: .globl _skprf
124: .comm _skprf,26368
125: .globl _operations
126: .comm _operations,84
127: .globl _ops_to_do
128: .comm _ops_to_do,1024
129: .globl _reset_environ
130: .comm _reset_environ,56
131: .globl _quit_environ
132: .comm _quit_environ,56
133: .globl _abort_environ
134: .comm _abort_environ,56
135: .globl _cur
136: .comm _cur,24
137: .globl _c_info
138: .comm _c_info,256
139: .globl _d_info
140: .comm _d_info,3584
141: .globl _bs_map_space
142: .comm _bs_map_space,8192
143: .globl _bad_map
144: .comm _bad_map,4
145: .globl _kill_processes
146: .comm _kill_processes,4
147: .globl _num_controllers
148: .comm _num_controllers,4
149: .globl _free_tbl
150: .comm _free_tbl,36864
151: .globl _mdcb
152: .comm _mdcb,16
153: .globl _dcb
154: .comm _dcb,1048
155: .globl _pattern_0
156: .comm _pattern_0,32768
157: .globl _pattern_1
158: .comm _pattern_1,32768
159: .globl _pattern_2
160: .comm _pattern_2,32768
161: .globl _pattern_3
162: .comm _pattern_3,32768
163: .globl _pattern_4
164: .comm _pattern_4,32768
165: .globl _pattern_5
166: .comm _pattern_5,32768
167: .globl _pattern_6
168: .comm _pattern_6,32768
169: .globl _pattern_7
170: .comm _pattern_7,32768
171: .globl _pattern_8
172: .comm _pattern_8,32768
173: .globl _pattern_9
174: .comm _pattern_9,32768
175: .globl _pattern_10
176: .comm _pattern_10,32768
177: .globl _pattern_11
178: .comm _pattern_11,32768
179: .globl _pattern_12
180: .comm _pattern_12,32768
181: .globl _pattern_13
182: .comm _pattern_13,32768
183: .globl _pattern_14
184: .comm _pattern_14,32768
185: .globl _pattern_15
186: .comm _pattern_15,32768
187: .globl _pattern_address
188: .comm _pattern_address,64
189: .globl _scratch
190: .comm _scratch,32768
191: .globl _save
192: .comm _save,32768
193: .text
194: .align 2
195: .globl _data_ok
196: _data_ok:
197: .word .R76
198: jbr .L78
199: .L79:
200: bitl $40148,4(fp)
201: jeql .L80
202: bitl $128,4(fp)
203: jeql .L81
204: .text
205: pushl $.L83
206: callf $8,_printf
207: jbr .L84
208: .L81:
209: bitl $1024,4(fp)
210: jeql .L85
211: .text
212: pushl $.L86
213: callf $8,_printf
214: jbr .L87
215: .L85:
216: bitl $2048,4(fp)
217: jeql .L88
218: .text
219: pushl $.L89
220: callf $8,_printf
221: jbr .L90
222: .L88:
223: bitl $4096,4(fp)
224: jeql .L91
225: .text
226: pushl $.L92
227: callf $8,_printf
228: jbr .L93
229: .L91:
230: bitl $32768,4(fp)
231: jeql .L94
232: .text
233: pushl $.L95
234: callf $8,_printf
235: jbr .L96
236: .L94:
237: bitl $4,4(fp)
238: jeql .L97
239: .text
240: pushl $.L98
241: callf $8,_printf
242: jbr .L99
243: .L97:
244: bitl $16,4(fp)
245: jeql .L100
246: .text
247: pushl $.L101
248: callf $8,_printf
249: jbr .L102
250: .L100:
251: .text
252: pushl $.L103
253: callf $8,_printf
254: .L102:
255: .L99:
256: .L96:
257: .L93:
258: .L90:
259: .L87:
260: .L84:
261: .text
262: pushl 4(fp)
263: pushl $.L104
264: callf $12,_printf
265: pushl $-1
266: pushl $_abort_environ
267: callf $12,_longjmp
268: .L80:
269: bitl $8331304,4(fp)
270: jneq .L9999
271: movl $1,r0
272: jbr .L9998
273: .L9999:
274: clrl r0
275: .L9998:
276: ret#1
277: ret#1
278: .L78:
279: jbr .L79
280: .data
281: .text
282: .align 2
283: .globl _to_track
284: _to_track:
285: .word .R105
286: jbr .L107
287: .L108:
288: mull3 $448,_cur,r0
289: addl2 $_d_info,r0
290: mull3 $28,_cur+4,r1
291: addl2 r1,r0
292: movl 8(r0),r0
293: movl 8(r0),r0
294: cvtwl 6(fp),r1
295: mull2 r1,r0
296: cvtbl 4(fp),r1
297: addl2 r1,r0
298: ret#1
299: ret#1
300: .L107:
301: jbr .L108
302: .data
303: .text
304: .align 2
305: .globl _from_track
306: _from_track:
307: .word .R109
308: jbr .L111
309: .L112:
310: .text
311: pushl $.L113
312: callf $8,_printf
313: mull3 $448,_cur,r0
314: addl2 $_d_info,r0
315: mull3 $28,_cur+4,r1
316: addl2 r1,r0
317: movl 8(r0),r0
318: divl3 8(r0),4(fp),r0
319: cvtlw r0,-54(fp)
320: .text
321: pushl $.L114
322: callf $8,_printf
323: mull3 $448,_cur,r0
324: addl2 $_d_info,r0
325: mull3 $28,_cur+4,r1
326: addl2 r1,r0
327: movl 8(r0),r0
328: clrl r2
329: movl 4(fp),r3
330: jgeq .L9997
331: mnegl $1,r2
332: .L9997:
333: ediv 8(r0),r2,r1,r4
334: cvtlb r4,-56(fp)
335: .text
336: pushl $.L115
337: callf $8,_printf
338: clrb -55(fp)
339: .text
340: pushl $.L116
341: callf $8,_printf
342: subl3 $56,fp,r0
343: jbr .L110
344: .L110:
345: .data
346: .align 4
347: .L117: .space 4
348: .text
349: movab .L117,r1
350: movl (r0),(r1)
351: movab .L117,r0
352: ret#1
353: .L111:
354: subl3 $56,fp,sp
355: jbr .L112
356: .data
357: .text
358: .align 2
359: .globl _to_sector
360: _to_sector:
361: .word .R118
362: jbr .L120
363: .L121:
364: movab -4(sp),sp
365: movl 4(fp),(sp)
366: callf $8,_to_track
367: mull3 $448,_cur,r1
368: addl2 $_d_info,r1
369: mull3 $28,_cur+4,r2
370: addl2 r2,r1
371: movl 8(r1),r1
372: mull2 4(r1),r0
373: cvtbl 5(fp),r1
374: addl2 r1,r0
375: ret#1
376: ret#1
377: .L120:
378: jbr .L121
379: .data
380: .text
381: .align 2
382: .globl _from_sector
383: _from_sector:
384: .word .R122
385: jbr .L124
386: .L125:
387: .text
388: pushl $.L126
389: callf $8,_printf
390: mull3 $448,_cur,r0
391: addl2 $_d_info,r0
392: mull3 $28,_cur+4,r1
393: addl2 r1,r0
394: movl 8(r0),r0
395: divl3 4(r0),4(fp),r0
396: pushl r0
397: callf $8,_from_track
398: movl (r0),-56(fp)
399: .text
400: pushl $.L127
401: callf $8,_printf
402: mull3 $448,_cur,r0
403: addl2 $_d_info,r0
404: mull3 $28,_cur+4,r1
405: addl2 r1,r0
406: movl 8(r0),r0
407: clrl r2
408: movl 4(fp),r3
409: jgeq .L9996
410: mnegl $1,r2
411: .L9996:
412: ediv 4(r0),r2,r1,r4
413: cvtlb r4,-55(fp)
414: .text
415: pushl $.L128
416: callf $8,_printf
417: subl3 $56,fp,r0
418: jbr .L123
419: .L123:
420: .data
421: .align 4
422: .L129: .space 4
423: .text
424: movab .L129,r1
425: movl (r0),(r1)
426: movab .L129,r0
427: ret#1
428: .L124:
429: subl3 $56,fp,sp
430: jbr .L125
431: .data
432: .text
433: .align 2
434: .globl _print_unix_block
435: _print_unix_block:
436: .word .R131
437: jbr .L133
438: .L134:
439: mull3 $448,_cur,r0
440: addl2 $_d_info,r0
441: mull3 $28,_cur+4,r1
442: addl2 r1,r0
443: divl3 *8(r0),$1024,r0
444: movl r0,-64(fp)
445: callf $4,_indent
446: movab -4(sp),sp
447: movl 4(fp),(sp)
448: callf $8,_to_sector
449: divl2 -64(fp),r0
450: movl r0,-60(fp)
451: .text
452: movab -4(sp),sp
453: movl 4(fp),(sp)
454: callf $8,_to_sector
455: pushl r0
456: pushl $.L137
457: callf $12,_print
458: callf $4,_indent
459: .text
460: pushl $.L138
461: callf $8,_print
462: callf $4,_indent
463: clrb -56(fp)
464: .L141:
465: cmpb -56(fp),$8
466: jgeq .L140
467: cvtbl -56(fp),r0
468: mull3 $448,_cur,r1
469: addl2 $_d_info,r1
470: mull3 $28,_cur+4,r2
471: addl2 r2,r1
472: addl3 $96,8(r1),r1
473: shll $3,r0,r0
474: addl2 r0,r1
475: movl (r1),-68(fp)
476: mull3 $448,_cur,r0
477: addl2 $_d_info,r0
478: mull3 $28,_cur+4,r1
479: addl2 r1,r0
480: addl3 $96,8(r0),r0
481: cvtbl -56(fp),r1
482: shll $3,r1,r1
483: addl2 r1,r0
484: movl 4(r0),-72(fp)
485: addl3 -72(fp),-68(fp),r0
486: cmpl -60(fp),r0
487: jgeq .L142
488: cmpl -60(fp),-68(fp)
489: jlss .L142
490: .text
491: subl3 -68(fp),-60(fp),r0
492: pushl r0
493: cvtbl -56(fp),r0
494: addl2 $97,r0
495: pushl r0
496: pushl $.L143
497: callf $16,_print
498: .L142:
499: .L139:
500: cvtbl -56(fp),r0
501: incb -56(fp)
502: jbr .L141
503: .L140:
504: pushl $3
505: callf $8,_exdent
506: ret#2
507: .L133:
508: subl3 $72,fp,sp
509: jbr .L134
510: .data
511: .text
512: .align 2
513: .globl _from_unix
514: _from_unix:
515: .word .R145
516: jbr .L147
517: .L148:
518: .text
519: pushl $.L149
520: callf $8,_printf
521: movzbl 7(fp),-(sp)
522: callf $8,_tolower
523: subl2 $97,r0
524: movl r0,r12
525: .text
526: pushl $.L151
527: callf $8,_printf
528: cmpl r12,$8
529: jgeq .L152
530: mull3 $448,_cur,r0
531: addl2 $_d_info,r0
532: mull3 $28,_cur+4,r1
533: addl2 r1,r0
534: addl3 $96,8(r0),r0
535: shll $3,r12,r1
536: addl2 r1,r0
537: cmpl 8(fp),4(r0)
538: jgtru .L152
539: .text
540: pushl $.L153
541: callf $8,_printf
542: mull3 $448,_cur,r0
543: addl2 $_d_info,r0
544: mull3 $28,_cur+4,r1
545: addl2 r1,r0
546: addl3 $96,8(r0),r0
547: shll $3,r12,r1
548: addl2 r1,r0
549: movl (r0),-56(fp)
550: .text
551: pushl $.L154
552: callf $8,_printf
553: addl2 8(fp),-56(fp)
554: .text
555: pushl $.L155
556: callf $8,_printf
557: emul $1024,-56(fp),$0,r0
558: movl r1,-56(fp)
559: .text
560: pushl $.L156
561: callf $8,_printf
562: mull3 $448,_cur,r0
563: addl2 $_d_info,r0
564: mull3 $28,_cur+4,r1
565: addl2 r1,r0
566: pushl *8(r0)
567: pushl -56(fp)
568: callf $12,udiv
569: movl r0,-56(fp)
570: .text
571: pushl $.L157
572: callf $8,_printf
573: pushl -56(fp)
574: callf $8,_from_sector
575: movl (r0),-60(fp)
576: .text
577: pushl $.L158
578: callf $8,_printf
579: jbr .L159
580: .L152:
581: mnegw $1,-58(fp)
582: mnegb $1,-60(fp)
583: mnegb $1,-59(fp)
584: .L159:
585: .text
586: pushl $.L160
587: callf $8,_printf
588: subl3 $60,fp,r0
589: jbr .L146
590: .L146:
591: .data
592: .align 4
593: .L161: .space 4
594: .text
595: movab .L161,r1
596: movl (r0),(r1)
597: movab .L161,r0
598: ret#1
599: .L147:
600: subl3 $60,fp,sp
601: jbr .L148
602: .data
603: .text
604: .align 2
605: .globl _blkzero
606: _blkzero:
607: .word .R162
608: jbr .L164
609: .L165:
610: movl 4(fp),r12
611: movl 8(fp),r11
612: .L166:
613: movl r11,r0
614: decl r11
615: tstl r0
616: jeql .L167
617: clrb (r12)
618: incl r12
619: jbr .L166
620: .L167:
621: ret#2
622: .L164:
623: jbr .L165
624: .data
625: .text
626: .align 2
627: .globl _blkcopy
628: _blkcopy:
629: .word .R168
630: jbr .L170
631: .L171:
632: movl 4(fp),r12
633: movl 8(fp),r11
634: movl 12(fp),r10
635: .L172:
636: movl r10,r0
637: decl r10
638: tstl r0
639: jeql .L173
640: movb (r12),(r11)
641: incl r12
642: incl r11
643: jbr .L172
644: .L173:
645: ret#2
646: .L170:
647: jbr .L171
648: .data
649: .text
650: .align 2
651: .globl _blkcmp
652: _blkcmp:
653: .word .R174
654: jbr .L176
655: .L177:
656: movl 4(fp),r12
657: movl 8(fp),r11
658: movl 12(fp),r10
659: clrl r9
660: .L178:
661: movl r10,r0
662: decl r10
663: tstl r0
664: jeql .L179
665: movl r12,r0
666: incl r12
667: movl r11,r1
668: incl r11
669: cmpb (r0),(r1)
670: jeql .L180
671: .text
672: pushb -1(r11)
673: pushb -1(r12)
674: pushl r9
675: pushl $.L181
676: callf $20,_printf
677: clrl r0
678: ret#1
679: .L180:
680: incl r9
681: jbr .L178
682: .L179:
683: movl $1,r0
684: ret#1
685: ret#1
686: .L176:
687: jbr .L177
688: .data
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.