� code% 1024*5
�assem:�13
"*screenload <Obey$Dir>.Palette
(�
2�
<�go
F�
P
Z��assem
d�x%=0 � 2 � 2
nP%=code%
x
[OPTx%
�
.drawx
�
EQUD 0
�
.drawy
�
EQUD 0
�	.xdir
�
EQUD 0
�	.ydir
�
EQUD 0
�.x
�
EQUD 2
�.y
�
EQUD 2
�
.input

EQUD 148

EQUD -1

.output

"
EQUD 0

,
EQUD 0

6.readscrstart

@ADR R0,input

JADR R1,output

TSWI "OS_ReadVduVariables"

^MOV PC,R14

h.drawcircle

rMOV R4,#16

|LDR R1,drawy

�MOV R2,#320

�MUL R0,R1,R2

�LDR R1,drawx

�ADD R0,R0,R1

�LDR R1,output

�ADD R0,R0,R1

�ADR R1,circle

�
.drawline

�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1

�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1

�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1

�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1

�@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
&@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
0@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
:@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
D@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
N@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
X@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
b@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
l@LDRB R2,[R0,#0]:LDRB R3,[R1],#1:ADD R2,R2,R3:STRB R2,[R0],#1
vADD R0,R0,#304
�SUBS R4,R4,#1
�BNE drawline
�MOV PC,R14
�	.xmid
�
EQUD 1216
�	.ymid
�EQUD 943
�	.home
�STR R14,r14
�LDR R0,x
�LDR R1,y
�LDR R2,xdir
�LDR R3,ydir
LDR R4,xmid
LDR R5,ymid

CMP R0,R4
 SUBGT R2,R2,#1
*ADDLT R2,R2,#1
4
CMP R1,R5
>SUBGT R3,R3,#1
HADDLT R3,R3,#1
RSTR R2,xdir
\STR R3,ydir
fADD R0,R0,R2
pADD R1,R1,R3
zSTR R0,x
�STR R1,y
�MOV R0,R0,LSR#3
�MOV R1,R1,LSR#3
�STR R0,drawx
�STR R1,drawy
�BL drawcircle
�LDR PC,r14
�.r14
�
EQUD 0
�.circle
�]
�)�("LOAD <Obey$Dir>.circle "+�~circle)
�P%+=256
�
�

$��go
.�readscrstart
8speed%=1:�=0
B�
L� a%=1� speed%
V	�home
`�
j� � >50 � �=0:speed%+=1
t� speed%<20 � Ȗ
~� 0
�
��
�

00000000  0d 00 0a 12 de 20 63 6f  64 65 25 20 31 30 32 34  |..... code% 1024|
00000010  2a 35 0d 00 14 0e f2 61  73 73 65 6d 3a eb 31 33  |*5.....assem:.13|
00000020  0d 00 1e 22 2a 73 63 72  65 65 6e 6c 6f 61 64 20  |..."*screenload |
00000030  3c 4f 62 65 79 24 44 69  72 3e 2e 50 61 6c 65 74  |<Obey$Dir>.Palet|
00000040  74 65 0d 00 28 05 db 0d  00 32 05 87 0d 00 3c 07  |te..(....2....<.|
00000050  f2 67 6f 0d 00 46 05 e0  0d 00 50 04 0d 00 5a 0b  |.go..F....P...Z.|
00000060  dd f2 61 73 73 65 6d 0d  00 64 11 e3 78 25 3d 30  |..assem..d..x%=0|
00000070  20 b8 20 32 20 88 20 32  0d 00 6e 0c 50 25 3d 63  | . 2 . 2..n.P%=c|
00000080  6f 64 65 25 0d 00 78 0a  5b 4f 50 54 78 25 0d 00  |ode%..x.[OPTx%..|
00000090  82 0a 2e 64 72 61 77 78  0d 00 8c 0a 45 51 55 44  |...drawx....EQUD|
000000a0  20 30 0d 00 96 0a 2e 64  72 61 77 79 0d 00 a0 0a  | 0.....drawy....|
000000b0  45 51 55 44 20 30 0d 00  aa 09 2e 78 64 69 72 0d  |EQUD 0.....xdir.|
000000c0  00 b4 0a 45 51 55 44 20  30 0d 00 be 09 2e 79 64  |...EQUD 0.....yd|
000000d0  69 72 0d 00 c8 0a 45 51  55 44 20 30 0d 00 d2 06  |ir....EQUD 0....|
000000e0  2e 78 0d 00 dc 0a 45 51  55 44 20 32 0d 00 e6 06  |.x....EQUD 2....|
000000f0  2e 79 0d 00 f0 0a 45 51  55 44 20 32 0d 00 fa 0a  |.y....EQUD 2....|
00000100  2e 69 6e 70 75 74 0d 01  04 0c 45 51 55 44 20 31  |.input....EQUD 1|
00000110  34 38 0d 01 0e 0b 45 51  55 44 20 2d 31 0d 01 18  |48....EQUD -1...|
00000120  0b 2e 6f 75 74 70 75 74  0d 01 22 0a 45 51 55 44  |..output..".EQUD|
00000130  20 30 0d 01 2c 0a 45 51  55 44 20 30 0d 01 36 11  | 0..,.EQUD 0..6.|
00000140  2e 72 65 61 64 73 63 72  73 74 61 72 74 0d 01 40  |.readscrstart..@|
00000150  10 41 44 52 20 52 30 2c  69 6e 70 75 74 0d 01 4a  |.ADR R0,input..J|
00000160  11 41 44 52 20 52 31 2c  6f 75 74 70 75 74 0d 01  |.ADR R1,output..|
00000170  54 1d 53 57 49 20 22 4f  53 5f 52 65 61 64 56 64  |T.SWI "OS_ReadVd|
00000180  75 56 61 72 69 61 62 6c  65 73 22 0d 01 5e 0e 4d  |uVariables"..^.M|
00000190  4f 56 20 50 43 2c 52 31  34 0d 01 68 0f 2e 64 72  |OV PC,R14..h..dr|
000001a0  61 77 63 69 72 63 6c 65  0d 01 72 0e 4d 4f 56 20  |awcircle..r.MOV |
000001b0  52 34 2c 23 31 36 0d 01  7c 10 4c 44 52 20 52 31  |R4,#16..|.LDR R1|
000001c0  2c 64 72 61 77 79 0d 01  86 0f 4d 4f 56 20 52 32  |,drawy....MOV R2|
000001d0  2c 23 33 32 30 0d 01 90  10 4d 55 4c 20 52 30 2c  |,#320....MUL R0,|
000001e0  52 31 2c 52 32 0d 01 9a  10 4c 44 52 20 52 31 2c  |R1,R2....LDR R1,|
000001f0  64 72 61 77 78 0d 01 a4  10 41 44 44 20 52 30 2c  |drawx....ADD R0,|
00000200  52 30 2c 52 31 0d 01 ae  11 4c 44 52 20 52 31 2c  |R0,R1....LDR R1,|
00000210  6f 75 74 70 75 74 0d 01  b8 10 41 44 44 20 52 30  |output....ADD R0|
00000220  2c 52 30 2c 52 31 0d 01  c2 11 41 44 52 20 52 31  |,R0,R1....ADR R1|
00000230  2c 63 69 72 63 6c 65 0d  01 cc 0d 2e 64 72 61 77  |,circle.....draw|
00000240  6c 69 6e 65 0d 01 d6 40  4c 44 52 42 20 52 32 2c  |line...@LDRB R2,|
00000250  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
00000260  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
00000270  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000280  5d 2c 23 31 0d 01 e0 40  4c 44 52 42 20 52 32 2c  |],#1...@LDRB R2,|
00000290  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
000002a0  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
000002b0  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
000002c0  5d 2c 23 31 0d 01 ea 40  4c 44 52 42 20 52 32 2c  |],#1...@LDRB R2,|
000002d0  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
000002e0  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
000002f0  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000300  5d 2c 23 31 0d 01 f4 40  4c 44 52 42 20 52 32 2c  |],#1...@LDRB R2,|
00000310  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
00000320  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
00000330  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000340  5d 2c 23 31 0d 01 fe 40  4c 44 52 42 20 52 32 2c  |],#1...@LDRB R2,|
00000350  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
00000360  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
00000370  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000380  5d 2c 23 31 0d 02 08 40  4c 44 52 42 20 52 32 2c  |],#1...@LDRB R2,|
00000390  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
000003a0  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
000003b0  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
000003c0  5d 2c 23 31 0d 02 12 40  4c 44 52 42 20 52 32 2c  |],#1...@LDRB R2,|
000003d0  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
000003e0  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
000003f0  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000400  5d 2c 23 31 0d 02 1c 40  4c 44 52 42 20 52 32 2c  |],#1...@LDRB R2,|
00000410  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
00000420  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
00000430  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000440  5d 2c 23 31 0d 02 26 40  4c 44 52 42 20 52 32 2c  |],#1..&@LDRB R2,|
00000450  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
00000460  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
00000470  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000480  5d 2c 23 31 0d 02 30 40  4c 44 52 42 20 52 32 2c  |],#1..0@LDRB R2,|
00000490  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
000004a0  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
000004b0  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
000004c0  5d 2c 23 31 0d 02 3a 40  4c 44 52 42 20 52 32 2c  |],#1..:@LDRB R2,|
000004d0  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
000004e0  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
000004f0  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000500  5d 2c 23 31 0d 02 44 40  4c 44 52 42 20 52 32 2c  |],#1..D@LDRB R2,|
00000510  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
00000520  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
00000530  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000540  5d 2c 23 31 0d 02 4e 40  4c 44 52 42 20 52 32 2c  |],#1..N@LDRB R2,|
00000550  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
00000560  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
00000570  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000580  5d 2c 23 31 0d 02 58 40  4c 44 52 42 20 52 32 2c  |],#1..X@LDRB R2,|
00000590  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
000005a0  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
000005b0  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
000005c0  5d 2c 23 31 0d 02 62 40  4c 44 52 42 20 52 32 2c  |],#1..b@LDRB R2,|
000005d0  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
000005e0  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
000005f0  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000600  5d 2c 23 31 0d 02 6c 40  4c 44 52 42 20 52 32 2c  |],#1..l@LDRB R2,|
00000610  5b 52 30 2c 23 30 5d 3a  4c 44 52 42 20 52 33 2c  |[R0,#0]:LDRB R3,|
00000620  5b 52 31 5d 2c 23 31 3a  41 44 44 20 52 32 2c 52  |[R1],#1:ADD R2,R|
00000630  32 2c 52 33 3a 53 54 52  42 20 52 32 2c 5b 52 30  |2,R3:STRB R2,[R0|
00000640  5d 2c 23 31 0d 02 76 12  41 44 44 20 52 30 2c 52  |],#1..v.ADD R0,R|
00000650  30 2c 23 33 30 34 0d 02  80 11 53 55 42 53 20 52  |0,#304....SUBS R|
00000660  34 2c 52 34 2c 23 31 0d  02 8a 10 42 4e 45 20 64  |4,R4,#1....BNE d|
00000670  72 61 77 6c 69 6e 65 0d  02 94 0e 4d 4f 56 20 50  |rawline....MOV P|
00000680  43 2c 52 31 34 0d 02 9e  09 2e 78 6d 69 64 0d 02  |C,R14.....xmid..|
00000690  a8 0d 45 51 55 44 20 31  32 31 36 0d 02 b2 09 2e  |..EQUD 1216.....|
000006a0  79 6d 69 64 0d 02 bc 0c  45 51 55 44 20 39 34 33  |ymid....EQUD 943|
000006b0  0d 02 c6 09 2e 68 6f 6d  65 0d 02 d0 0f 53 54 52  |.....home....STR|
000006c0  20 52 31 34 2c 72 31 34  0d 02 da 0c 4c 44 52 20  | R14,r14....LDR |
000006d0  52 30 2c 78 0d 02 e4 0c  4c 44 52 20 52 31 2c 79  |R0,x....LDR R1,y|
000006e0  0d 02 ee 0f 4c 44 52 20  52 32 2c 78 64 69 72 0d  |....LDR R2,xdir.|
000006f0  02 f8 0f 4c 44 52 20 52  33 2c 79 64 69 72 0d 03  |...LDR R3,ydir..|
00000700  02 0f 4c 44 52 20 52 34  2c 78 6d 69 64 0d 03 0c  |..LDR R4,xmid...|
00000710  0f 4c 44 52 20 52 35 2c  79 6d 69 64 0d 03 16 0d  |.LDR R5,ymid....|
00000720  43 4d 50 20 52 30 2c 52  34 0d 03 20 12 53 55 42  |CMP R0,R4.. .SUB|
00000730  47 54 20 52 32 2c 52 32  2c 23 31 0d 03 2a 12 41  |GT R2,R2,#1..*.A|
00000740  44 44 4c 54 20 52 32 2c  52 32 2c 23 31 0d 03 34  |DDLT R2,R2,#1..4|
00000750  0d 43 4d 50 20 52 31 2c  52 35 0d 03 3e 12 53 55  |.CMP R1,R5..>.SU|
00000760  42 47 54 20 52 33 2c 52  33 2c 23 31 0d 03 48 12  |BGT R3,R3,#1..H.|
00000770  41 44 44 4c 54 20 52 33  2c 52 33 2c 23 31 0d 03  |ADDLT R3,R3,#1..|
00000780  52 0f 53 54 52 20 52 32  2c 78 64 69 72 0d 03 5c  |R.STR R2,xdir..\|
00000790  0f 53 54 52 20 52 33 2c  79 64 69 72 0d 03 66 10  |.STR R3,ydir..f.|
000007a0  41 44 44 20 52 30 2c 52  30 2c 52 32 0d 03 70 10  |ADD R0,R0,R2..p.|
000007b0  41 44 44 20 52 31 2c 52  31 2c 52 33 0d 03 7a 0c  |ADD R1,R1,R3..z.|
000007c0  53 54 52 20 52 30 2c 78  0d 03 84 0c 53 54 52 20  |STR R0,x....STR |
000007d0  52 31 2c 79 0d 03 8e 13  4d 4f 56 20 52 30 2c 52  |R1,y....MOV R0,R|
000007e0  30 2c 4c 53 52 23 33 0d  03 98 13 4d 4f 56 20 52  |0,LSR#3....MOV R|
000007f0  31 2c 52 31 2c 4c 53 52  23 33 0d 03 a2 10 53 54  |1,R1,LSR#3....ST|
00000800  52 20 52 30 2c 64 72 61  77 78 0d 03 ac 10 53 54  |R R0,drawx....ST|
00000810  52 20 52 31 2c 64 72 61  77 79 0d 03 b6 11 42 4c  |R R1,drawy....BL|
00000820  20 64 72 61 77 63 69 72  63 6c 65 0d 03 c0 0e 4c  | drawcircle....L|
00000830  44 52 20 50 43 2c 72 31  34 0d 03 ca 08 2e 72 31  |DR PC,r14.....r1|
00000840  34 0d 03 d4 0a 45 51 55  44 20 30 0d 03 de 0b 2e  |4....EQUD 0.....|
00000850  63 69 72 63 6c 65 0d 03  e8 05 5d 0d 03 f2 29 ff  |circle....]...).|
00000860  28 22 4c 4f 41 44 20 3c  4f 62 65 79 24 44 69 72  |("LOAD <Obey$Dir|
00000870  3e 2e 63 69 72 63 6c 65  20 22 2b c3 7e 63 69 72  |>.circle "+.~cir|
00000880  63 6c 65 29 0d 03 fc 0b  50 25 2b 3d 32 35 36 0d  |cle)....P%+=256.|
00000890  04 06 05 ed 0d 04 10 05  e1 0d 04 1a 04 0d 04 24  |...............$|
000008a0  08 dd f2 67 6f 0d 04 2e  11 d6 72 65 61 64 73 63  |...go.....readsc|
000008b0  72 73 74 61 72 74 0d 04  38 10 73 70 65 65 64 25  |rstart..8.speed%|
000008c0  3d 31 3a d1 3d 30 0d 04  42 05 f5 0d 04 4c 12 e3  |=1:.=0..B....L..|
000008d0  20 61 25 3d 31 b8 20 73  70 65 65 64 25 0d 04 56  | a%=1. speed%..V|
000008e0  09 d6 68 6f 6d 65 0d 04  60 05 ed 0d 04 6a 1b e7  |..home..`....j..|
000008f0  20 91 20 3e 35 30 20 8c  20 d1 3d 30 3a 73 70 65  | . >50 . .=0:spe|
00000900  65 64 25 2b 3d 31 0d 04  74 14 e7 20 73 70 65 65  |ed%+=1..t.. spee|
00000910  64 25 3c 32 30 20 8c 20  c8 96 0d 04 7e 07 fd 20  |d%<20 . ....~.. |
00000920  30 0d 04 88 04 0d 04 92  05 e1 0d ff              |0...........|
0000092c