� > !RunImage
� by David Horman
� � 1994
(:
2�13 : �
<	�init
F
�assemble
P�christmas
Z:
d
��init
n� sine 360*8
x� christmas 50240*2
�3� "load <Christmas$Dir>.christmas "+�~christmas
�;� "load <Christmas$Dir>.christmas "+�~(christmas+50240)
�.� "load <Christmas$Dir>.sinetable "+�~sine
��
�:
���assemble
�� code 1024
�� pass%=0 � 2 � 2
�P%=code
�[OPT pass%
�.screen EQUD 148
�EQUD -1
�.spriteptr EQUD christmas

.sinetable EQUD sine

.plotter

; R4 - offset (0 - 359)

"LDR R0,screen

,LDR R1,spriteptr

6LDR R2,sinetable

@MOV R3,#80

J:

T	.loop

^LDR R0,screen

hADD R0,R0,R3,LSL#2

rSUB R0,R0,#4

|LDR R1,spriteptr

�ADD R1,R1,R3,LSL#2

�SUB R1,R1,#4

�+ADD R1,R1,R3,LSL#8 : ADD R1,R1,R3,LSL#6

�=MOV R7,R3,LSR#1 : ADD R1,R1,R7,LSL#8 : ADD R1,R1,R7,LSL#6

�LDR R2,sinetable

�+ADD R2,R2,R3,LSL#2 : ADD R2,R2,R3,LSL#1

�ADD R2,R2,R4

�LDR R5,sinetable

�ADD R5,R5,#1440

�
CMP R2,R5

�SUBGE R2,R2,#1440

�MOV R12,#59

�MOV R10,#0
:

.loop2
LDMIA R1,{R5}
&LDR R7,sinetable
0ADD R7,R7,#1440
:
CMP R2,R7
DSUBGE R2,R2,#1440
NLDMIA R2,{R11}
X-ADD R6,R0,R11,LSL#8 : ADD R6,R6,R11,LSL#6
b/LDMIA R6,{R7} : �R R5,R5,R7 : STMIA R6,{R5}
lADD R2,R2,#4
vADD R1,R1,#320
�SUBS R12,R12,#1
�
BNE loop2
�:
�SUBS R3,R3,#1
�BNE loop
�MOV PC,R14
�	] : �
�*ș "OS_ReadVduVariables",screen,screen
�screen!4=!screen+&14000
��
�:
���christmas
�s1%=2 : s2%=1
�
� E%=358*4 � 0 � -8
ș "OS_Byte",112,s1%
 ș "OS_Byte",113,s2%
*Ȕ !screen,screen!4
4
� plotter
>Ȕ s1%,s2%
Hș "OS_Byte",112,s1%
Rș "OS_Byte",113,s2%
\
Ȗ : �
f�
p��
z�
�:
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 15 f4 20 62  79 20 44 61 76 69 64 20  |e..... by David |
00000020  48 6f 72 6d 61 6e 0d 00  1e 0c f4 20 a9 20 31 39  |Horman..... . 19|
00000030  39 34 0d 00 28 05 3a 0d  00 32 0b eb 31 33 20 3a  |94..(.:..2..13 :|
00000040  20 87 0d 00 3c 09 f2 69  6e 69 74 0d 00 46 0d f2  | ...<..init..F..|
00000050  61 73 73 65 6d 62 6c 65  0d 00 50 0e f2 63 68 72  |assemble..P..chr|
00000060  69 73 74 6d 61 73 0d 00  5a 05 3a 0d 00 64 0a dd  |istmas..Z.:..d..|
00000070  f2 69 6e 69 74 0d 00 6e  10 de 20 73 69 6e 65 20  |.init..n.. sine |
00000080  33 36 30 2a 38 0d 00 78  17 de 20 63 68 72 69 73  |360*8..x.. chris|
00000090  74 6d 61 73 20 35 30 32  34 30 2a 32 0d 00 82 33  |tmas 50240*2...3|
000000a0  ff 20 22 6c 6f 61 64 20  3c 43 68 72 69 73 74 6d  |. "load <Christm|
000000b0  61 73 24 44 69 72 3e 2e  63 68 72 69 73 74 6d 61  |as$Dir>.christma|
000000c0  73 20 22 2b c3 7e 63 68  72 69 73 74 6d 61 73 0d  |s "+.~christmas.|
000000d0  00 8c 3b ff 20 22 6c 6f  61 64 20 3c 43 68 72 69  |..;. "load <Chri|
000000e0  73 74 6d 61 73 24 44 69  72 3e 2e 63 68 72 69 73  |stmas$Dir>.chris|
000000f0  74 6d 61 73 20 22 2b c3  7e 28 63 68 72 69 73 74  |tmas "+.~(christ|
00000100  6d 61 73 2b 35 30 32 34  30 29 0d 00 96 2e ff 20  |mas+50240)..... |
00000110  22 6c 6f 61 64 20 3c 43  68 72 69 73 74 6d 61 73  |"load <Christmas|
00000120  24 44 69 72 3e 2e 73 69  6e 65 74 61 62 6c 65 20  |$Dir>.sinetable |
00000130  22 2b c3 7e 73 69 6e 65  0d 00 a0 05 e1 0d 00 aa  |"+.~sine........|
00000140  05 3a 0d 00 b4 0e dd f2  61 73 73 65 6d 62 6c 65  |.:......assemble|
00000150  0d 00 be 0f de 20 63 6f  64 65 20 31 30 32 34 0d  |..... code 1024.|
00000160  00 c8 15 e3 20 70 61 73  73 25 3d 30 20 b8 20 32  |.... pass%=0 . 2|
00000170  20 88 20 32 0d 00 d2 0b  50 25 3d 63 6f 64 65 0d  | . 2....P%=code.|
00000180  00 dc 0e 5b 4f 50 54 20  70 61 73 73 25 0d 00 e6  |...[OPT pass%...|
00000190  14 2e 73 63 72 65 65 6e  20 45 51 55 44 20 31 34  |..screen EQUD 14|
000001a0  38 0d 00 f0 0b 45 51 55  44 20 2d 31 0d 00 fa 1d  |8....EQUD -1....|
000001b0  2e 73 70 72 69 74 65 70  74 72 20 45 51 55 44 20  |.spriteptr EQUD |
000001c0  63 68 72 69 73 74 6d 61  73 0d 01 04 18 2e 73 69  |christmas.....si|
000001d0  6e 65 74 61 62 6c 65 20  45 51 55 44 20 73 69 6e  |netable EQUD sin|
000001e0  65 0d 01 0e 0c 2e 70 6c  6f 74 74 65 72 0d 01 18  |e.....plotter...|
000001f0  1b 3b 20 52 34 20 2d 20  6f 66 66 73 65 74 20 28  |.; R4 - offset (|
00000200  30 20 2d 20 33 35 39 29  0d 01 22 11 4c 44 52 20  |0 - 359)..".LDR |
00000210  52 30 2c 73 63 72 65 65  6e 0d 01 2c 14 4c 44 52  |R0,screen..,.LDR|
00000220  20 52 31 2c 73 70 72 69  74 65 70 74 72 0d 01 36  | R1,spriteptr..6|
00000230  14 4c 44 52 20 52 32 2c  73 69 6e 65 74 61 62 6c  |.LDR R2,sinetabl|
00000240  65 0d 01 40 0e 4d 4f 56  20 52 33 2c 23 38 30 0d  |e..@.MOV R3,#80.|
00000250  01 4a 05 3a 0d 01 54 09  2e 6c 6f 6f 70 0d 01 5e  |.J.:..T..loop..^|
00000260  11 4c 44 52 20 52 30 2c  73 63 72 65 65 6e 0d 01  |.LDR R0,screen..|
00000270  68 16 41 44 44 20 52 30  2c 52 30 2c 52 33 2c 4c  |h.ADD R0,R0,R3,L|
00000280  53 4c 23 32 0d 01 72 10  53 55 42 20 52 30 2c 52  |SL#2..r.SUB R0,R|
00000290  30 2c 23 34 0d 01 7c 14  4c 44 52 20 52 31 2c 73  |0,#4..|.LDR R1,s|
000002a0  70 72 69 74 65 70 74 72  0d 01 86 16 41 44 44 20  |priteptr....ADD |
000002b0  52 31 2c 52 31 2c 52 33  2c 4c 53 4c 23 32 0d 01  |R1,R1,R3,LSL#2..|
000002c0  90 10 53 55 42 20 52 31  2c 52 31 2c 23 34 0d 01  |..SUB R1,R1,#4..|
000002d0  9a 2b 41 44 44 20 52 31  2c 52 31 2c 52 33 2c 4c  |.+ADD R1,R1,R3,L|
000002e0  53 4c 23 38 20 3a 20 41  44 44 20 52 31 2c 52 31  |SL#8 : ADD R1,R1|
000002f0  2c 52 33 2c 4c 53 4c 23  36 0d 01 a4 3d 4d 4f 56  |,R3,LSL#6...=MOV|
00000300  20 52 37 2c 52 33 2c 4c  53 52 23 31 20 3a 20 41  | R7,R3,LSR#1 : A|
00000310  44 44 20 52 31 2c 52 31  2c 52 37 2c 4c 53 4c 23  |DD R1,R1,R7,LSL#|
00000320  38 20 3a 20 41 44 44 20  52 31 2c 52 31 2c 52 37  |8 : ADD R1,R1,R7|
00000330  2c 4c 53 4c 23 36 0d 01  ae 14 4c 44 52 20 52 32  |,LSL#6....LDR R2|
00000340  2c 73 69 6e 65 74 61 62  6c 65 0d 01 b8 2b 41 44  |,sinetable...+AD|
00000350  44 20 52 32 2c 52 32 2c  52 33 2c 4c 53 4c 23 32  |D R2,R2,R3,LSL#2|
00000360  20 3a 20 41 44 44 20 52  32 2c 52 32 2c 52 33 2c  | : ADD R2,R2,R3,|
00000370  4c 53 4c 23 31 0d 01 c2  10 41 44 44 20 52 32 2c  |LSL#1....ADD R2,|
00000380  52 32 2c 52 34 0d 01 cc  14 4c 44 52 20 52 35 2c  |R2,R4....LDR R5,|
00000390  73 69 6e 65 74 61 62 6c  65 0d 01 d6 13 41 44 44  |sinetable....ADD|
000003a0  20 52 35 2c 52 35 2c 23  31 34 34 30 0d 01 e0 0d  | R5,R5,#1440....|
000003b0  43 4d 50 20 52 32 2c 52  35 0d 01 ea 15 53 55 42  |CMP R2,R5....SUB|
000003c0  47 45 20 52 32 2c 52 32  2c 23 31 34 34 30 0d 01  |GE R2,R2,#1440..|
000003d0  f4 0f 4d 4f 56 20 52 31  32 2c 23 35 39 0d 01 fe  |..MOV R12,#59...|
000003e0  0e 4d 4f 56 20 52 31 30  2c 23 30 0d 02 08 05 3a  |.MOV R10,#0....:|
000003f0  0d 02 12 0a 2e 6c 6f 6f  70 32 0d 02 1c 11 4c 44  |.....loop2....LD|
00000400  4d 49 41 20 52 31 2c 7b  52 35 7d 0d 02 26 14 4c  |MIA R1,{R5}..&.L|
00000410  44 52 20 52 37 2c 73 69  6e 65 74 61 62 6c 65 0d  |DR R7,sinetable.|
00000420  02 30 13 41 44 44 20 52  37 2c 52 37 2c 23 31 34  |.0.ADD R7,R7,#14|
00000430  34 30 0d 02 3a 0d 43 4d  50 20 52 32 2c 52 37 0d  |40..:.CMP R2,R7.|
00000440  02 44 15 53 55 42 47 45  20 52 32 2c 52 32 2c 23  |.D.SUBGE R2,R2,#|
00000450  31 34 34 30 0d 02 4e 12  4c 44 4d 49 41 20 52 32  |1440..N.LDMIA R2|
00000460  2c 7b 52 31 31 7d 0d 02  58 2d 41 44 44 20 52 36  |,{R11}..X-ADD R6|
00000470  2c 52 30 2c 52 31 31 2c  4c 53 4c 23 38 20 3a 20  |,R0,R11,LSL#8 : |
00000480  41 44 44 20 52 36 2c 52  36 2c 52 31 31 2c 4c 53  |ADD R6,R6,R11,LS|
00000490  4c 23 36 0d 02 62 2f 4c  44 4d 49 41 20 52 36 2c  |L#6..b/LDMIA R6,|
000004a0  7b 52 37 7d 20 3a 20 84  52 20 52 35 2c 52 35 2c  |{R7} : .R R5,R5,|
000004b0  52 37 20 3a 20 53 54 4d  49 41 20 52 36 2c 7b 52  |R7 : STMIA R6,{R|
000004c0  35 7d 0d 02 6c 10 41 44  44 20 52 32 2c 52 32 2c  |5}..l.ADD R2,R2,|
000004d0  23 34 0d 02 76 12 41 44  44 20 52 31 2c 52 31 2c  |#4..v.ADD R1,R1,|
000004e0  23 33 32 30 0d 02 80 13  53 55 42 53 20 52 31 32  |#320....SUBS R12|
000004f0  2c 52 31 32 2c 23 31 0d  02 8a 0d 42 4e 45 20 6c  |,R12,#1....BNE l|
00000500  6f 6f 70 32 0d 02 94 05  3a 0d 02 9e 11 53 55 42  |oop2....:....SUB|
00000510  53 20 52 33 2c 52 33 2c  23 31 0d 02 a8 0c 42 4e  |S R3,R3,#1....BN|
00000520  45 20 6c 6f 6f 70 0d 02  b2 0e 4d 4f 56 20 50 43  |E loop....MOV PC|
00000530  2c 52 31 34 0d 02 bc 09  5d 20 3a 20 ed 0d 02 c6  |,R14....] : ....|
00000540  2a c8 99 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |*.. "OS_ReadVduV|
00000550  61 72 69 61 62 6c 65 73  22 2c 73 63 72 65 65 6e  |ariables",screen|
00000560  2c 73 63 72 65 65 6e 0d  02 d0 1b 73 63 72 65 65  |,screen....scree|
00000570  6e 21 34 3d 21 73 63 72  65 65 6e 2b 26 31 34 30  |n!4=!screen+&140|
00000580  30 30 0d 02 da 05 e1 0d  02 e4 05 3a 0d 02 ee 0f  |00.........:....|
00000590  dd f2 63 68 72 69 73 74  6d 61 73 0d 02 f8 11 73  |..christmas....s|
000005a0  31 25 3d 32 20 3a 20 73  32 25 3d 31 0d 03 02 05  |1%=2 : s2%=1....|
000005b0  f5 0d 03 0c 17 e3 20 45  25 3d 33 35 38 2a 34 20  |...... E%=358*4 |
000005c0  b8 20 30 20 88 20 2d 38  0d 03 16 18 c8 99 20 22  |. 0 . -8...... "|
000005d0  4f 53 5f 42 79 74 65 22  2c 31 31 32 2c 73 31 25  |OS_Byte",112,s1%|
000005e0  0d 03 20 18 c8 99 20 22  4f 53 5f 42 79 74 65 22  |.. ... "OS_Byte"|
000005f0  2c 31 31 33 2c 73 32 25  0d 03 2a 17 c8 94 20 21  |,113,s2%..*... !|
00000600  73 63 72 65 65 6e 2c 73  63 72 65 65 6e 21 34 0d  |screen,screen!4.|
00000610  03 34 0d d6 20 70 6c 6f  74 74 65 72 0d 03 3e 0e  |.4.. plotter..>.|
00000620  c8 94 20 73 31 25 2c 73  32 25 0d 03 48 18 c8 99  |.. s1%,s2%..H...|
00000630  20 22 4f 53 5f 42 79 74  65 22 2c 31 31 32 2c 73  | "OS_Byte",112,s|
00000640  31 25 0d 03 52 18 c8 99  20 22 4f 53 5f 42 79 74  |1%..R... "OS_Byt|
00000650  65 22 2c 31 31 33 2c 73  32 25 0d 03 5c 0a c8 96  |e",113,s2%..\...|
00000660  20 3a 20 db 0d 03 66 05  ed 0d 03 70 06 fd a3 0d  | : ...f....p....|
00000670  03 7a 05 e1 0d 03 84 05  3a 0d ff                 |.z......:..|
0000067b