\ ========== Copyright Header Begin ==========================================
\ Hypervisor Software File: fb8.fth
\ Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved.
\ - Do no alter or remove copyright notices
\ - Redistribution and use of this software in source and binary forms, with
\ or without modification, are permitted provided that the following
\ - Redistribution of source code must retain the above copyright notice,
\ this list of conditions and the following disclaimer.
\ - Redistribution in binary form must reproduce the above copyright notice,
\ this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\ Neither the name of Sun Microsystems, Inc. or the names of contributors
\ may be used to endorse or promote products derived from this software
\ without specific prior written permission.
\ This software is provided "AS IS," without a warranty of any kind.
\ ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES,
\ INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A
\ PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN
\ MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR
\ ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR
\ DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN
\ OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR
\ FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE
\ DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY,
\ ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF
\ SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
\ You acknowledge that this software is not designed, licensed or
\ intended for use in the design, construction, operation or maintenance of
\ ========== Copyright Header End ============================================
id: @(#)fb8.fth 3.3 95/04/19
purpose: High-level part of fb8 8-bit framebuffer support package
copyright: Copyright 1990 Sun Microsystems, Inc. All Rights Reserved
\ 8-bit generic frame-buffer driver
\ Uses 8 bits (1 byte) per pixel. Code is similar to fb1.fth, but
\ Uses the following routines:
\ #lines ( -- n ) Number of text line positions in the window
\ #columns ( -- n ) Number of char positions on a line in the window
\ screen-height ( -- pix ) Height of the display (in pixels)
\ screen-width ( -- pix ) Width of the display (in pixels)
\ window-top ( -- pix ) Top edge of the window (in pixels)
\ window-left ( -- pix ) Left edge of the window (in pixels)
\ (These are all 'values', given working numbers by fb8-install.)
\ line# ( -- n ) Current line number of the cursor
\ column# ( -- n ) Current column number of the cursor
\ set-position ( line column -- ) Sets the cursor position
\ inverse? ( -- flag ) True if cursor is inverse (w-on-bl)
\ inverse-screen? ( -- flag ) True if screen is inverse (black backgnd)
\ char-height ( -- pix ) Height of standard font characters (in pixels)
\ char-width ( -- pix ) Width of standard font characters (in pixels)
\ >font ( char -- adr ) Location of 1-bit font entry
\ for this character. Size is standard height x width.
\ fontbytes ( -- bytes ) # of bytes per line of font
\ frame-buffer-adr ( -- adr ) Starting address of the frame buffer
\ Assumed to be on a 32-bit boundary.
\ 0 value emu-bytes/line \ Later set to "#columns char-width *"
\ \ this is the window width
: bytes/line screen-width ;
: lines/screen screen-height ;
: bytes/screen ( -- n ) bytes/line lines/screen * ;
: screen-background ( -- n )
inverse? if foreground-color else background-color then
inverse-screen? if h# ff else 0 then
: text-background ( -- n )
inverse? if foreground-color else background-color then
inverse? if h# ff else 0 then
: text-foreground ( -- n )
inverse? if background-color else foreground-color then
inverse? if 0 else h# ff then
: logo-foreground ( -- n ) 16-color? if text-foreground else 1 then ;
: fb8-invert-screen ( -- )
frame-buffer-adr screen-width screen-height bytes/line
text-foreground screen-background fb8-invert
: fb8-erase-screen ( -- )
frame-buffer-adr bytes/screen screen-background fb-fill
: fb8-blink-screen ( -- ) \ Better done by poking the DAC
fb8-invert-screen fb8-invert-screen
: fb8-reset-screen ( -- ) ;
: screen-adr ( column# line# -- adr )
char-height * window-top + ( column# ypixels )
swap char-width * window-left + swap ( xpixels ypixels )
bytes/line * + frame-buffer-adr +
: line-adr ( line# -- adr ) 0 swap screen-adr ;
: column-adr ( column# -- adr ) line# screen-adr ;
: cursor-adr ( -- adr ) column# line# screen-adr ;
: fb8-draw-character ( char -- )
>font fontbytes char-width char-height
cursor-adr bytes/line text-foreground text-background
( fontadr fontbytes width height screenadr bytes/line fg-color bg-color )
: fb8-toggle-cursor ( -- )
cursor-adr char-width char-height bytes/line
text-foreground text-background fb8-invert
: fb8-draw-logo ( line# logoadr logowidth logoheight -- )
2swap swap line-adr >r -rot ( logoadr width height ) ( r: scrn-adr )
swap dup 7 + 8 / ( logoadr height width linebytes )
swap rot ( logoadr linebytes width height )
r> bytes/line logo-foreground screen-background fb8-paint
: move-line ( src-line-adr dst-line-adr -- ) emu-bytes/line fb-move ;
: erase-line ( line-adr -- ) emu-bytes/line screen-background fb-fill ;
: erase-lines ( last-line first-line -- )
?do i erase-line bytes/line +loop
: cursor-y ( -- line-adr ) line# line-adr ;
: window-bottom ( -- line-adr ) #lines line-adr ;
: break-low ( delta-#lines -- line-adr ) line# + #lines min line-adr ;
: break-high ( delta-#lines -- line-adr ) #lines swap - 0 max line-adr ;
\ Delete n lines, starting with current cursor line. Scroll the rest up
: fb8-delete-lines-slow ( delta-#lines -- )
break-low cursor-y window-bottom rot
i over move-line bytes/line +
bytes/line +loop ( break-high-adr )
window-bottom swap erase-lines
: fb8-delete-lines ( delta-#lines -- )
dup break-high swap break-low ( break-high break-low )
cursor-y over window-bottom swap - ( b-hi b-lo cursor-y bottom-blo )
bytes/line emu-bytes/line fb8-window-move ( break-hi )
window-bottom swap erase-lines
: fb8-insert-lines ( delta-#lines -- )
break-high window-bottom ( break-line-adr bottom-line-adr )
swap bytes/line - ( bottom break-high- )
cursor-y swap ( bottom cursor-y break-high- )
2dup < if ( bottom cursor-y break-high- )
bytes/line - i over move-line ( bottom- )
bytes/line negate +loop ( break-low-adr )
: move-chars ( source-col# dest-col# -- )
2dup max #columns swap - ( src dst #chars )
char-width * -rot \ count is linelength-maxcol#
swap column-adr swap column-adr ( count src-adr dst-adr )
3dup rot move ( count src-adr dst-adr )
swap bytes/line + swap bytes/line +
: erase-chars ( #chars start-col# -- )
column-adr char-height 0 do ( count adr )
2dup swap text-background fb-fill ( count adr )
: fb8-insert-characters ( #chars -- )
#columns column# - min dup
column# + column# swap ( #chars' cursor-col# cursor+count-col# )
move-chars ( #chars' ) column# erase-chars
: fb8-delete-characters ( #chars -- )
#columns column# - min dup ( #chars' #chars' )
column# + column# ( #chars' cursor+count-col# cursor-col# )
move-chars ( #chars' ) #columns over - erase-chars
screen-height #lines char-height * - 2/ is window-top
screen-width #columns char-width * - 2/ -32 and is window-left
: fb8-install ( screen-width screen-height #columns #lines -- )
" iso6429-1983-colors" get-my-property 0= dup to 16-color? if
\ Discard the property value (adr,len)
2drop ( screen-width screen-height #columns #lines )
then ( screen-width screen-height #columns #lines )
\ my-self is display device's ihandle
screen-#rows min is #lines
screen-#columns min is #columns
is screen-height is screen-width
#columns char-width * is emu-bytes/line
['] fb8-reset-screen is reset-screen
['] fb8-toggle-cursor is toggle-cursor
['] fb8-erase-screen is erase-screen
['] fb8-blink-screen is blink-screen
['] fb8-invert-screen is invert-screen
['] fb8-insert-characters is insert-characters
['] fb8-delete-characters is delete-characters
['] fb8-insert-lines is insert-lines
if ['] fb8-delete-lines-slow
else ['] fb8-delete-lines
['] fb8-draw-character is draw-character
['] fb8-draw-logo is draw-logo
projects / OpenSPARC-T2-SAM / blob