ite_subr.c revision 1.3 1 1.3 tsutsui /* $NetBSD: ite_subr.c,v 1.3 2003/11/14 16:52:40 tsutsui Exp $ */
2 1.1 thorpej
3 1.1 thorpej /*
4 1.1 thorpej * Copyright (c) 1990, 1993
5 1.1 thorpej * The Regents of the University of California. All rights reserved.
6 1.2 agc *
7 1.2 agc * This code is derived from software contributed to Berkeley by
8 1.2 agc * the Systems Programming Group of the University of Utah Computer
9 1.2 agc * Science Department.
10 1.2 agc *
11 1.2 agc * Redistribution and use in source and binary forms, with or without
12 1.2 agc * modification, are permitted provided that the following conditions
13 1.2 agc * are met:
14 1.2 agc * 1. Redistributions of source code must retain the above copyright
15 1.2 agc * notice, this list of conditions and the following disclaimer.
16 1.2 agc * 2. Redistributions in binary form must reproduce the above copyright
17 1.2 agc * notice, this list of conditions and the following disclaimer in the
18 1.2 agc * documentation and/or other materials provided with the distribution.
19 1.2 agc * 3. Neither the name of the University nor the names of its contributors
20 1.2 agc * may be used to endorse or promote products derived from this software
21 1.2 agc * without specific prior written permission.
22 1.2 agc *
23 1.2 agc * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 1.2 agc * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 1.2 agc * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 1.2 agc * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 1.2 agc * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 1.2 agc * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 1.2 agc * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 1.2 agc * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 1.2 agc * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 1.2 agc * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 1.2 agc * SUCH DAMAGE.
34 1.2 agc *
35 1.2 agc * from: Utah $Hdr: ite_subr.c 1.2 92/01/20$
36 1.2 agc *
37 1.2 agc * @(#)ite_subr.c 8.1 (Berkeley) 6/10/93
38 1.2 agc */
39 1.2 agc /*
40 1.2 agc * Copyright (c) 1988 University of Utah.
41 1.1 thorpej *
42 1.1 thorpej * This code is derived from software contributed to Berkeley by
43 1.1 thorpej * the Systems Programming Group of the University of Utah Computer
44 1.1 thorpej * Science Department.
45 1.1 thorpej *
46 1.1 thorpej * Redistribution and use in source and binary forms, with or without
47 1.1 thorpej * modification, are permitted provided that the following conditions
48 1.1 thorpej * are met:
49 1.1 thorpej * 1. Redistributions of source code must retain the above copyright
50 1.1 thorpej * notice, this list of conditions and the following disclaimer.
51 1.1 thorpej * 2. Redistributions in binary form must reproduce the above copyright
52 1.1 thorpej * notice, this list of conditions and the following disclaimer in the
53 1.1 thorpej * documentation and/or other materials provided with the distribution.
54 1.1 thorpej * 3. All advertising materials mentioning features or use of this software
55 1.1 thorpej * must display the following acknowledgement:
56 1.1 thorpej * This product includes software developed by the University of
57 1.1 thorpej * California, Berkeley and its contributors.
58 1.1 thorpej * 4. Neither the name of the University nor the names of its contributors
59 1.1 thorpej * may be used to endorse or promote products derived from this software
60 1.1 thorpej * without specific prior written permission.
61 1.1 thorpej *
62 1.1 thorpej * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
63 1.1 thorpej * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
64 1.1 thorpej * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
65 1.1 thorpej * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
66 1.1 thorpej * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
67 1.1 thorpej * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
68 1.1 thorpej * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
69 1.1 thorpej * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
70 1.1 thorpej * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
71 1.1 thorpej * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
72 1.1 thorpej * SUCH DAMAGE.
73 1.1 thorpej *
74 1.1 thorpej * from: Utah $Hdr: ite_subr.c 1.2 92/01/20$
75 1.1 thorpej *
76 1.1 thorpej * @(#)ite_subr.c 8.1 (Berkeley) 6/10/93
77 1.1 thorpej */
78 1.1 thorpej
79 1.1 thorpej #ifdef ITECONSOLE
80 1.1 thorpej
81 1.1 thorpej #include <sys/param.h>
82 1.1 thorpej
83 1.1 thorpej #include <hp300/dev/itereg.h>
84 1.1 thorpej
85 1.1 thorpej #include <hp300/stand/common/samachdep.h>
86 1.1 thorpej #include <hp300/stand/common/itevar.h>
87 1.1 thorpej
88 1.3 tsutsui void
89 1.1 thorpej ite_fontinfo(ip)
90 1.1 thorpej struct ite_data *ip;
91 1.1 thorpej {
92 1.1 thorpej u_long fontaddr = getword(ip, getword(ip, FONTROM) + FONTADDR);
93 1.1 thorpej
94 1.1 thorpej ip->ftheight = getbyte(ip, fontaddr + FONTHEIGHT);
95 1.1 thorpej ip->ftwidth = getbyte(ip, fontaddr + FONTWIDTH);
96 1.1 thorpej ip->rows = ip->dheight / ip->ftheight;
97 1.1 thorpej ip->cols = ip->dwidth / ip->ftwidth;
98 1.1 thorpej
99 1.1 thorpej if (ip->fbwidth > ip->dwidth) {
100 1.1 thorpej /*
101 1.1 thorpej * Stuff goes to right of display.
102 1.1 thorpej */
103 1.1 thorpej ip->fontx = ip->dwidth;
104 1.1 thorpej ip->fonty = 0;
105 1.1 thorpej ip->cpl = (ip->fbwidth - ip->dwidth) / ip->ftwidth;
106 1.1 thorpej ip->cblankx = ip->dwidth;
107 1.1 thorpej ip->cblanky = ip->fonty + ((128 / ip->cpl) +1) * ip->ftheight;
108 1.1 thorpej }
109 1.1 thorpej else {
110 1.1 thorpej /*
111 1.1 thorpej * Stuff goes below the display.
112 1.1 thorpej */
113 1.1 thorpej ip->fontx = 0;
114 1.1 thorpej ip->fonty = ip->dheight;
115 1.1 thorpej ip->cpl = ip->fbwidth / ip->ftwidth;
116 1.1 thorpej ip->cblankx = 0;
117 1.1 thorpej ip->cblanky = ip->fonty + ((128 / ip->cpl) + 1) * ip->ftheight;
118 1.1 thorpej }
119 1.1 thorpej }
120 1.1 thorpej
121 1.3 tsutsui void
122 1.1 thorpej ite_fontinit(ip)
123 1.3 tsutsui struct ite_data *ip;
124 1.1 thorpej {
125 1.1 thorpej int bytewidth = (((ip->ftwidth - 1) / 8) + 1);
126 1.1 thorpej int glyphsize = bytewidth * ip->ftheight;
127 1.1 thorpej u_char fontbuf[500];
128 1.1 thorpej u_char *dp, *fbmem;
129 1.1 thorpej int c, i, romp;
130 1.1 thorpej
131 1.1 thorpej romp = getword(ip, getword(ip, FONTROM) + FONTADDR) + FONTDATA;
132 1.1 thorpej for (c = 0; c < 128; c++) {
133 1.1 thorpej fbmem = (u_char *)
134 1.1 thorpej (FBBASE +
135 1.1 thorpej (ip->fonty + (c / ip->cpl) * ip->ftheight) * ip->fbwidth +
136 1.1 thorpej (ip->fontx + (c % ip->cpl) * ip->ftwidth));
137 1.1 thorpej dp = fontbuf;
138 1.1 thorpej for (i = 0; i < glyphsize; i++) {
139 1.1 thorpej *dp++ = getbyte(ip, romp);
140 1.1 thorpej romp += 2;
141 1.1 thorpej }
142 1.1 thorpej writeglyph(ip, fbmem, fontbuf);
143 1.1 thorpej }
144 1.1 thorpej }
145 1.1 thorpej
146 1.1 thorpej /*
147 1.1 thorpej * Display independent versions of the readbyte and writeglyph routines.
148 1.1 thorpej */
149 1.1 thorpej u_char
150 1.1 thorpej ite_readbyte(ip, disp)
151 1.1 thorpej struct ite_data *ip;
152 1.1 thorpej int disp;
153 1.1 thorpej {
154 1.3 tsutsui
155 1.3 tsutsui return (u_char)*(((u_char *)ip->regbase) + disp);
156 1.1 thorpej }
157 1.1 thorpej
158 1.1 thorpej void
159 1.1 thorpej ite_writeglyph(ip, fbmem, glyphp)
160 1.3 tsutsui struct ite_data *ip;
161 1.3 tsutsui u_char *fbmem, *glyphp;
162 1.1 thorpej {
163 1.3 tsutsui int bn;
164 1.3 tsutsui int l, b;
165 1.1 thorpej
166 1.1 thorpej for (l = 0; l < ip->ftheight; l++) {
167 1.1 thorpej bn = 7;
168 1.1 thorpej for (b = 0; b < ip->ftwidth; b++) {
169 1.1 thorpej if ((1 << bn) & *glyphp)
170 1.1 thorpej *fbmem++ = 1;
171 1.1 thorpej else
172 1.1 thorpej *fbmem++ = 0;
173 1.1 thorpej if (--bn < 0) {
174 1.1 thorpej bn = 7;
175 1.1 thorpej glyphp++;
176 1.1 thorpej }
177 1.1 thorpej }
178 1.1 thorpej if (bn < 7)
179 1.1 thorpej glyphp++;
180 1.1 thorpej fbmem -= ip->ftwidth;
181 1.1 thorpej fbmem += ip->fbwidth;
182 1.1 thorpej }
183 1.1 thorpej }
184 1.1 thorpej #endif
185