45 lines
647 B
Plaintext
45 lines
647 B
Plaintext
{
|
|
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)
|
|
|
|
|
|
|
|
|