�     >ARM2
� By  Dave Lawrence
� For 32-bit machines
(� (c) BAU April 1993
2:
<p=5
Fx=6
Py=7
Za=8
db=9
narray=10
xfrom=11
�to=4
�sp=13:link=14:pc=15
�� code 400
�� pass=0 � 2 � 2:P%=code
�
[OPT pass
�	.sort
�STMFD   (sp)!,{link}
�
�STR     sp,top_sp
�
�MOV     array,R0
�MOV     from,#1
�MOV     to,R1

BL      quick_sort



.exit_sort

"LDMFD   (sp)!,{pc}

,

6.top_sp EQUD    0

@

J.quick_sort

TSTMFD   (sp)!,{link}

^

h!SWI     "XOS_ReadEscapeState"

rLDRCS   sp,top_sp

|BCS     exit_sort

�

�ADD     p,from,to

�MOV     p,p,ASR #1

�LDR     p,[array,p,ASL #2]

�SUB     a,from,#1

�ADD     b,to,#1

�

�
.qs_loop1

�ADD     a,a,#1

�LDR     x,[array,a,ASL #2]

�CMP     x,p

�BLT     qs_loop1

�

.qs_loop2
SUB     b,b,#1
LDR     y,[array,b,ASL #2]
&CMP     y,p
0BGT     qs_loop2
:
DCMP     a,b
NSTRLT   x,[array,b,ASL #2]
XSTRLT   y,[array,a,ASL #2]
bBLE     qs_loop1
l
vSTMFD   (sp)!,{b,from,to}
�CMP     a,to
�MOVLT   from,a
�BLLT    quick_sort
�
�LDMFD   (sp)!,{b,from,to}
�CMP     b,from
�MOVGT   to,b
�BLGT    quick_sort
�
�LDMFD   (sp)!,{pc}
�
�]
��
numbers=100
� block (numbers+1)*4
� i=1 � numbers
  block!(i*4)=�(100000)
* �,block!(i*4);
4�
>�
HA%=block
RB%=numbers
\�'"Sorting..."
f
� sort
p� i=1 � numbers
z �,block!(i*4);
��
��
�

00000000  0d 00 0a 0f f4 20 20 20  20 20 3e 41 52 4d 32 0d  |.....     >ARM2.|
00000010  00 14 17 f4 20 42 79 20  20 44 61 76 65 20 4c 61  |.... By  Dave La|
00000020  77 72 65 6e 63 65 0d 00  1e 19 f4 20 46 6f 72 20  |wrence..... For |
00000030  33 32 2d 62 69 74 20 6d  61 63 68 69 6e 65 73 0d  |32-bit machines.|
00000040  00 28 18 f4 20 28 63 29  20 42 41 55 20 41 70 72  |.(.. (c) BAU Apr|
00000050  69 6c 20 31 39 39 33 0d  00 32 05 3a 0d 00 3c 07  |il 1993..2.:..<.|
00000060  70 3d 35 0d 00 46 07 78  3d 36 0d 00 50 07 79 3d  |p=5..F.x=6..P.y=|
00000070  37 0d 00 5a 07 61 3d 38  0d 00 64 07 62 3d 39 0d  |7..Z.a=8..d.b=9.|
00000080  00 6e 0c 61 72 72 61 79  3d 31 30 0d 00 78 0b 66  |.n.array=10..x.f|
00000090  72 6f 6d 3d 31 31 0d 00  82 08 74 6f 3d 34 0d 00  |rom=11....to=4..|
000000a0  8c 17 73 70 3d 31 33 3a  6c 69 6e 6b 3d 31 34 3a  |..sp=13:link=14:|
000000b0  70 63 3d 31 35 0d 00 96  0e de 20 63 6f 64 65 20  |pc=15..... code |
000000c0  34 30 30 0d 00 a0 1c e3  20 70 61 73 73 3d 30 20  |400..... pass=0 |
000000d0  b8 20 32 20 88 20 32 3a  50 25 3d 63 6f 64 65 0d  |. 2 . 2:P%=code.|
000000e0  00 aa 0d 5b 4f 50 54 20  70 61 73 73 0d 00 b4 09  |...[OPT pass....|
000000f0  2e 73 6f 72 74 0d 00 be  18 53 54 4d 46 44 20 20  |.sort....STMFD  |
00000100  20 28 73 70 29 21 2c 7b  6c 69 6e 6b 7d 0d 00 c8  | (sp)!,{link}...|
00000110  04 0d 00 d2 15 53 54 52  20 20 20 20 20 73 70 2c  |.....STR     sp,|
00000120  74 6f 70 5f 73 70 0d 00  dc 04 0d 00 e6 14 4d 4f  |top_sp........MO|
00000130  56 20 20 20 20 20 61 72  72 61 79 2c 52 30 0d 00  |V     array,R0..|
00000140  f0 13 4d 4f 56 20 20 20  20 20 66 72 6f 6d 2c 23  |..MOV     from,#|
00000150  31 0d 00 fa 11 4d 4f 56  20 20 20 20 20 74 6f 2c  |1....MOV     to,|
00000160  52 31 0d 01 04 16 42 4c  20 20 20 20 20 20 71 75  |R1....BL      qu|
00000170  69 63 6b 5f 73 6f 72 74  0d 01 0e 04 0d 01 18 0e  |ick_sort........|
00000180  2e 65 78 69 74 5f 73 6f  72 74 0d 01 22 16 4c 44  |.exit_sort..".LD|
00000190  4d 46 44 20 20 20 28 73  70 29 21 2c 7b 70 63 7d  |MFD   (sp)!,{pc}|
000001a0  0d 01 2c 04 0d 01 36 15  2e 74 6f 70 5f 73 70 20  |..,...6..top_sp |
000001b0  45 51 55 44 20 20 20 20  30 0d 01 40 04 0d 01 4a  |EQUD    0..@...J|
000001c0  0f 2e 71 75 69 63 6b 5f  73 6f 72 74 0d 01 54 18  |..quick_sort..T.|
000001d0  53 54 4d 46 44 20 20 20  28 73 70 29 21 2c 7b 6c  |STMFD   (sp)!,{l|
000001e0  69 6e 6b 7d 0d 01 5e 04  0d 01 68 21 53 57 49 20  |ink}..^...h!SWI |
000001f0  20 20 20 20 22 58 4f 53  5f 52 65 61 64 45 73 63  |    "XOS_ReadEsc|
00000200  61 70 65 53 74 61 74 65  22 0d 01 72 15 4c 44 52  |apeState"..r.LDR|
00000210  43 53 20 20 20 73 70 2c  74 6f 70 5f 73 70 0d 01  |CS   sp,top_sp..|
00000220  7c 15 42 43 53 20 20 20  20 20 65 78 69 74 5f 73  ||.BCS     exit_s|
00000230  6f 72 74 0d 01 86 04 0d  01 90 15 41 44 44 20 20  |ort........ADD  |
00000240  20 20 20 70 2c 66 72 6f  6d 2c 74 6f 0d 01 9a 16  |   p,from,to....|
00000250  4d 4f 56 20 20 20 20 20  70 2c 70 2c 41 53 52 20  |MOV     p,p,ASR |
00000260  23 31 0d 01 a4 1e 4c 44  52 20 20 20 20 20 70 2c  |#1....LDR     p,|
00000270  5b 61 72 72 61 79 2c 70  2c 41 53 4c 20 23 32 5d  |[array,p,ASL #2]|
00000280  0d 01 ae 15 53 55 42 20  20 20 20 20 61 2c 66 72  |....SUB     a,fr|
00000290  6f 6d 2c 23 31 0d 01 b8  13 41 44 44 20 20 20 20  |om,#1....ADD    |
000002a0  20 62 2c 74 6f 2c 23 31  0d 01 c2 04 0d 01 cc 0d  | b,to,#1........|
000002b0  2e 71 73 5f 6c 6f 6f 70  31 0d 01 d6 12 41 44 44  |.qs_loop1....ADD|
000002c0  20 20 20 20 20 61 2c 61  2c 23 31 0d 01 e0 1e 4c  |     a,a,#1....L|
000002d0  44 52 20 20 20 20 20 78  2c 5b 61 72 72 61 79 2c  |DR     x,[array,|
000002e0  61 2c 41 53 4c 20 23 32  5d 0d 01 ea 0f 43 4d 50  |a,ASL #2]....CMP|
000002f0  20 20 20 20 20 78 2c 70  0d 01 f4 14 42 4c 54 20  |     x,p....BLT |
00000300  20 20 20 20 71 73 5f 6c  6f 6f 70 31 0d 01 fe 04  |    qs_loop1....|
00000310  0d 02 08 0d 2e 71 73 5f  6c 6f 6f 70 32 0d 02 12  |.....qs_loop2...|
00000320  12 53 55 42 20 20 20 20  20 62 2c 62 2c 23 31 0d  |.SUB     b,b,#1.|
00000330  02 1c 1e 4c 44 52 20 20  20 20 20 79 2c 5b 61 72  |...LDR     y,[ar|
00000340  72 61 79 2c 62 2c 41 53  4c 20 23 32 5d 0d 02 26  |ray,b,ASL #2]..&|
00000350  0f 43 4d 50 20 20 20 20  20 79 2c 70 0d 02 30 14  |.CMP     y,p..0.|
00000360  42 47 54 20 20 20 20 20  71 73 5f 6c 6f 6f 70 32  |BGT     qs_loop2|
00000370  0d 02 3a 04 0d 02 44 0f  43 4d 50 20 20 20 20 20  |..:...D.CMP     |
00000380  61 2c 62 0d 02 4e 1e 53  54 52 4c 54 20 20 20 78  |a,b..N.STRLT   x|
00000390  2c 5b 61 72 72 61 79 2c  62 2c 41 53 4c 20 23 32  |,[array,b,ASL #2|
000003a0  5d 0d 02 58 1e 53 54 52  4c 54 20 20 20 79 2c 5b  |]..X.STRLT   y,[|
000003b0  61 72 72 61 79 2c 61 2c  41 53 4c 20 23 32 5d 0d  |array,a,ASL #2].|
000003c0  02 62 14 42 4c 45 20 20  20 20 20 71 73 5f 6c 6f  |.b.BLE     qs_lo|
000003d0  6f 70 31 0d 02 6c 04 0d  02 76 1d 53 54 4d 46 44  |op1..l...v.STMFD|
000003e0  20 20 20 28 73 70 29 21  2c 7b 62 2c 66 72 6f 6d  |   (sp)!,{b,from|
000003f0  2c 74 6f 7d 0d 02 80 10  43 4d 50 20 20 20 20 20  |,to}....CMP     |
00000400  61 2c 74 6f 0d 02 8a 12  4d 4f 56 4c 54 20 20 20  |a,to....MOVLT   |
00000410  66 72 6f 6d 2c 61 0d 02  94 16 42 4c 4c 54 20 20  |from,a....BLLT  |
00000420  20 20 71 75 69 63 6b 5f  73 6f 72 74 0d 02 9e 04  |  quick_sort....|
00000430  0d 02 a8 1d 4c 44 4d 46  44 20 20 20 28 73 70 29  |....LDMFD   (sp)|
00000440  21 2c 7b 62 2c 66 72 6f  6d 2c 74 6f 7d 0d 02 b2  |!,{b,from,to}...|
00000450  12 43 4d 50 20 20 20 20  20 62 2c 66 72 6f 6d 0d  |.CMP     b,from.|
00000460  02 bc 10 4d 4f 56 47 54  20 20 20 74 6f 2c 62 0d  |...MOVGT   to,b.|
00000470  02 c6 16 42 4c 47 54 20  20 20 20 71 75 69 63 6b  |...BLGT    quick|
00000480  5f 73 6f 72 74 0d 02 d0  04 0d 02 da 16 4c 44 4d  |_sort........LDM|
00000490  46 44 20 20 20 28 73 70  29 21 2c 7b 70 63 7d 0d  |FD   (sp)!,{pc}.|
000004a0  02 e4 04 0d 02 ee 05 5d  0d 02 f8 05 ed 0d 03 02  |.......]........|
000004b0  0f 6e 75 6d 62 65 72 73  3d 31 30 30 0d 03 0c 19  |.numbers=100....|
000004c0  de 20 62 6c 6f 63 6b 20  28 6e 75 6d 62 65 72 73  |. block (numbers|
000004d0  2b 31 29 2a 34 0d 03 16  13 e3 20 69 3d 31 20 b8  |+1)*4..... i=1 .|
000004e0  20 6e 75 6d 62 65 72 73  0d 03 20 1a 20 62 6c 6f  | numbers.. . blo|
000004f0  63 6b 21 28 69 2a 34 29  3d b3 28 31 30 30 30 30  |ck!(i*4)=.(10000|
00000500  30 29 0d 03 2a 13 20 f1  2c 62 6c 6f 63 6b 21 28  |0)..*. .,block!(|
00000510  69 2a 34 29 3b 0d 03 34  05 ed 0d 03 3e 05 f1 0d  |i*4);..4....>...|
00000520  03 48 0c 41 25 3d 62 6c  6f 63 6b 0d 03 52 0e 42  |.H.A%=block..R.B|
00000530  25 3d 6e 75 6d 62 65 72  73 0d 03 5c 12 f1 27 22  |%=numbers..\..'"|
00000540  53 6f 72 74 69 6e 67 2e  2e 2e 22 0d 03 66 0a d6  |Sorting..."..f..|
00000550  20 73 6f 72 74 0d 03 70  13 e3 20 69 3d 31 20 b8  | sort..p.. i=1 .|
00000560  20 6e 75 6d 62 65 72 73  0d 03 7a 13 20 f1 2c 62  | numbers..z. .,b|
00000570  6c 6f 63 6b 21 28 69 2a  34 29 3b 0d 03 84 05 ed  |lock!(i*4);.....|
00000580  0d 03 8e 05 f1 0d ff                              |.......|
00000587