home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / demos / r / star / StarField < prev    next >
Unknown  |  1990-08-13  |  4.4 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 11 f4 20 3e 20 | 53 74 61 72 46 69 65 6c |..... > |StarFiel|
|00000010| 64 0d 00 14 28 f4 20 42 | 79 20 53 74 65 76 65 20 |d...(. B|y Steve |
|00000020| 53 69 6d 73 20 20 2d 20 | 54 68 65 20 4c 69 67 68 |Sims - |The Ligh|
|00000030| 74 20 57 61 72 72 69 6f | 72 0d 00 1e 26 f4 20 43 |t Warrio|r...&. C|
|00000040| 6f 64 65 64 20 6f 6e 20 | 4d 6f 6e 64 61 79 2c 20 |oded on |Monday, |
|00000050| 31 36 74 68 20 41 70 72 | 69 6c 20 31 39 39 30 0d |16th Apr|il 1990.|
|00000060| 00 28 22 f4 20 4d 79 20 | 73 65 63 6f 6e 64 20 70 |.(". My |second p|
|00000070| 69 65 63 65 20 6f 66 20 | 41 52 4d 20 63 6f 64 65 |iece of |ARM code|
|00000080| 2e 0d 00 32 1f f4 20 28 | 49 74 20 77 61 73 20 66 |...2.. (|It was f|
|00000090| 61 69 72 6c 79 20 65 61 | 73 79 20 74 6f 6f 2e 29 |airly ea|sy too.)|
|000000a0| 0d 00 3c 05 f4 0d 00 46 | 33 f4 20 56 65 72 73 69 |..<....F|3. Versi|
|000000b0| 6f 6e 20 31 2e 31 20 20 | 20 20 2d 20 74 68 65 20 |on 1.1 | - the |
|000000c0| 66 69 72 73 74 20 74 6f | 20 63 6f 72 72 65 63 74 |first to| correct|
|000000d0| 6c 79 20 77 6f 72 6b 2e | 0d 00 50 05 f4 0d 00 5a |ly work.|..P....Z|
|000000e0| 43 f4 20 54 68 69 73 20 | 72 6f 75 74 69 6e 65 20 |C. This |routine |
|000000f0| 77 69 6c 6c 20 65 73 73 | 65 6e 74 69 61 6c 6c 79 |will ess|entially|
|00000100| 20 66 6f 72 6d 20 74 68 | 65 20 73 74 61 72 66 69 | form th|e starfi|
|00000110| 65 6c 64 20 61 6e 64 20 | 6d 6f 76 65 20 69 74 2e |eld and |move it.|
|00000120| 0d 00 64 20 f4 20 48 65 | 69 67 68 74 20 6f 66 20 |..d . He|ight of |
|00000130| 66 69 65 6c 64 3d 32 33 | 30 20 70 69 78 65 6c 73 |field=23|0 pixels|
|00000140| 0d 00 6e 3c f4 20 53 70 | 61 63 65 20 61 62 6f 76 |..n<. Sp|ace abov|
|00000150| 65 20 61 6e 64 20 62 65 | 6c 6f 77 20 66 6f 72 20 |e and be|low for |
|00000160| 6c 6f 67 6f 73 20 61 6e | 64 20 73 63 72 6f 6c 6c |logos an|d scroll|
|00000170| 20 74 65 78 74 20 28 65 | 74 63 2e 29 0d 00 78 1c | text (e|tc.)..x.|
|00000180| f4 20 32 35 36 20 73 74 | 61 72 73 20 74 6f 20 62 |. 256 st|ars to b|
|00000190| 65 20 75 73 65 64 20 2d | 0d 00 82 14 f4 20 34 20 |e used -|..... 4 |
|000001a0| 6c 61 79 65 72 73 20 6f | 66 20 36 34 0d 00 8c 2b |layers o|f 64...+|
|000001b0| f4 20 54 68 65 72 65 66 | 6f 72 65 20 34 20 76 65 |. Theref|ore 4 ve|
|000001c0| 6c 6f 63 69 74 69 65 73 | 2c 20 61 6e 64 20 34 20 |locities|, and 4 |
|000001d0| 63 6f 6c 6f 75 72 73 0d | 00 96 30 f4 20 53 74 61 |colours.|..0. Sta|
|000001e0| 72 73 20 72 65 63 6f 72 | 64 65 64 20 61 73 20 73 |rs recor|ded as s|
|000001f0| 63 72 65 65 6e 20 6d 65 | 6d 6f 72 79 20 6c 6f 63 |creen me|mory loc|
|00000200| 61 74 69 6f 6e 73 2e 0d | 00 a0 05 f4 0d 00 aa 44 |ations..|.......D|
|00000210| f4 20 43 6f 64 65 20 63 | 75 72 72 65 6e 74 6c 79 |. Code c|urrently|
|00000220| 20 63 6f 6e 74 61 69 6e | 73 20 62 6f 74 68 20 61 | contain|s both a|
|00000230| 72 69 74 68 6d 65 74 69 | 63 20 61 6e 64 20 67 65 |rithmeti|c and ge|
|00000240| 6f 6d 65 74 72 69 63 20 | 76 65 6c 6f 63 69 74 79 |ometric |velocity|
|00000250| 0d 00 b4 39 f4 20 70 72 | 6f 67 72 65 73 73 69 6f |...9. pr|ogressio|
|00000260| 6e 73 2e 20 20 49 20 61 | 6d 20 6e 6f 74 20 73 75 |ns. I a|m not su|
|00000270| 72 65 20 79 65 74 20 77 | 68 61 74 20 69 73 20 62 |re yet w|hat is b|
|00000280| 65 74 74 65 72 2e 2e 2e | 2e 0d 00 be 0f f4 20 54 |etter...|...... T|
|00000290| 72 79 20 62 6f 74 68 21 | 0d 00 c8 05 f4 0d 00 d2 |ry both!|........|
|000002a0| 4a f4 20 54 68 65 20 73 | 74 61 72 20 66 69 65 6c |J. The s|tar fiel|
|000002b0| 64 20 69 74 73 65 6c 66 | 20 64 6f 65 73 20 6e 6f |d itself| does no|
|000002c0| 74 20 64 65 73 74 72 6f | 79 20 61 6e 79 20 67 72 |t destro|y any gr|
|000002d0| 61 70 68 69 63 73 20 70 | 6c 61 63 65 64 20 6f 6e |aphics p|laced on|
|000002e0| 20 74 6f 70 20 6f 66 0d | 00 dc 3c f4 20 69 74 20 | top of.|..<. it |
|000002f0| 2d 20 69 74 20 72 75 6e | 73 20 62 65 68 69 6e 64 |- it run|s behind|
|00000300| 20 61 6c 6c 20 67 72 61 | 70 68 69 63 73 20 70 6c | all gra|phics pl|
|00000310| 6f 74 74 65 64 20 6f 6e | 20 74 6f 70 20 6f 66 20 |otted on| top of |
|00000320| 69 74 2e 0d 00 e6 4b f4 | 20 49 66 20 67 72 61 70 |it....K.| If grap|
|00000330| 68 69 63 73 20 70 6c 6f | 74 74 65 64 20 61 62 6f |hics plo|tted abo|
|00000340| 76 65 20 69 74 20 61 72 | 65 20 64 65 73 74 72 75 |ve it ar|e destru|
|00000350| 63 74 69 76 65 2c 20 68 | 6f 77 65 76 65 72 2c 20 |ctive, h|owever, |
|00000360| 74 68 65 6e 20 74 68 65 | 20 66 69 65 6c 64 0d 00 |then the| field..|
|00000370| f0 2b f4 20 73 68 6f 75 | 6c 64 20 62 65 20 70 6c |.+. shou|ld be pl|
|00000380| 6f 74 74 65 64 20 61 66 | 74 65 72 20 74 68 65 20 |otted af|ter the |
|00000390| 67 72 61 70 68 69 63 73 | 2e 0d 00 fa 04 0d 01 04 |graphics|........|
|000003a0| 1a ee 20 85 20 f6 3a f1 | 22 20 61 74 20 6c 69 6e |.. . .:.|" at lin|
|000003b0| 65 20 22 3b 9e 3a e0 0d | 01 0e 04 0d 01 18 0f 2a |e ";.:..|.......*|
|000003c0| 73 6c 6f 61 64 20 74 65 | 73 74 0d 01 22 0d 2a 73 |sload te|st..".*s|
|000003d0| 68 61 64 6f 77 20 30 0d | 01 2c 04 0d 01 36 46 eb |hadow 0.|.,...6F.|
|000003e0| 20 31 33 20 20 20 20 20 | 20 20 3a 20 f4 20 53 68 | 13 | : . Sh|
|000003f0| 6f 75 6c 64 20 62 65 20 | 65 61 73 69 6c 79 20 61 |ould be |easily a|
|00000400| 64 6a 75 73 74 61 62 6c | 65 20 74 6f 20 61 6e 79 |djustabl|e to any|
|00000410| 20 32 35 36 20 63 6f 6c | 6f 75 72 20 6d 6f 64 65 | 256 col|our mode|
|00000420| 2e 0d 01 40 04 0d 01 4a | 14 de 20 73 74 61 72 63 |...@...J|.. starc|
|00000430| 6f 64 65 20 31 32 30 30 | 30 0d 01 54 15 e3 20 70 |ode 1200|0..T.. p|
|00000440| 61 73 73 25 3d 30 20 b8 | 20 32 20 88 20 32 0d 01 |ass%=0 .| 2 . 2..|
|00000450| 5e 0f 50 25 3d 73 74 61 | 72 63 6f 64 65 0d 01 68 |^.P%=sta|rcode..h|
|00000460| 0e 5b 4f 50 54 20 70 61 | 73 73 25 0d 01 72 09 2e |.[OPT pa|ss%..r..|
|00000470| 69 6e 69 74 0d 01 7c 17 | 41 44 52 20 20 20 20 20 |init..|.|ADR |
|00000480| 52 34 2c 63 6f 6c 62 6c | 6f 63 6b 0d 01 86 18 41 |R4,colbl|ock....A|
|00000490| 44 52 20 20 20 20 20 52 | 35 2c 73 74 61 72 62 6c |DR R|5,starbl|
|000004a0| 6f 63 6b 0d 01 90 18 4c | 44 52 20 20 20 20 20 52 |ock....L|DR R|
|000004b0| 36 2c 73 63 72 65 65 6e | 6d 69 6e 0d 01 9a 18 4c |6,screen|min....L|
|000004c0| 44 52 20 20 20 20 20 52 | 37 2c 73 63 72 65 65 6e |DR R|7,screen|
|000004d0| 6d 61 78 0d 01 a4 45 4d | 4f 56 20 20 20 20 20 52 |max...EM|OV R|
|000004e0| 38 2c 23 30 20 20 20 20 | 20 20 20 20 20 20 20 20 |8,#0 | |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 73 70 65 65 | | ; spee|
|00000500| 64 20 6f 66 20 73 74 61 | 72 20 20 20 20 2d 20 61 |d of sta|r - a|
|00000510| 72 74 68 6d 65 74 69 63 | 0d 01 ae 45 3b 20 4d 4f |rthmetic|...E; MO|
|00000520| 56 20 20 20 20 20 52 38 | 2c 23 31 20 20 20 20 20 |V R8|,#1 |
|00000530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000540| 20 3b 20 73 70 65 65 64 | 20 6f 66 20 73 74 61 72 | ; speed| of star|
|00000550| 20 20 2d 20 67 65 6f 6d | 65 74 72 69 63 0d 01 b8 | - geom|etric...|
|00000560| 3d 4d 4f 56 20 20 20 20 | 20 52 39 2c 23 30 20 20 |=MOV | R9,#0 |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000580| 20 20 20 20 3b 20 63 6f | 6c 6f 75 72 20 62 6c 6f | ; co|lour blo|
|00000590| 63 6b 20 63 6f 75 6e 74 | 65 72 0d 01 c2 45 4d 4f |ck count|er...EMO|
|000005a0| 56 20 20 20 20 20 52 31 | 30 2c 23 30 20 20 20 20 |V R1|0,#0 |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000005c0| 20 3b 20 73 74 61 72 62 | 6c 6f 63 6b 20 72 65 66 | ; starb|lock ref|
|000005d0| 65 72 65 6e 63 65 20 70 | 6f 73 69 74 69 6f 6e 0d |erence p|osition.|
|000005e0| 01 cc 4d 4d 4f 56 20 20 | 20 20 20 52 31 31 2c 23 |..MMOV | R11,#|
|000005f0| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0 | |
|00000600| 20 20 20 20 20 20 3b 20 | 61 20 7a 65 72 6f 20 2d | ; |a zero -|
|00000610| 20 75 73 65 64 20 66 6f | 72 20 62 6c 61 6e 6b 69 | used fo|r blanki|
|00000620| 6e 67 20 69 66 20 6e 65 | 65 64 65 64 0d 01 d6 04 |ng if ne|eded....|
|00000630| 0d 01 e0 0d 2e 73 70 65 | 65 64 5f 75 70 0d 01 ea |.....spe|ed_up...|
|00000640| 33 4c 44 52 42 20 20 20 | 20 52 30 2c 5b 52 34 2c |3LDRB | R0,[R4,|
|00000650| 52 39 5d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |R9] | |
|00000660| 20 20 20 20 3b 20 72 65 | 61 64 20 63 6f 6c 6f 72 | ; re|ad color|
|00000670| 0d 01 f4 4a 41 44 44 20 | 20 20 20 20 52 38 2c 52 |...JADD | R8,R|
|00000680| 38 2c 23 32 20 20 20 20 | 20 20 20 20 20 20 20 20 |8,#2 | |
|00000690| 20 20 20 20 20 20 20 3b | 20 69 6e 63 72 65 6d 65 | ;| increme|
|000006a0| 6e 74 20 73 70 65 65 64 | 20 62 79 20 32 20 2d 20 |nt speed| by 2 - |
|000006b0| 61 72 69 74 68 6d 65 74 | 69 63 0d 01 fe 45 41 44 |arithmet|ic...EAD|
|000006c0| 44 20 20 20 20 20 52 39 | 2c 52 39 2c 23 31 20 20 |D R9|,R9,#1 |
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006e0| 20 3b 20 69 6e 63 72 65 | 6d 65 6e 74 20 63 6f 6c | ; incre|ment col|
|000006f0| 6f 72 20 63 6f 75 6e 74 | 65 72 20 62 79 20 31 0d |or count|er by 1.|
|00000700| 02 08 43 4d 4f 56 20 20 | 20 20 20 52 33 2c 23 30 |..CMOV | R3,#0|
|00000710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000720| 20 20 20 20 20 20 3b 20 | 7a 65 72 6f 20 63 6f 75 | ; |zero cou|
|00000730| 6e 74 65 72 20 20 20 28 | 30 2d 36 33 20 6c 6f 6f |nter (|0-63 loo|
|00000740| 70 29 0d 02 12 04 0d 02 | 1c 10 2e 75 70 64 61 74 |p)......|...updat|
|00000750| 65 5f 73 74 61 72 0d 02 | 26 43 4c 44 52 20 20 20 |e_star..|&CLDR |
|00000760| 20 20 52 31 2c 5b 52 35 | 2c 52 31 30 5d 20 20 20 | R1,[R5|,R10] |
|00000770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 72 | | ; r|
|00000780| 65 61 64 20 73 74 61 72 | 73 20 73 63 72 65 65 6e |ead star|s screen|
|00000790| 20 6c 6f 63 61 74 69 6f | 6e 0d 02 30 45 4c 44 52 | locatio|n..0ELDR|
|000007a0| 42 20 20 20 20 52 32 2c | 5b 52 31 5d 20 20 20 20 |B R2,|[R1] |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007c0| 3b 20 72 65 61 64 20 73 | 63 72 65 65 6e 20 61 74 |; read s|creen at|
|000007d0| 20 74 68 61 74 20 6c 6f | 63 61 74 69 6f 6e 0d 02 | that lo|cation..|
|000007e0| 3a 3a 43 4d 50 20 20 20 | 20 20 52 32 2c 52 30 20 |::CMP | R2,R0 |
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000800| 20 20 20 20 20 3b 20 63 | 68 65 63 6b 20 63 6f 6c | ; c|heck col|
|00000810| 6f 75 72 20 72 65 61 64 | 0d 02 44 4c 53 54 52 45 |our read|..DLSTRE|
|00000820| 51 42 20 20 52 31 31 2c | 5b 52 31 5d 20 20 20 20 |QB R11,|[R1] |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000840| 20 69 66 20 74 68 65 20 | 73 74 61 72 73 20 73 70 | if the |stars sp|
|00000850| 65 65 64 20 63 6f 6c 6f | 72 2c 20 62 6c 61 63 6b |eed colo|r, black|
|00000860| 20 69 74 2c 0d 02 4e 4b | 53 55 42 20 20 20 20 20 | it,..NK|SUB |
|00000870| 52 31 2c 52 31 2c 52 38 | 20 20 20 20 20 20 20 20 |R1,R1,R8| |
|00000880| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 64 65 63 | | ; dec|
|00000890| 72 65 6d 65 6e 74 20 73 | 63 72 65 65 6e 20 6c 6f |rement s|creen lo|
|000008a0| 63 61 74 69 6f 6e 20 62 | 79 20 73 70 65 65 64 0d |cation b|y speed.|
|000008b0| 02 58 42 43 4d 50 20 20 | 20 20 20 52 31 2c 52 36 |.XBCMP | R1,R6|
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008d0| 20 20 20 20 20 20 3b 20 | 63 6f 6d 70 61 72 65 20 | ; |compare |
|000008e0| 77 69 74 68 20 6d 69 6e | 20 6c 6f 63 61 74 69 6f |with min| locatio|
|000008f0| 6e 0d 02 62 4b 4d 4f 56 | 4c 54 20 20 20 52 31 2c |n..bKMOV|LT R1,|
|00000900| 52 37 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |R7 | |
|00000910| 20 20 20 20 20 20 20 20 | 3b 20 69 66 20 6c 65 73 | |; if les|
|00000920| 73 20 74 68 61 6e 2c 20 | 74 68 65 6e 20 73 65 74 |s than, |then set|
|00000930| 20 74 6f 20 6d 61 78 20 | 6c 6f 63 2e 0d 02 6c 48 | to max |loc...lH|
|00000940| 53 54 52 20 20 20 20 20 | 52 31 2c 5b 52 35 2c 52 |STR |R1,[R5,R|
|00000950| 31 30 5d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |10] | |
|00000960| 20 20 20 3b 20 73 61 76 | 65 20 6c 6f 63 61 74 69 | ; sav|e locati|
|00000970| 6f 6e 20 62 61 63 6b 20 | 74 6f 20 73 74 61 72 62 |on back |to starb|
|00000980| 6c 6f 63 6b 0d 02 76 34 | 4c 44 52 42 20 20 20 20 |lock..v4|LDRB |
|00000990| 52 32 2c 5b 52 31 5d 20 | 20 20 20 20 20 20 20 20 |R2,[R1] | |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 72 65 61 | | ; rea|
|000009b0| 64 20 73 63 72 65 65 6e | 0d 02 80 38 43 4d 50 20 |d screen|...8CMP |
|000009c0| 20 20 20 20 52 32 2c 23 | 30 20 20 20 20 20 20 20 | R2,#|0 |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000009e0| 20 63 68 65 63 6b 20 66 | 6f 72 20 62 6c 61 63 6b | check f|or black|
|000009f0| 0d 02 8a 48 53 54 52 45 | 51 42 20 20 52 30 2c 5b |...HSTRE|QB R0,[|
|00000a00| 52 31 5d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |R1] | |
|00000a10| 20 20 20 20 20 20 20 3b | 20 73 61 76 65 20 73 70 | ;| save sp|
|00000a20| 65 65 64 20 63 6f 6c 6f | 72 20 62 61 63 6b 20 74 |eed colo|r back t|
|00000a30| 6f 20 73 63 72 65 65 6e | 0d 02 94 45 41 44 44 20 |o screen|...EADD |
|00000a40| 20 20 20 20 52 31 30 2c | 52 31 30 2c 23 34 20 20 | R10,|R10,#4 |
|00000a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000a60| 20 69 6e 63 72 65 6d 65 | 6e 74 20 72 65 66 65 72 | increme|nt refer|
|00000a70| 65 6e 63 65 20 70 6f 73 | 69 74 69 6f 6e 0d 02 9e |ence pos|ition...|
|00000a80| 44 41 44 44 20 20 20 20 | 20 52 33 2c 52 33 2c 23 |DADD | R3,R3,#|
|00000a90| 31 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1 | |
|00000aa0| 20 20 20 20 3b 20 69 6e | 63 72 65 6d 65 6e 74 20 | ; in|crement |
|00000ab0| 6c 6f 6f 70 20 63 6f 75 | 6e 74 65 72 20 62 79 20 |loop cou|nter by |
|00000ac0| 31 0d 02 a8 47 43 4d 50 | 20 20 20 20 20 52 33 2c |1...GCMP| R3,|
|00000ad0| 23 36 34 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |#64 | |
|00000ae0| 20 20 20 20 20 20 20 20 | 3b 20 63 68 65 63 6b 20 | |; check |
|00000af0| 69 66 20 67 6f 6e 65 20 | 74 68 72 6f 75 67 68 20 |if gone |through |
|00000b00| 36 34 20 74 69 6d 65 73 | 0d 02 b2 47 42 4c 54 20 |64 times|...GBLT |
|00000b10| 20 20 20 20 75 70 64 61 | 74 65 5f 73 74 61 72 20 | upda|te_star |
|00000b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000b30| 20 69 66 20 6c 65 73 73 | 20 74 68 61 6e 2c 20 75 | if less| than, u|
|00000b40| 70 64 61 74 65 20 6e 65 | 78 74 20 73 74 61 72 0d |pdate ne|xt star.|
|00000b50| 02 bc 45 43 4d 50 20 20 | 20 20 20 52 31 30 2c 23 |..ECMP | R10,#|
|00000b60| 31 30 32 34 20 20 20 20 | 20 20 20 20 20 20 20 20 |1024 | |
|00000b70| 20 20 20 20 20 20 3b 20 | 69 66 20 72 65 66 65 72 | ; |if refer|
|00000b80| 65 6e 63 65 20 70 6f 73 | 69 74 69 6f 6e 20 3d 20 |ence pos|ition = |
|00000b90| 31 30 32 34 0d 02 c6 49 | ec 51 20 20 20 50 43 2c |1024...I|.Q PC,|
|00000ba0| 52 31 34 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |R14 | |
|00000bb0| 20 20 20 20 20 20 20 20 | 3b 20 74 68 65 6e 20 72 | |; then r|
|00000bc0| 65 74 75 72 6e 20 2d 20 | 6f 72 20 67 6f 20 6f 6e |eturn - |or go on|
|00000bd0| 20 74 6f 20 6e 65 78 74 | 20 63 6f 64 65 0d 02 d0 | to next| code...|
|00000be0| 48 3b 20 4d 4f 56 20 20 | 20 20 20 52 38 2c 52 38 |H; MOV | R8,R8|
|00000bf0| 2c 4c 53 4c 20 23 31 20 | 20 20 20 20 20 20 20 20 |,LSL #1 | |
|00000c00| 20 20 20 20 20 20 3b 20 | 74 68 69 73 20 6c 69 6e | ; |this lin|
|00000c10| 65 20 66 6f 72 20 67 65 | 6f 6d 65 74 72 69 63 20 |e for ge|ometric |
|00000c20| 73 70 65 65 64 0d 02 da | 3b 42 20 20 20 20 20 20 |speed...|;B |
|00000c30| 20 73 70 65 65 64 5f 75 | 70 20 20 20 20 20 20 20 | speed_u|p |
|00000c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 67 6f | | ; go|
|00000c50| 20 62 61 63 6b 20 74 6f | 20 73 70 65 65 64 75 70 | back to| speedup|
|00000c60| 0d 02 e4 04 0d 02 ee 0d | 2e 63 6f 6c 62 6c 6f 63 |........|.colbloc|
|00000c70| 6b 0d 02 f8 0d 45 51 55 | 44 20 20 20 20 30 0d 03 |k....EQU|D 0..|
|00000c80| 02 04 0d 03 0c 0e 2e 73 | 63 72 65 65 6e 6d 69 6e |.......s|creenmin|
|00000c90| 0d 03 16 0d 45 51 55 44 | 20 20 20 20 30 0d 03 20 |....EQUD| 0.. |
|00000ca0| 04 0d 03 2a 0e 2e 73 63 | 72 65 65 6e 6d 61 78 0d |...*..sc|reenmax.|
|00000cb0| 03 34 0d 45 51 55 44 20 | 20 20 20 30 0d 03 3e 04 |.4.EQUD | 0..>.|
|00000cc0| 0d 03 48 0e 2e 73 74 61 | 72 62 6c 6f 63 6b 0d 03 |..H..sta|rblock..|
|00000cd0| 52 19 5d 3a 50 25 2b 3d | 31 30 32 34 3a 5b 4f 50 |R.]:P%+=|1024:[OP|
|00000ce0| 54 20 70 61 73 73 25 0d | 03 5c 04 0d 03 66 05 5d |T pass%.|.\...f.]|
|00000cf0| 0d 03 70 05 ed 0d 03 7a | 04 0d 03 84 48 f4 20 54 |..p....z|....H. T|
|00000d00| 68 61 74 73 20 61 6c 6c | 20 74 68 65 20 63 6f 64 |hats all| the cod|
|00000d10| 65 2e 20 20 4e 6f 77 20 | 61 6c 6c 20 49 20 68 61 |e. Now |all I ha|
|00000d20| 76 65 20 74 6f 20 64 6f | 20 69 73 20 69 6e 76 65 |ve to do| is inve|
|00000d30| 6e 74 20 74 68 65 20 67 | 65 6e 65 72 61 74 69 6f |nt the g|eneratio|
|00000d40| 6e 0d 03 8e 33 f4 20 72 | 6f 75 74 69 6e 65 20 74 |n...3. r|outine t|
|00000d50| 6f 20 6d 61 6b 65 20 74 | 68 65 20 73 74 61 72 73 |o make t|he stars|
|00000d60| 20 69 6e 20 74 68 65 20 | 66 69 72 73 74 20 70 6c | in the |first pl|
|00000d70| 61 63 65 2e 0d 03 98 04 | 0d 03 a2 38 73 74 61 72 |ace.....|...8star|
|00000d80| 62 61 73 65 25 3d 26 31 | 46 45 43 30 30 30 2b 28 |base%=&1|FEC000+(|
|00000d90| 35 35 2a 33 32 30 29 20 | 20 20 20 20 20 20 3a 20 |55*320) | : |
|00000da0| f4 20 35 35 20 70 69 78 | 65 6c 73 20 64 6f 77 6e |. 55 pix|els down|
|00000db0| 0d 03 ac 4c 73 74 61 72 | 62 6f 74 74 6f 6d 25 3d |...Lstar|bottom%=|
|00000dc0| 73 74 61 72 62 61 73 65 | 25 2b 28 31 37 30 2a 33 |starbase|%+(170*3|
|00000dd0| 32 30 29 20 20 20 3a 20 | f4 20 33 31 20 70 69 78 |20) : |. 31 pix|
|00000de0| 65 6c 73 20 75 70 20 20 | 20 2d 20 6d 61 6b 69 6e |els up | - makin|
|00000df0| 67 20 31 37 30 20 70 69 | 78 65 6c 73 0d 03 b6 43 |g 170 pi|xels...C|
|00000e00| 61 72 65 61 25 3d 31 37 | 30 2a 33 32 30 20 20 20 |area%=17|0*320 |
|00000e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e20| 20 20 3a 20 f4 20 61 72 | 65 61 20 6f 66 20 70 69 | : . ar|ea of pi|
|00000e30| 78 65 6c 73 20 66 6f 72 | 20 73 74 61 72 73 2e 0d |xels for| stars..|
|00000e40| 03 c0 04 0d 03 ca 0d 73 | 65 65 64 3d b3 28 91 29 |.......s|eed=.(.)|
|00000e50| 0d 03 d4 04 0d 03 de 18 | e3 20 6c 6f 6f 70 25 3d |........|. loop%=|
|00000e60| 30 20 b8 20 31 30 32 30 | 20 88 20 34 0d 03 e8 2a |0 . 1020| . 4...*|
|00000e70| 20 20 73 74 61 72 62 6c | 6f 63 6b 21 6c 6f 6f 70 | starbl|ock!loop|
|00000e80| 25 3d 28 b3 28 61 72 65 | 61 25 29 2b 73 74 61 72 |%=(.(are|a%)+star|
|00000e90| 62 61 73 65 25 29 0d 03 | f2 05 ed 0d 03 fc 04 0d |base%)..|........|
|00000ea0| 04 06 18 21 73 63 72 65 | 65 6e 6d 69 6e 3d 73 74 |...!scre|enmin=st|
|00000eb0| 61 72 62 61 73 65 25 0d | 04 10 1a 21 73 63 72 65 |arbase%.|...!scre|
|00000ec0| 65 6e 6d 61 78 3d 73 74 | 61 72 62 6f 74 74 6f 6d |enmax=st|arbottom|
|00000ed0| 25 0d 04 1a 04 0d 04 24 | 28 f4 20 57 65 6c 6c 2c |%......$|(. Well,|
|00000ee0| 20 74 68 61 74 20 73 68 | 6f 75 6c 64 20 73 65 74 | that sh|ould set|
|00000ef0| 20 75 70 20 74 68 65 20 | 66 69 65 6c 64 0d 04 2e | up the |field...|
|00000f00| 2e f4 20 53 6f 20 6e 6f | 77 20 49 20 68 61 76 65 |.. So no|w I have|
|00000f10| 20 74 6f 20 73 65 74 20 | 75 70 20 74 68 65 20 63 | to set |up the c|
|00000f20| 6f 6c 6f 72 20 62 6c 6f | 63 6b 21 0d 04 38 04 0d |olor blo|ck!..8..|
|00000f30| 04 42 34 f4 20 43 6f 6c | 6f 72 73 20 74 6f 20 75 |.B4. Col|ors to u|
|00000f40| 73 65 20 3a 20 20 20 30 | 2d 33 2c 20 34 34 2d 34 |se : 0|-3, 44-4|
|00000f50| 37 2c 20 32 30 38 2d 32 | 31 31 2c 20 32 35 32 2d |7, 208-2|11, 252-|
|00000f60| 32 35 35 0d 04 4c 04 0d | 04 56 10 3f 63 6f 6c 62 |255..L..|.V.?colb|
|00000f70| 6c 6f 63 6b 3d 34 36 0d | 04 60 12 63 6f 6c 62 6c |lock=46.|.`.colbl|
|00000f80| 6f 63 6b 3f 31 3d 32 30 | 38 0d 04 6a 12 63 6f 6c |ock?1=20|8..j.col|
|00000f90| 62 6c 6f 63 6b 3f 32 3d | 32 31 30 0d 04 74 12 63 |block?2=|210..t.c|
|00000fa0| 6f 6c 62 6c 6f 63 6b 3f | 33 3d 32 35 35 0d 04 7e |olblock?|3=255..~|
|00000fb0| 04 0d 04 88 39 f4 20 4e | 6f 77 20 74 68 61 74 20 |....9. N|ow that |
|00000fc0| 74 68 61 74 20 68 61 73 | 20 62 65 65 6e 20 64 6f |that has| been do|
|00000fd0| 6e 65 2c 20 6c 65 74 73 | 20 74 65 73 74 20 74 68 |ne, lets| test th|
|00000fe0| 65 20 72 6f 75 74 69 6e | 65 21 0d 04 92 29 f4 20 |e routin|e!...). |
|00000ff0| 46 69 72 73 74 2c 20 74 | 68 65 20 66 69 65 6c 64 |First, t|he field|
|00001000| 20 6d 75 73 74 20 62 65 | 20 64 69 73 70 6c 61 79 | must be| display|
|00001010| 65 64 2c 0d 04 9c 0a d6 | 20 69 6e 69 74 0d 04 a6 |ed,.....| init...|
|00001020| 04 0d 04 b0 2a f4 20 42 | 65 66 6f 72 65 20 74 68 |....*. B|efore th|
|00001030| 65 20 67 72 61 70 68 69 | 63 73 20 63 61 6d 20 62 |e graphi|cs cam b|
|00001040| 65 20 64 69 73 70 6c 61 | 79 65 64 0d 04 ba 11 2a |e displa|yed....*|
|00001050| 73 63 68 6f 6f 73 65 20 | 74 65 73 74 0d 04 c4 11 |schoose |test....|
|00001060| f0 20 26 45 44 2c 34 30 | 30 2c 34 30 30 0d 04 ce |. &ED,40|0,400...|
|00001070| 05 87 0d 04 d8 29 f1 20 | 22 47 72 65 65 74 69 6e |.....). |"Greetin|
|00001080| 67 73 20 66 72 6f 6d 20 | 54 68 65 20 4c 69 67 68 |gs from |The Ligh|
|00001090| 74 20 57 61 72 72 69 6f | 72 2e 22 0d 04 e2 2a f1 |t Warrio|r."...*.|
|000010a0| 20 22 54 68 69 73 20 69 | 73 20 6d 79 20 6f 77 6e | "This i|s my own|
|000010b0| 20 73 74 61 72 2d 66 69 | 65 6c 64 20 72 6f 75 74 | star-fi|eld rout|
|000010c0| 69 6e 65 2e 22 0d 04 ec | 24 f1 20 22 4e 6f 6e 2d |ine."...|$. "Non-|
|000010d0| 64 65 73 74 72 75 63 74 | 69 76 65 20 74 6f 20 67 |destruct|ive to g|
|000010e0| 72 61 70 68 69 63 73 2c | 22 0d 04 f6 1a f1 20 22 |raphics,|"..... "|
|000010f0| 20 20 20 61 6e 64 20 66 | 65 61 74 75 72 69 6e 67 | and f|eaturing|
|00001100| 3a 2d 22 0d 05 00 2b f1 | 20 22 20 34 20 6c 61 79 |:-"...+.| " 4 lay|
|00001110| 65 72 73 20 6f 66 20 73 | 74 61 72 73 2c 20 73 70 |ers of s|tars, sp|
|00001120| 65 65 64 20 2b 20 63 6f | 6c 6f 75 72 2e 22 0d 05 |eed + co|lour."..|
|00001130| 0a 04 0d 05 14 39 f4 20 | 54 68 65 6e 20 69 74 20 |.....9. |Then it |
|00001140| 63 61 6e 20 62 65 20 63 | 6f 6e 74 69 6e 75 61 6c |can be c|ontinual|
|00001150| 6c 79 20 63 61 6c 6c 65 | 64 2c 20 75 70 6f 6e 20 |ly calle|d, upon |
|00001160| 65 76 65 72 79 20 76 73 | 79 6e 63 0d 05 1e 05 f5 |every vs|ync.....|
|00001170| 0d 05 28 08 20 20 c8 96 | 0d 05 32 0c 20 20 d6 20 |..(. ..|..2. . |
|00001180| 69 6e 69 74 0d 05 3c 07 | fd 20 a3 0d ff |init..<.|. ... |
+--------+-------------------------+-------------------------+--------+--------+