[yalo] push by yujian.zhang@gmail.com - Add bga.lisp. on 2012-05-08 11:41 GMT

[ya...@googlecode.com]

Revision: 23b5a8f2cd2f
Author: Yujian Zhang <yujian...@gmail.com>
Date: Tue May 8 04:40:46 2012
Log: Add bga.lisp.

http://code.google.com/p/yalo/source/detail?r=23b5a8f2cd2f

Added:
/cc/bga.lisp
Modified:
/cc/cc.asd

=======================================
--- /dev/null
+++ /cc/bga.lisp Tue May 8 04:40:46 2012
@@ -0,0 +1,90 @@
+;;;; -*- Mode: Lisp -*-
+;;;; Author:
+;;;; Yujian Zhang <yujian...@gmail.com>
+;;;; Description:
+;;;; Bochs VBE Extensions, see http://wiki.osdev.org/BGA
+;;;; License:
+;;;; GNU General Public License v2
+;;;; http://www.gnu.org/licenses/gpl-2.0.html
+;;;; Copyright (C) 2009-2012 Yujian Zhang
+
+(in-package :cc)
+
+(defconstant vbe-dispi-ioport-index #x1ce)
+(defconstant vbe-dispi-ioport-data #x1cf)
+
+(defconstant vbe-dispi-index-id 0)
+(defconstant vbe-dispi-index-xres 1)
+(defconstant vbe-dispi-index-yres 2)
+(defconstant vbe-dispi-index-bpp 3)
+(defconstant vbe-dispi-index-enable 4)
+(defconstant vbe-dispi-index-bank 5)
+(defconstant vbe-dispi-index-virt-width 6)
+(defconstant vbe-dispi-index-virt-height 7)
+(defconstant vbe-dispi-index-x-offset 8)
+(defconstant vbe-dispi-index-y-offset 9)
+
+(defconstant vbe-dispi-id5 #xb0c5)
+(defconstant vbe-dispi-bpp-32 #x20)
+(defconstant vbe-dispi-enabled 1)
+(defconstant vbe-dispi-disabled 0)
+
+(defparameter *bga*
+ `(;;; Write index/data to one BGA register.
+ ;;; Input:
+ ;;; AL: index value
+ ;;; BX: data value
+ ;;; Output: None
+ ;;; Modified registers: DX
+ bga-write-register
+ (mov dx ,vbe-dispi-ioport-index)
+ (out dx al)
+ (mov dx ,vbe-dispi-ioport-data)
+ (mov ax bx)
+ (out dx ax)
+ (ret)
+
+ ;;; Read BGA register.
+ ;;; Input:
+ ;;; AL: index value
+ ;;; Output: in AX
+ ;;; Modified registers: DX
+ bga-read-register
+ (mov dx ,vbe-dispi-ioport-index)
+ (out dx al)
+ (mov dx ,vbe-dispi-ioport-data)
+ (in ax dx)
+ (ret)
+
+ ;;; Check whether BGA is available.
+ ;;; Input: None
+ ;;; Output: CF is set if BGA is unavailable.
+ bga-available
+ (clc)
+ (mov al ,vbe-dispi-index-id)
+ (call bga-read-register)
+ (cmp ax ,vbe-dispi-id5)
+ (jb no-bga)
+ (ret)
+ no-bga
+ (stc)
+ (ret)
+
+ ;;; Set BGA mode.
+ set-bga-mode
+ (mov al ,vbe-dispi-index-enable)
+ (mov bx ,vbe-dispi-disabled)
+ (call bga-write-register)
+ (mov al ,vbe-dispi-index-xres)
+ (mov bx 800)
+ (call bga-write-register)
+ (mov al ,vbe-dispi-index-yres)
+ (mov bx 600)
+ (call bga-write-register)
+ (mov al ,vbe-dispi-index-bpp)
+ (mov bx ,vbe-dispi-bpp-32)
+ (call bga-write-register)
+ (mov al ,vbe-dispi-index-enable)
+ (mov bx ,vbe-dispi-enabled)
+ (call bga-write-register)
+ (ret)))
=======================================
--- /cc/cc.asd Tue Feb 17 05:54:36 2009
+++ /cc/cc.asd Tue May 8 04:40:46 2012
@@ -17,6 +17,7 @@
:components
((:file "package")
(:file "util")
+ (:file "bga")
(:file "bootloader")
(:file "x86-64-syntax")
(:file "lap")