add .theme support (thanks neauoire)

This commit is contained in:
~d6 2023-01-25 12:51:25 -05:00
parent d4b625df9f
commit ccb32710a4
1 changed files with 13 additions and 0 deletions

View File

@ -76,6 +76,7 @@
#07bf .System/r DEO2 #07bf .System/r DEO2
#07bf .System/g DEO2 #07bf .System/g DEO2
#07bf .System/b DEO2 #07bf .System/b DEO2
;load-theme JSR2
( set starting tint: reverse=0, bg=0, fg=2 ) ( set starting tint: reverse=0, bg=0, fg=2 )
#02 .attr STZ #02 .attr STZ
@ -95,6 +96,18 @@
BRK 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
LIT2 &r $2 .System/r DEO2
LIT2 &g $2 .System/g DEO2
LIT2 &b $2 .System/b DEO2
JMP2r [ &path ".theme $1 ]
@first-addr ( -> ) @first-addr ( -> )
;cells JMP2r ;cells JMP2r