From 440e662879c4fc3c6d4e0c542c1796d877effd76 Mon Sep 17 00:00:00 2001 From: Benjamin Herrenschmidt Date: Wed, 22 Feb 2012 10:34:27 +1100 Subject: [PATCH] Use hv-logical-memop for blinking the screen on qemu vga Signed-off-by: Benjamin Herrenschmidt --- board-qemu/slof/pci-device_1234_1111.fs | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/board-qemu/slof/pci-device_1234_1111.fs b/board-qemu/slof/pci-device_1234_1111.fs index 9987d8a..231deae 100644 --- a/board-qemu/slof/pci-device_1234_1111.fs +++ b/board-qemu/slof/pci-device_1234_1111.fs @@ -255,6 +255,16 @@ a CONSTANT VBE_DISPI_INDEX_NB : display-remove ( -- ) ; +: hcall-invert-screen ( -- ) + frame-buffer-adr frame-buffer-adr 3 + screen-height screen-width * screen-depth * /x / + 1 hv-logical-memop +; + +: hcall-blink-screen ( -- ) + hcall-invert-screen hcall-invert-screen +; + : display-install ( -- ) is-installed? NOT IF ." Installing QEMU fb" cr @@ -266,7 +276,9 @@ a CONSTANT VBE_DISPI_INDEX_NB disp-width char-width / disp-height char-height / disp-depth 7 + 8 / ( width height #lines #cols depth ) fb-install - true to is-installed? + ['] hcall-invert-screen to invert-screen + ['] hcall-blink-screen to blink-screen + true to is-installed? THEN ;