mirror of https://git.sr.ht/~rabbits/left
More flexible symbol finder
This commit is contained in:
parent
e5d49edc63
commit
9a98887da6
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue