cbmeeks

{{
	──────────────────────────────────────────────
	Color Encoding Table
	──────────────────────────────────────────────
	C3 - C0 = Chroma Phase Shift
	M = Modulation Enable
	L2 - L0 = Luma Value
	──────────────────────────────────────────────
	                         Bit Encoding         
	Signal          C3  C2  C1  C0   M  L2  L1  L0

cbmeeks

@Theme("demo")
public class OptimizationUI extends UI {

    private static final long serialVersionUID = 8621351077936927377L;

    @Override
    public void init(VaadinRequest request) {

        String str = "<table width=\"100%\"><tr><td width=\"600px\"></td><td></td></tr>";

cbmeeks

var addr = function(L, C, R) {
  return 16384 + 2048 * Math.floor(L / 8) + 32 * (L - 8 * Math.floor(L / 8)) + 256 * R + C;
};

cbmeeks

CON

    _CLKMODE                = xtal2 + pll8x
    _XINFREQ                = 10_000_000 + 0000

VAR
    BYTE Screen[6912]
  
OBJ

cbmeeks

DAT
              org       0
entry         mov       dira, #1                'set P0 as output
:loop         mov       count, delay            'setup delay
              xor       outa, #1                'invert P0
:here         djnz      count, #:here           'delay
              jmp       #:loop

count         long      0
delay         long      80,000,000              '1s delay (current clock speed 80MHz)

cbmeeks

CON
    _CLKMODE = RCSlow     ' Start prop in RCSlow mode internal crystal

PUB main

    clkset(%01101000,  12_000_000)          ' Set internal oscillator to RCFast and set PLL to start
    waitcnt(cnt + 120_000)                  ' wait approx 10ms at 12mhz for PLL to 'warm up'

cbmeeks

CON
    _CLKMODE = RCSlow     ' Start prop in RCSlow mode internal crystal

PUB main

    clkset(%01101000,  12_000_000)          ' Set internal oscillator to RCFast and set PLL to start
    waitcnt(cnt+120_000)                    ' wait approx 10ms at 12mhz for PLL to 'warm up'

    clkset( %01101111, 80_000_000 )         ' 80MHz (5MHz PLLx16)  
    coginit( COGID, @cogstart, @cogstart )

cbmeeks

$('#readme').insertBefore('.file-navigation');

cbmeeks

''********************************************
''*  VGA 128x96 64-Color Bitmap Driver v1.0  *
''*  Author: Andy Schenk                     *
''*  See end of file for terms of use.       *
''********************************************
''*  based on Chip Gracey's 512x384 Bitmap driver
''
'' This object generates a 128x96 pixel bitmap, signaled as 1024x768 VGA.
'' Each pixel is one byte, so the entire bitmap requires 12 kbytes,
'' Pixel memory is arranged left-to-right then top-to-bottom.

cbmeeks

.right-buttons {
	bottom: 0;
	margin-bottom: 20px;
	position: fixed;
	right: 0;
}