Home » Archimedes archive » Acorn User » AU 1994-02.adf » !StarInfo_StarInfo » Jones/Fractals
Jones/Fractals
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1994-02.adf » !StarInfo_StarInfo |
| Filename: | Jones/Fractals |
| Read OK: | ✔ |
| File size: | 0E99 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Fractals 20REM By Tim Jones 30REM For 32-bit machines 40REM (c) AU February 1994 50 60ON ERROR MODE0:REPORT:PRINT;" at ";ERL:END 70DIM code &10000 80size=8 90FOR pass=0 TO 2 STEP 2 100P%=code 110[opt pass 120.bush ldr r0,ang+8 130 ldr r8,dataadr 140 mov r1,#640<<15 150 mov r2,#512<<15 160 mov r3,#150 170 str r1,[r8,#0] 180 str r2,[r8,#4] 190 str r0,[r8,#8] 200 str r3,[r8,#12] 210 str r1,[r8,#16] 220 str r2,[r8,#20] 230 add r0,r0,#90 240 cmp r0,#360 250 subge r0,r0,#360 260 str r0,[r8,#24] 270 str r3,[r8,#28] 280 str r1,[r8,#32] 290 str r2,[r8,#36] 300 add r0,r0,#90 310 cmp r0,#360 320 subge r0,r0,#360 330 str r0,[r8,#40] 340 str r3,[r8,#44] 350 str r1,[r8,#48] 360 str r2,[r8,#52] 370 add r0,r0,#90 380 cmp r0,#360 390 subge r0,r0,#360 400 str r0,[r8,#56] 410 str r3,[r8,#60] 420 ldr r6,ang 430 ldr r7,ang+4 440 mov r10,#4 450 add r8,r8,r10,lsl #4 460 ldr r11,angtbladr 470.mainlp 480 mov r9,r10 490 ldr r12,dataadr 500.growlp 510 ldr r3,[r12,#0] 520 ldr r4,[r12,#4] 530 mov r0,#4 540 mov r1,r3,lsr #15 550 mov r2,r4,lsr #15 560 swi "OS_Plot" 570 mov r1,r3 580 mov r2,r4 590 ldr r0,[r12,#8] 600 adds r5,r0,r6 610 addmi r5,r5,#360 620 cmp r5,#360 630 subge r5,r5,#360 640 str r5,[r12,#8] 650 adds r5,r0,r7 660 addmi r5,r5,#360 670 cmp r5,#360 680 subge r5,r5,#360 690 str r5,[r8,#8] 700 add r5,r11,r0,lsl #3 710 ldr r3,[r5,#0] 720 ldr r4,[r5,#4] 730 ldr r0,[r12,#12] 740 mla r1,r3,r0,r1 750 mla r2,r4,r0,r2 760 str r1,[r12],#4 770 str r2,[r12],#8 780 str r1,[r8],#4 790 str r2,[r8],#8 800 sub r5,r0,r0,lsr #2 810 str r5,[r12],#4 820 str r5,[r8],#4 830 mov r0,#5 840 mov r1,r1,lsr #15 850 mov r2,r2,lsr #15 860 swi "OS_Plot" 870 add r10,r10,#1 880 subs r9,r9,#1 890 bne growlp 900 teq r10,#2^size 910 bne mainlp 920 mov r0,#19 930 swi "OS_Byte" 940 ldr r0,screen 950 ldr r1,screen+4 960 ldr r0,screen+4 970 ldr r1,screen 980 mov r0,#112 990 ldr r1,screen+8 1000 eor r4,r1,#3 1010 str r4,screen+8 1020 swi "OS_Byte" 1030 mov r0,#113 1040 mov r1,r4 1050 swi "OS_Byte" 1060 swi &100+12 1070 ldr r0,ang+8 1080 add r0,r0,#2 1090 teq r0,#360 1100 moveq r0,#0 1110 str r0,ang+8 1120 mov pc,r14 1130 1140.angtbladr 1150 equd angtbl 1160.dataadr 1170 equd data 1180.angtbl 1190 ]:FOR a=0 TO 359 1200 P%!0=(1<<15)*COSRADa 1210 P%!4=(1<<15)*SINRADa 1220 P%+=8:NEXT:[opt pass 1230.ang 1240 equd 0 1250 equd 0 1260 equd 0 1270.screen 1280 equd 148 1290 equd 149 1300 equd -1 1310.data 1320] 1330NEXT 1340MODE 13+128 1350SYS 6,112,1 1360SYS 6,113,2 1370SYS "OS_ReadVduVariables",screen,screen 1380screen!8=1 1390MOUSE RECTANGLE 0,0,600,0 1400MOUSE TO 0,0 1410OFF 1420REPEAT 1430 MOUSE x,y,b 1440 ang!0=(ang!8+360-x/4) MOD 360 1450 ang!4=(ang!8+360+x/4) MOD 360 1460 CALL bush 1470UNTIL 0
� >Fractals
� By Tim Jones
� For 32-bit machines
(� (c) AU February 1994
2
<� � �0:�:�;" at ";�:�
F� code &10000
P
size=8
Z� pass=0 � 2 � 2
d P%=code
n[opt pass
x .bush ldr r0,ang+8
� ldr r8,dataadr
� mov r1,#640<<15
� mov r2,#512<<15
� mov r3,#150
� str r1,[r8,#0]
� str r2,[r8,#4]
� str r0,[r8,#8]
� str r3,[r8,#12]
� str r1,[r8,#16]
� str r2,[r8,#20]
� add r0,r0,#90
� cmp r0,#360
� subge r0,r0,#360
str r0,[r8,#24]
str r3,[r8,#28]
str r1,[r8,#32]
" str r2,[r8,#36]
, add r0,r0,#90
6 cmp r0,#360
@ subge r0,r0,#360
J str r0,[r8,#40]
T str r3,[r8,#44]
^ str r1,[r8,#48]
h str r2,[r8,#52]
r add r0,r0,#90
| cmp r0,#360
� subge r0,r0,#360
� str r0,[r8,#56]
� str r3,[r8,#60]
� ldr r6,ang
� ldr r7,ang+4
� mov r10,#4
�$ add r8,r8,r10,lsl #4
�! ldr r11,angtbladr
� .mainlp
� mov r9,r10
� ldr r12,dataadr
� .growlp
� ldr r3,[r12,#0]
ldr r4,[r12,#4]
mov r0,#4
! mov r1,r3,lsr #15
&! mov r2,r4,lsr #15
0 swi "OS_Plot"
: mov r1,r3
D mov r2,r4
N ldr r0,[r12,#8]
X adds r5,r0,r6
b addmi r5,r5,#360
l cmp r5,#360
v subge r5,r5,#360
� str r5,[r12,#8]
� adds r5,r0,r7
� addmi r5,r5,#360
� cmp r5,#360
� subge r5,r5,#360
� str r5,[r8,#8]
�$ add r5,r11,r0,lsl #3
� ldr r3,[r5,#0]
� ldr r4,[r5,#4]
� ldr r0,[r12,#12]
� mla r1,r3,r0,r1
� mla r2,r4,r0,r2
� str r1,[r12],#4
str r2,[r12],#8
str r1,[r8],#4
str r2,[r8],#8
# sub r5,r0,r0,lsr #2
* str r5,[r12],#4
4 str r5,[r8],#4
> mov r0,#5
H! mov r1,r1,lsr #15
R! mov r2,r2,lsr #15
\ swi "OS_Plot"
f add r10,r10,#1
p subs r9,r9,#1
z bne growlp
� teq r10,#2^size
� bne mainlp
� mov r0,#19
� swi "OS_Byte"
� ldr r0,screen
� ldr r1,screen+4
� ldr r0,screen+4
� ldr r1,screen
� mov r0,#112
� ldr r1,screen+8
� eor r4,r1,#3
� str r4,screen+8
� swi "OS_Byte"
mov r0,#113
mov r1,r4
swi "OS_Byte"
$ swi &100+12
. ldr r0,ang+8
8 add r0,r0,#2
B teq r0,#360
L moveq r0,#0
V str r0,ang+8
` mov pc,r14
j
t.angtbladr
~ equd angtbl
� .dataadr
� equd data
� .angtbl
� ]:� a=0 � 359
� P%!0=(1<<15)*��a
� P%!4=(1<<15)*��a
� P%+=8:�:[opt pass
�.ang
� equd 0
� equd 0
� equd 0
� .screen
equd 148
equd 149
equd -1
.data
(]
2�
< � 13+128
Fș 6,112,1
Pș 6,113,2
Z*ș "OS_ReadVduVariables",screen,screen
dscreen!8=1
nȗ ȓ 0,0,600,0
x ȗ � 0,0
��
��
�
ȗ x,y,b
� ang!0=(ang!8+360-x/4) � 360
� ang!4=(ang!8+360+x/4) � 360
� � bush
�� 0
� 00000000 0d 00 0a 13 f4 20 20 20 20 20 3e 46 72 61 63 74 |..... >Fract| 00000010 61 6c 73 0d 00 14 13 f4 20 42 79 20 20 54 69 6d |als..... By Tim| 00000020 20 4a 6f 6e 65 73 0d 00 1e 19 f4 20 46 6f 72 20 | Jones..... For | 00000030 33 32 2d 62 69 74 20 6d 61 63 68 69 6e 65 73 0d |32-bit machines.| 00000040 00 28 1a f4 20 28 63 29 20 41 55 20 46 65 62 72 |.(.. (c) AU Febr| 00000050 75 61 72 79 20 31 39 39 34 0d 00 32 04 0d 00 3c |uary 1994..2...<| 00000060 19 ee 20 85 20 eb 30 3a f6 3a f1 3b 22 20 61 74 |.. . .0:.:.;" at| 00000070 20 22 3b 9e 3a e0 0d 00 46 11 de 20 63 6f 64 65 | ";.:...F.. code| 00000080 20 26 31 30 30 30 30 0d 00 50 0a 73 69 7a 65 3d | &10000..P.size=| 00000090 38 0d 00 5a 14 e3 20 70 61 73 73 3d 30 20 b8 20 |8..Z.. pass=0 . | 000000a0 32 20 88 20 32 0d 00 64 0b 50 25 3d 63 6f 64 65 |2 . 2..d.P%=code| 000000b0 0d 00 6e 11 5b 6f 70 74 20 20 20 20 20 70 61 73 |..n.[opt pas| 000000c0 73 0d 00 78 1c 2e 62 75 73 68 20 20 20 6c 64 72 |s..x..bush ldr| 000000d0 20 20 20 20 20 72 30 2c 61 6e 67 2b 38 0d 00 82 | r0,ang+8...| 000000e0 1e 20 20 20 20 20 20 20 20 6c 64 72 20 20 20 20 |. ldr | 000000f0 20 72 38 2c 64 61 74 61 61 64 72 0d 00 8c 1f 20 | r8,dataadr.... | 00000100 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 72 | mov r| 00000110 31 2c 23 36 34 30 3c 3c 31 35 0d 00 96 1f 20 20 |1,#640<<15.... | 00000120 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 72 32 | mov r2| 00000130 2c 23 35 31 32 3c 3c 31 35 0d 00 a0 1b 20 20 20 |,#512<<15.... | 00000140 20 20 20 20 20 6d 6f 76 20 20 20 20 20 72 33 2c | mov r3,| 00000150 23 31 35 30 0d 00 aa 1e 20 20 20 20 20 20 20 20 |#150.... | 00000160 73 74 72 20 20 20 20 20 72 31 2c 5b 72 38 2c 23 |str r1,[r8,#| 00000170 30 5d 0d 00 b4 1e 20 20 20 20 20 20 20 20 73 74 |0].... st| 00000180 72 20 20 20 20 20 72 32 2c 5b 72 38 2c 23 34 5d |r r2,[r8,#4]| 00000190 0d 00 be 1e 20 20 20 20 20 20 20 20 73 74 72 20 |.... str | 000001a0 20 20 20 20 72 30 2c 5b 72 38 2c 23 38 5d 0d 00 | r0,[r8,#8]..| 000001b0 c8 1f 20 20 20 20 20 20 20 20 73 74 72 20 20 20 |.. str | 000001c0 20 20 72 33 2c 5b 72 38 2c 23 31 32 5d 0d 00 d2 | r3,[r8,#12]...| 000001d0 1f 20 20 20 20 20 20 20 20 73 74 72 20 20 20 20 |. str | 000001e0 20 72 31 2c 5b 72 38 2c 23 31 36 5d 0d 00 dc 1f | r1,[r8,#16]....| 000001f0 20 20 20 20 20 20 20 20 73 74 72 20 20 20 20 20 | str | 00000200 72 32 2c 5b 72 38 2c 23 32 30 5d 0d 00 e6 1d 20 |r2,[r8,#20].... | 00000210 20 20 20 20 20 20 20 61 64 64 20 20 20 20 20 72 | add r| 00000220 30 2c 72 30 2c 23 39 30 0d 00 f0 1b 20 20 20 20 |0,r0,#90.... | 00000230 20 20 20 20 63 6d 70 20 20 20 20 20 72 30 2c 23 | cmp r0,#| 00000240 33 36 30 0d 00 fa 1e 20 20 20 20 20 20 20 20 73 |360.... s| 00000250 75 62 67 65 20 20 20 72 30 2c 72 30 2c 23 33 36 |ubge r0,r0,#36| 00000260 30 0d 01 04 1f 20 20 20 20 20 20 20 20 73 74 72 |0.... str| 00000270 20 20 20 20 20 72 30 2c 5b 72 38 2c 23 32 34 5d | r0,[r8,#24]| 00000280 0d 01 0e 1f 20 20 20 20 20 20 20 20 73 74 72 20 |.... str | 00000290 20 20 20 20 72 33 2c 5b 72 38 2c 23 32 38 5d 0d | r3,[r8,#28].| 000002a0 01 18 1f 20 20 20 20 20 20 20 20 73 74 72 20 20 |... str | 000002b0 20 20 20 72 31 2c 5b 72 38 2c 23 33 32 5d 0d 01 | r1,[r8,#32]..| 000002c0 22 1f 20 20 20 20 20 20 20 20 73 74 72 20 20 20 |". str | 000002d0 20 20 72 32 2c 5b 72 38 2c 23 33 36 5d 0d 01 2c | r2,[r8,#36]..,| 000002e0 1d 20 20 20 20 20 20 20 20 61 64 64 20 20 20 20 |. add | 000002f0 20 72 30 2c 72 30 2c 23 39 30 0d 01 36 1b 20 20 | r0,r0,#90..6. | 00000300 20 20 20 20 20 20 63 6d 70 20 20 20 20 20 72 30 | cmp r0| 00000310 2c 23 33 36 30 0d 01 40 1e 20 20 20 20 20 20 20 |,#360..@. | 00000320 20 73 75 62 67 65 20 20 20 72 30 2c 72 30 2c 23 | subge r0,r0,#| 00000330 33 36 30 0d 01 4a 1f 20 20 20 20 20 20 20 20 73 |360..J. s| 00000340 74 72 20 20 20 20 20 72 30 2c 5b 72 38 2c 23 34 |tr r0,[r8,#4| 00000350 30 5d 0d 01 54 1f 20 20 20 20 20 20 20 20 73 74 |0]..T. st| 00000360 72 20 20 20 20 20 72 33 2c 5b 72 38 2c 23 34 34 |r r3,[r8,#44| 00000370 5d 0d 01 5e 1f 20 20 20 20 20 20 20 20 73 74 72 |]..^. str| 00000380 20 20 20 20 20 72 31 2c 5b 72 38 2c 23 34 38 5d | r1,[r8,#48]| 00000390 0d 01 68 1f 20 20 20 20 20 20 20 20 73 74 72 20 |..h. str | 000003a0 20 20 20 20 72 32 2c 5b 72 38 2c 23 35 32 5d 0d | r2,[r8,#52].| 000003b0 01 72 1d 20 20 20 20 20 20 20 20 61 64 64 20 20 |.r. add | 000003c0 20 20 20 72 30 2c 72 30 2c 23 39 30 0d 01 7c 1b | r0,r0,#90..|.| 000003d0 20 20 20 20 20 20 20 20 63 6d 70 20 20 20 20 20 | cmp | 000003e0 72 30 2c 23 33 36 30 0d 01 86 1e 20 20 20 20 20 |r0,#360.... | 000003f0 20 20 20 73 75 62 67 65 20 20 20 72 30 2c 72 30 | subge r0,r0| 00000400 2c 23 33 36 30 0d 01 90 1f 20 20 20 20 20 20 20 |,#360.... | 00000410 20 73 74 72 20 20 20 20 20 72 30 2c 5b 72 38 2c | str r0,[r8,| 00000420 23 35 36 5d 0d 01 9a 1f 20 20 20 20 20 20 20 20 |#56].... | 00000430 73 74 72 20 20 20 20 20 72 33 2c 5b 72 38 2c 23 |str r3,[r8,#| 00000440 36 30 5d 0d 01 a4 1a 20 20 20 20 20 20 20 20 6c |60].... l| 00000450 64 72 20 20 20 20 20 72 36 2c 61 6e 67 0d 01 ae |dr r6,ang...| 00000460 1c 20 20 20 20 20 20 20 20 6c 64 72 20 20 20 20 |. ldr | 00000470 20 72 37 2c 61 6e 67 2b 34 0d 01 b8 1a 20 20 20 | r7,ang+4.... | 00000480 20 20 20 20 20 6d 6f 76 20 20 20 20 20 72 31 30 | mov r10| 00000490 2c 23 34 0d 01 c2 24 20 20 20 20 20 20 20 20 61 |,#4...$ a| 000004a0 64 64 20 20 20 20 20 72 38 2c 72 38 2c 72 31 30 |dd r8,r8,r10| 000004b0 2c 6c 73 6c 20 23 34 0d 01 cc 21 20 20 20 20 20 |,lsl #4...! | 000004c0 20 20 20 6c 64 72 20 20 20 20 20 72 31 31 2c 61 | ldr r11,a| 000004d0 6e 67 74 62 6c 61 64 72 0d 01 d6 0b 2e 6d 61 69 |ngtbladr.....mai| 000004e0 6e 6c 70 0d 01 e0 1a 20 20 20 20 20 20 20 20 6d |nlp.... m| 000004f0 6f 76 20 20 20 20 20 72 39 2c 72 31 30 0d 01 ea |ov r9,r10...| 00000500 1f 20 20 20 20 20 20 20 20 6c 64 72 20 20 20 20 |. ldr | 00000510 20 72 31 32 2c 64 61 74 61 61 64 72 0d 01 f4 0b | r12,dataadr....| 00000520 2e 67 72 6f 77 6c 70 0d 01 fe 1f 20 20 20 20 20 |.growlp.... | 00000530 20 20 20 6c 64 72 20 20 20 20 20 72 33 2c 5b 72 | ldr r3,[r| 00000540 31 32 2c 23 30 5d 0d 02 08 1f 20 20 20 20 20 20 |12,#0].... | 00000550 20 20 6c 64 72 20 20 20 20 20 72 34 2c 5b 72 31 | ldr r4,[r1| 00000560 32 2c 23 34 5d 0d 02 12 19 20 20 20 20 20 20 20 |2,#4].... | 00000570 20 6d 6f 76 20 20 20 20 20 72 30 2c 23 34 0d 02 | mov r0,#4..| 00000580 1c 21 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 |.! mov | 00000590 20 20 72 31 2c 72 33 2c 6c 73 72 20 23 31 35 0d | r1,r3,lsr #15.| 000005a0 02 26 21 20 20 20 20 20 20 20 20 6d 6f 76 20 20 |.&! mov | 000005b0 20 20 20 72 32 2c 72 34 2c 6c 73 72 20 23 31 35 | r2,r4,lsr #15| 000005c0 0d 02 30 1d 20 20 20 20 20 20 20 20 73 77 69 20 |..0. swi | 000005d0 20 20 20 20 22 4f 53 5f 50 6c 6f 74 22 0d 02 3a | "OS_Plot"..:| 000005e0 19 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 |. mov | 000005f0 20 72 31 2c 72 33 0d 02 44 19 20 20 20 20 20 20 | r1,r3..D. | 00000600 20 20 6d 6f 76 20 20 20 20 20 72 32 2c 72 34 0d | mov r2,r4.| 00000610 02 4e 1f 20 20 20 20 20 20 20 20 6c 64 72 20 20 |.N. ldr | 00000620 20 20 20 72 30 2c 5b 72 31 32 2c 23 38 5d 0d 02 | r0,[r12,#8]..| 00000630 58 1c 20 20 20 20 20 20 20 20 61 64 64 73 20 20 |X. adds | 00000640 20 20 72 35 2c 72 30 2c 72 36 0d 02 62 1e 20 20 | r5,r0,r6..b. | 00000650 20 20 20 20 20 20 61 64 64 6d 69 20 20 20 72 35 | addmi r5| 00000660 2c 72 35 2c 23 33 36 30 0d 02 6c 1b 20 20 20 20 |,r5,#360..l. | 00000670 20 20 20 20 63 6d 70 20 20 20 20 20 72 35 2c 23 | cmp r5,#| 00000680 33 36 30 0d 02 76 1e 20 20 20 20 20 20 20 20 73 |360..v. s| 00000690 75 62 67 65 20 20 20 72 35 2c 72 35 2c 23 33 36 |ubge r5,r5,#36| 000006a0 30 0d 02 80 1f 20 20 20 20 20 20 20 20 73 74 72 |0.... str| 000006b0 20 20 20 20 20 72 35 2c 5b 72 31 32 2c 23 38 5d | r5,[r12,#8]| 000006c0 0d 02 8a 1c 20 20 20 20 20 20 20 20 61 64 64 73 |.... adds| 000006d0 20 20 20 20 72 35 2c 72 30 2c 72 37 0d 02 94 1e | r5,r0,r7....| 000006e0 20 20 20 20 20 20 20 20 61 64 64 6d 69 20 20 20 | addmi | 000006f0 72 35 2c 72 35 2c 23 33 36 30 0d 02 9e 1b 20 20 |r5,r5,#360.... | 00000700 20 20 20 20 20 20 63 6d 70 20 20 20 20 20 72 35 | cmp r5| 00000710 2c 23 33 36 30 0d 02 a8 1e 20 20 20 20 20 20 20 |,#360.... | 00000720 20 73 75 62 67 65 20 20 20 72 35 2c 72 35 2c 23 | subge r5,r5,#| 00000730 33 36 30 0d 02 b2 1e 20 20 20 20 20 20 20 20 73 |360.... s| 00000740 74 72 20 20 20 20 20 72 35 2c 5b 72 38 2c 23 38 |tr r5,[r8,#8| 00000750 5d 0d 02 bc 24 20 20 20 20 20 20 20 20 61 64 64 |]...$ add| 00000760 20 20 20 20 20 72 35 2c 72 31 31 2c 72 30 2c 6c | r5,r11,r0,l| 00000770 73 6c 20 23 33 0d 02 c6 1e 20 20 20 20 20 20 20 |sl #3.... | 00000780 20 6c 64 72 20 20 20 20 20 72 33 2c 5b 72 35 2c | ldr r3,[r5,| 00000790 23 30 5d 0d 02 d0 1e 20 20 20 20 20 20 20 20 6c |#0].... l| 000007a0 64 72 20 20 20 20 20 72 34 2c 5b 72 35 2c 23 34 |dr r4,[r5,#4| 000007b0 5d 0d 02 da 20 20 20 20 20 20 20 20 20 6c 64 72 |]... ldr| 000007c0 20 20 20 20 20 72 30 2c 5b 72 31 32 2c 23 31 32 | r0,[r12,#12| 000007d0 5d 0d 02 e4 1f 20 20 20 20 20 20 20 20 6d 6c 61 |].... mla| 000007e0 20 20 20 20 20 72 31 2c 72 33 2c 72 30 2c 72 31 | r1,r3,r0,r1| 000007f0 0d 02 ee 1f 20 20 20 20 20 20 20 20 6d 6c 61 20 |.... mla | 00000800 20 20 20 20 72 32 2c 72 34 2c 72 30 2c 72 32 0d | r2,r4,r0,r2.| 00000810 02 f8 1f 20 20 20 20 20 20 20 20 73 74 72 20 20 |... str | 00000820 20 20 20 72 31 2c 5b 72 31 32 5d 2c 23 34 0d 03 | r1,[r12],#4..| 00000830 02 1f 20 20 20 20 20 20 20 20 73 74 72 20 20 20 |.. str | 00000840 20 20 72 32 2c 5b 72 31 32 5d 2c 23 38 0d 03 0c | r2,[r12],#8...| 00000850 1e 20 20 20 20 20 20 20 20 73 74 72 20 20 20 20 |. str | 00000860 20 72 31 2c 5b 72 38 5d 2c 23 34 0d 03 16 1e 20 | r1,[r8],#4.... | 00000870 20 20 20 20 20 20 20 73 74 72 20 20 20 20 20 72 | str r| 00000880 32 2c 5b 72 38 5d 2c 23 38 0d 03 20 23 20 20 20 |2,[r8],#8.. # | 00000890 20 20 20 20 20 73 75 62 20 20 20 20 20 72 35 2c | sub r5,| 000008a0 72 30 2c 72 30 2c 6c 73 72 20 23 32 0d 03 2a 1f |r0,r0,lsr #2..*.| 000008b0 20 20 20 20 20 20 20 20 73 74 72 20 20 20 20 20 | str | 000008c0 72 35 2c 5b 72 31 32 5d 2c 23 34 0d 03 34 1e 20 |r5,[r12],#4..4. | 000008d0 20 20 20 20 20 20 20 73 74 72 20 20 20 20 20 72 | str r| 000008e0 35 2c 5b 72 38 5d 2c 23 34 0d 03 3e 19 20 20 20 |5,[r8],#4..>. | 000008f0 20 20 20 20 20 6d 6f 76 20 20 20 20 20 72 30 2c | mov r0,| 00000900 23 35 0d 03 48 21 20 20 20 20 20 20 20 20 6d 6f |#5..H! mo| 00000910 76 20 20 20 20 20 72 31 2c 72 31 2c 6c 73 72 20 |v r1,r1,lsr | 00000920 23 31 35 0d 03 52 21 20 20 20 20 20 20 20 20 6d |#15..R! m| 00000930 6f 76 20 20 20 20 20 72 32 2c 72 32 2c 6c 73 72 |ov r2,r2,lsr| 00000940 20 23 31 35 0d 03 5c 1d 20 20 20 20 20 20 20 20 | #15..\. | 00000950 73 77 69 20 20 20 20 20 22 4f 53 5f 50 6c 6f 74 |swi "OS_Plot| 00000960 22 0d 03 66 1e 20 20 20 20 20 20 20 20 61 64 64 |"..f. add| 00000970 20 20 20 20 20 72 31 30 2c 72 31 30 2c 23 31 0d | r10,r10,#1.| 00000980 03 70 1c 20 20 20 20 20 20 20 20 73 75 62 73 20 |.p. subs | 00000990 20 20 20 72 39 2c 72 39 2c 23 31 0d 03 7a 1a 20 | r9,r9,#1..z. | 000009a0 20 20 20 20 20 20 20 62 6e 65 20 20 20 20 20 67 | bne g| 000009b0 72 6f 77 6c 70 0d 03 84 1f 20 20 20 20 20 20 20 |rowlp.... | 000009c0 20 74 65 71 20 20 20 20 20 72 31 30 2c 23 32 5e | teq r10,#2^| 000009d0 73 69 7a 65 0d 03 8e 1a 20 20 20 20 20 20 20 20 |size.... | 000009e0 62 6e 65 20 20 20 20 20 6d 61 69 6e 6c 70 0d 03 |bne mainlp..| 000009f0 98 1a 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 |.. mov | 00000a00 20 20 72 30 2c 23 31 39 0d 03 a2 1d 20 20 20 20 | r0,#19.... | 00000a10 20 20 20 20 73 77 69 20 20 20 20 20 22 4f 53 5f | swi "OS_| 00000a20 42 79 74 65 22 0d 03 ac 1d 20 20 20 20 20 20 20 |Byte".... | 00000a30 20 6c 64 72 20 20 20 20 20 72 30 2c 73 63 72 65 | ldr r0,scre| 00000a40 65 6e 0d 03 b6 1f 20 20 20 20 20 20 20 20 6c 64 |en.... ld| 00000a50 72 20 20 20 20 20 72 31 2c 73 63 72 65 65 6e 2b |r r1,screen+| 00000a60 34 0d 03 c0 1f 20 20 20 20 20 20 20 20 6c 64 72 |4.... ldr| 00000a70 20 20 20 20 20 72 30 2c 73 63 72 65 65 6e 2b 34 | r0,screen+4| 00000a80 0d 03 ca 1d 20 20 20 20 20 20 20 20 6c 64 72 20 |.... ldr | 00000a90 20 20 20 20 72 31 2c 73 63 72 65 65 6e 0d 03 d4 | r1,screen...| 00000aa0 1b 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 |. mov | 00000ab0 20 72 30 2c 23 31 31 32 0d 03 de 1f 20 20 20 20 | r0,#112.... | 00000ac0 20 20 20 20 6c 64 72 20 20 20 20 20 72 31 2c 73 | ldr r1,s| 00000ad0 63 72 65 65 6e 2b 38 0d 03 e8 1c 20 20 20 20 20 |creen+8.... | 00000ae0 20 20 20 65 6f 72 20 20 20 20 20 72 34 2c 72 31 | eor r4,r1| 00000af0 2c 23 33 0d 03 f2 1f 20 20 20 20 20 20 20 20 73 |,#3.... s| 00000b00 74 72 20 20 20 20 20 72 34 2c 73 63 72 65 65 6e |tr r4,screen| 00000b10 2b 38 0d 03 fc 1d 20 20 20 20 20 20 20 20 73 77 |+8.... sw| 00000b20 69 20 20 20 20 20 22 4f 53 5f 42 79 74 65 22 0d |i "OS_Byte".| 00000b30 04 06 1b 20 20 20 20 20 20 20 20 6d 6f 76 20 20 |... mov | 00000b40 20 20 20 72 30 2c 23 31 31 33 0d 04 10 19 20 20 | r0,#113.... | 00000b50 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 72 31 | mov r1| 00000b60 2c 72 34 0d 04 1a 1d 20 20 20 20 20 20 20 20 73 |,r4.... s| 00000b70 77 69 20 20 20 20 20 22 4f 53 5f 42 79 74 65 22 |wi "OS_Byte"| 00000b80 0d 04 24 1b 20 20 20 20 20 20 20 20 73 77 69 20 |..$. swi | 00000b90 20 20 20 20 26 31 30 30 2b 31 32 0d 04 2e 1c 20 | &100+12.... | 00000ba0 20 20 20 20 20 20 20 6c 64 72 20 20 20 20 20 72 | ldr r| 00000bb0 30 2c 61 6e 67 2b 38 0d 04 38 1c 20 20 20 20 20 |0,ang+8..8. | 00000bc0 20 20 20 61 64 64 20 20 20 20 20 72 30 2c 72 30 | add r0,r0| 00000bd0 2c 23 32 0d 04 42 1b 20 20 20 20 20 20 20 20 74 |,#2..B. t| 00000be0 65 71 20 20 20 20 20 72 30 2c 23 33 36 30 0d 04 |eq r0,#360..| 00000bf0 4c 19 20 20 20 20 20 20 20 20 6d 6f 76 65 71 20 |L. moveq | 00000c00 20 20 72 30 2c 23 30 0d 04 56 1c 20 20 20 20 20 | r0,#0..V. | 00000c10 20 20 20 73 74 72 20 20 20 20 20 72 30 2c 61 6e | str r0,an| 00000c20 67 2b 38 0d 04 60 1a 20 20 20 20 20 20 20 20 6d |g+8..`. m| 00000c30 6f 76 20 20 20 20 20 70 63 2c 72 31 34 0d 04 6a |ov pc,r14..j| 00000c40 04 0d 04 74 0e 2e 61 6e 67 74 62 6c 61 64 72 0d |...t..angtbladr.| 00000c50 04 7e 1a 20 20 20 20 20 20 20 20 65 71 75 64 20 |.~. equd | 00000c60 20 20 20 61 6e 67 74 62 6c 0d 04 88 0c 2e 64 61 | angtbl.....da| 00000c70 74 61 61 64 72 0d 04 92 18 20 20 20 20 20 20 20 |taadr.... | 00000c80 20 65 71 75 64 20 20 20 20 64 61 74 61 0d 04 9c | equd data...| 00000c90 0b 2e 61 6e 67 74 62 6c 0d 04 a6 19 20 20 20 20 |..angtbl.... | 00000ca0 20 20 20 20 5d 3a e3 20 61 3d 30 20 b8 20 33 35 | ]:. a=0 . 35| 00000cb0 39 0d 04 b0 1c 20 20 20 20 20 20 20 20 50 25 21 |9.... P%!| 00000cc0 30 3d 28 31 3c 3c 31 35 29 2a 9b b2 61 0d 04 ba |0=(1<<15)*..a...| 00000cd0 1c 20 20 20 20 20 20 20 20 50 25 21 34 3d 28 31 |. P%!4=(1| 00000ce0 3c 3c 31 35 29 2a b5 b2 61 0d 04 c4 1d 20 20 20 |<<15)*..a.... | 00000cf0 20 20 20 20 20 50 25 2b 3d 38 3a ed 3a 5b 6f 70 | P%+=8:.:[op| 00000d00 74 20 70 61 73 73 0d 04 ce 08 2e 61 6e 67 0d 04 |t pass.....ang..| 00000d10 d8 15 20 20 20 20 20 20 20 20 65 71 75 64 20 20 |.. equd | 00000d20 20 20 30 0d 04 e2 15 20 20 20 20 20 20 20 20 65 | 0.... e| 00000d30 71 75 64 20 20 20 20 30 0d 04 ec 15 20 20 20 20 |qud 0.... | 00000d40 20 20 20 20 65 71 75 64 20 20 20 20 30 0d 04 f6 | equd 0...| 00000d50 0b 2e 73 63 72 65 65 6e 0d 05 00 17 20 20 20 20 |..screen.... | 00000d60 20 20 20 20 65 71 75 64 20 20 20 20 31 34 38 0d | equd 148.| 00000d70 05 0a 17 20 20 20 20 20 20 20 20 65 71 75 64 20 |... equd | 00000d80 20 20 20 31 34 39 0d 05 14 16 20 20 20 20 20 20 | 149.... | 00000d90 20 20 65 71 75 64 20 20 20 20 2d 31 0d 05 1e 09 | equd -1....| 00000da0 2e 64 61 74 61 0d 05 28 05 5d 0d 05 32 05 ed 0d |.data..(.]..2...| 00000db0 05 3c 0c eb 20 31 33 2b 31 32 38 0d 05 46 0e c8 |.<.. 13+128..F..| 00000dc0 99 20 36 2c 31 31 32 2c 31 0d 05 50 0e c8 99 20 |. 6,112,1..P... | 00000dd0 36 2c 31 31 33 2c 32 0d 05 5a 2a c8 99 20 22 4f |6,113,2..Z*.. "O| 00000de0 53 5f 52 65 61 64 56 64 75 56 61 72 69 61 62 6c |S_ReadVduVariabl| 00000df0 65 73 22 2c 73 63 72 65 65 6e 2c 73 63 72 65 65 |es",screen,scree| 00000e00 6e 0d 05 64 0e 73 63 72 65 65 6e 21 38 3d 31 0d |n..d.screen!8=1.| 00000e10 05 6e 13 c8 97 20 c8 93 20 30 2c 30 2c 36 30 30 |.n... .. 0,0,600| 00000e20 2c 30 0d 05 78 0c c8 97 20 b8 20 30 2c 30 0d 05 |,0..x... . 0,0..| 00000e30 82 05 87 0d 05 8c 05 f5 0d 05 96 0d 20 c8 97 20 |............ .. | 00000e40 78 2c 79 2c 62 0d 05 a0 20 20 61 6e 67 21 30 3d |x,y,b... ang!0=| 00000e50 28 61 6e 67 21 38 2b 33 36 30 2d 78 2f 34 29 20 |(ang!8+360-x/4) | 00000e60 83 20 33 36 30 0d 05 aa 20 20 61 6e 67 21 34 3d |. 360... ang!4=| 00000e70 28 61 6e 67 21 38 2b 33 36 30 2b 78 2f 34 29 20 |(ang!8+360+x/4) | 00000e80 83 20 33 36 30 0d 05 b4 0b 20 d6 20 62 75 73 68 |. 360.... . bush| 00000e90 0d 05 be 07 fd 20 30 0d ff |..... 0..| 00000e99
.