� >DataGen
=� Purpose: convert a specific sprite into a form suitable
&� for fast plotting, by 'Bouncer'.
(�
2'� Format of new data is as follows:
<5� Assume image dimensions are 64x35 pixels, 4bpp.
F?� Scanning image across rows, top to bottom, store image as
P?� 1 word of pixels (ie 8 pixels), followed by corresponding
ZC� mask word for same group of pixels, then 2nd word of pixels &
d� then 2nd mask word, etc.
nB� Require that data for pixels which are masked is stored as 0
xC� & that mask bits are set to indicate transparency (ie NOT the
�"� standard sprite mask value),
�0� so that we may write sprite to screen via:
�D� screen_pixel = (screen_pixel AND sprite_mask) OR sprite_pixel.
�(� This requires 64*35 bytes storage.
�<� Follow this by 7 further copies of the same data, each
�-� scrolled right by one additional pixel.
�B� This permits the plotting code to use only word aligned read
�D� & write operations for speed, whilst still being able to write
�1� the image to screen at any pixel alignment.
�:
�areasize% = 1024*3
�� area% areasize%
�!area%    = areasize%

area%!4   = 0

area%!8   = 16

area%!12  = 16

"spop%     = &2E

,+ș "OS_SpriteOp", &10A, area%, "Source"

6spr%      = area% + area%!8

@7� We assume sprite is 4bpp, 64x35 pixels, with mask

J8� & is left aligned leaving 7 blank (masked) columns

T� of pixels on its right.

^:

hwidth%    = 64

rC� datasize%: 64 bytes per row (64 pixels+masks, each of 4 bits)

|3datasize% = width%*35*8 :� 35 rows, 8 instances

�� data% datasize%

�/spri% = spr%+spr%!32:� sprite image pointer

�*sprm% = spr%+spr%!36:� sprite mask ptr

�lastimageword%= 0

�lastmaskword% = &FFFFFFFF

�dataptr% = data%

�:

�� loop% = 1 � width%/8*35

�" imageword% = !spri%: spri%+=4

�" maskword%  = !sprm%: sprm%+=4

�+ � Now ensure masked pixels are zeroed,

�( imageword% = imageword% � maskword%

� � then NOT the mask.
 maskword%  = � maskword%
 offset%    = 0
 iw%        = imageword%
& mw%        = maskword%
0 � instance% = 0 � 7
:   dataptr%!(offset%+0) = iw%
D   dataptr%!(offset%+4) = mw%
N,  iw% = (iw%<<4) � (lastimageword%>>>28)
X(  lastimageword% = lastimageword%<<4
b+  mw% = (mw%<<4) � (lastmaskword%>>>28)
l'  lastmaskword%  = lastmaskword%<<4
v  offset%+=width%*35
� �
� dataptr%+=8
�  lastimageword% = imageword%
� lastmaskword%  = maskword%
��
�:
�� Now save our data
�?ș "OS_File", 10, "HeadData", &FFD,, data%, data%+datasize%
��
�

00000000  0d 00 0a 0e f4 20 3e 44  61 74 61 47 65 6e 0d 00  |..... >DataGen..|
00000010  14 3d f4 20 50 75 72 70  6f 73 65 3a 20 63 6f 6e  |.=. Purpose: con|
00000020  76 65 72 74 20 61 20 73  70 65 63 69 66 69 63 20  |vert a specific |
00000030  73 70 72 69 74 65 20 69  6e 74 6f 20 61 20 66 6f  |sprite into a fo|
00000040  72 6d 20 73 75 69 74 61  62 6c 65 0d 00 1e 26 f4  |rm suitable...&.|
00000050  20 66 6f 72 20 66 61 73  74 20 70 6c 6f 74 74 69  | for fast plotti|
00000060  6e 67 2c 20 62 79 20 27  42 6f 75 6e 63 65 72 27  |ng, by 'Bouncer'|
00000070  2e 0d 00 28 05 f4 0d 00  32 27 f4 20 46 6f 72 6d  |...(....2'. Form|
00000080  61 74 20 6f 66 20 6e 65  77 20 64 61 74 61 20 69  |at of new data i|
00000090  73 20 61 73 20 66 6f 6c  6c 6f 77 73 3a 0d 00 3c  |s as follows:..<|
000000a0  35 f4 20 41 73 73 75 6d  65 20 69 6d 61 67 65 20  |5. Assume image |
000000b0  64 69 6d 65 6e 73 69 6f  6e 73 20 61 72 65 20 36  |dimensions are 6|
000000c0  34 78 33 35 20 70 69 78  65 6c 73 2c 20 34 62 70  |4x35 pixels, 4bp|
000000d0  70 2e 0d 00 46 3f f4 20  53 63 61 6e 6e 69 6e 67  |p...F?. Scanning|
000000e0  20 69 6d 61 67 65 20 61  63 72 6f 73 73 20 72 6f  | image across ro|
000000f0  77 73 2c 20 74 6f 70 20  74 6f 20 62 6f 74 74 6f  |ws, top to botto|
00000100  6d 2c 20 73 74 6f 72 65  20 69 6d 61 67 65 20 61  |m, store image a|
00000110  73 0d 00 50 3f f4 20 31  20 77 6f 72 64 20 6f 66  |s..P?. 1 word of|
00000120  20 70 69 78 65 6c 73 20  28 69 65 20 38 20 70 69  | pixels (ie 8 pi|
00000130  78 65 6c 73 29 2c 20 66  6f 6c 6c 6f 77 65 64 20  |xels), followed |
00000140  62 79 20 63 6f 72 72 65  73 70 6f 6e 64 69 6e 67  |by corresponding|
00000150  0d 00 5a 43 f4 20 6d 61  73 6b 20 77 6f 72 64 20  |..ZC. mask word |
00000160  66 6f 72 20 73 61 6d 65  20 67 72 6f 75 70 20 6f  |for same group o|
00000170  66 20 70 69 78 65 6c 73  2c 20 74 68 65 6e 20 32  |f pixels, then 2|
00000180  6e 64 20 77 6f 72 64 20  6f 66 20 70 69 78 65 6c  |nd word of pixel|
00000190  73 20 26 0d 00 64 1e f4  20 74 68 65 6e 20 32 6e  |s &..d.. then 2n|
000001a0  64 20 6d 61 73 6b 20 77  6f 72 64 2c 20 65 74 63  |d mask word, etc|
000001b0  2e 0d 00 6e 42 f4 20 52  65 71 75 69 72 65 20 74  |...nB. Require t|
000001c0  68 61 74 20 64 61 74 61  20 66 6f 72 20 70 69 78  |hat data for pix|
000001d0  65 6c 73 20 77 68 69 63  68 20 61 72 65 20 6d 61  |els which are ma|
000001e0  73 6b 65 64 20 69 73 20  73 74 6f 72 65 64 20 61  |sked is stored a|
000001f0  73 20 30 0d 00 78 43 f4  20 26 20 74 68 61 74 20  |s 0..xC. & that |
00000200  6d 61 73 6b 20 62 69 74  73 20 61 72 65 20 73 65  |mask bits are se|
00000210  74 20 74 6f 20 69 6e 64  69 63 61 74 65 20 74 72  |t to indicate tr|
00000220  61 6e 73 70 61 72 65 6e  63 79 20 28 69 65 20 4e  |ansparency (ie N|
00000230  4f 54 20 74 68 65 0d 00  82 22 f4 20 73 74 61 6e  |OT the...". stan|
00000240  64 61 72 64 20 73 70 72  69 74 65 20 6d 61 73 6b  |dard sprite mask|
00000250  20 76 61 6c 75 65 29 2c  0d 00 8c 30 f4 20 73 6f  | value),...0. so|
00000260  20 74 68 61 74 20 77 65  20 6d 61 79 20 77 72 69  | that we may wri|
00000270  74 65 20 73 70 72 69 74  65 20 74 6f 20 73 63 72  |te sprite to scr|
00000280  65 65 6e 20 76 69 61 3a  0d 00 96 44 f4 20 73 63  |een via:...D. sc|
00000290  72 65 65 6e 5f 70 69 78  65 6c 20 3d 20 28 73 63  |reen_pixel = (sc|
000002a0  72 65 65 6e 5f 70 69 78  65 6c 20 41 4e 44 20 73  |reen_pixel AND s|
000002b0  70 72 69 74 65 5f 6d 61  73 6b 29 20 4f 52 20 73  |prite_mask) OR s|
000002c0  70 72 69 74 65 5f 70 69  78 65 6c 2e 0d 00 a0 28  |prite_pixel....(|
000002d0  f4 20 54 68 69 73 20 72  65 71 75 69 72 65 73 20  |. This requires |
000002e0  36 34 2a 33 35 20 62 79  74 65 73 20 73 74 6f 72  |64*35 bytes stor|
000002f0  61 67 65 2e 0d 00 aa 3c  f4 20 46 6f 6c 6c 6f 77  |age....<. Follow|
00000300  20 74 68 69 73 20 62 79  20 37 20 66 75 72 74 68  | this by 7 furth|
00000310  65 72 20 63 6f 70 69 65  73 20 6f 66 20 74 68 65  |er copies of the|
00000320  20 73 61 6d 65 20 64 61  74 61 2c 20 65 61 63 68  | same data, each|
00000330  0d 00 b4 2d f4 20 73 63  72 6f 6c 6c 65 64 20 72  |...-. scrolled r|
00000340  69 67 68 74 20 62 79 20  6f 6e 65 20 61 64 64 69  |ight by one addi|
00000350  74 69 6f 6e 61 6c 20 70  69 78 65 6c 2e 0d 00 be  |tional pixel....|
00000360  42 f4 20 54 68 69 73 20  70 65 72 6d 69 74 73 20  |B. This permits |
00000370  74 68 65 20 70 6c 6f 74  74 69 6e 67 20 63 6f 64  |the plotting cod|
00000380  65 20 74 6f 20 75 73 65  20 6f 6e 6c 79 20 77 6f  |e to use only wo|
00000390  72 64 20 61 6c 69 67 6e  65 64 20 72 65 61 64 0d  |rd aligned read.|
000003a0  00 c8 44 f4 20 26 20 77  72 69 74 65 20 6f 70 65  |..D. & write ope|
000003b0  72 61 74 69 6f 6e 73 20  66 6f 72 20 73 70 65 65  |rations for spee|
000003c0  64 2c 20 77 68 69 6c 73  74 20 73 74 69 6c 6c 20  |d, whilst still |
000003d0  62 65 69 6e 67 20 61 62  6c 65 20 74 6f 20 77 72  |being able to wr|
000003e0  69 74 65 0d 00 d2 31 f4  20 74 68 65 20 69 6d 61  |ite...1. the ima|
000003f0  67 65 20 74 6f 20 73 63  72 65 65 6e 20 61 74 20  |ge to screen at |
00000400  61 6e 79 20 70 69 78 65  6c 20 61 6c 69 67 6e 6d  |any pixel alignm|
00000410  65 6e 74 2e 0d 00 dc 05  3a 0d 00 e6 16 61 72 65  |ent.....:....are|
00000420  61 73 69 7a 65 25 20 3d  20 31 30 32 34 2a 33 0d  |asize% = 1024*3.|
00000430  00 f0 15 de 20 61 72 65  61 25 20 61 72 65 61 73  |.... area% areas|
00000440  69 7a 65 25 0d 00 fa 19  21 61 72 65 61 25 20 20  |ize%....!area%  |
00000450  20 20 3d 20 61 72 65 61  73 69 7a 65 25 0d 01 04  |  = areasize%...|
00000460  11 61 72 65 61 25 21 34  20 20 20 3d 20 30 0d 01  |.area%!4   = 0..|
00000470  0e 12 61 72 65 61 25 21  38 20 20 20 3d 20 31 36  |..area%!8   = 16|
00000480  0d 01 18 12 61 72 65 61  25 21 31 32 20 20 3d 20  |....area%!12  = |
00000490  31 36 0d 01 22 13 73 70  6f 70 25 20 20 20 20 20  |16..".spop%     |
000004a0  3d 20 26 32 45 0d 01 2c  2b c8 99 20 22 4f 53 5f  |= &2E..,+.. "OS_|
000004b0  53 70 72 69 74 65 4f 70  22 2c 20 26 31 30 41 2c  |SpriteOp", &10A,|
000004c0  20 61 72 65 61 25 2c 20  22 53 6f 75 72 63 65 22  | area%, "Source"|
000004d0  0d 01 36 1f 73 70 72 25  20 20 20 20 20 20 3d 20  |..6.spr%      = |
000004e0  61 72 65 61 25 20 2b 20  61 72 65 61 25 21 38 0d  |area% + area%!8.|
000004f0  01 40 37 f4 20 57 65 20  61 73 73 75 6d 65 20 73  |.@7. We assume s|
00000500  70 72 69 74 65 20 69 73  20 34 62 70 70 2c 20 36  |prite is 4bpp, 6|
00000510  34 78 33 35 20 70 69 78  65 6c 73 2c 20 77 69 74  |4x35 pixels, wit|
00000520  68 20 6d 61 73 6b 0d 01  4a 38 f4 20 26 20 69 73  |h mask..J8. & is|
00000530  20 6c 65 66 74 20 61 6c  69 67 6e 65 64 20 6c 65  | left aligned le|
00000540  61 76 69 6e 67 20 37 20  62 6c 61 6e 6b 20 28 6d  |aving 7 blank (m|
00000550  61 73 6b 65 64 29 20 63  6f 6c 75 6d 6e 73 0d 01  |asked) columns..|
00000560  54 1d f4 20 6f 66 20 70  69 78 65 6c 73 20 6f 6e  |T.. of pixels on|
00000570  20 69 74 73 20 72 69 67  68 74 2e 0d 01 5e 05 3a  | its right...^.:|
00000580  0d 01 68 12 77 69 64 74  68 25 20 20 20 20 3d 20  |..h.width%    = |
00000590  36 34 0d 01 72 43 f4 20  64 61 74 61 73 69 7a 65  |64..rC. datasize|
000005a0  25 3a 20 36 34 20 62 79  74 65 73 20 70 65 72 20  |%: 64 bytes per |
000005b0  72 6f 77 20 28 36 34 20  70 69 78 65 6c 73 2b 6d  |row (64 pixels+m|
000005c0  61 73 6b 73 2c 20 65 61  63 68 20 6f 66 20 34 20  |asks, each of 4 |
000005d0  62 69 74 73 29 0d 01 7c  33 64 61 74 61 73 69 7a  |bits)..|3datasiz|
000005e0  65 25 20 3d 20 77 69 64  74 68 25 2a 33 35 2a 38  |e% = width%*35*8|
000005f0  20 3a f4 20 33 35 20 72  6f 77 73 2c 20 38 20 69  | :. 35 rows, 8 i|
00000600  6e 73 74 61 6e 63 65 73  0d 01 86 15 de 20 64 61  |nstances..... da|
00000610  74 61 25 20 64 61 74 61  73 69 7a 65 25 0d 01 90  |ta% datasize%...|
00000620  2f 73 70 72 69 25 20 3d  20 73 70 72 25 2b 73 70  |/spri% = spr%+sp|
00000630  72 25 21 33 32 3a f4 20  73 70 72 69 74 65 20 69  |r%!32:. sprite i|
00000640  6d 61 67 65 20 70 6f 69  6e 74 65 72 0d 01 9a 2a  |mage pointer...*|
00000650  73 70 72 6d 25 20 3d 20  73 70 72 25 2b 73 70 72  |sprm% = spr%+spr|
00000660  25 21 33 36 3a f4 20 73  70 72 69 74 65 20 6d 61  |%!36:. sprite ma|
00000670  73 6b 20 70 74 72 0d 01  a4 15 6c 61 73 74 69 6d  |sk ptr....lastim|
00000680  61 67 65 77 6f 72 64 25  3d 20 30 0d 01 ae 1d 6c  |ageword%= 0....l|
00000690  61 73 74 6d 61 73 6b 77  6f 72 64 25 20 3d 20 26  |astmaskword% = &|
000006a0  46 46 46 46 46 46 46 46  0d 01 b8 14 64 61 74 61  |FFFFFFFF....data|
000006b0  70 74 72 25 20 3d 20 64  61 74 61 25 0d 01 c2 05  |ptr% = data%....|
000006c0  3a 0d 01 cc 1d e3 20 6c  6f 6f 70 25 20 3d 20 31  |:..... loop% = 1|
000006d0  20 b8 20 77 69 64 74 68  25 2f 38 2a 33 35 0d 01  | . width%/8*35..|
000006e0  d6 22 20 69 6d 61 67 65  77 6f 72 64 25 20 3d 20  |." imageword% = |
000006f0  21 73 70 72 69 25 3a 20  73 70 72 69 25 2b 3d 34  |!spri%: spri%+=4|
00000700  0d 01 e0 22 20 6d 61 73  6b 77 6f 72 64 25 20 20  |..." maskword%  |
00000710  3d 20 21 73 70 72 6d 25  3a 20 73 70 72 6d 25 2b  |= !sprm%: sprm%+|
00000720  3d 34 0d 01 ea 2b 20 f4  20 4e 6f 77 20 65 6e 73  |=4...+ . Now ens|
00000730  75 72 65 20 6d 61 73 6b  65 64 20 70 69 78 65 6c  |ure masked pixel|
00000740  73 20 61 72 65 20 7a 65  72 6f 65 64 2c 0d 01 f4  |s are zeroed,...|
00000750  28 20 69 6d 61 67 65 77  6f 72 64 25 20 3d 20 69  |( imageword% = i|
00000760  6d 61 67 65 77 6f 72 64  25 20 80 20 6d 61 73 6b  |mageword% . mask|
00000770  77 6f 72 64 25 0d 01 fe  19 20 f4 20 74 68 65 6e  |word%.... . then|
00000780  20 4e 4f 54 20 74 68 65  20 6d 61 73 6b 2e 0d 02  | NOT the mask...|
00000790  08 1d 20 6d 61 73 6b 77  6f 72 64 25 20 20 3d 20  |.. maskword%  = |
000007a0  ac 20 6d 61 73 6b 77 6f  72 64 25 0d 02 12 13 20  |. maskword%.... |
000007b0  6f 66 66 73 65 74 25 20  20 20 20 3d 20 30 0d 02  |offset%    = 0..|
000007c0  1c 1c 20 69 77 25 20 20  20 20 20 20 20 20 3d 20  |.. iw%        = |
000007d0  69 6d 61 67 65 77 6f 72  64 25 0d 02 26 1b 20 6d  |imageword%..&. m|
000007e0  77 25 20 20 20 20 20 20  20 20 3d 20 6d 61 73 6b  |w%        = mask|
000007f0  77 6f 72 64 25 0d 02 30  18 20 e3 20 69 6e 73 74  |word%..0. . inst|
00000800  61 6e 63 65 25 20 3d 20  30 20 b8 20 37 0d 02 3a  |ance% = 0 . 7..:|
00000810  20 20 20 64 61 74 61 70  74 72 25 21 28 6f 66 66  |   dataptr%!(off|
00000820  73 65 74 25 2b 30 29 20  3d 20 69 77 25 0d 02 44  |set%+0) = iw%..D|
00000830  20 20 20 64 61 74 61 70  74 72 25 21 28 6f 66 66  |   dataptr%!(off|
00000840  73 65 74 25 2b 34 29 20  3d 20 6d 77 25 0d 02 4e  |set%+4) = mw%..N|
00000850  2c 20 20 69 77 25 20 3d  20 28 69 77 25 3c 3c 34  |,  iw% = (iw%<<4|
00000860  29 20 84 20 28 6c 61 73  74 69 6d 61 67 65 77 6f  |) . (lastimagewo|
00000870  72 64 25 3e 3e 3e 32 38  29 0d 02 58 28 20 20 6c  |rd%>>>28)..X(  l|
00000880  61 73 74 69 6d 61 67 65  77 6f 72 64 25 20 3d 20  |astimageword% = |
00000890  6c 61 73 74 69 6d 61 67  65 77 6f 72 64 25 3c 3c  |lastimageword%<<|
000008a0  34 0d 02 62 2b 20 20 6d  77 25 20 3d 20 28 6d 77  |4..b+  mw% = (mw|
000008b0  25 3c 3c 34 29 20 84 20  28 6c 61 73 74 6d 61 73  |%<<4) . (lastmas|
000008c0  6b 77 6f 72 64 25 3e 3e  3e 32 38 29 0d 02 6c 27  |kword%>>>28)..l'|
000008d0  20 20 6c 61 73 74 6d 61  73 6b 77 6f 72 64 25 20  |  lastmaskword% |
000008e0  20 3d 20 6c 61 73 74 6d  61 73 6b 77 6f 72 64 25  | = lastmaskword%|
000008f0  3c 3c 34 0d 02 76 18 20  20 6f 66 66 73 65 74 25  |<<4..v.  offset%|
00000900  2b 3d 77 69 64 74 68 25  2a 33 35 0d 02 80 06 20  |+=width%*35.... |
00000910  ed 0d 02 8a 10 20 64 61  74 61 70 74 72 25 2b 3d  |..... dataptr%+=|
00000920  38 0d 02 94 20 20 6c 61  73 74 69 6d 61 67 65 77  |8...  lastimagew|
00000930  6f 72 64 25 20 3d 20 69  6d 61 67 65 77 6f 72 64  |ord% = imageword|
00000940  25 0d 02 9e 1f 20 6c 61  73 74 6d 61 73 6b 77 6f  |%.... lastmaskwo|
00000950  72 64 25 20 20 3d 20 6d  61 73 6b 77 6f 72 64 25  |rd%  = maskword%|
00000960  0d 02 a8 05 ed 0d 02 b2  05 3a 0d 02 bc 17 f4 20  |.........:..... |
00000970  4e 6f 77 20 73 61 76 65  20 6f 75 72 20 64 61 74  |Now save our dat|
00000980  61 0d 02 c6 3f c8 99 20  22 4f 53 5f 46 69 6c 65  |a...?.. "OS_File|
00000990  22 2c 20 31 30 2c 20 22  48 65 61 64 44 61 74 61  |", 10, "HeadData|
000009a0  22 2c 20 26 46 46 44 2c  2c 20 64 61 74 61 25 2c  |", &FFD,, data%,|
000009b0  20 64 61 74 61 25 2b 64  61 74 61 73 69 7a 65 25  | data%+datasize%|
000009c0  0d 02 d0 05 e0 0d ff                              |.......|
000009c7