Added meta

This commit is contained in:
Devine Lu Linvega 2024-02-11 13:51:00 -08:00
parent 683f8d9bcc
commit a1434980b9
1 changed files with 10 additions and 3 deletions

View File

@ -15,6 +15,7 @@
|0100 |0100
@on-reset ( -> ) @on-reset ( -> )
;meta #06 DEO2
#d306 .System/r DEO2 #d306 .System/r DEO2
#d90c .System/g DEO2 #d90c .System/g DEO2
#d608 .System/b DEO2 #d608 .System/b DEO2
@ -25,6 +26,13 @@
<draw-keyboard> <draw-keyboard>
( #010e DEO ) BRK ( #010e DEO ) BRK
@meta $1
( name ) "Shaviankb 0a
( desc ) "Shavian 20 "Keyboard 0a
( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "11 20 "Feb 20 "2024 $1
( exts ) 00
@on-mouse ( -> ) @on-mouse ( -> )
[ LIT2 00 -Mouse/state ] DEI NEQ #42 ADD ;pointer-icn <update-pointer> [ LIT2 00 -Mouse/state ] DEI NEQ #42 ADD ;pointer-icn <update-pointer>
( | within ) ( | within )
@ -173,8 +181,7 @@
#0006 MUL2 ;layout ADD2 #0006 MUL2 ;layout ADD2
( ) STH2k #0004 ADD2 LDA2 ( ) STH2k #0004 ADD2 LDA2
( ) STH2kr #0002 ADD2 LDA2 ( ) STH2kr #0002 ADD2 LDA2
( ) STH2r LDA2 STH2r <draw-key> ( ) STH2r LDA2 STH2r !<draw-key>
JMP2r
@<draw-glyph> ( addr* color -- ) @<draw-glyph> ( addr* color -- )
STH STH
@ -290,6 +297,6 @@
&c ( -- ) &c ( -- )
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO #0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
JMP2r JMP2r
~assets.tal ~assets.tal