summaryrefslogtreecommitdiffstats
path: root/qemu/roms/openbios/drivers/vga.fs
diff options
context:
space:
mode:
authorRajithaY <rajithax.yerrumsetty@intel.com>2017-04-25 03:31:15 -0700
committerRajitha Yerrumchetty <rajithax.yerrumsetty@intel.com>2017-05-22 06:48:08 +0000
commitbb756eebdac6fd24e8919e2c43f7d2c8c4091f59 (patch)
treeca11e03542edf2d8f631efeca5e1626d211107e3 /qemu/roms/openbios/drivers/vga.fs
parenta14b48d18a9ed03ec191cf16b162206998a895ce (diff)
Adding qemu as a submodule of KVMFORNFV
This Patch includes the changes to add qemu as a submodule to kvmfornfv repo and make use of the updated latest qemu for the execution of all testcase Change-Id: I1280af507a857675c7f81d30c95255635667bdd7 Signed-off-by:RajithaY<rajithax.yerrumsetty@intel.com>
Diffstat (limited to 'qemu/roms/openbios/drivers/vga.fs')
-rw-r--r--qemu/roms/openbios/drivers/vga.fs205
1 files changed, 0 insertions, 205 deletions
diff --git a/qemu/roms/openbios/drivers/vga.fs b/qemu/roms/openbios/drivers/vga.fs
deleted file mode 100644
index 29a043a7a..000000000
--- a/qemu/roms/openbios/drivers/vga.fs
+++ /dev/null
@@ -1,205 +0,0 @@
-\
-\ Fcode payload for QEMU VGA graphics card
-\
-\ This is the Forth source for an Fcode payload to initialise
-\ the QEMU VGA graphics card.
-\
-\ (C) Copyright 2013 Mark Cave-Ayland
-\
-
-fcode-version3
-
-\
-\ Dictionary lookups for words that don't have an FCode
-\
-
-: (find-xt) \ ( str len -- xt | -1 )
- $find if
- exit
- else
- -1
- then
-;
-
-" openbios-video-width" (find-xt) cell+ value openbios-video-width-xt
-" openbios-video-height" (find-xt) cell+ value openbios-video-height-xt
-" depth-bits" (find-xt) cell+ value depth-bits-xt
-" line-bytes" (find-xt) cell+ value line-bytes-xt
-
-: openbios-video-width openbios-video-width-xt @ ;
-: openbios-video-height openbios-video-height-xt @ ;
-: depth-bits depth-bits-xt @ ;
-: line-bytes line-bytes-xt @ ;
-
-" fb8-fillrect" (find-xt) value fb8-fillrect-xt
-: fb8-fillrect fb8-fillrect-xt execute ;
-
-\
-\ IO port words
-\
-
-" ioc!" (find-xt) value ioc!-xt
-" iow!" (find-xt) value iow!-xt
-
-: ioc! ioc!-xt execute ;
-: iow! iow!-xt execute ;
-
-\
-\ VGA registers
-\
-
-h# 3c0 constant vga-addr
-h# 3c8 constant dac-write-addr
-h# 3c9 constant dac-data-addr
-
-: vga-color! ( r g b index -- )
- \ Set the VGA colour registers
- dac-write-addr ioc! rot
- 2 >> dac-data-addr ioc! swap
- 2 >> dac-data-addr ioc!
- 2 >> dac-data-addr ioc!
-;
-
-\
-\ VBE registers
-\
-
-h# 0 constant VBE_DISPI_INDEX_ID
-h# 1 constant VBE_DISPI_INDEX_XRES
-h# 2 constant VBE_DISPI_INDEX_YRES
-h# 3 constant VBE_DISPI_INDEX_BPP
-h# 4 constant VBE_DISPI_INDEX_ENABLE
-h# 5 constant VBE_DISPI_INDEX_BANK
-h# 6 constant VBE_DISPI_INDEX_VIRT_WIDTH
-h# 7 constant VBE_DISPI_INDEX_VIRT_HEIGHT
-h# 8 constant VBE_DISPI_INDEX_X_OFFSET
-h# 9 constant VBE_DISPI_INDEX_Y_OFFSET
-h# a constant VBE_DISPI_INDEX_NB
-
-h# 0 constant VBE_DISPI_DISABLED
-h# 1 constant VBE_DISPI_ENABLED
-
-\
-\ Bochs VBE register writes
-\
-
-: vbe-iow! ( val addr -- )
- h# 1ce iow!
- h# 1d0 iow!
-;
-
-\
-\ Initialise Bochs VBE mode
-\
-
-: vbe-init ( -- )
- h# 0 vga-addr ioc! \ Enable blanking
- VBE_DISPI_DISABLED VBE_DISPI_INDEX_ENABLE vbe-iow!
- h# 0 VBE_DISPI_INDEX_X_OFFSET vbe-iow!
- h# 0 VBE_DISPI_INDEX_Y_OFFSET vbe-iow!
- openbios-video-width VBE_DISPI_INDEX_XRES vbe-iow!
- openbios-video-height VBE_DISPI_INDEX_YRES vbe-iow!
- depth-bits VBE_DISPI_INDEX_BPP vbe-iow!
- VBE_DISPI_ENABLED VBE_DISPI_INDEX_ENABLE vbe-iow!
- h# 0 vga-addr ioc!
- h# 20 vga-addr ioc! \ Disable blanking
-;
-
-\
-\ PCI
-\
-
-" pci-bar>pci-addr" (find-xt) value pci-bar>pci-addr-xt
-: pci-bar>pci-addr pci-bar>pci-addr-xt execute ;
-
-h# 10 constant cfg-bar0 \ Framebuffer BAR
--1 value fb-addr
-
-: map-fb ( -- )
- cfg-bar0 pci-bar>pci-addr if \ ( pci-addr.lo pci-addr.mid pci-addr.hi size )
- " pci-map-in" $call-parent
- to fb-addr
- then
-;
-
-\
-\ Publically visible words
-\
-
-external
-
-[IFDEF] CONFIG_MOL
-defer mol-color!
-
-\ Hook for MOL (see packages/molvideo.c)
-\
-\ Perhaps for neatness this there should be a separate molvga.fs
-\ but let's leave it here for now.
-
-: color! ( r g b index -- )
- mol-color!
-;
-
-[ELSE]
-
-\ Standard VGA
-
-: color! ( r g b index -- )
- vga-color!
-;
-
-[THEN]
-
-: fill-rectangle ( color_ind x y width height -- )
- fb8-fillrect
-;
-
-: dimensions ( -- width height )
- openbios-video-width
- openbios-video-height
-;
-
-: set-colors ( table start count -- )
- 0 do
- over dup \ ( table start table table )
- c@ swap 1+ \ ( table start r table-g )
- dup c@ swap 1+ \ ( table start r g table-b )
- c@ 3 pick \ ( table start r g b index )
- color! \ ( table start )
- 1+
- swap 3 + swap \ ( table+3 start+1 )
- loop
-;
-
-headerless
-
-\
-\ Installation
-\
-
-: qemu-vga-driver-install ( -- )
- fb-addr -1 = if
- map-fb fb-addr to frame-buffer-adr
- default-font set-font
-
- frame-buffer-adr encode-int " address" property
-
- openbios-video-width openbios-video-height over char-width / over char-height /
- fb8-install
- then
-;
-
-: qemu-vga-driver-init
-
- vbe-init
- openbios-video-width encode-int " width" property
- openbios-video-height encode-int " height" property
- depth-bits encode-int " depth" property
- line-bytes encode-int " linebytes" property
-
- ['] qemu-vga-driver-install is-install
-;
-
-qemu-vga-driver-init
-
-end0