![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vga-display.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-js2x / slof|
Return to vga-display.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof |
1.1 root 1: \ *****************************************************************************
2: \ * Copyright (c) 2004, 2008 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: \ included by pci-class_03.fs
14:
15: ( str len display_num ) \ name prefix
16:
17: false value is-installed?
18: value display_num ( str len )
19:
20: s" ,Display-" $cat 41 display_num + char-cat \ add ", Display-A" or "-B" to name ( str len )
21: encode-string s" name" property \ store as name property
22:
23: s" display" encode-string s" device_type" property \ add "device_type" propert
24:
25: \ screen-info is set by pci-class_03.fs contains output of get_vbe_info bios-snk call
26: CASE screen-info c@ \ ( display-type )
27: 0 OF s" NONE" ENDOF \ No display
28: 1 OF s" Analog" ENDOF
29: 2 OF s" Digital" ENDOF
30: ENDCASE
31: encode-string s" display-type" property
32:
33: screen-info 8 + l@ value mem-adr
34: screen-info 1 + w@ value width
35: screen-info 3 + w@ value height
36:
37: screen-info c@ IF
38: \ if screen-info is not 0, we have some screen attached, add needed properties...
39: width encode-int s" width" property
40: height encode-int s" height" property
41: screen-info 5 + w@ encode-int s" linebytes" property
42: screen-info 7 + c@ encode-int s" depth" property
43: mem-adr encode-int s" address" property
44: \ the EDID property breaks the boot... so i leave it out for now,
45: \ maybe encode-bytes does s.th. wrong???
46: \ screen-info c + 80 encode-bytes s" EDID" property
47: s" ISO8859-1" encode-string s" character-set" property \ i hope this is ok...
48: THEN
49:
50: \ words for installation/removal, needed by is-install/is-remove, see display.fs
51: : display-remove ( -- )
52: ;
53: : display-install ( -- )
54: is-installed? NOT IF
55: mem-adr to frame-buffer-adr
56: default-font
57: set-font
58: width height width char-width / height char-height / ( width height #lines #cols )
59: fb8-install
60: true to is-installed?
61: THEN
62: ;
63:
64: \ as of OF 8bit Graphics Recommendation, these shall be implemented:
65:
66: : draw-rectangle ( adr x y w h -- )
67: is-installed? IF
68: 0 ?DO
69: 4dup ( adr x y w adr x y w )
70: drop ( adr x y w adr x y )
71: i + screen-width * + \ calculate offset into framebuffer ((y + i) * screen_width + x)
72: ( adr x y w adr offs )
73: frame-buffer-adr + \ add to frame-buffer-adr ( adr x y w adr fb_adr )
74: 1 pick 3 pick i * + swap 3 pick ( adr x y w adr adr_offs fb_adr w )
75: rmove \ copy line ( adr x y w adr )
76: drop ( adr x y w )
77: LOOP
78: 4drop
79: ELSE
80: 4drop drop
81: THEN
82: ;
83:
84: : fill-rectangle ( number x y w h -- )
85: is-installed? IF
86: 0 ?DO
87: 4dup ( number x y w number x y w )
88: drop ( number x y w number x y )
89: i + screen-width * + \ calculate offset into framebuffer ((y + i) * screen_width + x)
90: ( number x y w number offs )
91: frame-buffer-adr + \ add to frame-buffer-adr ( number x y w number adr )
92: 2 pick 2 pick ( number x y w number adr w number )
93: rfill \ draw line ( number x y w number )
94: drop ( number x y w )
95: LOOP
96: 4drop
97: ELSE
98: 4drop drop
99: THEN
100: ;
101:
102: : read-rectangle ( adr x y w h -- )
103: is-installed? IF
104: 0 ?DO
105: 4dup ( adr x y w adr x y w )
106: drop ( adr x y w adr x y )
107: i + screen-width * + \ calculate offset into framebuffer ((y + i) * screen_width + x)
108: ( adr x y w adr offs )
109: frame-buffer-adr + \ add to frame-buffer-adr ( adr x y w adr fb_adr )
110: 1 pick 3 pick i * + 3 pick ( adr x y w adr fb_adr adr_offs w )
111: rmove \ copy line ( adr x y w adr )
112: drop ( adr x y w )
113: LOOP
114: 4drop
115: ELSE
116: 4drop drop
117: THEN
118: ;
119:
120: : color! ( r g b number -- )
121: \ 3c8 is RAMDAC write mode select palette entry register
122: \ 3c9 is RAMDAC write mode write palette entry register ( 3 consecutive writes set new entry )
123: vga-device-node? 3c8 translate-address ( r g b number address )
124: swap 1 pick ( r g b address number address )
125: rb! \ write palette entry number ( r g b address )
126: 1 + \ select next register (3c9)
127: dup 4 pick swap rb! \ write red ( r g b address )
128: dup 3 pick swap rb! \ write green ( r g b address )
129: dup 2 pick swap rb! \ write blue ( r g b address )
130: 4drop
131: ;
132:
133: : color@ ( number -- r g b )
134: \ 3c7 is RAMDAC read mode select palette entry register
135: \ 3c9 is RAMDAC read mode read palette entry register ( 3 consecutive reads read entry )
136: vga-device-node? 3c7 translate-address ( number address )
137: swap 1 pick ( address number address )
138: rb! \ write palette entry number ( address )
139: 2 + >r \ select next register (3c9) ( R: address )
140: r@ rb@ \ read red ( r R: address )
141: r@ rb@ \ read green ( r g R: address )
142: r@ rb@ \ write blue ( r g b R: address )
143: r> drop ( r g b )
144: ;
145:
146: : set-colors ( adr number #numbers -- )
147: \ 3c8 is RAMDAC write mode select palette entry register
148: \ 3c9 is RAMDAC write mode write palette entry register ( 3 consecutive writes set new entry )
149: \ since after writing 3 entries, the palette entry is automagically incremented,
150: \ we can just continue writing...
151: vga-device-node? 3c8 translate-address ( adr number #numbers )
152: dup 3 pick swap ( adr number #numbers address number address )
153: rb! \ write palette entry number ( adr number #numbers address )
154: 1 + \ select next register (3c9)
155: -rot swap drop ( adr address #numbers )
156: -rot swap rot ( address adr #numbers )
157: 0 ?DO
158: ( address adr )
159: dup rb@ \ read red value from adr ( address adr r )
160: 2 pick rb! \ write to register ( address adr )
161: 1 + \ next adr
162: dup rb@ \ read green value from adr ( address adr g )
163: 2 pick rb! \ write to register ( address adr )
164: 1 + \ next adr
165: dup rb@ \ read blue value from adr ( address adr r )
166: 2 pick rb! \ write to register ( address adr )
167: 1 + \ next adr
168: LOOP
169: 2drop
170: ;
171:
172: : get-colors ( adr number #numbers -- )
173: \ 3c7 is RAMDAC read mode select palette entry register
174: \ 3c9 is RAMDAC read mode read palette entry register ( 3 consecutive reads get entry )
175: \ since after reading 3 entries, the palette entry is automagically incremented,
176: \ we can just continue reading...
177: vga-device-node? 3c7 translate-address ( adr number #numbers )
178: dup 3 pick swap ( adr number #numbers address number address )
179: rb! \ write palette entry number ( adr number #numbers address )
180: 2 + \ select next register (3c9)
181: -rot swap drop ( adr address #numbers )
182: -rot swap rot ( address adr #numbers )
183: 0 ?DO
184: ( address adr )
185: 1 pick rb@ \ read red value from register ( address adr r )
186: 1 pick rb! \ write to adr ( address adr )
187: 1 + \ next adr
188: 1 pick rb@ \ read green value from register ( address adr g )
189: 1 pick rb! \ write to adr ( address adr )
190: 1 + \ next adr
191: 1 pick rb@ \ read blue value from register ( address adr b )
192: 1 pick rb! \ write to adr ( address adr )
193: 1 + \ next adr
194: LOOP
195: 2drop
196: ;
197:
198: : dimensions ( -- width height )
199: width height
200: ;
201:
202: \ clear screen
203: mem-adr width height * 0 rfill
204:
205: \ call is-install and is-remove
206: ' display-install is-install
207:
208: ' display-remove is-remove
209:
210: s" screen" find-alias 0= IF
211: \ no previous screen alias defined, define it...
212: s" screen" get-node node>path set-alias
213: ELSE
214: drop
215: THEN
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.