![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ra.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / lsys / io|
Return to ra.s CVS log | Up to [Research Unix] / researchv10dc / lsys / io |
1.1 root 1: .data
2: .globl _rabdev
3: .align 2; _rabdev:.long _raopen
4: .long _raclose
5: .long _rastrategy
6: .long 0
7: .globl _racdev
8: .align 2; _racdev:.long _raopen
9: .long _raclose
10: .long _raread
11: .long _rawrite
12: .long _raioctl
13: .long _nulldev
14: .long 0x0
15: .globl _ra_sizes
16: .align 2; _ra_sizes:.long 10240
17: .long 0
18: .long 20480
19: .long 10240
20: .long 249848
21: .long 30720
22: .long 249848
23: .long 280568
24: .long 249848
25: .long 530416
26: .long 2147483647
27: .long 780264
28: .long 749544
29: .long 30720
30: .long 2147483647
31: .long 0
32: .text
33: .globl _raopen
34: .align 1
35: _raopen:.word 0xe00
36: movw 4(ap),4(ap)
37: movzwl 4(ap),r5
38: ashl $-3,r5,r5
39: bicl3 $0xfffffff8,r5,r11
40: cmpl r11,_racnt; jlss L10
41: movb $6,_u+197
42: ret
43: L10:mull3 r11,$44,r5
44: addl3 $_radisk,r5,r10
45: moval 0[r11],r5
46: addl3 $_raaddr,r5,r9
47: tstw 4(r10); jneq L12
48: cvtbl 1(r9),r5
49: jlss L17
50: cmpl r5,_nmsport; jgeq L17
51: movl _msportsw[r5],(r10)
52: jnequ L14
53: L17:movb $6,_u+197
54: ret
55: L14:movl $2147483647,24(r10)
56: pushal _radg
57: pushal _raseql
58: clrl -(sp)
59: clrl -(sp)
60: cvtbl 1(r9),-(sp)
61: cvtbl (r9),-(sp)
62: movl *(r10),r5
63: calls $24/4,(r5)
64: tstl r0; jneq L18
65: movb $6,_u+197
66: ret
67: L18:pushl r9
68: pushl r10
69: calls $8/4,_racinit
70: L12:movzwl 4(ap),r5
71: bicl2 $0xfffffff8,r5
72: ashl r5,$1,r5
73: bisw2 r5,4(r10)
74: calls $0/4,_spl6
75: cvtbl 6(r10),r5
76: bicl2 $0xfffffffe,r5
77: tstl r5; jneq L20
78: pushl r9
79: pushl r10
80: calls $8/4,_raonline
81: L20:calls $0/4,_spl0
82: cvtbl 6(r10),r5
83: bicl2 $0xfffffffe,r5
84: tstl r5; jneq L22
85: movb $6,_u+197
86: L22:ret
87: .globl _raclose
88: .align 1
89: _raclose:.word 0xe00
90: movl 4(ap),r5
91: ashl $-3,r5,r4
92: bicl2 $0xfffffff8,r4
93: mull3 r4,$44,r3
94: addl3 $_radisk,r3,r11
95: moval 0[r4],r4
96: addl3 $_raaddr,r4,r10
97: bicl2 $0xfffffff8,r5
98: ashl r5,$1,r5
99: mcoml r5,r5
100: mcoml r5,r5
101: bicw2 r5,4(r11)
102: tstw 4(r11); jneq L26
103: cvtbl 6(r11),r5
104: bicl2 $0xfffffffe,r5
105: tstl r5; jneq L24
106: L26:ret
107: L24:cvtbl (r10),-(sp)
108: movl (r11),r5
109: calls $4/4,*4(r5)
110: movl r0,r9
111: addl3 $1,_rarefno,r5
112: movl r5,_rarefno
113: movl r5,(r9)
114: movw 2(r10),4(r9)
115: movb $8,8(r9)
116: cvtbl 6(r11),r5
117: bicl2 $0xffffffbf,r5
118: tstl r5; jneq L27
119: clrw 10(r9)
120: jbr L28
121: L27:movw $1,10(r9)
122: bicb2 $64,6(r11)
123: L28:clrw 14(r9)
124: clrl 28(r9)
125: bicb2 $1,6(r11)
126: pushl r9
127: clrl -(sp)
128: cvtbl (r10),-(sp)
129: movl (r11),r5
130: calls $12/4,*12(r5)
131: ret
132: .globl _raread
133: .align 1
134: _raread:.word 0x0
135: pushal _minphys
136: pushl $1
137: movl 4(ap),r5
138: pushl r5
139: ashl $-3,r5,r5
140: bicl2 $0xfffffff8,r5
141: mull2 $44,r5
142: pushal _rabuf(r5)
143: pushal _rastrategy
144: calls $20/4,_physio
145: ret
146: .globl _rawrite
147: .align 1
148: _rawrite:.word 0x0
149: pushal _minphys
150: clrl -(sp)
151: movl 4(ap),r5
152: pushl r5
153: ashl $-3,r5,r5
154: bicl2 $0xfffffff8,r5
155: mull2 $44,r5
156: pushal _rabuf(r5)
157: pushal _rastrategy
158: calls $20/4,_physio
159: ret
160: .globl _rastrategy
161: .align 1
162: _rastrategy:.word 0xfc0
163: subl2 $12,sp
164: movl 4(ap),r11
165: movzwl 26(r11),r5
166: bicl2 $0xffffff00,r5
167: ashl $-3,r5,r5
168: bicl3 $0xfffffff8,r5,r8
169: mull3 r8,$44,r5
170: addl3 $_radisk,r5,r10
171: moval 0[r8],r5
172: addl3 $_raaddr,r5,r6
173: movzwl 26(r11),r5
174: bicl2 $0xffffff00,r5
175: bicl2 $0xfffffff8,r5
176: movad 0[r5],r5
177: addl3 $_ra_sizes,r5,r7
178: subl3 4(r7),24(r10),-8(fp)
179: cmpl -8(fp),(r7); jleq L29
180: movl (r7),-8(fp)
181: L29:cmpl 32(r11),-8(fp); jlss L31
182: cmpl r11,$_rctbuf; jeqlu L31
183: cmpl 32(r11),(r7); jneq L33
184: movl 20(r11),36(r11)
185: jbr L34
186: L33:movw $28,24(r11)
187: bisl2 $4,(r11)
188: L34:pushl r11
189: calls $4/4,_iodone
190: ret
191: L31:movl 20(r11),-4(fp)
192: divl3 $512,-4(fp),r5
193: addl2 32(r11),r5
194: cmpl r5,-8(fp); jleq L35
195: cmpl r11,$_rctbuf; jeqlu L35
196: subl3 32(r11),-8(fp),r5
197: ashl $9,r5,-4(fp)
198: L35:calls $0/4,_spl6
199: cvtbl 6(r10),r5
200: bicl2 $0xfffffffe,r5
201: tstl r5; jneq L37
202: pushl r6
203: pushl r10
204: calls $8/4,_raonline
205: tstl r0; jneq L37
206: bisl2 $4,(r11)
207: pushl r11
208: calls $4/4,_iodone
209: calls $0/4,_spl0
210: ret
211: L37:cvtbl (r6),-(sp)
212: movl (r10),r5
213: calls $4/4,*4(r5)
214: movl r0,r9
215: addl3 $1,_rarefno,r5
216: movl r5,_rarefno
217: movl r5,(r9)
218: movw 2(r6),4(r9)
219: bicl3 $0xfffffffe,(r11),r5
220: jeql L40
221: movl $33,-12(fp)
222: jbr L41
223: L40:movl $34,-12(fp)
224: # label
225: L41:movb -12(fp),8(r9)
226: clrw 10(r9)
227: movl -4(fp),12(r9)
228: addl3 4(r7),32(r11),28(r9)
229: pushl r11
230: pushl r9
231: cvtbl (r6),-(sp)
232: movl (r10),r5
233: calls $12/4,*8(r5)
234: movl r9,16(r11)
235: movl (r9),36(r11)
236: clrl 12(r11)
237: tstl 16(r10); jeqlu L42
238: movl 20(r10),r5
239: movl r11,12(r5)
240: jbr L43
241: L42:movl r11,16(r10)
242: L43:movl r11,20(r10)
243: pushl r9
244: clrl -(sp)
245: cvtbl (r6),-(sp)
246: movl (r10),r5
247: calls $12/4,*12(r5)
248: calls $0/4,_spl0
249: ret
250: .globl _raioctl
251: .align 1
252: _raioctl:.word 0xe00
253: movw 4(ap),4(ap)
254: movzwl 4(ap),r5
255: ashl $-3,r5,r5
256: bicl2 $0xfffffff8,r5
257: mull2 $44,r5
258: addl3 $_radisk,r5,r10
259: cvtbl 6(r10),r5
260: bicl2 $0xfffffffa,r5
261: cmpl r5,$5; jeql L44
262: movb $5,_u+197
263: ret
264: L44:movl 12(ap),r11
265: movl 8(ap),r0
266: cmpl r0,$29957; jgtr L80
267: subl3 $29952,r0,r1
268: jlss L80
269: movl 2f[r1],r0
270: jmp (r0)
271: 2:.long L51
272: .long L63
273: .long L48
274: .long L75
275: .long L78
276: .long L79
277: L80:L46:movb $25,_u+197
278: ret
279: L48:pushl $20
280: pushl 12(ap)
281: pushal 24(r10)
282: calls $12/4,_copyout
283: tstl r0; jeql L49
284: movb $14,_u+197
285: L49:ret
286: L51:movl 4(r11),r5
287: jlss L54
288: cmpl r5,28(r10); jleq L52
289: L54:movb $5,_u+197
290: ret
291: L52:clrl r9
292: jbr L58
293: L55:movl $512,_u+292
294: addl3 24(r10),4(r11),r5
295: ashl $9,r5,-(sp)
296: moval _u+296,r1
297: calls $4/4,_ltoL
298: mull3 28(r10),r9,r5
299: ashl $9,r5,-(sp)
300: movq _u+296,-(sp)
301: moval _u+296,r1
302: calls $12/4,_Lladd
303: movl (r11),_u+288
304: clrb _u+196
305: clrb _u+197
306: pushal _minphys
307: pushl $1
308: movzwl 4(ap),-(sp)
309: pushal _rctbuf
310: pushal _rastrategy
311: calls $20/4,_physio
312: tstb _u+197; jneq L61
313: jbr L57
314: L61:L56:incl r9
315: L58:cvtbl 43(r10),r5
316: cmpl r9,r5; jlss L55
317: L57:ret
318: L63:bicl3 $0xfffffffd,16(ap),r5
319: jneq L64
320: movb $9,_u+197
321: ret
322: L64:movl 4(r11),r5
323: jlss L68
324: cmpl r5,28(r10); jleq L66
325: L68:movb $5,_u+197
326: ret
327: L66:clrl r9
328: jbr L72
329: L69:movl $512,_u+292
330: addl3 24(r10),4(r11),r5
331: ashl $9,r5,-(sp)
332: moval _u+296,r1
333: calls $4/4,_ltoL
334: mull3 28(r10),r9,r5
335: ashl $9,r5,-(sp)
336: movq _u+296,-(sp)
337: moval _u+296,r1
338: calls $12/4,_Lladd
339: movl (r11),_u+288
340: clrb _u+196
341: pushal _minphys
342: clrl -(sp)
343: movzwl 4(ap),-(sp)
344: pushal _rctbuf
345: pushal _rastrategy
346: calls $20/4,_physio
347: clrb _u+197
348: L70:incl r9
349: L72:cvtbl 43(r10),r5
350: cmpl r9,r5; jlss L69
351: L71:ret
352: L75:bicl3 $0xfffffffd,16(ap),r5
353: jneq L76
354: movb $9,_u+197
355: ret
356: L76:cvtwl 8(r11),-(sp)
357: pushl (r11)
358: pushl 4(r11)
359: movzwl 4(ap),-(sp)
360: calls $16/4,_rareplace
361: ret
362: L78:bisb2 $64,6(r10)
363: ret
364: L79:pushal _radg
365: pushal _raseql
366: clrl -(sp)
367: pushl $1
368: movzwl 4(ap),r5
369: ashl $-3,r5,r5
370: bicl2 $0xfffffff8,r5
371: moval _raaddr+1[r5],r4
372: cvtbl (r4),-(sp)
373: moval _raaddr[r5],r5
374: cvtbl (r5),-(sp)
375: movl *(r10),r5
376: calls $24/4,(r5)
377: ret
378: L47:ret
379: .align 1
380: _rareplace:.word 0xf80
381: bicl3 $0xffffff00,4(ap),r5
382: ashl $-3,r5,r5
383: bicl3 $0xfffffff8,r5,r8
384: mull3 r8,$44,r5
385: addl3 $_radisk,r5,r10
386: moval 0[r8],r5
387: addl3 $_raaddr,r5,r9
388: calls $0/4,_spl6
389: jbr L82
390: L81:bisb2 $16,6(r10)
391: pushl $26
392: pushal 6(r10)
393: calls $8/4,_sleep
394: L82:cvtbl 6(r10),r5
395: bicl2 $0xfffffff7,r5
396: tstl r5; jneq L81
397: L83:bisb2 $8,6(r10)
398: pushl 12(ap)
399: pushl 8(ap)
400: pushl r8
401: pushal _84
402: calls $16/4,_printf
403: cvtbl (r9),-(sp)
404: movl (r10),r5
405: calls $4/4,*4(r5)
406: movl r0,r11
407: pushl $36
408: pushl r11
409: calls $8/4,_bzero
410: addl3 $1,_rarefno,r5
411: movl r5,_rarefno
412: movl r5,(r11)
413: movw 2(r9),4(r11)
414: movb $20,8(r11)
415: movl 12(ap),12(r11)
416: movl 8(ap),28(r11)
417: movl 16(ap),r7
418: jeql L86
419: movl $1,r7
420: # label
421: L86: # label
422: L87:movw r7,10(r11)
423: movl (r11),8(r10)
424: movb $20,12(r10)
425: pushl r11
426: clrl -(sp)
427: cvtbl (r9),-(sp)
428: movl (r10),r5
429: calls $12/4,*12(r5)
430: jbr L89
431: L88:pushl $25
432: pushal 7(r10)
433: calls $8/4,_sleep
434: L89:cvtbl 6(r10),r5
435: bicl2 $0xffffffdf,r5
436: tstl r5; jeql L88
437: L90:movb 7(r10),_u+197
438: cvtbl 6(r10),r5
439: bicl2 $0xffffffef,r5
440: tstl r5; jeql L91
441: pushal 6(r10)
442: calls $4/4,_wakeup
443: L91:bicb2 $56,6(r10)
444: calls $0/4,_spl0
445: ret
446: .globl _raseql
447: .align 1
448: _raseql:.word 0xfc0
449: movl 12(ap),r11
450: tstb 8(r11); jneq L93
451: cmpw 10(r11),$255; jneq L93
452: pushl 4(ap)
453: calls $4/4,_rareset
454: ret
455: L93:clrl r8
456: jbr L98
457: L95:moval _raaddr[r8],r5
458: cvtbl (r5),r5
459: cmpl r5,4(ap); jneq L100
460: moval _raaddr+1[r8],r5
461: cvtbl (r5),r5
462: cmpl r5,8(ap); jneq L100
463: moval _raaddr+2[r8],r5
464: cmpw (r5),4(r11); jneq L100
465: jbr L97
466: L100:L96:incl r8
467: L98:cmpl r8,_racnt; jlss L95
468: L97:cmpl r8,_racnt; jlss L102
469: cvtbl 8(r11),-(sp)
470: cvtwl 10(r11),-(sp)
471: pushl 8(ap)
472: pushl 4(ap)
473: cvtwl 4(r11),-(sp)
474: pushal _104
475: calls $24/4,_printf
476: ret
477: L102:mull3 r8,$44,r5
478: addl3 $_radisk,r5,r9
479: cvtwl 10(r11),r5
480: bicl3 $0xffffffe0,r5,r6
481: cmpl r6,$4; jeql L107
482: cmpl r6,$3; jneq L105
483: L107:bicb2 $1,6(r9)
484: L105:L108:cvtbl 8(r11),r5
485: bicl3 $0xffffff00,r5,r0
486: cmpl r0,$148; jeql L147
487: jgtr L152
488: cmpl r0,$137; jgtr L109
489: subl3 $128,r0,r1
490: jlss L109
491: movl 2f[r1],r0
492: jmp (r0)
493: 2:.long L111
494: .long L109
495: .long L109
496: .long L139
497: .long L143
498: .long L109
499: .long L109
500: .long L109
501: .long L138
502: .long L137
503: L153:L152:cmpl r0,$161; jeql L114
504: cmpl r0,$162; jeql L114
505: jbr L109
506: L111:cmpl (r11),8(r9); jneq L112
507: bisb3 $128,12(r9),8(r11)
508: jbr L108
509: L112:L114:movl 16(r9),r10
510: clrl r7
511: jbr L118
512: L115:cmpl (r11),36(r10); jneq L119
513: jbr L117
514: L119:L116:movl r10,r7
515: movl 12(r10),r10
516: L118:tstl r10; jnequ L115
517: L117:tstl r10; jnequ L121
518: cvtbl 8(r11),r5
519: bicl3 $0xffffff00,r5,-(sp)
520: cvtwl 10(r11),-(sp)
521: pushl (r11)
522: pushl r8
523: pushal _123
524: calls $20/4,_printf
525: ret
526: L121:cmpl *16(r10),(r11); jeql L124
527: movzwl 26(r10),-(sp)
528: pushl (r10)
529: pushl (r11)
530: pushl *16(r10)
531: pushl r8
532: pushal _126
533: calls $24/4,_printf
534: L124:tstl r7; jeqlu L127
535: movl 12(r10),12(r7)
536: jbr L128
537: L127:movl 12(r10),16(r9)
538: L128:cmpl r10,20(r9); jnequ L129
539: movl r7,20(r9)
540: L129:subl3 12(r11),20(r10),36(r10)
541: tstl r6; jeql L131
542: bisl2 $4,(r10)
543: cvtwl 10(r11),r5
544: cmpl r5,$8; jeql L135
545: cmpl r5,$72; jneq L133
546: L135:movw $6,24(r10)
547: jbr L134
548: L133:cvtwl 10(r11),-(sp)
549: pushl 32(r10)
550: pushl r8
551: pushal _136
552: calls $16/4,_printf
553: L134:L131:pushl 16(r10)
554: pushl 4(ap)
555: movl (r9),r5
556: calls $8/4,*16(r5)
557: pushl r10
558: calls $4/4,_iodone
559: ret
560: L137:pushl r11
561: pushl r9
562: calls $8/4,_rasonl
563: ret
564: L138:bicb2 $1,6(r9)
565: ret
566: L139:tstl r6; jeql L140
567: cvtwl 10(r11),-(sp)
568: pushl r8
569: pushal _142
570: calls $12/4,_printf
571: ret
572: L140:movl 28(r11),32(r9)
573: movw 36(r11),36(r9)
574: movw 38(r11),38(r9)
575: movw 40(r11),40(r9)
576: cvtwl 44(r11),28(r9)
577: movb 46(r11),42(r9)
578: movb 47(r11),43(r9)
579: bisb2 $4,6(r9)
580: ret
581: L143:tstl r6; jeql L144
582: pushl 8(ap)
583: pushl 4(ap)
584: pushal _146
585: calls $12/4,_printf
586: L144:ret
587: L147:clrb 7(r9)
588: tstl r6; jeql L148
589: cvtwl 10(r11),-(sp)
590: pushl r8
591: pushal _150
592: calls $12/4,_printf
593: movb $5,7(r9)
594: L148:bisb2 $32,6(r9)
595: pushal 7(r9)
596: calls $4/4,_wakeup
597: ret
598: L109:cvtwl 10(r11),-(sp)
599: cvtbl 8(r11),r5
600: bicl3 $0xffffff00,r5,-(sp)
601: pushl 8(ap)
602: pushl 4(ap)
603: cvtwl 4(r11),-(sp)
604: pushal _151
605: calls $24/4,_printf
606: ret
607: L110:ret
608: .globl _rareset
609: .align 1
610: _rareset:.word 0xf00
611: clrl r11
612: jbr L157
613: L154:moval _raaddr[r11],r5
614: cvtbl (r5),r5
615: cmpl r5,4(ap); jeql L159
616: jbr L155
617: L159:mull3 r11,$44,r5
618: addl3 $_radisk,r5,r10
619: movl 16(r10),r9
620: jbr L164
621: L161:movl 12(r9),r8
622: pushl 16(r9)
623: pushl 4(ap)
624: movl (r10),r5
625: calls $8/4,*16(r5)
626: bisl2 $4,(r9)
627: pushl r9
628: calls $4/4,_iodone
629: L162:movl r8,r9
630: L164:tstl r9; jnequ L161
631: L163:clrl 20(r10)
632: clrl 16(r10)
633: bicb2 $3,6(r10)
634: pushl r10
635: calls $4/4,_wakeup
636: L155:incl r11
637: L157:cmpl r11,_racnt; jlss L154
638: L156:ret
639: .data
640: .align 2; _raevents:.long _165
641: .long _166
642: .long _167
643: .long _168
644: .long _169
645: .long _170
646: .long _171
647: .long _172
648: .long _173
649: .long _174
650: .long _175
651: .long _176
652: .text
653: .globl _radg
654: .align 1
655: _radg:.word 0xf80
656: movl 12(ap),r11
657: cmpb 8(r11),$2; jneq L177
658: cmpw 10(r11),$8; jneq L177
659: tstb 9(r11); jneq L177
660: ret
661: L177:cvtbl 9(r11),r5
662: bicl3 $0xffffff00,r5,-(sp)
663: cvtwl 10(r11),-(sp)
664: cvtbl 8(r11),-(sp)
665: cvtbl 9(r11),r5
666: bicl2 $0xffffff3f,r5
667: tstl r5; jeql L183
668: moval _180,r7
669: jbr L184
670: L183:moval _181,r7
671: # label
672: L184:pushl r7
673: cvtwl 6(r11),-(sp)
674: pushl 8(ap)
675: pushl 4(ap)
676: cvtwl 4(r11),-(sp)
677: pushal _179
678: calls $36/4,_printf
679: cvtwl 10(r11),r5
680: bicl2 $0xffffffe0,r5
681: cmpl r5,$11; jgtr L185
682: cvtwl 10(r11),r5
683: bicl2 $0xffffffe0,r5
684: pushl _raevents[r5]
685: pushal _187
686: calls $8/4,_printf
687: L185:cvtbl 8(r11),r0
688: cmpl r0,$4; jgtr L223
689: subl3 $0,r0,r1
690: jlss L188
691: movl 2f[r1],r0
692: jmp (r0)
693: 2:.long L190
694: .long L192
695: .long L194
696: .long L201
697: .long L211
698: L223:cmpl r0,$64; jeql L213
699: jbr L188
700: L190:pushal _191
701: calls $4/4,_printf
702: jbr L189
703: L192:pushl 24(r11)
704: pushal _193
705: calls $8/4,_printf
706: jbr L189
707: L194:cvtbl 35(r11),-(sp)
708: cvtbl 34(r11),-(sp)
709: bicl3 $0xf0000000,40(r11),-(sp)
710: bicl3 $0xfffffff,40(r11),r5
711: jnequ L199
712: moval _196,r7
713: jbr L200
714: L199:moval _197,r7
715: # label
716: L200:pushl r7
717: pushal _195
718: calls $20/4,_printf
719: jbr L189
720: L201:bicl3 $0xf0000000,40(r11),-(sp)
721: bicl3 $0xfffffff,40(r11),r5
722: jnequ L204
723: moval _196,r7
724: jbr L205
725: L204:moval _197,r7
726: # label
727: L205:pushl r7
728: pushal _202
729: calls $12/4,_printf
730: addl3 $56,r11,r10
731: jbr L207
732: L206:addl3 $-2,r10,r5
733: movl r5,r10
734: movzwl (r5),-(sp)
735: pushal _209
736: calls $8/4,_printf
737: L207:addl3 $44,r11,r5
738: cmpl r10,r5; jgtru L206
739: L208:pushal _210
740: calls $4/4,_printf
741: jbr L189
742: L211:pushl 48(r11)
743: pushal _212
744: calls $8/4,_printf
745: jbr L189
746: L213:pushal _214
747: calls $4/4,_printf
748: addl3 $44,r11,r8
749: clrl r9
750: L215:movzbl (r8)+,-(sp)
751: pushal _209
752: calls $8/4,_printf
753: L216:incl r9
754: cmpl r9,$10; jlss L215
755: L217:movzbl 1(r8),-(sp)
756: movzbl (r8),-(sp)
757: pushal _221
758: calls $12/4,_printf
759: jbr L189
760: L188:pushal _222
761: calls $4/4,_printf
762: L189:ret
763: .align 1
764: _raonline:.word 0xe00
765: subl2 $4,sp
766: movl 4(ap),r11
767: movl 8(ap),r10
768: calls $0/4,_spl6
769: movl r0,-4(fp)
770: cvtbl 6(r11),r5
771: bicl2 $0xfffffffd,r5
772: tstl r5; jneq L227
773: bicb2 $4,6(r11)
774: cvtbl (r10),-(sp)
775: movl (r11),r5
776: calls $4/4,*4(r5)
777: movl r0,r9
778: pushl $36
779: pushl r9
780: calls $8/4,_bzero
781: addl3 $1,_rarefno,r5
782: movl r5,_rarefno
783: movl r5,(r9)
784: movw 2(r10),4(r9)
785: movb $9,8(r9)
786: movl (r9),8(r11)
787: movb $9,12(r11)
788: pushl r9
789: clrl -(sp)
790: cvtbl (r10),-(sp)
791: movl (r11),r5
792: calls $12/4,*12(r5)
793: bisb2 $2,6(r11)
794: jbr L227
795: L226:pushl $60
796: pushl $24
797: pushl r11
798: calls $12/4,_tsleep
799: L227:cvtbl 6(r11),r5
800: bicl2 $0xfffffffd,r5
801: tstl r5; jneq L226
802: L228:cvtbl 6(r11),r5
803: bicl2 $0xfffffffe,r5
804: tstl r5; jneq L229
805: clrl r0
806: ret
807: L229:cvtbl 6(r11),r5
808: bicl2 $0xfffffffb,r5
809: tstl r5; jneq L231
810: cvtbl (r10),-(sp)
811: movl (r11),r5
812: calls $4/4,*4(r5)
813: movl r0,r9
814: addl3 $1,_rarefno,r5
815: movl r5,_rarefno
816: movl r5,(r9)
817: movw 2(r10),4(r9)
818: movb $3,8(r9)
819: clrw 10(r9)
820: clrw 14(r9)
821: clrl 28(r9)
822: pushl r9
823: clrl -(sp)
824: cvtbl (r10),-(sp)
825: movl (r11),r5
826: calls $12/4,*12(r5)
827: L231:pushl -4(fp)
828: calls $4/4,_splx
829: movl $1,r0
830: ret
831: .align 1
832: _rasonl:.word 0xc00
833: movl 4(ap),r11
834: movl 8(ap),r10
835: cvtbl 6(r11),r5
836: bicl2 $0xfffffffd,r5
837: tstl r5; jeql L233
838: bicb2 $2,6(r11)
839: pushl r11
840: calls $4/4,_wakeup
841: L233:cvtwl 10(r10),r5
842: bicl2 $0xffffffe0,r5
843: tstl r5; jeql L235
844: ret
845: L235:bisb2 $1,6(r11)
846: movl 24(r11),r5
847: cmpl r5,$2147483647; jeql L237
848: cmpl r5,36(r10); jeql L237
849: pushl 36(r10)
850: pushl 24(r11)
851: subl3 $_radisk,r11,r5
852: divl3 $44,r5,-(sp)
853: pushal _239
854: calls $16/4,_printf
855: L237:movl 36(r10),24(r11)
856: ret
857: .align 1
858: _racinit:.word 0xc00
859: cvtbl *8(ap),-(sp)
860: movl *4(ap),r5
861: calls $4/4,*4(r5)
862: movl r0,r11
863: addl3 $1,_rarefno,r5
864: movl r5,_rarefno
865: movl r5,(r11)
866: movl 8(ap),r5
867: movw 2(r5),4(r11)
868: movb $4,8(r11)
869: clrw 10(r11)
870: movw $80,14(r11)
871: clrw 12(r11)
872: clrw 16(r11)
873: clrl 24(r11)
874: clrl 20(r11)
875: calls $0/4,_spl6
876: movl r0,r10
877: pushl r11
878: clrl -(sp)
879: cvtbl *8(ap),-(sp)
880: movl *4(ap),r5
881: calls $12/4,*12(r5)
882: pushl r10
883: calls $4/4,_splx
884: ret
885: .text 1
886: _239:.ascii "ra%d: changed size %d to %d\012\000"
887: _222:.byte 10,0
888: _221:.ascii " [%x %x]\012\000"
889: _214:.ascii "scsi:\000"
890: _212:.ascii "cyl %d\012\000"
891: _210:.ascii " xx\012\000"
892: _209:.ascii " %x\000"
893: _202:.ascii "%sbn %d;\000"
894: _197:.byte 114,0
895: _196:.byte 108,0
896: _195:.ascii "%sbn %d; lev x%x, retry x%x\012\000"
897: _193:.ascii "host mem access; addr x%x\012\000"
898: _191:.ascii "oops\012\000"
899: _187:.ascii "%s; \000"
900: _181:.ascii "hard\000"
901: _180:.ascii "soft\000"
902: _179:.ascii "ra%d ctl%d typ%d seq %d: %s err; fmt x%x ev x%x fl x%x\012\000"
903: _176:.ascii "drive err\000"
904: _175:.ascii "cntl err\000"
905: _174:.ascii "host buf access err\000"
906: _173:.ascii "data err\000"
907: _172:.ascii "comp err\000"
908: _171:.ascii "write prot\000"
909: _170:.ascii "med fmt\000"
910: _169:.ascii "available\000"
911: _168:.ascii "offline\000"
912: _167:.ascii "op aborted\000"
913: _166:.ascii "inv cmd\000"
914: _165:.ascii "ok\000"
915: _151:.ascii "ra%d ctl%d typ%d: stray mscp msg opcd 0%o sts x%x\012\000"
916: _150:.ascii "ra%d: rpl sts x%x\012\000"
917: _146:.ascii "ra ctl%d typ%d: bad init\012\000"
918: _142:.ascii "ra%d: can't get unit sts x%x\012\000"
919: _136:.ascii "err on ra%d block %D: sts x%x\012\000"
920: _126:.ascii "ra%d sent %d got %d crf; flg %x dev %x\012\000"
921: _123:.ascii "ra%d stray end: crf %d sts x%x opcode 0%o\012\000"
922: _104:.ascii "ra%d ctl%d typ%d: stray mscp packet sts x%x opcode %o\012\000"
923: _84:.ascii "ra%d replace %D with %D\012\000"
924: .lcomm _rctbuf,44
925: .lcomm _rarefno,4
926: .globl _nswdevt
927: .comm _nswdevt,4
928: .globl _zvms
929: .comm _zvms,40
930: .globl _bclnlist
931: .comm _bclnlist,4
932: .globl _bswlist
933: .comm _bswlist,44
934: .globl _bfreelist
935: .comm _bfreelist,132
936: .globl _swpf
937: .comm _swpf,4
938: .globl _swsize
939: .comm _swsize,4
940: .globl _nbuf
941: .comm _nbuf,4
942: .globl _buffers
943: .comm _buffers,4
944: .globl _buf
945: .comm _buf,4
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.