2 files changed, 8 insertions(+), 8 deletions(-)

M src/assets.tal
M src/left.tal

@@ 242,6 242,6 @@
 0000 0000 0000 0000 0000 0000 0000 0000
 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55
 
+( begin ) $1
+@text
 
-
-( EOF ) $1 @text

@@ 225,7 225,7 @@ BRK
 	DUP #02 AND ;&alt JCN2
 	( default )
 	#04 SFT
-	[ #01 ] NEQk NIP ,&no-u JCN ROT ROT #0001 SUB2 ;find-line-start JSR2 INC2 JMP2r &no-u
+	[ #01 ] NEQk NIP ,&no-u JCN ROT ROT #0001 SUB2 ;find-line-start JSR2 JMP2r &no-u
 	[ #02 ] NEQk NIP ,&no-d JCN ROT ROT ;find-line-end JSR2 INC2 JMP2r &no-d
 	[ #04 ] NEQk NIP ,&no-l JCN ROT ROT #0001 SUB2 JMP2r &no-l
 	[ #08 ] NEQk NIP ,&no-r JCN ROT ROT INC2 JMP2r &no-r


@@ 233,7 233,7 @@ BRK
 	#04 SFT
 	[ #01 ] NEQk NIP ,&no-cu JCN ROT ROT ;find-prev-marker JMP2 &no-cu
 	[ #02 ] NEQk NIP ,&no-cd JCN ROT ROT ;find-next-marker JMP2 &no-cd
-	[ #04 ] NEQk NIP ,&no-cl JCN ROT ROT ;find-line-start JSR2 INC2 JMP2r &no-cl
+	[ #04 ] NEQk NIP ,&no-cl JCN ROT ROT ;find-line-start JSR2 JMP2r &no-cl
 	[ #08 ] NEQk NIP ,&no-cr JCN ROT ROT ;find-line-end JMP2 &no-cr
 	&alt
 	#04 SFT


@@ 434,7 434,7 @@ JMP2r
 @addr-to-x ( addr* -- x* )
 
 	LIT2r 0000
-	DUP2 ;find-line-start JSR2 INC2
+	DUP2 ;find-line-start JSR2
 	&loop
 		EQU2k ,&end JCN
 		LDAk ,get-width JSR STH2 ADD2r


@@ 623,10 623,10 @@ JMP2
 @find-line-start ( addr* -- addr* )
 
 	&while
+		DUP2 ;text EQU2 ,&end JCN
 		#0001 SUB2 LDAk #0a NEQ ,&while JCN
-
-	( clamp )
-	;text GTH2k [ JMP SWP2 POP2 ]
+	INC2
+	&end
 
 JMP2r