home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / demos / r / star / StarField3 < prev    next >
Unknown  |  1990-08-13  |  4.7 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 12 f4 20 3e 20 | 53 74 61 72 46 69 65 6c |..... > |StarFiel|
|00000010| 64 33 0d 00 14 28 f4 20 | 42 79 20 53 74 65 76 65 |d3...(. |By Steve|
|00000020| 20 53 69 6d 73 20 20 2d | 20 54 68 65 20 4c 69 67 | Sims -| The Lig|
|00000030| 68 74 20 57 61 72 72 69 | 6f 72 0d 00 1e 26 f4 20 |ht Warri|or...&. |
|00000040| 43 6f 64 65 64 20 6f 6e | 20 4d 6f 6e 64 61 79 2c |Coded on| Monday,|
|00000050| 20 31 36 74 68 20 41 70 | 72 69 6c 20 31 39 39 30 | 16th Ap|ril 1990|
|00000060| 0d 00 28 1e f4 20 4d 79 | 20 73 65 63 6f 6e 64 20 |..(.. My| second |
|00000070| 70 69 65 63 65 20 6f 66 | 20 63 6f 64 65 2e 0d 00 |piece of| code...|
|00000080| 32 1f f4 20 28 49 74 20 | 77 61 73 20 66 61 69 72 |2.. (It |was fair|
|00000090| 6c 79 20 65 61 73 79 20 | 74 6f 6f 2e 29 0d 00 3c |ly easy |too.)..<|
|000000a0| 05 f4 0d 00 46 43 f4 20 | 56 65 72 73 69 6f 6e 20 |....FC. |Version |
|000000b0| 31 2e 33 32 20 20 2d 20 | 20 77 69 74 68 20 73 65 |1.32 - | with se|
|000000c0| 6d 69 2d 72 61 6e 64 6f | 6d 20 6c 6f 6f 70 69 6e |mi-rando|m loopin|
|000000d0| 67 20 74 6f 20 72 65 6d | 6f 76 65 20 61 6c 69 67 |g to rem|ove alig|
|000000e0| 6e 6d 65 6e 74 0d 00 50 | 32 f4 20 20 20 20 20 20 |nment..P|2. |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 6f 70 70 6f | | oppo|
|00000100| 73 69 74 65 20 64 69 72 | 65 63 74 69 6f 6e 20 66 |site dir|ection f|
|00000110| 72 6f 6d 20 31 2e 33 0d | 00 5a 05 f4 0d 00 64 42 |rom 1.3.|.Z....dB|
|00000120| f4 20 54 68 69 73 20 72 | 6f 75 74 69 6e 65 20 77 |. This r|outine w|
|00000130| 69 6c 6c 20 65 73 73 65 | 6e 74 69 61 6c 6c 79 20 |ill esse|ntially |
|00000140| 66 6f 72 6d 20 74 68 65 | 20 73 74 61 72 66 69 65 |form the| starfie|
|00000150| 6c 64 20 61 6e 64 20 6d | 6f 76 65 20 69 74 0d 00 |ld and m|ove it..|
|00000160| 6e 45 f4 20 48 65 69 67 | 68 74 20 6f 66 20 66 69 |nE. Heig|ht of fi|
|00000170| 65 6c 64 3d 32 33 30 20 | 70 69 78 65 6c 73 20 20 |eld=230 |pixels |
|00000180| 2d 20 6c 65 61 76 65 73 | 20 72 6f 6f 6d 20 66 6f |- leaves| room fo|
|00000190| 72 20 6c 6f 67 6f 73 2c | 20 74 65 78 74 2c 20 65 |r logos,| text, e|
|000001a0| 74 63 2e 0d 00 78 21 f4 | 20 32 35 36 20 73 74 61 |tc...x!.| 256 sta|
|000001b0| 72 73 20 74 6f 20 62 65 | 20 75 73 65 64 20 69 6e |rs to be| used in|
|000001c0| 73 69 64 65 0d 00 82 14 | f4 20 34 20 6c 61 79 65 |side....|. 4 laye|
|000001d0| 72 73 20 6f 66 20 36 34 | 0d 00 8c 2b f4 20 54 68 |rs of 64|...+. Th|
|000001e0| 65 72 65 66 6f 72 65 20 | 34 20 76 65 6c 6f 63 69 |erefore |4 veloci|
|000001f0| 74 69 65 73 2c 20 61 6e | 64 20 34 20 63 6f 6c 6f |ties, an|d 4 colo|
|00000200| 75 72 73 0d 00 96 37 f4 | 20 52 6f 75 74 69 6e 65 |urs...7.| Routine|
|00000210| 20 65 76 65 6e 74 75 61 | 6c 6c 79 20 74 6f 20 62 | eventua|lly to b|
|00000220| 65 20 73 65 74 20 75 70 | 20 74 6f 20 63 61 6c 6c |e set up| to call|
|00000230| 20 6f 6e 20 76 73 79 6e | 63 2e 0d 00 a0 30 f4 20 | on vsyn|c....0. |
|00000240| 53 74 61 72 73 20 72 65 | 63 6f 72 64 65 64 20 61 |Stars re|corded a|
|00000250| 73 20 73 63 72 65 65 6e | 20 6d 65 6d 6f 72 79 20 |s screen| memory |
|00000260| 6c 6f 63 61 74 69 6f 6e | 73 2e 0d 00 aa 05 f4 0d |location|s.......|
|00000270| 00 b4 44 f4 20 43 6f 64 | 65 20 63 75 72 72 65 6e |..D. Cod|e curren|
|00000280| 74 6c 79 20 63 6f 6e 74 | 61 69 6e 73 20 62 6f 74 |tly cont|ains bot|
|00000290| 68 20 61 72 69 74 68 6d | 65 74 69 63 20 61 6e 64 |h arithm|etic and|
|000002a0| 20 67 65 6f 6d 65 74 72 | 69 63 20 76 65 6c 6f 63 | geometr|ic veloc|
|000002b0| 69 74 79 0d 00 be 39 f4 | 20 70 72 6f 67 72 65 73 |ity...9.| progres|
|000002c0| 73 69 6f 6e 73 2e 20 20 | 49 20 61 6d 20 6e 6f 74 |sions. |I am not|
|000002d0| 20 73 75 72 65 20 79 65 | 74 20 77 68 61 74 20 69 | sure ye|t what i|
|000002e0| 73 20 62 65 74 74 65 72 | 2e 2e 2e 2e 0d 00 c8 05 |s better|........|
|000002f0| f4 0d 00 d2 4a f4 20 54 | 68 65 20 73 74 61 72 20 |....J. T|he star |
|00000300| 66 69 65 6c 64 20 69 74 | 73 65 6c 66 20 64 6f 65 |field it|self doe|
|00000310| 73 20 6e 6f 74 20 64 65 | 73 74 72 6f 79 20 61 6e |s not de|stroy an|
|00000320| 79 20 67 72 61 70 68 69 | 63 73 20 70 6c 61 63 65 |y graphi|cs place|
|00000330| 64 20 6f 6e 20 74 6f 70 | 20 6f 66 0d 00 dc 3c f4 |d on top| of...<.|
|00000340| 20 69 74 20 2d 20 69 74 | 20 72 75 6e 73 20 62 65 | it - it| runs be|
|00000350| 68 69 6e 64 20 61 6c 6c | 20 67 72 61 70 68 69 63 |hind all| graphic|
|00000360| 73 20 70 6c 6f 74 74 65 | 64 20 6f 6e 20 74 6f 70 |s plotte|d on top|
|00000370| 20 6f 66 20 69 74 2e 0d | 00 e6 4b f4 20 49 66 20 | of it..|..K. If |
|00000380| 67 72 61 70 68 69 63 73 | 20 70 6c 6f 74 74 65 64 |graphics| plotted|
|00000390| 20 61 62 6f 76 65 20 69 | 74 20 61 72 65 20 64 65 | above i|t are de|
|000003a0| 73 74 72 75 63 74 69 76 | 65 2c 20 68 6f 77 65 76 |structiv|e, howev|
|000003b0| 65 72 2c 20 74 68 65 6e | 20 74 68 65 20 66 69 65 |er, then| the fie|
|000003c0| 6c 64 0d 00 f0 2b f4 20 | 73 68 6f 75 6c 64 20 62 |ld...+. |should b|
|000003d0| 65 20 70 6c 6f 74 74 65 | 64 20 61 66 74 65 72 20 |e plotte|d after |
|000003e0| 74 68 65 20 67 72 61 70 | 68 69 63 73 2e 0d 00 fa |the grap|hics....|
|000003f0| 04 0d 01 04 1a ee 20 85 | 20 f6 3a f1 22 20 61 74 |...... .| .:." at|
|00000400| 20 6c 69 6e 65 20 22 3b | 9e 3a e0 0d 01 0e 04 0d | line ";|.:......|
|00000410| 01 18 0d 2a 73 68 61 64 | 6f 77 20 30 0d 01 22 46 |...*shad|ow 0.."F|
|00000420| eb 20 31 33 20 20 20 20 | 20 20 20 3a 20 f4 20 53 |. 13 | : . S|
|00000430| 68 6f 75 6c 64 20 62 65 | 20 65 61 73 69 6c 79 20 |hould be| easily |
|00000440| 61 64 6a 75 73 74 61 62 | 6c 65 20 74 6f 20 61 6e |adjustab|le to an|
|00000450| 79 20 32 35 36 20 63 6f | 6c 6f 75 72 20 6d 6f 64 |y 256 co|lour mod|
|00000460| 65 2e 0d 01 2c 04 0d 01 | 36 0f 2a 73 6c 6f 61 64 |e...,...|6.*sload|
|00000470| 20 74 65 73 74 0d 01 40 | 04 0d 01 4a 14 de 20 73 | test..@|...J.. s|
|00000480| 74 61 72 63 6f 64 65 20 | 31 32 30 30 30 0d 01 54 |tarcode |12000..T|
|00000490| 15 e3 20 70 61 73 73 25 | 3d 30 20 b8 20 32 20 88 |.. pass%|=0 . 2 .|
|000004a0| 20 32 0d 01 5e 0f 50 25 | 3d 73 74 61 72 63 6f 64 | 2..^.P%|=starcod|
|000004b0| 65 0d 01 68 0e 5b 4f 50 | 54 20 70 61 73 73 25 0d |e..h.[OP|T pass%.|
|000004c0| 01 72 09 2e 69 6e 69 74 | 0d 01 7c 17 41 44 52 20 |.r..init|..|.ADR |
|000004d0| 20 20 20 20 52 34 2c 63 | 6f 6c 62 6c 6f 63 6b 0d | R4,c|olblock.|
|000004e0| 01 86 18 41 44 52 20 20 | 20 20 20 52 35 2c 73 74 |...ADR | R5,st|
|000004f0| 61 72 62 6c 6f 63 6b 0d | 01 90 18 4c 44 52 20 20 |arblock.|...LDR |
|00000500| 20 20 20 52 36 2c 73 63 | 72 65 65 6e 6d 69 6e 0d | R6,sc|reenmin.|
|00000510| 01 9a 18 4c 44 52 20 20 | 20 20 20 52 37 2c 73 63 |...LDR | R7,sc|
|00000520| 72 65 65 6e 6d 61 78 0d | 01 a4 36 4d 4f 56 20 20 |reenmax.|..6MOV |
|00000530| 20 20 20 52 38 2c 23 31 | 20 20 20 20 20 20 20 20 | R8,#1| |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00000550| 73 70 65 65 64 20 6f 66 | 20 73 74 61 72 0d 01 ae |speed of| star...|
|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 b8 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 c2 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 cc 04 |ng if ne|eded....|
|00000630| 0d 01 d6 0d 2e 73 70 65 | 65 64 5f 75 70 0d 01 e0 |.....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 ea 45 41 44 44 20 | 20 20 20 20 52 39 2c 52 |...EADD | R9,R|
|00000680| 39 2c 23 31 20 20 20 20 | 20 20 20 20 20 20 20 20 |9,#1 | |
|00000690| 20 20 20 20 20 20 20 3b | 20 69 6e 63 72 65 6d 65 | ;| increme|
|000006a0| 6e 74 20 63 6f 6c 6f 72 | 20 63 6f 75 6e 74 65 72 |nt color| counter|
|000006b0| 20 62 79 20 31 0d 01 f4 | 43 4d 4f 56 20 20 20 20 | by 1...|CMOV |
|000006c0| 20 52 33 2c 23 30 20 20 | 20 20 20 20 20 20 20 20 | R3,#0 | |
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 7a 65 | | ; ze|
|000006e0| 72 6f 20 63 6f 75 6e 74 | 65 72 20 20 20 28 30 2d |ro count|er (0-|
|000006f0| 36 33 20 6c 6f 6f 70 29 | 0d 01 fe 04 0d 02 08 10 |63 loop)|........|
|00000700| 2e 75 70 64 61 74 65 5f | 73 74 61 72 0d 02 12 43 |.update_|star...C|
|00000710| 4c 44 52 20 20 20 20 20 | 52 31 2c 5b 52 35 2c 52 |LDR |R1,[R5,R|
|00000720| 31 30 5d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |10] | |
|00000730| 20 20 20 3b 20 72 65 61 | 64 20 73 74 61 72 73 20 | ; rea|d stars |
|00000740| 73 63 72 65 65 6e 20 6c | 6f 63 61 74 69 6f 6e 0d |screen l|ocation.|
|00000750| 02 1c 45 4c 44 52 42 20 | 20 20 20 52 32 2c 5b 52 |..ELDRB | R2,[R|
|00000760| 31 5d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1] | |
|00000770| 20 20 20 20 20 20 3b 20 | 72 65 61 64 20 73 63 72 | ; |read scr|
|00000780| 65 65 6e 20 61 74 20 74 | 68 61 74 20 6c 6f 63 61 |een at t|hat loca|
|00000790| 74 69 6f 6e 0d 02 26 3a | 43 4d 50 20 20 20 20 20 |tion..&:|CMP |
|000007a0| 52 32 2c 52 30 20 20 20 | 20 20 20 20 20 20 20 20 |R2,R0 | |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 63 68 65 | | ; che|
|000007c0| 63 6b 20 63 6f 6c 6f 75 | 72 20 72 65 61 64 0d 02 |ck colou|r read..|
|000007d0| 30 4c 53 54 52 45 51 42 | 20 20 52 31 31 2c 5b 52 |0LSTREQB| R11,[R|
|000007e0| 31 5d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1] | |
|000007f0| 20 20 20 20 20 3b 20 69 | 66 20 74 68 65 20 73 74 | ; i|f the st|
|00000800| 61 72 73 20 73 70 65 65 | 64 20 63 6f 6c 6f 72 2c |ars spee|d color,|
|00000810| 20 62 6c 61 63 6b 20 69 | 74 2c 0d 02 3a 4b 41 44 | black i|t,..:KAD|
|00000820| 44 20 20 20 20 20 52 31 | 2c 52 31 2c 52 38 20 20 |D R1|,R1,R8 |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000840| 20 3b 20 69 6e 63 72 65 | 6d 65 6e 74 20 73 63 72 | ; incre|ment scr|
|00000850| 65 65 6e 20 6c 6f 63 61 | 74 69 6f 6e 20 62 79 20 |een loca|tion by |
|00000860| 73 70 65 65 64 0d 02 44 | 42 43 4d 50 20 20 20 20 |speed..D|BCMP |
|00000870| 20 52 31 2c 52 37 20 20 | 20 20 20 20 20 20 20 20 | R1,R7 | |
|00000880| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 63 6f | | ; co|
|00000890| 6d 70 61 72 65 20 77 69 | 74 68 20 6d 61 78 20 6c |mpare wi|th max l|
|000008a0| 6f 63 61 74 69 6f 6e 0d | 02 4e 43 42 47 54 20 20 |ocation.|.NCBGT |
|000008b0| 20 20 20 6c 6f 6f 70 69 | 74 20 20 20 20 20 20 20 | loopi|t |
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|000008d0| 6c 6f 6f 70 73 20 72 6f | 75 6e 64 20 2b 20 61 6e |loops ro|und + an|
|000008e0| 20 65 78 74 72 61 20 62 | 69 74 0d 02 58 3f 2e 73 | extra b|it..X?.s|
|000008f0| 61 76 65 62 61 63 6b 20 | 20 20 20 20 20 20 20 20 |aveback | |
|00000900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000910| 20 3b 20 72 65 66 65 72 | 65 6e 63 65 20 74 6f 20 | ; refer|ence to |
|00000920| 72 65 74 75 72 6e 20 74 | 6f 0d 02 62 48 53 54 52 |return t|o..bHSTR|
|00000930| 20 20 20 20 20 52 31 2c | 5b 52 35 2c 52 31 30 5d | R1,|[R5,R10]|
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000950| 3b 20 73 61 76 65 20 6c | 6f 63 61 74 69 6f 6e 20 |; save l|ocation |
|00000960| 62 61 63 6b 20 74 6f 20 | 73 74 61 72 62 6c 6f 63 |back to |starbloc|
|00000970| 6b 0d 02 6c 34 4c 44 52 | 42 20 20 20 20 52 32 2c |k..l4LDR|B R2,|
|00000980| 5b 52 31 5d 20 20 20 20 | 20 20 20 20 20 20 20 20 |[R1] | |
|00000990| 20 20 20 20 20 20 20 20 | 3b 20 72 65 61 64 20 73 | |; read s|
|000009a0| 63 72 65 65 6e 0d 02 76 | 38 43 4d 50 20 20 20 20 |creen..v|8CMP |
|000009b0| 20 52 32 2c 23 30 20 20 | 20 20 20 20 20 20 20 20 | R2,#0 | |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 63 68 | | ; ch|
|000009d0| 65 63 6b 20 66 6f 72 20 | 62 6c 61 63 6b 0d 02 80 |eck for |black...|
|000009e0| 48 53 54 52 45 51 42 20 | 20 52 30 2c 5b 52 31 5d |HSTREQB | R0,[R1]|
|000009f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a00| 20 20 20 20 3b 20 73 61 | 76 65 20 73 70 65 65 64 | ; sa|ve speed|
|00000a10| 20 63 6f 6c 6f 72 20 62 | 61 63 6b 20 74 6f 20 73 | color b|ack to s|
|00000a20| 63 72 65 65 6e 0d 02 8a | 45 41 44 44 20 20 20 20 |creen...|EADD |
|00000a30| 20 52 31 30 2c 52 31 30 | 2c 23 34 20 20 20 20 20 | R10,R10|,#4 |
|00000a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 69 6e | | ; in|
|00000a50| 63 72 65 6d 65 6e 74 20 | 72 65 66 65 72 65 6e 63 |crement |referenc|
|00000a60| 65 20 70 6f 73 69 74 69 | 6f 6e 0d 02 94 44 41 44 |e positi|on...DAD|
|00000a70| 44 20 20 20 20 20 52 33 | 2c 52 33 2c 23 31 20 20 |D R3|,R3,#1 |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a90| 20 3b 20 69 6e 63 72 65 | 6d 65 6e 74 20 6c 6f 6f | ; incre|ment loo|
|00000aa0| 70 20 63 6f 75 6e 74 65 | 72 20 62 79 20 31 0d 02 |p counte|r by 1..|
|00000ab0| 9e 47 43 4d 50 20 20 20 | 20 20 52 33 2c 23 36 34 |.GCMP | R3,#64|
|00000ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ad0| 20 20 20 20 20 3b 20 63 | 68 65 63 6b 20 69 66 20 | ; c|heck if |
|00000ae0| 67 6f 6e 65 20 74 68 72 | 6f 75 67 68 20 36 34 20 |gone thr|ough 64 |
|00000af0| 74 69 6d 65 73 0d 02 a8 | 47 42 4c 54 20 20 20 20 |times...|GBLT |
|00000b00| 20 75 70 64 61 74 65 5f | 73 74 61 72 20 20 20 20 | update_|star |
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 69 66 | | ; if|
|00000b20| 20 6c 65 73 73 20 74 68 | 61 6e 2c 20 75 70 64 61 | less th|an, upda|
|00000b30| 74 65 20 6e 65 78 74 20 | 73 74 61 72 0d 02 b2 45 |te next |star...E|
|00000b40| 43 4d 50 20 20 20 20 20 | 52 31 30 2c 23 31 30 32 |CMP |R10,#102|
|00000b50| 34 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4 | |
|00000b60| 20 20 20 3b 20 69 66 20 | 72 65 66 65 72 65 6e 63 | ; if |referenc|
|00000b70| 65 20 70 6f 73 69 74 69 | 6f 6e 20 3d 20 31 30 32 |e positi|on = 102|
|00000b80| 34 0d 02 bc 49 ec 51 20 | 20 20 50 43 2c 52 31 34 |4...I.Q | PC,R14|
|00000b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ba0| 20 20 20 20 20 3b 20 74 | 68 65 6e 20 72 65 74 75 | ; t|hen retu|
|00000bb0| 72 6e 20 2d 20 6f 72 20 | 67 6f 20 6f 6e 20 74 6f |rn - or |go on to|
|00000bc0| 20 6e 65 78 74 20 63 6f | 64 65 0d 02 c6 3d 41 44 | next co|de...=AD|
|00000bd0| 44 20 20 20 20 20 52 38 | 2c 52 38 2c 23 31 20 20 |D R8|,R8,#1 |
|00000be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000bf0| 20 3b 20 69 6e 63 72 65 | 6d 65 6e 74 20 73 70 65 | ; incre|ment spe|
|00000c00| 65 64 20 62 79 20 32 0d | 02 d0 3b 42 20 20 20 20 |ed by 2.|..;B |
|00000c10| 20 20 20 73 70 65 65 64 | 5f 75 70 20 20 20 20 20 | speed|_up |
|00000c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00000c30| 67 6f 20 62 61 63 6b 20 | 74 6f 20 73 70 65 65 64 |go back |to speed|
|00000c40| 75 70 0d 02 da 04 0d 02 | e4 0b 2e 6c 6f 6f 70 69 |up......|...loopi|
|00000c50| 74 0d 02 ee 4b 4d 4f 56 | 20 20 20 20 20 52 31 2c |t...KMOV| R1,|
|00000c60| 52 36 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |R6 | |
|00000c70| 20 20 20 20 20 20 20 20 | 3b 20 69 66 20 6c 65 73 | |; if les|
|00000c80| 73 20 74 68 61 6e 2c 20 | 74 68 65 6e 20 73 65 74 |s than, |then set|
|00000c90| 20 74 6f 20 6d 69 6e 20 | 6c 6f 63 2e 0d 02 f8 3b | to min |loc....;|
|00000ca0| 4d 4f 56 20 20 20 20 20 | 52 32 2c 52 33 20 20 20 |MOV |R2,R3 |
|00000cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000cc0| 20 20 20 3b 20 66 69 6e | 64 20 6c 6f 6f 70 20 70 | ; fin|d loop p|
|00000cd0| 6f 73 69 74 69 6f 6e 0d | 03 02 39 80 20 20 20 20 |osition.|..9. |
|00000ce0| 20 52 32 2c 52 32 2c 23 | 33 20 20 20 20 20 20 20 | R2,R2,#|3 |
|00000cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 74 61 | | ; ta|
|00000d00| 6b 65 20 62 6f 74 74 6f | 6d 20 33 20 62 69 74 73 |ke botto|m 3 bits|
|00000d10| 0d 03 0c 3d 41 44 44 20 | 20 20 20 20 52 31 2c 52 |...=ADD | R1,R|
|00000d20| 31 2c 52 32 20 20 20 20 | 20 20 20 20 20 20 20 20 |1,R2 | |
|00000d30| 20 20 20 20 20 20 20 3b | 20 61 64 64 20 74 68 61 | ;| add tha|
|00000d40| 74 20 74 6f 20 6c 6f 63 | 61 74 69 6f 6e 0d 03 16 |t to loc|ation...|
|00000d50| 3c 42 20 20 20 20 20 20 | 20 73 61 76 65 62 61 63 |<B | savebac|
|00000d60| 6b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |k | |
|00000d70| 20 20 20 20 3b 20 67 6f | 20 62 61 63 6b 20 74 6f | ; go| back to|
|00000d80| 20 73 61 76 65 62 61 63 | 6b 0d 03 20 04 0d 03 2a | savebac|k.. ...*|
|00000d90| 0d 2e 63 6f 6c 62 6c 6f | 63 6b 0d 03 34 0d 45 51 |..colblo|ck..4.EQ|
|00000da0| 55 44 20 20 20 20 30 0d | 03 3e 04 0d 03 48 0e 2e |UD 0.|.>...H..|
|00000db0| 73 63 72 65 65 6e 6d 69 | 6e 0d 03 52 0d 45 51 55 |screenmi|n..R.EQU|
|00000dc0| 44 20 20 20 20 30 0d 03 | 5c 04 0d 03 66 0e 2e 73 |D 0..|\...f..s|
|00000dd0| 63 72 65 65 6e 6d 61 78 | 0d 03 70 0d 45 51 55 44 |creenmax|..p.EQUD|
|00000de0| 20 20 20 20 30 0d 03 7a | 04 0d 03 84 0e 2e 73 74 | 0..z|......st|
|00000df0| 61 72 62 6c 6f 63 6b 0d | 03 8e 19 5d 3a 50 25 2b |arblock.|...]:P%+|
|00000e00| 3d 31 30 32 34 3a 5b 4f | 50 54 20 70 61 73 73 25 |=1024:[O|PT pass%|
|00000e10| 0d 03 98 04 0d 03 a2 05 | 5d 0d 03 ac 05 ed 0d 03 |........|].......|
|00000e20| b6 04 0d 03 c0 48 f4 20 | 54 68 61 74 73 20 61 6c |.....H. |Thats al|
|00000e30| 6c 20 74 68 65 20 63 6f | 64 65 2e 20 20 4e 6f 77 |l the co|de. Now|
|00000e40| 20 61 6c 6c 20 49 20 68 | 61 76 65 20 74 6f 20 64 | all I h|ave to d|
|00000e50| 6f 20 69 73 20 69 6e 76 | 65 6e 74 20 74 68 65 20 |o is inv|ent the |
|00000e60| 67 65 6e 65 72 61 74 69 | 6f 6e 0d 03 ca 33 f4 20 |generati|on...3. |
|00000e70| 72 6f 75 74 69 6e 65 20 | 74 6f 20 6d 61 6b 65 20 |routine |to make |
|00000e80| 74 68 65 20 73 74 61 72 | 73 20 69 6e 20 74 68 65 |the star|s in the|
|00000e90| 20 66 69 72 73 74 20 70 | 6c 61 63 65 2e 0d 03 d4 | first p|lace....|
|00000ea0| 04 0d 03 de 38 73 74 61 | 72 62 61 73 65 25 3d 26 |....8sta|rbase%=&|
|00000eb0| 31 46 45 43 30 30 30 2b | 28 35 35 2a 33 32 30 29 |1FEC000+|(55*320)|
|00000ec0| 20 20 20 20 20 20 20 3a | 20 f4 20 35 35 20 70 69 | :| . 55 pi|
|00000ed0| 78 65 6c 73 20 64 6f 77 | 6e 0d 03 e8 4c 73 74 61 |xels dow|n...Lsta|
|00000ee0| 72 62 6f 74 74 6f 6d 25 | 3d 73 74 61 72 62 61 73 |rbottom%|=starbas|
|00000ef0| 65 25 2b 28 31 37 30 2a | 33 32 30 29 20 20 20 3a |e%+(170*|320) :|
|00000f00| 20 f4 20 33 31 20 70 69 | 78 65 6c 73 20 75 70 20 | . 31 pi|xels up |
|00000f10| 20 20 2d 20 6d 61 6b 69 | 6e 67 20 31 37 30 20 70 | - maki|ng 170 p|
|00000f20| 69 78 65 6c 73 0d 03 f2 | 43 61 72 65 61 25 3d 31 |ixels...|Carea%=1|
|00000f30| 37 30 2a 33 32 30 20 20 | 20 20 20 20 20 20 20 20 |70*320 | |
|00000f40| 20 20 20 20 20 20 20 20 | 20 20 20 3a 20 f4 20 61 | | : . a|
|00000f50| 72 65 61 20 6f 66 20 70 | 69 78 65 6c 73 20 66 6f |rea of p|ixels fo|
|00000f60| 72 20 73 74 61 72 73 2e | 0d 03 fc 04 0d 04 06 0d |r stars.|........|
|00000f70| 73 65 65 64 3d b3 28 91 | 29 0d 04 10 04 0d 04 1a |seed=.(.|).......|
|00000f80| 18 e3 20 6c 6f 6f 70 25 | 3d 30 20 b8 20 31 30 32 |.. loop%|=0 . 102|
|00000f90| 30 20 88 20 34 0d 04 24 | 2a 20 20 73 74 61 72 62 |0 . 4..$|* starb|
|00000fa0| 6c 6f 63 6b 21 6c 6f 6f | 70 25 3d 28 b3 28 61 72 |lock!loo|p%=(.(ar|
|00000fb0| 65 61 25 29 2b 73 74 61 | 72 62 61 73 65 25 29 0d |ea%)+sta|rbase%).|
|00000fc0| 04 2e 05 ed 0d 04 38 04 | 0d 04 42 18 21 73 63 72 |......8.|..B.!scr|
|00000fd0| 65 65 6e 6d 69 6e 3d 73 | 74 61 72 62 61 73 65 25 |eenmin=s|tarbase%|
|00000fe0| 0d 04 4c 1a 21 73 63 72 | 65 65 6e 6d 61 78 3d 73 |..L.!scr|eenmax=s|
|00000ff0| 74 61 72 62 6f 74 74 6f | 6d 25 0d 04 56 04 0d 04 |tarbotto|m%..V...|
|00001000| 60 28 f4 20 57 65 6c 6c | 2c 20 74 68 61 74 20 73 |`(. Well|, that s|
|00001010| 68 6f 75 6c 64 20 73 65 | 74 20 75 70 20 74 68 65 |hould se|t up the|
|00001020| 20 66 69 65 6c 64 0d 04 | 6a 2e f4 20 53 6f 20 6e | field..|j.. So n|
|00001030| 6f 77 20 49 20 68 61 76 | 65 20 74 6f 20 73 65 74 |ow I hav|e to set|
|00001040| 20 75 70 20 74 68 65 20 | 63 6f 6c 6f 72 20 62 6c | up the |color bl|
|00001050| 6f 63 6b 21 0d 04 74 04 | 0d 04 7e 34 f4 20 43 6f |ock!..t.|..~4. Co|
|00001060| 6c 6f 72 73 20 74 6f 20 | 75 73 65 20 3a 20 20 20 |lors to |use : |
|00001070| 30 2d 33 2c 20 34 34 2d | 34 37 2c 20 32 30 38 2d |0-3, 44-|47, 208-|
|00001080| 32 31 31 2c 20 32 35 32 | 2d 32 35 35 0d 04 88 04 |211, 252|-255....|
|00001090| 0d 04 92 10 3f 63 6f 6c | 62 6c 6f 63 6b 3d 34 36 |....?col|block=46|
|000010a0| 0d 04 9c 12 63 6f 6c 62 | 6c 6f 63 6b 3f 31 3d 32 |....colb|lock?1=2|
|000010b0| 30 38 0d 04 a6 12 63 6f | 6c 62 6c 6f 63 6b 3f 32 |08....co|lblock?2|
|000010c0| 3d 32 31 30 0d 04 b0 12 | 63 6f 6c 62 6c 6f 63 6b |=210....|colblock|
|000010d0| 3f 33 3d 32 35 35 0d 04 | ba 04 0d 04 c4 39 f4 20 |?3=255..|.....9. |
|000010e0| 4e 6f 77 20 74 68 61 74 | 20 74 68 61 74 20 68 61 |Now that| that ha|
|000010f0| 73 20 62 65 65 6e 20 64 | 6f 6e 65 2c 20 6c 65 74 |s been d|one, let|
|00001100| 73 20 74 65 73 74 20 74 | 68 65 20 72 6f 75 74 69 |s test t|he routi|
|00001110| 6e 65 21 0d 04 ce 29 f4 | 20 46 69 72 73 74 2c 20 |ne!...).| First, |
|00001120| 74 68 65 20 66 69 65 6c | 64 20 6d 75 73 74 20 62 |the fiel|d must b|
|00001130| 65 20 64 69 73 70 6c 61 | 79 65 64 2c 0d 04 d8 0a |e displa|yed,....|
|00001140| d6 20 69 6e 69 74 0d 04 | e2 04 0d 04 ec 2a f4 20 |. init..|.....*. |
|00001150| 42 65 66 6f 72 65 20 74 | 68 65 20 67 72 61 70 68 |Before t|he graph|
|00001160| 69 63 73 20 63 61 6d 20 | 62 65 20 64 69 73 70 6c |ics cam |be displ|
|00001170| 61 79 65 64 0d 04 f6 11 | 2a 73 63 68 6f 6f 73 65 |ayed....|*schoose|
|00001180| 20 74 65 73 74 0d 05 00 | 11 f0 20 26 45 44 2c 34 | test...|.. &ED,4|
|00001190| 30 30 2c 34 30 30 0d 05 | 0a 05 87 0d 05 14 29 f1 |00,400..|......).|
|000011a0| 20 22 47 72 65 65 74 69 | 6e 67 73 20 66 72 6f 6d | "Greeti|ngs from|
|000011b0| 20 54 68 65 20 4c 69 67 | 68 74 20 57 61 72 72 69 | The Lig|ht Warri|
|000011c0| 6f 72 2e 22 0d 05 1e 2a | f1 20 22 54 68 69 73 20 |or."...*|. "This |
|000011d0| 69 73 20 6d 79 20 6f 77 | 6e 20 73 74 61 72 2d 66 |is my ow|n star-f|
|000011e0| 69 65 6c 64 20 72 6f 75 | 74 69 6e 65 2e 22 0d 05 |ield rou|tine."..|
|000011f0| 28 24 f1 20 22 4e 6f 6e | 2d 64 65 73 74 72 75 63 |($. "Non|-destruc|
|00001200| 74 69 76 65 20 74 6f 20 | 67 72 61 70 68 69 63 73 |tive to |graphics|
|00001210| 2c 22 0d 05 32 1a f1 20 | 22 20 20 20 61 6e 64 20 |,"..2.. |" and |
|00001220| 66 65 61 74 75 72 69 6e | 67 3a 2d 22 0d 05 3c 2b |featurin|g:-"..<+|
|00001230| f1 20 22 20 34 20 6c 61 | 79 65 72 73 20 6f 66 20 |. " 4 la|yers of |
|00001240| 73 74 61 72 73 2c 20 73 | 70 65 65 64 20 2b 20 63 |stars, s|peed + c|
|00001250| 6f 6c 6f 75 72 2e 22 0d | 05 46 04 0d 05 50 39 f4 |olour.".|.F...P9.|
|00001260| 20 54 68 65 6e 20 69 74 | 20 63 61 6e 20 62 65 20 | Then it| can be |
|00001270| 63 6f 6e 74 69 6e 75 61 | 6c 6c 79 20 63 61 6c 6c |continua|lly call|
|00001280| 65 64 2c 20 75 70 6f 6e | 20 65 76 65 72 79 20 76 |ed, upon| every v|
|00001290| 73 79 6e 63 0d 05 5a 05 | f5 0d 05 64 08 20 20 c8 |sync..Z.|...d. .|
|000012a0| 96 0d 05 6e 0c 20 20 d6 | 20 69 6e 69 74 0d 05 78 |...n. .| init..x|
|000012b0| 07 fd 20 a3 0d ff | |.. ... | |
+--------+-------------------------+-------------------------+--------+--------+