� � �:�;�:�
� code% 5000
carry=8
(Jaccuracy%=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_multiplication
nSTMFD R13!,{R14}
x
�/\A �UE � TEN CORRESPONDS � TERMINATING BYTE
�
�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

6  LDRB R4,[R3],#1

@  ADD R6,R6,#1

J  CMP R4,#10

TBNE loop_get_end2

^

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

r

|1ADD R7,R5,R6             \CONTAINS �TAL �GTHS

�

�+\REGISTERS AVAILABLE = R3,R4,R8-R12,R14

�

�\structure For..next loop-

�

�
MOV R3,#0

�
MOV R4,R2

�SUB R14,R7,#1 \LOOP COUNTER

�.for_loopify1

�  STRB R3,[R4],#1

�  SUBS R14,R14,#1

�BNE for_loopify1

�MOV R3,#10
STRB R3,[R4]

SUB R11,R6,#2
&.for_loopify2
0  MOV carry,#0
:  LDRB R3,[R1,R11]
D  ADD R4,R2,R11
N  ADD R4,R4,#1
X  SUB R10,R5,#2
b  .for_loopify3
l    LDRB R9,[R0,R10]
v    MUL R14,R3,R9
�    ADD R14,R14,carry
�    STMFD R13!,{R8}
�    LDRB R8,[R4,R10]
�    ADD R14,R14,R8
�
�     \ASSEMBLE � � � FUNCTION
�    STMFD R13!,{R0-R6}
�    MOV R0,R14
�    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
4
>    .division_loop
H    MOVS R0,R0,ASL#1
R    ADC R2,R2,R2
\    CMP R2,R1
f    SUBGE R2,R2,R1
p    �RGE R3,R3,R4
z    MOVS R4,R4,LSR#1
�    BNE division_loop
�
�    CMP R5,#0
�    RSBMI R3,R3,#0
�    CMP R6,#0
�    RSBMI R2,R2,#0
�
�    STR R3,divres
�    STR R2,modres
�
�    LDMFD R13!,{R0-R6}
�
�    LDR R8,modres
    STRB R8,[R4,R10]
    LDMFD R13!,{R8}
    LDR R8,divres
$    SUBS R10,R10,#1
.  BNE for_loopify3
8  STRB R8,[R4,R10]
B  SUBS R11,R11,#1
LBNE for_loopify2
V
`LDMFD R13!,{PC}
j
t.divres
~
EQUD 0
�.modres
�
EQUD 0
�.buffer
��Bytes(32)
�:
�.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(accuracy%*2)
2
<]
F�
P:
Z�
d� operand1$
n� operand2$
x
�operand1?0=0
�operand2?0=0
�� A=1 � �(operand1$)
�#operand1?(A)=�(�operand1$,A,1))
��
�operand1?(A)=10
�� A=1 � �(operand2$)
�#operand2?(A)=�(�operand2$,A,1))
��
�operand2?(A)=10
�� begin_multiplication
�A=1
��
� �((result?A));
A+=1
� result?(A+1)=10
"�
,
6
� �=17
@:
J�
T:
^ݤBytes(inc%)
hP%+=inc%
r=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 4a 61 63  |...carry=8..(Jac|
00000030  63 75 72 61 63 79 25 3d  38 30 30 20 3a f4 20 54  |curacy%=800 :. T|
00000040  48 49 53 20 49 53 20 54  48 45 20 4d 41 58 49 4d  |HIS IS THE MAXIM|
00000050  55 4d 20 4e 55 4d 42 45  52 20 4f 46 20 44 49 47  |UM NUMBER OF DIG|
00000060  49 54 53 20 54 4f 20 42  45 20 43 41 4c 43 55 4c  |ITS TO BE CALCUL|
00000070  41 54 45 44 0d 00 32 15  e3 20 70 61 73 73 25 3d  |ATED..2.. pass%=|
00000080  30 20 b8 20 33 20 88 20  33 0d 00 3c 0c 50 25 3d  |0 . 3 . 3..<.P%=|
00000090  63 6f 64 65 25 0d 00 46  05 5b 0d 00 50 0d 4f 50  |code%..F.[..P.OP|
000000a0  54 20 70 61 73 73 25 0d  00 5a 04 0d 00 64 19 2e  |T pass%..Z...d..|
000000b0  62 65 67 69 6e 5f 6d 75  6c 74 69 70 6c 69 63 61  |begin_multiplica|
000000c0  74 69 6f 6e 0d 00 6e 14  53 54 4d 46 44 20 52 31  |tion..n.STMFD R1|
000000d0  33 21 2c 7b 52 31 34 7d  0d 00 78 04 0d 00 82 2f  |3!,{R14}..x..../|
000000e0  5c 41 20 bb 55 45 20 ca  20 54 45 4e 20 43 4f 52  |\A .UE . TEN COR|
000000f0  52 45 53 50 4f 4e 44 53  20 b8 20 54 45 52 4d 49  |RESPONDS . TERMI|
00000100  4e 41 54 49 4e 47 20 42  59 54 45 0d 00 8c 04 0d  |NATING BYTE.....|
00000110  00 96 14 42 4c 20 67 65  74 5f 61 64 64 72 65 73  |...BL get_addres|
00000120  73 65 73 0d 00 a0 04 0d  00 aa 04 0d 00 b4 24 5c  |ses...........$\|
00000130  66 69 6e 64 20 65 6e 64  20 6f 66 20 6f 70 65 72  |find end of oper|
00000140  61 6e 64 31 20 80 20 6f  70 65 72 61 6e 64 32 0d  |and1 . operand2.|
00000150  00 be 04 0d 00 c8 0d 4d  4f 56 20 52 33 2c 52 30  |.......MOV R3,R0|
00000160  0d 00 d2 0d 4d 4f 56 20  52 35 2c 23 30 0d 00 dc  |....MOV R5,#0...|
00000170  12 2e 6c 6f 6f 70 5f 67  65 74 5f 65 6e 64 31 0d  |..loop_get_end1.|
00000180  00 e6 15 20 20 4c 44 52  42 20 52 34 2c 5b 52 33  |...  LDRB R4,[R3|
00000190  5d 2c 23 31 0d 00 f0 12  20 20 41 44 44 20 52 35  |],#1....  ADD R5|
000001a0  2c 52 35 2c 23 31 0d 00  fa 10 20 20 43 4d 50 20  |,R5,#1....  CMP |
000001b0  52 34 2c 23 31 30 0d 01  04 15 42 4e 45 20 6c 6f  |R4,#10....BNE lo|
000001c0  6f 70 5f 67 65 74 5f 65  6e 64 31 0d 01 0e 04 0d  |op_get_end1.....|
000001d0  01 18 0d 4d 4f 56 20 52  33 2c 52 31 0d 01 22 0d  |...MOV R3,R1..".|
000001e0  4d 4f 56 20 52 36 2c 23  30 0d 01 2c 12 2e 6c 6f  |MOV R6,#0..,..lo|
000001f0  6f 70 5f 67 65 74 5f 65  6e 64 32 0d 01 36 15 20  |op_get_end2..6. |
00000200  20 4c 44 52 42 20 52 34  2c 5b 52 33 5d 2c 23 31  | LDRB R4,[R3],#1|
00000210  0d 01 40 12 20 20 41 44  44 20 52 36 2c 52 36 2c  |..@.  ADD R6,R6,|
00000220  23 31 0d 01 4a 10 20 20  43 4d 50 20 52 34 2c 23  |#1..J.  CMP R4,#|
00000230  31 30 0d 01 54 15 42 4e  45 20 6c 6f 6f 70 5f 67  |10..T.BNE loop_g|
00000240  65 74 5f 65 6e 64 32 0d  01 5e 04 0d 01 68 42 5c  |et_end2..^...hB\|
00000250  a9 47 54 48 20 ca 20 4f  50 45 52 41 4e 44 20 31  |.GTH . OPERAND 1|
00000260  20 49 53 20 52 45 54 55  52 4e 45 44 20 49 4e 20  | IS RETURNED IN |
00000270  52 35 2c 20 a9 47 54 48  20 ca 20 4f 50 45 52 41  |R5, .GTH . OPERA|
00000280  4e 44 20 32 20 49 53 20  49 4e 20 52 36 0d 01 72  |ND 2 IS IN R6..r|
00000290  04 0d 01 7c 31 41 44 44  20 52 37 2c 52 35 2c 52  |...|1ADD R7,R5,R|
000002a0  36 20 20 20 20 20 20 20  20 20 20 20 20 20 5c 43  |6             \C|
000002b0  4f 4e 54 41 49 4e 53 20  b8 54 41 4c 20 a9 47 54  |ONTAINS .TAL .GT|
000002c0  48 53 0d 01 86 04 0d 01  90 2b 5c 52 45 47 49 53  |HS.......+\REGIS|
000002d0  54 45 52 53 20 41 56 41  49 4c 41 42 4c 45 20 3d  |TERS AVAILABLE =|
000002e0  20 52 33 2c 52 34 2c 52  38 2d 52 31 32 2c 52 31  | R3,R4,R8-R12,R1|
000002f0  34 0d 01 9a 04 0d 01 a4  1e 5c 73 74 72 75 63 74  |4........\struct|
00000300  75 72 65 20 46 6f 72 2e  2e 6e 65 78 74 20 6c 6f  |ure For..next lo|
00000310  6f 70 2d 0d 01 ae 04 0d  01 b8 0d 4d 4f 56 20 52  |op-........MOV R|
00000320  33 2c 23 30 0d 01 c2 0d  4d 4f 56 20 52 34 2c 52  |3,#0....MOV R4,R|
00000330  32 0d 01 cc 1f 53 55 42  20 52 31 34 2c 52 37 2c  |2....SUB R14,R7,|
00000340  23 31 20 5c 4c 4f 4f 50  20 43 4f 55 4e 54 45 52  |#1 \LOOP COUNTER|
00000350  0d 01 d6 11 2e 66 6f 72  5f 6c 6f 6f 70 69 66 79  |.....for_loopify|
00000360  31 0d 01 e0 15 20 20 53  54 52 42 20 52 33 2c 5b  |1....  STRB R3,[|
00000370  52 34 5d 2c 23 31 0d 01  ea 15 20 20 53 55 42 53  |R4],#1....  SUBS|
00000380  20 52 31 34 2c 52 31 34  2c 23 31 0d 01 f4 14 42  | R14,R14,#1....B|
00000390  4e 45 20 66 6f 72 5f 6c  6f 6f 70 69 66 79 31 0d  |NE for_loopify1.|
000003a0  01 fe 0e 4d 4f 56 20 52  33 2c 23 31 30 0d 02 08  |...MOV R3,#10...|
000003b0  10 53 54 52 42 20 52 33  2c 5b 52 34 5d 0d 02 12  |.STRB R3,[R4]...|
000003c0  04 0d 02 1c 11 53 55 42  20 52 31 31 2c 52 36 2c  |.....SUB R11,R6,|
000003d0  23 32 0d 02 26 11 2e 66  6f 72 5f 6c 6f 6f 70 69  |#2..&..for_loopi|
000003e0  66 79 32 0d 02 30 12 20  20 4d 4f 56 20 63 61 72  |fy2..0.  MOV car|
000003f0  72 79 2c 23 30 0d 02 3a  16 20 20 4c 44 52 42 20  |ry,#0..:.  LDRB |
00000400  52 33 2c 5b 52 31 2c 52  31 31 5d 0d 02 44 13 20  |R3,[R1,R11]..D. |
00000410  20 41 44 44 20 52 34 2c  52 32 2c 52 31 31 0d 02  | ADD R4,R2,R11..|
00000420  4e 12 20 20 41 44 44 20  52 34 2c 52 34 2c 23 31  |N.  ADD R4,R4,#1|
00000430  0d 02 58 13 20 20 53 55  42 20 52 31 30 2c 52 35  |..X.  SUB R10,R5|
00000440  2c 23 32 0d 02 62 13 20  20 2e 66 6f 72 5f 6c 6f  |,#2..b.  .for_lo|
00000450  6f 70 69 66 79 33 0d 02  6c 18 20 20 20 20 4c 44  |opify3..l.    LD|
00000460  52 42 20 52 39 2c 5b 52  30 2c 52 31 30 5d 0d 02  |RB R9,[R0,R10]..|
00000470  76 15 20 20 20 20 4d 55  4c 20 52 31 34 2c 52 33  |v.    MUL R14,R3|
00000480  2c 52 39 0d 02 80 19 20  20 20 20 41 44 44 20 52  |,R9....    ADD R|
00000490  31 34 2c 52 31 34 2c 63  61 72 72 79 0d 02 8a 17  |14,R14,carry....|
000004a0  20 20 20 20 53 54 4d 46  44 20 52 31 33 21 2c 7b  |    STMFD R13!,{|
000004b0  52 38 7d 0d 02 94 18 20  20 20 20 4c 44 52 42 20  |R8}....    LDRB |
000004c0  52 38 2c 5b 52 34 2c 52  31 30 5d 0d 02 9e 16 20  |R8,[R4,R10].... |
000004d0  20 20 20 41 44 44 20 52  31 34 2c 52 31 34 2c 52  |   ADD R14,R14,R|
000004e0  38 0d 02 a8 04 0d 02 b2  20 20 20 20 20 5c 41 53  |8.......     \AS|
000004f0  53 45 4d 42 4c 45 20 83  20 80 20 81 20 46 55 4e  |SEMBLE . . . FUN|
00000500  43 54 49 4f 4e 0d 02 bc  1a 20 20 20 20 53 54 4d  |CTION....    STM|
00000510  46 44 20 52 31 33 21 2c  7b 52 30 2d 52 36 7d 0d  |FD R13!,{R0-R6}.|
00000520  02 c6 12 20 20 20 20 4d  4f 56 20 52 30 2c 52 31  |...    MOV R0,R1|
00000530  34 0d 02 d0 12 20 20 20  20 4d 4f 56 20 52 31 2c  |4....    MOV R1,|
00000540  23 31 30 0d 02 da 17 20  20 20 20 80 53 20 52 36  |#10....    .S R6|
00000550  2c 52 30 2c 23 31 3c 3c  33 31 0d 02 e4 16 20 20  |,R0,#1<<31....  |
00000560  20 20 52 53 42 4d 49 20  52 30 2c 52 30 2c 23 30  |  RSBMI R0,R0,#0|
00000570  0d 02 ee 12 20 20 20 20  82 20 52 35 2c 52 36 2c  |....    . R5,R6,|
00000580  52 31 0d 02 f8 11 20 20  20 20 43 4d 50 20 52 31  |R1....    CMP R1|
00000590  2c 23 30 0d 03 02 16 20  20 20 20 52 53 42 4d 49  |,#0....    RSBMI|
000005a0  20 52 31 2c 52 31 2c 23  30 0d 03 0c 04 0d 03 16  | R1,R1,#0.......|
000005b0  11 20 20 20 20 4d 4f 56  20 52 32 2c 23 30 0d 03  |.    MOV R2,#0..|
000005c0  20 11 20 20 20 20 4d 4f  56 20 52 33 2c 23 30 0d  | .    MOV R3,#0.|
000005d0  03 2a 15 20 20 20 20 4d  4f 56 20 52 34 2c 23 31  |.*.    MOV R4,#1|
000005e0  3c 3c 33 31 0d 03 34 04  0d 03 3e 16 20 20 20 20  |<<31..4...>.    |
000005f0  2e 64 69 76 69 73 69 6f  6e 5f 6c 6f 6f 70 0d 03  |.division_loop..|
00000600  48 18 20 20 20 20 4d 4f  56 53 20 52 30 2c 52 30  |H.    MOVS R0,R0|
00000610  2c 41 53 4c 23 31 0d 03  52 14 20 20 20 20 41 44  |,ASL#1..R.    AD|
00000620  43 20 52 32 2c 52 32 2c  52 32 0d 03 5c 11 20 20  |C R2,R2,R2..\.  |
00000630  20 20 43 4d 50 20 52 32  2c 52 31 0d 03 66 16 20  |  CMP R2,R1..f. |
00000640  20 20 20 53 55 42 47 45  20 52 32 2c 52 32 2c 52  |   SUBGE R2,R2,R|
00000650  31 0d 03 70 15 20 20 20  20 84 52 47 45 20 52 33  |1..p.    .RGE R3|
00000660  2c 52 33 2c 52 34 0d 03  7a 18 20 20 20 20 4d 4f  |,R3,R4..z.    MO|
00000670  56 53 20 52 34 2c 52 34  2c 4c 53 52 23 31 0d 03  |VS R4,R4,LSR#1..|
00000680  84 19 20 20 20 20 42 4e  45 20 64 69 76 69 73 69  |..    BNE divisi|
00000690  6f 6e 5f 6c 6f 6f 70 0d  03 8e 04 0d 03 98 11 20  |on_loop........ |
000006a0  20 20 20 43 4d 50 20 52  35 2c 23 30 0d 03 a2 16  |   CMP R5,#0....|
000006b0  20 20 20 20 52 53 42 4d  49 20 52 33 2c 52 33 2c  |    RSBMI R3,R3,|
000006c0  23 30 0d 03 ac 11 20 20  20 20 43 4d 50 20 52 36  |#0....    CMP R6|
000006d0  2c 23 30 0d 03 b6 16 20  20 20 20 52 53 42 4d 49  |,#0....    RSBMI|
000006e0  20 52 32 2c 52 32 2c 23  30 0d 03 c0 04 0d 03 ca  | R2,R2,#0.......|
000006f0  15 20 20 20 20 53 54 52  20 52 33 2c 64 69 76 72  |.    STR R3,divr|
00000700  65 73 0d 03 d4 15 20 20  20 20 53 54 52 20 52 32  |es....    STR R2|
00000710  2c 6d 6f 64 72 65 73 0d  03 de 04 0d 03 e8 1a 20  |,modres........ |
00000720  20 20 20 4c 44 4d 46 44  20 52 31 33 21 2c 7b 52  |   LDMFD R13!,{R|
00000730  30 2d 52 36 7d 0d 03 f2  04 0d 03 fc 15 20 20 20  |0-R6}........   |
00000740  20 4c 44 52 20 52 38 2c  6d 6f 64 72 65 73 0d 04  | LDR R8,modres..|
00000750  06 18 20 20 20 20 53 54  52 42 20 52 38 2c 5b 52  |..    STRB R8,[R|
00000760  34 2c 52 31 30 5d 0d 04  10 17 20 20 20 20 4c 44  |4,R10]....    LD|
00000770  4d 46 44 20 52 31 33 21  2c 7b 52 38 7d 0d 04 1a  |MFD R13!,{R8}...|
00000780  15 20 20 20 20 4c 44 52  20 52 38 2c 64 69 76 72  |.    LDR R8,divr|
00000790  65 73 0d 04 24 17 20 20  20 20 53 55 42 53 20 52  |es..$.    SUBS R|
000007a0  31 30 2c 52 31 30 2c 23  31 0d 04 2e 16 20 20 42  |10,R10,#1....  B|
000007b0  4e 45 20 66 6f 72 5f 6c  6f 6f 70 69 66 79 33 0d  |NE for_loopify3.|
000007c0  04 38 16 20 20 53 54 52  42 20 52 38 2c 5b 52 34  |.8.  STRB R8,[R4|
000007d0  2c 52 31 30 5d 0d 04 42  15 20 20 53 55 42 53 20  |,R10]..B.  SUBS |
000007e0  52 31 31 2c 52 31 31 2c  23 31 0d 04 4c 14 42 4e  |R11,R11,#1..L.BN|
000007f0  45 20 66 6f 72 5f 6c 6f  6f 70 69 66 79 32 0d 04  |E for_loopify2..|
00000800  56 04 0d 04 60 13 4c 44  4d 46 44 20 52 31 33 21  |V...`.LDMFD R13!|
00000810  2c 7b 50 43 7d 0d 04 6a  04 0d 04 74 0b 2e 64 69  |,{PC}..j...t..di|
00000820  76 72 65 73 0d 04 7e 0a  45 51 55 44 20 30 0d 04  |vres..~.EQUD 0..|
00000830  88 0b 2e 6d 6f 64 72 65  73 0d 04 92 0a 45 51 55  |...modres....EQU|
00000840  44 20 30 0d 04 9c 0b 2e  62 75 66 66 65 72 0d 04  |D 0.....buffer..|
00000850  a6 0e a4 42 79 74 65 73  28 33 32 29 0d 04 b0 05  |...Bytes(32)....|
00000860  3a 0d 04 ba 12 2e 67 65  74 5f 61 64 64 72 65 73  |:.....get_addres|
00000870  73 65 73 0d 04 c4 14 53  54 4d 46 44 20 52 31 33  |ses....STMFD R13|
00000880  21 2c 7b 52 31 34 7d 0d  04 ce 13 41 44 52 20 52  |!,{R14}....ADR R|
00000890  30 2c 6f 70 65 72 61 6e  64 31 0d 04 d8 13 41 44  |0,operand1....AD|
000008a0  52 20 52 31 2c 6f 70 65  72 61 6e 64 32 0d 04 e2  |R R1,operand2...|
000008b0  11 41 44 52 20 52 32 2c  72 65 73 75 6c 74 0d 04  |.ADR R2,result..|
000008c0  ec 13 4c 44 4d 46 44 20  52 31 33 21 2c 7b 50 43  |..LDMFD R13!,{PC|
000008d0  7d 0d 04 f6 0d 2e 6f 70  65 72 61 6e 64 31 0d 05  |}.....operand1..|
000008e0  00 15 a4 42 79 74 65 73  28 61 63 63 75 72 61 63  |...Bytes(accurac|
000008f0  79 25 29 0d 05 0a 0d 2e  6f 70 65 72 61 6e 64 32  |y%).....operand2|
00000900  0d 05 14 15 a4 42 79 74  65 73 28 61 63 63 75 72  |.....Bytes(accur|
00000910  61 63 79 25 29 0d 05 1e  0b 2e 72 65 73 75 6c 74  |acy%).....result|
00000920  0d 05 28 17 a4 42 79 74  65 73 28 61 63 63 75 72  |..(..Bytes(accur|
00000930  61 63 79 25 2a 32 29 0d  05 32 04 0d 05 3c 05 5d  |acy%*2)..2...<.]|
00000940  0d 05 46 05 ed 0d 05 50  05 3a 0d 05 5a 05 f5 0d  |..F....P.:..Z...|
00000950  05 64 0f e8 20 6f 70 65  72 61 6e 64 31 24 0d 05  |.d.. operand1$..|
00000960  6e 0f e8 20 6f 70 65 72  61 6e 64 32 24 0d 05 78  |n.. operand2$..x|
00000970  04 0d 05 82 10 6f 70 65  72 61 6e 64 31 3f 30 3d  |.....operand1?0=|
00000980  30 0d 05 8c 10 6f 70 65  72 61 6e 64 32 3f 30 3d  |0....operand2?0=|
00000990  30 0d 05 96 18 e3 20 41  3d 31 20 b8 20 a9 28 6f  |0..... A=1 . .(o|
000009a0  70 65 72 61 6e 64 31 24  29 0d 05 a0 23 6f 70 65  |perand1$)...#ope|
000009b0  72 61 6e 64 31 3f 28 41  29 3d bb 28 c1 6f 70 65  |rand1?(A)=.(.ope|
000009c0  72 61 6e 64 31 24 2c 41  2c 31 29 29 0d 05 aa 05  |rand1$,A,1))....|
000009d0  ed 0d 05 b4 13 6f 70 65  72 61 6e 64 31 3f 28 41  |.....operand1?(A|
000009e0  29 3d 31 30 0d 05 be 18  e3 20 41 3d 31 20 b8 20  |)=10..... A=1 . |
000009f0  a9 28 6f 70 65 72 61 6e  64 32 24 29 0d 05 c8 23  |.(operand2$)...#|
00000a00  6f 70 65 72 61 6e 64 32  3f 28 41 29 3d bb 28 c1  |operand2?(A)=.(.|
00000a10  6f 70 65 72 61 6e 64 32  24 2c 41 2c 31 29 29 0d  |operand2$,A,1)).|
00000a20  05 d2 05 ed 0d 05 dc 13  6f 70 65 72 61 6e 64 32  |........operand2|
00000a30  3f 28 41 29 3d 31 30 0d  05 e6 1a d6 20 62 65 67  |?(A)=10..... beg|
00000a40  69 6e 5f 6d 75 6c 74 69  70 6c 69 63 61 74 69 6f  |in_multiplicatio|
00000a50  6e 0d 05 f0 07 41 3d 31  0d 05 fa 05 f5 0d 06 04  |n....A=1........|
00000a60  14 f1 20 c3 28 28 72 65  73 75 6c 74 3f 41 29 29  |.. .((result?A))|
00000a70  3b 0d 06 0e 08 41 2b 3d  31 0d 06 18 15 fd 20 72  |;....A+=1..... r|
00000a80  65 73 75 6c 74 3f 28 41  2b 31 29 3d 31 30 0d 06  |esult?(A+1)=10..|
00000a90  22 05 f1 0d 06 2c 04 0d  06 36 0a fd 20 9f 3d 31  |"....,...6.. .=1|
00000aa0  37 0d 06 40 05 3a 0d 06  4a 05 e0 0d 06 54 05 3a  |7..@.:..J....T.:|
00000ab0  0d 06 5e 11 dd a4 42 79  74 65 73 28 69 6e 63 25  |..^...Bytes(inc%|
00000ac0  29 0d 06 68 0c 50 25 2b  3d 69 6e 63 25 0d 06 72  |)..h.P%+=inc%..r|
00000ad0  06 3d 30 0d ff                                    |.=0..|
00000ad5