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
|
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 )
|
||||||
|
|
Loading…
Reference in New Issue