2009-06-10 22:42:01 +03:00
|
|
|
#pypp 0
|
|
|
|
// Iris: micro-kernel for a capability-based operating system.
|
2009-06-24 01:47:13 +03:00
|
|
|
// boot-programs/lcd.ccp: Display driver.
|
2009-06-10 22:42:01 +03:00
|
|
|
// Copyright 2009 Bas Wijnen <wijnen@debian.org>
|
|
|
|
//
|
|
|
|
// This program is free software: you can redistribute it and/or modify
|
|
|
|
// it under the terms of the GNU General Public License as published by
|
|
|
|
// the Free Software Foundation, either version 3 of the License, or
|
|
|
|
// (at your option) any later version.
|
|
|
|
//
|
|
|
|
// This program is distributed in the hope that it will be useful,
|
|
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
// GNU General Public License for more details.
|
|
|
|
//
|
|
|
|
// You should have received a copy of the GNU General Public License
|
|
|
|
// along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
2009-06-10 23:54:12 +03:00
|
|
|
#include "devices.hh"
|
2009-06-22 18:48:05 +03:00
|
|
|
#define ARCH
|
|
|
|
#include "arch.hh"
|
2009-06-10 22:42:01 +03:00
|
|
|
|
2009-08-24 22:02:35 +03:00
|
|
|
__asm__ volatile (".section .rodata\n.globl charset\ncharset:\n.incbin \"boot-programs/charset.data\"\n.section .text")
|
|
|
|
// charset is really the first character in the array. Its address is used as the start of the array.
|
|
|
|
extern unsigned char const charset[127-32][6]
|
2009-07-21 13:17:52 +03:00
|
|
|
|
2009-07-23 13:06:32 +03:00
|
|
|
#define assert(x) do { while (!(x)) kdebug ("assertion failed " #x); } while (0)
|
2009-07-20 01:23:45 +03:00
|
|
|
|
2009-07-21 13:17:52 +03:00
|
|
|
enum types:
|
|
|
|
LCD_EOF_CB = 32
|
2009-07-23 13:06:32 +03:00
|
|
|
LCD_LOG
|
2009-07-21 13:17:52 +03:00
|
|
|
|
2009-07-20 01:23:45 +03:00
|
|
|
// For now, support only 16 bpp.
|
|
|
|
// Screen is 800x480 tft.
|
2009-08-24 22:02:35 +03:00
|
|
|
static unsigned h = 800, v = 480, hs = 80, vs = 20, fps = 60, Bpp = 2
|
2009-07-20 01:23:45 +03:00
|
|
|
#define frame_size (v * h * Bpp)
|
|
|
|
|
2009-08-24 22:02:35 +03:00
|
|
|
static unsigned physical_descriptor
|
|
|
|
|
2009-07-20 01:23:45 +03:00
|
|
|
struct Descriptor:
|
|
|
|
unsigned next
|
|
|
|
unsigned frame
|
|
|
|
unsigned id
|
|
|
|
unsigned cmd
|
|
|
|
|
2009-08-24 22:02:35 +03:00
|
|
|
static void reset ():
|
2009-06-10 22:42:01 +03:00
|
|
|
LCD_CTRL = LCD_CTRL_BPP_16 | LCD_CTRL_BST_16
|
2009-07-05 11:52:44 +03:00
|
|
|
LCD_VSYNC = vs
|
|
|
|
LCD_HSYNC = hs
|
|
|
|
LCD_DAV = (vs << 16) | (vs + v)
|
|
|
|
LCD_DAH = (hs << 16) | (hs + h)
|
|
|
|
LCD_VAT = ((hs + h) << 16) | (vs + v)
|
|
|
|
#define MODE_TFT_GEN 0
|
|
|
|
#define VSYNC_N (1 << 8)
|
2009-07-20 01:23:45 +03:00
|
|
|
LCD_CFG = MODE_TFT_GEN | VSYNC_N
|
2009-07-05 11:52:44 +03:00
|
|
|
|
|
|
|
cpm_stop_lcd ()
|
2009-06-10 22:42:01 +03:00
|
|
|
|
2009-07-05 11:52:44 +03:00
|
|
|
unsigned pixclock = fps * (hs + h) * (vs + v)
|
2009-07-20 01:23:45 +03:00
|
|
|
unsigned pllout = cpm_get_pllout ()
|
2009-07-05 11:52:44 +03:00
|
|
|
CPM_CFCR2 = pllout / pixclock - 1
|
|
|
|
|
|
|
|
unsigned val = pllout / (pixclock * 4) - 1
|
2009-07-20 01:23:45 +03:00
|
|
|
assert (pllout / (val + 1) <= 150000000)
|
|
|
|
assert (val <= 0xf)
|
2009-07-05 11:52:44 +03:00
|
|
|
cpm_set_lcdclk_div (val)
|
|
|
|
CPM_CFCR |= CPM_CFCR_UPE
|
|
|
|
|
|
|
|
cpm_start_lcd ()
|
2009-06-10 22:42:01 +03:00
|
|
|
|
2009-07-20 01:23:45 +03:00
|
|
|
LCD_DA0 = physical_descriptor
|
2009-07-05 11:52:44 +03:00
|
|
|
lcd_set_ena ()
|
|
|
|
lcd_enable_eof_intr ()
|
2009-06-10 22:42:01 +03:00
|
|
|
|
2009-07-23 13:06:32 +03:00
|
|
|
static void putchar (unsigned x, unsigned y, unsigned ch, unsigned fg = 0xffff, unsigned bg = 0x0000):
|
|
|
|
if ch < 32 || ch > 126:
|
|
|
|
ch = 127
|
|
|
|
ch -= 32
|
2009-07-21 13:17:52 +03:00
|
|
|
unsigned lookup[2] = { bg, fg }
|
|
|
|
for unsigned k = 0; k < 6; ++k:
|
|
|
|
for unsigned r = 0; r < 8; ++r:
|
2009-08-24 22:02:35 +03:00
|
|
|
LCD_FRAMEBUFFER_BASE[(y * 8 + r) * 800 + x * 6 + k] = lookup[charset[ch][k] & (1 << r) ? 1 : 0]
|
2009-07-21 13:17:52 +03:00
|
|
|
|
|
|
|
static unsigned log_x = 1, log_y = 1
|
|
|
|
static void inc_logx ():
|
|
|
|
if ++log_x >= 800 / 6:
|
|
|
|
log_x = 1
|
|
|
|
if ++log_y >= 480 / 8:
|
|
|
|
log_y = 1
|
|
|
|
|
2009-07-23 13:06:32 +03:00
|
|
|
static void log_char (unsigned ch):
|
|
|
|
switch ch:
|
|
|
|
case '\n':
|
|
|
|
while log_x < 800 / 6:
|
|
|
|
putchar (log_x++, log_y, ' ')
|
|
|
|
inc_logx ()
|
|
|
|
break
|
|
|
|
default:
|
|
|
|
putchar (log_x, log_y, ch)
|
|
|
|
inc_logx ()
|
|
|
|
|
|
|
|
static void log_str (char const *str):
|
|
|
|
while *str:
|
|
|
|
log_char (*str++)
|
|
|
|
|
2009-09-06 12:04:09 +03:00
|
|
|
static void log_num (Kernel::Num n):
|
2009-07-23 13:06:32 +03:00
|
|
|
char const *encode = "0123456789abcdef"
|
|
|
|
log_char ('[')
|
|
|
|
for unsigned i = 0; i < 8; ++i:
|
2009-08-18 00:11:15 +03:00
|
|
|
log_char (encode[(n.h >> (4 * (7 - i))) & 0xf])
|
|
|
|
log_char (' ')
|
|
|
|
for unsigned i = 0; i < 8; ++i:
|
|
|
|
log_char (encode[(n.l >> (4 * (7 - i))) & 0xf])
|
2009-07-23 13:06:32 +03:00
|
|
|
log_char (']')
|
|
|
|
|
2009-09-06 12:04:09 +03:00
|
|
|
static void log_msg ():
|
|
|
|
log_str ("prot:")
|
|
|
|
log_num (Kernel::recv.protected_data)
|
2009-07-23 13:06:32 +03:00
|
|
|
log_str ("data:")
|
2009-08-18 00:11:15 +03:00
|
|
|
for unsigned i = 0; i < 2; ++i:
|
2009-09-06 12:04:09 +03:00
|
|
|
log_num (Kernel::recv.data[i])
|
2009-07-23 13:06:32 +03:00
|
|
|
log_char ('\n')
|
2009-07-21 13:17:52 +03:00
|
|
|
|
2009-09-06 12:04:09 +03:00
|
|
|
Kernel::Num start ():
|
2009-06-10 23:54:12 +03:00
|
|
|
map_lcd ()
|
|
|
|
map_cpm ()
|
2009-06-10 22:42:01 +03:00
|
|
|
|
2009-07-23 13:06:32 +03:00
|
|
|
Descriptor descriptor __attribute__ ((aligned (16)))
|
|
|
|
unsigned pages = (frame_size + ~PAGE_MASK) >> PAGE_BITS
|
2009-09-06 12:04:09 +03:00
|
|
|
unsigned physical = Kernel::my_memory.alloc_range (pages)
|
2009-08-24 22:02:35 +03:00
|
|
|
assert (physical & PAGE_MASK && ~physical)
|
2009-08-05 11:16:24 +03:00
|
|
|
for unsigned i = 0; i < pages; ++i:
|
2009-09-06 12:04:09 +03:00
|
|
|
Kernel::Page p = Kernel::my_memory.create_page ()
|
2009-08-18 00:11:15 +03:00
|
|
|
p.alloc_physical (physical + i * PAGE_SIZE, false, true)
|
2009-09-06 12:04:09 +03:00
|
|
|
Kernel::my_memory.map (p, (unsigned)LCD_FRAMEBUFFER_BASE + i * PAGE_SIZE)
|
|
|
|
Kernel::free_cap (p)
|
2009-07-20 01:23:45 +03:00
|
|
|
for unsigned y = 0; y < 480; ++y:
|
|
|
|
unsigned g = (y << 6) / 480
|
|
|
|
unsigned olr = 0, ob = ((25 * y * y) << 5) / (9 * 800 * 800 + 25 * 480 * 480)
|
|
|
|
for unsigned x = 0; x < 800; ++x:
|
|
|
|
unsigned r = (x << 5) / 800
|
|
|
|
unsigned b = ((9 * x * x + 25 * y * y) << 5) / (9 * 800 * 800 + 25 * 480 * 480)
|
|
|
|
if r != olr:
|
|
|
|
olr = r
|
|
|
|
r = 0x1f
|
|
|
|
unsigned oyb = b
|
|
|
|
if y > 0:
|
|
|
|
oyb = ((9 * x * x + 25 * (y - 1) * (y - 1)) << 5) / (9 * 800 * 800 + 25 * 480 * 480)
|
|
|
|
if b != ob || b != oyb:
|
|
|
|
ob = b
|
|
|
|
b = 0x1f
|
|
|
|
LCD_FRAMEBUFFER_BASE[y * 800 + x] = (r << 11) | (g << 5) | (b)
|
2009-09-06 12:04:09 +03:00
|
|
|
Kernel::Page p = Kernel::my_memory.mapping (&descriptor)
|
2009-08-24 22:02:35 +03:00
|
|
|
physical_descriptor = p.physical_address () + ((unsigned)&descriptor & ~PAGE_MASK)
|
2009-09-06 12:04:09 +03:00
|
|
|
Kernel::free_cap (p)
|
2009-07-23 13:06:32 +03:00
|
|
|
descriptor.next = physical_descriptor
|
|
|
|
descriptor.frame = physical
|
|
|
|
descriptor.id = 0xdeadbeef
|
|
|
|
descriptor.cmd = LCD_CMD_EOFINT | ((frame_size / 4) << LCD_CMD_LEN_BIT)
|
|
|
|
unsigned dptr = (unsigned)&descriptor
|
|
|
|
__asm__ volatile ("lw $a0, %0\ncache 0x15, 0($a0)" :: "m"(dptr) : "memory", "a0")
|
2009-08-24 22:02:35 +03:00
|
|
|
reset ()
|
2009-06-22 17:13:00 +03:00
|
|
|
|
2009-09-06 12:04:09 +03:00
|
|
|
Kernel::Cap logcap = Kernel::my_receiver.create_capability (LCD_LOG)
|
2009-08-18 00:11:15 +03:00
|
|
|
__asm__ volatile ("li $a0, 1\nlw $a1, %0\nbreak" :: "m"(logcap.code): "a0", "a1", "memory")
|
2009-07-23 13:06:32 +03:00
|
|
|
|
2009-09-06 12:04:09 +03:00
|
|
|
Kernel::Cap set_eof_cb = Kernel::my_receiver.create_capability (LCD_EOF_CB)
|
|
|
|
Kernel::my_parent.ocall (set_eof_cb, INIT_SET_LCD)
|
2009-08-24 22:02:35 +03:00
|
|
|
|
2009-09-06 12:04:09 +03:00
|
|
|
unsigned slot = Kernel::alloc_slot ()
|
|
|
|
Kernel::Cap eof_cb = Kernel::alloc_cap ()
|
2009-06-10 22:42:01 +03:00
|
|
|
while true:
|
2009-09-06 12:04:09 +03:00
|
|
|
Kernel::wait ()
|
|
|
|
//log_msg ()
|
|
|
|
switch Kernel::recv.protected_data.l:
|
2009-07-05 11:52:44 +03:00
|
|
|
case IRQ_LCD:
|
2009-07-20 01:23:45 +03:00
|
|
|
lcd_clr_eof ()
|
2009-08-24 22:02:35 +03:00
|
|
|
eof_cb.invoke ()
|
2009-06-10 22:42:01 +03:00
|
|
|
break
|
2009-07-21 13:17:52 +03:00
|
|
|
case LCD_EOF_CB:
|
2009-09-06 12:04:09 +03:00
|
|
|
Kernel::free_cap (eof_cb)
|
|
|
|
eof_cb = Kernel::recv.arg
|
|
|
|
Kernel::recv.arg = Kernel::alloc_cap ()
|
|
|
|
Kernel::recv.reply.invoke ()
|
2009-08-18 00:11:15 +03:00
|
|
|
Kernel::register_interrupt (IRQ_LCD)
|
2009-07-23 13:06:32 +03:00
|
|
|
break
|
|
|
|
case LCD_LOG:
|
2009-09-06 12:04:09 +03:00
|
|
|
log_char (Kernel::recv.data[0].l)
|
|
|
|
break
|
|
|
|
default:
|
|
|
|
log_char ('~')
|
2009-06-10 22:42:01 +03:00
|
|
|
break
|