neauoire
/
left
mirror of https://git.sr.ht/~rabbits/left
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

More flexible symbol finder

This commit is contained in:
Devine Lu Linvega 2024-03-11 11:43:25 -07:00
parent e5d49edc63
commit 9a98887da6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/left.tal
View File

@ -175,7 +175,7 @@
<draw-widget-pos>
[ LIT2 01 _&textarea ] STR }
[ LIT &symbol 01 ] ?{
<draw-widget-symbol>
<draw-sym>
[ LIT2 01 _&symbol ] STR }
[ LIT &navbar $1 ] ?{
<draw-navbar>
@ -591,6 +591,7 @@
JMP2r
@find-symbol ( sym* -- addr* )
LDAk LIT "@ NEQ ?{ INC2 }
,&t STR2
;text
&>w ( -- )
@ -1408,7 +1409,7 @@
[ LIT2 15 -Screen/sprite ] DEO
JMP2r
@<draw-widget-symbol> ( -- )
@<draw-sym> ( -- )
;search find-symbol ORAk ?{ POP2 JMP2r }
.Screen/width DEI2 #00e0 SUB2 .Screen/x DEO2
get-from addr-to-line .scroll/y LDZ2 SUB2 #40 SFT2 #0018 ADD2