Removed duplicated walk to line-start

This commit is contained in:
Devine Lu Linvega 2024-05-27 20:46:28 -07:00
parent 73be644a23
commit 7924b340c2
1 changed files with 6 additions and 4 deletions

View File

@ -497,10 +497,12 @@ JMP2r
LDAk #20 GTH ?&no-wrap
DUP2 word-width .Screen/x DEI2 ADD2 #00d0 LTH2 ?&no-wrap
( tabbed )
DUP2 find-line-start LDA2 #093e NEQ2 ?{
#01 #0021 !draw-linebreak }
DUP2 find-line-start LDA2 #092d NEQ2 ?{
#01 #0022 !draw-linebreak }
DUP2 find-line-start LDA2
DUP2 #093e NEQ2 ?{
POP2 #01 #0021 !draw-linebreak }
DUP2 #092d NEQ2 ?{
POP2 #01 #0022 !draw-linebreak }
POP2
#01 #0008 !draw-linebreak
&no-wrap
( char )