Browse code

Fixed overflow issue with linebreaks

neauoire authored on 08/03/2021 19:31:55
Showing 1 changed files
... ...
@@ -89,12 +89,12 @@ BRK
89 89
 		( scrollbar )
90 90
 		,no-click-scroll ~dev/mouse.x ~dev/screen.width #0008 SUB2 LTH2 JMP? POP2
91 91
 
92
-			,no-click-scroll-up ~dev/mouse.y #0008 DIV2 #0000 NEQ2 JMP? POP2
92
+			,no-click-scroll-up ~dev/mouse.y #0008 GTH2 JMP? POP2
93 93
 				,scroll-up JSR
94 94
 				,click-end JMP
95 95
 			@no-click-scroll-up 
96 96
 
97
-			,no-click-scroll-down ~dev/mouse.y #0008 DIV2 #0008 MUL2 ~dev/screen.height #0008 SUB2 NEQ2 JMP? POP2
97
+			,no-click-scroll-down ~dev/mouse.y ~dev/screen.height #0008 SUB2 LTH2 JMP? POP2
98 98
 				,scroll-down JSR
99 99
 				,click-end JMP
100 100
 			@no-click-scroll-down 
... ...
@@ -269,7 +269,7 @@ RTS
269 269
 	#0000 =j ( j is linebreaks )
270 270
 	@find-scroll-offset
271 271
 		,find-scroll-offset-end ~scroll.y ~j EQU2 JMP? POP2
272
-		,no-break ~textarea.addr LDR #0a ~textarea.addr LDR #0d NEQ #0101 EQU2 JMP? POP2
272
+		,no-break ~textarea.addr LDR #0a NEQ ~textarea.addr LDR #0d NEQ #0101 EQU2 JMP? POP2
273 273
 			( incr ) ~j #0001 ADD2 =j
274 274
 		@no-break
275 275
 		( incr ) ~textarea.addr #0001 ADD2 =textarea.addr
... ...
@@ -435,8 +435,8 @@ RTS
435 435
 @arrowdown_icn [ 0010 1010 fe7c 3810 ]
436 436
 @load_icn      [ feaa d6aa d4aa f400 ]
437 437
 @save_icn      [ fe82 8282 848a f400 ]
438
-@filepath      [ test.txt 00 ]
439
-@filepath1     [ projects/software/left.usm 00 ]
438
+@filepath1      [ test.txt 00 ]
439
+@filepath     [ projects/software/left.usm 00 ]
440 440
 
441 441
 |4000 ;document Document
442 442
 
... ...
@@ -451,4 +451,4 @@ RTS
451 451
 |FF60 ;dev/file    File
452 452
 
453 453
 |FFF0 .RESET .FRAME .ERROR ( vectors )
454
-|FFF8 [ a1f3 a14d a16c ] ( palette )
454
+|FFF8 [ 0a4f 0a4f 0a4f ] ( palette )