fix display bug when searching

This commit is contained in:
~d6 2023-12-05 21:52:32 -05:00
parent 1dddbf6cf9
commit d278dcf58e
1 changed files with 8 additions and 2 deletions

View File

@ -1443,7 +1443,13 @@
&no POP2 POP2 #00 JMP2r &no POP2 POP2 #00 JMP2r
@jump-to-pos ( s* -> ) @jump-to-pos ( s* -> )
;pos-to-row-col JSR2 SWP2 ;move-to-coord JMP2 ;pos-to-logical-row-col JSR2 SWP2 ;move-to-coord JMP2
@pos-to-display-row-col ( s* -> row* col* )
.config/tab-width LDZ2 ;pos-to-row-col/tab-width STA2 !pos-to-row-col
@pos-to-logical-row-col ( s* -> row* col* )
#0001 ;pos-to-row-col/tab-width STA2 ( fall-through )
@pos-to-row-col ( s* -> row* col* ) @pos-to-row-col ( s* -> row* col* )
#0000 ,&row STR2 #0000 ,&row STR2
@ -1462,7 +1468,7 @@
,&row LDR2 INC2 ,&row STR2 ,&row LDR2 INC2 ,&row STR2
INC2 ,&loop JMP INC2 ,&loop JMP
&tab &tab
.config/tab-width LDZ2 ,&inc JMP LIT2 [ &tab-width $2 ] ,&inc JMP
&done &done
POP2 POP2 POP2 POP2
,&row LDR2 ,&col LDR2 JMP2r ,&row LDR2 ,&col LDR2 JMP2r