Firmware initial import
This commit is contained in:
James Bowman
parent
4c24651883
commit
d84c5628cf
|
|
@ -0,0 +1,7 @@
|
||||||
|
This is the firmware for the SPIDriver.
|
||||||
|
It uses the [MyForth](http://www.kiblerelectronics.com/myf/myf.shtml) compiler written by
|
||||||
|
Charley Shattuck and Bob Nash.
|
||||||
|
|
||||||
|
To compile the fonts go into ``st7735s``
|
||||||
|
and unpack the [IBM Plex OpenType](https://github.com/IBM/plex/releases) font set.
|
||||||
|
then run ``mkfont.py``. This builds the font sources in ``fonts.fs``
|
||||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 185 B |
Binary file not shown.
|
After Width: | Height: | Size: 86 B |
|
|
@ -0,0 +1,3 @@
|
||||||
|
set -e
|
||||||
|
|
||||||
|
python2 mkfont.py
|
||||||
Binary file not shown.
|
After Width: | Height: | Size: 242 B |
Binary file not shown.
|
After Width: | Height: | Size: 243 B |
Binary file not shown.
|
After Width: | Height: | Size: 238 B |
Binary file not shown.
|
After Width: | Height: | Size: 94 B |
|
|
@ -0,0 +1,131 @@
|
||||||
|
#!/usr/bin/python
|
||||||
|
# -*- coding: utf-8 -*-
|
||||||
|
|
||||||
|
import sys
|
||||||
|
from PIL import Image, ImageDraw, ImageFont
|
||||||
|
import numpy as np
|
||||||
|
import struct
|
||||||
|
import random
|
||||||
|
|
||||||
|
def rand(n):
|
||||||
|
return random.randrange(n)
|
||||||
|
|
||||||
|
def as565(im):
|
||||||
|
""" Return RGB565 of im """
|
||||||
|
(r,g,b) = [np.array(c).astype(np.uint16) for c in im.split()]
|
||||||
|
def s(x, n):
|
||||||
|
return x * (2 ** n - 1) / 255
|
||||||
|
return (s(b, 5) << 11) | (s(g, 6) << 5) | s(r, 5)
|
||||||
|
|
||||||
|
def c3(rgb):
|
||||||
|
return (16 * (0xf & (rgb >> 8)),
|
||||||
|
16 * (0xf & (rgb >> 4)),
|
||||||
|
16 * (0xf & (rgb >> 0)))
|
||||||
|
|
||||||
|
font2 = ImageFont.truetype("IBMPlexSans-SemiBold.otf", 13)
|
||||||
|
fontSP = ImageFont.truetype("pf_ronda_seven_bold.ttf", 8)
|
||||||
|
|
||||||
|
def pad2(s):
|
||||||
|
if len(s) % 2:
|
||||||
|
s.append(s[0])
|
||||||
|
return s
|
||||||
|
|
||||||
|
def rfont2(c):
|
||||||
|
im = Image.new("L", (128, 160))
|
||||||
|
dr = ImageDraw.Draw(im)
|
||||||
|
dr.text((10,40), c, font=font2, fill=255)
|
||||||
|
# im.save("out.png")
|
||||||
|
extents = im.getbbox()
|
||||||
|
assert 10 <= extents[0]
|
||||||
|
assert 45 <= extents[1]
|
||||||
|
if c in "0123456789":
|
||||||
|
extents = (0, 0, 10 + 8, 45 + 9)
|
||||||
|
im = im.crop((10, 45) + extents[2:])
|
||||||
|
(w,h) = im.size
|
||||||
|
nyb = pad2((np.array(im).astype(int).flatten() * 15 / 255).tolist())
|
||||||
|
return [w,h] + nyb
|
||||||
|
|
||||||
|
def rf(c, font):
|
||||||
|
im = Image.new("L", (128, 160))
|
||||||
|
dr = ImageDraw.Draw(im)
|
||||||
|
dr.text((10,40), c, font=font, fill=255)
|
||||||
|
# im.save("out.png")
|
||||||
|
extents = im.getbbox()
|
||||||
|
im = im.crop(extents)
|
||||||
|
(w,h) = im.size
|
||||||
|
nyb = (np.array(im).astype(int).flatten() * 15 / 255).tolist()
|
||||||
|
return [w,h] + nyb
|
||||||
|
|
||||||
|
fs = open("../font.fs", "wt")
|
||||||
|
fb = 0
|
||||||
|
|
||||||
|
if __name__ == '__main__':
|
||||||
|
fs.write('here constant tplan\n')
|
||||||
|
fs.write('%d , %d , $%x%x , $%x , ," %s"\n' % (60, 0, 0xf, 0xf, 0xf, "V"))
|
||||||
|
fb += 5 + len("V")
|
||||||
|
# fs.write("[ %d ]\n" % fb)
|
||||||
|
fs.write('%d , %d , $%x%x , $%x , ," %s"\n' % (108, 0, 0xf, 0xf, 0xf, "mA"))
|
||||||
|
fb += 5 + len("mA")
|
||||||
|
# fs.write("[ %d ]\n" % fb)
|
||||||
|
|
||||||
|
fs.write('0 ,\n')
|
||||||
|
fb += 1
|
||||||
|
# im.save("out.png")
|
||||||
|
|
||||||
|
uniq = "".join(sorted(set("0123456789.mAVDMCS")))
|
||||||
|
f2 = sum([rfont2(c) for c in uniq], [])
|
||||||
|
print "font2 %s takes %d bytes" % (uniq, len(f2) / 2)
|
||||||
|
def nybbles(nn):
|
||||||
|
s = len(nn)
|
||||||
|
assert s % 2 == 0
|
||||||
|
b = ["$%x%x ," % tuple(nn[i:i+2]) for i in range(0, s, 2)]
|
||||||
|
return b
|
||||||
|
fs.write('here constant font\n')
|
||||||
|
for c in uniq:
|
||||||
|
bb = nybbles(rfont2(c))
|
||||||
|
print >>fs, "'%s' , " % c, " ".join(bb)
|
||||||
|
fb += 1 + len(bb)
|
||||||
|
|
||||||
|
# See http://angband.pl/font/tinyfont.html
|
||||||
|
fs.write("\nhere constant micro\n")
|
||||||
|
if 1:
|
||||||
|
tiny = Image.open("hex4x5.png").convert("L")
|
||||||
|
for i in range(16):
|
||||||
|
x = 5 * i
|
||||||
|
im = tiny.crop((x, 0, x + 4, 5))
|
||||||
|
rim = im.transpose(Image.ROTATE_90)
|
||||||
|
ch = ((np.array(rim)).flatten() * 15.99 / 255).astype(np.uint8).tolist()
|
||||||
|
fs.write(" ".join(nybbles(ch)) + "\n")
|
||||||
|
fb += len(ch) / 2
|
||||||
|
|
||||||
|
if 1:
|
||||||
|
# Image.open("arrow.png").transpose(Image.FLIP_LEFT_RIGHT).save("larrow.png")
|
||||||
|
for n in ("symbol-s", "symbol-p", "symbol-b", "arrow", "larrow", "dot", "label-sda", "label-scl"):
|
||||||
|
im = Image.open(n + ".png").convert("L")
|
||||||
|
if n.startswith("label-"):
|
||||||
|
im = im.point([0] + 254 * [64] + [255])
|
||||||
|
rim = im.transpose(Image.ROTATE_90)
|
||||||
|
(w,h) = rim.size
|
||||||
|
ch = [w,h] + pad2(((np.array(rim)).flatten() * 15.99 / 255).astype(np.uint8).tolist())
|
||||||
|
fs.write("here constant %s \n" % n)
|
||||||
|
fs.write(" ".join(nybbles(ch)) + "\n")
|
||||||
|
fb += len(ch) / 2
|
||||||
|
|
||||||
|
if 1:
|
||||||
|
w = 72
|
||||||
|
gpng = "plasma.png"
|
||||||
|
grad = Image.open(gpng).convert("RGB").resize((w, 1), Image.BILINEAR).load()
|
||||||
|
fs.write("\nHERE constant grad\n")
|
||||||
|
for x in range(w):
|
||||||
|
(r,g,b) = grad[x,0]
|
||||||
|
r = (r * 15) // 255
|
||||||
|
g = (g * 15) // 255
|
||||||
|
b = (b * 15) // 255
|
||||||
|
fs.write('$%x%x , $%x ,\n' % (r, g, b))
|
||||||
|
fb += 2 * w
|
||||||
|
|
||||||
|
fs.close()
|
||||||
|
|
||||||
|
fs = open("../fontsize.fs", "wt")
|
||||||
|
fs.write("&%d constant FONTDATA_SIZE\n" % fb)
|
||||||
|
fs.close()
|
||||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 413 B |
Binary file not shown.
|
After Width: | Height: | Size: 184 B |
Binary file not shown.
|
After Width: | Height: | Size: 185 B |
Binary file not shown.
|
After Width: | Height: | Size: 191 B |
|
|
@ -0,0 +1,259 @@
|
||||||
|
|
||||||
|
here constant CAPTURE-START
|
||||||
|
|
||||||
|
[
|
||||||
|
: fake ( a - u )
|
||||||
|
dup 0= ] here [ and or ;
|
||||||
|
]
|
||||||
|
|
||||||
|
:m :: ( - )
|
||||||
|
[ >in @ label >in !
|
||||||
|
create ] here [ , hide
|
||||||
|
does> @ ] m;
|
||||||
|
|
||||||
|
\ jump if bit is 0 or 1 ( addr bit )
|
||||||
|
:m j1 ( addr bit ) [ swap fake swap ] 0=until. m;
|
||||||
|
:m j0 ( addr bit ) [ swap fake swap ] until. m;
|
||||||
|
:m j ( addr ) fake again m;
|
||||||
|
|
||||||
|
:m tx SBUF0 (#!) clra TMR3H (#!) m;
|
||||||
|
:m SDA0 ( a ) SDA j0 m;
|
||||||
|
:m SDA1 ( a ) SDA j1 m;
|
||||||
|
|
||||||
|
fwd L00.0
|
||||||
|
fwd L00.1
|
||||||
|
fwd L00.2
|
||||||
|
fwd H00.0
|
||||||
|
fwd H00.1
|
||||||
|
fwd H00.2
|
||||||
|
fwd HS
|
||||||
|
fwd HP
|
||||||
|
fwd LP
|
||||||
|
fwd LS
|
||||||
|
|
||||||
|
:m escape RI0 if. RI0 clr ; then m;
|
||||||
|
|
||||||
|
:: L11 begin LS SDA0 SCL 0=until.
|
||||||
|
:: Lidle begin begin SDA until. SCL until.
|
||||||
|
L11 j
|
||||||
|
|
||||||
|
:: L10.0 3 .t set
|
||||||
|
begin L00.0 SDA0 SCL until. begin LS SDA0 SCL 0=until. 2 .t set
|
||||||
|
:: L10.1 begin L00.1 SDA0 SCL until. begin LS SDA0 SCL 0=until. 1 .t set
|
||||||
|
:: L10.2 begin L00.2 SDA0 SCL until. begin LS SDA0 SCL 0=until. 0 .t set
|
||||||
|
tx
|
||||||
|
:: H10.0 7 .t set
|
||||||
|
:: klak begin H00.0 SDA0 SCL until. begin HS SDA0 SCL 0=until. 6 .t set
|
||||||
|
:: H10.1 begin H00.1 SDA0 SCL until. begin HS SDA0 SCL 0=until. 5 .t set
|
||||||
|
:: H10.2 begin H00.2 SDA0 SCL until. begin HS SDA0 SCL 0=until. 4 .t set
|
||||||
|
L10.0 j
|
||||||
|
|
||||||
|
:: LS $f0 # and $01 # ior tx ( start )
|
||||||
|
:: LS2 begin HP SDA1 SCL 0=until.
|
||||||
|
H00.0 j
|
||||||
|
|
||||||
|
:: HS $10 (#) ( start )
|
||||||
|
:: HS2 begin LP SDA1 SCL 0=until.
|
||||||
|
:: L00.0 3 .t set
|
||||||
|
begin L10.0 SDA1 SCL until. begin LP SDA1 SCL 0=until.
|
||||||
|
:: L00.1 begin L10.1 SDA1 SCL until. begin LP SDA1 SCL 0=until.
|
||||||
|
:: L00.2 begin L10.2 SDA1 SCL until. begin LP SDA1 SCL 0=until.
|
||||||
|
tx
|
||||||
|
:: H00.0 7 .t set
|
||||||
|
begin H10.0 SDA1 SCL until. begin HP SDA1 SCL 0=until.
|
||||||
|
:: H00.1 begin H10.1 SDA1 SCL until. begin HP SDA1 SCL 0=until.
|
||||||
|
:: H00.2 begin H10.2 SDA1 SCL until. begin HP SDA1 SCL 0=until.
|
||||||
|
L00.0 j
|
||||||
|
|
||||||
|
:: HP $20 (#)
|
||||||
|
\ L11 j
|
||||||
|
begin SDA 0=until.
|
||||||
|
escape
|
||||||
|
HS2 j
|
||||||
|
|
||||||
|
: (warm)
|
||||||
|
:: H11 begin HS SDA0 SCL 0=until.
|
||||||
|
:: Hidle begin begin SDA until. SCL until.
|
||||||
|
H11 j
|
||||||
|
|
||||||
|
:: LP $f0 # and $02 # ior tx
|
||||||
|
\ H11 j
|
||||||
|
begin SDA 0=until.
|
||||||
|
escape
|
||||||
|
LS2 j
|
||||||
|
|
||||||
|
: /timer3
|
||||||
|
$80 # EIE1 ior! \ Timer 3 interrupt enable
|
||||||
|
;
|
||||||
|
: timer3\
|
||||||
|
$80 ~# EIE1 and! \ Timer 3 interrupt disable
|
||||||
|
;
|
||||||
|
|
||||||
|
:m timer3
|
||||||
|
SBUF0 (#!) clra
|
||||||
|
$7f # TMR3CN and!
|
||||||
|
RI0 if.
|
||||||
|
RI0 clr
|
||||||
|
[ sp dec ]
|
||||||
|
[ sp dec ]
|
||||||
|
then
|
||||||
|
[ reti ] m;
|
||||||
|
|
||||||
|
: capture
|
||||||
|
[ IE push ]
|
||||||
|
[ ET2 clr ] \ Timer 2 interrupt disable
|
||||||
|
[ ES0 clr ] \ UART interrupt disable
|
||||||
|
\i2chw
|
||||||
|
|
||||||
|
[ clra ]
|
||||||
|
[ FL1 set ] t3+
|
||||||
|
(warm)
|
||||||
|
t3- [ FL1 clr ]
|
||||||
|
/i2chw
|
||||||
|
[ IE pop ]
|
||||||
|
;
|
||||||
|
|
||||||
|
\ This code all runs in register bank 1:
|
||||||
|
\ 0 scratch for heatmap
|
||||||
|
\ 1 log
|
||||||
|
\ 2
|
||||||
|
\ 3 prev cmd
|
||||||
|
\ 4 constant 72, for heatmap
|
||||||
|
\ 5
|
||||||
|
\ 6
|
||||||
|
\ 7 caller acc save
|
||||||
|
\
|
||||||
|
\ FL0 set means this is an address byte
|
||||||
|
|
||||||
|
fwd M00.0
|
||||||
|
fwd M10.0
|
||||||
|
fwd M10.1
|
||||||
|
fwd M10.2
|
||||||
|
fwd M10.3
|
||||||
|
fwd M10.4
|
||||||
|
fwd M10.5
|
||||||
|
fwd M10.6
|
||||||
|
fwd M10.7
|
||||||
|
fwd M10.8
|
||||||
|
fwd Mt
|
||||||
|
fwd MP
|
||||||
|
|
||||||
|
:m (l!) $f3 , m;
|
||||||
|
|
||||||
|
:m (log!)
|
||||||
|
$f3 , a+ m;
|
||||||
|
|
||||||
|
:m wrap
|
||||||
|
$7f # 9 and! m;
|
||||||
|
|
||||||
|
:m heat
|
||||||
|
\ byte is in t
|
||||||
|
FL0 if.
|
||||||
|
setc 2/'
|
||||||
|
0 (#!)
|
||||||
|
4 (#@) $f2 ,
|
||||||
|
then
|
||||||
|
m;
|
||||||
|
|
||||||
|
:m escape
|
||||||
|
7 (#@)
|
||||||
|
[
|
||||||
|
dirty set
|
||||||
|
PSW pop
|
||||||
|
reti
|
||||||
|
]
|
||||||
|
m;
|
||||||
|
|
||||||
|
:: MP
|
||||||
|
$00 (#) (log!)
|
||||||
|
$01 (#) (log!)
|
||||||
|
wrap
|
||||||
|
escape
|
||||||
|
begin SDA 0=until.
|
||||||
|
: (mismatch)
|
||||||
|
:: Mt
|
||||||
|
begin MP SDA1 SCL 0=until.
|
||||||
|
$82 # 3 #! FL0 set
|
||||||
|
M00.0 j
|
||||||
|
|
||||||
|
:: M00.6 begin M10.6 SDA1 SCL until. begin MP SDA1 SCL 0=until.
|
||||||
|
:: M00.7 begin M10.7 SDA1 SCL until. begin MP SDA1 SCL 0=until. (l!)
|
||||||
|
:: M00.8 begin M10.8 SDA1 SCL until. begin MP SDA1 SCL 0=until. heat
|
||||||
|
a+ 3 (#@) (l!) a+ wrap
|
||||||
|
$83 # 3 #! FL0 clr
|
||||||
|
M00.0 j
|
||||||
|
|
||||||
|
:: M10.6 begin M00.6 SDA0 SCL until. begin Mt SDA0 SCL 0=until. 1 .t set
|
||||||
|
:: M10.7 begin M00.7 SDA0 SCL until. begin Mt SDA0 SCL 0=until. 1+ (l!)
|
||||||
|
:: M10.8 begin M00.8 SDA0 SCL until. begin Mt SDA0 SCL 0=until.
|
||||||
|
a+ 3 (#@) $7f # and (l!) a+ wrap
|
||||||
|
$83 # 3 #! FL0 clr
|
||||||
|
M10.0 j
|
||||||
|
|
||||||
|
:: MP3 MP j
|
||||||
|
:: Mt3 Mt j
|
||||||
|
:: M00.3 begin M10.3 SDA1 SCL until. begin MP3 SDA1 SCL 0=until.
|
||||||
|
:: M00.4 begin M10.4 SDA1 SCL until. begin MP3 SDA1 SCL 0=until.
|
||||||
|
:: M00.5 begin M10.5 SDA1 SCL until. begin MP3 SDA1 SCL 0=until.
|
||||||
|
M00.6 j
|
||||||
|
:: M10.3 begin M00.3 SDA0 SCL until. begin Mt3 SDA0 SCL 0=until. 4 .t set
|
||||||
|
:: M10.4 begin M00.4 SDA0 SCL until. begin Mt3 SDA0 SCL 0=until. 3 .t set
|
||||||
|
:: M10.5 begin M00.5 SDA0 SCL until. begin Mt3 SDA0 SCL 0=until. 2 .t set
|
||||||
|
M10.6 j
|
||||||
|
|
||||||
|
:: MP0 MP j
|
||||||
|
:: Mt0 Mt j
|
||||||
|
|
||||||
|
: (warm)
|
||||||
|
:: M00.0 clra
|
||||||
|
begin M10.0 SDA1 SCL until. begin MP0 SDA1 SCL 0=until.
|
||||||
|
:: M00.1 begin M10.1 SDA1 SCL until. begin MP0 SDA1 SCL 0=until.
|
||||||
|
:: M00.2 begin M10.2 SDA1 SCL until. begin MP0 SDA1 SCL 0=until.
|
||||||
|
M00.3 j
|
||||||
|
:: M10.0 clra
|
||||||
|
begin M00.0 SDA0 SCL until. begin Mt0 SDA0 SCL 0=until. 7 .t set
|
||||||
|
:: M10.1 begin M00.1 SDA0 SCL until. begin Mt0 SDA0 SCL 0=until. 6 .t set
|
||||||
|
:: M10.2 begin M00.2 SDA0 SCL until. begin Mt0 SDA0 SCL 0=until. 5 .t set
|
||||||
|
M10.3 j
|
||||||
|
|
||||||
|
: /monitor
|
||||||
|
[ ET2 clr ] \ Timer 2 interrupt disable
|
||||||
|
[ ES0 clr ] \ UART interrupt disable
|
||||||
|
\i2chw
|
||||||
|
t3i- t3+ \ Timer3 running, no intr
|
||||||
|
|
||||||
|
%00000100 # P0MASK #!
|
||||||
|
%00000100 # P0MAT #! \ SDA high
|
||||||
|
|
||||||
|
%00010000 # P1MASK #!
|
||||||
|
%00010000 # P1MAT #! \ SCL high
|
||||||
|
|
||||||
|
\ constants in registers
|
||||||
|
72 # [ 4 8 + ] #!
|
||||||
|
$02 # EIE1 ior! \ EMAT
|
||||||
|
;
|
||||||
|
|
||||||
|
: \monitor
|
||||||
|
$02 ~# EIE1 and! \ EMAT off
|
||||||
|
[ ET2 set ] \ Timer 2 interrupt enable
|
||||||
|
[ ES0 set ] \ UART interrupt enable
|
||||||
|
t3i+ t3- \ Timer3 stopped, intr
|
||||||
|
/i2chw
|
||||||
|
;
|
||||||
|
|
||||||
|
:m mismatch
|
||||||
|
[
|
||||||
|
PSW push
|
||||||
|
RS0 set
|
||||||
|
]
|
||||||
|
7 (#!)
|
||||||
|
Mt j
|
||||||
|
m;
|
||||||
|
|
||||||
|
here [
|
||||||
|
CAPTURE-START xor 11 rshift 0<>
|
||||||
|
[IF]
|
||||||
|
cr .( Capture block cannot cross a 2K boundary)
|
||||||
|
abort
|
||||||
|
[THEN]
|
||||||
|
]
|
||||||
|
|
@ -0,0 +1,131 @@
|
||||||
|
here constant tplan
|
||||||
|
60 , 0 , $ff , $f , ," V"
|
||||||
|
108 , 0 , $ff , $f , ," mA"
|
||||||
|
0 ,
|
||||||
|
here constant font
|
||||||
|
'.' , $49 , $00 , $00 , $00 , $00 , $00 , $00 , $00 , $00 , $00 , $00 , $00 , $00 , $03 , $20 , $2f , $e0 , $0c , $b0 ,
|
||||||
|
'0' , $89 , $01 , $9d , $d8 , $00 , $0c , $fc , $df , $90 , $4f , $b0 , $0d , $e1 , $7f , $70 , $0b , $f4 , $9f , $70 , $0a , $f5 , $7f , $70 , $0b , $f4 , $4f , $a0 , $0d , $e1 , $0c , $fb , $cf , $90 , $01 , $ad , $d8 , $00 ,
|
||||||
|
'1' , $89 , $00 , $af , $f7 , $00 , $09 , $fd , $f7 , $00 , $6f , $a7 , $f7 , $00 , $07 , $07 , $f7 , $00 , $00 , $07 , $f7 , $00 , $00 , $07 , $f7 , $00 , $00 , $07 , $f7 , $00 , $09 , $9c , $fc , $95 , $0e , $ff , $ff , $f8 ,
|
||||||
|
'2' , $89 , $02 , $ae , $d8 , $00 , $1d , $fc , $ef , $90 , $3b , $70 , $3f , $e0 , $00 , $00 , $4f , $c0 , $00 , $02 , $de , $40 , $00 , $4d , $e4 , $00 , $06 , $ed , $30 , $00 , $4f , $fb , $aa , $a2 , $5f , $ff , $ff , $f3 ,
|
||||||
|
'3' , $89 , $04 , $ce , $d7 , $00 , $3e , $eb , $df , $80 , $05 , $10 , $5f , $b0 , $00 , $6b , $dd , $30 , $00 , $9f , $fc , $20 , $00 , $00 , $6f , $c0 , $2a , $10 , $2f , $e0 , $8f , $eb , $df , $80 , $07 , $ce , $c7 , $00 ,
|
||||||
|
'4' , $89 , $00 , $05 , $ff , $40 , $00 , $1d , $ff , $40 , $00 , $8e , $cf , $40 , $03 , $e8 , $9f , $40 , $0c , $d0 , $9f , $40 , $6f , $50 , $9f , $40 , $bf , $ff , $ff , $f7 , $69 , $99 , $cf , $a4 , $00 , $00 , $9f , $40 ,
|
||||||
|
'5' , $89 , $0c , $ff , $ff , $c0 , $0d , $eb , $bb , $90 , $0e , $a0 , $00 , $00 , $0f , $aa , $eb , $20 , $1f , $fb , $df , $d0 , $02 , $20 , $0d , $f3 , $07 , $40 , $0d , $f2 , $2e , $eb , $df , $b0 , $03 , $be , $d8 , $10 ,
|
||||||
|
'6' , $89 , $00 , $1a , $fc , $10 , $00 , $cf , $90 , $00 , $09 , $f8 , $00 , $00 , $1e , $da , $eb , $30 , $5f , $fb , $bf , $d0 , $7f , $a0 , $0c , $f4 , $5f , $a0 , $0c , $f3 , $0c , $eb , $bf , $b0 , $01 , $ad , $d9 , $10 ,
|
||||||
|
'7' , $89 , $5f , $ff , $ff , $f2 , $5f , $ba , $ae , $f2 , $5f , $50 , $3f , $c0 , $14 , $10 , $9f , $50 , $00 , $01 , $ee , $00 , $00 , $07 , $f8 , $00 , $00 , $0d , $e2 , $00 , $00 , $5f , $a0 , $00 , $00 , $bf , $40 , $00 ,
|
||||||
|
'8' , $89 , $03 , $be , $d9 , $10 , $1e , $ea , $bf , $c0 , $2f , $a0 , $0d , $e0 , $09 , $e9 , $ae , $60 , $06 , $ef , $fd , $40 , $5f , $b1 , $2d , $e2 , $7f , $80 , $0c , $f4 , $2e , $ea , $bf , $d0 , $03 , $be , $da , $20 ,
|
||||||
|
'9' , $89 , $02 , $ae , $d8 , $00 , $1d , $eb , $cf , $90 , $6f , $90 , $0d , $f1 , $7f , $80 , $0d , $f3 , $3e , $ea , $bf , $f2 , $05 , $ce , $af , $d0 , $00 , $00 , $af , $50 , $00 , $1b , $f9 , $00 , $02 , $df , $80 , $00 ,
|
||||||
|
'A' , $99 , $00 , $0e , $fa , $00 , $00 , $04 , $ff , $e1 , $00 , $00 , $9f , $9f , $50 , $00 , $0e , $c2 , $fb , $00 , $05 , $f7 , $0c , $e1 , $00 , $af , $ff , $ff , $60 , $1e , $eb , $bb , $fb , $06 , $f8 , $00 , $0d , $f1 , $bf , $40 , $00 , $8f , $70 ,
|
||||||
|
'C' , $99 , $00 , $5b , $ec , $70 , $00 , $6f , $ec , $ef , $80 , $1e , $e2 , $01 , $c7 , $04 , $fa , $00 , $00 , $00 , $6f , $90 , $00 , $00 , $04 , $fa , $00 , $00 , $00 , $1e , $e1 , $01 , $d8 , $00 , $7f , $ec , $ef , $80 , $00 , $6c , $ec , $60 , $00 ,
|
||||||
|
'D' , $99 , $1f , $ff , $eb , $50 , $01 , $fe , $cc , $ef , $60 , $1f , $d0 , $02 , $ee , $01 , $fd , $00 , $0b , $f3 , $1f , $d0 , $00 , $af , $51 , $fd , $00 , $0b , $f3 , $1f , $d0 , $01 , $ee , $11 , $fe , $bc , $ef , $60 , $1f , $ff , $eb , $50 , $01 ,
|
||||||
|
'M' , $a9 , $1f , $f5 , $00 , $0a , $fa , $1f , $fc , $00 , $3f , $fa , $1f , $ff , $60 , $bf , $fa , $1f , $dd , $d5 , $fb , $fa , $1f , $c6 , $fe , $e4 , $fa , $1f , $c0 , $cf , $63 , $fa , $1f , $c0 , $4d , $03 , $fa , $1f , $c0 , $02 , $03 , $fa , $1f , $c0 , $00 , $03 , $fa ,
|
||||||
|
'S' , $89 , $02 , $ad , $da , $20 , $0d , $fd , $df , $e1 , $4f , $b0 , $04 , $30 , $2e , $e8 , $51 , $00 , $05 , $df , $ff , $80 , $00 , $02 , $5d , $f4 , $08 , $30 , $0a , $f5 , $5f , $fd , $df , $d1 , $04 , $be , $da , $20 ,
|
||||||
|
'V' , $99 , $cf , $30 , $00 , $de , $17 , $f8 , $00 , $3f , $b0 , $2f , $d0 , $08 , $f6 , $00 , $cf , $20 , $de , $10 , $06 , $f7 , $2f , $b0 , $00 , $1f , $b6 , $f6 , $00 , $00 , $be , $ce , $10 , $00 , $06 , $ff , $a0 , $00 , $00 , $1e , $f5 , $00 , $0c ,
|
||||||
|
'm' , $b9 , $00 , $00 , $00 , $00 , $00 , $00 , $00 , $00 , $00 , $00 , $00 , $2f , $ba , $ea , $1a , $ea , $12 , $ff , $bd , $fe , $bd , $f8 , $2f , $c0 , $3f , $c0 , $3f , $b2 , $fb , $02 , $fb , $02 , $fc , $2f , $b0 , $2f , $b0 , $2f , $c2 , $fb , $02 , $fb , $02 , $fc , $2f , $b0 , $2f , $b0 , $2f , $c0 ,
|
||||||
|
|
||||||
|
here constant micro
|
||||||
|
$4f , $ff , $4f , $00 , $0f , $f0 , $00 , $f4 , $ff , $f4 ,
|
||||||
|
$00 , $00 , $0f , $ff , $ff , $f0 , $00 , $00 , $00 , $00 ,
|
||||||
|
$4f , $40 , $ff , $0f , $0f , $f0 , $f0 , $ff , $04 , $ff ,
|
||||||
|
$4f , $4f , $4f , $0f , $0f , $f0 , $f0 , $ff , $04 , $0f ,
|
||||||
|
$ff , $ff , $f0 , $0f , $00 , $00 , $f0 , $0f , $ff , $00 ,
|
||||||
|
$f0 , $4f , $4f , $0f , $0f , $f0 , $f0 , $ff , $ff , $0f ,
|
||||||
|
$40 , $4f , $4f , $0f , $0f , $f0 , $f0 , $f4 , $ff , $f4 ,
|
||||||
|
$ff , $00 , $0f , $0f , $00 , $f0 , $0f , $ff , $00 , $00 ,
|
||||||
|
$4f , $4f , $4f , $0f , $0f , $f0 , $f0 , $f4 , $f4 , $f4 ,
|
||||||
|
$4f , $ff , $4f , $0f , $0f , $f0 , $f0 , $f4 , $f4 , $04 ,
|
||||||
|
$4f , $ff , $ff , $0f , $00 , $f0 , $f0 , $04 , $ff , $ff ,
|
||||||
|
$4f , $4f , $4f , $0f , $0f , $f0 , $f0 , $ff , $ff , $ff ,
|
||||||
|
$4f , $0f , $4f , $00 , $0f , $f0 , $00 , $f4 , $ff , $f4 ,
|
||||||
|
$4f , $ff , $4f , $00 , $0f , $f0 , $00 , $ff , $ff , $ff ,
|
||||||
|
$00 , $00 , $0f , $0f , $0f , $f0 , $f0 , $ff , $ff , $ff ,
|
||||||
|
$00 , $00 , $0f , $0f , $00 , $f0 , $f0 , $0f , $ff , $ff ,
|
||||||
|
here constant symbol-s
|
||||||
|
$bc , $00 , $17 , $ce , $d8 , $20 , $00 , $2b , $ff , $ff , $fc , $30 , $0a , $ff , $ff , $ff , $fb , $15 , $fd , $0f , $d0 , $0d , $f6 , $af , $00 , $f0 , $00 , $0f , $cc , $f0 , $ff , $0f , $f0 , $fe , $cf , $0f , $f0 , $ff , $0f , $e9 , $f0 , $00 , $0f , $00 , $fb , $4e , $d0 , $0d , $f0 , $df , $60 , $9f , $ff , $ff , $ff , $a1 , $01 , $9f , $ff , $ff , $b2 , $00 , $00 , $5b , $db , $61 , $00 ,
|
||||||
|
here constant symbol-p
|
||||||
|
$bc , $00 , $17 , $ce , $d8 , $20 , $00 , $2b , $ff , $ff , $fc , $30 , $0a , $ff , $ff , $ff , $fb , $15 , $fd , $00 , $df , $ff , $f6 , $af , $00 , $00 , $ff , $ff , $cc , $f0 , $ff , $0f , $ff , $fe , $cf , $0f , $f0 , $ff , $ff , $e9 , $f0 , $00 , $00 , $00 , $fb , $4e , $00 , $00 , $00 , $0f , $60 , $9f , $ff , $ff , $ff , $a1 , $01 , $9f , $ff , $ff , $b2 , $00 , $00 , $5b , $db , $61 , $00 ,
|
||||||
|
here constant symbol-b
|
||||||
|
$bc , $00 , $17 , $ce , $d8 , $20 , $00 , $2b , $ff , $ff , $fc , $30 , $0a , $ff , $ff , $ff , $fb , $15 , $ff , $ff , $ff , $ff , $f6 , $af , $ff , $ff , $ff , $ff , $cc , $f0 , $00 , $00 , $f0 , $fe , $cf , $00 , $00 , $0f , $0f , $e9 , $ff , $ff , $ff , $ff , $fb , $4e , $ff , $ff , $ff , $ff , $60 , $9f , $ff , $ff , $ff , $a1 , $01 , $9f , $ff , $ff , $b2 , $00 , $00 , $5b , $db , $61 , $00 ,
|
||||||
|
here constant arrow
|
||||||
|
$35 , $08 , $03 , $b3 , $8f , $8b , $fb , $ef , $e0 ,
|
||||||
|
here constant larrow
|
||||||
|
$35 , $ef , $eb , $fb , $8f , $83 , $b3 , $08 , $0e ,
|
||||||
|
here constant dot
|
||||||
|
$44 , $4c , $d5 , $bf , $fd , $bf , $fc , $3b , $b4 ,
|
||||||
|
here constant label-sda
|
||||||
|
$810 , $f0 , $00 , $00 , $00 , $f0 , $00 , $00 , $00 , $f0 , $4f , $ff , $f0 , $f0 , $f0 , $f0 , $00 , $f0 , $f0 , $f0 , $00 , $f0 , $4f , $ff , $f0 , $f0 , $00 , $00 , $00 , $f0 , $4f , $ff , $40 , $f0 , $f0 , $00 , $f0 , $f0 , $f0 , $00 , $f0 , $f0 , $ff , $ff , $f0 , $f0 , $00 , $00 , $00 , $f0 , $f0 , $4f , $40 , $f0 , $f0 , $f0 , $f0 , $f0 , $f0 , $f0 , $f0 , $f0 , $4f , $40 , $f0 ,
|
||||||
|
here constant label-scl
|
||||||
|
$810 , $f0 , $00 , $00 , $00 , $f0 , $00 , $00 , $00 , $f0 , $00 , $00 , $00 , $f0 , $00 , $00 , $f0 , $f0 , $00 , $00 , $f0 , $f0 , $ff , $ff , $f0 , $f0 , $00 , $00 , $00 , $f0 , $4f , $0f , $40 , $f0 , $f0 , $00 , $f0 , $f0 , $f0 , $00 , $f0 , $f0 , $4f , $ff , $40 , $f0 , $00 , $00 , $00 , $f0 , $f0 , $4f , $40 , $f0 , $f0 , $f0 , $f0 , $f0 , $f0 , $f0 , $f0 , $f0 , $4f , $40 , $f0 ,
|
||||||
|
|
||||||
|
HERE constant grad
|
||||||
|
$00 , $7 ,
|
||||||
|
$10 , $8 ,
|
||||||
|
$10 , $8 ,
|
||||||
|
$20 , $8 ,
|
||||||
|
$20 , $8 ,
|
||||||
|
$30 , $8 ,
|
||||||
|
$30 , $9 ,
|
||||||
|
$30 , $9 ,
|
||||||
|
$40 , $9 ,
|
||||||
|
$40 , $9 ,
|
||||||
|
$40 , $9 ,
|
||||||
|
$50 , $9 ,
|
||||||
|
$50 , $9 ,
|
||||||
|
$50 , $9 ,
|
||||||
|
$60 , $9 ,
|
||||||
|
$60 , $9 ,
|
||||||
|
$60 , $9 ,
|
||||||
|
$70 , $9 ,
|
||||||
|
$70 , $9 ,
|
||||||
|
$70 , $9 ,
|
||||||
|
$70 , $9 ,
|
||||||
|
$80 , $9 ,
|
||||||
|
$80 , $9 ,
|
||||||
|
$81 , $9 ,
|
||||||
|
$91 , $9 ,
|
||||||
|
$91 , $9 ,
|
||||||
|
$91 , $8 ,
|
||||||
|
$92 , $8 ,
|
||||||
|
$a2 , $8 ,
|
||||||
|
$a2 , $8 ,
|
||||||
|
$a2 , $8 ,
|
||||||
|
$a2 , $8 ,
|
||||||
|
$b3 , $7 ,
|
||||||
|
$b3 , $7 ,
|
||||||
|
$b3 , $7 ,
|
||||||
|
$b3 , $7 ,
|
||||||
|
$b4 , $7 ,
|
||||||
|
$c4 , $6 ,
|
||||||
|
$c4 , $6 ,
|
||||||
|
$c4 , $6 ,
|
||||||
|
$c5 , $6 ,
|
||||||
|
$c5 , $6 ,
|
||||||
|
$d5 , $5 ,
|
||||||
|
$d5 , $5 ,
|
||||||
|
$d6 , $5 ,
|
||||||
|
$d6 , $5 ,
|
||||||
|
$d6 , $5 ,
|
||||||
|
$d6 , $5 ,
|
||||||
|
$d7 , $4 ,
|
||||||
|
$e7 , $4 ,
|
||||||
|
$e7 , $4 ,
|
||||||
|
$e7 , $4 ,
|
||||||
|
$e8 , $4 ,
|
||||||
|
$e8 , $3 ,
|
||||||
|
$e8 , $3 ,
|
||||||
|
$e9 , $3 ,
|
||||||
|
$e9 , $3 ,
|
||||||
|
$e9 , $3 ,
|
||||||
|
$e9 , $3 ,
|
||||||
|
$ea , $2 ,
|
||||||
|
$ea , $2 ,
|
||||||
|
$ea , $2 ,
|
||||||
|
$eb , $2 ,
|
||||||
|
$eb , $2 ,
|
||||||
|
$eb , $2 ,
|
||||||
|
$ec , $2 ,
|
||||||
|
$ec , $2 ,
|
||||||
|
$ec , $2 ,
|
||||||
|
$ed , $2 ,
|
||||||
|
$ed , $2 ,
|
||||||
|
$ed , $2 ,
|
||||||
|
$ee , $2 ,
|
||||||
|
|
@ -0,0 +1 @@
|
||||||
|
&1385 constant FONTDATA_SIZE
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,698 @@
|
||||||
|
$00 constant NOP $2B constant RASET $C2 constant PWCTR3
|
||||||
|
$01 constant SWRESET $2C constant RAMWR $C3 constant PWCTR4
|
||||||
|
$04 constant RDDID $2E constant RAMRD $C4 constant PWCTR5
|
||||||
|
$09 constant RDDST $30 constant PTLAR $C5 constant VMCTR1
|
||||||
|
$10 constant SLPIN $36 constant MADCTL $DA constant RDID1
|
||||||
|
$11 constant SLPOUT $3A constant COLMOD $DB constant RDID2
|
||||||
|
$12 constant PTLON $B1 constant FRMCTR1 $DC constant RDID3
|
||||||
|
$13 constant NORON $B2 constant FRMCTR2 $DD constant RDID4
|
||||||
|
$20 constant INVOFF $B3 constant FRMCTR3 $E0 constant GMCTRP1
|
||||||
|
$21 constant INVON $B4 constant INVCTR $E1 constant GMCTRN1
|
||||||
|
$28 constant DISPOFF $B6 constant DISSET5 $FC constant PWCTR6
|
||||||
|
$29 constant DISPON $C0 constant PWCTR1
|
||||||
|
$2A constant CASET $C1 constant PWCTR2
|
||||||
|
$80 constant DELAY
|
||||||
|
|
||||||
|
here constant init-table
|
||||||
|
SWRESET , DELAY , \ Software reset, 0 args, w/delay
|
||||||
|
60 ,
|
||||||
|
SLPOUT , DELAY , \ Out of sleep mode, 0 args, w/delay
|
||||||
|
60 ,
|
||||||
|
FRMCTR1 , 3 , \ Frame rate ctrl - normal mode, 3 args:
|
||||||
|
0x01 , 0x2C , 0x2D , \ Rate = fosc/(1x2+40) * (LINE+2C+2D)
|
||||||
|
FRMCTR2 , 3 , \ Frame rate control - idle mode, 3 args:
|
||||||
|
0x01 , 0x2C , 0x2D , \ Rate = fosc/(1x2+40) * (LINE+2C+2D)
|
||||||
|
FRMCTR3 , 6 , \ Frame rate ctrl - partial mode, 6 args:
|
||||||
|
0x01 , 0x2C , 0x2D , \ Dot inversion mode
|
||||||
|
0x01 , 0x2C , 0x2D , \ Line inversion mode
|
||||||
|
PWCTR1 , 3 , \ Power control, 3 args:
|
||||||
|
0xA2 ,
|
||||||
|
0x02 , \ -4.6V
|
||||||
|
0x84 , \ AUTO mode
|
||||||
|
PWCTR2 , 1 , \ Power control, 1 arg:
|
||||||
|
0xC5 , \ VGH25 = 2.4C VGSEL = -10 VGH = 3 * AVDD
|
||||||
|
PWCTR3 , 2 , \ Power control, 2 args:
|
||||||
|
0x0A , \ Opamp current small
|
||||||
|
0x00 , \ Boost frequency
|
||||||
|
PWCTR4 , 2 , \ Power control, 2 args:
|
||||||
|
0x8A , \ BCLK/2, Opamp current small & Medium low
|
||||||
|
0x2A ,
|
||||||
|
PWCTR5 , 2 , \ Power control, 2 args:
|
||||||
|
0x8A , 0xEE ,
|
||||||
|
VMCTR1 , 1 , \ Power control, 1 arg:
|
||||||
|
0x0E ,
|
||||||
|
MADCTL , 1 , \ Memory access control (directions), 1 arg:
|
||||||
|
0xC8 , \ row addr/col addr, bottom to top refresh
|
||||||
|
COLMOD , 1 , \ set color mode, 1 arg:
|
||||||
|
0x03 , \ 12-bit color
|
||||||
|
GMCTRP1 , 16 , \ Gamma + polarity Correction Characterstics
|
||||||
|
0x02 , 0x1c , 0x07 , 0x12 ,
|
||||||
|
0x37 , 0x32 , 0x29 , 0x2d ,
|
||||||
|
0x29 , 0x25 , 0x2B , 0x39 ,
|
||||||
|
0x00 , 0x01 , 0x03 , 0x10 ,
|
||||||
|
GMCTRN1 , 16 , \ Gamma - polarity Correction Characterstics
|
||||||
|
0x03 , 0x1d , 0x07 , 0x06 ,
|
||||||
|
0x2E , 0x2C , 0x29 , 0x2D ,
|
||||||
|
0x2E , 0x2E , 0x37 , 0x3F ,
|
||||||
|
0x00 , 0x00 , 0x02 , 0x10 ,
|
||||||
|
NORON , 0 , \ Normal display on
|
||||||
|
0 ,
|
||||||
|
|
||||||
|
:m clk [ 2 .p1 set 2 .p1 clr ] m;
|
||||||
|
:m 1bit 2*' 1 .p1 movcb clk m;
|
||||||
|
:m /C/ [ 0 .p1 clr ] m;
|
||||||
|
:m /D/ [ 0 .p1 set ] m;
|
||||||
|
|
||||||
|
: (>st) 1bit 1bit 1bit 1bit
|
||||||
|
: _4 1bit 1bit 1bit 1bit 2*' ;
|
||||||
|
: (4>st) 2*' 2*' 2*' 2*' _4 ;
|
||||||
|
: 4>st (4>st) drop ;
|
||||||
|
|
||||||
|
: write-cmd ( b ) /C/
|
||||||
|
: 1>st ( b ) 1bit 1bit 1bit 1bit 1bit 1bit 1bit 1bit drop ;
|
||||||
|
: write-data ( b ) /D/ 1>st ;
|
||||||
|
: data16 ( b ) 0# write-data write-data ;
|
||||||
|
|
||||||
|
: args
|
||||||
|
begin
|
||||||
|
0=if drop; then
|
||||||
|
@p+ write-data
|
||||||
|
1-
|
||||||
|
again
|
||||||
|
|
||||||
|
: coldregs
|
||||||
|
init-table ##p!
|
||||||
|
begin
|
||||||
|
@p+
|
||||||
|
0=if drop; then
|
||||||
|
write-cmd
|
||||||
|
@p+
|
||||||
|
dup $7f # and args
|
||||||
|
-if @p+ ms then
|
||||||
|
drop
|
||||||
|
again
|
||||||
|
|
||||||
|
here [ $1000 > throw ]
|
||||||
|
$1000 org
|
||||||
|
: dim ( x w )
|
||||||
|
over data16 + 1- data16 ;
|
||||||
|
: rect ( x y w h )
|
||||||
|
twist ( x w y h )
|
||||||
|
RASET # write-cmd dim
|
||||||
|
CASET # write-cmd dim
|
||||||
|
: writing
|
||||||
|
RAMWR # write-cmd
|
||||||
|
/D/
|
||||||
|
;
|
||||||
|
|
||||||
|
: full
|
||||||
|
blu #@ (4>st)
|
||||||
|
grn (#@) (4>st) red (#@) 4>st ;
|
||||||
|
|
||||||
|
:m |4>st 1bit 1bit 1bit 1bit m;
|
||||||
|
|
||||||
|
: half 10 #
|
||||||
|
: gray
|
||||||
|
0=if
|
||||||
|
drop
|
||||||
|
: dark
|
||||||
|
1 .p1 clr
|
||||||
|
clk clk clk clk
|
||||||
|
clk clk clk clk
|
||||||
|
clk clk clk clk ;
|
||||||
|
then
|
||||||
|
5 (#!) [ blu b mov mul ] $f # + |4>st
|
||||||
|
5 (#@) [ grn b mov mul ] $f # + |4>st
|
||||||
|
5 (#@) [ red b mov mul ] $f # + |4>st drop ;
|
||||||
|
|
||||||
|
: ndark
|
||||||
|
7 #for dark 7 #next ;
|
||||||
|
|
||||||
|
: cls ( )
|
||||||
|
0# 0# 128 # 160 #
|
||||||
|
rect
|
||||||
|
|
||||||
|
160 # 6 #for
|
||||||
|
128 # ndark
|
||||||
|
6 #next ;
|
||||||
|
|
||||||
|
: /st7735
|
||||||
|
[ 3 .p1 clr ]
|
||||||
|
1 # ms
|
||||||
|
[ 3 .p1 set ]
|
||||||
|
coldregs
|
||||||
|
|
||||||
|
cls
|
||||||
|
: white
|
||||||
|
$f #
|
||||||
|
: setgray
|
||||||
|
red (#!) grn (#!) blu #! ;
|
||||||
|
: black
|
||||||
|
0# setgray ;
|
||||||
|
|
||||||
|
$1fff constant TOPMEM
|
||||||
|
947 here
|
||||||
|
include fontsize.fs
|
||||||
|
[ TOPMEM FONTDATA_SIZE - ] org
|
||||||
|
include font.fs
|
||||||
|
here TOPMEM <> throw
|
||||||
|
org 947 <> throw
|
||||||
|
|
||||||
|
|
||||||
|
:m 4.4r ( - l h )
|
||||||
|
dup clra
|
||||||
|
dup $93 , $a3 , \ |@p+
|
||||||
|
xchd [swap] m;
|
||||||
|
|
||||||
|
: 4.4 ( - h l )
|
||||||
|
4.4r swap ;
|
||||||
|
|
||||||
|
: skip
|
||||||
|
4.4 * 1+ clrc 2/'
|
||||||
|
: +p
|
||||||
|
[ dpl add ] dpl (#!)
|
||||||
|
[ clra dph addc ] dph (#!)
|
||||||
|
drop;
|
||||||
|
|
||||||
|
: seek ( c - ) \ p points to the data for character c
|
||||||
|
font ##p!
|
||||||
|
begin
|
||||||
|
dup @p+ xor 0=if 2drop ; then
|
||||||
|
drop skip
|
||||||
|
again
|
||||||
|
|
||||||
|
: xy! y #! x #! ;
|
||||||
|
: xy@ x #@ y #@ ;
|
||||||
|
: adv x #+! ; \ advance cursor
|
||||||
|
|
||||||
|
: preloop ( l h - i j )
|
||||||
|
swap if 1u+ then ;
|
||||||
|
|
||||||
|
\ Fill rect with current color
|
||||||
|
: wash ( x y w h )
|
||||||
|
2dup um* d1+ d2/ preloop 7 #! 6 #!
|
||||||
|
rect
|
||||||
|
begin begin
|
||||||
|
full full
|
||||||
|
7 #next 6 #next ;
|
||||||
|
|
||||||
|
: ch ( c - )
|
||||||
|
p>r
|
||||||
|
seek
|
||||||
|
xy@
|
||||||
|
4.4 ( w h )
|
||||||
|
over adv
|
||||||
|
2dup * push ( w h r: w*h )
|
||||||
|
rect
|
||||||
|
pop 1+ 2/ 7 #for
|
||||||
|
4.4r gray gray
|
||||||
|
7 #next
|
||||||
|
|
||||||
|
r>p ;
|
||||||
|
|
||||||
|
: blch
|
||||||
|
black
|
||||||
|
xy@ 8 # 9 # wash
|
||||||
|
8 # adv white ;
|
||||||
|
|
||||||
|
: str
|
||||||
|
@p+ 6 #for
|
||||||
|
@p+
|
||||||
|
ch
|
||||||
|
6 #next ;
|
||||||
|
|
||||||
|
: setcolor
|
||||||
|
4.4 grn #! red #! @p+ blu #! ;
|
||||||
|
|
||||||
|
: hex1 ( h - )
|
||||||
|
x #@ 3 # + $7f # xor 4 #
|
||||||
|
RASET # write-cmd dim
|
||||||
|
|
||||||
|
RAMWR # write-cmd
|
||||||
|
/D/
|
||||||
|
|
||||||
|
micro ##p!
|
||||||
|
$f # and 10 # b #! [ mul ] +p
|
||||||
|
10 # 7 #for 4.4r gray gray 7 #next
|
||||||
|
5 # x #+! ;
|
||||||
|
|
||||||
|
: drawhex ( hh - )
|
||||||
|
y #@ 5 #
|
||||||
|
CASET # write-cmd dim
|
||||||
|
|
||||||
|
dup [swap] hex1 hex1 ;
|
||||||
|
|
||||||
|
:m gap [ y inc ] m;
|
||||||
|
|
||||||
|
: clip
|
||||||
|
y #@
|
||||||
|
: (clip)
|
||||||
|
-if
|
||||||
|
$7f # and negate + ;
|
||||||
|
then
|
||||||
|
drop;
|
||||||
|
|
||||||
|
: preblank ( w )
|
||||||
|
dup y #@ + (clip)
|
||||||
|
dup push x #@ -4 # + y #@
|
||||||
|
16 # pop rect
|
||||||
|
6 #for 16 # ndark 6 #next ;
|
||||||
|
|
||||||
|
: bitmap
|
||||||
|
0 #
|
||||||
|
: +bitmap ( o )
|
||||||
|
x #@ + y #@
|
||||||
|
-if 2drop ; then
|
||||||
|
4.4 ( w h )
|
||||||
|
: (bitmap) ( x y w h )
|
||||||
|
dup y #+!
|
||||||
|
clip
|
||||||
|
2dup * push ( w h r: w*h )
|
||||||
|
rect
|
||||||
|
pop 1+ clrc 2/' 7 #for
|
||||||
|
4.4r gray gray
|
||||||
|
7 #next ;
|
||||||
|
|
||||||
|
: (hex2)
|
||||||
|
micro ##p!
|
||||||
|
$f # and 10 # * +p
|
||||||
|
y #@ -if drop; then drop
|
||||||
|
x #@ 3 # + y #@
|
||||||
|
5 # 4 #
|
||||||
|
(bitmap) ;
|
||||||
|
|
||||||
|
: hex2 ( u - )
|
||||||
|
dup (hex2)
|
||||||
|
gap
|
||||||
|
[swap] (hex2)
|
||||||
|
;
|
||||||
|
|
||||||
|
: acknak
|
||||||
|
0=if'
|
||||||
|
$c # red #!
|
||||||
|
$2 # grn #!
|
||||||
|
$2 # blu #! ;
|
||||||
|
then
|
||||||
|
$2 # red #!
|
||||||
|
$c # grn #!
|
||||||
|
$2 # blu #! ;
|
||||||
|
|
||||||
|
: d-byte-ack
|
||||||
|
acknak
|
||||||
|
18 # preblank
|
||||||
|
gap
|
||||||
|
dot ##p!
|
||||||
|
7 # +bitmap
|
||||||
|
|
||||||
|
gap
|
||||||
|
|
||||||
|
white
|
||||||
|
hex2
|
||||||
|
gap gap gap ;
|
||||||
|
|
||||||
|
: barpoint ( u - ) \ update the slash bar bounds
|
||||||
|
-if drop; then
|
||||||
|
dup
|
||||||
|
talk0 #@ umin talk0 #!
|
||||||
|
talk1 #@ umax talk1 #! ;
|
||||||
|
|
||||||
|
: slashcolor 8 # setgray ;
|
||||||
|
|
||||||
|
here constant DRAW-SEGMENT \ This block must all be in the same 2K segment
|
||||||
|
|
||||||
|
: startwave
|
||||||
|
128 # 7 #!
|
||||||
|
0 # 8 # 128 # rect
|
||||||
|
story # a!
|
||||||
|
[
|
||||||
|
SP x mov
|
||||||
|
x dec
|
||||||
|
x dec
|
||||||
|
0 y mov
|
||||||
|
] ;
|
||||||
|
|
||||||
|
: column
|
||||||
|
$df cond
|
||||||
|
: bail
|
||||||
|
[
|
||||||
|
x SP mov
|
||||||
|
y 0 mov
|
||||||
|
] then ;
|
||||||
|
|
||||||
|
: hi full dark dark dark dark dark dark dark column ;
|
||||||
|
: lo dark dark dark dark dark dark dark full column ;
|
||||||
|
: change
|
||||||
|
full full full full full full full full column ;
|
||||||
|
: undef
|
||||||
|
half half half half half half half half column ;
|
||||||
|
|
||||||
|
: d-stop
|
||||||
|
drop a+
|
||||||
|
0 # red #!
|
||||||
|
7 # grn #!
|
||||||
|
7 # blu #!
|
||||||
|
symbol-p ##p!
|
||||||
|
: (d-stop)
|
||||||
|
12 # preblank
|
||||||
|
bitmap ;
|
||||||
|
|
||||||
|
:m y; \ return if y>127
|
||||||
|
$bc , 128 , 0 , \ CJNE R4,#128,+0
|
||||||
|
0=if' ; then m;
|
||||||
|
|
||||||
|
: d-direction
|
||||||
|
arrow ##p!
|
||||||
|
if'
|
||||||
|
larrow ##p!
|
||||||
|
then
|
||||||
|
$f # red #!
|
||||||
|
$e # grn #!
|
||||||
|
$2 # blu #!
|
||||||
|
-5 # y #+!
|
||||||
|
bitmap ;
|
||||||
|
|
||||||
|
: slashv ( u - ) \ draw the bottom slash segment
|
||||||
|
$08 # <if drop; then
|
||||||
|
$78 # <if
|
||||||
|
talked. 0=if.
|
||||||
|
talker (#!)
|
||||||
|
talked. set
|
||||||
|
then
|
||||||
|
talker @=if
|
||||||
|
slashcolor
|
||||||
|
x #@ -4 # + y #@ -5 # +
|
||||||
|
dup $7f # xor barpoint
|
||||||
|
6 # 1 # wash
|
||||||
|
then
|
||||||
|
then
|
||||||
|
drop;
|
||||||
|
|
||||||
|
: d-start
|
||||||
|
acknak
|
||||||
|
18 # preblank
|
||||||
|
gap
|
||||||
|
dot ##p!
|
||||||
|
7 # +bitmap
|
||||||
|
drop @+ clrc 2/'
|
||||||
|
|
||||||
|
d-direction
|
||||||
|
|
||||||
|
gap
|
||||||
|
|
||||||
|
dup white hex2
|
||||||
|
slashv
|
||||||
|
|
||||||
|
gap gap gap
|
||||||
|
y;
|
||||||
|
$c # red #!
|
||||||
|
$8 # grn #!
|
||||||
|
$0 # blu #!
|
||||||
|
symbol-s ##p!
|
||||||
|
(d-stop) ;
|
||||||
|
|
||||||
|
: d-byte
|
||||||
|
drop @+ d-byte-ack ;
|
||||||
|
|
||||||
|
: d-bang
|
||||||
|
drop a+
|
||||||
|
15 # red #!
|
||||||
|
0 # grn #!
|
||||||
|
1 # blu #!
|
||||||
|
symbol-b ##p!
|
||||||
|
12 # preblank
|
||||||
|
bitmap ;
|
||||||
|
|
||||||
|
: d-quit a+ 128 # y #! drop;
|
||||||
|
:m jumptable 2* here [ 4 + ] ##p! $73 , ( JMP @A+DPTR ) m;
|
||||||
|
|
||||||
|
: dispatch
|
||||||
|
@+ jumptable
|
||||||
|
( 0 ) d-quit ;
|
||||||
|
( 1 ) d-stop ;
|
||||||
|
( 2 ) d-start ;
|
||||||
|
( 3 ) d-byte ;
|
||||||
|
( 4 ) d-bang ;
|
||||||
|
|
||||||
|
: l-dispatch
|
||||||
|
begin
|
||||||
|
dispatch
|
||||||
|
y;
|
||||||
|
again
|
||||||
|
|
||||||
|
:m pinkwash
|
||||||
|
8 # red #!
|
||||||
|
0 # grn #!
|
||||||
|
8 # blu #!
|
||||||
|
0 # 117 # 128 # 17 #
|
||||||
|
wash m;
|
||||||
|
|
||||||
|
: hline ( x y l ) 1 # wash ;
|
||||||
|
: vline ( x y l ) 1 # swap wash ;
|
||||||
|
|
||||||
|
: addrgrid ( u - ) \ C set if column 7
|
||||||
|
dup 2/ 2/ 2/ 7 # * 7 # + y #!
|
||||||
|
7 # and dup 17 # * x #!
|
||||||
|
-7 # + drop;
|
||||||
|
|
||||||
|
: (slash) ( u - ) \ from the address, vertical down line
|
||||||
|
addrgrid
|
||||||
|
[ y inc y inc ]
|
||||||
|
0=if'
|
||||||
|
10 # adv
|
||||||
|
xy@ 3 # hline
|
||||||
|
3 # adv
|
||||||
|
else
|
||||||
|
-4 # adv
|
||||||
|
xy@ 3 # hline
|
||||||
|
then
|
||||||
|
|
||||||
|
xy@ 117 # over - vline ;
|
||||||
|
|
||||||
|
: slash ( u - )
|
||||||
|
slashcolor (slash)
|
||||||
|
[ x slashx mov ] ;
|
||||||
|
|
||||||
|
: unslash ( u - )
|
||||||
|
black (slash) ;
|
||||||
|
|
||||||
|
: d-slashbar
|
||||||
|
0# setgray \ undraw
|
||||||
|
0# 117 # 128 # hline
|
||||||
|
slashcolor
|
||||||
|
talked. if.
|
||||||
|
slashx #@ barpoint
|
||||||
|
talk0 #@ talk1 #@ over negate + 1+
|
||||||
|
117 # swap hline
|
||||||
|
then ;
|
||||||
|
|
||||||
|
: ingrad ( u - )
|
||||||
|
2* grad ##p! +p setcolor ;
|
||||||
|
|
||||||
|
: newtalker
|
||||||
|
white
|
||||||
|
: d-addr
|
||||||
|
dup addrgrid drawhex ;
|
||||||
|
|
||||||
|
: d-sda-stop
|
||||||
|
5 # 6 #for hi 6 #next
|
||||||
|
change
|
||||||
|
6 # 6 #for lo 6 #next
|
||||||
|
prev. clr
|
||||||
|
a+ drop;
|
||||||
|
|
||||||
|
: bar
|
||||||
|
0=if'
|
||||||
|
prev. if. change else lo then lo ;
|
||||||
|
then
|
||||||
|
prev. 0=if. change else hi then hi ;
|
||||||
|
|
||||||
|
: d-sda-byte
|
||||||
|
@+
|
||||||
|
cplc
|
||||||
|
9 # 6 #for
|
||||||
|
bar
|
||||||
|
[ prev. movcb ]
|
||||||
|
2/'
|
||||||
|
6 #next
|
||||||
|
drop drop;
|
||||||
|
|
||||||
|
: d-sda-start
|
||||||
|
d-sda-byte
|
||||||
|
6 # prev. if. change 1- then
|
||||||
|
6 #for lo 6 #next
|
||||||
|
change
|
||||||
|
5 # 6 #for hi 6 #next
|
||||||
|
prev. set
|
||||||
|
;
|
||||||
|
|
||||||
|
: d-sda-none
|
||||||
|
label-sda [ 1 + ] ##p!
|
||||||
|
: (label)
|
||||||
|
16 # 1 #for
|
||||||
|
4 # 6 #for
|
||||||
|
4.4r gray gray
|
||||||
|
6 #next
|
||||||
|
column
|
||||||
|
1 #next
|
||||||
|
begin hi again
|
||||||
|
|
||||||
|
: d-sda-bang
|
||||||
|
12 # 6 #for undef 6 #next
|
||||||
|
a+ drop;
|
||||||
|
|
||||||
|
: sda-dispatch
|
||||||
|
@+
|
||||||
|
jumptable
|
||||||
|
( 0 ) d-sda-none ;
|
||||||
|
( 1 ) d-sda-stop ;
|
||||||
|
( 2 ) d-sda-start ;
|
||||||
|
( 3 ) d-sda-byte ;
|
||||||
|
( 4 ) d-sda-bang ;
|
||||||
|
|
||||||
|
: d-sda
|
||||||
|
140 # startwave
|
||||||
|
$4 # red #!
|
||||||
|
$5 # grn #!
|
||||||
|
$f # blu #!
|
||||||
|
begin
|
||||||
|
sda-dispatch
|
||||||
|
again
|
||||||
|
|
||||||
|
: 9hi
|
||||||
|
9 # 6 #for hi 6 #next ;
|
||||||
|
: 2lo
|
||||||
|
2 # 6 #for lo 6 #next ;
|
||||||
|
: d-scl-stop
|
||||||
|
9hi
|
||||||
|
change
|
||||||
|
2lo
|
||||||
|
a+ drop;
|
||||||
|
|
||||||
|
: d-scl-byte
|
||||||
|
a+
|
||||||
|
9 # 6 #for
|
||||||
|
lo change
|
||||||
|
6 #next
|
||||||
|
drop;
|
||||||
|
: d-scl-start
|
||||||
|
d-scl-byte
|
||||||
|
2lo
|
||||||
|
change
|
||||||
|
9hi
|
||||||
|
;
|
||||||
|
|
||||||
|
: d-scl-none
|
||||||
|
label-scl [ 1 + ] ##p!
|
||||||
|
(label) ;
|
||||||
|
|
||||||
|
: scl-dispatch
|
||||||
|
@+ jumptable
|
||||||
|
( 0 ) d-scl-none ;
|
||||||
|
( 1 ) d-scl-stop ;
|
||||||
|
( 2 ) d-scl-start ;
|
||||||
|
( 3 ) d-scl-byte ;
|
||||||
|
( 4 ) d-sda-bang ;
|
||||||
|
|
||||||
|
here [ DRAW-SEGMENT xor $f800 and throw ]
|
||||||
|
|
||||||
|
: d-scl
|
||||||
|
152 # startwave
|
||||||
|
$c # red #!
|
||||||
|
$b # grn #!
|
||||||
|
$1 # blu #!
|
||||||
|
begin
|
||||||
|
scl-dispatch
|
||||||
|
again
|
||||||
|
|
||||||
|
: rtl
|
||||||
|
%10101000 #
|
||||||
|
: >madctl
|
||||||
|
MADCTL # write-cmd write-data ;
|
||||||
|
: ltr
|
||||||
|
%11001000 # >madctl ;
|
||||||
|
|
||||||
|
: drawmode
|
||||||
|
black
|
||||||
|
0# 0# 2dup 10 # 9 # wash
|
||||||
|
white xy! mode #@ ch ;
|
||||||
|
|
||||||
|
: fixed
|
||||||
|
rtl
|
||||||
|
3 # setgray
|
||||||
|
$08 #
|
||||||
|
112 # 6 #for
|
||||||
|
dup d-addr
|
||||||
|
1+
|
||||||
|
6 #next
|
||||||
|
|
||||||
|
ltr
|
||||||
|
|
||||||
|
drawmode
|
||||||
|
|
||||||
|
tplan ##p!
|
||||||
|
begin
|
||||||
|
@p+ 0=if drop; then
|
||||||
|
@p+ xy!
|
||||||
|
setcolor
|
||||||
|
str
|
||||||
|
again
|
||||||
|
|
||||||
|
: d-slash
|
||||||
|
talked. if.
|
||||||
|
ptalked. if.
|
||||||
|
ptalker #@ talker @=if drop; then
|
||||||
|
unslash
|
||||||
|
then
|
||||||
|
talker #@ slash ;
|
||||||
|
then
|
||||||
|
ptalker #@ unslash ;
|
||||||
|
|
||||||
|
: cool1 ( addr - )
|
||||||
|
\ talker @=if talked. if. drop; then then
|
||||||
|
dup heatmap @x if ( addr h )
|
||||||
|
1- (!x) ingrad
|
||||||
|
d-addr ;
|
||||||
|
then
|
||||||
|
2drop ;
|
||||||
|
|
||||||
|
: cool
|
||||||
|
rtl
|
||||||
|
$08 #
|
||||||
|
112 # 6 #for
|
||||||
|
dup cool1
|
||||||
|
1+
|
||||||
|
6 #next
|
||||||
|
drop
|
||||||
|
ltr ;
|
||||||
|
|
||||||
|
\ talked. is true when talker is valid
|
||||||
|
\ ptalked. and ptalker hold previous values
|
||||||
|
\ slashx is set to the X of the slash line
|
||||||
|
|
||||||
|
: waves
|
||||||
|
\ pinkwash
|
||||||
|
|
||||||
|
rtl
|
||||||
|
|
||||||
|
122 # 0 # xy!
|
||||||
|
|
||||||
|
$ff # talk0 #!
|
||||||
|
$00 # talk1 #!
|
||||||
|
talked. clr
|
||||||
|
|
||||||
|
story # a!
|
||||||
|
l-dispatch
|
||||||
|
|
||||||
|
d-sda
|
||||||
|
d-scl
|
||||||
|
|
||||||
|
ltr
|
||||||
|
|
||||||
|
d-slash
|
||||||
|
d-slashbar
|
||||||
|
|
||||||
|
talker #@ ptalker #!
|
||||||
|
[ talked. movbc ptalked. movcb ]
|
||||||
|
|
||||||
|
DISPON # write-cmd
|
||||||
|
;
|
||||||
Loading…
Reference in New Issue