� >SprOp
B� Purpose: Bounce a few sprites around a mode 12 screen, using
<� only BASIC code & OS_SpriteOp for the sprite plotting.
(@� This program is intended purely for performance comparison
2@� with the assembler version 'Bouncer', which makes use of a
<+� special fast sprite plotting routine.
F�
P=� To compare the performance of this program with that of
ZC� 'Bouncer', see how many heads each program can simultaneously
dA� bounce, whilst still maintaining a reasonable frame rate of
n>� no less than eg 25fps (or 50fps for maximum smoothness &
x
� speed).
��
�:
�=� NB program will produce a beep if animation speed falls
� � below the target fps rate.
�targetfps% = 50
�A� 100�targetfps%<>0 � 1, "Require targetfps divides into 100"
�limit%=100�targetfps%
�:
�ș &20280, 0, -1 � ;flags%
�$� flags% � 1 � arm3%=� � arm3%=�
�:
�-� n% is the number of heads to be bounced
�n%=7

� arm3%=� n%=n%/2.7

recommend$=�n%

:

"2� � ș 6,112,1:ș 6,113,1:� �$;" at line ";�:�

,D% = �(-�)

6� 12

@*Run Palette

J
� 128+1:�

Tareasize% = 10240

^� area% areasize%

h!area%    = areasize%

rarea%!4   = 0

|area%!8   = 16

�area%!12  = 16

�spop%     = &2E

�#ș spop%, &10A, area%, "Source"

�spr%      = area% + area%!8

�:

�
maxn%=400

�:� x%(maxn%-1), y%(maxn%-1), xi%(maxn%-1), yi%(maxn%-1)

�:

��

�  ș 6,112,1:ș 6,113,1

�  �

�	    �

�b    � '"Please enter number of heads to bounce ("+recommend$+" recommended, "+�maxn%+" max) ";
    � n%
  � n%<=maxn% � n%>0
  :
&  � i% = 0 � n%-1
0!    x%(i%)    = �(1000) + 140
:!    y%(i%)    = �(700)  + 184
D*    xi%(i%)   = �(16)*(0.5+(�(1)<0.5))
N*    yi%(i%)   = �(08)*(0.5+(�(1)<0.5))
X  �
b  :
l  bank%       = 1
v  fc%         = 0
�*  ș 6, 112, bank%: ș 6, 113, 3-bank%
�  �
�    T%=�
�    ș 6, 19
�    bank% = 3-bank%
�,    ș 6, 112, bank%: ș 6, 113, 3-bank%
�	    �
�    � i% = 0 � n%-1
�8      ș spop%, &222, area%, spr%, x%(i%), y%(i%), 8
�	    �
�    fc% += 1
�+    � (fc%�3) = 0 � accel%=� � accel%=�
�    � i% = 0 � n%-1
      x%(i%) += xi%(i%)
      y%(i%) += yi%(i%)
>      � x%(i%)>1160 xi%(i%) = -xi%(i%) : x%(i%) += xi%(i%)
 >      � x%(i%)<0    xi%(i%) = -xi%(i%) : x%(i%) += xi%(i%)
*>      � y%(i%)>884  yi%(i%) = -yi%(i%) : y%(i%) += yi%(i%)
4>      � y%(i%)<0    yi%(i%) = -yi%(i%) : y%(i%) += yi%(i%)
>      � accel% yi%(i%) -= 1
H	    �
R    � �-T% > limit% � 7
\  � � 0 <> -1
f� �
p:
z�
�

00000000  0d 00 0a 0c f4 20 3e 53  70 72 4f 70 0d 00 14 42  |..... >SprOp...B|
00000010  f4 20 50 75 72 70 6f 73  65 3a 20 42 6f 75 6e 63  |. Purpose: Bounc|
00000020  65 20 61 20 66 65 77 20  73 70 72 69 74 65 73 20  |e a few sprites |
00000030  61 72 6f 75 6e 64 20 61  20 6d 6f 64 65 20 31 32  |around a mode 12|
00000040  20 73 63 72 65 65 6e 2c  20 75 73 69 6e 67 0d 00  | screen, using..|
00000050  1e 3c f4 20 6f 6e 6c 79  20 42 41 53 49 43 20 63  |.<. only BASIC c|
00000060  6f 64 65 20 26 20 4f 53  5f 53 70 72 69 74 65 4f  |ode & OS_SpriteO|
00000070  70 20 66 6f 72 20 74 68  65 20 73 70 72 69 74 65  |p for the sprite|
00000080  20 70 6c 6f 74 74 69 6e  67 2e 0d 00 28 40 f4 20  | plotting...(@. |
00000090  54 68 69 73 20 70 72 6f  67 72 61 6d 20 69 73 20  |This program is |
000000a0  69 6e 74 65 6e 64 65 64  20 70 75 72 65 6c 79 20  |intended purely |
000000b0  66 6f 72 20 70 65 72 66  6f 72 6d 61 6e 63 65 20  |for performance |
000000c0  63 6f 6d 70 61 72 69 73  6f 6e 0d 00 32 40 f4 20  |comparison..2@. |
000000d0  77 69 74 68 20 74 68 65  20 61 73 73 65 6d 62 6c  |with the assembl|
000000e0  65 72 20 76 65 72 73 69  6f 6e 20 27 42 6f 75 6e  |er version 'Boun|
000000f0  63 65 72 27 2c 20 77 68  69 63 68 20 6d 61 6b 65  |cer', which make|
00000100  73 20 75 73 65 20 6f 66  20 61 0d 00 3c 2b f4 20  |s use of a..<+. |
00000110  73 70 65 63 69 61 6c 20  66 61 73 74 20 73 70 72  |special fast spr|
00000120  69 74 65 20 70 6c 6f 74  74 69 6e 67 20 72 6f 75  |ite plotting rou|
00000130  74 69 6e 65 2e 0d 00 46  05 f4 0d 00 50 3d f4 20  |tine...F....P=. |
00000140  54 6f 20 63 6f 6d 70 61  72 65 20 74 68 65 20 70  |To compare the p|
00000150  65 72 66 6f 72 6d 61 6e  63 65 20 6f 66 20 74 68  |erformance of th|
00000160  69 73 20 70 72 6f 67 72  61 6d 20 77 69 74 68 20  |is program with |
00000170  74 68 61 74 20 6f 66 0d  00 5a 43 f4 20 27 42 6f  |that of..ZC. 'Bo|
00000180  75 6e 63 65 72 27 2c 20  73 65 65 20 68 6f 77 20  |uncer', see how |
00000190  6d 61 6e 79 20 68 65 61  64 73 20 65 61 63 68 20  |many heads each |
000001a0  70 72 6f 67 72 61 6d 20  63 61 6e 20 73 69 6d 75  |program can simu|
000001b0  6c 74 61 6e 65 6f 75 73  6c 79 0d 00 64 41 f4 20  |ltaneously..dA. |
000001c0  62 6f 75 6e 63 65 2c 20  77 68 69 6c 73 74 20 73  |bounce, whilst s|
000001d0  74 69 6c 6c 20 6d 61 69  6e 74 61 69 6e 69 6e 67  |till maintaining|
000001e0  20 61 20 72 65 61 73 6f  6e 61 62 6c 65 20 66 72  | a reasonable fr|
000001f0  61 6d 65 20 72 61 74 65  20 6f 66 0d 00 6e 3e f4  |ame rate of..n>.|
00000200  20 6e 6f 20 6c 65 73 73  20 74 68 61 6e 20 65 67  | no less than eg|
00000210  20 32 35 66 70 73 20 28  6f 72 20 35 30 66 70 73  | 25fps (or 50fps|
00000220  20 66 6f 72 20 6d 61 78  69 6d 75 6d 20 73 6d 6f  | for maximum smo|
00000230  6f 74 68 6e 65 73 73 20  26 0d 00 78 0d f4 20 73  |othness &..x.. s|
00000240  70 65 65 64 29 2e 0d 00  82 05 f4 0d 00 8c 05 3a  |peed)..........:|
00000250  0d 00 96 3d f4 20 4e 42  20 70 72 6f 67 72 61 6d  |...=. NB program|
00000260  20 77 69 6c 6c 20 70 72  6f 64 75 63 65 20 61 20  | will produce a |
00000270  62 65 65 70 20 69 66 20  61 6e 69 6d 61 74 69 6f  |beep if animatio|
00000280  6e 20 73 70 65 65 64 20  66 61 6c 6c 73 0d 00 a0  |n speed falls...|
00000290  20 f4 20 62 65 6c 6f 77  20 74 68 65 20 74 61 72  | . below the tar|
000002a0  67 65 74 20 66 70 73 20  72 61 74 65 2e 0d 00 aa  |get fps rate....|
000002b0  13 74 61 72 67 65 74 66  70 73 25 20 3d 20 35 30  |.targetfps% = 50|
000002c0  0d 00 b4 41 e7 20 31 30  30 83 74 61 72 67 65 74  |...A. 100.target|
000002d0  66 70 73 25 3c 3e 30 20  85 20 31 2c 20 22 52 65  |fps%<>0 . 1, "Re|
000002e0  71 75 69 72 65 20 74 61  72 67 65 74 66 70 73 20  |quire targetfps |
000002f0  64 69 76 69 64 65 73 20  69 6e 74 6f 20 31 30 30  |divides into 100|
00000300  22 0d 00 be 19 6c 69 6d  69 74 25 3d 31 30 30 81  |"....limit%=100.|
00000310  74 61 72 67 65 74 66 70  73 25 0d 00 c8 05 3a 0d  |targetfps%....:.|
00000320  00 d2 1e c8 99 20 26 32  30 32 38 30 2c 20 30 2c  |..... &20280, 0,|
00000330  20 2d 31 20 b8 20 3b 66  6c 61 67 73 25 0d 00 dc  | -1 . ;flags%...|
00000340  24 e7 20 66 6c 61 67 73  25 20 80 20 31 20 8c 20  |$. flags% . 1 . |
00000350  61 72 6d 33 25 3d a3 20  8b 20 61 72 6d 33 25 3d  |arm3%=. . arm3%=|
00000360  b9 0d 00 e6 05 3a 0d 00  f0 2d f4 20 6e 25 20 69  |.....:...-. n% i|
00000370  73 20 74 68 65 20 6e 75  6d 62 65 72 20 6f 66 20  |s the number of |
00000380  68 65 61 64 73 20 74 6f  20 62 65 20 62 6f 75 6e  |heads to be boun|
00000390  63 65 64 0d 00 fa 08 6e  25 3d 37 0d 01 04 17 e7  |ced....n%=7.....|
000003a0  20 61 72 6d 33 25 3d a3  20 6e 25 3d 6e 25 2f 32  | arm3%=. n%=n%/2|
000003b0  2e 37 0d 01 0e 12 72 65  63 6f 6d 6d 65 6e 64 24  |.7....recommend$|
000003c0  3d c3 6e 25 0d 01 18 05  3a 0d 01 22 32 ee 20 85  |=.n%....:.."2. .|
000003d0  20 c8 99 20 36 2c 31 31  32 2c 31 3a c8 99 20 36  | .. 6,112,1:.. 6|
000003e0  2c 31 31 33 2c 31 3a f1  20 f6 24 3b 22 20 61 74  |,113,1:. .$;" at|
000003f0  20 6c 69 6e 65 20 22 3b  9e 3a e0 0d 01 2c 0e 44  | line ";.:...,.D|
00000400  25 20 3d 20 b3 28 2d 91  29 0d 01 36 08 eb 20 31  |% = .(-.)..6.. 1|
00000410  32 0d 01 40 10 2a 52 75  6e 20 50 61 6c 65 74 74  |2..@.*Run Palett|
00000420  65 0d 01 4a 0d fb 20 31  32 38 2b 31 3a db 0d 01  |e..J.. 128+1:...|
00000430  54 15 61 72 65 61 73 69  7a 65 25 20 3d 20 31 30  |T.areasize% = 10|
00000440  32 34 30 0d 01 5e 15 de  20 61 72 65 61 25 20 61  |240..^.. area% a|
00000450  72 65 61 73 69 7a 65 25  0d 01 68 19 21 61 72 65  |reasize%..h.!are|
00000460  61 25 20 20 20 20 3d 20  61 72 65 61 73 69 7a 65  |a%    = areasize|
00000470  25 0d 01 72 11 61 72 65  61 25 21 34 20 20 20 3d  |%..r.area%!4   =|
00000480  20 30 0d 01 7c 12 61 72  65 61 25 21 38 20 20 20  | 0..|.area%!8   |
00000490  3d 20 31 36 0d 01 86 12  61 72 65 61 25 21 31 32  |= 16....area%!12|
000004a0  20 20 3d 20 31 36 0d 01  90 13 73 70 6f 70 25 20  |  = 16....spop% |
000004b0  20 20 20 20 3d 20 26 32  45 0d 01 9a 23 c8 99 20  |    = &2E...#.. |
000004c0  73 70 6f 70 25 2c 20 26  31 30 41 2c 20 61 72 65  |spop%, &10A, are|
000004d0  61 25 2c 20 22 53 6f 75  72 63 65 22 0d 01 a4 1f  |a%, "Source"....|
000004e0  73 70 72 25 20 20 20 20  20 20 3d 20 61 72 65 61  |spr%      = area|
000004f0  25 20 2b 20 61 72 65 61  25 21 38 0d 01 ae 05 3a  |% + area%!8....:|
00000500  0d 01 b8 0d 6d 61 78 6e  25 3d 34 30 30 0d 01 c2  |....maxn%=400...|
00000510  3a de 20 78 25 28 6d 61  78 6e 25 2d 31 29 2c 20  |:. x%(maxn%-1), |
00000520  79 25 28 6d 61 78 6e 25  2d 31 29 2c 20 78 69 25  |y%(maxn%-1), xi%|
00000530  28 6d 61 78 6e 25 2d 31  29 2c 20 79 69 25 28 6d  |(maxn%-1), yi%(m|
00000540  61 78 6e 25 2d 31 29 0d  01 cc 05 3a 0d 01 d6 05  |axn%-1)....:....|
00000550  f5 0d 01 e0 1b 20 20 c8  99 20 36 2c 31 31 32 2c  |.....  .. 6,112,|
00000560  31 3a c8 99 20 36 2c 31  31 33 2c 31 0d 01 ea 07  |1:.. 6,113,1....|
00000570  20 20 f5 0d 01 f4 09 20  20 20 20 db 0d 01 fe 62  |  .....    ....b|
00000580  20 20 20 20 f1 20 27 22  50 6c 65 61 73 65 20 65  |    . '"Please e|
00000590  6e 74 65 72 20 6e 75 6d  62 65 72 20 6f 66 20 68  |nter number of h|
000005a0  65 61 64 73 20 74 6f 20  62 6f 75 6e 63 65 20 28  |eads to bounce (|
000005b0  22 2b 72 65 63 6f 6d 6d  65 6e 64 24 2b 22 20 72  |"+recommend$+" r|
000005c0  65 63 6f 6d 6d 65 6e 64  65 64 2c 20 22 2b c3 6d  |ecommended, "+.m|
000005d0  61 78 6e 25 2b 22 20 6d  61 78 29 20 22 3b 0d 02  |axn%+" max) ";..|
000005e0  08 0c 20 20 20 20 e8 20  6e 25 0d 02 12 18 20 20  |..    . n%....  |
000005f0  fd 20 6e 25 3c 3d 6d 61  78 6e 25 20 80 20 6e 25  |. n%<=maxn% . n%|
00000600  3e 30 0d 02 1c 07 20 20  3a 0d 02 26 15 20 20 e3  |>0....  :..&.  .|
00000610  20 69 25 20 3d 20 30 20  b8 20 6e 25 2d 31 0d 02  | i% = 0 . n%-1..|
00000620  30 21 20 20 20 20 78 25  28 69 25 29 20 20 20 20  |0!    x%(i%)    |
00000630  3d 20 b3 28 31 30 30 30  29 20 2b 20 31 34 30 0d  |= .(1000) + 140.|
00000640  02 3a 21 20 20 20 20 79  25 28 69 25 29 20 20 20  |.:!    y%(i%)   |
00000650  20 3d 20 b3 28 37 30 30  29 20 20 2b 20 31 38 34  | = .(700)  + 184|
00000660  0d 02 44 2a 20 20 20 20  78 69 25 28 69 25 29 20  |..D*    xi%(i%) |
00000670  20 20 3d 20 b3 28 31 36  29 2a 28 30 2e 35 2b 28  |  = .(16)*(0.5+(|
00000680  b3 28 31 29 3c 30 2e 35  29 29 0d 02 4e 2a 20 20  |.(1)<0.5))..N*  |
00000690  20 20 79 69 25 28 69 25  29 20 20 20 3d 20 b3 28  |  yi%(i%)   = .(|
000006a0  30 38 29 2a 28 30 2e 35  2b 28 b3 28 31 29 3c 30  |08)*(0.5+(.(1)<0|
000006b0  2e 35 29 29 0d 02 58 07  20 20 ed 0d 02 62 07 20  |.5))..X.  ...b. |
000006c0  20 3a 0d 02 6c 15 20 20  62 61 6e 6b 25 20 20 20  | :..l.  bank%   |
000006d0  20 20 20 20 3d 20 31 0d  02 76 15 20 20 66 63 25  |    = 1..v.  fc%|
000006e0  20 20 20 20 20 20 20 20  20 3d 20 30 0d 02 80 2a  |         = 0...*|
000006f0  20 20 c8 99 20 36 2c 20  31 31 32 2c 20 62 61 6e  |  .. 6, 112, ban|
00000700  6b 25 3a 20 c8 99 20 36  2c 20 31 31 33 2c 20 33  |k%: .. 6, 113, 3|
00000710  2d 62 61 6e 6b 25 0d 02  8a 07 20 20 f5 0d 02 94  |-bank%....  ....|
00000720  0c 20 20 20 20 54 25 3d  91 0d 02 9e 10 20 20 20  |.    T%=.....   |
00000730  20 c8 99 20 36 2c 20 31  39 0d 02 a8 17 20 20 20  | .. 6, 19....   |
00000740  20 62 61 6e 6b 25 20 3d  20 33 2d 62 61 6e 6b 25  | bank% = 3-bank%|
00000750  0d 02 b2 2c 20 20 20 20  c8 99 20 36 2c 20 31 31  |...,    .. 6, 11|
00000760  32 2c 20 62 61 6e 6b 25  3a 20 c8 99 20 36 2c 20  |2, bank%: .. 6, |
00000770  31 31 33 2c 20 33 2d 62  61 6e 6b 25 0d 02 bc 09  |113, 3-bank%....|
00000780  20 20 20 20 db 0d 02 c6  17 20 20 20 20 e3 20 69  |    .....    . i|
00000790  25 20 3d 20 30 20 b8 20  6e 25 2d 31 0d 02 d0 38  |% = 0 . n%-1...8|
000007a0  20 20 20 20 20 20 c8 99  20 73 70 6f 70 25 2c 20  |      .. spop%, |
000007b0  26 32 32 32 2c 20 61 72  65 61 25 2c 20 73 70 72  |&222, area%, spr|
000007c0  25 2c 20 78 25 28 69 25  29 2c 20 79 25 28 69 25  |%, x%(i%), y%(i%|
000007d0  29 2c 20 38 0d 02 da 09  20 20 20 20 ed 0d 02 e4  |), 8....    ....|
000007e0  10 20 20 20 20 66 63 25  20 2b 3d 20 31 0d 02 ee  |.    fc% += 1...|
000007f0  2b 20 20 20 20 e7 20 28  66 63 25 80 33 29 20 3d  |+    . (fc%.3) =|
00000800  20 30 20 8c 20 61 63 63  65 6c 25 3d b9 20 8b 20  | 0 . accel%=. . |
00000810  61 63 63 65 6c 25 3d a3  0d 02 f8 17 20 20 20 20  |accel%=.....    |
00000820  e3 20 69 25 20 3d 20 30  20 b8 20 6e 25 2d 31 0d  |. i% = 0 . n%-1.|
00000830  03 02 1b 20 20 20 20 20  20 78 25 28 69 25 29 20  |...      x%(i%) |
00000840  2b 3d 20 78 69 25 28 69  25 29 0d 03 0c 1b 20 20  |+= xi%(i%)....  |
00000850  20 20 20 20 79 25 28 69  25 29 20 2b 3d 20 79 69  |    y%(i%) += yi|
00000860  25 28 69 25 29 0d 03 16  3e 20 20 20 20 20 20 e7  |%(i%)...>      .|
00000870  20 78 25 28 69 25 29 3e  31 31 36 30 20 78 69 25  | x%(i%)>1160 xi%|
00000880  28 69 25 29 20 3d 20 2d  78 69 25 28 69 25 29 20  |(i%) = -xi%(i%) |
00000890  3a 20 78 25 28 69 25 29  20 2b 3d 20 78 69 25 28  |: x%(i%) += xi%(|
000008a0  69 25 29 0d 03 20 3e 20  20 20 20 20 20 e7 20 78  |i%).. >      . x|
000008b0  25 28 69 25 29 3c 30 20  20 20 20 78 69 25 28 69  |%(i%)<0    xi%(i|
000008c0  25 29 20 3d 20 2d 78 69  25 28 69 25 29 20 3a 20  |%) = -xi%(i%) : |
000008d0  78 25 28 69 25 29 20 2b  3d 20 78 69 25 28 69 25  |x%(i%) += xi%(i%|
000008e0  29 0d 03 2a 3e 20 20 20  20 20 20 e7 20 79 25 28  |)..*>      . y%(|
000008f0  69 25 29 3e 38 38 34 20  20 79 69 25 28 69 25 29  |i%)>884  yi%(i%)|
00000900  20 3d 20 2d 79 69 25 28  69 25 29 20 3a 20 79 25  | = -yi%(i%) : y%|
00000910  28 69 25 29 20 2b 3d 20  79 69 25 28 69 25 29 0d  |(i%) += yi%(i%).|
00000920  03 34 3e 20 20 20 20 20  20 e7 20 79 25 28 69 25  |.4>      . y%(i%|
00000930  29 3c 30 20 20 20 20 79  69 25 28 69 25 29 20 3d  |)<0    yi%(i%) =|
00000940  20 2d 79 69 25 28 69 25  29 20 3a 20 79 25 28 69  | -yi%(i%) : y%(i|
00000950  25 29 20 2b 3d 20 79 69  25 28 69 25 29 0d 03 3e  |%) += yi%(i%)..>|
00000960  1f 20 20 20 20 20 20 e7  20 61 63 63 65 6c 25 20  |.      . accel% |
00000970  79 69 25 28 69 25 29 20  2d 3d 20 31 0d 03 48 09  |yi%(i%) -= 1..H.|
00000980  20 20 20 20 ed 0d 03 52  1b 20 20 20 20 e7 20 91  |    ...R.    . .|
00000990  2d 54 25 20 3e 20 6c 69  6d 69 74 25 20 ef 20 37  |-T% > limit% . 7|
000009a0  0d 03 5c 11 20 20 fd 20  a6 20 30 20 3c 3e 20 2d  |..\.  . . 0 <> -|
000009b0  31 0d 03 66 07 fd 20 a3  0d 03 70 05 3a 0d 03 7a  |1..f.. ...p.:..z|
000009c0  05 e0 0d ff                                       |....|
000009c4