![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cp.lst 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 / macro4|
Return to cp.lst CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / macro4 |
1.1 root 1: 1 00000000 LL0:
2: 2 00000000 .data
3: 3 000001c8 * .set CPMDCB,21
4: 4 000001c8 * .set DC_OFF,2
5: 5 000001c8 * .set DC_ON,1
6: 6 000001c8 * .set MME,9
7: 7 000001c8 * .set DCR,27
8: 8 000001c8 * .set PDCS,28
9: 9 000001c8 * .set CTL_SW,0x41b
10: 10 000001c8 * .comm _tmp_lw,4
11: 11 000001c8 * .align 2
12: 12 000001c8 * .globl _cpbuf_sz
13: 13 000001c8 * _cpbuf_sz:
14: 14 000001c8 * 00000001 .long 1
15: 15 000001cc * .align 2
16: 16 000001cc * .globl _charcnt
17: 17 000001cc * _charcnt:
18: 18 000001cc * 00000000 .long 0
19: 19 000001d0 * .comm _cpout,204
20: 20 000001d0 * .comm _cpin,8
21: 21 000001d0 * .set HISR,0x410
22: 22 000001d0 * .text
23: 23 00000000 .align 1
24: 24 00000000 .globl _putstr
25: 25 00000000 _putstr:
26: 26 0000B88C 0000 .word L17
27: 27 0000B88E #
28: 28 0000B88E # /* Console Processor Interface */
29: 29 0000B88E # /* Tahoe version, Nov. 1982 */
30: 30 0000B88E #
31: 31 0000B88E # /****************************************/
32: 32 0000B88E # /* */
33: 33 0000B88E # /* Reduced DCB layout for byte */
34: 34 0000B88E # /* communication. */
35: 35 0000B88E # /* */
36: 36 0000B88E # /****************************************/
37: 37 0000B88E #
38: 38 0000B88E # asm(".set CPMDCB,21");
39: 39 0000B88E # asm(".set DC_OFF,2");
40: 40 0000B88E # asm(".set DC_ON,1");
41: 41 0000B88E # asm(".set MME,9");
42: 42 0000B88E # asm(".set DCR,27");
43: 43 0000B88E # asm(".set PDCS,28");
44: 44 0000B88E # asm(".set CTL_SW,0x41b"); /* Addr of switches to turn on Cache, MME, Fault */
45: 45 0000B88E # long tmp_lw;
46: 46 0000B88E #
47: 47 0000B88E #
48: 48 0000B88E # #define CPBUFLEN 200 /* Output buffer length */
49: 49 0000B88E # struct cphdr
50: 50 0000B88E # {
51: 51 0000B88E # char cp_unit; /* Done bit & unit # */
52: 52 0000B88E # char cp_comm; /* Command */
53: 53 0000B88E # short cp_count; /* Counter (when relevant) */
54: 54 0000B88E # };
55: 55 0000B88E #
56: 56 0000B88E # struct cpdcb_o /* Output structure */
57: 57 0000B88E # {
58: 58 0000B88E # struct cphdr cp_hdr;
59: 59 0000B88E # char cp_buf[CPBUFLEN]; /* Buffer for output or 'stty' */
60: 60 0000B88E # };
61: 61 0000B88E #
62: 62 0000B88E # struct cpdcb_i /* Structure for input */
63: 63 0000B88E # {
64: 64 0000B88E # struct cphdr cp_hdr;
65: 65 0000B88E # char cpi_buf[4]; /* Buffer for input */
66: 66 0000B88E # };
67: 67 0000B88E #
68: 68 0000B88E # #define CPDONE 0x80 /* 'Done' bit in cp_unit */
69: 69 0000B88E # #define CPTAKE 0x40 /* CP 'ack' to this cpdcb */
70: 70 0000B88E #
71: 71 0000B88E # /* Values for 'unit' */
72: 72 0000B88E # #define CPUNIT 0 /* The CP itself */
73: 73 0000B88E # #define CPCONS 1 /* Console line */
74: 74 0000B88E # #define CPREMOT 2 /* Remote line */
75: 75 0000B88E #
76: 76 0000B88E # /* Values for 'command' */
77: 77 0000B88E # #define CPRESET 0
78: 78 0000B88E # #define CPWRITE 1
79: 79 0000B88E # #define CPREAD 2
80: 80 0000B88E # #define CPSTTY 3
81: 81 0000B88E # #define CPBOOT 4
82: 82 0000B88E #
83: 83 0000B88E #
84: 84 0000B88E # /* Put a char to CPU2 console */
85: 85 0000B88E #
86: 86 0000B88E # #define NCHAR 1
87: 87 0000B88E #
88: 88 0000B88E # long cpbuf_sz = 1; /* Buffer size */
89: 89 0000B88E # long charcnt = 0;
90: 90 0000B88E # struct cpdcb_o cpout; /* DCB for output */
91: 91 0000B88E # struct cpdcb_i cpin; /* DCB for input */
92: 92 0000B88E #
93: 93 0000B88E # asm(".set HISR,0x410");
94: 94 0000B88E #
95: 95 0000B88E # putstr(str)
96: 96 0000B88E # char *str;
97: 97 0000B88E # { long c_cnt;
98: 98 0000B88E 11 75 jbr L19
99: 99 0000B890 L20:
100: 100 0000B890 #
101: 101 0000B890 # cpout.cp_hdr.cp_unit = CPCONS; /* Reset done bit */
102: 102 0000B890 6f 01 effffffff5 cvtlb $1,_cpout
103: 103 0000B897 # cpout.cp_hdr.cp_comm = CPWRITE; /* Set command */
104: 104 0000B897 6f 01 efffffffef cvtlb $1,_cpout+1
105: 105 0000B89E # for(c_cnt=0;;c_cnt++) {
106: 106 0000B89E 4d adc8 clrl -56(fp)
107: 107 0000B8A1 L23:
108: 108 0000B8A1 # cpout.cp_buf[c_cnt] = *str++;
109: 109 0000B8A1 0d 8f00000004 50 movl $_cpout+4,r0
110: 110 0000B8A8 0d adc8 51 movl -56(fp),r1
111: 111 0000B8AC 09 bd04 4160 movb *4(fp),(r0)[r1]
112: 112 0000B8B1 6d ad04 incl 4(fp)
113: 113 0000B8B4 # if (cpout.cp_buf[c_cnt]=='\n') {
114: 114 0000B8B4 0d 8f00000004 50 movl $_cpout+4,r0
115: 115 0000B8BB 0d adc8 51 movl -56(fp),r1
116: 116 0000B8BF 19 4160 0a cmpb (r0)[r1],$10
117: 117 0000B8C3 21 12 jneq L24
118: 118 0000B8C5 # c_cnt++;
119: 119 0000B8C5 6d adc8 incl -56(fp)
120: 120 0000B8C8 # cpout.cp_buf[c_cnt]='\r';
121: 121 0000B8C8 0d 8f00000004 50 movl $_cpout+4,r0
122: 122 0000B8CF 0d adc8 51 movl -56(fp),r1
123: 123 0000B8D3 6f 0d 4160 cvtlb $13,(r0)[r1]
124: 124 0000B8D7 # }
125: 125 0000B8D7 # if (cpout.cp_buf[c_cnt]=='\0') break;
126: 126 0000B8D7 L24:
127: 127 0000B8D7 0d 8f00000004 50 movl $_cpout+4,r0
128: 128 0000B8DE 0d adc8 51 movl -56(fp),r1
129: 129 0000B8E2 59 4160 tstb (r0)[r1]
130: 130 0000B8E5 21 02 jneq L25
131: 131 0000B8E7 11 05 jbr L22
132: 132 0000B8E9 # }
133: 133 0000B8E9 L25:
134: 134 0000B8E9 L21:
135: 135 0000B8E9 6d adc8 incl -56(fp)
136: 136 0000B8EC 11 b3 jbr L23
137: 137 0000B8EE L22:
138: 138 0000B8EE # if (c_cnt) {
139: 139 0000B8EE 5d adc8 tstl -56(fp)
140: 140 0000B8F1 31 11 jeql L26
141: 141 0000B8F3 # cpout.cp_hdr.cp_count = c_cnt;
142: 142 0000B8F3 7f adc8 efffffff93 cvtlw -56(fp),_cpout+2
143: 143 0000B8FB # cp_poll('\0'); }
144: 144 0000B8FB dd 00 pushl $0
145: 145 0000B8FD fe 08 ef000000c6 callf $8,_cp_poll
146: 146 0000B904 # }
147: 147 0000B904 L26:
148: 148 0000B904 40 ret#2
149: 149 0000B905 .set L17,0x0
150: 150 0000B905 L19:
151: 151 0000B905 3c 38 5d 5e subl3 $56,fp,sp
152: 152 0000B909 11 85 jbr L20
153: 153 0000B90B .data
154: 154 000001d0 * .text
155: 155 0000B90B 00 .align 1
156: 156 0000B90C .globl _putchar
157: 157 0000B90C _putchar:
158: 158 0000B90C 0000 .word L29
159: 159 0000B90E #
160: 160 0000B90E # putchar(c)
161: 161 0000B90E # {
162: 162 0000B90E 11 33 jbr L31
163: 163 0000B910 L32:
164: 164 0000B910 # cpout.cp_hdr.cp_unit = CPCONS; /* Reset done bit */
165: 165 0000B910 6f 01 efffffff75 cvtlb $1,_cpout
166: 166 0000B917 # cpout.cp_hdr.cp_comm = CPWRITE; /* Set command */
167: 167 0000B917 6f 01 efffffff6f cvtlb $1,_cpout+1
168: 168 0000B91E # cpout.cp_buf[charcnt] = c;
169: 169 0000B91E 0d 8f00000004 50 movl $_cpout+4,r0
170: 170 0000B925 0d ef0000012d 51 movl _charcnt,r1
171: 171 0000B92C 6f ad04 4160 cvtlb 4(fp),(r0)[r1]
172: 172 0000B931 # cpout.cp_hdr.cp_count = 1;
173: 173 0000B931 7f 01 efffffff56 cvtlw $1,_cpout+2
174: 174 0000B938 # cp_poll(c);
175: 175 0000B938 dd ad04 pushl 4(fp)
176: 176 0000B93B fe 08 ef00000088 callf $8,_cp_poll
177: 177 0000B942 # }
178: 178 0000B942 40 ret#2
179: 179 0000B943 .set L29,0x0
180: 180 0000B943 L31:
181: 181 0000B943 11 cb jbr L32
182: 182 0000B945 .data
183: 183 000001d0 * .text
184: 184 0000B945 00 .align 1
185: 185 0000B946 .globl _rdchar
186: 186 0000B946 _rdchar:
187: 187 0000B946 1000 .word L34
188: 188 0000B948 #
189: 189 0000B948 #
190: 190 0000B948 # char rdchar()
191: 191 0000B948 # {
192: 192 0000B948 11 36 jbr L36
193: 193 0000B94A L37:
194: 194 0000B94A # register long r12;
195: 195 0000B94A # cpin.cp_hdr.cp_unit = CPCONS; /* Reset done bit */
196: 196 0000B94A 6f 01 efffffff3b cvtlb $1,_cpin
197: 197 0000B951 # cpin.cp_hdr.cp_comm = CPREAD; /* Set command */
198: 198 0000B951 6f 02 efffffff35 cvtlb $2,_cpin+1
199: 199 0000B958 # cpin.cp_hdr.cp_count = 1;
200: 200 0000B958 7f 01 efffffff2f cvtlw $1,_cpin+2
201: 201 0000B95F # cp_pollr();
202: 202 0000B95F fe 04 ef0000001c callf $4,_cp_pollr
203: 203 0000B966 # r12 = (long)(&cpin.cpi_buf[0]);
204: 204 0000B966 0d 8f00000004 5c movl $_cpin+4,r12
205: 205 0000B96D # asm("mtpr r12,$0x1c"); /* mtpr r11,$PDCS */
206: 206 0000B96D ad 5c 1c mtpr r12,$0x1c
207: 207 0000B970 # return(cpin.cpi_buf[0] & 0x7f);
208: 208 0000B970 89 efffffff1a 50 cvtbl _cpin+4,r0
209: 209 0000B977 ac 887f 50 andl2 $127,r0
210: 210 0000B97B 89 50 50 cvtbl r0,r0
211: 211 0000B97E 40 ret#1
212: 212 0000B97F # }
213: 213 0000B97F 40 ret#1
214: 214 0000B980 .set L34,0x1000
215: 215 0000B980 L36:
216: 216 0000B980 11 c8 jbr L37
217: 217 0000B982 .data
218: 218 000001d0 * .text
219: 219 0000B982 .align 1
220: 220 0000B982 .globl _cp_pollr
221: 221 0000B982 _cp_pollr:
222: 222 0000B982 1800 .word L39
223: 223 0000B984 #
224: 224 0000B984 #
225: 225 0000B984 # /* Poll CP on read
226: 226 0000B984 # */
227: 227 0000B984 # cp_pollr()
228: 228 0000B984 # { register long r12, r11, time;
229: 229 0000B984 11 42 jbr L41
230: 230 0000B986 L42:
231: 231 0000B986 #
232: 232 0000B986 # r12 = ((long)&cpin) & 0xffffff;
233: 233 0000B986 bc 8f00ffffff 8f00000000 andl3 $16777215,$_cpin,r0
234: 50
235: 234 0000B992 0d 50 5c movl r0,r12
236: 235 0000B995 # asm("mtpr r12,$CPMDCB");
237: 236 0000B995 ad 5c 15 mtpr r12,$CPMDCB
238: 237 0000B998 #
239: 238 0000B998 # r11 = (long)(&cpin.cp_hdr.cp_unit);
240: 239 0000B998 0d 8f00000000 5b movl $_cpin,r11
241: 240 0000B99F # while (!(cpin.cp_hdr.cp_unit & CPDONE)) {
242: 241 0000B99F L43:
243: 242 0000B99F 89 effffffee7 50 cvtbl _cpin,r0
244: 243 0000B9A6 3d 890080 50 bitl $128,r0
245: 244 0000B9AB 21 05 jneq L44
246: 245 0000B9AD # asm("mtpr r11,$0x1c"); /* mtpr r11,$PDCS */
247: 246 0000B9AD ad 5b 1c mtpr r11,$0x1c
248: 247 0000B9B0 # }
249: 248 0000B9B0 11 ed jbr L43
250: 249 0000B9B2 L44:
251: 250 0000B9B2 # if (!(cpin.cp_hdr.cp_unit & CPDONE)) cp_hlt(); /* Time out */
252: 251 0000B9B2 89 effffffed4 50 cvtbl _cpin,r0
253: 252 0000B9B9 3d 890080 50 bitl $128,r0
254: 253 0000B9BE 21 07 jneq L45
255: 254 0000B9C0 fe 04 ef0000006d callf $4,_cp_hlt
256: 255 0000B9C7 # }
257: 256 0000B9C7 L45:
258: 257 0000B9C7 40 ret#2
259: 258 0000B9C8 .set L39,0x1800
260: 259 0000B9C8 L41:
261: 260 0000B9C8 11 bc jbr L42
262: 261 0000B9CA .data
263: 262 000001d0 * .text
264: 263 0000B9CA .align 1
265: 264 0000B9CA .globl _cp_poll
266: 265 0000B9CA _cp_poll:
267: 266 0000B9CA 1c00 .word L47
268: 267 0000B9CC #
269: 268 0000B9CC #
270: 269 0000B9CC # /* Poll CP on write
271: 270 0000B9CC # */
272: 271 0000B9CC # cp_poll(c)
273: 272 0000B9CC # char c;
274: 273 0000B9CC # { register long r12, r11, time;
275: 274 0000B9CC 11 64 jbr L49
276: 275 0000B9CE L50:
277: 276 0000B9CE #
278: 277 0000B9CE # time = 200000;
279: 278 0000B9CE 0d 8f00030d40 5a movl $200000,r10
280: 279 0000B9D5 # r12 = ((long)&cpout) & 0xffffff;
281: 280 0000B9D5 bc 8f00ffffff 8f00000000 andl3 $16777215,$_cpout,r0
282: 50
283: 281 0000B9E1 0d 50 5c movl r0,r12
284: 282 0000B9E4 # asm("mtpr r12,$CPMDCB");
285: 283 0000B9E4 ad 5c 15 mtpr r12,$CPMDCB
286: 284 0000B9E7 # asm("mtpr r12,$CPMDCB");
287: 285 0000B9E7 ad 5c 15 mtpr r12,$CPMDCB
288: 286 0000B9EA #
289: 287 0000B9EA # r11 = (long)(&cpout.cp_hdr.cp_unit);
290: 288 0000B9EA 0d 8f00000000 5b movl $_cpout,r11
291: 289 0000B9F1 # while (time-- && !(cpout.cp_hdr.cp_unit & CPDONE)) {
292: 290 0000B9F1 L51:
293: 291 0000B9F1 0d 5a 50 movl r10,r0
294: 292 0000B9F4 7d 5a decl r10
295: 293 0000B9F6 5d 50 tstl r0
296: 294 0000B9F8 31 13 jeql L52
297: 295 0000B9FA 89 effffffe8c 50 cvtbl _cpout,r0
298: 296 0000BA01 3d 890080 50 bitl $128,r0
299: 297 0000BA06 21 05 jneq L52
300: 298 0000BA08 # asm("mtpr r11,$0x1c"); /* mtpr r11,$PDCS */
301: 299 0000BA08 ad 5b 1c mtpr r11,$0x1c
302: 300 0000BA0B # }
303: 301 0000BA0B 11 e4 jbr L51
304: 302 0000BA0D L52:
305: 303 0000BA0D # if (!(cpout.cp_hdr.cp_unit & CPDONE)) cp_hlt(); /* Time out */
306: 304 0000BA0D 89 effffffe79 50 cvtbl _cpout,r0
307: 305 0000BA14 3d 890080 50 bitl $128,r0
308: 306 0000BA19 21 07 jneq L53
309: 307 0000BA1B fe 04 ef00000012 callf $4,_cp_hlt
310: 308 0000BA22 # if (c== '\n') putchar('\r');
311: 309 0000BA22 L53:
312: 310 0000BA22 19 ad07 0a cmpb 7(fp),$10
313: 311 0000BA26 21 09 jneq L54
314: 312 0000BA28 dd 0d pushl $13
315: 313 0000BA2A fe 08 effffffedb callf $8,_putchar
316: 314 0000BA31 # }
317: 315 0000BA31 L54:
318: 316 0000BA31 40 ret#2
319: 317 0000BA32 .set L47,0x1C00
320: 318 0000BA32 L49:
321: 319 0000BA32 11 9a jbr L50
322: 320 0000BA34 .data
323: 321 000001d0 * .text
324: 322 0000BA34 .align 1
325: 323 0000BA34 .globl _cp_hlt
326: 324 0000BA34 _cp_hlt:
327: 325 0000BA34 0000 .word L55
328: 326 0000BA36 #
329: 327 0000BA36 # cp_hlt()
330: 328 0000BA36 # {
331: 329 0000BA36 11 17 jbr L57
332: 330 0000BA38 L58:
333: 331 0000BA38 # asm("movl $0xeeeeeeee,r0");
334: 332 0000BA38 0d 8feeeeeeee 50 movl $0xeeeeeeee,r0
335: 333 0000BA3F # asm("movl $0xeeeeeeee,r1");
336: 334 0000BA3F 0d 8feeeeeeee 51 movl $0xeeeeeeee,r1
337: 335 0000BA46 # asm("movl $0xeeeeeeee,r2");
338: 336 0000BA46 0d 8feeeeeeee 52 movl $0xeeeeeeee,r2
339: 337 0000BA4D # asm("halt");
340: 338 0000BA4D 00 halt
341: 339 0000BA4E # }
342: 340 0000BA4E 40 ret#2
343: 341 0000BA4F .set L55,0x0
344: 342 0000BA4F L57:
345: 343 0000BA4F 11 e7 jbr L58
346: 344 0000BA51 .data
347: 345 000001d0 * #
348: 345 000001d0 * #
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.