{
vga-bildschirmtreiber-demo

- verwendet zwei cogs
- auflösung 1024 x 768
- 64 x 128 textzeichen
- font ohne umlaute!

}




CON

_clkmode = xtal1 + pll16x
_xinfreq = 5_000_000

VGABasePin = 8

OBJ

  vga   :       "bel-vga1024"

VAR

  long sync           ' gets signal for vertical refresh sync
  byte VGACogStatus   ' results of trying to start the VGA display cog

PUB main | i

  VGACogStatus := vga.Start(VGABasePin,@sync)

  vga.print_string(string("abcd"))
  vga.printchar(0)
  vga.newline

  repeat
    repeat i from $20 to $ff
      vga.printchar(i)
      waitcnt(500_000 + cnt)