M src/manifest.tal => src/manifest.tal +1 -1
@@ 128,7 128,7 @@ JMP2r
@menu-select ( cat -- )
( exists )
- DUP ;get-cat JSR2 #0000 NEQ2 ,&exists JCN
+ DUP ;get-cat JSR2 ORA ,&exists JCN
POP JMP2r
&exists
( clear )
M src/nasu.tal => src/nasu.tal +9 -7
@@ 1096,13 1096,15 @@ JMP2r
@load-theme ( -- )
;&path .File/name DEO2
- #0006 .File/length DEO2
- #fffa .File/load DEO2
- .File/success DEI2 #0006 NEQ2 ,&ignore JCN
- #fffa LDA2 .System/r DEO2
- #fffc LDA2 .System/g DEO2
- #fffe LDA2 .System/b DEO2
- &ignore
+ #0002 .File/length DEO2
+ ;&r .File/load DEO2
+ ;&g .File/load DEO2
+ ;&b .File/load DEO2
+ .File/success DEI2 AND ,&skip JCN
+ LIT2 &r $2 .System/r DEO2
+ LIT2 &g $2 .System/g DEO2
+ LIT2 &b $2 .System/b DEO2
+ &skip
JMP2r
&path ".theme $1