Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 613 lines (522 sloc) 32.412 kB
5fa3b8f @cgyarvin Introduced gen256. Struggling with some type II issues.
authored
1 /* include/pit.h
2 **
3 ** This file is in the public domain.
4 */
5 /** Revision number for built-in jets.
6 **/
7 // # define Pit watt_256
8
9 /** Driver control strings for each tier.
10 **/
11 # define Pt0 k_256
12 # define Pt1 k_256__a
13 # define Pt2 k_256__a__b
14 # define Pt3 k_256__a__b__c
15 # define Pt4 k_256__a__b__c__d
16 # define Pt5 k_256__a__b__c__d__e
17 # define Pt6 k_256__a__b__c__d__e__f
18
19 /** Driver polarity.
20 **/
21
22 /** Test codes.
23 **/
24 # define Tier1 u2_jet_live
25 # define Tier2 u2_jet_live
26 # define Tier3 u2_jet_live
27 # define Tier4 u2_jet_live
28 # define Tier5 u2_jet_live
29 # define Tier6 u2_jet_live
30 # define Tier6_a Tier6
31 # define Tier6_b Tier6
32 // # define Tier6_b (u2_jet_live | u2_jet_test)
33 // # define Tier6_b u2_jet_dead
34 # define Tier6_c Tier6
35 # define Tier6_t (u2_jet_live | u2_jet_test)
36 # define Tier6_l (u2_jet_live | u2_jet_test | u2_jet_leak)
37 # define Tier6_l_memo Tier6_l
38
39 # define Tier3_test (Tier3 | u2_jet_test)
40 # define Tier5_test (Tier5 | u2_jet_test)
41 # define Tier6_a_memo (Tier6_a | u2_jet_memo)
42 # define Tier6_b_memo (Tier6_b | u2_jet_memo)
43 # define Tier6_c_memo (Tier6_c | u2_jet_memo)
44 # define Tier6_x_memo (Tier6_x)
45 # define Tier6_t_memo (Tier6_t | u2_jet_memo)
46 # define Tier6_b_test (Tier6_b | u2_jet_test)
47
48 /** Cosmetic noun types.
49 **/
50 #if 0
51 // get them from funj.h for now
52 //
53 typedef u2_noun u2_bank;
54 typedef u2_noun u2_cord;
55 typedef u2_noun u2_door;
56 typedef u2_noun u2_gene;
57 typedef u2_noun u2_home;
58 typedef u2_noun u2_init;
59 typedef u2_noun u2_menu;
60 typedef u2_noun u2_plan;
61 typedef u2_noun u2_plot;
62 typedef u2_noun u2_rack;
63 typedef u2_noun u2_rung;
64 typedef u2_noun u2_rope;
65 typedef u2_noun u2_spec;
66 typedef u2_noun u2_tack;
67 typedef u2_noun u2_type;
68 typedef u2_noun u2_prep;
69 typedef u2_noun u2_dump;
70 #endif
71
72 /** Direct C interfaces.
73 **/
74 /** Tier 1.
75 **/
76 u2_weak // transfer
77 j2_mbc(Pt1, add)(u2_wire wir_r,
78 u2_atom a, // retain
79 u2_atom b); // retain
80 u2_weak // transfer
81 j2_mbc(Pt1, bex)(u2_wire wir_r,
82 u2_atom a); // retain
83 u2_weak // transfer
84 j2_mbc(Pt1, dec)(u2_wire wir_r,
85 u2_atom a); // retain
86 u2_weak // transfer
87 j2_mbc(Pt1, div)(u2_wire wir_r,
88 u2_atom a, // retain
89 u2_atom b); // retain
90 u2_weak // transfer
91 j2_mbc(Pt1, gte)(u2_wire wir_r,
92 u2_atom a, // retain
93 u2_atom b); // retain
94 u2_weak // transfer
95 j2_mbc(Pt1, gth)(u2_wire wir_r,
96 u2_atom a, // retain
97 u2_atom b); // retain
98 u2_weak // transfer
99 j2_mbc(Pt1, inc)(u2_wire wir_r,
100 u2_atom a); // retain
101 u2_weak // transfer
102 j2_mbc(Pt1, lte)(u2_wire wir_r,
103 u2_atom a, // retain
104 u2_atom b); // retain
105 u2_weak // transfer
106 j2_mbc(Pt1, lth)(u2_wire wir_r,
107 u2_atom a, // retain
108 u2_atom b); // retain
109 u2_weak // transfer
110 j2_mbc(Pt1, mul)(u2_wire wir_r,
111 u2_atom a, // retain
112 u2_atom b); // retain
113 u2_weak // transfer
114 j2_mbc(Pt1, sub)(u2_wire wir_r,
115 u2_atom a, // retain
116 u2_atom b); // retain
117 /** Tier 2.
118 **/
119 u2_weak // transfer
120 j2_mbc(Pt2, bind)(u2_wire wir_r,
121 u2_noun a, // retain
122 u2_noun b); // retain
123
124 u2_weak // transfer
125 j2_mbc(Pt2, clap)(u2_wire wir_r,
126 u2_noun a, // retain
127 u2_noun b, // retain
128 u2_noun c); // retain
129 u2_weak // transfer
130 j2_mbc(Pt2, drop)(u2_wire wir_r,
131 u2_noun a); // retain
132 u2_weak // transfer
133 j2_mbc(Pt2, flop)(u2_wire wir_r,
134 u2_noun a); // retain
135 u2_weak // transfer
136 j2_mbc(Pt2, lent)(u2_wire wir_r,
137 u2_noun a); // retain
138
139 u2_weak // transfer
140 j2_mbc(Pt2, levy)(u2_wire wir_r,
141 u2_noun a, // retain
142 u2_noun b); // retain
143
144 u2_weak // transfer
145 j2_mbc(Pt2, lien)(u2_wire wir_r,
146 u2_noun a, // retain
147 u2_noun b); // retain
148
149 u2_weak // transfer
150 j2_mbc(Pt2, need)(u2_wire wir_r,
151 u2_noun a); // retain
152
153
154 u2_weak // transfer
155 j2_mbc(Pt2, reel)(u2_wire wir_r,
156 u2_noun a, // retain
157 u2_noun b); // retain
158
159 u2_weak // transfer
160 j2_mbc(Pt2, roll)(u2_wire wir_r,
161 u2_noun a, // retain
162 u2_noun b); // retain
163
164 u2_weak // transfer
165 j2_mbc(Pt2, skim)(u2_wire wir_r,
166 u2_noun a, // retain
167 u2_noun b); // retain
168
169 u2_weak // transfer
170 j2_mbc(Pt2, skip)(u2_wire wir_r,
171 u2_noun a, // retain
172 u2_noun b); // retain
173
174 u2_weak // transfer
175 j2_mbc(Pt2, snag)(u2_wire wir_r,
176 u2_atom a, // retain
177 u2_noun b); // retain
178
179 u2_weak // transfer
180 j2_mbc(Pt2, sort)(u2_wire wir_r,
181 u2_noun a, // retain
182 u2_noun b); // retain
183
184 u2_weak // transfer
185 j2_mbc(Pt2, turn)(u2_wire wir_r,
186 u2_noun a, // retain
187 u2_noun b); // retain
188
189 u2_weak // transfer
190 j2_mbc(Pt2, weld)(u2_wire wir_r,
191 u2_noun a, // retain
192 u2_noun b); // retain
193
194 /** Tier 3.
195 **/
196 u2_noun // transfer
197 j2_mbc(Pt3, can)(u2_wire wir_r,
198 u2_atom a, // retain
199 u2_noun b); // retain
200
201 u2_weak // transfer
202 j2_mbc(Pt3, cap)(u2_wire wir_r,
203 u2_atom a); // retain
204
205 u2_weak // transfer
206 j2_mbc(Pt3, cat)(u2_wire wir_r,
207 u2_atom a, // retain
208 u2_atom b, // retain
209 u2_atom c); // retain
210
211 u2_weak // transfer
212 j2_mbc(Pt3, con)(u2_wire wir_r,
213 u2_atom a, // retain
214 u2_atom b); // retain
215
216 u2_weak // transfer
217 j2_mbc(Pt3, cut)(u2_wire wir_r,
218 u2_atom a, // retain
219 u2_atom b, // retain
220 u2_atom c, // retain
221 u2_atom d); // retain
222
223 u2_weak // transfer
224 j2_mbc(Pt3, dor)(u2_wire wir_r,
225 u2_atom a, // retain
226 u2_atom b); // retain
227
228 u2_weak // transfer
229 j2_mbc(Pt3, dis)(u2_wire wir_r,
230 u2_atom a, // retain
231 u2_atom b); // retain
232
233
234 u2_weak // transfer
235 j2_mbc(Pt3, end)(u2_wire wir_r,
236 u2_atom a, // retain
237 u2_atom b, // retain
238 u2_atom c); // retain
239
240 u2_weak // transfer
241 j2_mbc(Pt3, gor)(u2_wire wir_r,
242 u2_atom a, // retain
243 u2_atom b); // retain
244
245 u2_weak // transfer
246 j2_mbc(Pt3, hor)(u2_wire wir_r,
247 u2_atom a, // retain
248 u2_atom b); // retain
249
250 u2_weak // transfer
251 j2_mbc(Pt3, lsh)(u2_wire wir_r,
252 u2_atom a, // retain
253 u2_atom b, // retain
254 u2_atom c); // retain
255
256 u2_weak // transfer
257 j2_mbc(Pt3, mas)(u2_wire wir_r,
258 u2_atom a); // retain
259
260 u2_weak // transfer
261 j2_mbc(Pt3, met)(u2_wire wir_r,
262 u2_atom a, // retain
263 u2_atom b); // retain
264
265 u2_weak // transfer
266 j2_mbc(Pt3, mix)(u2_wire wir_r,
267 u2_atom a, // retain
268 u2_atom b); // retain
269
270 u2_weak // transfer
271 j2_mbc(Pt3, peg)(u2_wire wir_r,
272 u2_atom a, // retain
273 u2_atom b); // retain
274
275 u2_weak // transfer
276 j2_mbc(Pt3, rap)(u2_wire wir_r,
277 u2_atom a, // retain
278 u2_noun b); // retain
279
280 u2_weak // transfer
281 j2_mbc(Pt3, rip)(u2_wire wir_r,
282 u2_atom a, // retain
283 u2_atom b); // retain
284
285 u2_weak // transfer
286 j2_mbc(Pt3, rsh)(u2_wire wir_r,
287 u2_atom a, // retain
288 u2_atom b, // retain
289 u2_atom c); // retain
290
291 u2_weak // transfer
292 j2_mbc(Pt3, vor)(u2_wire wir_r,
293 u2_atom a, // retain
294 u2_atom b); // retain
295
296 /** Tier 4.
297 **/
298 u2_weak // transfer
299 j2_mcc(Pt4, in, put)(u2_wire wir_r,
300 u2_noun a, // retain
301 u2_noun b); // retain
302
303 u2_weak // transfer
304 j2_mcc(Pt4, in, gas)(u2_wire wir_r,
305 u2_noun a, // retain
306 u2_noun b); // retain
307
308 u2_flag
309 j2_mcc(Pt4, in, has)(u2_wire wir_r,
310 u2_noun a, // retain
311 u2_noun b); // retain
312
313 u2_weak // transfer
314 j2_mcc(Pt4, in, tap)(u2_wire wir_r,
315 u2_noun a, // retain
316 u2_noun b); // retain
317
318 u2_noun // transfer
319 j2_mcc(Pt4, by, get)(u2_wire wir_r,
320 u2_noun a, // retain
321 u2_noun b); // retain
322
323 u2_weak // transfer
324 j2_mcc(Pt4, by, put)(u2_wire wir_r,
325 u2_noun a, // retain
326 u2_noun b, // retain
327 u2_noun c); // retain
328
329 u2_weak // transfer
330 j2_mcc(Pt4, by, gas)(u2_wire wir_r,
331 u2_noun a, // retain
332 u2_noun b); // retain
333 /** Tier 5.
334 **/
335 u2_noun // transfer
336 j2_mby(Pt5, cue)(u2_wire wir_r,
337 u2_atom a); // retain
338
339 u2_noun // transfer
340 j2_mby(Pt5, jam)(u2_wire wir_r,
341 u2_atom a); // retain
342
343 u2_noun // produce
344 j2_mby(Pt5, mat)(u2_wire wir_r,
345 u2_atom a); // retain
346
347 u2_noun // produce
348 j2_mby(Pt5, rub)(u2_wire wir_r,
349 u2_atom a, // retain
350 u2_atom b); // retain
351
352 /** Tier 6.
353 **/
354 u2_noun // transfer
355 j2_mby(Pt6, cell)(u2_wire wir_r,
356 u2_noun hed, // retain
357 u2_noun tal); // retain
358 u2_noun // transfer
359 j2_mbc(Pt6, comb)(u2_wire wir_r,
360 u2_noun mal, // retain
361 u2_noun buz); // retain
362 u2_noun // transfer
363 j2_mby(Pt6, cons)(u2_wire wir_r,
364 u2_noun vur, // retain
365 u2_noun sed); // retain
366 u2_noun // transfer
367 j2_mby(Pt6, core)(u2_wire wir_r,
368 u2_noun pac, // retain
369 u2_noun con); // retain
370
371 u2_noun // transfer
372 j2_mby(Pt6, fork)(u2_wire wir_r,
373 u2_noun hoz, // retain
374 u2_noun bur); // retain
375
376 u2_noun // transfer
377 j2_mby(Pt6, face)(u2_wire wir_r,
378 u2_noun cog, // retain
379 u2_noun tip); // retain
380
381 u2_noun // transfer
382 j2_mby(Pt6, flip)(u2_wire wir_r,
383 u2_noun hel); // retain
384
385 u2_noun // transfer
386 j2_mby(Pt6, flor)(u2_wire wir_r,
387 u2_noun bos, // retain
388 u2_noun nif); // retain
389
390 u2_noun // transfer
391 j2_mby(Pt6, flan)(u2_wire wir_r,
392 u2_noun bos, // retain
393 u2_noun nif); // retain
394
395 u2_noun // transfer
396 j2_mcy(Pt6, ut, heal)(u2_wire wir_r,
397 u2_noun van, // retain
398 u2_noun sut, // retain
399 u2_noun qog, // retain
400 u2_noun axe, // retain
401 u2_noun ref); // retain
402
403 u2_noun // transfer
404 j2_mby(Pt6, hike)(u2_wire wir_r,
405 u2_noun axe, // retain
406 u2_noun pac); // retain
407
408 u2_noun // transfer
409 j2_mby(Pt6, look)(u2_wire wir_r,
410 u2_noun cog, // retain
411 u2_noun dab); // retain
412
413 u2_noun // transfer
414 j2_mcy(Pt6, ap, hack)(u2_wire wir_r,
415 u2_noun gen); // retain
416
417 u2_noun // transfer
418 j2_mcy(Pt6, ap, open)(u2_wire wir_r,
419 u2_noun gen); // retain
420
421 u2_noun // transfer
422 j2_mcy(Pt6, ap, rake)(u2_wire wir_r,
423 u2_noun gen); // retain
424
425 u2_noun // transfer
426 j2_mcy(Pt6, ut, bake)(u2_wire wir_r,
427 u2_noun van, // retain
428 u2_noun sut, // retain
429 u2_noun dab); // retain
430
431 u2_noun // transfer
432 j2_mcy(Pt6, ut, burn)(u2_wire wir_r,
433 u2_noun van, // retain
434 u2_noun sut); // retain
435
436 u2_noun // transfer
437 j2_mcy(Pt6, ut, cull)(u2_wire wir_r,
438 u2_noun van, // retain
439 u2_noun sut, // retain
440 u2_atom axe, // retain
441 u2_noun ref); // retain
442
443 u2_noun // transfer
444 j2_mcy(Pt6, ut, edit)(u2_wire wir_r,
445 u2_noun van, // retain
446 u2_noun sut, // retain
447 u2_noun mun, // retain
448 u2_noun har); // retain
449
450 u2_noun // transfer
451 j2_mcy(Pt6, ut, emit)(u2_wire wir_r,
452 u2_noun van, // retain
453 u2_noun sut, // retain
454 u2_atom axe, // retain
455 u2_noun mun, // retain
456 u2_noun har); // retain
457
458 u2_noun // transfer
459 j2_mcy(Pt6, ut, fern)(u2_wire wir_r,
460 u2_noun van, // retain
461 u2_noun sut, // retain
462 u2_noun dox, // retain
463 u2_noun gen); // retain
464
465 u2_noun // transfer
466 j2_mcy(Pt6, ut, find)(u2_wire wir_r,
467 u2_noun van, // retain
468 u2_noun sut, // retain
469 u2_noun way, // retain
470 u2_noun cog); // retain
471
472 u2_noun // transfer
473 j2_mcy(Pt6, ut, fire)(u2_wire wir_r,
474 u2_noun van, // retain
475 u2_noun sut, // retain
476 u2_noun hag); // retain
477
478 u2_noun // transfer
479 j2_mcy(Pt6, ut, fish)(u2_wire wir_r,
480 u2_noun van, // retain
481 u2_noun sut, // retain
482 u2_atom axe); // retain
483
484 u2_noun // transfer
485 j2_mcy(Pt6, ut, fret)(u2_wire wir_r,
486 u2_noun van, // retain
487 u2_noun sut, // retain
488 u2_noun dox, // retain
489 u2_noun gen); // retain
490
491 u2_noun // transfer
492 j2_mcy(Pt6, ut, fuse)(u2_wire wir_r,
493 u2_noun van, // retain
494 u2_noun sut, // retain
495 u2_noun ref); // retain
496
497 u2_noun // transfer
498 j2_mcy(Pt6, ut, gain)(u2_wire wir_r,
499 u2_noun van, // retain
500 u2_noun sut, // retain
501 u2_noun gen); // retain
502
503 u2_noun // transfer
504 j2_mcy(Pt6, ut, mint)(u2_wire wir_r,
505 u2_noun van, // retain
506 u2_noun sut, // retain
507 u2_noun gol, // retain
508 u2_noun gen); // retain
509
510 u2_flag // transfer
511 j2_mcy(Pt6, ut, nest)(u2_wire wir_r,
512 u2_noun van, // retain
513 u2_noun sut, // retain
514 u2_noun ref); // retain
515
516 u2_flag // transfer
517 j2_mcy(Pt6, ut, orth)(u2_wire wir_r,
518 u2_noun van, // retain
519 u2_noun sut, // retain
520 u2_noun ref); // retain
521
522 u2_noun // transfer
523 j2_mcy(Pt6, ut, park)(u2_wire wir_r,
524 u2_noun van, // retain
525 u2_noun sut, // retain
526 u2_noun way, // retain
527 u2_noun axe); // retain
528
529 u2_noun // transfer
530 j2_mcy(Pt6, ut, peek)(u2_wire wir_r,
531 u2_noun van, // retain
532 u2_noun sut, // retain
533 u2_noun way, // retain
534 u2_noun axe); // retain
535
536 u2_noun // transfer
537 j2_mcy(Pt6, ut, play)(u2_wire wir_r,
538 u2_noun van, // retain
539 u2_noun sut, // retain
540 u2_noun gen); // retain
541
542 u2_noun // transfer
543 j2_mcy(Pt6, ut, repo)(u2_wire wir_r,
544 u2_noun van, // retain
545 u2_noun sut); // retain
546
547 u2_noun // transfer
548 j2_mcy(Pt6, ut, rest)(u2_wire wir_r,
549 u2_noun van, // retain
550 u2_noun sut, // retain
551 u2_noun leg); // retain
552
553 u2_noun // transfer
554 j2_mcy(Pt6, ut, seek)(u2_wire wir_r,
555 u2_noun van, // retain
556 u2_noun sut, // retain
557 u2_noun way,
558 u2_noun hep); // retain
559
560 u2_noun // transfer
561 j2_mcy(Pt6, ut, snap)(u2_wire wir_r,
562 u2_noun van, // retain
563 u2_noun sut, // retain
564 u2_noun gen); // retain
565
566 u2_noun // transfer
567 j2_mcy(Pt6, ut, tuck)(u2_wire wir_r,
568 u2_noun van, // retain
569 u2_noun sut, // retain
570 u2_noun rup, // retain
571 u2_noun boz, // retain
572 u2_noun rix); // retain
573
574 u2_noun // transfer
575 j2_mcy(Pt6, ut, tusk)(u2_wire wir_r,
576 u2_noun van, // retain
577 u2_noun sut, // retain
578 u2_noun rup, // retain
579 u2_noun boz, // retain
580 u2_noun rix); // retain
581
582 /** Direct ut axes.
583 **/
584 # define j2_ut_van_fan 18
585 # define j2_ut_van_rib 38
586 # define j2_ut_van_vrf 39
587 # define j2_ut_van_vet 78
588 # define j2_ut_van_fab 79
589
590 /** Debugging hacks.
591 **/
592 void
593 j2_mby(Pt6, type)(u2_wire wir_r,
594 u2_noun typ); // retain
595
596 u2_noun // produce
597 j2_mcy(Pt6, ut, dunq)(u2_wire wir_r,
598 u2_noun van, // retain
599 const c3_c* cap_c, // retain
600 u2_noun typ); // retain
601
602 u2_noun // produce
603 j2_mcy(Pt6, ut, shew)(u2_wire wir_r,
604 u2_noun van, // retain
605 u2_noun mol); // submit
606
607 u2_noun // produce
608 j2_mcy(Pt6, ut, shep)(u2_wire wir_r,
609 u2_noun van, // retain
610 const c3_c* paz_c, // retain
611 u2_noun sty, // retain
612 u2_noun mol); // submit
Something went wrong with that request. Please try again.