Minor change to bresenham helpers

4 years ago · dd0ba4f191
3 changed files with 6 additions and 6 deletions
--- a/projects/examples/demos/cube3d.tal
+++ b/projects/examples/demos/cube3d.tal
@ -112,8 +112,8 @@ JMP2r
 JMP2r

@abs2 DUP2 #0f SFT2 EQU #05 JCN #0000 SWP2 SUB2 JMP2r
-@lts2 #8000 ADD2 SWP2 #8000 ADD2 GTH2 JMP2r
-@gts2 #8000 ADD2 SWP2 #8000 ADD2 LTH2 JMP2r
+@lts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r
+@gts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r

@table ( 256 xy )
 	f7f8 f9fa fbfc fcfd fefe ffff ffff ffff
--- a/projects/examples/devices/mouse.tal
+++ b/projects/examples/devices/mouse.tal
@ -98,7 +98,7 @@ BRK
 JMP2r

@abs2 DUP2 #0f SFT2 EQU #05 JCN #0000 SWP2 SUB2 JMP2r
-@lts2 #8000 ADD2 SWP2 #8000 ADD2 GTH2 JMP2r
-@gts2 #8000 ADD2 SWP2 #8000 ADD2 LTH2 JMP2r
+@lts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r
+@gts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r

@pointer-icn 80c0 e0f0 f8e0 1000
--- a/projects/software/clock.tal
+++ b/projects/software/clock.tal
@ -221,8 +221,8 @@ JMP2r

@mod DUP2 DIV MUL SUB JMP2r
@abs2 DUP2 #0f SFT2 EQU #05 JCN #0000 SWP2 SUB2 JMP2r
-@lts2 #8000 ADD2 SWP2 #8000 ADD2 GTH2 JMP2r
-@gts2 #8000 ADD2 SWP2 #8000 ADD2 LTH2 JMP2r
+@lts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r
+@gts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r
@is-uc DUP #40 GTH SWP #5b LTH AND JMP2r
@is-lc DUP #60 GTH SWP #7b LTH AND JMP2r
@is-num DUP #2f GTH SWP #3a LTH AND JMP2r