... | ... |
@@ -4,20 +4,24 @@ |
4 | 4 |
:dev/w fff9 ( std write port ) |
5 | 5 |
|
6 | 6 |
;x_ 2 ;y_ 2 ;x0 2 ;y0 2 ;x1 2 ;y1 2 ;color 1 |
7 |
- |
|
8 | 7 |
;dx 2 ;dy 2 ;err 2 ;err2 2 |
9 | 8 |
|
10 | 9 |
|0100 @RESET |
11 | 10 |
|
12 | 11 |
( set dev/write to screen ) |
13 | 12 |
,01 ,dev/w STR |
13 |
+ |
|
14 | 14 |
,01 ,color STR |
15 |
+ +0030 ,x0 STR^ +0040 ,y0 STR^ |
|
16 |
+ +0050 ,x1 STR^ +0060 ,y1 STR^ |
|
17 |
+ |
|
18 |
+ ,line JSR |
|
15 | 19 |
|
16 |
- ( init positions ) |
|
17 |
- ,0020 ,x0 STR^ ,0018 ,y0 STR^ |
|
18 |
- ,0060 ,x1 STR^ ,0048 ,y1 STR^ |
|
19 |
- ,x0 LDR^ ,x_ STR^ ,y0 LDR^ ,y_ STR^ |
|
20 |
+ ,02 ,color STR |
|
21 |
+ +0020 ,x0 STR^ +0010 ,y0 STR^ |
|
22 |
+ +0060 ,x1 STR^ +0070 ,y1 STR^ |
|
20 | 23 |
|
24 |
+ ,line JSR |
|
21 | 25 |
|
22 | 26 |
( draw control points ) |
23 | 27 |
,02 ,color STR |
... | ... |
@@ -28,6 +32,25 @@ |
28 | 32 |
|
29 | 33 |
BRK |
30 | 34 |
|
35 |
+@line |
|
36 |
+ ,x0 LDR^ ,x_ STR^ ,y0 LDR^ ,y_ STR^ ( start at x0,y0 ) |
|
37 |
+ ,x1 LDR^ ,x0 LDR^ ,diff16sub JSR ,dx STR^ ( int dx = abs[x1 - x0] ) |
|
38 |
+ ,y1 LDR^ ,y0 LDR^ ,diff16sub JSR -0001 MUL!^ ,dy STR^ ( int dy = -abs[y1 - y0] ) |
|
39 |
+ ,dx LDR^ ,dy LDR^ ADD!^ ,err STR^ ( int err = dx + dy, e2; ) |
|
40 |
+ @loop |
|
41 |
+ ,x_ LDR^ ,y_ LDR^ ,putpixel JSR ( draw ) |
|
42 |
+ ,err LDR^ +0002 MUL!^ ,err2 STR^ ( e2 = 2 * err; ) |
|
43 |
+ ,err2 LDR^ ,dy LDR^ LTH!^ ,continue1 ROT JMP? POP^ ( e2 >= dy ) |
|
44 |
+ ,err LDR^ ,dy LDR^ ADD!^ ,err STR^ ( err += dy; ) |
|
45 |
+ ,x_ LDR^ +0001 ADD!^ ,x_ STR^ ( y0 += y0 < y1 ? 1 : -1; ) |
|
46 |
+ @continue1 |
|
47 |
+ ,err2 LDR^ ,dx LDR^ GTH!^ ,continue2 ROT JMP? POP^ ( e2 <= dx ) |
|
48 |
+ ,err LDR^ ,dx LDR^ ADD!^ ,err STR^ ( err += dx; ) |
|
49 |
+ ,y_ LDR^ +0001 ADD!^ ,y_ STR^ ( y0 += y0 < y1 ? 1 : -1; ) |
|
50 |
+ @continue2 |
|
51 |
+ ,x_ LDR^ ,x1 LDR^ LTH!^ ,loop ROT JMP? POP^ ( loop ) |
|
52 |
+ RTS |
|
53 |
+ |
|
31 | 54 |
@redraw |
32 | 55 |
,0000 IOW^ |
33 | 56 |
,0000 IOW^ |