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 LDAk #20 GTH ?&no-wrap
DUP2 word-width .Screen/x DEI2 ADD2 #00d0 LTH2 ?&no-wrap DUP2 word-width .Screen/x DEI2 ADD2 #00d0 LTH2 ?&no-wrap
( tabbed ) ( tabbed )
DUP2 find-line-start LDA2 #093e NEQ2 ?{ DUP2 find-line-start LDA2
#01 #0021 !draw-linebreak } DUP2 #093e NEQ2 ?{
DUP2 find-line-start LDA2 #092d NEQ2 ?{ POP2 #01 #0021 !draw-linebreak }
#01 #0022 !draw-linebreak } DUP2 #092d NEQ2 ?{
POP2 #01 #0022 !draw-linebreak }
POP2
#01 #0008 !draw-linebreak #01 #0008 !draw-linebreak
&no-wrap &no-wrap
( char ) ( char )