� Program 3a
�
8� Demonstrate the object plotting mechanism in BASIC
(:
2� Read in the object file
<:
FA%=�("Acorn_net")
P� #A%,pt%,tri%
ZS� p(pt%,2),tri%(tri%,2),tp(pt%,2),countarray%(31),tri_c%(tri%),array_% tri%*8+8
d�n%=0 � pt%
n!� #A%,p(n%,0),p(n%,1),p(n%,2)
x�
��n%=0 � tri%
�*� #A%,tri%(n%,0),tri%(n%,1),tri%(n%,2)
�tri_c%(n%)=n% � 127
��
�	� #A%
�:
�.� Set screen mode and angle/bank variables
�:
�� code% 36
�P%=code%
�
[OPT 0
�swi 256+22
�swi &20100+21

movvc pc,r14

swi 256+22

swi &20100+15

"movvc pc,r14

,swi 256+22

6swi 256+13

@mov pc,r14

J]

T
� code%:�

^:

h� Animation loop

r&v%=1024:bk%=1:angx=0:angy=0:angz=0

|�

�angx+=2:angy-=1:angz+=1.5

�:

�� Swap screen banks

�:

�ș"OS_Byte",112,bk%

�
bk%=3-bk%

�Ȗ

�ș"OS_Byte",113,bk%

��

�E�6,0);"Number of points = ";pt%'"   Number of triangles = ";tri%

�:

�"� Transform vertices of object

�:
cosx=��(angx):sinx=��(angx)
cosy=��(angy):siny=��(angy)
cosz=��(angz):sinz=��(angz)
&�n%=0 � pt%
0 x1=p(n%,0)*cosy+p(n%,2)*siny
:!z1=-p(n%,0)*siny+p(n%,2)*cosy
Dy1=p(n%,1)*cosx+z1*sinx
Nz=-p(n%,1)*sinx+z1*cosx+7
Xx=x1*cosz+y1*sinz
by=-x1*sinz+y1*cosz
l6tp(n%,0)=640+v%*x/z:tp(n%,1)=512+v%*y/z:tp(n%,2)=z
v�
�:
�#� Find forward facing triangles
�:
�to_plot%=-1
��n%=0 � tri%
�-ax%=tp(tri%(n%,0),0):ay%=tp(tri%(n%,0),1)
�-bx%=tp(tri%(n%,1),0):by%=tp(tri%(n%,1),1)
�-cx%=tp(tri%(n%,2),0):cy%=tp(tri%(n%,2),1)
�7� bx%*cy%+cx%*ay%+ax%*by%<bx%*ay%+cx%*by%+ax%*cy% �
�?az=tp(tri%(n%,0),2):bz=tp(tri%(n%,1),2):cz=tp(tri%(n%,2),2)
�� bz<az iz=bz � iz=az
�� cz<az iz=cz
�@to_plot%+=1:array_%!(to_plot%<<2)=(n%<<16)+(iz+az+bz+cz)*128
�
�
*� "Number of tris plotted = ";to_plot%
 :
*� Sort the triangles
4:
>-array%=array_%:altarray%=array_%+tri%*4+4
H
�r%=0 � 2
R�count_sort(r%)
\�
f:
p� Plot the sorted triangles
z:
��n%=to_plot% � 0 � -1
�f%=array%!(n%<<2)>>16
�� tri_c%(f%)
�'� tp(tri%(f%,0),0),tp(tri%(f%,0),1)
�'� tp(tri%(f%,1),0),tp(tri%(f%,1),1)
�*� 85,tp(tri%(f%,2),0),tp(tri%(f%,2),1)
��
�� �
��
�:
���count_sort(radix%)
�countarray%()=0
�shf%=radix%*5:msk%=31<<shf%
�n%=0 � to_plot%
1countarray%((array%!(n%<<2) � msk%)>>shf%)+=1
�
$countarray%(0)-=1
.�n%=1 � 31
8&countarray%(n%)+=countarray%(n%-1)
B�
L�n%=to_plot% � 0 � -1
Va%=array%!(n%<<2)
`i%=(a% � msk%)>>shf%
j%altarray%!(countarray%(i%)<<2)=a%
tcountarray%(i%)-=1
~�
�Ȕ array%,altarray%
��
�

00000000  0d 00 0a 10 f4 20 50 72  6f 67 72 61 6d 20 33 61  |..... Program 3a|
00000010  0d 00 14 05 f4 0d 00 1e  38 f4 20 44 65 6d 6f 6e  |........8. Demon|
00000020  73 74 72 61 74 65 20 74  68 65 20 6f 62 6a 65 63  |strate the objec|
00000030  74 20 70 6c 6f 74 74 69  6e 67 20 6d 65 63 68 61  |t plotting mecha|
00000040  6e 69 73 6d 20 69 6e 20  42 41 53 49 43 0d 00 28  |nism in BASIC..(|
00000050  05 3a 0d 00 32 1d f4 20  52 65 61 64 20 69 6e 20  |.:..2.. Read in |
00000060  74 68 65 20 6f 62 6a 65  63 74 20 66 69 6c 65 0d  |the object file.|
00000070  00 3c 05 3a 0d 00 46 15  41 25 3d 8e 28 22 41 63  |.<.:..F.A%=.("Ac|
00000080  6f 72 6e 5f 6e 65 74 22  29 0d 00 50 12 e8 20 23  |orn_net")..P.. #|
00000090  41 25 2c 70 74 25 2c 74  72 69 25 0d 00 5a 53 de  |A%,pt%,tri%..ZS.|
000000a0  20 70 28 70 74 25 2c 32  29 2c 74 72 69 25 28 74  | p(pt%,2),tri%(t|
000000b0  72 69 25 2c 32 29 2c 74  70 28 70 74 25 2c 32 29  |ri%,2),tp(pt%,2)|
000000c0  2c 63 6f 75 6e 74 61 72  72 61 79 25 28 33 31 29  |,countarray%(31)|
000000d0  2c 74 72 69 5f 63 25 28  74 72 69 25 29 2c 61 72  |,tri_c%(tri%),ar|
000000e0  72 61 79 5f 25 20 74 72  69 25 2a 38 2b 38 0d 00  |ray_% tri%*8+8..|
000000f0  64 0f e3 6e 25 3d 30 20  b8 20 70 74 25 0d 00 6e  |d..n%=0 . pt%..n|
00000100  21 e8 20 23 41 25 2c 70  28 6e 25 2c 30 29 2c 70  |!. #A%,p(n%,0),p|
00000110  28 6e 25 2c 31 29 2c 70  28 6e 25 2c 32 29 0d 00  |(n%,1),p(n%,2)..|
00000120  78 05 ed 0d 00 82 10 e3  6e 25 3d 30 20 b8 20 74  |x.......n%=0 . t|
00000130  72 69 25 0d 00 8c 2a e8  20 23 41 25 2c 74 72 69  |ri%...*. #A%,tri|
00000140  25 28 6e 25 2c 30 29 2c  74 72 69 25 28 6e 25 2c  |%(n%,0),tri%(n%,|
00000150  31 29 2c 74 72 69 25 28  6e 25 2c 32 29 0d 00 96  |1),tri%(n%,2)...|
00000160  17 74 72 69 5f 63 25 28  6e 25 29 3d 6e 25 20 80  |.tri_c%(n%)=n% .|
00000170  20 31 32 37 0d 00 a0 05  ed 0d 00 aa 09 d9 20 23  | 127.......... #|
00000180  41 25 0d 00 b4 05 3a 0d  00 be 2e f4 20 53 65 74  |A%....:..... Set|
00000190  20 73 63 72 65 65 6e 20  6d 6f 64 65 20 61 6e 64  | screen mode and|
000001a0  20 61 6e 67 6c 65 2f 62  61 6e 6b 20 76 61 72 69  | angle/bank vari|
000001b0  61 62 6c 65 73 0d 00 c8  05 3a 0d 00 d2 0e de 20  |ables....:..... |
000001c0  63 6f 64 65 25 20 33 36  0d 00 dc 0c 50 25 3d 63  |code% 36....P%=c|
000001d0  6f 64 65 25 0d 00 e6 0a  5b 4f 50 54 20 30 0d 00  |ode%....[OPT 0..|
000001e0  f0 0e 73 77 69 20 32 35  36 2b 32 32 0d 00 fa 11  |..swi 256+22....|
000001f0  73 77 69 20 26 32 30 31  30 30 2b 32 31 0d 01 04  |swi &20100+21...|
00000200  10 6d 6f 76 76 63 20 70  63 2c 72 31 34 0d 01 0e  |.movvc pc,r14...|
00000210  0e 73 77 69 20 32 35 36  2b 32 32 0d 01 18 11 73  |.swi 256+22....s|
00000220  77 69 20 26 32 30 31 30  30 2b 31 35 0d 01 22 10  |wi &20100+15..".|
00000230  6d 6f 76 76 63 20 70 63  2c 72 31 34 0d 01 2c 0e  |movvc pc,r14..,.|
00000240  73 77 69 20 32 35 36 2b  32 32 0d 01 36 0e 73 77  |swi 256+22..6.sw|
00000250  69 20 32 35 36 2b 31 33  0d 01 40 0e 6d 6f 76 20  |i 256+13..@.mov |
00000260  70 63 2c 72 31 34 0d 01  4a 05 5d 0d 01 54 0d d6  |pc,r14..J.]..T..|
00000270  20 63 6f 64 65 25 3a 87  0d 01 5e 05 3a 0d 01 68  | code%:...^.:..h|
00000280  14 f4 20 41 6e 69 6d 61  74 69 6f 6e 20 6c 6f 6f  |.. Animation loo|
00000290  70 0d 01 72 26 76 25 3d  31 30 32 34 3a 62 6b 25  |p..r&v%=1024:bk%|
000002a0  3d 31 3a 61 6e 67 78 3d  30 3a 61 6e 67 79 3d 30  |=1:angx=0:angy=0|
000002b0  3a 61 6e 67 7a 3d 30 0d  01 7c 05 f5 0d 01 86 1d  |:angz=0..|......|
000002c0  61 6e 67 78 2b 3d 32 3a  61 6e 67 79 2d 3d 31 3a  |angx+=2:angy-=1:|
000002d0  61 6e 67 7a 2b 3d 31 2e  35 0d 01 90 05 3a 0d 01  |angz+=1.5....:..|
000002e0  9a 17 f4 20 53 77 61 70  20 73 63 72 65 65 6e 20  |... Swap screen |
000002f0  62 61 6e 6b 73 0d 01 a4  05 3a 0d 01 ae 17 c8 99  |banks....:......|
00000300  22 4f 53 5f 42 79 74 65  22 2c 31 31 32 2c 62 6b  |"OS_Byte",112,bk|
00000310  25 0d 01 b8 0d 62 6b 25  3d 33 2d 62 6b 25 0d 01  |%....bk%=3-bk%..|
00000320  c2 06 c8 96 0d 01 cc 17  c8 99 22 4f 53 5f 42 79  |.........."OS_By|
00000330  74 65 22 2c 31 31 33 2c  62 6b 25 0d 01 d6 05 db  |te",113,bk%.....|
00000340  0d 01 e0 45 f1 8a 36 2c  30 29 3b 22 4e 75 6d 62  |...E..6,0);"Numb|
00000350  65 72 20 6f 66 20 70 6f  69 6e 74 73 20 3d 20 22  |er of points = "|
00000360  3b 70 74 25 27 22 20 20  20 4e 75 6d 62 65 72 20  |;pt%'"   Number |
00000370  6f 66 20 74 72 69 61 6e  67 6c 65 73 20 3d 20 22  |of triangles = "|
00000380  3b 74 72 69 25 0d 01 ea  05 3a 0d 01 f4 22 f4 20  |;tri%....:...". |
00000390  54 72 61 6e 73 66 6f 72  6d 20 76 65 72 74 69 63  |Transform vertic|
000003a0  65 73 20 6f 66 20 6f 62  6a 65 63 74 0d 01 fe 05  |es of object....|
000003b0  3a 0d 02 08 1f 63 6f 73  78 3d 9b b2 28 61 6e 67  |:....cosx=..(ang|
000003c0  78 29 3a 73 69 6e 78 3d  b5 b2 28 61 6e 67 78 29  |x):sinx=..(angx)|
000003d0  0d 02 12 1f 63 6f 73 79  3d 9b b2 28 61 6e 67 79  |....cosy=..(angy|
000003e0  29 3a 73 69 6e 79 3d b5  b2 28 61 6e 67 79 29 0d  |):siny=..(angy).|
000003f0  02 1c 1f 63 6f 73 7a 3d  9b b2 28 61 6e 67 7a 29  |...cosz=..(angz)|
00000400  3a 73 69 6e 7a 3d b5 b2  28 61 6e 67 7a 29 0d 02  |:sinz=..(angz)..|
00000410  26 0f e3 6e 25 3d 30 20  b8 20 70 74 25 0d 02 30  |&..n%=0 . pt%..0|
00000420  20 78 31 3d 70 28 6e 25  2c 30 29 2a 63 6f 73 79  | x1=p(n%,0)*cosy|
00000430  2b 70 28 6e 25 2c 32 29  2a 73 69 6e 79 0d 02 3a  |+p(n%,2)*siny..:|
00000440  21 7a 31 3d 2d 70 28 6e  25 2c 30 29 2a 73 69 6e  |!z1=-p(n%,0)*sin|
00000450  79 2b 70 28 6e 25 2c 32  29 2a 63 6f 73 79 0d 02  |y+p(n%,2)*cosy..|
00000460  44 1b 79 31 3d 70 28 6e  25 2c 31 29 2a 63 6f 73  |D.y1=p(n%,1)*cos|
00000470  78 2b 7a 31 2a 73 69 6e  78 0d 02 4e 1d 7a 3d 2d  |x+z1*sinx..N.z=-|
00000480  70 28 6e 25 2c 31 29 2a  73 69 6e 78 2b 7a 31 2a  |p(n%,1)*sinx+z1*|
00000490  63 6f 73 78 2b 37 0d 02  58 15 78 3d 78 31 2a 63  |cosx+7..X.x=x1*c|
000004a0  6f 73 7a 2b 79 31 2a 73  69 6e 7a 0d 02 62 16 79  |osz+y1*sinz..b.y|
000004b0  3d 2d 78 31 2a 73 69 6e  7a 2b 79 31 2a 63 6f 73  |=-x1*sinz+y1*cos|
000004c0  7a 0d 02 6c 36 74 70 28  6e 25 2c 30 29 3d 36 34  |z..l6tp(n%,0)=64|
000004d0  30 2b 76 25 2a 78 2f 7a  3a 74 70 28 6e 25 2c 31  |0+v%*x/z:tp(n%,1|
000004e0  29 3d 35 31 32 2b 76 25  2a 79 2f 7a 3a 74 70 28  |)=512+v%*y/z:tp(|
000004f0  6e 25 2c 32 29 3d 7a 0d  02 76 05 ed 0d 02 80 05  |n%,2)=z..v......|
00000500  3a 0d 02 8a 23 f4 20 46  69 6e 64 20 66 6f 72 77  |:...#. Find forw|
00000510  61 72 64 20 66 61 63 69  6e 67 20 74 72 69 61 6e  |ard facing trian|
00000520  67 6c 65 73 0d 02 94 05  3a 0d 02 9e 0f 74 6f 5f  |gles....:....to_|
00000530  70 6c 6f 74 25 3d 2d 31  0d 02 a8 10 e3 6e 25 3d  |plot%=-1.....n%=|
00000540  30 20 b8 20 74 72 69 25  0d 02 b2 2d 61 78 25 3d  |0 . tri%...-ax%=|
00000550  74 70 28 74 72 69 25 28  6e 25 2c 30 29 2c 30 29  |tp(tri%(n%,0),0)|
00000560  3a 61 79 25 3d 74 70 28  74 72 69 25 28 6e 25 2c  |:ay%=tp(tri%(n%,|
00000570  30 29 2c 31 29 0d 02 bc  2d 62 78 25 3d 74 70 28  |0),1)...-bx%=tp(|
00000580  74 72 69 25 28 6e 25 2c  31 29 2c 30 29 3a 62 79  |tri%(n%,1),0):by|
00000590  25 3d 74 70 28 74 72 69  25 28 6e 25 2c 31 29 2c  |%=tp(tri%(n%,1),|
000005a0  31 29 0d 02 c6 2d 63 78  25 3d 74 70 28 74 72 69  |1)...-cx%=tp(tri|
000005b0  25 28 6e 25 2c 32 29 2c  30 29 3a 63 79 25 3d 74  |%(n%,2),0):cy%=t|
000005c0  70 28 74 72 69 25 28 6e  25 2c 32 29 2c 31 29 0d  |p(tri%(n%,2),1).|
000005d0  02 d0 37 e7 20 62 78 25  2a 63 79 25 2b 63 78 25  |..7. bx%*cy%+cx%|
000005e0  2a 61 79 25 2b 61 78 25  2a 62 79 25 3c 62 78 25  |*ay%+ax%*by%<bx%|
000005f0  2a 61 79 25 2b 63 78 25  2a 62 79 25 2b 61 78 25  |*ay%+cx%*by%+ax%|
00000600  2a 63 79 25 20 8c 0d 02  da 3f 61 7a 3d 74 70 28  |*cy% ....?az=tp(|
00000610  74 72 69 25 28 6e 25 2c  30 29 2c 32 29 3a 62 7a  |tri%(n%,0),2):bz|
00000620  3d 74 70 28 74 72 69 25  28 6e 25 2c 31 29 2c 32  |=tp(tri%(n%,1),2|
00000630  29 3a 63 7a 3d 74 70 28  74 72 69 25 28 6e 25 2c  |):cz=tp(tri%(n%,|
00000640  32 29 2c 32 29 0d 02 e4  19 e7 20 62 7a 3c 61 7a  |2),2)..... bz<az|
00000650  20 69 7a 3d 62 7a 20 8b  20 69 7a 3d 61 7a 0d 02  | iz=bz . iz=az..|
00000660  ee 11 e7 20 63 7a 3c 61  7a 20 69 7a 3d 63 7a 0d  |... cz<az iz=cz.|
00000670  02 f8 40 74 6f 5f 70 6c  6f 74 25 2b 3d 31 3a 61  |..@to_plot%+=1:a|
00000680  72 72 61 79 5f 25 21 28  74 6f 5f 70 6c 6f 74 25  |rray_%!(to_plot%|
00000690  3c 3c 32 29 3d 28 6e 25  3c 3c 31 36 29 2b 28 69  |<<2)=(n%<<16)+(i|
000006a0  7a 2b 61 7a 2b 62 7a 2b  63 7a 29 2a 31 32 38 0d  |z+az+bz+cz)*128.|
000006b0  03 02 05 cd 0d 03 0c 05  ed 0d 03 16 2a f1 20 22  |............*. "|
000006c0  4e 75 6d 62 65 72 20 6f  66 20 74 72 69 73 20 70  |Number of tris p|
000006d0  6c 6f 74 74 65 64 20 3d  20 22 3b 74 6f 5f 70 6c  |lotted = ";to_pl|
000006e0  6f 74 25 0d 03 20 05 3a  0d 03 2a 18 f4 20 53 6f  |ot%.. .:..*.. So|
000006f0  72 74 20 74 68 65 20 74  72 69 61 6e 67 6c 65 73  |rt the triangles|
00000700  0d 03 34 05 3a 0d 03 3e  2d 61 72 72 61 79 25 3d  |..4.:..>-array%=|
00000710  61 72 72 61 79 5f 25 3a  61 6c 74 61 72 72 61 79  |array_%:altarray|
00000720  25 3d 61 72 72 61 79 5f  25 2b 74 72 69 25 2a 34  |%=array_%+tri%*4|
00000730  2b 34 0d 03 48 0d e3 72  25 3d 30 20 b8 20 32 0d  |+4..H..r%=0 . 2.|
00000740  03 52 13 f2 63 6f 75 6e  74 5f 73 6f 72 74 28 72  |.R..count_sort(r|
00000750  25 29 0d 03 5c 05 ed 0d  03 66 05 3a 0d 03 70 1f  |%)..\....f.:..p.|
00000760  f4 20 50 6c 6f 74 20 74  68 65 20 73 6f 72 74 65  |. Plot the sorte|
00000770  64 20 74 72 69 61 6e 67  6c 65 73 0d 03 7a 05 3a  |d triangles..z.:|
00000780  0d 03 84 19 e3 6e 25 3d  74 6f 5f 70 6c 6f 74 25  |.....n%=to_plot%|
00000790  20 b8 20 30 20 88 20 2d  31 0d 03 8e 19 66 25 3d  | . 0 . -1....f%=|
000007a0  61 72 72 61 79 25 21 28  6e 25 3c 3c 32 29 3e 3e  |array%!(n%<<2)>>|
000007b0  31 36 0d 03 98 10 e6 20  74 72 69 5f 63 25 28 66  |16..... tri_c%(f|
000007c0  25 29 0d 03 a2 27 ec 20  74 70 28 74 72 69 25 28  |%)...'. tp(tri%(|
000007d0  66 25 2c 30 29 2c 30 29  2c 74 70 28 74 72 69 25  |f%,0),0),tp(tri%|
000007e0  28 66 25 2c 30 29 2c 31  29 0d 03 ac 27 ec 20 74  |(f%,0),1)...'. t|
000007f0  70 28 74 72 69 25 28 66  25 2c 31 29 2c 30 29 2c  |p(tri%(f%,1),0),|
00000800  74 70 28 74 72 69 25 28  66 25 2c 31 29 2c 31 29  |tp(tri%(f%,1),1)|
00000810  0d 03 b6 2a f0 20 38 35  2c 74 70 28 74 72 69 25  |...*. 85,tp(tri%|
00000820  28 66 25 2c 32 29 2c 30  29 2c 74 70 28 74 72 69  |(f%,2),0),tp(tri|
00000830  25 28 66 25 2c 32 29 2c  31 29 0d 03 c0 05 ed 0d  |%(f%,2),1)......|
00000840  03 ca 07 fd 20 a3 0d 03  d4 05 e0 0d 03 de 05 3a  |.... ..........:|
00000850  0d 03 e8 18 dd f2 63 6f  75 6e 74 5f 73 6f 72 74  |......count_sort|
00000860  28 72 61 64 69 78 25 29  0d 03 f2 13 63 6f 75 6e  |(radix%)....coun|
00000870  74 61 72 72 61 79 25 28  29 3d 30 0d 03 fc 1f 73  |tarray%()=0....s|
00000880  68 66 25 3d 72 61 64 69  78 25 2a 35 3a 6d 73 6b  |hf%=radix%*5:msk|
00000890  25 3d 33 31 3c 3c 73 68  66 25 0d 04 06 14 e3 6e  |%=31<<shf%.....n|
000008a0  25 3d 30 20 b8 20 74 6f  5f 70 6c 6f 74 25 0d 04  |%=0 . to_plot%..|
000008b0  10 31 63 6f 75 6e 74 61  72 72 61 79 25 28 28 61  |.1countarray%((a|
000008c0  72 72 61 79 25 21 28 6e  25 3c 3c 32 29 20 80 20  |rray%!(n%<<2) . |
000008d0  6d 73 6b 25 29 3e 3e 73  68 66 25 29 2b 3d 31 0d  |msk%)>>shf%)+=1.|
000008e0  04 1a 05 ed 0d 04 24 15  63 6f 75 6e 74 61 72 72  |......$.countarr|
000008f0  61 79 25 28 30 29 2d 3d  31 0d 04 2e 0e e3 6e 25  |ay%(0)-=1.....n%|
00000900  3d 31 20 b8 20 33 31 0d  04 38 26 63 6f 75 6e 74  |=1 . 31..8&count|
00000910  61 72 72 61 79 25 28 6e  25 29 2b 3d 63 6f 75 6e  |array%(n%)+=coun|
00000920  74 61 72 72 61 79 25 28  6e 25 2d 31 29 0d 04 42  |tarray%(n%-1)..B|
00000930  05 ed 0d 04 4c 19 e3 6e  25 3d 74 6f 5f 70 6c 6f  |....L..n%=to_plo|
00000940  74 25 20 b8 20 30 20 88  20 2d 31 0d 04 56 15 61  |t% . 0 . -1..V.a|
00000950  25 3d 61 72 72 61 79 25  21 28 6e 25 3c 3c 32 29  |%=array%!(n%<<2)|
00000960  0d 04 60 18 69 25 3d 28  61 25 20 80 20 6d 73 6b  |..`.i%=(a% . msk|
00000970  25 29 3e 3e 73 68 66 25  0d 04 6a 25 61 6c 74 61  |%)>>shf%..j%alta|
00000980  72 72 61 79 25 21 28 63  6f 75 6e 74 61 72 72 61  |rray%!(countarra|
00000990  79 25 28 69 25 29 3c 3c  32 29 3d 61 25 0d 04 74  |y%(i%)<<2)=a%..t|
000009a0  16 63 6f 75 6e 74 61 72  72 61 79 25 28 69 25 29  |.countarray%(i%)|
000009b0  2d 3d 31 0d 04 7e 05 ed  0d 04 88 17 c8 94 20 61  |-=1..~........ a|
000009c0  72 72 61 79 25 2c 61 6c  74 61 72 72 61 79 25 0d  |rray%,altarray%.|
000009d0  04 92 05 e1 0d ff                                 |......|
000009d6