�15:�13:�
4�T%=0�15:�C1%,C2%,C3%:�T%,C1%<<4,C2%<<4,C3%<<4:�
;�0,0,0, 0,1,1, 0,2,2, 0,3,3, 0,3,4, 1,3,5, 2,3,6, 3,3,7
(;�4,3,7, 4,2,6, 4,1,5, 4,0,4, 4,0,3, 5,0,2, 6,0,1, 7,0,0
2AC%=28:QS%=12:qlen%=1<<QS%
<MI%=1024:ES%=2
F�code%4096,queue%8*qlen%
P
�assemble
Zȗȓ0,0,1023,1023
dCX=0:CY=0:CS=2:redraw%=�
n�
x
�redraw%�
�*POINTER 0
��mandel(CX,CY,CS)
�S%=256:redraw%=�
�*POINTER 1
��:ȗX%,Y%,Z%
�+�Z%=4�S%-=(S%>>5)+1��Z%=1�S%+=(S%>>5)+1
��S%<8�S%=8��S%>512�S%=512
�$�(-52)�CX=0:CY=0:CS=2:redraw%=�
�J�(-99)�CX+=CS*(X%-512)/512:CY+=CS*(Y%-512)/512:CS=CS*S%/512:redraw%=�
�'�3,63Ȝ255:Ȗ:ȓX%-S%,Y%-S%,S%+S%-1
�Ȗ:ȓX%-S%,Y%-S%,S%+S%-1
��0
��

:

:

��mandel(CX,CY,CS)

"*FX112,2

,�191Ȝ192:�

6*FX112,1

@
�128Ȝ0:�

J8!cx%=CX*(1<<AC%):!cy%=CY*(1<<AC%):!cs%=CS*(1<<AC%-7)

T�!cs%=0��7:!cs%=1

^8CX=!cx%/(1<<AC%):CY=!cy%/(1<<AC%):CS=!cs%/(1<<AC%-7)

h�28,32,31,39,0:�128Ȝ0:�

rl�0,1);"Centre X";�0,3);�(CX*1E5)/1E5;�0,5);"Centre Y";�0,7);�(CY*1E5)/1E5;�0,9);"Size �";�0,11);�(2/CS)

s�26

|
�draw%

��

�:

���assemble

��T%=0�2�2:P%=code%

�[OPT T%

�.link%:EQUD -1

�.sp%:EQUD -1

�:

�.vduvars%:EQUD 148:EQUD -1

�.scraddr%:EQUD -1

�.maskaddr%:EQUD -1

�:

�.setupscreen%
MOV R0,#112

MOV R1,#2
SWI "OS_Byte"
&ADR R0,vduvars%
0ADR R1,maskaddr%
:SWI "OS_ReadVduVariables"
DMOV R0,#112
N
MOV R1,#1
XSWI "OS_Byte"
bADR R0,vduvars%
lADR R1,scraddr%
vSWI "OS_ReadVduVariables"
�MOV PC,R14
�:
�.queuedata%:EQUD queue%
�:
�
.draw%
�STR R14,link%
�STR R13,sp%
�BL setupscreen%
�
MOV R1,#0
�MOV R2,#255
�MOV R5,#255
�
MOV R6,#0
�LDR R9,queuedata%
MOV R8,#0:; StoreQ
MOV R0,#255
.qloop%
 
MOV R3,R0
*RSB R4,R0,#255
4RSB R7,R0,#255
>'STMIA R9!,{R0-R1,R2-R3,R4-R5,R6-R7}
HADD R8,R8,#4<<32-QS%
RSUBS R0,R0,#1
\BGT qloop%
fMOV R7,#0:; ReadQ
pLDR R9,queuedata%
z1; Keep on unqueueing until the queue is empty
�.qloop%
�ADD R10,R9,R7,LSR#32-QS%-3
�LDMIA R10,{R10-R11}
�ADD R7,R7,#1<<32-QS%
�TST R10,#256
�TSTEQ R11,#256
�BNE qescape%:; Off the side
�LDR R2,maskaddr%
�RSB R3,R11,#255
�ADD R3,R3,R3,ASL#2
�ADD R2,R2,R3,ASL#6
�LDRB R3,[R2,R10]
�CMP R3,#255
%BNE qescape%:; Already calculated

MOV R3,#0
#STRB R3,[R2,R10]:; Mark as done
$; Calculate starting point
.ADR R0,cx%
8LDMIA R0,{R0-R2}:; cx,cy,cs
BMLA R12,R10,R2,R0
LMLA R13,R11,R2,R1
VSUB R12,R12,R2,ASL#7
`SUB R13,R13,R2,ASL#7
jADD R12,R12,R2,ASR#1
tADD R13,R13,R2,ASR#1
~MOV R0,R12
�MOV R1,R13
�MOV R2,#MI%
�.iloop%
�� R14,R0,R1:; Sign of 2xy
�
CMP R0,#0
�RSBLT R0,R0,#0
�
CMP R1,#0
�RSBLT R1,R1,#0
�CMP R0,#ES%<<AC%
�CMPLT R1,#ES%<<AC%
�BGE iescape%
�; Split into two 16-bit nos
"MOV R4,R0,LSR#AC%/2:; in AC%/2

#SUB R3,R0,R4,LSL#AC%/2:; in AC%
MOV R6,R1,LSR#AC%/2
SUB R5,R1,R6,LSL#AC%/2
(; Put x2-y2+a into R0
2MUL R0,R4,R4:; in AC%
<MUL R1,R6,R6
FADD R0,R0,R1:; x2+y2
PCMP R0,#ES%*ES%<<AC%
ZBGE iescape%
dSUB R0,R0,R1,ASL#1:; x2-y2
nMUL R1,R3,R4:; in AC%+AC%/2
x%ADD R0,R0,R1,ASR#AC%/2-1:; in AC%
�MUL R1,R5,R6
�SUB R0,R0,R1,ASR#AC%/2-1
�ADD R0,R12,R0
�; Put 2xy+b into R1
�MUL R1,R4,R6:; in AC%
�MUL R4,R5,R4:; in AC%+AC%/2
�MLA R4,R3,R6,R4
�#ADD R1,R1,R4,LSR#AC%/2:; in AC%
� TST R14,#1<<31:; +ve or -ve?
�ADDEQ R1,R13,R1,ASL#1
�SUBNE R1,R13,R1,ASL#1
�SUBS R2,R2,#1
�BGT iloop%
; It is black
.iescreturn%

.qescape%
"
CMP R7,R8
,BNE qloop%
6LDR R13,sp%
@LDR R14,link%
JMOV PC,R14
T:
^
.iescape%
hRSB R2,R2,#0
rTST R14,#1<<31:; Sign
|�GE R2,R2,#128
�RSB R0,R11,#255
�ADD R0,R0,R0,ASL#2
�ADD R0,R10,R0,ASL#6
�LDR R1,scraddr%
�STRB R2,[R1,R0]
�ADD R0,R10,#1
�ADD R1,R9,R8,LSR#32-QS%-3
�STMIA R1,{R0,R11}
�ADD R8,R8,#1<<32-QS%
�SUB R0,R10,#1
�ADD R1,R9,R8,LSR#32-QS%-3
�STMIA R1,{R0,R11}
�ADD R8,R8,#1<<32-QS%
ADD R11,R11,#1
ADD R1,R9,R8,LSR#32-QS%-3
STMIA R1,{R10,R11}
&ADD R8,R8,#1<<32-QS%
0SUB R11,R11,#2
:ADD R1,R9,R8,LSR#32-QS%-3
DSTMIA R1,{R10,R11}
NADD R8,R8,#1<<32-QS%
XB iescreturn%
b:
l.cx%:EQUD -1
v.cy%:EQUD -1
�.cs%:EQUD -1
�:
�]:�
��
�

00000000  0d 00 0a 0d eb 31 35 3a  eb 31 33 3a 87 0d 00 14  |.....15:.13:....|
00000010  34 e3 54 25 3d 30 b8 31  35 3a f3 43 31 25 2c 43  |4.T%=0.15:.C1%,C|
00000020  32 25 2c 43 33 25 3a fb  54 25 2c 43 31 25 3c 3c  |2%,C3%:.T%,C1%<<|
00000030  34 2c 43 32 25 3c 3c 34  2c 43 33 25 3c 3c 34 3a  |4,C2%<<4,C3%<<4:|
00000040  ed 0d 00 1e 3b dc 30 2c  30 2c 30 2c 20 30 2c 31  |....;.0,0,0, 0,1|
00000050  2c 31 2c 20 30 2c 32 2c  32 2c 20 30 2c 33 2c 33  |,1, 0,2,2, 0,3,3|
00000060  2c 20 30 2c 33 2c 34 2c  20 31 2c 33 2c 35 2c 20  |, 0,3,4, 1,3,5, |
00000070  32 2c 33 2c 36 2c 20 33  2c 33 2c 37 0d 00 28 3b  |2,3,6, 3,3,7..(;|
00000080  dc 34 2c 33 2c 37 2c 20  34 2c 32 2c 36 2c 20 34  |.4,3,7, 4,2,6, 4|
00000090  2c 31 2c 35 2c 20 34 2c  30 2c 34 2c 20 34 2c 30  |,1,5, 4,0,4, 4,0|
000000a0  2c 33 2c 20 35 2c 30 2c  32 2c 20 36 2c 30 2c 31  |,3, 5,0,2, 6,0,1|
000000b0  2c 20 37 2c 30 2c 30 0d  00 32 1e 41 43 25 3d 32  |, 7,0,0..2.AC%=2|
000000c0  38 3a 51 53 25 3d 31 32  3a 71 6c 65 6e 25 3d 31  |8:QS%=12:qlen%=1|
000000d0  3c 3c 51 53 25 0d 00 3c  12 4d 49 25 3d 31 30 32  |<<QS%..<.MI%=102|
000000e0  34 3a 45 53 25 3d 32 0d  00 46 1c de 63 6f 64 65  |4:ES%=2..F..code|
000000f0  25 34 30 39 36 2c 71 75  65 75 65 25 38 2a 71 6c  |%4096,queue%8*ql|
00000100  65 6e 25 0d 00 50 0d f2  61 73 73 65 6d 62 6c 65  |en%..P..assemble|
00000110  0d 00 5a 15 c8 97 c8 93  30 2c 30 2c 31 30 32 33  |..Z.....0,0,1023|
00000120  2c 31 30 32 33 0d 00 64  1c 43 58 3d 30 3a 43 59  |,1023..d.CX=0:CY|
00000130  3d 30 3a 43 53 3d 32 3a  72 65 64 72 61 77 25 3d  |=0:CS=2:redraw%=|
00000140  b9 0d 00 6e 05 f5 0d 00  78 0d e7 72 65 64 72 61  |...n....x..redra|
00000150  77 25 8c 0d 00 82 0e 2a  50 4f 49 4e 54 45 52 20  |w%.....*POINTER |
00000160  30 0d 00 8c 15 f2 6d 61  6e 64 65 6c 28 43 58 2c  |0.....mandel(CX,|
00000170  43 59 2c 43 53 29 0d 00  96 14 53 25 3d 32 35 36  |CY,CS)....S%=256|
00000180  3a 72 65 64 72 61 77 25  3d a3 0d 00 a0 0e 2a 50  |:redraw%=.....*P|
00000190  4f 49 4e 54 45 52 20 31  0d 00 aa 10 cd 3a c8 97  |OINTER 1.....:..|
000001a0  58 25 2c 59 25 2c 5a 25  0d 00 b4 2b e7 5a 25 3d  |X%,Y%,Z%...+.Z%=|
000001b0  34 8c 53 25 2d 3d 28 53  25 3e 3e 35 29 2b 31 8b  |4.S%-=(S%>>5)+1.|
000001c0  e7 5a 25 3d 31 8c 53 25  2b 3d 28 53 25 3e 3e 35  |.Z%=1.S%+=(S%>>5|
000001d0  29 2b 31 0d 00 be 1d e7  53 25 3c 38 8c 53 25 3d  |)+1.....S%<8.S%=|
000001e0  38 8b e7 53 25 3e 35 31  32 8c 53 25 3d 35 31 32  |8..S%>512.S%=512|
000001f0  0d 00 c8 24 e7 a6 28 2d  35 32 29 8c 43 58 3d 30  |...$..(-52).CX=0|
00000200  3a 43 59 3d 30 3a 43 53  3d 32 3a 72 65 64 72 61  |:CY=0:CS=2:redra|
00000210  77 25 3d b9 0d 00 d2 4a  e7 a6 28 2d 39 39 29 8c  |w%=....J..(-99).|
00000220  43 58 2b 3d 43 53 2a 28  58 25 2d 35 31 32 29 2f  |CX+=CS*(X%-512)/|
00000230  35 31 32 3a 43 59 2b 3d  43 53 2a 28 59 25 2d 35  |512:CY+=CS*(Y%-5|
00000240  31 32 29 2f 35 31 32 3a  43 53 3d 43 53 2a 53 25  |12)/512:CS=CS*S%|
00000250  2f 35 31 32 3a 72 65 64  72 61 77 25 3d b9 0d 00  |/512:redraw%=...|
00000260  dc 27 e6 33 2c 36 33 c8  9c 32 35 35 3a c8 96 3a  |.'.3,63..255:..:|
00000270  c8 93 58 25 2d 53 25 2c  59 25 2d 53 25 2c 53 25  |..X%-S%,Y%-S%,S%|
00000280  2b 53 25 2d 31 0d 00 e6  1c c8 96 3a c8 93 58 25  |+S%-1......:..X%|
00000290  2d 53 25 2c 59 25 2d 53  25 2c 53 25 2b 53 25 2d  |-S%,Y%-S%,S%+S%-|
000002a0  31 0d 00 f0 06 fd 30 0d  00 fa 05 e0 0d 01 04 05  |1.....0.........|
000002b0  3a 0d 01 0e 05 3a 0d 01  18 16 dd f2 6d 61 6e 64  |:....:......mand|
000002c0  65 6c 28 43 58 2c 43 59  2c 43 53 29 0d 01 22 0c  |el(CX,CY,CS)..".|
000002d0  2a 46 58 31 31 32 2c 32  0d 01 2c 0f fb 31 39 31  |*FX112,2..,..191|
000002e0  c8 9c 31 39 32 3a db 0d  01 36 0c 2a 46 58 31 31  |..192:...6.*FX11|
000002f0  32 2c 31 0d 01 40 0d fb  31 32 38 c8 9c 30 3a db  |2,1..@..128..0:.|
00000300  0d 01 4a 38 21 63 78 25  3d 43 58 2a 28 31 3c 3c  |..J8!cx%=CX*(1<<|
00000310  41 43 25 29 3a 21 63 79  25 3d 43 59 2a 28 31 3c  |AC%):!cy%=CY*(1<|
00000320  3c 41 43 25 29 3a 21 63  73 25 3d 43 53 2a 28 31  |<AC%):!cs%=CS*(1|
00000330  3c 3c 41 43 25 2d 37 29  0d 01 54 15 e7 21 63 73  |<<AC%-7)..T..!cs|
00000340  25 3d 30 8c ef 37 3a 21  63 73 25 3d 31 0d 01 5e  |%=0..7:!cs%=1..^|
00000350  38 43 58 3d 21 63 78 25  2f 28 31 3c 3c 41 43 25  |8CX=!cx%/(1<<AC%|
00000360  29 3a 43 59 3d 21 63 79  25 2f 28 31 3c 3c 41 43  |):CY=!cy%/(1<<AC|
00000370  25 29 3a 43 53 3d 21 63  73 25 2f 28 31 3c 3c 41  |%):CS=!cs%/(1<<A|
00000380  43 25 2d 37 29 0d 01 68  1c ef 32 38 2c 33 32 2c  |C%-7)..h..28,32,|
00000390  33 31 2c 33 39 2c 30 3a  fb 31 32 38 c8 9c 30 3a  |31,39,0:.128..0:|
000003a0  db 0d 01 72 6c f1 8a 30  2c 31 29 3b 22 43 65 6e  |...rl..0,1);"Cen|
000003b0  74 72 65 20 58 22 3b 8a  30 2c 33 29 3b a8 28 43  |tre X";.0,3);.(C|
000003c0  58 2a 31 45 35 29 2f 31  45 35 3b 8a 30 2c 35 29  |X*1E5)/1E5;.0,5)|
000003d0  3b 22 43 65 6e 74 72 65  20 59 22 3b 8a 30 2c 37  |;"Centre Y";.0,7|
000003e0  29 3b a8 28 43 59 2a 31  45 35 29 2f 31 45 35 3b  |);.(CY*1E5)/1E5;|
000003f0  8a 30 2c 39 29 3b 22 53  69 7a 65 20 d7 22 3b 8a  |.0,9);"Size .";.|
00000400  30 2c 31 31 29 3b a8 28  32 2f 43 53 29 0d 01 73  |0,11);.(2/CS)..s|
00000410  07 ef 32 36 0d 01 7c 0a  d6 64 72 61 77 25 0d 01  |..26..|..draw%..|
00000420  86 05 e1 0d 01 90 05 3a  0d 01 9a 0e dd f2 61 73  |.......:......as|
00000430  73 65 6d 62 6c 65 0d 01  a4 16 e3 54 25 3d 30 b8  |semble.....T%=0.|
00000440  32 88 32 3a 50 25 3d 63  6f 64 65 25 0d 01 ae 0b  |2.2:P%=code%....|
00000450  5b 4f 50 54 20 54 25 0d  01 b8 12 2e 6c 69 6e 6b  |[OPT T%.....link|
00000460  25 3a 45 51 55 44 20 2d  31 0d 01 c2 10 2e 73 70  |%:EQUD -1.....sp|
00000470  25 3a 45 51 55 44 20 2d  31 0d 01 cc 05 3a 0d 01  |%:EQUD -1....:..|
00000480  d6 1e 2e 76 64 75 76 61  72 73 25 3a 45 51 55 44  |...vduvars%:EQUD|
00000490  20 31 34 38 3a 45 51 55  44 20 2d 31 0d 01 e0 15  | 148:EQUD -1....|
000004a0  2e 73 63 72 61 64 64 72  25 3a 45 51 55 44 20 2d  |.scraddr%:EQUD -|
000004b0  31 0d 01 ea 16 2e 6d 61  73 6b 61 64 64 72 25 3a  |1.....maskaddr%:|
000004c0  45 51 55 44 20 2d 31 0d  01 f4 05 3a 0d 01 fe 11  |EQUD -1....:....|
000004d0  2e 73 65 74 75 70 73 63  72 65 65 6e 25 0d 02 08  |.setupscreen%...|
000004e0  0f 4d 4f 56 20 52 30 2c  23 31 31 32 0d 02 12 0d  |.MOV R0,#112....|
000004f0  4d 4f 56 20 52 31 2c 23  32 0d 02 1c 11 53 57 49  |MOV R1,#2....SWI|
00000500  20 22 4f 53 5f 42 79 74  65 22 0d 02 26 13 41 44  | "OS_Byte"..&.AD|
00000510  52 20 52 30 2c 76 64 75  76 61 72 73 25 0d 02 30  |R R0,vduvars%..0|
00000520  14 41 44 52 20 52 31 2c  6d 61 73 6b 61 64 64 72  |.ADR R1,maskaddr|
00000530  25 0d 02 3a 1d 53 57 49  20 22 4f 53 5f 52 65 61  |%..:.SWI "OS_Rea|
00000540  64 56 64 75 56 61 72 69  61 62 6c 65 73 22 0d 02  |dVduVariables"..|
00000550  44 0f 4d 4f 56 20 52 30  2c 23 31 31 32 0d 02 4e  |D.MOV R0,#112..N|
00000560  0d 4d 4f 56 20 52 31 2c  23 31 0d 02 58 11 53 57  |.MOV R1,#1..X.SW|
00000570  49 20 22 4f 53 5f 42 79  74 65 22 0d 02 62 13 41  |I "OS_Byte"..b.A|
00000580  44 52 20 52 30 2c 76 64  75 76 61 72 73 25 0d 02  |DR R0,vduvars%..|
00000590  6c 13 41 44 52 20 52 31  2c 73 63 72 61 64 64 72  |l.ADR R1,scraddr|
000005a0  25 0d 02 76 1d 53 57 49  20 22 4f 53 5f 52 65 61  |%..v.SWI "OS_Rea|
000005b0  64 56 64 75 56 61 72 69  61 62 6c 65 73 22 0d 02  |dVduVariables"..|
000005c0  80 0e 4d 4f 56 20 50 43  2c 52 31 34 0d 02 8a 05  |..MOV PC,R14....|
000005d0  3a 0d 02 94 1b 2e 71 75  65 75 65 64 61 74 61 25  |:.....queuedata%|
000005e0  3a 45 51 55 44 20 71 75  65 75 65 25 0d 02 9e 05  |:EQUD queue%....|
000005f0  3a 0d 02 a8 0a 2e 64 72  61 77 25 0d 02 b2 11 53  |:.....draw%....S|
00000600  54 52 20 52 31 34 2c 6c  69 6e 6b 25 0d 02 bc 0f  |TR R14,link%....|
00000610  53 54 52 20 52 31 33 2c  73 70 25 0d 02 c6 13 42  |STR R13,sp%....B|
00000620  4c 20 73 65 74 75 70 73  63 72 65 65 6e 25 0d 02  |L setupscreen%..|
00000630  d0 0d 4d 4f 56 20 52 31  2c 23 30 0d 02 da 0f 4d  |..MOV R1,#0....M|
00000640  4f 56 20 52 32 2c 23 32  35 35 0d 02 e4 0f 4d 4f  |OV R2,#255....MO|
00000650  56 20 52 35 2c 23 32 35  35 0d 02 ee 0d 4d 4f 56  |V R5,#255....MOV|
00000660  20 52 36 2c 23 30 0d 02  f8 15 4c 44 52 20 52 39  | R6,#0....LDR R9|
00000670  2c 71 75 65 75 65 64 61  74 61 25 0d 03 02 16 4d  |,queuedata%....M|
00000680  4f 56 20 52 38 2c 23 30  3a 3b 20 53 74 6f 72 65  |OV R8,#0:; Store|
00000690  51 0d 03 0c 0f 4d 4f 56  20 52 30 2c 23 32 35 35  |Q....MOV R0,#255|
000006a0  0d 03 16 0b 2e 71 6c 6f  6f 70 25 0d 03 20 0d 4d  |.....qloop%.. .M|
000006b0  4f 56 20 52 33 2c 52 30  0d 03 2a 12 52 53 42 20  |OV R3,R0..*.RSB |
000006c0  52 34 2c 52 30 2c 23 32  35 35 0d 03 34 12 52 53  |R4,R0,#255..4.RS|
000006d0  42 20 52 37 2c 52 30 2c  23 32 35 35 0d 03 3e 27  |B R7,R0,#255..>'|
000006e0  53 54 4d 49 41 20 52 39  21 2c 7b 52 30 2d 52 31  |STMIA R9!,{R0-R1|
000006f0  2c 52 32 2d 52 33 2c 52  34 2d 52 35 2c 52 36 2d  |,R2-R3,R4-R5,R6-|
00000700  52 37 7d 0d 03 48 18 41  44 44 20 52 38 2c 52 38  |R7}..H.ADD R8,R8|
00000710  2c 23 34 3c 3c 33 32 2d  51 53 25 0d 03 52 11 53  |,#4<<32-QS%..R.S|
00000720  55 42 53 20 52 30 2c 52  30 2c 23 31 0d 03 5c 0e  |UBS R0,R0,#1..\.|
00000730  42 47 54 20 71 6c 6f 6f  70 25 0d 03 66 15 4d 4f  |BGT qloop%..f.MO|
00000740  56 20 52 37 2c 23 30 3a  3b 20 52 65 61 64 51 0d  |V R7,#0:; ReadQ.|
00000750  03 70 15 4c 44 52 20 52  39 2c 71 75 65 75 65 64  |.p.LDR R9,queued|
00000760  61 74 61 25 0d 03 7a 31  3b 20 4b 65 65 70 20 6f  |ata%..z1; Keep o|
00000770  6e 20 75 6e 71 75 65 75  65 69 6e 67 20 75 6e 74  |n unqueueing unt|
00000780  69 6c 20 74 68 65 20 71  75 65 75 65 20 69 73 20  |il the queue is |
00000790  65 6d 70 74 79 0d 03 84  0b 2e 71 6c 6f 6f 70 25  |empty.....qloop%|
000007a0  0d 03 8e 1e 41 44 44 20  52 31 30 2c 52 39 2c 52  |....ADD R10,R9,R|
000007b0  37 2c 4c 53 52 23 33 32  2d 51 53 25 2d 33 0d 03  |7,LSR#32-QS%-3..|
000007c0  98 17 4c 44 4d 49 41 20  52 31 30 2c 7b 52 31 30  |..LDMIA R10,{R10|
000007d0  2d 52 31 31 7d 0d 03 a2  18 41 44 44 20 52 37 2c  |-R11}....ADD R7,|
000007e0  52 37 2c 23 31 3c 3c 33  32 2d 51 53 25 0d 03 ac  |R7,#1<<32-QS%...|
000007f0  10 54 53 54 20 52 31 30  2c 23 32 35 36 0d 03 b6  |.TST R10,#256...|
00000800  12 54 53 54 45 51 20 52  31 31 2c 23 32 35 36 0d  |.TSTEQ R11,#256.|
00000810  03 c0 1f 42 4e 45 20 71  65 73 63 61 70 65 25 3a  |...BNE qescape%:|
00000820  3b 20 4f 66 66 20 74 68  65 20 73 69 64 65 0d 03  |; Off the side..|
00000830  ca 14 4c 44 52 20 52 32  2c 6d 61 73 6b 61 64 64  |..LDR R2,maskadd|
00000840  72 25 0d 03 d4 13 52 53  42 20 52 33 2c 52 31 31  |r%....RSB R3,R11|
00000850  2c 23 32 35 35 0d 03 de  16 41 44 44 20 52 33 2c  |,#255....ADD R3,|
00000860  52 33 2c 52 33 2c 41 53  4c 23 32 0d 03 e8 16 41  |R3,R3,ASL#2....A|
00000870  44 44 20 52 32 2c 52 32  2c 52 33 2c 41 53 4c 23  |DD R2,R2,R3,ASL#|
00000880  36 0d 03 f2 14 4c 44 52  42 20 52 33 2c 5b 52 32  |6....LDRB R3,[R2|
00000890  2c 52 31 30 5d 0d 03 fc  0f 43 4d 50 20 52 33 2c  |,R10]....CMP R3,|
000008a0  23 32 35 35 0d 04 06 25  42 4e 45 20 71 65 73 63  |#255...%BNE qesc|
000008b0  61 70 65 25 3a 3b 20 41  6c 72 65 61 64 79 20 63  |ape%:; Already c|
000008c0  61 6c 63 75 6c 61 74 65  64 0d 04 10 0d 4d 4f 56  |alculated....MOV|
000008d0  20 52 33 2c 23 30 0d 04  1a 23 53 54 52 42 20 52  | R3,#0...#STRB R|
000008e0  33 2c 5b 52 32 2c 52 31  30 5d 3a 3b 20 4d 61 72  |3,[R2,R10]:; Mar|
000008f0  6b 20 61 73 20 64 6f 6e  65 0d 04 24 1e 3b 20 43  |k as done..$.; C|
00000900  61 6c 63 75 6c 61 74 65  20 73 74 61 72 74 69 6e  |alculate startin|
00000910  67 20 70 6f 69 6e 74 0d  04 2e 0e 41 44 52 20 52  |g point....ADR R|
00000920  30 2c 63 78 25 0d 04 38  1f 4c 44 4d 49 41 20 52  |0,cx%..8.LDMIA R|
00000930  30 2c 7b 52 30 2d 52 32  7d 3a 3b 20 63 78 2c 63  |0,{R0-R2}:; cx,c|
00000940  79 2c 63 73 0d 04 42 15  4d 4c 41 20 52 31 32 2c  |y,cs..B.MLA R12,|
00000950  52 31 30 2c 52 32 2c 52  30 0d 04 4c 15 4d 4c 41  |R10,R2,R0..L.MLA|
00000960  20 52 31 33 2c 52 31 31  2c 52 32 2c 52 31 0d 04  | R13,R11,R2,R1..|
00000970  56 18 53 55 42 20 52 31  32 2c 52 31 32 2c 52 32  |V.SUB R12,R12,R2|
00000980  2c 41 53 4c 23 37 0d 04  60 18 53 55 42 20 52 31  |,ASL#7..`.SUB R1|
00000990  33 2c 52 31 33 2c 52 32  2c 41 53 4c 23 37 0d 04  |3,R13,R2,ASL#7..|
000009a0  6a 18 41 44 44 20 52 31  32 2c 52 31 32 2c 52 32  |j.ADD R12,R12,R2|
000009b0  2c 41 53 52 23 31 0d 04  74 18 41 44 44 20 52 31  |,ASR#1..t.ADD R1|
000009c0  33 2c 52 31 33 2c 52 32  2c 41 53 52 23 31 0d 04  |3,R13,R2,ASR#1..|
000009d0  7e 0e 4d 4f 56 20 52 30  2c 52 31 32 0d 04 88 0e  |~.MOV R0,R12....|
000009e0  4d 4f 56 20 52 31 2c 52  31 33 0d 04 92 0f 4d 4f  |MOV R1,R13....MO|
000009f0  56 20 52 32 2c 23 4d 49  25 0d 04 9c 0b 2e 69 6c  |V R2,#MI%.....il|
00000a00  6f 6f 70 25 0d 04 a6 1d  82 20 52 31 34 2c 52 30  |oop%..... R14,R0|
00000a10  2c 52 31 3a 3b 20 53 69  67 6e 20 6f 66 20 32 78  |,R1:; Sign of 2x|
00000a20  79 0d 04 b0 0d 43 4d 50  20 52 30 2c 23 30 0d 04  |y....CMP R0,#0..|
00000a30  ba 12 52 53 42 4c 54 20  52 30 2c 52 30 2c 23 30  |..RSBLT R0,R0,#0|
00000a40  0d 04 c4 0d 43 4d 50 20  52 31 2c 23 30 0d 04 ce  |....CMP R1,#0...|
00000a50  12 52 53 42 4c 54 20 52  31 2c 52 31 2c 23 30 0d  |.RSBLT R1,R1,#0.|
00000a60  04 d8 14 43 4d 50 20 52  30 2c 23 45 53 25 3c 3c  |...CMP R0,#ES%<<|
00000a70  41 43 25 0d 04 e2 16 43  4d 50 4c 54 20 52 31 2c  |AC%....CMPLT R1,|
00000a80  23 45 53 25 3c 3c 41 43  25 0d 04 ec 10 42 47 45  |#ES%<<AC%....BGE|
00000a90  20 69 65 73 63 61 70 65  25 0d 04 f6 1f 3b 20 53  | iescape%....; S|
00000aa0  70 6c 69 74 20 69 6e 74  6f 20 74 77 6f 20 31 36  |plit into two 16|
00000ab0  2d 62 69 74 20 6e 6f 73  0d 05 00 22 4d 4f 56 20  |-bit nos..."MOV |
00000ac0  52 34 2c 52 30 2c 4c 53  52 23 41 43 25 2f 32 3a  |R4,R0,LSR#AC%/2:|
00000ad0  3b 20 69 6e 20 41 43 25  2f 32 0d 05 0a 23 53 55  |; in AC%/2...#SU|
00000ae0  42 20 52 33 2c 52 30 2c  52 34 2c 4c 53 4c 23 41  |B R3,R0,R4,LSL#A|
00000af0  43 25 2f 32 3a 3b 20 69  6e 20 41 43 25 0d 05 14  |C%/2:; in AC%...|
00000b00  17 4d 4f 56 20 52 36 2c  52 31 2c 4c 53 52 23 41  |.MOV R6,R1,LSR#A|
00000b10  43 25 2f 32 0d 05 1e 1a  53 55 42 20 52 35 2c 52  |C%/2....SUB R5,R|
00000b20  31 2c 52 36 2c 4c 53 4c  23 41 43 25 2f 32 0d 05  |1,R6,LSL#AC%/2..|
00000b30  28 19 3b 20 50 75 74 20  78 32 2d 79 32 2b 61 20  |(.; Put x2-y2+a |
00000b40  69 6e 74 6f 20 52 30 0d  05 32 19 4d 55 4c 20 52  |into R0..2.MUL R|
00000b50  30 2c 52 34 2c 52 34 3a  3b 20 69 6e 20 41 43 25  |0,R4,R4:; in AC%|
00000b60  0d 05 3c 10 4d 55 4c 20  52 31 2c 52 36 2c 52 36  |..<.MUL R1,R6,R6|
00000b70  0d 05 46 18 41 44 44 20  52 30 2c 52 30 2c 52 31  |..F.ADD R0,R0,R1|
00000b80  3a 3b 20 78 32 2b 79 32  0d 05 50 18 43 4d 50 20  |:; x2+y2..P.CMP |
00000b90  52 30 2c 23 45 53 25 2a  45 53 25 3c 3c 41 43 25  |R0,#ES%*ES%<<AC%|
00000ba0  0d 05 5a 10 42 47 45 20  69 65 73 63 61 70 65 25  |..Z.BGE iescape%|
00000bb0  0d 05 64 1e 53 55 42 20  52 30 2c 52 30 2c 52 31  |..d.SUB R0,R0,R1|
00000bc0  2c 41 53 4c 23 31 3a 3b  20 78 32 2d 79 32 0d 05  |,ASL#1:; x2-y2..|
00000bd0  6e 1f 4d 55 4c 20 52 31  2c 52 33 2c 52 34 3a 3b  |n.MUL R1,R3,R4:;|
00000be0  20 69 6e 20 41 43 25 2b  41 43 25 2f 32 0d 05 78  | in AC%+AC%/2..x|
00000bf0  25 41 44 44 20 52 30 2c  52 30 2c 52 31 2c 41 53  |%ADD R0,R0,R1,AS|
00000c00  52 23 41 43 25 2f 32 2d  31 3a 3b 20 69 6e 20 41  |R#AC%/2-1:; in A|
00000c10  43 25 0d 05 82 10 4d 55  4c 20 52 31 2c 52 35 2c  |C%....MUL R1,R5,|
00000c20  52 36 0d 05 8c 1c 53 55  42 20 52 30 2c 52 30 2c  |R6....SUB R0,R0,|
00000c30  52 31 2c 41 53 52 23 41  43 25 2f 32 2d 31 0d 05  |R1,ASR#AC%/2-1..|
00000c40  96 11 41 44 44 20 52 30  2c 52 31 32 2c 52 30 0d  |..ADD R0,R12,R0.|
00000c50  05 a0 17 3b 20 50 75 74  20 32 78 79 2b 62 20 69  |...; Put 2xy+b i|
00000c60  6e 74 6f 20 52 31 0d 05  aa 19 4d 55 4c 20 52 31  |nto R1....MUL R1|
00000c70  2c 52 34 2c 52 36 3a 3b  20 69 6e 20 41 43 25 0d  |,R4,R6:; in AC%.|
00000c80  05 b4 1f 4d 55 4c 20 52  34 2c 52 35 2c 52 34 3a  |...MUL R4,R5,R4:|
00000c90  3b 20 69 6e 20 41 43 25  2b 41 43 25 2f 32 0d 05  |; in AC%+AC%/2..|
00000ca0  be 13 4d 4c 41 20 52 34  2c 52 33 2c 52 36 2c 52  |..MLA R4,R3,R6,R|
00000cb0  34 0d 05 c8 23 41 44 44  20 52 31 2c 52 31 2c 52  |4...#ADD R1,R1,R|
00000cc0  34 2c 4c 53 52 23 41 43  25 2f 32 3a 3b 20 69 6e  |4,LSR#AC%/2:; in|
00000cd0  20 41 43 25 0d 05 d2 20  54 53 54 20 52 31 34 2c  | AC%... TST R14,|
00000ce0  23 31 3c 3c 33 31 3a 3b  20 2b 76 65 20 6f 72 20  |#1<<31:; +ve or |
00000cf0  2d 76 65 3f 0d 05 dc 19  41 44 44 45 51 20 52 31  |-ve?....ADDEQ R1|
00000d00  2c 52 31 33 2c 52 31 2c  41 53 4c 23 31 0d 05 e6  |,R13,R1,ASL#1...|
00000d10  19 53 55 42 4e 45 20 52  31 2c 52 31 33 2c 52 31  |.SUBNE R1,R13,R1|
00000d20  2c 41 53 4c 23 31 0d 05  f0 11 53 55 42 53 20 52  |,ASL#1....SUBS R|
00000d30  32 2c 52 32 2c 23 31 0d  05 fa 0e 42 47 54 20 69  |2,R2,#1....BGT i|
00000d40  6c 6f 6f 70 25 0d 06 04  11 3b 20 49 74 20 69 73  |loop%....; It is|
00000d50  20 62 6c 61 63 6b 0d 06  0e 10 2e 69 65 73 63 72  | black.....iescr|
00000d60  65 74 75 72 6e 25 0d 06  18 0d 2e 71 65 73 63 61  |eturn%.....qesca|
00000d70  70 65 25 0d 06 22 0d 43  4d 50 20 52 37 2c 52 38  |pe%..".CMP R7,R8|
00000d80  0d 06 2c 0e 42 4e 45 20  71 6c 6f 6f 70 25 0d 06  |..,.BNE qloop%..|
00000d90  36 0f 4c 44 52 20 52 31  33 2c 73 70 25 0d 06 40  |6.LDR R13,sp%..@|
00000da0  11 4c 44 52 20 52 31 34  2c 6c 69 6e 6b 25 0d 06  |.LDR R14,link%..|
00000db0  4a 0e 4d 4f 56 20 50 43  2c 52 31 34 0d 06 54 05  |J.MOV PC,R14..T.|
00000dc0  3a 0d 06 5e 0d 2e 69 65  73 63 61 70 65 25 0d 06  |:..^..iescape%..|
00000dd0  68 10 52 53 42 20 52 32  2c 52 32 2c 23 30 0d 06  |h.RSB R2,R2,#0..|
00000de0  72 19 54 53 54 20 52 31  34 2c 23 31 3c 3c 33 31  |r.TST R14,#1<<31|
00000df0  3a 3b 20 53 69 67 6e 0d  06 7c 12 82 47 45 20 52  |:; Sign..|..GE R|
00000e00  32 2c 52 32 2c 23 31 32  38 0d 06 86 13 52 53 42  |2,R2,#128....RSB|
00000e10  20 52 30 2c 52 31 31 2c  23 32 35 35 0d 06 90 16  | R0,R11,#255....|
00000e20  41 44 44 20 52 30 2c 52  30 2c 52 30 2c 41 53 4c  |ADD R0,R0,R0,ASL|
00000e30  23 32 0d 06 9a 17 41 44  44 20 52 30 2c 52 31 30  |#2....ADD R0,R10|
00000e40  2c 52 30 2c 41 53 4c 23  36 0d 06 a4 13 4c 44 52  |,R0,ASL#6....LDR|
00000e50  20 52 31 2c 73 63 72 61  64 64 72 25 0d 06 ae 13  | R1,scraddr%....|
00000e60  53 54 52 42 20 52 32 2c  5b 52 31 2c 52 30 5d 0d  |STRB R2,[R1,R0].|
00000e70  06 b8 11 41 44 44 20 52  30 2c 52 31 30 2c 23 31  |...ADD R0,R10,#1|
00000e80  0d 06 c2 1d 41 44 44 20  52 31 2c 52 39 2c 52 38  |....ADD R1,R9,R8|
00000e90  2c 4c 53 52 23 33 32 2d  51 53 25 2d 33 0d 06 cc  |,LSR#32-QS%-3...|
00000ea0  15 53 54 4d 49 41 20 52  31 2c 7b 52 30 2c 52 31  |.STMIA R1,{R0,R1|
00000eb0  31 7d 0d 06 d6 18 41 44  44 20 52 38 2c 52 38 2c  |1}....ADD R8,R8,|
00000ec0  23 31 3c 3c 33 32 2d 51  53 25 0d 06 e0 11 53 55  |#1<<32-QS%....SU|
00000ed0  42 20 52 30 2c 52 31 30  2c 23 31 0d 06 ea 1d 41  |B R0,R10,#1....A|
00000ee0  44 44 20 52 31 2c 52 39  2c 52 38 2c 4c 53 52 23  |DD R1,R9,R8,LSR#|
00000ef0  33 32 2d 51 53 25 2d 33  0d 06 f4 15 53 54 4d 49  |32-QS%-3....STMI|
00000f00  41 20 52 31 2c 7b 52 30  2c 52 31 31 7d 0d 06 fe  |A R1,{R0,R11}...|
00000f10  18 41 44 44 20 52 38 2c  52 38 2c 23 31 3c 3c 33  |.ADD R8,R8,#1<<3|
00000f20  32 2d 51 53 25 0d 07 08  12 41 44 44 20 52 31 31  |2-QS%....ADD R11|
00000f30  2c 52 31 31 2c 23 31 0d  07 12 1d 41 44 44 20 52  |,R11,#1....ADD R|
00000f40  31 2c 52 39 2c 52 38 2c  4c 53 52 23 33 32 2d 51  |1,R9,R8,LSR#32-Q|
00000f50  53 25 2d 33 0d 07 1c 16  53 54 4d 49 41 20 52 31  |S%-3....STMIA R1|
00000f60  2c 7b 52 31 30 2c 52 31  31 7d 0d 07 26 18 41 44  |,{R10,R11}..&.AD|
00000f70  44 20 52 38 2c 52 38 2c  23 31 3c 3c 33 32 2d 51  |D R8,R8,#1<<32-Q|
00000f80  53 25 0d 07 30 12 53 55  42 20 52 31 31 2c 52 31  |S%..0.SUB R11,R1|
00000f90  31 2c 23 32 0d 07 3a 1d  41 44 44 20 52 31 2c 52  |1,#2..:.ADD R1,R|
00000fa0  39 2c 52 38 2c 4c 53 52  23 33 32 2d 51 53 25 2d  |9,R8,LSR#32-QS%-|
00000fb0  33 0d 07 44 16 53 54 4d  49 41 20 52 31 2c 7b 52  |3..D.STMIA R1,{R|
00000fc0  31 30 2c 52 31 31 7d 0d  07 4e 18 41 44 44 20 52  |10,R11}..N.ADD R|
00000fd0  38 2c 52 38 2c 23 31 3c  3c 33 32 2d 51 53 25 0d  |8,R8,#1<<32-QS%.|
00000fe0  07 58 11 42 20 69 65 73  63 72 65 74 75 72 6e 25  |.X.B iescreturn%|
00000ff0  0d 07 62 05 3a 0d 07 6c  10 2e 63 78 25 3a 45 51  |..b.:..l..cx%:EQ|
00001000  55 44 20 2d 31 0d 07 76  10 2e 63 79 25 3a 45 51  |UD -1..v..cy%:EQ|
00001010  55 44 20 2d 31 0d 07 80  10 2e 63 73 25 3a 45 51  |UD -1.....cs%:EQ|
00001020  55 44 20 2d 31 0d 07 8a  05 3a 0d 07 94 07 5d 3a  |UD -1....:....]:|
00001030  ed 0d 07 9e 05 e1 0d ff                           |........|
00001038