Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory clnet:/tmp/cvs-serv30885 Added Files: bochs-vbe.lisp Log Message:
From Martin Bealby, via movitz-devel.
--- /project/movitz/cvsroot/movitz/losp/x86-pc/bochs-vbe.lisp 2007/07/19 21:49:34 NONE +++ /project/movitz/cvsroot/movitz/losp/x86-pc/bochs-vbe.lisp 2007/07/19 21:49:34 1.1 ;;;; bochs-vbe.lisp ;;;; Support for the bochs/qemu video bios extensions ;;;; Martin Bealby 2007 (require :x86-pc/package) (provide :x86-pc/bochs-vbe) (in-package muerte.x86-pc) ;; ;; Port constants ;; (defconstant +bochs-vbe-ioport-index+ #x01ce) (defconstant +bochs-vbe-ioport-data+ #x01cf) ;; ;; Register constants ;; (defconstant +bochs-vbe-index-id+ #x0) (defconstant +bochs-vbe-index-width+ #x1) (defconstant +bochs-vbe-index-height+ #x2) (defconstant +bochs-vbe-index-bits-per-pixel+ #x3) (defconstant +bochs-vbe-index-enable+ #x4) (defconstant +bochs-vbe-index-bank+ #x5) (defconstant +bochs-vbe-index-virtual-width+ #x6) (defconstant +bochs-vbe-index-virtual-height+ #x7) (defconstant +bochs-vbe-index-x-offset+ #x8) (defconstant +bochs-vbe-index-y-offset+ #x9) ;; ;; Command constants ;; (defconstant +bochs-vbe-command-disable+ #x00) (defconstant +bochs-vbe-command-enable+ #x01) (defconstant +bochs-vbe-command-getcaps+ #x02) (defconstant +bochs-vbe-command-8bit-dac+ #x20) (defconstant +bochs-vbe-command-linear-framebuffer+ #x40) (defconstant +bochs-vbe-command-noclearmem+ #x80) ;; ;; Parameters ;; (defvar *bochs-vbe-framebuffer-width* 0) (defvar *bochs-vbe-framebuffer-height* 0) (defvar *bochs-vbe-framebuffer-bits-per-pixel* 0) ;; ;; Support functions ;; (defun bochs-vbe-write-to-ports (index value) "Writes to the Bochs VBE ports." (setf (io-port +bochs-vbe-ioport-index+ :unsigned-byte16) index) (setf (io-port +bochs-vbe-ioport-data+ :unsigned-byte16) value)) ;; ;; Interface functions ;; (defun bochs-vbe-set-video-mode (width height bits-per-pixel) "Sets the video mode to the specified parameters." (bochs-vbe-write-to-ports +bochs-vbe-index-enable+ +bochs-vbe-command-disable+) (bochs-vbe-write-to-ports +bochs-vbe-index-width+ width) (bochs-vbe-write-to-ports +bochs-vbe-index-height+ height) (bochs-vbe-write-to-ports +bochs-vbe-index-bits-per-pixel+ bits-per-pixel) (bochs-vbe-write-to-ports +bochs-vbe-index-enable+ (logior +bochs-vbe-command-enable+ +bochs-vbe-command-linear-framebuffer+)) (setf *bochs-vbe-framebuffer-width* width) (setf *bochs-vbe-framebuffer-height* height) (setf *bochs-vbe-framebuffer-bits-per-pixel* bits-per-pixel)) (defun bochs-vbe-get-framebuffer-address () "Returns the address of the framebuffer." #xe0000000)