Removed duplicated walk to line-start
This commit is contained in:
parent
73be644a23
commit
7924b340c2
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue