home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / demos / r / sounddemo1 / !SoundDemo / lethprog < prev    next >
Unknown  |  1990-02-25  |  5.2 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert Truevision Targa Graphic (image/tga) magic Supported
100% file data default
100% xdgMime image/x-tga default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 42 f4 20 59 6f | 75 20 6e 65 76 65 72 20 |...B. Yo|u never |
|00000010| 6b 6e 6f 77 2c 20 42 42 | 2c 20 69 66 20 79 6f 75 |know, BB|, if you|
|00000020| 20 61 73 6b 20 6e 69 63 | 65 6c 79 20 6d 61 79 62 | ask nic|ely mayb|
|00000030| 65 20 73 6f 6d 65 20 6b | 69 6e 64 20 70 65 72 73 |e some k|ind pers|
|00000040| 6f 6e 0d 00 14 3b f4 20 | 77 69 6c 6c 20 65 78 70 |on...;. |will exp|
|00000050| 6c 61 69 6e 20 74 6f 20 | 79 6f 75 20 74 68 65 20 |lain to |you the |
|00000060| 6d 65 74 68 6f 64 73 20 | 75 73 65 64 20 69 6e 20 |methods |used in |
|00000070| 74 68 69 73 20 70 72 6f | 67 72 61 6d 2e 0d 00 1e |this pro|gram....|
|00000080| 43 f4 20 4f 72 20 70 65 | 72 68 61 70 73 20 69 66 |C. Or pe|rhaps if|
|00000090| 20 79 6f 75 27 72 65 20 | 76 65 72 79 20 6c 75 63 | you're |very luc|
|000000a0| 6b 79 20 79 6f 75 20 6d | 69 67 68 74 20 62 65 20 |ky you m|ight be |
|000000b0| 67 69 76 65 6e 20 74 68 | 65 20 66 6f 72 6d 61 74 |given th|e format|
|000000c0| 0d 00 28 1a f4 20 66 6f | 72 20 74 68 65 20 73 70 |..(.. fo|r the sp|
|000000d0| 72 69 74 65 20 66 69 6c | 65 2e 0d 00 32 05 f4 0d |rite fil|e...2...|
|000000e0| 00 3c 45 f4 20 42 79 20 | 74 68 65 20 77 61 79 2c |.<E. By |the way,|
|000000f0| 20 73 6f 72 72 79 20 69 | 74 27 73 20 61 20 62 69 | sorry i|t's a bi|
|00000100| 74 20 6f 66 20 61 20 6d | 65 73 73 2c 20 62 75 74 |t of a m|ess, but|
|00000110| 20 49 20 63 61 6e 27 74 | 20 62 65 20 62 6f 74 68 | I can't| be both|
|00000120| 65 72 65 64 0d 00 46 1f | f4 20 74 6f 20 74 69 64 |ered..F.|. to tid|
|00000130| 79 20 69 74 20 75 70 20 | 21 21 21 21 21 21 21 21 |y it up |!!!!!!!!|
|00000140| 21 21 21 0d 00 50 2d f4 | 20 41 74 20 6c 65 61 73 |!!!..P-.| At leas|
|00000150| 74 20 74 68 65 20 6c 69 | 6e 65 20 6e 75 6d 62 65 |t the li|ne numbe|
|00000160| 72 73 20 67 6f 20 75 70 | 20 69 6e 20 74 65 6e 73 |rs go up| in tens|
|00000170| 0d 00 5a 05 3a 0d 00 64 | 5d ee 20 85 20 eb 20 30 |..Z.:..d|]. . . 0|
|00000180| 3a ff 28 22 52 4d 4b 69 | 6c 6c 20 6c 65 74 68 61 |:.("RMKi|ll letha|
|00000190| 6c 22 29 3a ff 28 22 52 | 4d 4b 69 6c 6c 20 59 47 |l"):.("R|MKill YG|
|000001a0| 47 59 22 29 3a ff 28 22 | 52 4d 41 53 69 7a 65 20 |GY"):.("|RMASize |
|000001b0| 31 36 4b 22 29 3a c8 99 | 20 22 57 69 6d 70 5f 43 |16K"):..| "Wimp_C|
|000001c0| 6f 6d 6d 61 6e 64 57 69 | 6e 64 6f 77 22 2c 2d 31 |ommandWi|ndow",-1|
|000001d0| 3a e0 0d 00 6e 1c c8 99 | 20 22 4f 53 5f 55 70 64 |:...n...| "OS_Upd|
|000001e0| 61 74 65 4d 45 4d 43 22 | 2c 36 34 2c 36 34 0d 00 |ateMEMC"|,64,64..|
|000001f0| 78 05 3a 0d 00 82 20 f4 | 20 4e 75 6d 62 65 72 20 |x.:... .| Number |
|00000200| 6f 66 20 73 70 72 69 74 | 65 73 20 69 6e 20 66 69 |of sprit|es in fi|
|00000210| 6c 65 3a 0d 00 8c 12 4d | 41 58 5f 53 50 52 49 54 |le:....M|AX_SPRIT|
|00000220| 45 53 3d 32 37 0d 00 96 | 1e f4 20 44 69 73 74 61 |ES=27...|.. Dista|
|00000230| 6e 63 65 20 62 65 74 77 | 65 65 6e 20 73 70 72 69 |nce betw|een spri|
|00000240| 74 65 73 0d 00 a0 0b 64 | 69 73 74 25 3d 37 0d 00 |tes....d|ist%=7..|
|00000250| aa 17 f4 20 53 70 65 65 | 64 20 6f 66 20 6d 6f 76 |... Spee|d of mov|
|00000260| 65 6d 65 6e 74 0d 00 b4 | 0c 73 70 65 65 64 25 3d |ement...|.speed%=|
|00000270| 32 0d 00 be 17 f4 20 53 | 74 72 69 6e 67 20 74 6f |2..... S|tring to|
|00000280| 20 61 6e 69 6d 61 74 65 | 0d 00 c8 15 73 74 72 24 | animate|....str$|
|00000290| 3d 22 41 52 43 48 49 4d | 45 44 45 53 22 0d 00 d2 |="ARCHIM|EDES"...|
|000002a0| 05 3a 0d 00 dc 08 eb 20 | 31 33 0d 00 e6 05 87 0d |.:..... |13......|
|000002b0| 00 f0 05 3a 0d 00 fa 10 | 64 69 73 74 25 2b 3d 64 |...:....|dist%+=d|
|000002c0| 69 73 74 25 0d 01 04 12 | 73 70 65 65 64 25 2b 3d |ist%....|speed%+=|
|000002d0| 73 70 65 65 64 25 0d 01 | 0e 0b fb 20 31 32 38 2b |speed%..|... 128+|
|000002e0| 30 0d 01 18 05 db 0d 01 | 22 05 3a 0d 01 2c 0a f2 |0.......|".:..,..|
|000002f0| 73 65 74 75 70 0d 01 36 | 05 3a 0d 01 40 10 6c 65 |setup..6|.:..@.le|
|00000300| 6e 25 3d a9 28 73 74 72 | 24 29 0d 01 4a 10 de 20 |n%=.(str|$)..J.. |
|00000310| 73 74 72 25 28 6c 65 6e | 25 29 0d 01 54 11 e3 20 |str%(len|%)..T.. |
|00000320| 5a 25 3d 31 20 b8 20 6c | 65 6e 25 0d 01 5e 1e 73 |Z%=1 . l|en%..^.s|
|00000330| 74 72 25 28 5a 25 29 3d | 97 28 c1 73 74 72 24 2c |tr%(Z%)=|.(.str$,|
|00000340| 5a 25 2c 31 29 29 2d 36 | 35 0d 01 68 23 e7 20 97 |Z%,1))-6|5..h#. .|
|00000350| 28 c1 73 74 72 24 2c 5a | 25 2c 31 29 29 3d 33 32 |(.str$,Z|%,1))=32|
|00000360| 20 73 74 72 25 28 5a 25 | 29 3d 32 36 0d 01 72 05 | str%(Z%|)=26..r.|
|00000370| ed 0d 01 7c 05 3a 0d 01 | 86 12 4d 41 58 5f 53 50 |...|.:..|..MAX_SP|
|00000380| 52 49 54 45 53 2d 3d 31 | 0d 01 90 05 3a 0d 01 9a |RITES-=1|....:...|
|00000390| 19 73 63 72 31 25 3d a4 | 73 63 72 65 65 6e 5f 61 |.scr1%=.|screen_a|
|000003a0| 64 64 72 65 73 73 0d 01 | a4 45 c8 99 20 36 2c 31 |ddress..|.E.. 6,1|
|000003b0| 31 32 2c 32 3a c8 99 20 | 36 2c 31 31 33 2c 32 3a |12,2:.. |6,113,2:|
|000003c0| 73 63 72 32 25 3d a4 73 | 63 72 65 65 6e 5f 61 64 |scr2%=.s|creen_ad|
|000003d0| 64 72 65 73 73 3a c8 99 | 20 36 2c 31 31 32 2c 31 |dress:..| 6,112,1|
|000003e0| 3a c8 99 20 36 2c 31 31 | 33 2c 31 0d 01 ae 05 3a |:.. 6,11|3,1....:|
|000003f0| 0d 01 b8 21 41 25 3d 8e | 28 22 3c 53 6f 75 6e 64 |...!A%=.|("<Sound|
|00000400| 24 44 65 6d 6f 3e 2e 46 | 73 70 72 4d 6f 76 65 22 |$Demo>.F|sprMove"|
|00000410| 29 0d 01 c2 0f 6c 65 6e | 67 74 68 3d a2 23 41 25 |)....len|gth=.#A%|
|00000420| 0d 01 cc 08 d9 23 41 25 | 0d 01 d6 05 3a 0d 01 e0 |.....#A%|....:...|
|00000430| 12 de 20 6d 6f 76 65 25 | 20 6c 65 6e 67 74 68 0d |.. move%| length.|
|00000440| 01 ea 2e ff 28 22 4c 6f | 61 64 20 3c 53 6f 75 6e |....("Lo|ad <Soun|
|00000450| 64 24 44 65 6d 6f 3e 2e | 46 73 70 72 4d 6f 76 65 |d$Demo>.|FsprMove|
|00000460| 20 22 2b c3 7e 28 6d 6f | 76 65 25 29 29 0d 01 f4 | "+.~(mo|ve%))...|
|00000470| 16 2a 43 68 61 6e 6e 65 | 6c 56 6f 69 63 65 20 31 |.*Channe|lVoice 1|
|00000480| 20 31 31 0d 01 fe 07 ef | 20 37 0d 02 08 05 3a 0d | 11.....| 7....:.|
|00000490| 02 12 0c 63 6f 75 6e 74 | 25 3d 30 0d 02 1c 0b 63 |...count|%=0....c|
|000004a0| 6f 75 6e 25 3d 31 0d 02 | 26 05 3a 0d 02 30 5b 76 |oun%=1..|&.:..0[v|
|000004b0| 69 64 65 6f 25 3d 31 3a | c8 99 20 36 2c 31 31 32 |ideo%=1:|.. 6,112|
|000004c0| 2c 76 69 64 65 6f 25 3a | 76 69 64 65 6f 25 3d 33 |,video%:|video%=3|
|000004d0| 2d 76 69 64 65 6f 25 3a | c8 99 20 36 2c 31 31 33 |-video%:|.. 6,113|
|000004e0| 2c 76 69 64 65 6f 25 3a | e7 20 76 69 64 65 6f 25 |,video%:|. video%|
|000004f0| 3d 31 20 42 25 3d 73 63 | 72 32 25 20 8b 20 42 25 |=1 B%=sc|r2% . B%|
|00000500| 3d 73 63 72 31 25 0d 02 | 3a 05 3a 0d 02 44 57 f5 |=scr1%..|:.:..DW.|
|00000510| 3a c8 96 3a c8 99 20 36 | 2c 31 31 32 2c 76 69 64 |:..:.. 6|,112,vid|
|00000520| 65 6f 25 3a 76 69 64 65 | 6f 25 3d 33 2d 76 69 64 |eo%:vide|o%=3-vid|
|00000530| 65 6f 25 3a c8 99 20 36 | 2c 31 31 33 2c 76 69 64 |eo%:.. 6|,113,vid|
|00000540| 65 6f 25 3a e7 20 76 69 | 64 65 6f 25 3d 31 20 42 |eo%:. vi|deo%=1 B|
|00000550| 25 3d 73 63 72 32 25 20 | 8b 20 42 25 3d 73 63 72 |%=scr2% |. B%=scr|
|00000560| 31 25 0d 02 4e 32 db 3a | 63 6f 75 6e 74 25 2b 3d |1%..N2.:|count%+=|
|00000570| 64 69 73 74 25 2a 28 6c | 65 6e 25 2b 31 29 3a 63 |dist%*(l|en%+1):c|
|00000580| 6f 75 6e 25 2b 3d 64 69 | 73 74 25 2a 28 6c 65 6e |oun%+=di|st%*(len|
|00000590| 25 2b 31 29 0d 02 58 ca | e3 20 5a 25 3d 6c 65 6e |%+1)..X.|. Z%=len|
|000005a0| 25 20 b8 20 31 20 88 20 | 2d 31 3a 41 25 3d 73 74 |% . 1 . |-1:A%=st|
|000005b0| 72 25 28 5a 25 29 2a 35 | 39 32 2b 73 70 72 69 74 |r%(Z%)*5|92+sprit|
|000005c0| 65 5f 64 61 74 61 3a 43 | 25 3d 6d 6f 76 65 25 3f |e_data:C|%=move%?|
|000005d0| 28 28 63 6f 75 6e 74 25 | 2d 64 69 73 74 25 2a 5a |((count%|-dist%*Z|
|000005e0| 25 29 20 83 20 6c 65 6e | 67 74 68 29 3a 44 25 3d |%) . len|gth):D%=|
|000005f0| 6d 6f 76 65 25 3f 28 28 | 63 6f 75 6e 25 2d 64 69 |move%?((|coun%-di|
|00000600| 73 74 25 2a 5a 25 29 20 | 83 20 6c 65 6e 67 74 68 |st%*Z%) |. length|
|00000610| 29 3a d6 20 70 6c 6f 74 | 5f 73 70 72 69 74 65 4d |):. plot|_spriteM|
|00000620| 43 3a ed 3a 63 6f 75 6e | 74 25 2b 3d 73 70 65 65 |C:.:coun|t%+=spee|
|00000630| 64 25 2d 64 69 73 74 25 | 2a 28 6c 65 6e 25 2b 31 |d%-dist%|*(len%+1|
|00000640| 29 3a 63 6f 75 6e 25 2b | 3d 73 70 65 65 64 25 2d |):coun%+|=speed%-|
|00000650| 64 69 73 74 25 2a 28 6c | 65 6e 25 2b 31 29 0d 02 |dist%*(l|en%+1)..|
|00000660| 62 3b e7 20 63 6f 75 6e | 74 25 3e 6c 65 6e 67 74 |b;. coun|t%>lengt|
|00000670| 68 2b 64 69 73 74 25 2a | 6c 65 6e 25 20 63 6f 75 |h+dist%*|len% cou|
|00000680| 6e 74 25 2d 3d 6c 65 6e | 67 74 68 3a 63 6f 75 6e |nt%-=len|gth:coun|
|00000690| 25 2d 3d 6c 65 6e 67 74 | 68 0d 02 6c 28 e7 20 a6 |%-=lengt|h..l(. .|
|000006a0| 28 2d 34 32 29 20 80 20 | 64 69 73 74 25 3e 30 20 |(-42) . |dist%>0 |
|000006b0| 64 69 73 74 25 2d 3d 32 | 3a c8 96 3a c8 96 3a c8 |dist%-=2|:..:..:.|
|000006c0| 96 0d 02 76 1e e7 20 a6 | 28 2d 35 38 29 20 64 69 |...v.. .|(-58) di|
|000006d0| 73 74 25 2b 3d 32 3a c8 | 96 3a c8 96 3a c8 96 0d |st%+=2:.|.:..:...|
|000006e0| 02 80 2a e7 20 a6 28 2d | 32 36 29 20 80 20 73 70 |..*. .(-|26) . sp|
|000006f0| 65 65 64 25 3e 30 20 73 | 70 65 65 64 25 2d 3d 32 |eed%>0 s|peed%-=2|
|00000700| 3a c8 96 3a c8 96 3a c8 | 96 0d 02 8a 20 e7 20 a6 |:..:..:.|.... . .|
|00000710| 28 2d 31 32 32 29 20 73 | 70 65 65 64 25 2b 3d 32 |(-122) s|peed%+=2|
|00000720| 3a c8 96 3a c8 96 3a c8 | 96 0d 02 94 07 fd 20 a3 |:..:..:.|...... .|
|00000730| 0d 02 9e 05 e0 0d 02 a8 | 05 3a 0d 02 b2 24 f2 70 |........|.:...$.p|
|00000740| 72 69 6e 74 5f 72 65 73 | 75 6c 74 28 91 2d 74 69 |rint_res|ult(.-ti|
|00000750| 6d 65 2d 33 34 2c 6e 75 | 6d 62 65 72 73 29 0d 02 |me-34,nu|mbers)..|
|00000760| bc 05 3a 0d 02 c6 4a f4 | 20 54 72 79 20 64 65 6c |..:...J.| Try del|
|00000770| 65 74 69 6e 67 20 74 68 | 65 20 22 43 41 4c 4c 20 |eting th|e "CALL |
|00000780| 70 6c 6f 74 5f 73 70 72 | 69 74 65 4d 43 22 20 73 |plot_spr|iteMC" s|
|00000790| 74 61 74 65 6d 65 6e 74 | 20 74 6f 20 73 65 65 20 |tatement| to see |
|000007a0| 68 6f 77 20 6d 75 63 68 | 20 74 69 6d 65 0d 02 d0 |how much| time...|
|000007b0| 1b f4 20 74 68 65 20 42 | 41 53 49 43 20 6c 6f 6f |.. the B|ASIC loo|
|000007c0| 70 20 74 61 6b 65 73 2e | 0d 02 da 2a f4 20 4a 75 |p takes.|...*. Ju|
|000007d0| 73 74 20 73 68 6f 77 73 | 20 68 6f 77 20 66 61 73 |st shows| how fas|
|000007e0| 74 20 74 68 69 73 20 72 | 6f 75 74 69 6e 65 20 69 |t this r|outine i|
|000007f0| 73 3a 0d 02 e4 37 f4 20 | 69 74 20 6f 6e 6c 79 20 |s:...7. |it only |
|00000800| 74 61 6b 65 73 20 30 2e | 39 35 20 73 65 63 6f 6e |takes 0.|95 secon|
|00000810| 64 73 20 74 6f 20 70 6c | 6f 74 20 31 2c 30 30 30 |ds to pl|ot 1,000|
|00000820| 20 73 70 72 69 74 65 73 | 2e 0d 02 ee 46 f4 20 51 | sprites|....F. Q|
|00000830| 75 69 74 65 20 69 6d 70 | 72 65 73 73 69 76 65 20 |uite imp|ressive |
|00000840| 72 65 61 6c 6c 79 2c 20 | 65 73 70 65 63 69 61 6c |really, |especial|
|00000850| 6c 79 20 77 68 65 6e 20 | 63 6f 6d 70 61 72 65 64 |ly when |compared|
|00000860| 20 74 6f 20 74 68 65 20 | 52 49 53 43 20 4f 53 0d | to the |RISC OS.|
|00000870| 02 f8 33 f4 20 2c 20 6f | 72 20 65 76 65 6e 20 77 |..3. , o|r even w|
|00000880| 6f 72 73 65 20 74 68 65 | 20 41 72 74 68 75 72 2c |orse the| Arthur,|
|00000890| 20 20 73 70 72 69 74 65 | 20 72 6f 75 74 69 6e 65 | sprite| routine|
|000008a0| 73 2e 0d 03 02 05 3a 0d | 03 0c 05 e0 0d 03 16 05 |s.....:.|........|
|000008b0| 3a 0d 03 20 22 dd 20 f2 | 70 72 69 6e 74 5f 72 65 |:.. ". .|print_re|
|000008c0| 73 75 6c 74 28 74 6f 74 | 61 6c 2c 6e 75 6d 62 65 |sult(tot|al,numbe|
|000008d0| 72 73 29 0d 03 2a 45 f1 | 20 8a 30 2c 30 29 3b 22 |rs)..*E.| .0,0);"|
|000008e0| 54 69 6d 65 20 74 61 6b | 65 6e 20 66 6f 72 20 22 |Time tak|en for "|
|000008f0| 3b 6e 75 6d 62 65 72 73 | 3b 22 20 73 70 72 69 74 |;numbers|;" sprit|
|00000900| 65 73 20 3a 22 3b 74 6f | 74 61 6c 2f 31 30 30 3b |es :";to|tal/100;|
|00000910| 22 20 73 65 63 73 2e 22 | 0d 03 34 42 f1 20 8a 30 |" secs."|..4B. .0|
|00000920| 2c 31 29 3b 22 54 68 61 | 74 20 69 73 20 22 3b a8 |,1);"Tha|t is ";.|
|00000930| 28 31 2f 74 6f 74 61 6c | 2a 6e 75 6d 62 65 72 73 |(1/total|*numbers|
|00000940| 2a 31 30 30 29 3b 22 20 | 73 70 72 69 74 65 73 20 |*100);" |sprites |
|00000950| 61 20 73 65 63 6f 6e 64 | 2e 22 0d 03 3e 05 e1 0d |a second|."..>...|
|00000960| 03 48 05 3a 0d 03 52 0c | dd 20 f2 73 65 74 75 70 |.H.:..R.|. .setup|
|00000970| 0d 03 5c 10 de 20 63 6f | 64 65 20 26 33 30 30 30 |..\.. co|de &3000|
|00000980| 0d 03 66 12 de 20 70 61 | 72 5f 62 6c 6f 63 6b 20 |..f.. pa|r_block |
|00000990| 31 31 0d 03 70 05 3a 0d | 03 7a 17 f4 20 4c 6f 61 |11..p.:.|.z.. Loa|
|000009a0| 64 20 73 70 72 69 74 65 | 73 20 66 69 6c 65 0d 03 |d sprite|s file..|
|000009b0| 84 21 de 20 73 70 72 69 | 74 65 5f 64 61 74 61 20 |.!. spri|te_data |
|000009c0| 35 39 32 2a 4d 41 58 5f | 53 50 52 49 54 45 53 0d |592*MAX_|SPRITES.|
|000009d0| 03 8e 34 ff 28 22 4c 6f | 61 64 20 3c 53 6f 75 6e |..4.("Lo|ad <Soun|
|000009e0| 64 24 44 65 6d 6f 3e 2e | 46 53 70 72 69 74 65 73 |d$Demo>.|FSprites|
|000009f0| 20 22 2b c3 7e 28 73 70 | 72 69 74 65 5f 64 61 74 | "+.~(sp|rite_dat|
|00000a00| 61 29 29 0d 03 98 05 3a | 0d 03 a2 0b 50 25 3d 63 |a))....:|....P%=c|
|00000a10| 6f 64 65 0d 03 ac 18 f2 | 61 73 73 5f 70 6c 6f 74 |ode.....|ass_plot|
|00000a20| 5f 73 70 72 69 74 65 28 | 50 25 29 0d 03 b6 05 e1 |_sprite(|P%).....|
|00000a30| 0d 03 c0 05 3a 0d 03 ca | 1d dd 20 f2 61 73 73 5f |....:...|.. .ass_|
|00000a40| 70 6c 6f 74 5f 73 70 72 | 69 74 65 28 63 6f 64 65 |plot_spr|ite(code|
|00000a50| 25 29 0d 03 d4 2b 73 70 | 72 69 74 65 5f 70 6f 69 |%)...+sp|rite_poi|
|00000a60| 6e 74 65 72 52 3d 30 20 | 3a f4 20 41 25 2c 20 73 |nterR=0 |:. A%, s|
|00000a70| 70 72 69 74 65 20 70 6f | 69 6e 74 65 72 0d 03 de |prite po|inter...|
|00000a80| 2b 73 63 72 65 65 6e 5f | 61 64 64 72 65 73 73 52 |+screen_|addressR|
|00000a90| 3d 31 20 3a f4 20 42 25 | 2c 20 73 63 72 65 65 6e |=1 :. B%|, screen|
|00000aa0| 20 70 6f 69 6e 74 65 72 | 0d 03 e8 3f 78 52 3d 32 | pointer|...?xR=2|
|00000ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 | | :.|
|00000ac0| 20 43 25 2c 20 73 70 72 | 69 74 65 20 58 20 70 6f | C%, spr|ite X po|
|00000ad0| 73 2e 20 28 73 63 72 65 | 65 6e 20 75 6e 69 74 73 |s. (scre|en units|
|00000ae0| 20 30 2d 32 39 36 29 0d | 03 f2 3f 79 52 3d 33 20 | 0-296).|..?yR=3 |
|00000af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 | | :. |
|00000b00| 44 25 2c 20 73 70 72 69 | 74 65 20 59 20 70 6f 73 |D%, spri|te Y pos|
|00000b10| 2e 20 28 73 63 72 65 65 | 6e 20 75 6e 69 74 73 20 |. (scree|n units |
|00000b20| 30 2d 32 33 32 29 0d 03 | fc 0c 64 61 74 61 35 52 |0-232)..|..data5R|
|00000b30| 3d 34 0d 04 06 15 73 63 | 72 65 65 6e 5f 70 6f 69 |=4....sc|reen_poi|
|00000b40| 6e 74 65 72 52 3d 36 0d | 04 10 22 64 61 74 61 31 |nterR=6.|.."data1|
|00000b50| 52 3d 39 20 20 20 20 20 | 20 20 20 20 20 3a 70 69 |R=9 | :pi|
|00000b60| 78 65 6c 73 5f 78 52 3d | 39 0d 04 1a 23 64 61 74 |xels_xR=|9...#dat|
|00000b70| 61 32 52 3d 31 30 20 20 | 20 20 20 20 20 20 20 3a |a2R=10 | :|
|00000b80| 70 69 78 65 6c 73 5f 79 | 52 3d 31 30 0d 04 24 0d |pixels_y|R=10..$.|
|00000b90| 64 61 74 61 33 52 3d 31 | 31 0d 04 2e 0d 64 61 74 |data3R=1|1....dat|
|00000ba0| 61 34 52 3d 31 32 0d 04 | 38 05 3a 0d 04 42 15 e3 |a4R=12..|8.:..B..|
|00000bb0| 20 70 61 73 73 25 3d 30 | 20 b8 20 32 20 88 20 32 | pass%=0| . 2 . 2|
|00000bc0| 0d 04 4c 0c 50 25 3d 63 | 6f 64 65 25 0d 04 56 0e |..L.P%=c|ode%..V.|
|00000bd0| 5b 4f 50 54 20 70 61 73 | 73 25 0d 04 60 12 2e 70 |[OPT pas|s%..`..p|
|00000be0| 6c 6f 74 5f 73 70 72 69 | 74 65 4d 43 0d 04 6a 15 |lot_spri|teMC..j.|
|00000bf0| 4d 4f 56 20 70 69 78 65 | 6c 73 5f 78 52 2c 23 32 |MOV pixe|ls_xR,#2|
|00000c00| 34 0d 04 74 21 4c 44 52 | 42 20 64 61 74 61 33 52 |4..t!LDR|B data3R|
|00000c10| 2c 5b 73 70 72 69 74 65 | 5f 70 6f 69 6e 74 65 72 |,[sprite|_pointer|
|00000c20| 52 5d 0d 04 7e 22 53 55 | 42 20 70 69 78 65 6c 73 |R]..~"SU|B pixels|
|00000c30| 5f 78 52 2c 70 69 78 65 | 6c 73 5f 78 52 2c 64 61 |_xR,pixe|ls_xR,da|
|00000c40| 74 61 33 52 0d 04 88 14 | 41 44 44 20 78 52 2c 78 |ta3R....|ADD xR,x|
|00000c50| 52 2c 64 61 74 61 33 52 | 0d 04 92 05 3a 0d 04 9c |R,data3R|....:...|
|00000c60| 15 4d 4f 56 20 70 69 78 | 65 6c 73 5f 79 52 2c 23 |.MOV pix|els_yR,#|
|00000c70| 32 34 0d 04 a6 24 4c 44 | 52 42 20 64 61 74 61 33 |24...$LD|RB data3|
|00000c80| 52 2c 5b 73 70 72 69 74 | 65 5f 70 6f 69 6e 74 65 |R,[sprit|e_pointe|
|00000c90| 72 52 2c 23 32 5d 0d 04 | b0 22 53 55 42 20 70 69 |rR,#2]..|."SUB pi|
|00000ca0| 78 65 6c 73 5f 79 52 2c | 70 69 78 65 6c 73 5f 79 |xels_yR,|pixels_y|
|00000cb0| 52 2c 64 61 74 61 33 52 | 0d 04 ba 14 41 44 44 20 |R,data3R|....ADD |
|00000cc0| 79 52 2c 79 52 2c 64 61 | 74 61 33 52 0d 04 c4 05 |yR,yR,da|ta3R....|
|00000cd0| 3a 0d 04 ce 24 4c 44 52 | 42 20 64 61 74 61 33 52 |:...$LDR|B data3R|
|00000ce0| 2c 5b 73 70 72 69 74 65 | 5f 70 6f 69 6e 74 65 72 |,[sprite|_pointer|
|00000cf0| 52 2c 23 31 5d 0d 04 d8 | 22 53 55 42 20 70 69 78 |R,#1]...|"SUB pix|
|00000d00| 65 6c 73 5f 78 52 2c 70 | 69 78 65 6c 73 5f 78 52 |els_xR,p|ixels_xR|
|00000d10| 2c 64 61 74 61 33 52 0d | 04 e2 05 3a 0d 04 ec 24 |,data3R.|...:...$|
|00000d20| 4c 44 52 42 20 64 61 74 | 61 33 52 2c 5b 73 70 72 |LDRB dat|a3R,[spr|
|00000d30| 69 74 65 5f 70 6f 69 6e | 74 65 72 52 2c 23 33 5d |ite_poin|terR,#3]|
|00000d40| 0d 04 f6 22 53 55 42 20 | 70 69 78 65 6c 73 5f 79 |..."SUB |pixels_y|
|00000d50| 52 2c 70 69 78 65 6c 73 | 5f 79 52 2c 64 61 74 61 |R,pixels|_yR,data|
|00000d60| 33 52 0d 05 00 05 3a 0d | 05 0a 2b 41 44 44 20 73 |3R....:.|..+ADD s|
|00000d70| 70 72 69 74 65 5f 70 6f | 69 6e 74 65 72 52 2c 73 |prite_po|interR,s|
|00000d80| 70 72 69 74 65 5f 70 6f | 69 6e 74 65 72 52 2c 23 |prite_po|interR,#|
|00000d90| 31 36 0d 05 14 05 3a 0d | 05 1e 13 4d 4f 56 20 64 |16....:.|...MOV d|
|00000da0| 61 74 61 34 52 2c 23 33 | 32 30 0d 05 28 31 4d 4c |ata4R,#3|20..(1ML|
|00000db0| 41 20 73 63 72 65 65 6e | 5f 70 6f 69 6e 74 65 72 |A screen|_pointer|
|00000dc0| 52 2c 79 52 2c 64 61 74 | 61 34 52 2c 73 63 72 65 |R,yR,dat|a4R,scre|
|00000dd0| 65 6e 5f 61 64 64 72 65 | 73 73 52 0d 05 32 2a 41 |en_addre|ssR..2*A|
|00000de0| 44 44 20 73 63 72 65 65 | 6e 5f 70 6f 69 6e 74 65 |DD scree|n_pointe|
|00000df0| 72 52 2c 73 63 72 65 65 | 6e 5f 70 6f 69 6e 74 65 |rR,scree|n_pointe|
|00000e00| 72 52 2c 78 52 0d 05 3c | 05 3a 0d 05 46 13 4d 4f |rR,xR..<|.:..F.MO|
|00000e10| 56 20 64 61 74 61 33 52 | 2c 23 32 35 35 0d 05 50 |V data3R|,#255..P|
|00000e20| 05 3a 0d 05 5a 15 43 4d | 50 20 70 69 78 65 6c 73 |.:..Z.CM|P pixels|
|00000e30| 5f 78 52 2c 23 31 32 0d | 05 64 18 42 4c 4f 20 70 |_xR,#12.|.d.BLO p|
|00000e40| 6c 6f 74 5f 31 32 5f 78 | 5f 70 69 78 65 6c 73 0d |lot_12_x|_pixels.|
|00000e50| 05 6e 15 43 4d 50 20 70 | 69 78 65 6c 73 5f 78 52 |.n.CMP p|ixels_xR|
|00000e60| 2c 23 31 36 0d 05 78 18 | 42 4c 4f 20 70 6c 6f 74 |,#16..x.|BLO plot|
|00000e70| 5f 31 36 5f 78 5f 70 69 | 78 65 6c 73 0d 05 82 15 |_16_x_pi|xels....|
|00000e80| 43 4d 50 20 70 69 78 65 | 6c 73 5f 78 52 2c 23 32 |CMP pixe|ls_xR,#2|
|00000e90| 30 0d 05 8c 18 42 4c 4f | 20 70 6c 6f 74 5f 32 30 |0....BLO| plot_20|
|00000ea0| 5f 78 5f 70 69 78 65 6c | 73 0d 05 96 05 3a 0d 05 |_x_pixel|s....:..|
|00000eb0| a0 15 2e 70 6c 6f 74 5f | 32 34 5f 78 5f 70 69 78 |...plot_|24_x_pix|
|00000ec0| 65 6c 73 0d 05 aa 0f a4 | 70 6c 6f 74 5f 78 28 32 |els.....|plot_x(2|
|00000ed0| 34 29 0d 05 b4 18 42 4e | 45 20 70 6c 6f 74 5f 32 |4)....BN|E plot_2|
|00000ee0| 34 5f 78 5f 70 69 78 65 | 6c 73 0d 05 be 05 3a 0d |4_x_pixe|ls....:.|
|00000ef0| 05 c8 0f 4d 4f 56 20 52 | 31 35 2c 52 31 34 0d 05 |...MOV R|15,R14..|
|00000f00| d2 05 3a 0d 05 dc 15 2e | 70 6c 6f 74 5f 31 32 5f |..:.....|plot_12_|
|00000f10| 78 5f 70 69 78 65 6c 73 | 0d 05 e6 0f a4 70 6c 6f |x_pixels|.....plo|
|00000f20| 74 5f 78 28 31 32 29 0d | 05 f0 18 42 4e 45 20 70 |t_x(12).|...BNE p|
|00000f30| 6c 6f 74 5f 31 32 5f 78 | 5f 70 69 78 65 6c 73 0d |lot_12_x|_pixels.|
|00000f40| 05 fa 05 3a 0d 06 04 0f | 4d 4f 56 20 52 31 35 2c |...:....|MOV R15,|
|00000f50| 52 31 34 0d 06 0e 05 3a | 0d 06 18 15 2e 70 6c 6f |R14....:|.....plo|
|00000f60| 74 5f 31 36 5f 78 5f 70 | 69 78 65 6c 73 0d 06 22 |t_16_x_p|ixels.."|
|00000f70| 0f a4 70 6c 6f 74 5f 78 | 28 31 36 29 0d 06 2c 18 |..plot_x|(16)..,.|
|00000f80| 42 4e 45 20 70 6c 6f 74 | 5f 31 36 5f 78 5f 70 69 |BNE plot|_16_x_pi|
|00000f90| 78 65 6c 73 0d 06 36 05 | 3a 0d 06 40 0f 4d 4f 56 |xels..6.|:..@.MOV|
|00000fa0| 20 52 31 35 2c 52 31 34 | 0d 06 4a 05 3a 0d 06 54 | R15,R14|..J.:..T|
|00000fb0| 15 2e 70 6c 6f 74 5f 32 | 30 5f 78 5f 70 69 78 65 |..plot_2|0_x_pixe|
|00000fc0| 6c 73 0d 06 5e 0f a4 70 | 6c 6f 74 5f 78 28 32 30 |ls..^..p|lot_x(20|
|00000fd0| 29 0d 06 68 18 42 4e 45 | 20 70 6c 6f 74 5f 32 30 |)..h.BNE| plot_20|
|00000fe0| 5f 78 5f 70 69 78 65 6c | 73 0d 06 72 05 3a 0d 06 |_x_pixel|s..r.:..|
|00000ff0| 7c 0f 4d 4f 56 20 52 31 | 35 2c 52 31 34 0d 06 86 ||.MOV R1|5,R14...|
|00001000| 05 3a 0d 06 90 05 5d 0d | 06 9a 05 ed 0d 06 a4 40 |.:....].|.......@|
|00001010| f1 20 22 50 6c 6f 74 2d | 73 70 72 69 74 65 2c 20 |. "Plot-|sprite, |
|00001020| 26 22 3b 7e 63 6f 64 65 | 25 3b 22 2d 26 22 3b 7e |&";~code|%;"-&";~|
|00001030| 50 25 2d 31 3b 22 2c 20 | 22 3b 50 25 2d 63 6f 64 |P%-1;", |";P%-cod|
|00001040| 65 25 3b 22 20 62 79 74 | 65 73 2e 22 0d 06 ae 25 |e%;" byt|es."...%|
|00001050| f1 20 27 27 27 22 54 72 | 79 20 75 73 69 6e 67 20 |. '''"Tr|y using |
|00001060| 74 68 65 20 63 75 72 73 | 6f 72 20 6b 65 79 73 2e |the curs|or keys.|
|00001070| 22 0d 06 b8 0d 41 25 3d | a6 28 32 30 30 29 0d 06 |"....A%=|.(200)..|
|00001080| c2 05 e1 0d 06 cc 05 3a | 0d 06 d6 15 dd 20 a4 70 |.......:|..... .p|
|00001090| 6c 6f 74 5f 78 28 70 69 | 78 65 6c 73 29 0d 06 e0 |lot_x(pi|xels)...|
|000010a0| 0e ea 20 6d 75 6c 74 69 | 70 6c 65 0d 06 ea 15 70 |.. multi|ple....p|
|000010b0| 69 78 65 6c 73 3d 70 69 | 78 65 6c 73 20 81 20 34 |ixels=pi|xels . 4|
|000010c0| 0d 06 f4 19 e3 20 6d 75 | 6c 74 69 70 6c 65 3d 31 |..... mu|ltiple=1|
|000010d0| 20 b8 20 70 69 78 65 6c | 73 0d 06 fe 0e 5b 4f 50 | . pixel|s....[OP|
|000010e0| 54 20 70 61 73 73 25 0d | 07 08 12 a4 70 6c 6f 74 |T pass%.|....plot|
|000010f0| 5f 34 5f 70 69 78 65 6c | 73 0d 07 12 05 5d 0d 07 |_4_pixel|s....]..|
|00001100| 1c 05 ed 0d 07 26 0e 5b | 4f 50 54 20 70 61 73 73 |.....&.[|OPT pass|
|00001110| 25 0d 07 30 37 41 44 44 | 20 73 63 72 65 65 6e 5f |%..07ADD| screen_|
|00001120| 70 6f 69 6e 74 65 72 52 | 2c 73 63 72 65 65 6e 5f |pointerR|,screen_|
|00001130| 70 6f 69 6e 74 65 72 52 | 2c 23 33 32 30 2d 28 70 |pointerR|,#320-(p|
|00001140| 69 78 65 6c 73 2a 34 29 | 0d 07 3a 34 41 44 44 20 |ixels*4)|..:4ADD |
|00001150| 73 70 72 69 74 65 5f 70 | 6f 69 6e 74 65 72 52 2c |sprite_p|ointerR,|
|00001160| 73 70 72 69 74 65 5f 70 | 6f 69 6e 74 65 72 52 2c |sprite_p|ointerR,|
|00001170| 23 32 34 2d 70 69 78 65 | 6c 73 2a 34 0d 07 44 1f |#24-pixe|ls*4..D.|
|00001180| 53 55 42 53 20 70 69 78 | 65 6c 73 5f 79 52 2c 70 |SUBS pix|els_yR,p|
|00001190| 69 78 65 6c 73 5f 79 52 | 2c 23 31 0d 07 4e 05 5d |ixels_yR|,#1..N.]|
|000011a0| 0d 07 58 07 3d 22 22 0d | 07 62 05 3a 0d 07 6c 14 |..X.="".|.b.:..l.|
|000011b0| dd 20 a4 70 6c 6f 74 5f | 34 5f 70 69 78 65 6c 73 |. .plot_|4_pixels|
|000011c0| 0d 07 76 45 f4 20 50 6c | 6f 74 20 34 20 70 69 78 |..vE. Pl|ot 4 pix|
|000011d0| 65 6c 73 2e 20 42 6c 61 | 63 6b 20 69 73 20 75 73 |els. Bla|ck is us|
|000011e0| 65 64 20 61 73 20 74 68 | 65 20 6d 61 73 6b 2c 20 |ed as th|e mask, |
|000011f0| 69 66 20 79 6f 75 20 77 | 61 6e 74 20 62 6c 61 63 |if you w|ant blac|
|00001200| 6b 20 75 73 65 0d 07 80 | 2e f4 20 63 6f 6c 6f 75 |k use...|.. colou|
|00001210| 72 20 31 2c 20 79 6f 75 | 20 63 61 6e 27 74 20 74 |r 1, you| can't t|
|00001220| 65 6c 6c 20 74 68 65 20 | 64 69 66 66 65 72 65 6e |ell the |differen|
|00001230| 63 65 2e 0d 07 8a 0e 5b | 4f 50 54 20 70 61 73 73 |ce.....[|OPT pass|
|00001240| 25 0d 07 94 23 4c 44 52 | 20 64 61 74 61 34 52 2c |%...#LDR| data4R,|
|00001250| 5b 73 70 72 69 74 65 5f | 70 6f 69 6e 74 65 72 52 |[sprite_|pointerR|
|00001260| 5d 2c 23 34 0d 07 9e 1b | 80 53 20 64 61 74 61 35 |],#4....|.S data5|
|00001270| 52 2c 64 61 74 61 33 52 | 2c 64 61 74 61 34 52 0d |R,data3R|,data4R.|
|00001280| 07 a8 23 53 54 52 4e 45 | 42 20 64 61 74 61 35 52 |..#STRNE|B data5R|
|00001290| 2c 5b 73 63 72 65 65 6e | 5f 70 6f 69 6e 74 65 72 |,[screen|_pointer|
|000012a0| 52 5d 0d 07 b2 05 3a 0d | 07 bc 2a 41 44 44 20 73 |R]....:.|..*ADD s|
|000012b0| 63 72 65 65 6e 5f 70 6f | 69 6e 74 65 72 52 2c 73 |creen_po|interR,s|
|000012c0| 63 72 65 65 6e 5f 70 6f | 69 6e 74 65 72 52 2c 23 |creen_po|interR,#|
|000012d0| 31 0d 07 c6 22 80 53 20 | 64 61 74 61 35 52 2c 64 |1...".S |data5R,d|
|000012e0| 61 74 61 33 52 2c 64 61 | 74 61 34 52 2c 4c 53 52 |ata3R,da|ta4R,LSR|
|000012f0| 20 23 38 0d 07 d0 23 53 | 54 52 4e 45 42 20 64 61 | #8...#S|TRNEB da|
|00001300| 74 61 35 52 2c 5b 73 63 | 72 65 65 6e 5f 70 6f 69 |ta5R,[sc|reen_poi|
|00001310| 6e 74 65 72 52 5d 0d 07 | da 05 3a 0d 07 e4 2a 41 |nterR]..|..:...*A|
|00001320| 44 44 20 73 63 72 65 65 | 6e 5f 70 6f 69 6e 74 65 |DD scree|n_pointe|
|00001330| 72 52 2c 73 63 72 65 65 | 6e 5f 70 6f 69 6e 74 65 |rR,scree|n_pointe|
|00001340| 72 52 2c 23 31 0d 07 ee | 23 80 53 20 64 61 74 61 |rR,#1...|#.S data|
|00001350| 35 52 2c 64 61 74 61 33 | 52 2c 64 61 74 61 34 52 |5R,data3|R,data4R|
|00001360| 2c 4c 53 52 20 23 31 36 | 0d 07 f8 23 53 54 52 4e |,LSR #16|...#STRN|
|00001370| 45 42 20 64 61 74 61 35 | 52 2c 5b 73 63 72 65 65 |EB data5|R,[scree|
|00001380| 6e 5f 70 6f 69 6e 74 65 | 72 52 5d 0d 08 02 05 3a |n_pointe|rR]....:|
|00001390| 0d 08 0c 2a 41 44 44 20 | 73 63 72 65 65 6e 5f 70 |...*ADD |screen_p|
|000013a0| 6f 69 6e 74 65 72 52 2c | 73 63 72 65 65 6e 5f 70 |ointerR,|screen_p|
|000013b0| 6f 69 6e 74 65 72 52 2c | 23 31 0d 08 16 1e 4d 4f |ointerR,|#1....MO|
|000013c0| 56 53 20 64 61 74 61 35 | 52 2c 64 61 74 61 34 52 |VS data5|R,data4R|
|000013d0| 2c 4c 53 52 20 23 32 34 | 0d 08 20 23 53 54 52 4e |,LSR #24|.. #STRN|
|000013e0| 45 42 20 64 61 74 61 35 | 52 2c 5b 73 63 72 65 65 |EB data5|R,[scree|
|000013f0| 6e 5f 70 6f 69 6e 74 65 | 72 52 5d 0d 08 2a 2a 41 |n_pointe|rR]..**A|
|00001400| 44 44 20 73 63 72 65 65 | 6e 5f 70 6f 69 6e 74 65 |DD scree|n_pointe|
|00001410| 72 52 2c 73 63 72 65 65 | 6e 5f 70 6f 69 6e 74 65 |rR,scree|n_pointe|
|00001420| 72 52 2c 23 31 0d 08 34 | 05 5d 0d 08 3e 07 3d 22 |rR,#1..4|.]..>.="|
|00001430| 22 0d 08 48 05 3a 0d 08 | 52 15 dd 20 a4 73 63 72 |"..H.:..|R.. .scr|
|00001440| 65 65 6e 5f 61 64 64 72 | 65 73 73 0d 08 5c 12 21 |een_addr|ess..\.!|
|00001450| 70 61 72 5f 62 6c 6f 63 | 6b 3d 31 34 39 0d 08 66 |par_bloc|k=149..f|
|00001460| 12 70 61 72 5f 62 6c 6f | 63 6b 21 34 3d 2d 31 0d |.par_blo|ck!4=-1.|
|00001470| 08 70 1f c8 99 20 34 39 | 2c 70 61 72 5f 62 6c 6f |.p... 49|,par_blo|
|00001480| 63 6b 2c 70 61 72 5f 62 | 6c 6f 63 6b 2b 38 0d 08 |ck,par_b|lock+8..|
|00001490| 7a 10 3d 70 61 72 5f 62 | 6c 6f 63 6b 21 38 0d ff |z.=par_b|lock!8..|
+--------+-------------------------+-------------------------+--------+--------+