Browse code
Minor change to bresenham helpers
neauoire authored on 05/04/2022 23:41:49
Showing 3 changed files
| ... | ... |
@@ -112,8 +112,8 @@ JMP2r |
| 112 | 112 |
JMP2r |
| 113 | 113 |
|
| 114 | 114 |
@abs2 DUP2 #0f SFT2 EQU #05 JCN #0000 SWP2 SUB2 JMP2r |
| 115 |
-@lts2 #8000 ADD2 SWP2 #8000 ADD2 GTH2 JMP2r |
|
| 116 |
-@gts2 #8000 ADD2 SWP2 #8000 ADD2 LTH2 JMP2r |
|
| 115 |
+@lts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r |
|
| 116 |
+@gts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r |
|
| 117 | 117 |
|
| 118 | 118 |
@table ( 256 xy ) |
| 119 | 119 |
f7f8 f9fa fbfc fcfd fefe ffff ffff ffff |
| ... | ... |
@@ -98,7 +98,7 @@ BRK |
| 98 | 98 |
JMP2r |
| 99 | 99 |
|
| 100 | 100 |
@abs2 DUP2 #0f SFT2 EQU #05 JCN #0000 SWP2 SUB2 JMP2r |
| 101 |
-@lts2 #8000 ADD2 SWP2 #8000 ADD2 GTH2 JMP2r |
|
| 102 |
-@gts2 #8000 ADD2 SWP2 #8000 ADD2 LTH2 JMP2r |
|
| 101 |
+@lts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r |
|
| 102 |
+@gts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r |
|
| 103 | 103 |
|
| 104 | 104 |
@pointer-icn 80c0 e0f0 f8e0 1000 |
| ... | ... |
@@ -221,8 +221,8 @@ JMP2r |
| 221 | 221 |
|
| 222 | 222 |
@mod DUP2 DIV MUL SUB JMP2r |
| 223 | 223 |
@abs2 DUP2 #0f SFT2 EQU #05 JCN #0000 SWP2 SUB2 JMP2r |
| 224 |
-@lts2 #8000 ADD2 SWP2 #8000 ADD2 GTH2 JMP2r |
|
| 225 |
-@gts2 #8000 ADD2 SWP2 #8000 ADD2 LTH2 JMP2r |
|
| 224 |
+@lts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 GTH2 JMP2r |
|
| 225 |
+@gts2 #8000 STH2k ADD2 SWP2 STH2r ADD2 LTH2 JMP2r |
|
| 226 | 226 |
@is-uc DUP #40 GTH SWP #5b LTH AND JMP2r |
| 227 | 227 |
@is-lc DUP #60 GTH SWP #7b LTH AND JMP2r |
| 228 | 228 |
@is-num DUP #2f GTH SWP #3a LTH AND JMP2r |