@@ 1154,11 1154,16 @@ JMP2
#fff0 ;text SUB2 .File/length DEO2
;text .File/read DEO2
.File/success DEI2 .textarea/length STZ2
+ ( toggle syntax highlight )
+ ;filepath ;scap JSR2 #0004 SUB2 ;&tal-ext ;scmp JSR2 #00 EQU
+ .textarea/highlight STZ
+ ( draw )
;reset-selection JSR2
#01 ;draw-filepath JSR2
#01 ;draw-state ( .. )
JMP2
+ &tal-ext ".tal $1
@file-save ( -- )
@@ 1225,6 1230,7 @@ JMP2
(
@|stdlib )
+@scmp ( a* b* -- f ) STH2 &l LDAk LDAkr STHr ANDk #00 EQU ,&e JCN NEQk ,&e JCN POP2 INC2 INC2r ,&l JMP &e NIP2 POP2r EQU JMP2r
@shex ( str* -- val* ) LIT2r 0000 &w LITr 40 SFT2r LITr 00 LDAk ,chex JSR STH ADD2r INC2 LDAk ,&w JCN POP2 STH2r JMP2r
@chex ( c -- val ) LIT "0 SUB DUP #09 GTH JMP JMP2r #27 SUB DUP #0f GTH JMP JMP2r POP #ff JMP2r
@msfl ( b* a* len* -- ) STH2 SWP2 EQU2k ,&e JCN &l DUP2k STH2kr ADD2 LDA ROT ROT STA INC2 GTH2k ,&l JCN POP2 POP2 &e POP2r JMP2r
@@ 1242,4 1248,13 @@ JMP2r
&eval POP2 #01 JMP2r
&bs NIP #00 SWP ;spop JSR2 #00 JMP2r
+@pstr ( str* -- )
+
+ &w
+ LDAk #18 DEO
+ INC2 LDAk ,&w JCN
+ POP2
+
+JMP2r
+
~src/manifest.tal