![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pmunge0.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / pico / framebuffers|
Return to pmunge0.c CVS log | Up to [Research Unix] / researchv10no / cmd / pico / framebuffers |
1.1 root 1: #include <stdio.h>
2: #include <fb.h>
3: #include "pico.h"
4:
5: #define lowbyte(A) (A)&0377
6: #define higbyte(A) ((A) >> 8) & 07
7:
8: extern short CURSCRATCH, CUROLD;
9: extern struct SRC src[MANY];
10: extern long program();
11: extern char usednew, usedold, ramtek, frameb, metheus, faster;
12: extern int DEF_LL, DEF_NL;
13:
14: struct {
15: long u;
16: long p;
17: long chld_usrt;
18: long chld_syst;
19: } tim0, tim1;
20:
21: int sx, sy, ex, ey, delta, offset;
22: int lastx, lasty, lastc;
23:
24: munge(chann)
25: { int i;
26: float t0, t1;
27:
28: sx = Old->sx;
29: sy = Old->sy;
30: ex = Old->ex;
31: ey = Old->ey;
32: offset = sy*DEF_LL + sx;
33: delta = DEF_LL - ex + sx;
34:
35: checkit();
36: /* if (usednew) { setscratch(Old, Scratch); } */
37: times(&tim0);
38:
39: switch (chann) {
40: case NLOOP: noloop(); break;
41: case SLOOP: smalloop(); break;
42: case XLOOP: oneloop(); break;
43: case BLOOP: if (faster && (metheus || Old->nchan == 1) && usednew)
44: { if (ramtek)
45: { hock();
46: break;
47: } else if (frameb)
48: { hack();
49: break;
50: } else if (metheus)
51: { hick();
52: break;
53: }
54: }
55: bigloop();
56: break;
57: }
58: times(&tim1);
59: t0 = (float) (tim1.u - tim0.u);
60: t1 = (float) (tim1.p - tim0.p);
61:
62: fprintf(stderr, "time: %4.2fu + %4.2fs = %4.2f\n",
63: t0/60.0, t1/60.0, (t1+t0)/60.0);
64: if (usednew) { setscratch(Scratch, Old); RESIDENT; }
65: }
66:
67: hock()
68: { register x, y, i = offset; /* r11, r10, r9 */
69: register short *w;
70: short W[1024+16]; /* enough room for largest line */
71: short dW = 2*(7+ex-sx);
72: extern int Rfd;
73:
74: W[0] = 05003; W[1] = 000100; W[2] = sx;
75: W[4] = ex-1; W[6] = 2*(ex-sx);
76:
77: for (y = sy; y < ey; y++, i += delta)
78: { W[3] = y; W[5] = y+1; w = &W[7];
79: for (x = sx; x < ex; x++, i++)
80: {
81: asm(" jsb *_program ");
82: asm(" CB: brb CB+9 ");
83: *w++ = program();
84: }
85: write(Rfd, W, dW);
86: }
87: }
88:
89: hack()
90: { register x, y, i = offset; /* r11, r10, r9 */
91: register r;
92:
93: extern fbreg *F; /* place holder, only 68 bytes */
94: register fbreg *f = F; /* initial value */
95:
96: f->red.csr=f->grn.csr=f->blu.csr=F_IXW;
97: for (y = sy; y < ey; y++, i += delta)
98: { f->red.x=f->grn.x=f->blu.x=sx;
99: f->red.y=f->grn.y=f->blu.y=y;
100: for (x = sx; x < ex; x++, i++)
101: {
102: asm(" jsb *_program ");
103: asm(" CA: brb CA+9 ");
104: r=program();
105: f->red.z=f->grn.z=f->blu.z=r&255;
106: }
107: }
108: }
109:
110: hick()
111: { register x, y, i = offset; /* r11, r10, r9 */
112: register unsigned char *w;
113: unsigned char mcode[16];
114: unsigned char W[1024]; /* avoid allocation */
115: unsigned char *pr, *pg, *pb;
116: extern int om_fd;
117:
118: pr = Scratch->pixred+i;
119: pg = Scratch->pixgrn+i;
120: pb = Scratch->pixblu+i;
121:
122: mcode[0] = 0x4F;
123: mcode[1] = 0377; /* WRMASK */
124: mcode[2] = 0x52; /* set P1 */
125: mcode[7] = 0x53; /* set P2 */
126: mcode[12] = 0;
127: mcode[13] = 'o';
128: mcode[3] = lowbyte(sx);
129: mcode[4] = higbyte(sx);
130: mcode[8] = lowbyte(ex);
131: mcode[9] = higbyte(ex);
132: if (Old->nchan==1)
133: for (y = sy; y < ey; y++, i += delta)
134: { mcode[5] = mcode[10] = lowbyte(y);
135: mcode[6] = mcode[11] = higbyte(y);
136: for (x = sx, w = W; x < ex; x++, i++)
137: {
138: asm(" jsb *_program ");
139: asm(" CD: brb CD+9 ");
140: *w++ = program();
141: }
142: write(om_fd, mcode, 14);
143: write(om_fd, W, ex-sx);
144: }
145: else
146: for (y = sy; y < ey; y++, i += delta)
147: { mcode[5] = mcode[10] = lowbyte(y);
148: mcode[6] = mcode[11] = higbyte(y);
149: for (x = sx; x < ex; x++, i++)
150: {
151: asm(" jsb *_program ");
152: asm(" CE: brb CE+9 ");
153: program();
154: }
155: for (x = sx, w = W; x < ex; x++)
156: *w++ = ((*pr++ & 224))|
157: ((*pg++ & 192)>>3)|
158: ((*pb++ & 224)>>5);
159: write(om_fd, mcode, 14);
160: write(om_fd, W, ex-sx);
161: pr += delta; pg += delta; pb += delta;
162: }
163: }
164:
165: bigloop()
166: { register x, y, i = offset; /* r11, r10, r9 */
167:
168: for (y = sy; y < ey; y++, i += delta)
169: for (x = sx; x < ex; x++, i++)
170: {
171: asm(" jsb *_program ");
172: asm(" C0: brb C0+9 ");
173: program();
174: }
175: }
176:
177: smalloop()
178: { register x, y, i; /* r11, r10, r9 */
179:
180: for (i = 0; i < 256; i++)
181: {
182: asm(" jsb *_program ");
183: asm(" C1: brb C1+9 ");
184: program();
185: }
186: }
187:
188: oneloop()
189: { register x, y, i; /* r11, r10, r9 */
190:
191: for (x = 0; x < DEF_LL; x++)
192: {
193: asm(" jsb *_program ");
194: asm(" C2: brb C2+9 ");
195: program();
196: }
197: }
198:
199: noloop()
200: { register x, y, i; /* r11, r10, r9 */
201:
202: asm(" jsb *_program ");
203: asm(" C3: brb C3+9 ");
204: program();
205: }
206:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.