github.com/rdolbeau.SBusFPGA
1
0
Fork 0
mirror of synced 2026-01-19 01:07:31 +00:00
Code Issues Projects Releases Wiki Activity

fb stuff

Browse Source
This commit is contained in:
Romain Dolbeau 2021-11-13 12:41:37 +01:00
parent 42f39c846f
commit 94c36e7a36
3 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sbus-to-ztex-gateware-migen/cg3.fth
View File

@ -105,6 +105,8 @@ headerless
: qemu-cg3-driver-install ( -- )
cg3-dac -1 = if
map-regs
fb-map
\ Initial pallette taken from Sun's "Writing FCode Programs"
h# ff h# ff h# ff h# 0 color! \ Background white
@ -114,7 +116,7 @@ headerless
fb-addr to frame-buffer-adr
default-font set-font
frame-buffer-adr encode-int " address" property
frame-buffer-adr encode-int " address" property \ CHECKME
openbios-video-width openbios-video-height over char-width / over char-height /
fb8-install
@ -124,7 +126,9 @@ headerless
: qemu-cg3-driver-remove ( -- )
cg3-dac -1 <> if
unmap-regs
fb-unmap
-1 to frame-buffer-adr
" address" delete-attribute
then
;

7
sbus-to-ztex-gateware-migen/cg6.fth
View File

@ -111,6 +111,7 @@ fload fbc_init.fth
map-in-fbc
init-fbc
fb-map
\ Initial pallette taken from Sun's "Writing FCode Programs"
h# ff h# ff h# ff h# 0 color! \ Background white
@ -120,7 +121,7 @@ fload fbc_init.fth
fb-addr to frame-buffer-adr
default-font set-font
frame-buffer-adr encode-int " address" property
frame-buffer-adr encode-int " address" property \ CHECKME
openbios-video-width openbios-video-height over char-width / over char-height /
fb8-install
@ -141,7 +142,9 @@ fload fbc_init.fth
cg6-dac -1 <> if
unmap-regs
map-out-fbc
fb-unmap
-1 to frame-buffer-adr
" address" delete-attribute
then
;
@ -152,6 +155,8 @@ fload fbc_init.fth
openbios-video-height encode-int " height" property
openbios-video-width encode-int " width" property
line-bytes encode-int " linebytes" property
h# b encode-int " chiprev" property \ rev 11
/cg6-off-fb h# a >> encode-int " vmsize" property
h# 39 encode-int 0 encode-int encode+ " intr" property

2
sbus-to-ztex-gateware-migen/cg6_fb.py
View File

@ -181,7 +181,7 @@ class cg6(Module, AutoCSR):
).Elif(bus2.cyc & bus2.stb & ~bus2.we & ~bus2.ack, #read
Case(bus2.adr[0:10], {
"default": [ NextValue(bus2.dat_r, 0xDEADBEEF) ],
0: [ NextValue(bus2.dat_r, 0x60500000) ], # claim revision 5
0: [ NextValue(bus2.dat_r, 0x60b00000) ], # claim revision 11 (TurboGX)
}),
NextValue(bus2.ack, 1),
).Else(