mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
102 lines
2.6 KiB
102 lines
2.6 KiB
CON
|
|
_xinfreq = 5_000_000 ' Quartz is 5MHz
|
|
_clkmode = xtal1 + pll16x ' System clock is 80MHz
|
|
|
|
#define DracBladeProp
|
|
|
|
CHAR_W = 80
|
|
CHAR_H = 30
|
|
|
|
OBJ
|
|
' vga : "vga8x8d"
|
|
vga : "vgacolour"
|
|
vt100 : "vt100"
|
|
|
|
VAR
|
|
long params[6]
|
|
long seed
|
|
|
|
PUB main
|
|
vga.start(16, @screen, @cursor, @sync)
|
|
params[0] := @command
|
|
params[1] := @screen
|
|
params[2] := @cursor
|
|
params[3] := @sync
|
|
params[4] := CHAR_W
|
|
params[5] := CHAR_H
|
|
|
|
vt100.start(@params)
|
|
|
|
seed := cnt
|
|
|
|
str(string(27,"[2;34m",27,"[2J",27,"[H","Hello World!",13,10))
|
|
str(string(27,"[7m","Inverse on",13,10))
|
|
str(string(27,"[27m","Inverse off",13,10))
|
|
str(string(27,"[1m","Highlite on",13,10))
|
|
str(string(27,"[2m","Highlite off",13,10))
|
|
str(string(27,"[4m","Underline on ",27,"[1m + highlite ",27,"[2m",27,"[7m + inverse ",27,"[0m all off + default color.",13,10))
|
|
str(string(27,"[40m","BGD 0"))
|
|
str(string(27,"[41m","BGD 1"))
|
|
str(string(27,"[42m","BGD 2"))
|
|
str(string(27,"[43m","BGD 3"))
|
|
str(string(27,"[44m","BGD 4"))
|
|
str(string(27,"[45m","BGD 5"))
|
|
str(string(27,"[46m","BGD 6"))
|
|
str(string(27,"[47m","BGD 7",13,10))
|
|
|
|
str(string(27,"[41m"))
|
|
|
|
str(string(27,"[30m","FGD 0"))
|
|
str(string(27,"[31m","FGD 1"))
|
|
str(string(27,"[32m","FGD 2"))
|
|
str(string(27,"[33m","FGD 3"))
|
|
str(string(27,"[34m","FGD 4"))
|
|
str(string(27,"[35m","FGD 5"))
|
|
str(string(27,"[36m","FGD 6"))
|
|
str(string(27,"[37m","FGD 7",13,10))
|
|
str(string(27,"[1;40m"))
|
|
str(string(27,"[30m","FGD 0"))
|
|
str(string(27,"[31m","FGD 1"))
|
|
str(string(27,"[32m","FGD 2"))
|
|
str(string(27,"[33m","FGD 3"))
|
|
str(string(27,"[34m","FGD 4"))
|
|
str(string(27,"[35m","FGD 5"))
|
|
str(string(27,"[36m","FGD 6"))
|
|
str(string(27,"[37m","FGD 7",13,10))
|
|
str(string(27,"[2m","The quick brown fox jumps over the lazy dog.", 13, 10))
|
|
|
|
str(string("Setting a scroll range below here.",13,10))
|
|
str(string(27,"[24H","This part of the screen remains ",27,"[4mstatic",27,"[24m, since it is below the scrolling region."))
|
|
str(string(27,"[12;23r",27,"[41m"))
|
|
repeat
|
|
chr(27)
|
|
chr("[")
|
|
chr("3")
|
|
chr("0" + rand & 7)
|
|
chr("m")
|
|
chr(27)
|
|
chr("[")
|
|
chr("4")
|
|
chr("0" + rand & 7)
|
|
chr("m")
|
|
str(string("Four score and seven years ago our ",27,"[1mfathers",27,"[2m brought forth, upon this continent, a new ",27,"[1mnation",27,"[2m, conceived in Liberty, and dedicated to the proposition that all men are created equal. "))
|
|
waitcnt(clkfreq/4 + cnt)
|
|
|
|
|
|
PUB chr(ch)
|
|
command := $100 | ch
|
|
repeat while command
|
|
|
|
PUB str(strptr) | i
|
|
repeat i from 0 to strsize(strptr)
|
|
chr(byte[strptr][i])
|
|
|
|
PUB rand
|
|
seed := seed * 1103515245 + 12345 + CNT / 7777
|
|
return seed
|
|
|
|
DAT
|
|
command long 0
|
|
screen word $0720[CHAR_W*CHAR_H]
|
|
cursor byte 0,0,%110,0,0,0,0,0
|
|
sync long 0
|
|
|