![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to bio.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / memman|
Return to bio.s CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / memman |
1.1 root 1: LL0:
2: .data
3: .set SBR,0
4: .set SLR,1
5: .set P0BR,2
6: .set P0LR,3
7: .set P1BR,4
8: .set P1LR,5
9: .set P2BR,6
10: .set P2LR,7
11: .set IPL,8
12: .set MAPEN,9
13: .set MME,9
14: .set TBIA,10
15: .set TBIS,11
16: .set DCK,12
17: .set CCK,13
18: .set PCBB,14
19: .set KSP,19
20: .set USP,20
21: .set CPMDCB,21
22: .set PADC,25
23: .set DCR,27
24: .set DC_ON,1
25: .set DC_OFF,2
26: .set TB_ON,256
27: .set TB_OFF,512
28: .align 2
29: .globl _ocnt
30: _ocnt:
31: .long 0
32: .align 2
33: .globl _icnt
34: _icnt:
35: .long 0
36: .text
37: .align 1
38: .globl _writec
39: _writec:
40: .word L15
41: #
42: # #include "definitions"
43: #
44: # /* I/O ROUTINES TO CPU2 CONSOLE */
45: #
46: # #define MAXC 1000 /* MAX 1000 chars per line */
47: # #define OUTADR 0x20000 /* Address of output buffer */
48: # #define INADR 0x20100 /* Address of input buffer */
49: #
50: # long ocnt = 0; /* Next location in output buffer */
51: # long icnt = 0; /* Next location in input buffer */
52: # extern long savvec7;
53: #
54: # writec(c) /* VERSION to run on the simmulator */
55: # char c;
56: # {
57: jbr L17
58: L18:
59: # putchar(c);
60: pushb 7(fp)
61: callf $8,_putchar
62: # }
63: ret
64: .set L15,0x0
65: L17:
66: jbr L18
67: .data
68: .text
69: .align 1
70: .globl _readc
71: _readc:
72: .word L21
73: #
74: # readc(c)
75: # char *c;
76: # { char *cptr;
77: jbr L23
78: L24:
79: #
80: # asm("mfpr $MME,_savvec7");
81: mfpr $MME,_savvec7
82: # savvec7 = savvec7 & 0x1;
83: andl3 $1,_savvec7,r0
84: movl r0,_savvec7
85: # asm("mtpr $0,$MME"); /* Disable MME */
86: mtpr $0,$MME
87: # cptr = (char *)(INADR+ icnt++);
88: addl3 $131328,_icnt,r0
89: movl r0,-56(fp)
90: incl _icnt
91: # *c = *cptr;
92: movb *-56(fp),*4(fp)
93: # asm("mtpr _savvec7,$MME"); /* Restore MME */
94: mtpr _savvec7,$MME
95: # }
96: ret
97: .set L21,0x0
98: L23:
99: subl3 $56,fp,sp
100: jbr L24
101: .data
102: .text
103: .align 1
104: .globl _writes
105: _writes:
106: .word L26
107: #
108: # writes(s)
109: # char *s;
110: # {
111: jbr L28
112: L29:
113: # putstr(s);
114: pushl 4(fp)
115: callf $8,_putstr
116: # }
117: ret
118: .set L26,0x0
119: L28:
120: jbr L29
121: .data
122: .text
123: .align 1
124: .globl _reads
125: _reads:
126: .word L32
127: #
128: # /* This function read a string of characters.
129: # calling sequence : nochar = reads(s);
130: # input argument : char *s;
131: # return value : no. of char read; excluding NULL or CR.
132: # */
133: # reads(s)
134: # char *s;
135: # { char *str;
136: jbr L34
137: L35:
138: # int ix;
139: #
140: # str = s;
141: movl 4(fp),-56(fp)
142: # for(ix=0;ix<ALINE;ix++)
143: clrl -60(fp)
144: L38:
145: cmpl -60(fp),$80
146: jgeq L37
147: # {
148: # readc(str);
149: pushl -56(fp)
150: callf $8,_readc
151: # if ((*str==NULL)||(*str==CR))
152: tstb *-56(fp)
153: jeql L9999
154: cmpb *-56(fp),$10
155: jneq L39
156: L9999:
157: # { *str = NULL;
158: clrb *-56(fp)
159: # break;
160: jbr L37
161: # }
162: # else str++;
163: L39:
164: incl -56(fp)
165: # }
166: L36:
167: incl -60(fp)
168: jbr L38
169: L37:
170: # icnt = 0; /* For simulator only */
171: clrl _icnt
172: #
173: # return(ix);
174: movl -60(fp),r0
175: ret
176: # }
177: ret
178: .set L32,0x0
179: L34:
180: subl3 $60,fp,sp
181: jbr L35
182: .data
183: .text
184: .align 1
185: .globl _writeh
186: _writeh:
187: .word L41
188: # /* This function read a string of HEX digit and
189: # convert it to integer value.
190: # calling sequence : stat = readh(ix);
191: # input parameter : long *ix;
192: # return value : (stat < 0) if error else (stat = 0);
193: # */
194: #
195: # /*
196: # readh(ix)
197: # long *ix;
198: # { char line[ALINE], *getnum(), *del;
199: # int nochar;
200: #
201: # if ( (nochar = reads(line)) > 8 ) return(-1);
202: # if ( (del = getnum(line,ix,del,HEX)) < 0 ) return(-1);
203: # else return(0);
204: # }
205: #
206: # */
207: #
208: #
209: #
210: # writeh(ix) /* 32 bits HEX */
211: # long ix;
212: # { long iy, temp, mask;
213: jbr L43
214: L44:
215: # int count;
216: # char c;
217: #
218: # iy=1; count = 28;
219: movl $1,-56(fp)
220: movl $28,-68(fp)
221: # mask = 0xf0000000;
222: movl $-268435456,-64(fp)
223: # while (mask)
224: L45:
225: tstl -64(fp)
226: jeql L46
227: # {
228: # c = ( (ix&mask) >> count )&0xf;
229: andl3 -64(fp),4(fp),r0
230: movl -68(fp),r1
231: shar r1,r0,r1
232: andl2 $15,r1
233: cvtlb r1,-69(fp)
234: # count -= 4;
235: subl2 $4,-68(fp)
236: # mask = mask >> 4;
237: shar $4,-64(fp),r0
238: movl r0,-64(fp)
239: # if (iy)
240: tstl -56(fp)
241: jeql L47
242: # { mask = 0xf000000;
243: movl $251658240,-64(fp)
244: # iy=0;
245: clrl -56(fp)
246: # }
247: # if ((c>=0)&&(c<=9)) c=c+'0';
248: L47:
249: tstb -69(fp)
250: jlss L48
251: cmpb -69(fp),$9
252: jgtr L48
253: cvtbl -69(fp),r0
254: addl2 $48,r0
255: cvtlb r0,-69(fp)
256: # else c=c+'7';
257: jbr L49
258: L48:
259: cvtbl -69(fp),r0
260: addl2 $55,r0
261: cvtlb r0,-69(fp)
262: L49:
263: # writec(c);
264: pushb -69(fp)
265: callf $8,_writec
266: # }
267: jbr L45
268: L46:
269: # }
270: ret
271: .set L41,0x0
272: L43:
273: subl3 $72,fp,sp
274: jbr L44
275: .data
276: .text
277: .align 1
278: .globl _writed
279: _writed:
280: .word L51
281: #
282: # /* This function read a string of DEC digit and
283: # convert it to integer value.
284: # calling sequence : stat = readd(ix);
285: # input parameter : long *ix;
286: # return value : (stat < 0) if error else (stat = 0);
287: # */
288: #
289: # /*
290: # readd(ix)
291: # long *ix;
292: # { char line[ALINE], *getnum(), *del;
293: # int nochar;
294: #
295: # if ( (nochar = reads(line)) > 11 ) return(-1);
296: # if ( (del = getnum(line,ix,del,DEC)) < 0 ) return(-1);
297: # else return(0);
298: # }
299: # */
300: #
301: #
302: # writed(ix) /* 32 bits DECIMAL */
303: # long ix;
304: # { char c;
305: jbr L53
306: L54:
307: # long div;
308: # float divi;
309: # int lead0;
310: #
311: # /*
312: # if (ix<0)
313: # { writes("********");
314: # return(0); }
315: # lead0 = 1;
316: # divi = 1000000000;
317: # div = divi;
318: # while (div)
319: # {
320: # c = (ix/div)+'0';
321: # ix = ix%div;
322: # divi = divi/10;
323: # div = divi;
324: # if ((c=='0')&&(lead0)) c=SPACE;
325: # else lead0 = 0;
326: # writec(c);
327: # }
328: # */
329: #
330: # }
331: ret
332: .set L51,0x0
333: L53:
334: subl3 $68,fp,sp
335: jbr L54
336: .data
337: #
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.