Need 8x12 Font
Kye
Posts: 2,200
I'm thinking of making a 8x12 font VGA (640 x 480 @ 60hz) display driver. I want to be able to get 80x40 characters on the screen using one cog. I plan to make the screen buffer small using only a single byte for each character. I also think I'll have a pixel locked mouse cursor and print cursor.
I believe I can do this all if I just modify my 40x30 tile driver vga object.
But, I need some font. Does anyone have the VGA_HI_RES txt in human readable form? I could use that. Or is there another more complete 8x12 font set that I can use. I would like to be able to have 256 characters available.
Thanks for your help,
I believe I can do this all if I just modify my 40x30 tile driver vga object.
But, I need some font. Does anyone have the VGA_HI_RES txt in human readable form? I could use that. Or is there another more complete 8x12 font set that I can use. I would like to be able to have 256 characters available.
Thanks for your help,
Comments
char zifu[]={ /*-- --*/ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, /*-- ! --*/ 0x00,0x00,0x20,0x20,0x20,0x20,0x20,0x20,0x00,0x20,0x00,0x00, /*-- " --*/ 0x00,0x28,0x50,0x50,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, /*-- # --*/ 0x00,0x00,0x28,0x28,0xFC,0x28,0x50,0xFC,0x50,0x50,0x00,0x00, /*-- $ --*/ 0x00,0x20,0x78,0xA8,0xA0,0x60,0x30,0x28,0xA8,0xF0,0x20,0x00, /*-- % --*/ 0x00,0x00,0x48,0xA8,0xB0,0x50,0x28,0x34,0x54,0x48,0x00,0x00, /*-- & --*/ 0x00,0x00,0x20,0x50,0x50,0x78,0xA8,0xA8,0x90,0x6C,0x00,0x00, /*-- ' --*/ 0x00,0x40,0x40,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, /*-- ( --*/ 0x00,0x04,0x08,0x10,0x10,0x10,0x10,0x10,0x10,0x08,0x04,0x00, /*-- ) --*/ 0x00,0x40,0x20,0x10,0x10,0x10,0x10,0x10,0x10,0x20,0x40,0x00, /*-- * --*/ 0x00,0x00,0x00,0x20,0xA8,0x70,0x70,0xA8,0x20,0x00,0x00,0x00, /*-- + --*/ 0x00,0x00,0x20,0x20,0x20,0xF8,0x20,0x20,0x20,0x00,0x00,0x00, /*-- , --*/ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x40,0x40,0x80, /*-- - --*/ 0x00,0x00,0x00,0x00,0x00,0xF8,0x00,0x00,0x00,0x00,0x00,0x00, /*-- . --*/ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x40,0x00,0x00, /*-- / --*/ 0x00,0x08,0x10,0x10,0x10,0x20,0x20,0x40,0x40,0x40,0x80,0x00, /*-- 0 --*/ 0x00,0x00,0x70,0x88,0x88,0x88,0x88,0x88,0x88,0x70,0x00,0x00, /*-- 1 --*/ 0x00,0x00,0x20,0x60,0x20,0x20,0x20,0x20,0x20,0x70,0x00,0x00, /*-- 2 --*/ 0x00,0x00,0x70,0x88,0x88,0x10,0x20,0x40,0x80,0xF8,0x00,0x00, /*-- 3 --*/ 0x00,0x00,0x70,0x88,0x08,0x30,0x08,0x08,0x88,0x70,0x00,0x00, /*-- 4 --*/ 0x00,0x00,0x10,0x30,0x50,0x50,0x90,0x78,0x10,0x18,0x00,0x00, /*-- 5 --*/ 0x00,0x00,0xF8,0x80,0x80,0xF0,0x08,0x08,0x88,0x70,0x00,0x00, /*-- 6 --*/ 0x00,0x00,0x70,0x90,0x80,0xF0,0x88,0x88,0x88,0x70,0x00,0x00, /*-- 7 --*/ 0x00,0x00,0xF8,0x90,0x10,0x20,0x20,0x20,0x20,0x20,0x00,0x00, /*-- 8 --*/ 0x00,0x00,0x70,0x88,0x88,0x70,0x88,0x88,0x88,0x70,0x00,0x00, /*-- 9 --*/ 0x00,0x00,0x70,0x88,0x88,0x88,0x78,0x08,0x48,0x70,0x00,0x00, /*-- : --*/ 0x00,0x00,0x00,0x00,0x20,0x00,0x00,0x00,0x00,0x20,0x00,0x00, /*-- ; --*/ 0x00,0x00,0x00,0x00,0x00,0x20,0x00,0x00,0x00,0x20,0x20,0x00, /*-- < --*/ 0x00,0x04,0x08,0x10,0x20,0x40,0x20,0x10,0x08,0x04,0x00,0x00, /*-- = --*/ 0x00,0x00,0x00,0x00,0xF8,0x00,0x00,0xF8,0x00,0x00,0x00,0x00, /*-- > --*/ 0x00,0x40,0x20,0x10,0x08,0x04,0x08,0x10,0x20,0x40,0x00,0x00, /*-- ? --*/ 0x00,0x00,0x70,0x88,0x88,0x10,0x20,0x20,0x00,0x20,0x00,0x00, /*-- @ --*/ 0x00,0x00,0x70,0x88,0x98,0xA8,0xA8,0xB8,0x80,0x78,0x00,0x00, /*-- A --*/ 0x00,0x00,0x20,0x20,0x30,0x50,0x50,0x78,0x48,0xCC,0x00,0x00, /*-- B --*/ 0x00,0x00,0xF0,0x48,0x48,0x70,0x48,0x48,0x48,0xF0,0x00,0x00, /*-- C --*/ 0x00,0x00,0x78,0x88,0x80,0x80,0x80,0x80,0x88,0x70,0x00,0x00, /*-- D --*/ 0x00,0x00,0xF0,0x48,0x48,0x48,0x48,0x48,0x48,0xF0,0x00,0x00, /*-- E --*/ 0x00,0x00,0xF8,0x48,0x50,0x70,0x50,0x40,0x48,0xF8,0x00,0x00, /*-- F --*/ 0x00,0x00,0xF8,0x48,0x50,0x70,0x50,0x40,0x40,0xE0,0x00,0x00, /*-- G --*/ 0x00,0x00,0x38,0x48,0x80,0x80,0x9C,0x88,0x48,0x30,0x00,0x00, /*-- H --*/ 0x00,0x00,0xCC,0x48,0x48,0x78,0x48,0x48,0x48,0xCC,0x00,0x00, /*-- I --*/ 0x00,0x00,0xF8,0x20,0x20,0x20,0x20,0x20,0x20,0xF8,0x00,0x00, /*-- J --*/ 0x00,0x00,0x7C,0x10,0x10,0x10,0x10,0x10,0x10,0x90,0xE0,0x00, /*-- K --*/ 0x00,0x00,0xEC,0x48,0x50,0x60,0x50,0x50,0x48,0xEC,0x00,0x00, /*-- L --*/ 0x00,0x00,0xE0,0x40,0x40,0x40,0x40,0x40,0x44,0xFC,0x00,0x00, /*-- M --*/ 0x00,0x00,0xD8,0xD8,0xD8,0xD8,0xA8,0xA8,0xA8,0xA8,0x00,0x00, /*-- N --*/ 0x00,0x00,0xDC,0x48,0x68,0x68,0x58,0x58,0x48,0xE8,0x00,0x00, /*-- O --*/ 0x00,0x00,0x70,0x88,0x88,0x88,0x88,0x88,0x88,0x70,0x00,0x00, /*-- P --*/ 0x00,0x00,0xF0,0x48,0x48,0x70,0x40,0x40,0x40,0xE0,0x00,0x00, /*-- Q --*/ 0x00,0x00,0x70,0x88,0x88,0x88,0x88,0xE8,0x98,0x70,0x18,0x00, /*-- R --*/ 0x00,0x00,0xF0,0x48,0x48,0x70,0x50,0x48,0x48,0xEC,0x00,0x00, /*-- S --*/ 0x00,0x00,0x78,0x88,0x80,0x60,0x10,0x08,0x88,0xF0,0x00,0x00, /*-- T --*/ 0x00,0x00,0xF8,0xA8,0x20,0x20,0x20,0x20,0x20,0x70,0x00,0x00, /*-- U --*/ 0x00,0x00,0xCC,0x48,0x48,0x48,0x48,0x48,0x48,0x30,0x00,0x00, /*-- V --*/ 0x00,0x00,0xCC,0x48,0x48,0x50,0x50,0x30,0x20,0x20,0x00,0x00, /*-- W --*/ 0x00,0x00,0xA8,0xA8,0xA8,0x70,0x50,0x50,0x50,0x50,0x00,0x00, /*-- X --*/ 0x00,0x00,0xD8,0x50,0x50,0x20,0x20,0x50,0x50,0xD8,0x00,0x00, /*-- Y --*/ 0x00,0x00,0xD8,0x50,0x50,0x20,0x20,0x20,0x20,0x70,0x00,0x00, /*-- Z --*/ 0x00,0x00,0xF8,0x90,0x10,0x20,0x20,0x40,0x48,0xF8,0x00,0x00, /*-- [ --*/ 0x00,0x38,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x38,0x00, /*-- \ --*/ 0x00,0x40,0x40,0x40,0x20,0x20,0x10,0x10,0x10,0x08,0x00,0x00, /*-- ] --*/ 0x00,0x70,0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x70,0x00, /*-- ^ --*/ 0x00,0x20,0x50,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, /*-- _ --*/ 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xFC, /*-- ` --*/ 0x00,0x20,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, /*-- a --*/ 0x00,0x00,0x00,0x00,0x00,0x30,0x48,0x38,0x48,0x3C,0x00,0x00, /*-- b --*/ 0x00,0x00,0xC0,0x40,0x40,0x70,0x48,0x48,0x48,0x70,0x00,0x00, /*-- c --*/ 0x00,0x00,0x00,0x00,0x00,0x38,0x48,0x40,0x40,0x38,0x00,0x00, /*-- d --*/ 0x00,0x00,0x18,0x08,0x08,0x38,0x48,0x48,0x48,0x3C,0x00,0x00, /*-- e --*/ 0x00,0x00,0x00,0x00,0x00,0x30,0x48,0x78,0x40,0x38,0x00,0x00, /*-- f --*/ 0x00,0x00,0x1C,0x20,0x20,0x78,0x20,0x20,0x20,0x78,0x00,0x00, /*-- g --*/ 0x00,0x00,0x00,0x00,0x00,0x3C,0x48,0x30,0x40,0x78,0x44,0x38, /*-- h --*/ 0x00,0x00,0xC0,0x40,0x40,0x70,0x48,0x48,0x48,0xEC,0x00,0x00, /*-- i --*/ 0x00,0x00,0x20,0x00,0x00,0x60,0x20,0x20,0x20,0x70,0x00,0x00, /*-- j --*/ 0x00,0x00,0x10,0x00,0x00,0x30,0x10,0x10,0x10,0x10,0x10,0xE0, /*-- k --*/ 0x00,0x00,0xC0,0x40,0x40,0x5C,0x50,0x70,0x48,0xEC,0x00,0x00, /*-- l --*/ 0x00,0x00,0xE0,0x20,0x20,0x20,0x20,0x20,0x20,0xF8,0x00,0x00, /*-- m --*/ 0x00,0x00,0x00,0x00,0x00,0xF0,0xA8,0xA8,0xA8,0xA8,0x00,0x00, /*-- n --*/ 0x00,0x00,0x00,0x00,0x00,0xF0,0x48,0x48,0x48,0xEC,0x00,0x00, /*-- o --*/ 0x00,0x00,0x00,0x00,0x00,0x30,0x48,0x48,0x48,0x30,0x00,0x00, /*-- p --*/ 0x00,0x00,0x00,0x00,0x00,0xF0,0x48,0x48,0x48,0x70,0x40,0xE0, /*-- q --*/ 0x00,0x00,0x00,0x00,0x00,0x38,0x48,0x48,0x48,0x38,0x08,0x1C, /*-- r --*/ 0x00,0x00,0x00,0x00,0x00,0xD8,0x60,0x40,0x40,0xE0,0x00,0x00, /*-- s --*/ 0x00,0x00,0x00,0x00,0x00,0x78,0x40,0x30,0x08,0x78,0x00,0x00, /*-- t --*/ 0x00,0x00,0x00,0x20,0x20,0x70,0x20,0x20,0x20,0x18,0x00,0x00, /*-- u --*/ 0x00,0x00,0x00,0x00,0x00,0xD8,0x48,0x48,0x48,0x3C,0x00,0x00, /*-- v --*/ 0x00,0x00,0x00,0x00,0x00,0xEC,0x48,0x50,0x30,0x20,0x00,0x00, /*-- w --*/ 0x00,0x00,0x00,0x00,0x00,0xA8,0xA8,0x70,0x50,0x50,0x00,0x00, /*-- x --*/ 0x00,0x00,0x00,0x00,0x00,0xD8,0x50,0x20,0x50,0xD8,0x00,0x00, /*-- y --*/ 0x00,0x00,0x00,0x00,0x00,0xEC,0x48,0x50,0x30,0x20,0x20,0xC0, /*-- z --*/ 0x00,0x00,0x00,0x00,0x00,0x78,0x10,0x20,0x20,0x78,0x00,0x00, /*-- { --*/ 0x00,0x18,0x10,0x10,0x10,0x20,0x10,0x10,0x10,0x10,0x18,0x00, /*-- | --*/ 0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x10,0x10, /*-- } --*/ 0x00,0x60,0x20,0x20,0x20,0x10,0x20,0x20,0x20,0x20,0x60,0x00, /*-- ~ --*/ 0x40,0xA4,0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00, };Baggers tile converter might work for this too.
Yeah, it would be nice to have a Parallax font, with all the cool symbols. Need 512 chars for that, or make it 4 color. This one is pretty standard, found on all the PCs, since the DOS era. Nice box, UI chars in there too. There were "code pages" implemented with a few different sets. This is the common one, there were others. I couldn't find simple 1bpp images of them though. For such a common thing, it's funny that it took so much digging.
I edited the double quote character as it was always displaying a left quote. Now it is symmetrical so it does not matter. Fonts are at the bottom of this code:
''*************************************** ''* VGA High-Res Text Driver v1.0 * ''* Author: Chip Gracey * ''* Copyright (c) 2006 Parallax, Inc. * ''* See end of file for terms of use. * ''*************************************** '' '' This object generates a 1024x768 VGA signal which contains 128 columns x 64 '' rows of 8x12 characters. Each row can have a unique forground/background '' color combination and each character can be inversed. There are also two '' cursors which can be independently controlled (ie. mouse and keyboard). A '' sync indicator signals each time the screen is refreshed (you may ignore). '' '' You must provide buffers for the screen, colors, cursors, and sync. Once '' started, all interfacing is done via memory. To this object, all buffers are '' read-only, with the exception of the sync indicator which gets written with '' -1. You may freely write all buffers to affect screen appearance. Have fun! '' CON { ' 1024 x 768 @ 57Hz settings: 128 x 64 characters hp = 1024 'horizontal pixels vp = 768 'vertical pixels hf = 16 'horizontal front porch pixels hs = 96 'horizontal sync pixels hb = 176 'horizontal back porch pixels vf = 1 'vertical front porch lines vs = 3 'vertical sync lines vb = 28 'vertical back porch lines hn = 1 'horizontal normal sync state (0|1) vn = 1 'vertical normal sync state (0|1) pr = 60 'pixel rate in MHz at 80MHz system clock (5MHz granularity) } { ' 800 x 600 @ 75Hz settings: 100 x 50 characters hp = 800 'horizontal pixels vp = 600 'vertical pixels hf = 40 'horizontal front porch pixels hs = 128 'horizontal sync pixels hb = 88 'horizontal back porch pixels vf = 1 'vertical front porch lines vs = 4 'vertical sync lines vb = 23 'vertical back porch lines hn = 0 'horizontal normal sync state (0|1) vn = 0 'vertical normal sync state (0|1) pr = 50 'pixel rate in MHz at 80MHz system clock (5MHz granularity) } '{ ' 640 x 480 @ 69Hz settings: 80 x 40 characters hp = 640 'horizontal pixels vp = 480 'vertical pixels hf = 24 'horizontal front porch pixels hs = 40 'horizontal sync pixels hb = 128 'horizontal back porch pixels vf = 9 'vertical front porch lines vs = 3 'vertical sync lines vb = 28 'vertical back porch lines hn = 1 'horizontal normal sync state (0|1) vn = 1 'vertical normal sync state (0|1) pr = 30 'pixel rate in MHz at 80MHz system clock (5MHz granularity) '} ' columns and rows cols = hp / 8 rows = vp / 12 VAR long cog[2] PUB start(BasePin, ScreenPtr, ColorPtr, CursorPtr, SyncPtr) : okay | i, j '' Start VGA driver - starts two COGs '' returns false if two COGs not available '' '' BasePin = VGA starting pin (0, 8, 16, 24, etc.) '' '' ScreenPtr = Pointer to 8,192 bytes containing ASCII codes for each of the '' 128x64 screen characters. Each byte's top bit controls color '' inversion while the lower seven bits provide the ASCII code. '' Screen memory is arranged left-to-right, top-to-bottom. '' '' screen byte example: %1_1000001 = inverse "A" '' '' ColorPtr = Pointer to 64 words which define the foreground and background '' colors for each row. The lower byte of each word contains the '' foreground RGB data for that row, while the upper byte '' contains the background RGB data. The RGB data in each byte is '' arranged as %RRGGBB00 (4 levels each). '' '' color word example: %%0020_3300 = gold on blue '' '' CursorPtr = Pointer to 6 bytes which control the cursors: '' '' bytes 0,1,2: X, Y, and MODE of cursor 0 '' bytes 3,4,5: X, Y, and MODE of cursor 1 '' '' X and Y are in terms of screen characters '' (left-to-right, top-to-bottom) '' '' MODE uses three bottom bits: '' '' %x00 = cursor off '' %x01 = cursor on '' %x10 = cursor on, blink slow '' %x11 = cursor on, blink fast '' %0xx = cursor is solid block '' %1xx = cursor is underscore '' '' cursor example: 127, 63, %010 = blinking block in lower-right '' '' SyncPtr = Pointer to long which gets written with -1 upon each screen '' refresh. May be used to time writes/scrolls, so that chopiness '' can be avoided. You must clear it each time if you want to see '' it re-trigger. 'if driver is already running, stop it stop 'implant pin settings reg_vcfg := $200000FF + (BasePin & %111000) << 6 i := $FF << (BasePin & %011000) j := BasePin & %100000 == 0 reg_dira := i & j reg_dirb := i & !j 'implant CNT value to sync COGs to sync_cnt := cnt + $10000 'implant pointers longmove(@screen_base, @ScreenPtr, 3) font_base := @font 'implant unique settings and launch first COG vf_lines.byte := vf vb_lines.byte := vb font_third := 1 cog[1] := cognew(@d0, SyncPtr) + 1 'allow time for first COG to launch waitcnt($2000 + cnt) 'differentiate settings and launch second COG vf_lines.byte := vf+4 vb_lines.byte := vb-4 font_third := 0 cog[0] := cognew(@d0, SyncPtr) + 1 'if both COGs launched, return true if cog[0] and cog[1] return true 'else, stop any launched COG and return false else stop PUB stop | i '' Stop VGA driver - frees two COGs repeat i from 0 to 1 if cog[i] cogstop(cog[i]~ - 1) CON #1, scanbuff[128], scancode[128*2-1+3], maincode 'enumerate COG RAM usage main_size = $1F0 - maincode 'size of main program hv_inactive = (hn << 1 + vn) * $0101 'H,V inactive states DAT '***************************************************** '* Assembly language VGA high-resolution text driver * '***************************************************** ' This program runs concurrently in two different COGs. ' ' Each COG's program has different values implanted for front-porch lines and ' back-porch lines which surround the vertical sync pulse lines. This allows ' timed interleaving of their active display signals during the visible portion ' of the field scan. Also, they are differentiated so that one COG displays ' even four-line groups while the other COG displays odd four-line groups. ' ' These COGs are launched in the PUB 'start' and are programmed to synchronize ' their PLL-driven video circuits so that they can alternately prepare sets of ' four scan lines and then display them. The COG-to-COG switchover is seemless ' due to two things: exact synchronization of the two video circuits and the ' fact that all COGs' driven output states get OR'd together, allowing one COG ' to output lows during its preparatory state while the other COG effectively ' drives the pins to create the visible and sync portions of its scan lines. ' During non-visible scan lines, both COGs output together in unison. ' ' COG RAM usage: $000 = d0 - used to inc destination fields for indirection ' $001-$080 = scanbuff - longs which hold 4 scan lines ' $081-$182 = scancode - stacked WAITVID/SHR for fast display ' $183-$1EF = maincode - main program loop which drives display org 0 'set origin to $000 for start of program d0 long 1 << 9 'd0 always resides here at $000, executes as NOP ' Initialization code and data - after execution, space gets reused as scanbuff 'Move main program into maincode area :move mov $1EF,main_begin+main_size-1 sub :move,d0s0 '(do reverse move to avoid overwrite) djnz main_ctr,#:move 'Build scanbuff display routine into scancode :waitvid mov scancode+0,i0 'org scancode :shr mov scancode+1,i1 'waitvid color,scanbuff+0 add :waitvid,d1 'shr scanbuff+0,#8 add :shr,d1 'waitvid color,scanbuff+1 add i0,#1 'shr scanbuff+1,#8 add i1,d0 '... djnz scan_ctr,#:waitvid 'waitvid color,scanbuff+cols-1 mov scancode+cols*2-1,i2 'mov vscl,#hf mov scancode+cols*2+0,i3 'waitvid hvsync,#0 mov scancode+cols*2+1,i4 'jmp #scanret 'Init I/O registers and sync COGs' video circuits mov dira,reg_dira 'set pin directions mov dirb,reg_dirb movi frqa,#(pr / 5) << 2 'set pixel rate mov vcfg,reg_vcfg 'set video configuration mov vscl,#1 'set video to reload on every pixel waitcnt sync_cnt,colormask 'wait for start value in cnt, add ~1ms movi ctra,#%00001_110 'COGs in sync! enable PLLs now - NCOs locked! waitcnt sync_cnt,#0 'wait ~1ms for PLLs to stabilize - PLLs locked! mov vscl,#100 'insure initial WAITVIDs lock cleanly 'Jump to main loop jmp #vsync 'jump to vsync - WAITVIDs will now be locked! 'Data d0s0 long 1 << 9 + 1 d1 long 1 << 10 main_ctr long main_size scan_ctr long cols i0 waitvid x,scanbuff+0 i1 shr scanbuff+0,#8 i2 mov vscl,#hf i3 waitvid hvsync,#0 i4 jmp #scanret reg_dira long 0 'set at runtime reg_dirb long 0 'set at runtime reg_vcfg long 0 'set at runtime sync_cnt long 0 'set at runtime 'Directives fit scancode 'make sure initialization code and data fit main_begin org maincode 'main code follows (gets moved into maincode) ' Main loop, display field - each COG alternately builds and displays four scan lines vsync mov x,#vs 'do vertical sync lines call #blank_vsync vb_lines mov x,#vb 'do vertical back porch lines (# set at runtime) call #blank_vsync mov screen_ptr,screen_base 'reset screen pointer to upper-left character mov color_ptr,color_base 'reset color pointer to first row mov row,#0 'reset row counter for cursor insertion mov fours,#rows * 3 / 2 'set number of 4-line builds for whole screen 'Build four scan lines into scanbuff fourline mov font_ptr,font_third 'get address of appropriate font section shl font_ptr,#7+2 add font_ptr,font_base movd :pixa,#scanbuff-1 'reset scanbuff address (pre-decremented) movd :pixb,#scanbuff-1 mov y,#2 'must build scanbuff in two sections because mov vscl,vscl_line2x '..pixel counter is limited to twelve bits :halfrow waitvid underscore,#0 'output lows to let other COG drive VGA pins mov x,#cols/2 '..for 2 scan lines, ready for half a row :column rdbyte z,screen_ptr 'get character from screen memory ror z,#7 'get inverse flag into bit 0, keep chr high shr z,#32-7-2 wc 'get inverse flag into c, chr into bits 8..2 add z,font_ptr 'add font section address to point to 8*4 pixels add :pixa,d0 'increment scanbuff destination addresses add :pixb,d0 add screen_ptr,#1 'increment screen memory address :pixa rdlong scanbuff,z 'read pixel long (8*4) into scanbuff :pixb if_nc xor scanbuff,longmask 'invert pixels according to inverse flag djnz x,#:column 'another character in this half-row? djnz y,#:halfrow 'loop to do 2nd half-row, time for 2nd WAITVID sub screen_ptr,#cols 'back up to start of same row in screen memory 'Insert cursors into scanbuff mov z,#2 'ready for two cursors :cursor rdbyte x,cursor_base 'x in range? add cursor_base,#1 cmp x,#cols wc rdbyte y,cursor_base 'y match? add cursor_base,#1 cmp y,row wz rdbyte y,cursor_base 'get cursor mode add cursor_base,#1 if_nc_or_nz jmp #:nocursor 'if cursor not in scanbuff, no cursor add x,#scanbuff 'cursor in scanbuff, set scanbuff address movd :xor,x test y,#%010 wc 'get mode bits into flags test y,#%001 wz if_nc_and_z jmp #:nocursor 'if cursor disabled, no cursor if_c_and_z test slowbit,cnt wc 'if blink mode, get blink state if_c_and_nz test fastbit,cnt wc test y,#%100 wz 'get box or underscore cursor piece if_z mov x,longmask if_nz mov x,underscore if_nz cmp font_third,#2 wz 'if underscore, must be last font section :xor if_nc_and_z xor scanbuff,x 'conditionally xor cursor into scanbuff :nocursor djnz z,#:cursor 'second cursor? sub cursor_base,#3*2 'restore cursor base 'Display four scan lines from scanbuff rdword x,color_ptr 'get color pattern for current row and x,colormask 'mask away hsync and vsync signal states or x,hv 'insert inactive hsync and vsync states mov y,#4 'ready for four scan lines scanline mov vscl,vscl_chr 'set pixel rate for characters jmp #scancode 'jump to scanbuff display routine in scancode scanret mov vscl,#hs 'do horizontal sync pixels waitvid hvsync,#1 '#1 makes hsync active mov vscl,#hb 'do horizontal back porch pixels waitvid hvsync,#0 '#0 makes hsync inactive shr scanbuff+cols-1,#8 'shift last column's pixels right by 8 djnz y,#scanline 'another scan line? 'Next group of four scan lines add font_third,#2 'if font_third + 2 => 3, subtract 3 (new row) cmpsub font_third,#3 wc 'c=0 for same row, c=1 for new row if_c add screen_ptr,#cols 'if new row, advance screen pointer if_c add color_ptr,#2 'if new row, advance color pointer if_c add row,#1 'if new row, increment row counter djnz fours,#fourline 'another 4-line build/display? 'Visible section done, do vertical sync front porch lines wrlong longmask,par 'write -1 to refresh indicator vf_lines mov x,#vf 'do vertical front porch lines (# set at runtime) call #blank jmp #vsync 'new field, loop to vsync 'Subroutine - do blank lines blank_vsync xor hvsync,#$101 'flip vertical sync bits blank mov vscl,hx 'do blank pixels waitvid hvsync,#0 mov vscl,#hf 'do horizontal front porch pixels waitvid hvsync,#0 mov vscl,#hs 'do horizontal sync pixels waitvid hvsync,#1 mov vscl,#hb 'do horizontal back porch pixels waitvid hvsync,#0 djnz x,#blank 'another line? blank_ret blank_vsync_ret ret 'Data screen_base long 0 'set at runtime (3 contiguous longs) color_base long 0 'set at runtime cursor_base long 0 'set at runtime font_base long 0 'set at runtime font_third long 0 'set at runtime hx long hp 'visible pixels per scan line vscl_line2x long (hp + hf + hs + hb) * 2 'total number of pixels per 2 scan lines vscl_chr long 1 << 12 + 8 '1 clock per pixel and 8 pixels per set colormask long $FCFC 'mask to isolate R,G,B bits from H,V longmask long $FFFFFFFF 'all bits set slowbit long 1 << 25 'cnt mask for slow cursor blink fastbit long 1 << 24 'cnt mask for fast cursor blink underscore long $FFFF0000 'underscore cursor pattern hv long hv_inactive '-H,-V states hvsync long hv_inactive ^ $200 '+/-H,-V states 'Uninitialized data screen_ptr res 1 color_ptr res 1 font_ptr res 1 x res 1 y res 1 z res 1 row res 1 fours res 1 ' 8 x 12 font - characters 0..127 ' ' Each long holds four scan lines of a single character. The longs are arranged into ' groups of 128 which represent all characters (0..127). There are three groups which ' each contain a vertical third of all characters. They are ordered top, middle, and ' bottom. font long long $0C080000,$30100000,$7E3C1800,$18181800,$81423C00,$99423C00,$8181FF00,$E7C3FF00 'top ascii 0-7 long $1E0E0602,$1C000000,$00000000,$00000000,$18181818,$18181818,$00000000,$18181818 long $00000000,$18181818,$18181818,$18181818,$18181818,$00FFFF00,$CC993366,$66666666 long $AA55AA55,$0F0F0F0F,$0F0F0F0F,$0F0F0F0F,$0F0F0F0F,$00000000,$00000000,$00000000 ' ascii 24 to 31 long $00000000,$3C3C1800,$66666600,$7F363600,$667C1818,$46000000,$1B1B0E00,$1C181800 ' 77666600 to 66666600 for the " character (ascii 32 long $0C183000,$180C0600,$66000000,$18000000,$00000000,$00000000,$00000000,$60400000 long $73633E00,$1E181000,$66663C00,$60663C00,$3C383000,$06067E00,$060C3800,$63637F00 long $66663C00,$66663C00,$1C000000,$00000000,$18306000,$00000000,$180C0600,$60663C00 long $63673E00,$66663C00,$66663F00,$63663C00,$66361F00,$06467F00,$06467F00,$63663C00 long $63636300,$18183C00,$30307800,$36666700,$06060F00,$7F776300,$67636300,$63361C00 long $66663F00,$63361C00,$66663F00,$66663C00,$185A7E00,$66666600,$66666600,$63636300 long $66666600,$66666600,$31637F00,$0C0C3C00,$03010000,$30303C00,$361C0800,$00000000 long $0C000000,$00000000,$06060700,$00000000,$30303800,$00000000,$0C6C3800,$00000000 long $06060700,$00181800,$00606000,$06060700,$18181E00,$00000000,$00000000,$00000000 long $00000000,$00000000,$00000000,$00000000,$0C080000,$00000000,$00000000,$00000000 long $00000000,$00000000,$00000000,$18187000,$18181800,$18180E00,$73DBCE00,$18180000 long $080C7E7E,$10307E7E,$18181818,$7E181818,$81818181,$99BDBDBD,$81818181,$E7BD99BD 'middle long $1E3E7E3E,$1C3E3E3E,$30F0C000,$0C0F0300,$00C0F030,$00030F0C,$00FFFF00,$18181818 long $18FFFF00,$00FFFF18,$18F8F818,$181F1F18,$18FFFF18,$00FFFF00,$CC993366,$66666666 long $AA55AA55,$FFFF0F0F,$F0F00F0F,$0F0F0F0F,$00000F0F,$FFFF0000,$F0F00000,$0F0F0000 ' 00000033 to 00000066 for the " character long $00000000,$0018183C,$00000066,$7F363636,$66603C06,$0C183066,$337B5B0E,$0000000C long $0C060606,$18303030,$663CFF3C,$18187E18,$00000000,$00007E00,$00000000,$060C1830 long $676F6B7B,$18181818,$0C183060,$60603860,$307F3336,$60603E06,$66663E06,$0C183060 long $66763C6E,$60607C66,$1C00001C,$00001C1C,$180C060C,$007E007E,$18306030,$00181830 long $033B7B7B,$66667E66,$66663E66,$63030303,$66666666,$06263E26,$06263E26,$63730303 long $63637F63,$18181818,$33333030,$36361E36,$66460606,$63636B7F,$737B7F6F,$63636363 long $06063E66,$7B636363,$66363E66,$66301C06,$18181818,$66666666,$66666666,$366B6B63 long $663C183C,$18183C66,$43060C18,$0C0C0C0C,$30180C06,$30303030,$00000063,$00000000 long $0030381C,$333E301E,$6666663E,$0606663C,$3333333E,$067E663C,$0C0C3E0C,$3333336E long $66666E36,$1818181C,$60606070,$361E3666,$18181818,$6B6B6B3F,$6666663E,$6666663C long $6666663B,$3333336E,$066E7637,$300C663C,$0C0C0C7E,$33333333,$66666666,$6B6B6363 long $1C1C3663,$66666666,$0C30627E,$180C060C,$18181818,$18306030,$00000000,$0018187E long $00000000,$00000000,$00001818,$0000183C,$00003C42,$00003C42,$0000FF81,$0000FFC3 'bottom long $0002060E,$00000000,$18181818,$18181818,$00000000,$00000000,$00000000,$18181818 long $18181818,$00000000,$18181818,$18181818,$18181818,$00FFFF00,$CC993366,$66666666 long $AA55AA55,$FFFFFFFF,$F0F0F0F0,$0F0F0F0F,$00000000,$FFFFFFFF,$F0F0F0F0,$0F0F0F0F long $00000000,$00001818,$00000000,$00003636,$0018183E,$00006266,$00006E3B,$00000000 long $00003018,$0000060C,$00000000,$00000000,$0C181C1C,$00000000,$00001C1C,$00000103 long $00003E63,$00007E18,$00007E66,$00003C66,$00007830,$00003C66,$00003C66,$00000C0C long $00003C66,$00001C30,$0000001C,$0C181C1C,$00006030,$00000000,$0000060C,$00001818 long $00003E07,$00006666,$00003F66,$00003C66,$00001F36,$00007F46,$00000F06,$00007C66 long $00006363,$00003C18,$00001E33,$00006766,$00007F66,$00006363,$00006363,$00001C36 long $00000F06,$00603C36,$00006766,$00003C66,$00003C18,$00003C66,$0000183C,$00003636 long $00006666,$00003C18,$00007F63,$00003C0C,$00004060,$00003C30,$00000000,$FFFF0000 long $00000000,$00006E33,$00003B66,$00003C66,$00006E33,$00003C66,$00001E0C,$1E33303E long $00006766,$00007E18,$3C666660,$00006766,$00007E18,$00006B6B,$00006666,$00003C66 long $0F063E66,$78303E33,$00000F06,$00003C66,$0000386C,$00006E33,$0000183C,$00003636 long $00006336,$1C30607C,$00007E46,$00007018,$00001818,$00000E18,$00000000,$0000007E {{ ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐ │ TERMS OF USE: MIT License │ ├──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤ │Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation │ │files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, │ │modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software│ │is furnished to do so, subject to the following conditions: │ │ │ │The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.│ │ │ │THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE │ │WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR │ │COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, │ │ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. │ └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘ }}