� � �:�;�:�
� code% 5000
carry=8
(Laccuracy%=800   :� THIS IS THE MAXIMUM NUMBER OF DIGITS TO BE CALCULATED
2� pass%=0 � 3 � 3
<P%=code%
F[
P
OPT pass%
Z
d.begin_addition
nSTMFD R13!,{R14}
x
�BL get_addresses
�
�$\find end of operand1 � operand2
�
�
MOV R3,R0
�
MOV R5,#0
�.loop_get_end1
�  LDRB R4,[R3],#1
�  ADD R5,R5,#1
�  CMP R4,#10
�BNE loop_get_end1
�
�
MOV R3,R1


MOV R6,#0

.loop_get_end2

  LDRB R4,[R3],#1

"  ADD R6,R6,#1

,  CMP R4,#10

6BNE loop_get_end2

@

JB\�GTH � OPERAND 1 IS RETURNED IN R5, �GTH � OPERAND 2 IS IN R6

T

^!SUB R3,R5,R6      \R3 IS DIFF

h
CMP R3,#0

rRSBLT R3,R3,#0

|
CMP R5,R6

�MOVLT R4,R1

�MOVLT R1,R0

�MOVLT R0,R4

�

�%MOVGT R4,R5      \R4 IS MAXLENGTH

�MOVLE R4,R6

�

�MOV carry,#0

�

�\structure for...next loop

�

�SUB R4,R4,#2

�
MOV R7,R4
  .for_loopify1c
  LDRB R9,[R0,R7]    \Q1%
  SUBS R14,R7,R3
&  LDRGTB R10,[R1,R14]
0  MOVLE R10,#0       \Q2%
:  ADD R9,R9,R10
D  ADD R9,R9,carry
N
X
b     \ASSEMBLE � � � FUNCTION
l    STMFD R13!,{R0-R6}
v    MOV R0,R9
�    MOV R1,#10
�    �S R6,R0,#1<<31
�    RSBMI R0,R0,#0
�    � R5,R6,R1
�    CMP R1,#0
�    RSBMI R1,R1,#0
�
�    MOV R2,#0
�    MOV R3,#0
�    MOV R4,#1<<31
�
�    .division_loop
�    MOVS R0,R0,ASL#1
    ADC R2,R2,R2
    CMP R2,R1
    SUBGE R2,R2,R1
     �RGE R3,R3,R4
*    MOVS R4,R4,LSR#1
4    BNE division_loop
>
H    CMP R5,#0
R    RSBMI R3,R3,#0
\    CMP R6,#0
f    RSBMI R2,R2,#0
p
z    STR R3,divres
�    STR R2,modres
�
�    LDMFD R13!,{R0-R6}
�
�  LDR R14,modres
�  STRB R14,[R2,R7]
�  LDR carry,divres
�
�  SUBS R7,R7,#1
�
�BNE for_loopify1c
�CMP carry,#0
�STRNEB carry,[R2]
MOV R14,#10
ADD R4,R4,#2
STRB R14,[R2,R4]
$
.
8LDMFD R13!,{PC}
B
L.divres
V
EQUD 0
`.modres
j
EQUD 0
t
~
�.get_addresses
�STMFD R13!,{R14}
�ADR R0,operand1
�ADR R1,operand2
�ADR R2,result
�LDMFD R13!,{PC}
�
.operand1
��Bytes(accuracy%)
�
.operand2
��Bytes(accuracy%)
�.result
��Bytes(2*accuracy%)


]
�
:
(�
2� operand1$
<� operand2$
F
Poperand1?0=0
Zoperand2?0=0
d� A=1 � �(operand1$)
n#operand1?(A)=�(�operand1$,A,1))
x�
�operand1?(A)=10
�� A=1 � �(operand2$)
�#operand2?(A)=�(�operand2$,A,1))
��
�operand2?(A)=10
�� begin_addition
�A=1
��
�� �((result?A));
�A+=1
�� result?(A+1)=10
��
�

� �=17
:
�
":
,ݤBytes(inc%)
6P%+=inc%
@=0
�

00000000  0d 00 0a 0f ee 20 85 20  f6 3a f1 3b 9e 3a e0 0d  |..... . .:.;.:..|
00000010  00 14 10 de 20 63 6f 64  65 25 20 35 30 30 30 0d  |.... code% 5000.|
00000020  00 1e 0b 63 61 72 72 79  3d 38 0d 00 28 4c 61 63  |...carry=8..(Lac|
00000030  63 75 72 61 63 79 25 3d  38 30 30 20 20 20 3a f4  |curacy%=800   :.|
00000040  20 54 48 49 53 20 49 53  20 54 48 45 20 4d 41 58  | THIS IS THE MAX|
00000050  49 4d 55 4d 20 4e 55 4d  42 45 52 20 4f 46 20 44  |IMUM NUMBER OF D|
00000060  49 47 49 54 53 20 54 4f  20 42 45 20 43 41 4c 43  |IGITS TO BE CALC|
00000070  55 4c 41 54 45 44 0d 00  32 15 e3 20 70 61 73 73  |ULATED..2.. pass|
00000080  25 3d 30 20 b8 20 33 20  88 20 33 0d 00 3c 0c 50  |%=0 . 3 . 3..<.P|
00000090  25 3d 63 6f 64 65 25 0d  00 46 05 5b 0d 00 50 0d  |%=code%..F.[..P.|
000000a0  4f 50 54 20 70 61 73 73  25 0d 00 5a 04 0d 00 64  |OPT pass%..Z...d|
000000b0  13 2e 62 65 67 69 6e 5f  61 64 64 69 74 69 6f 6e  |..begin_addition|
000000c0  0d 00 6e 14 53 54 4d 46  44 20 52 31 33 21 2c 7b  |..n.STMFD R13!,{|
000000d0  52 31 34 7d 0d 00 78 04  0d 00 82 14 42 4c 20 67  |R14}..x.....BL g|
000000e0  65 74 5f 61 64 64 72 65  73 73 65 73 0d 00 8c 04  |et_addresses....|
000000f0  0d 00 96 24 5c 66 69 6e  64 20 65 6e 64 20 6f 66  |...$\find end of|
00000100  20 6f 70 65 72 61 6e 64  31 20 80 20 6f 70 65 72  | operand1 . oper|
00000110  61 6e 64 32 0d 00 a0 04  0d 00 aa 0d 4d 4f 56 20  |and2........MOV |
00000120  52 33 2c 52 30 0d 00 b4  0d 4d 4f 56 20 52 35 2c  |R3,R0....MOV R5,|
00000130  23 30 0d 00 be 12 2e 6c  6f 6f 70 5f 67 65 74 5f  |#0.....loop_get_|
00000140  65 6e 64 31 0d 00 c8 15  20 20 4c 44 52 42 20 52  |end1....  LDRB R|
00000150  34 2c 5b 52 33 5d 2c 23  31 0d 00 d2 12 20 20 41  |4,[R3],#1....  A|
00000160  44 44 20 52 35 2c 52 35  2c 23 31 0d 00 dc 10 20  |DD R5,R5,#1.... |
00000170  20 43 4d 50 20 52 34 2c  23 31 30 0d 00 e6 15 42  | CMP R4,#10....B|
00000180  4e 45 20 6c 6f 6f 70 5f  67 65 74 5f 65 6e 64 31  |NE loop_get_end1|
00000190  0d 00 f0 04 0d 00 fa 0d  4d 4f 56 20 52 33 2c 52  |........MOV R3,R|
000001a0  31 0d 01 04 0d 4d 4f 56  20 52 36 2c 23 30 0d 01  |1....MOV R6,#0..|
000001b0  0e 12 2e 6c 6f 6f 70 5f  67 65 74 5f 65 6e 64 32  |...loop_get_end2|
000001c0  0d 01 18 15 20 20 4c 44  52 42 20 52 34 2c 5b 52  |....  LDRB R4,[R|
000001d0  33 5d 2c 23 31 0d 01 22  12 20 20 41 44 44 20 52  |3],#1..".  ADD R|
000001e0  36 2c 52 36 2c 23 31 0d  01 2c 10 20 20 43 4d 50  |6,R6,#1..,.  CMP|
000001f0  20 52 34 2c 23 31 30 0d  01 36 15 42 4e 45 20 6c  | R4,#10..6.BNE l|
00000200  6f 6f 70 5f 67 65 74 5f  65 6e 64 32 0d 01 40 04  |oop_get_end2..@.|
00000210  0d 01 4a 42 5c a9 47 54  48 20 ca 20 4f 50 45 52  |..JB\.GTH . OPER|
00000220  41 4e 44 20 31 20 49 53  20 52 45 54 55 52 4e 45  |AND 1 IS RETURNE|
00000230  44 20 49 4e 20 52 35 2c  20 a9 47 54 48 20 ca 20  |D IN R5, .GTH . |
00000240  4f 50 45 52 41 4e 44 20  32 20 49 53 20 49 4e 20  |OPERAND 2 IS IN |
00000250  52 36 0d 01 54 04 0d 01  5e 21 53 55 42 20 52 33  |R6..T...^!SUB R3|
00000260  2c 52 35 2c 52 36 20 20  20 20 20 20 5c 52 33 20  |,R5,R6      \R3 |
00000270  49 53 20 44 49 46 46 0d  01 68 0d 43 4d 50 20 52  |IS DIFF..h.CMP R|
00000280  33 2c 23 30 0d 01 72 12  52 53 42 4c 54 20 52 33  |3,#0..r.RSBLT R3|
00000290  2c 52 33 2c 23 30 0d 01  7c 0d 43 4d 50 20 52 35  |,R3,#0..|.CMP R5|
000002a0  2c 52 36 0d 01 86 0f 4d  4f 56 4c 54 20 52 34 2c  |,R6....MOVLT R4,|
000002b0  52 31 0d 01 90 0f 4d 4f  56 4c 54 20 52 31 2c 52  |R1....MOVLT R1,R|
000002c0  30 0d 01 9a 0f 4d 4f 56  4c 54 20 52 30 2c 52 34  |0....MOVLT R0,R4|
000002d0  0d 01 a4 04 0d 01 ae 25  4d 4f 56 47 54 20 52 34  |.......%MOVGT R4|
000002e0  2c 52 35 20 20 20 20 20  20 5c 52 34 20 49 53 20  |,R5      \R4 IS |
000002f0  4d 41 58 4c 45 4e 47 54  48 0d 01 b8 0f 4d 4f 56  |MAXLENGTH....MOV|
00000300  4c 45 20 52 34 2c 52 36  0d 01 c2 04 0d 01 cc 10  |LE R4,R6........|
00000310  4d 4f 56 20 63 61 72 72  79 2c 23 30 0d 01 d6 04  |MOV carry,#0....|
00000320  0d 01 e0 1e 5c 73 74 72  75 63 74 75 72 65 20 66  |....\structure f|
00000330  6f 72 2e 2e 2e 6e 65 78  74 20 6c 6f 6f 70 0d 01  |or...next loop..|
00000340  ea 04 0d 01 f4 10 53 55  42 20 52 34 2c 52 34 2c  |......SUB R4,R4,|
00000350  23 32 0d 01 fe 0d 4d 4f  56 20 52 37 2c 52 34 0d  |#2....MOV R7,R4.|
00000360  02 08 14 20 20 2e 66 6f  72 5f 6c 6f 6f 70 69 66  |...  .for_loopif|
00000370  79 31 63 0d 02 12 1d 20  20 4c 44 52 42 20 52 39  |y1c....  LDRB R9|
00000380  2c 5b 52 30 2c 52 37 5d  20 20 20 20 5c 51 31 25  |,[R0,R7]    \Q1%|
00000390  0d 02 1c 14 20 20 53 55  42 53 20 52 31 34 2c 52  |....  SUBS R14,R|
000003a0  37 2c 52 33 0d 02 26 19  20 20 4c 44 52 47 54 42  |7,R3..&.  LDRGTB|
000003b0  20 52 31 30 2c 5b 52 31  2c 52 31 34 5d 0d 02 30  | R10,[R1,R14]..0|
000003c0  1d 20 20 4d 4f 56 4c 45  20 52 31 30 2c 23 30 20  |.  MOVLE R10,#0 |
000003d0  20 20 20 20 20 20 5c 51  32 25 0d 02 3a 13 20 20  |      \Q2%..:.  |
000003e0  41 44 44 20 52 39 2c 52  39 2c 52 31 30 0d 02 44  |ADD R9,R9,R10..D|
000003f0  15 20 20 41 44 44 20 52  39 2c 52 39 2c 63 61 72  |.  ADD R9,R9,car|
00000400  72 79 0d 02 4e 04 0d 02  58 04 0d 02 62 20 20 20  |ry..N...X...b   |
00000410  20 20 5c 41 53 53 45 4d  42 4c 45 20 83 20 80 20  |  \ASSEMBLE . . |
00000420  81 20 46 55 4e 43 54 49  4f 4e 0d 02 6c 1a 20 20  |. FUNCTION..l.  |
00000430  20 20 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 30  |  STMFD R13!,{R0|
00000440  2d 52 36 7d 0d 02 76 11  20 20 20 20 4d 4f 56 20  |-R6}..v.    MOV |
00000450  52 30 2c 52 39 0d 02 80  12 20 20 20 20 4d 4f 56  |R0,R9....    MOV|
00000460  20 52 31 2c 23 31 30 0d  02 8a 17 20 20 20 20 80  | R1,#10....    .|
00000470  53 20 52 36 2c 52 30 2c  23 31 3c 3c 33 31 0d 02  |S R6,R0,#1<<31..|
00000480  94 16 20 20 20 20 52 53  42 4d 49 20 52 30 2c 52  |..    RSBMI R0,R|
00000490  30 2c 23 30 0d 02 9e 12  20 20 20 20 82 20 52 35  |0,#0....    . R5|
000004a0  2c 52 36 2c 52 31 0d 02  a8 11 20 20 20 20 43 4d  |,R6,R1....    CM|
000004b0  50 20 52 31 2c 23 30 0d  02 b2 16 20 20 20 20 52  |P R1,#0....    R|
000004c0  53 42 4d 49 20 52 31 2c  52 31 2c 23 30 0d 02 bc  |SBMI R1,R1,#0...|
000004d0  04 0d 02 c6 11 20 20 20  20 4d 4f 56 20 52 32 2c  |.....    MOV R2,|
000004e0  23 30 0d 02 d0 11 20 20  20 20 4d 4f 56 20 52 33  |#0....    MOV R3|
000004f0  2c 23 30 0d 02 da 15 20  20 20 20 4d 4f 56 20 52  |,#0....    MOV R|
00000500  34 2c 23 31 3c 3c 33 31  0d 02 e4 04 0d 02 ee 16  |4,#1<<31........|
00000510  20 20 20 20 2e 64 69 76  69 73 69 6f 6e 5f 6c 6f  |    .division_lo|
00000520  6f 70 0d 02 f8 18 20 20  20 20 4d 4f 56 53 20 52  |op....    MOVS R|
00000530  30 2c 52 30 2c 41 53 4c  23 31 0d 03 02 14 20 20  |0,R0,ASL#1....  |
00000540  20 20 41 44 43 20 52 32  2c 52 32 2c 52 32 0d 03  |  ADC R2,R2,R2..|
00000550  0c 11 20 20 20 20 43 4d  50 20 52 32 2c 52 31 0d  |..    CMP R2,R1.|
00000560  03 16 16 20 20 20 20 53  55 42 47 45 20 52 32 2c  |...    SUBGE R2,|
00000570  52 32 2c 52 31 0d 03 20  15 20 20 20 20 84 52 47  |R2,R1.. .    .RG|
00000580  45 20 52 33 2c 52 33 2c  52 34 0d 03 2a 18 20 20  |E R3,R3,R4..*.  |
00000590  20 20 4d 4f 56 53 20 52  34 2c 52 34 2c 4c 53 52  |  MOVS R4,R4,LSR|
000005a0  23 31 0d 03 34 19 20 20  20 20 42 4e 45 20 64 69  |#1..4.    BNE di|
000005b0  76 69 73 69 6f 6e 5f 6c  6f 6f 70 0d 03 3e 04 0d  |vision_loop..>..|
000005c0  03 48 11 20 20 20 20 43  4d 50 20 52 35 2c 23 30  |.H.    CMP R5,#0|
000005d0  0d 03 52 16 20 20 20 20  52 53 42 4d 49 20 52 33  |..R.    RSBMI R3|
000005e0  2c 52 33 2c 23 30 0d 03  5c 11 20 20 20 20 43 4d  |,R3,#0..\.    CM|
000005f0  50 20 52 36 2c 23 30 0d  03 66 16 20 20 20 20 52  |P R6,#0..f.    R|
00000600  53 42 4d 49 20 52 32 2c  52 32 2c 23 30 0d 03 70  |SBMI R2,R2,#0..p|
00000610  04 0d 03 7a 15 20 20 20  20 53 54 52 20 52 33 2c  |...z.    STR R3,|
00000620  64 69 76 72 65 73 0d 03  84 15 20 20 20 20 53 54  |divres....    ST|
00000630  52 20 52 32 2c 6d 6f 64  72 65 73 0d 03 8e 04 0d  |R R2,modres.....|
00000640  03 98 1a 20 20 20 20 4c  44 4d 46 44 20 52 31 33  |...    LDMFD R13|
00000650  21 2c 7b 52 30 2d 52 36  7d 0d 03 a2 04 0d 03 ac  |!,{R0-R6}.......|
00000660  14 20 20 4c 44 52 20 52  31 34 2c 6d 6f 64 72 65  |.  LDR R14,modre|
00000670  73 0d 03 b6 16 20 20 53  54 52 42 20 52 31 34 2c  |s....  STRB R14,|
00000680  5b 52 32 2c 52 37 5d 0d  03 c0 16 20 20 4c 44 52  |[R2,R7]....  LDR|
00000690  20 63 61 72 72 79 2c 64  69 76 72 65 73 0d 03 ca  | carry,divres...|
000006a0  04 0d 03 d4 13 20 20 53  55 42 53 20 52 37 2c 52  |.....  SUBS R7,R|
000006b0  37 2c 23 31 0d 03 de 04  0d 03 e8 15 42 4e 45 20  |7,#1........BNE |
000006c0  66 6f 72 5f 6c 6f 6f 70  69 66 79 31 63 0d 03 f2  |for_loopify1c...|
000006d0  10 43 4d 50 20 63 61 72  72 79 2c 23 30 0d 03 fc  |.CMP carry,#0...|
000006e0  15 53 54 52 4e 45 42 20  63 61 72 72 79 2c 5b 52  |.STRNEB carry,[R|
000006f0  32 5d 0d 04 06 0f 4d 4f  56 20 52 31 34 2c 23 31  |2]....MOV R14,#1|
00000700  30 0d 04 10 10 41 44 44  20 52 34 2c 52 34 2c 23  |0....ADD R4,R4,#|
00000710  32 0d 04 1a 14 53 54 52  42 20 52 31 34 2c 5b 52  |2....STRB R14,[R|
00000720  32 2c 52 34 5d 0d 04 24  04 0d 04 2e 04 0d 04 38  |2,R4]..$.......8|
00000730  13 4c 44 4d 46 44 20 52  31 33 21 2c 7b 50 43 7d  |.LDMFD R13!,{PC}|
00000740  0d 04 42 04 0d 04 4c 0b  2e 64 69 76 72 65 73 0d  |..B...L..divres.|
00000750  04 56 0a 45 51 55 44 20  30 0d 04 60 0b 2e 6d 6f  |.V.EQUD 0..`..mo|
00000760  64 72 65 73 0d 04 6a 0a  45 51 55 44 20 30 0d 04  |dres..j.EQUD 0..|
00000770  74 04 0d 04 7e 04 0d 04  88 12 2e 67 65 74 5f 61  |t...~......get_a|
00000780  64 64 72 65 73 73 65 73  0d 04 92 14 53 54 4d 46  |ddresses....STMF|
00000790  44 20 52 31 33 21 2c 7b  52 31 34 7d 0d 04 9c 13  |D R13!,{R14}....|
000007a0  41 44 52 20 52 30 2c 6f  70 65 72 61 6e 64 31 0d  |ADR R0,operand1.|
000007b0  04 a6 13 41 44 52 20 52  31 2c 6f 70 65 72 61 6e  |...ADR R1,operan|
000007c0  64 32 0d 04 b0 11 41 44  52 20 52 32 2c 72 65 73  |d2....ADR R2,res|
000007d0  75 6c 74 0d 04 ba 13 4c  44 4d 46 44 20 52 31 33  |ult....LDMFD R13|
000007e0  21 2c 7b 50 43 7d 0d 04  c4 0d 2e 6f 70 65 72 61  |!,{PC}.....opera|
000007f0  6e 64 31 0d 04 ce 15 a4  42 79 74 65 73 28 61 63  |nd1.....Bytes(ac|
00000800  63 75 72 61 63 79 25 29  0d 04 d8 0d 2e 6f 70 65  |curacy%).....ope|
00000810  72 61 6e 64 32 0d 04 e2  15 a4 42 79 74 65 73 28  |rand2.....Bytes(|
00000820  61 63 63 75 72 61 63 79  25 29 0d 04 ec 0b 2e 72  |accuracy%).....r|
00000830  65 73 75 6c 74 0d 04 f6  17 a4 42 79 74 65 73 28  |esult.....Bytes(|
00000840  32 2a 61 63 63 75 72 61  63 79 25 29 0d 05 00 04  |2*accuracy%)....|
00000850  0d 05 0a 05 5d 0d 05 14  05 ed 0d 05 1e 05 3a 0d  |....].........:.|
00000860  05 28 05 f5 0d 05 32 0f  e8 20 6f 70 65 72 61 6e  |.(....2.. operan|
00000870  64 31 24 0d 05 3c 0f e8  20 6f 70 65 72 61 6e 64  |d1$..<.. operand|
00000880  32 24 0d 05 46 04 0d 05  50 10 6f 70 65 72 61 6e  |2$..F...P.operan|
00000890  64 31 3f 30 3d 30 0d 05  5a 10 6f 70 65 72 61 6e  |d1?0=0..Z.operan|
000008a0  64 32 3f 30 3d 30 0d 05  64 18 e3 20 41 3d 31 20  |d2?0=0..d.. A=1 |
000008b0  b8 20 a9 28 6f 70 65 72  61 6e 64 31 24 29 0d 05  |. .(operand1$)..|
000008c0  6e 23 6f 70 65 72 61 6e  64 31 3f 28 41 29 3d bb  |n#operand1?(A)=.|
000008d0  28 c1 6f 70 65 72 61 6e  64 31 24 2c 41 2c 31 29  |(.operand1$,A,1)|
000008e0  29 0d 05 78 05 ed 0d 05  82 13 6f 70 65 72 61 6e  |)..x......operan|
000008f0  64 31 3f 28 41 29 3d 31  30 0d 05 8c 18 e3 20 41  |d1?(A)=10..... A|
00000900  3d 31 20 b8 20 a9 28 6f  70 65 72 61 6e 64 32 24  |=1 . .(operand2$|
00000910  29 0d 05 96 23 6f 70 65  72 61 6e 64 32 3f 28 41  |)...#operand2?(A|
00000920  29 3d bb 28 c1 6f 70 65  72 61 6e 64 32 24 2c 41  |)=.(.operand2$,A|
00000930  2c 31 29 29 0d 05 a0 05  ed 0d 05 aa 13 6f 70 65  |,1)).........ope|
00000940  72 61 6e 64 32 3f 28 41  29 3d 31 30 0d 05 b4 14  |rand2?(A)=10....|
00000950  d6 20 62 65 67 69 6e 5f  61 64 64 69 74 69 6f 6e  |. begin_addition|
00000960  0d 05 be 07 41 3d 31 0d  05 c8 05 f5 0d 05 d2 14  |....A=1.........|
00000970  f1 20 c3 28 28 72 65 73  75 6c 74 3f 41 29 29 3b  |. .((result?A));|
00000980  0d 05 dc 08 41 2b 3d 31  0d 05 e6 15 fd 20 72 65  |....A+=1..... re|
00000990  73 75 6c 74 3f 28 41 2b  31 29 3d 31 30 0d 05 f0  |sult?(A+1)=10...|
000009a0  05 f1 0d 05 fa 04 0d 06  04 0a fd 20 9f 3d 31 37  |........... .=17|
000009b0  0d 06 0e 05 3a 0d 06 18  05 e0 0d 06 22 05 3a 0d  |....:.......".:.|
000009c0  06 2c 11 dd a4 42 79 74  65 73 28 69 6e 63 25 29  |.,...Bytes(inc%)|
000009d0  0d 06 36 0c 50 25 2b 3d  69 6e 63 25 0d 06 40 06  |..6.P%+=inc%..@.|
000009e0  3d 30 0d ff                                       |=0..|
000009e4