d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

term updates

This commit is contained in:
~d6 2023-01-31 15:37:14 -05:00
parent 9e042621e5
commit 96e40856ac
2 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
chr/determ.chr Normal file
View File

Binary file not shown.

36
term.tal
View File

@ -50,9 +50,11 @@
|00 @System [ &vect $2 &expansion $2 &title $2 &metadata $2 &r $2 &g $2 &b $2 ]
|10 @Console [ &vect $2 &r $1 &pad $5 &w $1 ]
|20 @Screen [ &vect $2 &w $2 &h $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|20 @Screen [ &vect $2 &w $2 &h $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &px $1 &sprite $1 ]
|80 @Controller [ &vect $2 &button $1 &key $1 &fn $1 ]
|a0 @File [ &vect $2 &ok $2 &stat $2 &del $1 &append $1 &name $2 &len $2 &r $2 &w $2 ]
|90 @Mouse [ &vect $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2 ]
|a0 @File1 [ &vect $2 &ok $2 &stat $2 &del $1 &append $1 &name $2 &len $2 &r $2 &w $2 ]
|b0 @File2 [ &vect $2 &ok $2 &stat $2 &del $1 &append $1 &name $2 &len $2 &r $2 &w $2 ]
|0000
@tint $1 ( draw mode. 01=regular, 04=inverted )
@ -133,17 +135,17 @@
.debug LDZ ?&continue BRK &continue
#99 #010e DEO
;debug-log .File/name DEO2
#01 .File/append DEO
;debug-log .File1/name DEO2
#01 .File1/append DEO
BRK
@load-theme ( -> )
;&path .File/name DEO2
#0002 .File/len DEO2
;&r .File/r DEO2
;&g .File/r DEO2
;&b .File/r DEO2
.File/ok DEI2 ORA #01 JCN JMP2r
;&path .File1/name DEO2
#0002 .File1/len DEO2
;&r .File1/r DEO2
;&g .File1/r DEO2
;&b .File1/r DEO2
.File1/ok DEI2 ORA #01 JCN JMP2r
LIT2 &r $2 .System/r DEO2
LIT2 &g $2 .System/g DEO2
LIT2 &b $2 .System/b DEO2
@ -311,8 +313,8 @@
#20 STH2kr JSR2
STH2kr JSR2
#0a STH2r JSR2
scratch-len .File/len DEO2
;scratch .File/w DEO2
scratch-len .File1/len DEO2
;scratch .File1/w DEO2
JMP2r
@end-arg-priv ( c^ -> )
@ -342,8 +344,8 @@
#20 STH2kr JSR2
STH2kr JSR2
#0a STH2r JSR2
scratch-len .File/len DEO2
;scratch .File/w DEO2
scratch-len .File1/len DEO2
;scratch .File1/w DEO2
JMP2r
@end-arg ( c^ -> )
@ -499,8 +501,8 @@
#20 STH2kr STA INC2r
STH2kr STA INC2r
#0a STH2r STA
#0005 .File/len DEO2
;scratch .File/w DEO2
#0005 .File1/len DEO2
;scratch .File1/w DEO2
JMP2r
@on-read-esc ( -> )
@ -777,6 +779,8 @@
&details "ansi 20 "terminal 20 "emulator 0a
&author "by 20 "d_m 0a
&date "3 20 "jan 20 2023 00
01
( device mask ) 41 0d07
( store tint+char for each screen position )
@cells $1900 ( 80 x 40 x 2 )