� Circles
� By R.Henderson
� (c) Electron User
(
� 1,0,0,1
2P%=&900
<
[OPT 0
F
LDA #0
PSTA &70
ZSTA &72
dLDA &74
nSTA &71
xLDA &75
�STA &73
�
LDY #0
�	.copy
�LDA (&70),Y
�STA (&72),Y
�INY
�BNE copy
�INC &71
�INC &73
�LDA &71
�
CMP&76
�BNE copy
�RTS

.intoff

SEI

RTS

"]

,� intoff

6� 0

@� 5

J�=&3000

T� 23,1,0;0;0;0;

^
?&34E=&30

h
?&351=&30

r�

|?&FE02=0

�?&FE03=&2C

�x%=�(1278)

�y%=�(1024)

�r%=�(200)+60

�� 3,�(3)

��c(x%,y%,r%)

�?&FE03=&18

�?&74=&30

�?&75=&58

�?&76=&80

�
� &900

�� �(40)=4 �:� 0

�� 0
 
� �c(X%,Y%,R%)
� I%=Y%+R% � Y%-R% � -8
&"J%=�(�(R%*R%-(I%-Y%)*(I%-Y%)))
0� X%-J%,I%
:� X%+J%,I%
D� X%-J%,(I%+4)
N� X%+J%,(I%+4)
X�
b�
�

00000000  0d 00 0a 0d f4 20 43 69  72 63 6c 65 73 0d 00 14  |..... Circles...|
00000010  14 f4 20 42 79 20 52 2e  48 65 6e 64 65 72 73 6f  |.. By R.Henderso|
00000020  6e 0d 00 1e 17 f4 20 28  63 29 20 45 6c 65 63 74  |n..... (c) Elect|
00000030  72 6f 6e 20 55 73 65 72  0d 00 28 0d d4 20 31 2c  |ron User..(.. 1,|
00000040  30 2c 30 2c 31 0d 00 32  0b 50 25 3d 26 39 30 30  |0,0,1..2.P%=&900|
00000050  0d 00 3c 0a 5b 4f 50 54  20 30 0d 00 46 0a 4c 44  |..<.[OPT 0..F.LD|
00000060  41 20 23 30 0d 00 50 0b  53 54 41 20 26 37 30 0d  |A #0..P.STA &70.|
00000070  00 5a 0b 53 54 41 20 26  37 32 0d 00 64 0b 4c 44  |.Z.STA &72..d.LD|
00000080  41 20 26 37 34 0d 00 6e  0b 53 54 41 20 26 37 31  |A &74..n.STA &71|
00000090  0d 00 78 0b 4c 44 41 20  26 37 35 0d 00 82 0b 53  |..x.LDA &75....S|
000000a0  54 41 20 26 37 33 0d 00  8c 0a 4c 44 59 20 23 30  |TA &73....LDY #0|
000000b0  0d 00 96 09 2e 63 6f 70  79 0d 00 a0 0f 4c 44 41  |.....copy....LDA|
000000c0  20 28 26 37 30 29 2c 59  0d 00 aa 0f 53 54 41 20  | (&70),Y....STA |
000000d0  28 26 37 32 29 2c 59 0d  00 b4 07 49 4e 59 0d 00  |(&72),Y....INY..|
000000e0  be 0c 42 4e 45 20 63 6f  70 79 0d 00 c8 0b 49 4e  |..BNE copy....IN|
000000f0  43 20 26 37 31 0d 00 d2  0b 49 4e 43 20 26 37 33  |C &71....INC &73|
00000100  0d 00 dc 0b 4c 44 41 20  26 37 31 0d 00 e6 0a 43  |....LDA &71....C|
00000110  4d 50 26 37 36 0d 00 f0  0c 42 4e 45 20 63 6f 70  |MP&76....BNE cop|
00000120  79 0d 00 fa 07 52 54 53  0d 01 04 0b 2e 69 6e 74  |y....RTS.....int|
00000130  6f 66 66 0d 01 0e 07 53  45 49 0d 01 18 07 52 54  |off....SEI....RT|
00000140  53 0d 01 22 05 5d 0d 01  2c 0c d6 20 69 6e 74 6f  |S..".]..,.. into|
00000150  66 66 0d 01 36 07 eb 20  30 0d 01 40 07 eb 20 35  |ff..6.. 0..@.. 5|
00000160  0d 01 4a 0b d3 3d 26 33  30 30 30 0d 01 54 13 ef  |..J..=&3000..T..|
00000170  20 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 01  | 23,1,0;0;0;0;..|
00000180  5e 0d 3f 26 33 34 45 3d  26 33 30 0d 01 68 0d 3f  |^.?&34E=&30..h.?|
00000190  26 33 35 31 3d 26 33 30  0d 01 72 05 f5 0d 01 7c  |&351=&30..r....||
000001a0  0c 3f 26 46 45 30 32 3d  30 0d 01 86 0e 3f 26 46  |.?&FE02=0....?&F|
000001b0  45 30 33 3d 26 32 43 0d  01 90 0e 78 25 3d b3 28  |E03=&2C....x%=.(|
000001c0  31 32 37 38 29 0d 01 9a  0e 79 25 3d b3 28 31 30  |1278)....y%=.(10|
000001d0  32 34 29 0d 01 a4 10 72  25 3d b3 28 32 30 30 29  |24)....r%=.(200)|
000001e0  2b 36 30 0d 01 ae 0c e6  20 33 2c b3 28 33 29 0d  |+60..... 3,.(3).|
000001f0  01 b8 10 f2 63 28 78 25  2c 79 25 2c 72 25 29 0d  |....c(x%,y%,r%).|
00000200  01 c2 0e 3f 26 46 45 30  33 3d 26 31 38 0d 01 cc  |...?&FE03=&18...|
00000210  0c 3f 26 37 34 3d 26 33  30 0d 01 d6 0c 3f 26 37  |.?&74=&30....?&7|
00000220  35 3d 26 35 38 0d 01 e0  0c 3f 26 37 36 3d 26 38  |5=&58....?&76=&8|
00000230  30 0d 01 ea 0a d6 20 26  39 30 30 0d 01 f4 13 e7  |0..... &900.....|
00000240  20 b3 28 34 30 29 3d 34  20 db 3a fd 20 30 0d 01  | .(40)=4 .:. 0..|
00000250  fe 07 fd 20 30 0d 02 08  05 20 0d 02 12 12 dd 20  |... 0.... ..... |
00000260  f2 63 28 58 25 2c 59 25  2c 52 25 29 0d 02 1c 1b  |.c(X%,Y%,R%)....|
00000270  e3 20 49 25 3d 59 25 2b  52 25 20 b8 20 59 25 2d  |. I%=Y%+R% . Y%-|
00000280  52 25 20 88 20 2d 38 0d  02 26 22 4a 25 3d b6 28  |R% . -8..&"J%=.(|
00000290  94 28 52 25 2a 52 25 2d  28 49 25 2d 59 25 29 2a  |.(R%*R%-(I%-Y%)*|
000002a0  28 49 25 2d 59 25 29 29  29 0d 02 30 0e ec 20 58  |(I%-Y%)))..0.. X|
000002b0  25 2d 4a 25 2c 49 25 0d  02 3a 0e df 20 58 25 2b  |%-J%,I%..:.. X%+|
000002c0  4a 25 2c 49 25 0d 02 44  12 ec 20 58 25 2d 4a 25  |J%,I%..D.. X%-J%|
000002d0  2c 28 49 25 2b 34 29 0d  02 4e 12 df 20 58 25 2b  |,(I%+4)..N.. X%+|
000002e0  4a 25 2c 28 49 25 2b 34  29 0d 02 58 05 ed 0d 02  |J%,(I%+4)..X....|
000002f0  62 05 e1 0d ff                                    |b....|
000002f5