� Rain by Nigel Stoner 1995
� � �:�" at line ";�:�
	�init
(
� code
2�
<
��init
F=� 13+128:�:flakes%=1999:� code 256, snow% (flakes%+10)*16
P
�assem
Z:p%=0:� a%=0 � flakes%:x%=�(1280):y%=�(1020):z%=�(1020)
dGsnow%!p%=x%:snow%!(p%+4)=y%:snow%!(p%+8)=z%:snow%!(p%+12)=base%+320
np%+=16:� a%
x�
���assem
�� pass = 0 � 3 � 2
�P%=code
�
[OPT pass
�STMFD R13!,{R14}
�ADR   R6,colors
�.main_loop
�"LDR   R10,flakes:LDR   R9,snow
�.flake_loop
�LDMIA R9,{R1-R4}:MOV R0,#0
�"STRB R0,[R4]:STRB R0,[R4,#319]
�#MOV R0,R3,ASR#4:MOV R0,R0,ASR#2
�ADD R0,R0,#2:SUB R1,R1,R0

#MOV R0,R3,ASR#4:MOV R0,R0,ASR#2

ADD R0,R0,#4:ADD R2,R2,R0

+CMP R1,#0:MOVLE R1,#1280:SUBLE R1,R1,#4

"CMP R1,#1280:MOVGE R1,#0

,CMP R2,#1020:MOVGE R2,#0

6STMIA R9!,{R1-R3}

@.plot_snowdrop

J#MOV R1,R1,ASR#2:MOV R2,R2,ASR#2

T$LDR R4,base%:ADD R4,R4,R2,ASL #6

^$ADD R4,R4,R2,ASL #8:ADD R4,R4,R1

h"MOV R3,R3,ASR#6:LDR R0,[R6,R3]

rSTRB R0,[R4]:STMIA R9!,{R4}

|%STRB R0,[R4,#319]:SUBS R10,R10,#1

�CMP R10,#0:BNE flake_loop

�MOV R0,#19:SWI "OS_Byte"

�(MOV R0,#129:SWI "OS_ReadEscapeState"

�BCC main_loop

�LDMFD R13!,{PC}

�.flakes EQUD flakes%

�.snow EQUD snow%

�.base% EQUD 149:EQUD -1

�.colors

�?EQUD &A9A8CCAB:EQUD &CCAB8BA9:EQUD &EDCFCECD:EQUD &FFFBF9EF

�]

�
� pass

�(ș "OS_ReadVduVariables",base%,base%
�
�

00000000  0d 00 0a 1f f4 20 52 61  69 6e 20 62 79 20 4e 69  |..... Rain by Ni|
00000010  67 65 6c 20 53 74 6f 6e  65 72 20 31 39 39 35 0d  |gel Stoner 1995.|
00000020  00 14 1a ee 20 85 20 f6  3a f1 22 20 61 74 20 6c  |.... . .:." at l|
00000030  69 6e 65 20 22 3b 9e 3a  e0 0d 00 1e 09 f2 69 6e  |ine ";.:......in|
00000040  69 74 0d 00 28 0a d6 20  63 6f 64 65 0d 00 32 05  |it..(.. code..2.|
00000050  e0 0d 00 3c 0a dd f2 69  6e 69 74 0d 00 46 3d eb  |...<...init..F=.|
00000060  20 31 33 2b 31 32 38 3a  87 3a 66 6c 61 6b 65 73  | 13+128:.:flakes|
00000070  25 3d 31 39 39 39 3a de  20 63 6f 64 65 20 32 35  |%=1999:. code 25|
00000080  36 2c 20 73 6e 6f 77 25  20 28 66 6c 61 6b 65 73  |6, snow% (flakes|
00000090  25 2b 31 30 29 2a 31 36  0d 00 50 0a f2 61 73 73  |%+10)*16..P..ass|
000000a0  65 6d 0d 00 5a 3a 70 25  3d 30 3a e3 20 61 25 3d  |em..Z:p%=0:. a%=|
000000b0  30 20 b8 20 66 6c 61 6b  65 73 25 3a 78 25 3d b3  |0 . flakes%:x%=.|
000000c0  28 31 32 38 30 29 3a 79  25 3d b3 28 31 30 32 30  |(1280):y%=.(1020|
000000d0  29 3a 7a 25 3d b3 28 31  30 32 30 29 0d 00 64 47  |):z%=.(1020)..dG|
000000e0  73 6e 6f 77 25 21 70 25  3d 78 25 3a 73 6e 6f 77  |snow%!p%=x%:snow|
000000f0  25 21 28 70 25 2b 34 29  3d 79 25 3a 73 6e 6f 77  |%!(p%+4)=y%:snow|
00000100  25 21 28 70 25 2b 38 29  3d 7a 25 3a 73 6e 6f 77  |%!(p%+8)=z%:snow|
00000110  25 21 28 70 25 2b 31 32  29 3d 62 61 73 65 25 2b  |%!(p%+12)=base%+|
00000120  33 32 30 0d 00 6e 0f 70  25 2b 3d 31 36 3a ed 20  |320..n.p%+=16:. |
00000130  61 25 0d 00 78 05 e1 0d  00 82 0b dd f2 61 73 73  |a%..x........ass|
00000140  65 6d 0d 00 8c 16 e3 20  70 61 73 73 20 3d 20 30  |em..... pass = 0|
00000150  20 b8 20 33 20 88 20 32  0d 00 96 0b 50 25 3d 63  | . 3 . 2....P%=c|
00000160  6f 64 65 0d 00 a0 0d 5b  4f 50 54 20 70 61 73 73  |ode....[OPT pass|
00000170  0d 00 aa 14 53 54 4d 46  44 20 52 31 33 21 2c 7b  |....STMFD R13!,{|
00000180  52 31 34 7d 0d 00 b4 13  41 44 52 20 20 20 52 36  |R14}....ADR   R6|
00000190  2c 63 6f 6c 6f 72 73 0d  00 be 0e 2e 6d 61 69 6e  |,colors.....main|
000001a0  5f 6c 6f 6f 70 0d 00 c8  22 4c 44 52 20 20 20 52  |_loop..."LDR   R|
000001b0  31 30 2c 66 6c 61 6b 65  73 3a 4c 44 52 20 20 20  |10,flakes:LDR   |
000001c0  52 39 2c 73 6e 6f 77 0d  00 d2 0f 2e 66 6c 61 6b  |R9,snow.....flak|
000001d0  65 5f 6c 6f 6f 70 0d 00  dc 1e 4c 44 4d 49 41 20  |e_loop....LDMIA |
000001e0  52 39 2c 7b 52 31 2d 52  34 7d 3a 4d 4f 56 20 52  |R9,{R1-R4}:MOV R|
000001f0  30 2c 23 30 0d 00 e6 22  53 54 52 42 20 52 30 2c  |0,#0..."STRB R0,|
00000200  5b 52 34 5d 3a 53 54 52  42 20 52 30 2c 5b 52 34  |[R4]:STRB R0,[R4|
00000210  2c 23 33 31 39 5d 0d 00  f0 23 4d 4f 56 20 52 30  |,#319]...#MOV R0|
00000220  2c 52 33 2c 41 53 52 23  34 3a 4d 4f 56 20 52 30  |,R3,ASR#4:MOV R0|
00000230  2c 52 30 2c 41 53 52 23  32 0d 00 fa 1d 41 44 44  |,R0,ASR#2....ADD|
00000240  20 52 30 2c 52 30 2c 23  32 3a 53 55 42 20 52 31  | R0,R0,#2:SUB R1|
00000250  2c 52 31 2c 52 30 0d 01  04 23 4d 4f 56 20 52 30  |,R1,R0...#MOV R0|
00000260  2c 52 33 2c 41 53 52 23  34 3a 4d 4f 56 20 52 30  |,R3,ASR#4:MOV R0|
00000270  2c 52 30 2c 41 53 52 23  32 0d 01 0e 1d 41 44 44  |,R0,ASR#2....ADD|
00000280  20 52 30 2c 52 30 2c 23  34 3a 41 44 44 20 52 32  | R0,R0,#4:ADD R2|
00000290  2c 52 32 2c 52 30 0d 01  18 2b 43 4d 50 20 52 31  |,R2,R0...+CMP R1|
000002a0  2c 23 30 3a 4d 4f 56 4c  45 20 52 31 2c 23 31 32  |,#0:MOVLE R1,#12|
000002b0  38 30 3a 53 55 42 4c 45  20 52 31 2c 52 31 2c 23  |80:SUBLE R1,R1,#|
000002c0  34 0d 01 22 1c 43 4d 50  20 52 31 2c 23 31 32 38  |4..".CMP R1,#128|
000002d0  30 3a 4d 4f 56 47 45 20  52 31 2c 23 30 0d 01 2c  |0:MOVGE R1,#0..,|
000002e0  1c 43 4d 50 20 52 32 2c  23 31 30 32 30 3a 4d 4f  |.CMP R2,#1020:MO|
000002f0  56 47 45 20 52 32 2c 23  30 0d 01 36 15 53 54 4d  |VGE R2,#0..6.STM|
00000300  49 41 20 52 39 21 2c 7b  52 31 2d 52 33 7d 0d 01  |IA R9!,{R1-R3}..|
00000310  40 12 2e 70 6c 6f 74 5f  73 6e 6f 77 64 72 6f 70  |@..plot_snowdrop|
00000320  0d 01 4a 23 4d 4f 56 20  52 31 2c 52 31 2c 41 53  |..J#MOV R1,R1,AS|
00000330  52 23 32 3a 4d 4f 56 20  52 32 2c 52 32 2c 41 53  |R#2:MOV R2,R2,AS|
00000340  52 23 32 0d 01 54 24 4c  44 52 20 52 34 2c 62 61  |R#2..T$LDR R4,ba|
00000350  73 65 25 3a 41 44 44 20  52 34 2c 52 34 2c 52 32  |se%:ADD R4,R4,R2|
00000360  2c 41 53 4c 20 23 36 0d  01 5e 24 41 44 44 20 52  |,ASL #6..^$ADD R|
00000370  34 2c 52 34 2c 52 32 2c  41 53 4c 20 23 38 3a 41  |4,R4,R2,ASL #8:A|
00000380  44 44 20 52 34 2c 52 34  2c 52 31 0d 01 68 22 4d  |DD R4,R4,R1..h"M|
00000390  4f 56 20 52 33 2c 52 33  2c 41 53 52 23 36 3a 4c  |OV R3,R3,ASR#6:L|
000003a0  44 52 20 52 30 2c 5b 52  36 2c 52 33 5d 0d 01 72  |DR R0,[R6,R3]..r|
000003b0  1f 53 54 52 42 20 52 30  2c 5b 52 34 5d 3a 53 54  |.STRB R0,[R4]:ST|
000003c0  4d 49 41 20 52 39 21 2c  7b 52 34 7d 0d 01 7c 25  |MIA R9!,{R4}..|%|
000003d0  53 54 52 42 20 52 30 2c  5b 52 34 2c 23 33 31 39  |STRB R0,[R4,#319|
000003e0  5d 3a 53 55 42 53 20 52  31 30 2c 52 31 30 2c 23  |]:SUBS R10,R10,#|
000003f0  31 0d 01 86 1d 43 4d 50  20 52 31 30 2c 23 30 3a  |1....CMP R10,#0:|
00000400  42 4e 45 20 66 6c 61 6b  65 5f 6c 6f 6f 70 0d 01  |BNE flake_loop..|
00000410  90 1c 4d 4f 56 20 52 30  2c 23 31 39 3a 53 57 49  |..MOV R0,#19:SWI|
00000420  20 22 4f 53 5f 42 79 74  65 22 0d 01 9a 28 4d 4f  | "OS_Byte"...(MO|
00000430  56 20 52 30 2c 23 31 32  39 3a 53 57 49 20 22 4f  |V R0,#129:SWI "O|
00000440  53 5f 52 65 61 64 45 73  63 61 70 65 53 74 61 74  |S_ReadEscapeStat|
00000450  65 22 0d 01 a4 11 42 43  43 20 6d 61 69 6e 5f 6c  |e"....BCC main_l|
00000460  6f 6f 70 0d 01 ae 13 4c  44 4d 46 44 20 52 31 33  |oop....LDMFD R13|
00000470  21 2c 7b 50 43 7d 0d 01  b8 18 2e 66 6c 61 6b 65  |!,{PC}.....flake|
00000480  73 20 45 51 55 44 20 66  6c 61 6b 65 73 25 0d 01  |s EQUD flakes%..|
00000490  c2 14 2e 73 6e 6f 77 20  45 51 55 44 20 73 6e 6f  |...snow EQUD sno|
000004a0  77 25 0d 01 cc 1b 2e 62  61 73 65 25 20 45 51 55  |w%.....base% EQU|
000004b0  44 20 31 34 39 3a 45 51  55 44 20 2d 31 0d 01 d6  |D 149:EQUD -1...|
000004c0  0b 2e 63 6f 6c 6f 72 73  0d 01 e0 3f 45 51 55 44  |..colors...?EQUD|
000004d0  20 26 41 39 41 38 43 43  41 42 3a 45 51 55 44 20  | &A9A8CCAB:EQUD |
000004e0  26 43 43 41 42 38 42 41  39 3a 45 51 55 44 20 26  |&CCAB8BA9:EQUD &|
000004f0  45 44 43 46 43 45 43 44  3a 45 51 55 44 20 26 46  |EDCFCECD:EQUD &F|
00000500  46 46 42 46 39 45 46 0d  01 ea 05 5d 0d 01 f4 0a  |FFBF9EF....]....|
00000510  ed 20 70 61 73 73 0d 01  fe 28 c8 99 20 22 4f 53  |. pass...(.. "OS|
00000520  5f 52 65 61 64 56 64 75  56 61 72 69 61 62 6c 65  |_ReadVduVariable|
00000530  73 22 2c 62 61 73 65 25  2c 62 61 73 65 25 0d 02  |s",base%,base%..|
00000540  08 05 e1 0d ff                                    |.....|
00000545