![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pci-device_1013_00b8.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-qemu / slof|
Return to pci-device_1013_00b8.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-qemu / slof |
1.1 root 1: \ *****************************************************************************
2: \ * Copyright (c) 2011 IBM Corporation
3: \ * All rights reserved.
4: \ * This program and the accompanying materials
5: \ * are made available under the terms of the BSD License
6: \ * which accompanies this distribution, and is available at
7: \ * http://www.opensource.org/licenses/bsd-license.php
8: \ *
9: \ * Contributors:
10: \ * IBM Corporation - initial implementation
11: \ ****************************************************************************/
12:
13: my-space pci-device-generic-setup
14:
15: \ Defaults, overriden from qemu
16: d# 800 VALUE disp-width
17: d# 600 VALUE disp-height
18: d# 8 VALUE disp-depth
19:
20: \ Determine base address
21: 10 config-l@ translate-my-address 3 not AND VALUE fb-base
22:
23: \ Fixed up later
24: -1 VALUE io-base
25:
26: \ We support only one instance
27: false VALUE is-installed?
28:
29: : vga-io-xlate ( port -- addr )
30: io-base -1 = IF
31: dup translate-my-address fff not and to io-base
32: THEN
33: io-base +
34: ;
35:
36: : vga-w! ( value port -- )
37: vga-io-xlate rw!-le
38: ;
39:
40: : vga-w@ ( port -- value )
41: vga-io-xlate rw@-le
42: ;
43:
44: : vga-b! ( value port -- )
45: vga-io-xlate rb!
46: ;
47:
48: : vga-b@ ( port -- value )
49: vga-io-xlate rb@
50: ;
51:
52: : vga-crt@ ( index -- value )
53: 3d4 vga-b!
54: 3d5 vga-b@
55: ;
56:
57: : vga-crt! ( value index -- )
58: 3d4 vga-b!
59: 3d5 vga-b!
60: ;
61:
62: : vga-seq@ ( index -- value )
63: 3c4 vga-b!
64: 3c5 vga-b@
65: ;
66:
67: : vga-seq! ( value index -- )
68: 3c4 vga-b!
69: 3c5 vga-b!
70: ;
71:
72: : vga-att@ ( index -- value )
73: 3c0 vga-b!
74: 3c1 vga-b@
75: ;
76:
77: : vga-att! ( value index -- )
78: 3c0 vga-b!
79: 3c0 vga-b!
80: ;
81:
82: : vga-gfx@ ( index -- value )
83: 3ce vga-b!
84: 3cf vga-b@
85: ;
86:
87: : vga-gfx! ( value index -- )
88: 3ce vga-b!
89: 3cf vga-b!
90: ;
91:
92: \ **************************************************************************
93: \ ** These come from vga-display.fs and should probably be moved to a common
94: \ ** location.
95:
96: : draw-rectangle ( adr x y w h -- )
97: is-installed? IF
98: 0 ?DO
99: 4dup ( adr x y w adr x y w )
100: drop ( adr x y w adr x y )
101: i + screen-width * + \ calculate offset into framebuffer ((y + i) * screen_width + x)
102: ( adr x y w adr offs )
103: frame-buffer-adr + \ add to frame-buffer-adr ( adr x y w adr fb_adr )
104: 1 pick 3 pick i * + swap 3 pick ( adr x y w adr adr_offs fb_adr w )
105: rmove \ copy line ( adr x y w adr )
106: drop ( adr x y w )
107: LOOP
108: 4drop
109: ELSE
110: 4drop drop
111: THEN
112: ;
113:
114: : fill-rectangle ( number x y w h -- )
115: is-installed? IF
116: 0 ?DO
117: 4dup ( number x y w number x y w )
118: drop ( number x y w number x y )
119: i + screen-width * + \ calculate offset into framebuffer ((y + i) * screen_width + x)
120: ( number x y w number offs )
121: frame-buffer-adr + \ add to frame-buffer-adr ( number x y w number adr )
122: 2 pick 2 pick ( number x y w number adr w number )
123: rfill \ draw line ( number x y w number )
124: drop ( number x y w )
125: LOOP
126: 4drop
127: ELSE
128: 4drop drop
129: THEN
130: ;
131:
132: : read-rectangle ( adr x y w h -- )
133: is-installed? IF
134: 0 ?DO
135: 4dup ( adr x y w adr x y w )
136: drop ( adr x y w adr x y )
137: i + screen-width * + \ calculate offset into framebuffer ((y + i) * screen_width + x)
138: ( adr x y w adr offs )
139: frame-buffer-adr + \ add to frame-buffer-adr ( adr x y w adr fb_adr )
140: 1 pick 3 pick i * + 3 pick ( adr x y w adr fb_adr adr_offs w )
141: rmove \ copy line ( adr x y w adr )
142: drop ( adr x y w )
143: LOOP
144: 4drop
145: ELSE
146: 4drop drop
147: THEN
148: ;
149:
150: \ ** end of copy from vga-display.fs
151: \ **************************************************************************
152:
153: : color! ( r g b number -- )
154: 3c8 vga-b!
155: rot 2 >> 3c9 vga-b!
156: swap 2 >> 3c9 vga-b!
157: 2 >> 3c9 vga-b!
158: ;
159:
160: : color@ ( number -- r g b )
161: 3c8 vga-b!
162: 3c9 vga-b@ 2 <<
163: 3c9 vga-b@ 2 <<
164: 3c9 vga-b@ 2 <<
165: ;
166:
167: : set-colors ( adr number #numbers -- )
168: over 3c8 vga-b!
169: swap DO
170: rb@ 2 >> 3c9 vga-b!
171: rb@ 2 >> 3c9 vga-b!
172: rb@ 2 >> 3c9 vga-b!
173: LOOP
174: 3drop
175: ;
176:
177: : get-colors ( adr number #numbers -- )
178: 3drop
179: ;
180:
181: : default-palette
182: \ Grayscale ramp for now, be smarter later
183: 100 0 DO
184: i i i i color!
185: LOOP
186: ;
187:
188:
189: : init-mode
190: 3da vga-b@ drop \ reset flip flop
191: 0f 3c2 vga-b! \ color mode, ram enable, ...
192: 12 06 vga-seq! \ unlock extensions
193: 05 06 vga-gfx! \ graphic mode
194: \ set bit depth. Note: we should set the hidden
195: \ dac register to differenciate 15 and 16bpp, but
196: \ it's annoying and in practice we don't care as
197: \ we are only displaying in black & white atm
198: disp-depth CASE \ set depth
199: 8 OF 01 07 vga-seq! ENDOF
200: f OF 07 07 vga-seq! ENDOF
201: 10 OF 07 07 vga-seq! ENDOF
202: 20 OF 09 07 vga-seq! ENDOF
203: ENDCASE
204: ff 02 vga-seq! \ enable plane write
205: 0a 04 vga-seq! \ memory mode
206: 03 17 vga-crt! \ disable display
207: \ calculate line offset & split
208: disp-width disp-depth 7 + 8 / * 3 >>
209: dup ff and 13 vga-crt! \ bottom bits
210: 4 >> 10 and 1b vga-crt! \ top bit
211: disp-width 3 >> 1 - 01 vga-crt! \ H_DISP
212: disp-height 1 - ff and 12 vga-crt! \ V_DISP
213: disp-height 1 - 7 >> 2 and
214: disp-height 1 - 3 >> 40 and
215: or 10 or 07 vga-crt! \ OFLOW
216: ff 18 vga-crt! \ LINE_COMPARE
217: 40 09 vga-crt! \ MAX_SCAN
218: 08 04 vga-crt! \ SYNC_START
219: 0f 02 vga-crt! \ BLANK_START
220: 00 0c vga-crt!
221: 00 0d vga-crt!
222: 40 05 vga-gfx! \ gfx mode
223: 83 17 vga-crt! \ enable display
224: 33 3c0 vga-b! \ gfx in ar index
225: 00 3c0 vga-b!
226: 01 01 vga-seq! \ enable seq
227: ;
228:
229: : clear-screen
230: fb-base disp-width disp-height disp-depth 7 + 8 / * * 0 rfill
231: ;
232:
233: : read-settings
234: s" qemu,graphic-width" get-chosen IF
235: decode-int to disp-width 2drop
236: THEN
237: s" qemu,graphic-height" get-chosen IF
238: decode-int to disp-height 2drop
239: THEN
240: s" qemu,graphic-depth" get-chosen IF
241: decode-int nip nip
242: dup 8 =
243: over f = or
244: over 10 = or
245: over 20 = or IF
246: to disp-depth
247: ELSE
248: ." Unsupported bit depth, using 8bpp " drop cr
249: THEN
250: THEN
251: ;
252:
253: : add-legacy-reg
254: \ add legacy I/O Ports / Memory regions to assigned-addresses
255: \ see PCI Bus Binding Revision 2.1 Section 7.
256: s" reg" get-node get-property IF
257: \ "reg" does not exist, create new
258: encode-start
259: ELSE
260: \ "reg" does exist, copy it
261: encode-bytes
262: THEN
263: \ I/O Range 0x1ce-0x1d2
264: my-space a1000000 or encode-int+ \ non-relocatable, aliased I/O space
265: 1ce encode-64+ 4 encode-64+ \ addr size
266: \ I/O Range 0x3B0-0x3BB
267: my-space a1000000 or encode-int+ \ non-relocatable, aliased I/O space
268: 3b0 encode-64+ c encode-64+ \ addr size
269: \ I/O Range 0x3C0-0x3DF
270: my-space a1000000 or encode-int+ \ non-relocatable, aliased I/O space
271: 3c0 encode-64+ 20 encode-64+ \ addr size
272: \ Memory Range 0xA0000-0xBFFFF
273: my-space a2000000 or encode-int+ \ non-relocatable, <1MB Memory space
274: a0000 encode-64+ 20000 encode-64+ \ addr size
275: s" reg" property \ store "reg" property
276: ;
277:
278: : setup-properties
279: \ Shouldn't this be done from open ?
280: disp-width encode-int s" width" property
281: disp-height encode-int s" height" property
282: disp-width disp-depth 7 + 8 / * encode-int s" linebytes" property
283: disp-depth encode-int s" depth" property
284: s" ISO8859-1" encode-string s" character-set" property \ i hope this is ok...
285: \ add "device_type" property
286: s" display" encode-string s" device_type" property
287: \ XXX We don't create an "address" property because Linux doesn't know what
288: \ to do with it for >32-bit
289: ;
290:
291: \ words for installation/removal, needed by is-install/is-remove, see display.fs
292: : display-remove ( -- )
293: ;
294:
295: : display-install ( -- )
296: is-installed? NOT IF
297: ." Installing QEMU fb" cr
298: fb-base to frame-buffer-adr
299: default-font
300: set-font
301: disp-width disp-height
302: disp-width char-width / disp-height char-height /
303: disp-depth 7 + 8 / ( width height #lines #cols depth )
304: fb-install
305: true to is-installed?
306: THEN
307: ;
308:
309: : dimensions ( -- width height )
310: disp-width disp-height
311: ;
312:
313: : set-alias
314: s" screen" find-alias 0= IF
315: \ no previous screen alias defined, define it...
316: s" screen" get-node node>path set-alias
317: ELSE
318: drop
319: THEN
320: ;
321:
322:
323: ." cirrus vga" cr
324:
325: pci-master-enable
326: pci-mem-enable
327: pci-io-enable
328: add-legacy-reg
329: read-settings
330: init-mode
331: clear-screen
332: default-palette
333: setup-properties
334: ' display-install is-install
335: ' display-remove is-remove
336: set-alias
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.