Home » Personal collection » Acorn hard disk » files » BASIC » SpinZoomF
SpinZoomF
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 » Personal collection » Acorn hard disk » files » BASIC |
| Filename: | SpinZoomF |
| Read OK: | ✔ |
| File size: | 13A7 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » Dominic_3.ADF » Files/Programs/SpinZoomF
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_3.adf » Files/Programs/SpinZoomF
- Personal collection » Acorn hard disk » files » BASIC » SpinZoomF
File contents
1REM ** Real time spin & zoom Version 2 - loops unwrapped **
2REM ** By Benjohn Barnes & Alan Taylor (University of Warwick) **
3REM ** Move mouse left/right to zoom **
4
5MODE13
6hpix% = 320
7vpix% = 256
8OFF
9
10DIM Code% 1024
11
12result = 0
13point = 1
14endofline = 2
15finished = 3
16worldlinestart = 4
17worldxy = 5
18worldli = 6
19worlddi = 7
20colour = 8
21colour2 = 9
22colour3 = 10
23colour4 = 11
24mask = 12
25link = 14
26pc = 15
27
28FOR Pass%=0 TO 2 STEP 2
29P%=Code%
30[
31OPT Pass%
32
33.begin STMFD r13!, {link}
34 LDR point, ssa
35 LDR endofline, eol
36 LDR finished, sea
37 LDR worldlinestart, wxy
38 MOV worldxy, worldlinestart
39 LDR worldli, wli
40 LDR worlddi, wdi
41 MOV mask, #&ff000000
42
43.loop AND result, worldxy, worldxy, ASL #16
44 AND result, result, mask
45 MOV colour, result, LSR #24
46 ADD worldxy, worldxy, worldli
47
48 AND result, worldxy, worldxy, ASL #16
49 AND result, result, mask
50 ORR colour, colour, result, LSR #16
51 ADD worldxy, worldxy, worldli
52
53 AND result, worldxy, worldxy, ASL #16
54 AND result, result, mask
55 ORR colour, colour, result, LSR #8
56 ADD worldxy, worldxy, worldli
57
58 AND result, worldxy, worldxy, ASL #16
59 AND result, result, mask
60 ORR colour, colour, result
61 ADD worldxy, worldxy, worldli
62
63 AND result, worldxy, worldxy, ASL #16
64 AND result, result, mask
65 MOV colour2, result, LSR #24
66 ADD worldxy, worldxy, worldli
67
68 AND result, worldxy, worldxy, ASL #16
69 AND result, result, mask
70 ORR colour2, colour2, result, LSR #16
71 ADD worldxy, worldxy, worldli
72
73 AND result, worldxy, worldxy, ASL #16
74 AND result, result, mask
75 ORR colour2, colour2, result, LSR #8
76 ADD worldxy, worldxy, worldli
77
78 AND result, worldxy, worldxy, ASL #16
79 AND result, result, mask
80 ORR colour2, colour2, result
81 ADD worldxy, worldxy, worldli
82
83 AND result, worldxy, worldxy, ASL #16
84 AND result, result, mask
85 MOV colour3, result, LSR #24
86 ADD worldxy, worldxy, worldli
87
88 AND result, worldxy, worldxy, ASL #16
89 AND result, result, mask
90 ORR colour3, colour3, result, LSR #16
91 ADD worldxy, worldxy, worldli
92
93 AND result, worldxy, worldxy, ASL #16
94 AND result, result, mask
95 ORR colour3, colour3, result, LSR #8
96 ADD worldxy, worldxy, worldli
97
98 AND result, worldxy, worldxy, ASL #16
99 AND result, result, mask
100 ORR colour3, colour3, result
101 ADD worldxy, worldxy, worldli
102
103 AND result, worldxy, worldxy, ASL #16
104 AND result, result, mask
105 MOV colour4, result, LSR #24
106 ADD worldxy, worldxy, worldli
107
108 AND result, worldxy, worldxy, ASL #16
109 AND result, result, mask
110 ORR colour4, colour4, result, LSR #16
111 ADD worldxy, worldxy, worldli
112
113 AND result, worldxy, worldxy, ASL #16
114 AND result, result, mask
115 ORR colour4, colour4, result, LSR #8
116 ADD worldxy, worldxy, worldli
117
118 AND result, worldxy, worldxy, ASL #16
119 AND result, result, mask
120 ORR colour4, colour4, result
121 ADD worldxy, worldxy, worldli
122
123 STMib (point)!, {colour - colour4}
124
125 CMP point, endofline
126 Blt loop
127
128 ADD worldlinestart, worldlinestart, worlddi
129 MOV worldxy, worldlinestart
130 ADD endofline, endofline, #hpix%
131 CMP endofline, finished
132 Blt loop
133
134.ret LDMFD r13!, {pc}
135
136.ssa EQUD FNScreenAddress - 4
137.eol EQUD !ssa + hpix%
138.sea EQUD !ssa + hpix% * vpix%
139.wxy EQUD &00000000
140.wli EQUD &00000080
141.wdi EQUD &00800000
142]
143NEXT
144
145T = 2^14
146REPEAT
147 FOR S% = 0 TO 359
148 MOUSE A%,B%,C%
149 WAIT
150 CALL begin
151 !wli = INT(A%*SINRAD(S%)) + INT(A%*COSRAD(S%))*2^16
152 !wdi = INT(A%*COSRAD(S%)) - INT(A%*SINRAD(S%))*2^16
153 !wxy = -INT(T*SINRAD(S%)+T*COSRAD(S%)) - INT(T*COSRAD(S%)-T*SINRAD(S%))*2^16
154 NEXT
155UNTIL FALSE
156END
157
158DEF FNScreenAddress
159 DIM Blk% 16
160 Blk%!00 = 149
161 Blk%!04 = -1
162 SYS "OS_ReadVduVariables", Blk%, Blk%+8
163= Blk%!08
164
165
166
167
=� ** Real time spin & zoom Version 2 - loops unwrapped **
C� ** By Benjohn Barnes & Alan Taylor (University of Warwick) **
*� ** Move mouse left/right to zoom **
�13
hpix% = 320
vpix% = 256
�
� Code% 1024
result = 0
point = 1
endofline = 2
finished = 3
worldlinestart = 4
worldxy = 5
worldli = 6
worlddi = 7
colour = 8
colour2 = 9
colour3 = 10
colour4 = 11
mask = 12
link = 14
pc = 15
� Pass%=0 � 2 � 2
P%=Code%
[
OPT Pass%
! .begin STMFD r13!, {link}
" LDR point, ssa
#" LDR endofline, eol
$! LDR finished, sea
%' LDR worldlinestart, wxy
&- MOV worldxy, worldlinestart
' LDR worldli, wli
( LDR worlddi, wdi
)$ MOV mask, #&ff000000
*
+3.loop � result, worldxy, worldxy, ASL #16
,& � result, result, mask
-+ MOV colour, result, LSR #24
.- ADD worldxy, worldxy, worldli
/
03 � result, worldxy, worldxy, ASL #16
1& � result, result, mask
22 �R colour, colour, result, LSR #16
31 ADD worldxy, worldxy, worldli
4
53 � result, worldxy, worldxy, ASL #16
6& � result, result, mask
71 �R colour, colour, result, LSR #8
81 ADD worldxy, worldxy, worldli
9
:3 � result, worldxy, worldxy, ASL #16
;& � result, result, mask
<) �R colour, colour, result
=- ADD worldxy, worldxy, worldli
>
?3 � result, worldxy, worldxy, ASL #16
@& � result, result, mask
A, MOV colour2, result, LSR #24
B- ADD worldxy, worldxy, worldli
C
D3 � result, worldxy, worldxy, ASL #16
E& � result, result, mask
F4 �R colour2, colour2, result, LSR #16
G1 ADD worldxy, worldxy, worldli
H
I3 � result, worldxy, worldxy, ASL #16
J& � result, result, mask
K3 �R colour2, colour2, result, LSR #8
L1 ADD worldxy, worldxy, worldli
M
N3 � result, worldxy, worldxy, ASL #16
O& � result, result, mask
P+ �R colour2, colour2, result
Q- ADD worldxy, worldxy, worldli
R*
S3 � result, worldxy, worldxy, ASL #16
T& � result, result, mask
U, MOV colour3, result, LSR #24
V- ADD worldxy, worldxy, worldli
W
X3 � result, worldxy, worldxy, ASL #16
Y& � result, result, mask
Z4 �R colour3, colour3, result, LSR #16
[1 ADD worldxy, worldxy, worldli
\
]3 � result, worldxy, worldxy, ASL #16
^& � result, result, mask
_3 �R colour3, colour3, result, LSR #8
`1 ADD worldxy, worldxy, worldli
a
b3 � result, worldxy, worldxy, ASL #16
c& � result, result, mask
d+ �R colour3, colour3, result
e- ADD worldxy, worldxy, worldli
f
g3 � result, worldxy, worldxy, ASL #16
h& � result, result, mask
i, MOV colour4, result, LSR #24
j- ADD worldxy, worldxy, worldli
k
l3 � result, worldxy, worldxy, ASL #16
m& � result, result, mask
n4 �R colour4, colour4, result, LSR #16
o1 ADD worldxy, worldxy, worldli
p
q3 � result, worldxy, worldxy, ASL #16
r& � result, result, mask
s3 �R colour4, colour4, result, LSR #8
t1 ADD worldxy, worldxy, worldli
u
v3 � result, worldxy, worldxy, ASL #16
w& � result, result, mask
x+ �R colour4, colour4, result
y- ADD worldxy, worldxy, worldli
z
{0 STMib (point)!, {colour - colour4}
|
}$ CMP point, endofline
~ Blt loop
�; ADD worldlinestart, worldlinestart, worlddi
�+ MOV worldxy, worldlinestart
�0 ADD endofline, endofline, #hpix%
�' CMP endofline, finished
� Blt loop
�
� .ret LDMFD r13!, {pc}
�
�%.ssa EQUD �ScreenAddress - 4
� .eol EQUD !ssa + hpix%
�'.sea EQUD !ssa + hpix% * vpix%
� .wxy EQUD &00000000
� .wli EQUD &00000080
� .wdi EQUD &00800000
�]
��
�
� T = 2^14
��
� � S% = 0 � 359
� ȗ A%,B%,C%
� Ȗ
� � begin
�5 !wli = �(A%*��(S%)) + �(A%*��(S%))*2^16
�5 !wdi = �(A%*��(S%)) - �(A%*��(S%))*2^16
�F !wxy = -�(T*��(S%)+T*��(S%)) - �(T*��(S%)-T*��(S%))*2^16
� �
�� �
��
�
�� �ScreenAddress
� � Blk% 16
� Blk%!00 = 149
� Blk%!04 = -1
�. ș "OS_ReadVduVariables", Blk%, Blk%+8
�
= Blk%!08
�
�
�
�
� 00000000 0d 00 01 3d f4 20 2a 2a 20 52 65 61 6c 20 74 69 |...=. ** Real ti|
00000010 6d 65 20 73 70 69 6e 20 26 20 7a 6f 6f 6d 20 56 |me spin & zoom V|
00000020 65 72 73 69 6f 6e 20 32 20 2d 20 6c 6f 6f 70 73 |ersion 2 - loops|
00000030 20 75 6e 77 72 61 70 70 65 64 20 2a 2a 0d 00 02 | unwrapped **...|
00000040 43 f4 20 2a 2a 20 42 79 20 42 65 6e 6a 6f 68 6e |C. ** By Benjohn|
00000050 20 42 61 72 6e 65 73 20 26 20 41 6c 61 6e 20 54 | Barnes & Alan T|
00000060 61 79 6c 6f 72 20 28 55 6e 69 76 65 72 73 69 74 |aylor (Universit|
00000070 79 20 6f 66 20 57 61 72 77 69 63 6b 29 20 2a 2a |y of Warwick) **|
00000080 0d 00 03 2a f4 20 2a 2a 20 4d 6f 76 65 20 6d 6f |...*. ** Move mo|
00000090 75 73 65 20 6c 65 66 74 2f 72 69 67 68 74 20 74 |use left/right t|
000000a0 6f 20 7a 6f 6f 6d 20 2a 2a 20 0d 00 04 04 0d 00 |o zoom ** ......|
000000b0 05 07 eb 31 33 0d 00 06 0f 68 70 69 78 25 20 3d |...13....hpix% =|
000000c0 20 33 32 30 0d 00 07 0f 76 70 69 78 25 20 3d 20 | 320....vpix% = |
000000d0 32 35 36 0d 00 08 05 87 0d 00 09 04 0d 00 0a 10 |256.............|
000000e0 de 20 43 6f 64 65 25 20 31 30 32 34 0d 00 0b 04 |. Code% 1024....|
000000f0 0d 00 0c 16 72 65 73 75 6c 74 20 20 20 20 20 20 |....result |
00000100 20 20 20 3d 20 30 0d 00 0d 16 70 6f 69 6e 74 20 | = 0....point |
00000110 20 20 20 20 20 20 20 20 20 3d 20 31 0d 00 0e 16 | = 1....|
00000120 65 6e 64 6f 66 6c 69 6e 65 20 20 20 20 20 20 3d |endofline =|
00000130 20 32 0d 00 0f 16 66 69 6e 69 73 68 65 64 20 20 | 2....finished |
00000140 20 20 20 20 20 3d 20 33 0d 00 10 16 77 6f 72 6c | = 3....worl|
00000150 64 6c 69 6e 65 73 74 61 72 74 20 3d 20 34 0d 00 |dlinestart = 4..|
00000160 11 16 77 6f 72 6c 64 78 79 20 20 20 20 20 20 20 |..worldxy |
00000170 20 3d 20 35 0d 00 12 16 77 6f 72 6c 64 6c 69 20 | = 5....worldli |
00000180 20 20 20 20 20 20 20 3d 20 36 0d 00 13 16 77 6f | = 6....wo|
00000190 72 6c 64 64 69 20 20 20 20 20 20 20 20 3d 20 37 |rlddi = 7|
000001a0 0d 00 14 16 63 6f 6c 6f 75 72 20 20 20 20 20 20 |....colour |
000001b0 20 20 20 3d 20 38 0d 00 15 16 63 6f 6c 6f 75 72 | = 8....colour|
000001c0 32 20 20 20 20 20 20 20 20 3d 20 39 0d 00 16 17 |2 = 9....|
000001d0 63 6f 6c 6f 75 72 33 20 20 20 20 20 20 20 20 3d |colour3 =|
000001e0 20 31 30 0d 00 17 17 63 6f 6c 6f 75 72 34 20 20 | 10....colour4 |
000001f0 20 20 20 20 20 20 3d 20 31 31 0d 00 18 17 6d 61 | = 11....ma|
00000200 73 6b 20 20 20 20 20 20 20 20 20 20 20 3d 20 31 |sk = 1|
00000210 32 0d 00 19 17 6c 69 6e 6b 20 20 20 20 20 20 20 |2....link |
00000220 20 20 20 20 3d 20 31 34 0d 00 1a 17 70 63 20 20 | = 14....pc |
00000230 20 20 20 20 20 20 20 20 20 20 20 3d 20 31 35 0d | = 15.|
00000240 00 1b 04 0d 00 1c 15 e3 20 50 61 73 73 25 3d 30 |........ Pass%=0|
00000250 20 b8 20 32 20 88 20 32 0d 00 1d 0c 50 25 3d 43 | . 2 . 2....P%=C|
00000260 6f 64 65 25 0d 00 1e 05 5b 0d 00 1f 0d 4f 50 54 |ode%....[....OPT|
00000270 20 50 61 73 73 25 0d 00 20 04 0d 00 21 1f 2e 62 | Pass%.. ...!..b|
00000280 65 67 69 6e 20 20 20 53 54 4d 46 44 20 72 31 33 |egin STMFD r13|
00000290 21 2c 20 7b 6c 69 6e 6b 7d 0d 00 22 1e 20 20 20 |!, {link}..". |
000002a0 20 20 20 20 20 20 4c 44 52 20 20 20 20 70 6f 69 | LDR poi|
000002b0 6e 74 2c 20 73 73 61 0d 00 23 22 20 20 20 20 20 |nt, ssa..#" |
000002c0 20 20 20 20 4c 44 52 20 20 20 20 65 6e 64 6f 66 | LDR endof|
000002d0 6c 69 6e 65 2c 20 65 6f 6c 0d 00 24 21 20 20 20 |line, eol..$! |
000002e0 20 20 20 20 20 20 4c 44 52 20 20 20 20 66 69 6e | LDR fin|
000002f0 69 73 68 65 64 2c 20 73 65 61 0d 00 25 27 20 20 |ished, sea..%' |
00000300 20 20 20 20 20 20 20 4c 44 52 20 20 20 20 77 6f | LDR wo|
00000310 72 6c 64 6c 69 6e 65 73 74 61 72 74 2c 20 77 78 |rldlinestart, wx|
00000320 79 0d 00 26 2d 20 20 20 20 20 20 20 20 20 4d 4f |y..&- MO|
00000330 56 20 20 20 20 77 6f 72 6c 64 78 79 2c 20 20 20 |V worldxy, |
00000340 77 6f 72 6c 64 6c 69 6e 65 73 74 61 72 74 0d 00 |worldlinestart..|
00000350 27 20 20 20 20 20 20 20 20 20 20 4c 44 52 20 20 |' LDR |
00000360 20 20 77 6f 72 6c 64 6c 69 2c 20 77 6c 69 0d 00 | worldli, wli..|
00000370 28 20 20 20 20 20 20 20 20 20 20 4c 44 52 20 20 |( LDR |
00000380 20 20 77 6f 72 6c 64 64 69 2c 20 77 64 69 0d 00 | worlddi, wdi..|
00000390 29 24 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 |)$ MOV |
000003a0 20 20 6d 61 73 6b 2c 20 23 26 66 66 30 30 30 30 | mask, #&ff0000|
000003b0 30 30 0d 00 2a 04 0d 00 2b 33 2e 6c 6f 6f 70 20 |00..*...+3.loop |
000003c0 20 20 20 80 20 20 20 20 72 65 73 75 6c 74 2c 20 | . result, |
000003d0 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 78 79 |worldxy, worldxy|
000003e0 2c 20 41 53 4c 20 23 31 36 0d 00 2c 26 20 20 20 |, ASL #16..,& |
000003f0 20 20 20 20 20 20 80 20 20 20 20 72 65 73 75 6c | . resul|
00000400 74 2c 20 72 65 73 75 6c 74 2c 20 6d 61 73 6b 0d |t, result, mask.|
00000410 00 2d 2b 20 20 20 20 20 20 20 20 20 4d 4f 56 20 |.-+ MOV |
00000420 20 20 20 63 6f 6c 6f 75 72 2c 20 72 65 73 75 6c | colour, resul|
00000430 74 2c 20 4c 53 52 20 23 32 34 0d 00 2e 2d 20 20 |t, LSR #24...- |
00000440 20 20 20 20 20 20 20 41 44 44 20 20 20 20 77 6f | ADD wo|
00000450 72 6c 64 78 79 2c 20 77 6f 72 6c 64 78 79 2c 20 |rldxy, worldxy, |
00000460 77 6f 72 6c 64 6c 69 0d 00 2f 04 0d 00 30 33 20 |worldli../...03 |
00000470 20 20 20 20 20 20 20 20 80 20 20 20 20 72 65 73 | . res|
00000480 75 6c 74 2c 20 77 6f 72 6c 64 78 79 2c 20 77 6f |ult, worldxy, wo|
00000490 72 6c 64 78 79 2c 20 41 53 4c 20 23 31 36 0d 00 |rldxy, ASL #16..|
000004a0 31 26 20 20 20 20 20 20 20 20 20 80 20 20 20 20 |1& . |
000004b0 72 65 73 75 6c 74 2c 20 72 65 73 75 6c 74 2c 20 |result, result, |
000004c0 6d 61 73 6b 0d 00 32 32 20 20 20 20 20 20 20 20 |mask..22 |
000004d0 20 84 52 20 20 20 20 63 6f 6c 6f 75 72 2c 20 63 | .R colour, c|
000004e0 6f 6c 6f 75 72 2c 20 72 65 73 75 6c 74 2c 20 4c |olour, result, L|
000004f0 53 52 20 23 31 36 0d 00 33 31 20 20 20 20 20 20 |SR #16..31 |
00000500 20 20 20 41 44 44 20 20 20 20 77 6f 72 6c 64 78 | ADD worldx|
00000510 79 2c 20 20 20 77 6f 72 6c 64 78 79 2c 20 20 20 |y, worldxy, |
00000520 77 6f 72 6c 64 6c 69 0d 00 34 04 0d 00 35 33 20 |worldli..4...53 |
00000530 20 20 20 20 20 20 20 20 80 20 20 20 20 72 65 73 | . res|
00000540 75 6c 74 2c 20 77 6f 72 6c 64 78 79 2c 20 77 6f |ult, worldxy, wo|
00000550 72 6c 64 78 79 2c 20 41 53 4c 20 23 31 36 0d 00 |rldxy, ASL #16..|
00000560 36 26 20 20 20 20 20 20 20 20 20 80 20 20 20 20 |6& . |
00000570 72 65 73 75 6c 74 2c 20 72 65 73 75 6c 74 2c 20 |result, result, |
00000580 6d 61 73 6b 0d 00 37 31 20 20 20 20 20 20 20 20 |mask..71 |
00000590 20 84 52 20 20 20 20 63 6f 6c 6f 75 72 2c 20 63 | .R colour, c|
000005a0 6f 6c 6f 75 72 2c 20 72 65 73 75 6c 74 2c 20 4c |olour, result, L|
000005b0 53 52 20 23 38 0d 00 38 31 20 20 20 20 20 20 20 |SR #8..81 |
000005c0 20 20 41 44 44 20 20 20 20 77 6f 72 6c 64 78 79 | ADD worldxy|
000005d0 2c 20 20 20 77 6f 72 6c 64 78 79 2c 20 20 20 77 |, worldxy, w|
000005e0 6f 72 6c 64 6c 69 0d 00 39 04 0d 00 3a 33 20 20 |orldli..9...:3 |
000005f0 20 20 20 20 20 20 20 80 20 20 20 20 72 65 73 75 | . resu|
00000600 6c 74 2c 20 77 6f 72 6c 64 78 79 2c 20 77 6f 72 |lt, worldxy, wor|
00000610 6c 64 78 79 2c 20 41 53 4c 20 23 31 36 0d 00 3b |ldxy, ASL #16..;|
00000620 26 20 20 20 20 20 20 20 20 20 80 20 20 20 20 72 |& . r|
00000630 65 73 75 6c 74 2c 20 72 65 73 75 6c 74 2c 20 6d |esult, result, m|
00000640 61 73 6b 0d 00 3c 29 20 20 20 20 20 20 20 20 20 |ask..<) |
00000650 84 52 20 20 20 20 63 6f 6c 6f 75 72 2c 20 63 6f |.R colour, co|
00000660 6c 6f 75 72 2c 20 72 65 73 75 6c 74 0d 00 3d 2d |lour, result..=-|
00000670 20 20 20 20 20 20 20 20 20 41 44 44 20 20 20 20 | ADD |
00000680 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 78 79 |worldxy, worldxy|
00000690 2c 20 77 6f 72 6c 64 6c 69 0d 00 3e 04 0d 00 3f |, worldli..>...?|
000006a0 33 20 20 20 20 20 20 20 20 20 80 20 20 20 20 72 |3 . r|
000006b0 65 73 75 6c 74 2c 20 77 6f 72 6c 64 78 79 2c 20 |esult, worldxy, |
000006c0 77 6f 72 6c 64 78 79 2c 20 41 53 4c 20 23 31 36 |worldxy, ASL #16|
000006d0 0d 00 40 26 20 20 20 20 20 20 20 20 20 80 20 20 |..@& . |
000006e0 20 20 72 65 73 75 6c 74 2c 20 72 65 73 75 6c 74 | result, result|
000006f0 2c 20 6d 61 73 6b 0d 00 41 2c 20 20 20 20 20 20 |, mask..A, |
00000700 20 20 20 4d 4f 56 20 20 20 20 63 6f 6c 6f 75 72 | MOV colour|
00000710 32 2c 20 72 65 73 75 6c 74 2c 20 4c 53 52 20 23 |2, result, LSR #|
00000720 32 34 0d 00 42 2d 20 20 20 20 20 20 20 20 20 41 |24..B- A|
00000730 44 44 20 20 20 20 77 6f 72 6c 64 78 79 2c 20 77 |DD worldxy, w|
00000740 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 6c 69 0d |orldxy, worldli.|
00000750 00 43 04 0d 00 44 33 20 20 20 20 20 20 20 20 20 |.C...D3 |
00000760 80 20 20 20 20 72 65 73 75 6c 74 2c 20 77 6f 72 |. result, wor|
00000770 6c 64 78 79 2c 20 77 6f 72 6c 64 78 79 2c 20 41 |ldxy, worldxy, A|
00000780 53 4c 20 23 31 36 0d 00 45 26 20 20 20 20 20 20 |SL #16..E& |
00000790 20 20 20 80 20 20 20 20 72 65 73 75 6c 74 2c 20 | . result, |
000007a0 72 65 73 75 6c 74 2c 20 6d 61 73 6b 0d 00 46 34 |result, mask..F4|
000007b0 20 20 20 20 20 20 20 20 20 84 52 20 20 20 20 63 | .R c|
000007c0 6f 6c 6f 75 72 32 2c 20 63 6f 6c 6f 75 72 32 2c |olour2, colour2,|
000007d0 20 72 65 73 75 6c 74 2c 20 4c 53 52 20 23 31 36 | result, LSR #16|
000007e0 0d 00 47 31 20 20 20 20 20 20 20 20 20 41 44 44 |..G1 ADD|
000007f0 20 20 20 20 77 6f 72 6c 64 78 79 2c 20 20 20 77 | worldxy, w|
00000800 6f 72 6c 64 78 79 2c 20 20 20 77 6f 72 6c 64 6c |orldxy, worldl|
00000810 69 0d 00 48 04 0d 00 49 33 20 20 20 20 20 20 20 |i..H...I3 |
00000820 20 20 80 20 20 20 20 72 65 73 75 6c 74 2c 20 77 | . result, w|
00000830 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 78 79 2c |orldxy, worldxy,|
00000840 20 41 53 4c 20 23 31 36 0d 00 4a 26 20 20 20 20 | ASL #16..J& |
00000850 20 20 20 20 20 80 20 20 20 20 72 65 73 75 6c 74 | . result|
00000860 2c 20 72 65 73 75 6c 74 2c 20 6d 61 73 6b 0d 00 |, result, mask..|
00000870 4b 33 20 20 20 20 20 20 20 20 20 84 52 20 20 20 |K3 .R |
00000880 20 63 6f 6c 6f 75 72 32 2c 20 63 6f 6c 6f 75 72 | colour2, colour|
00000890 32 2c 20 72 65 73 75 6c 74 2c 20 4c 53 52 20 23 |2, result, LSR #|
000008a0 38 0d 00 4c 31 20 20 20 20 20 20 20 20 20 41 44 |8..L1 AD|
000008b0 44 20 20 20 20 77 6f 72 6c 64 78 79 2c 20 20 20 |D worldxy, |
000008c0 77 6f 72 6c 64 78 79 2c 20 20 20 77 6f 72 6c 64 |worldxy, world|
000008d0 6c 69 0d 00 4d 04 0d 00 4e 33 20 20 20 20 20 20 |li..M...N3 |
000008e0 20 20 20 80 20 20 20 20 72 65 73 75 6c 74 2c 20 | . result, |
000008f0 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 78 79 |worldxy, worldxy|
00000900 2c 20 41 53 4c 20 23 31 36 0d 00 4f 26 20 20 20 |, ASL #16..O& |
00000910 20 20 20 20 20 20 80 20 20 20 20 72 65 73 75 6c | . resul|
00000920 74 2c 20 72 65 73 75 6c 74 2c 20 6d 61 73 6b 0d |t, result, mask.|
00000930 00 50 2b 20 20 20 20 20 20 20 20 20 84 52 20 20 |.P+ .R |
00000940 20 20 63 6f 6c 6f 75 72 32 2c 20 63 6f 6c 6f 75 | colour2, colou|
00000950 72 32 2c 20 72 65 73 75 6c 74 0d 00 51 2d 20 20 |r2, result..Q- |
00000960 20 20 20 20 20 20 20 41 44 44 20 20 20 20 77 6f | ADD wo|
00000970 72 6c 64 78 79 2c 20 77 6f 72 6c 64 78 79 2c 20 |rldxy, worldxy, |
00000980 77 6f 72 6c 64 6c 69 0d 00 52 2a 20 20 20 20 20 |worldli..R* |
00000990 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
000009b0 20 0d 00 53 33 20 20 20 20 20 20 20 20 20 80 20 | ..S3 . |
000009c0 20 20 20 72 65 73 75 6c 74 2c 20 77 6f 72 6c 64 | result, world|
000009d0 78 79 2c 20 77 6f 72 6c 64 78 79 2c 20 41 53 4c |xy, worldxy, ASL|
000009e0 20 23 31 36 0d 00 54 26 20 20 20 20 20 20 20 20 | #16..T& |
000009f0 20 80 20 20 20 20 72 65 73 75 6c 74 2c 20 72 65 | . result, re|
00000a00 73 75 6c 74 2c 20 6d 61 73 6b 0d 00 55 2c 20 20 |sult, mask..U, |
00000a10 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 63 6f | MOV co|
00000a20 6c 6f 75 72 33 2c 20 72 65 73 75 6c 74 2c 20 4c |lour3, result, L|
00000a30 53 52 20 23 32 34 0d 00 56 2d 20 20 20 20 20 20 |SR #24..V- |
00000a40 20 20 20 41 44 44 20 20 20 20 77 6f 72 6c 64 78 | ADD worldx|
00000a50 79 2c 20 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c |y, worldxy, worl|
00000a60 64 6c 69 0d 00 57 04 0d 00 58 33 20 20 20 20 20 |dli..W...X3 |
00000a70 20 20 20 20 80 20 20 20 20 72 65 73 75 6c 74 2c | . result,|
00000a80 20 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 78 | worldxy, worldx|
00000a90 79 2c 20 41 53 4c 20 23 31 36 0d 00 59 26 20 20 |y, ASL #16..Y& |
00000aa0 20 20 20 20 20 20 20 80 20 20 20 20 72 65 73 75 | . resu|
00000ab0 6c 74 2c 20 72 65 73 75 6c 74 2c 20 6d 61 73 6b |lt, result, mask|
00000ac0 0d 00 5a 34 20 20 20 20 20 20 20 20 20 84 52 20 |..Z4 .R |
00000ad0 20 20 20 63 6f 6c 6f 75 72 33 2c 20 63 6f 6c 6f | colour3, colo|
00000ae0 75 72 33 2c 20 72 65 73 75 6c 74 2c 20 4c 53 52 |ur3, result, LSR|
00000af0 20 23 31 36 0d 00 5b 31 20 20 20 20 20 20 20 20 | #16..[1 |
00000b00 20 41 44 44 20 20 20 20 77 6f 72 6c 64 78 79 2c | ADD worldxy,|
00000b10 20 20 20 77 6f 72 6c 64 78 79 2c 20 20 20 77 6f | worldxy, wo|
00000b20 72 6c 64 6c 69 0d 00 5c 04 0d 00 5d 33 20 20 20 |rldli..\...]3 |
00000b30 20 20 20 20 20 20 80 20 20 20 20 72 65 73 75 6c | . resul|
00000b40 74 2c 20 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c |t, worldxy, worl|
00000b50 64 78 79 2c 20 41 53 4c 20 23 31 36 0d 00 5e 26 |dxy, ASL #16..^&|
00000b60 20 20 20 20 20 20 20 20 20 80 20 20 20 20 72 65 | . re|
00000b70 73 75 6c 74 2c 20 72 65 73 75 6c 74 2c 20 6d 61 |sult, result, ma|
00000b80 73 6b 0d 00 5f 33 20 20 20 20 20 20 20 20 20 84 |sk.._3 .|
00000b90 52 20 20 20 20 63 6f 6c 6f 75 72 33 2c 20 63 6f |R colour3, co|
00000ba0 6c 6f 75 72 33 2c 20 72 65 73 75 6c 74 2c 20 4c |lour3, result, L|
00000bb0 53 52 20 23 38 0d 00 60 31 20 20 20 20 20 20 20 |SR #8..`1 |
00000bc0 20 20 41 44 44 20 20 20 20 77 6f 72 6c 64 78 79 | ADD worldxy|
00000bd0 2c 20 20 20 77 6f 72 6c 64 78 79 2c 20 20 20 77 |, worldxy, w|
00000be0 6f 72 6c 64 6c 69 0d 00 61 04 0d 00 62 33 20 20 |orldli..a...b3 |
00000bf0 20 20 20 20 20 20 20 80 20 20 20 20 72 65 73 75 | . resu|
00000c00 6c 74 2c 20 77 6f 72 6c 64 78 79 2c 20 77 6f 72 |lt, worldxy, wor|
00000c10 6c 64 78 79 2c 20 41 53 4c 20 23 31 36 0d 00 63 |ldxy, ASL #16..c|
00000c20 26 20 20 20 20 20 20 20 20 20 80 20 20 20 20 72 |& . r|
00000c30 65 73 75 6c 74 2c 20 72 65 73 75 6c 74 2c 20 6d |esult, result, m|
00000c40 61 73 6b 0d 00 64 2b 20 20 20 20 20 20 20 20 20 |ask..d+ |
00000c50 84 52 20 20 20 20 63 6f 6c 6f 75 72 33 2c 20 63 |.R colour3, c|
00000c60 6f 6c 6f 75 72 33 2c 20 72 65 73 75 6c 74 0d 00 |olour3, result..|
00000c70 65 2d 20 20 20 20 20 20 20 20 20 41 44 44 20 20 |e- ADD |
00000c80 20 20 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 | worldxy, world|
00000c90 78 79 2c 20 77 6f 72 6c 64 6c 69 0d 00 66 04 0d |xy, worldli..f..|
00000ca0 00 67 33 20 20 20 20 20 20 20 20 20 80 20 20 20 |.g3 . |
00000cb0 20 72 65 73 75 6c 74 2c 20 77 6f 72 6c 64 78 79 | result, worldxy|
00000cc0 2c 20 77 6f 72 6c 64 78 79 2c 20 41 53 4c 20 23 |, worldxy, ASL #|
00000cd0 31 36 0d 00 68 26 20 20 20 20 20 20 20 20 20 80 |16..h& .|
00000ce0 20 20 20 20 72 65 73 75 6c 74 2c 20 72 65 73 75 | result, resu|
00000cf0 6c 74 2c 20 6d 61 73 6b 0d 00 69 2c 20 20 20 20 |lt, mask..i, |
00000d00 20 20 20 20 20 4d 4f 56 20 20 20 20 63 6f 6c 6f | MOV colo|
00000d10 75 72 34 2c 20 72 65 73 75 6c 74 2c 20 4c 53 52 |ur4, result, LSR|
00000d20 20 23 32 34 0d 00 6a 2d 20 20 20 20 20 20 20 20 | #24..j- |
00000d30 20 41 44 44 20 20 20 20 77 6f 72 6c 64 78 79 2c | ADD worldxy,|
00000d40 20 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 6c | worldxy, worldl|
00000d50 69 0d 00 6b 04 0d 00 6c 33 20 20 20 20 20 20 20 |i..k...l3 |
00000d60 20 20 80 20 20 20 20 72 65 73 75 6c 74 2c 20 77 | . result, w|
00000d70 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 78 79 2c |orldxy, worldxy,|
00000d80 20 41 53 4c 20 23 31 36 0d 00 6d 26 20 20 20 20 | ASL #16..m& |
00000d90 20 20 20 20 20 80 20 20 20 20 72 65 73 75 6c 74 | . result|
00000da0 2c 20 72 65 73 75 6c 74 2c 20 6d 61 73 6b 0d 00 |, result, mask..|
00000db0 6e 34 20 20 20 20 20 20 20 20 20 84 52 20 20 20 |n4 .R |
00000dc0 20 63 6f 6c 6f 75 72 34 2c 20 63 6f 6c 6f 75 72 | colour4, colour|
00000dd0 34 2c 20 72 65 73 75 6c 74 2c 20 4c 53 52 20 23 |4, result, LSR #|
00000de0 31 36 0d 00 6f 31 20 20 20 20 20 20 20 20 20 41 |16..o1 A|
00000df0 44 44 20 20 20 20 77 6f 72 6c 64 78 79 2c 20 20 |DD worldxy, |
00000e00 20 77 6f 72 6c 64 78 79 2c 20 20 20 77 6f 72 6c | worldxy, worl|
00000e10 64 6c 69 0d 00 70 04 0d 00 71 33 20 20 20 20 20 |dli..p...q3 |
00000e20 20 20 20 20 80 20 20 20 20 72 65 73 75 6c 74 2c | . result,|
00000e30 20 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 78 | worldxy, worldx|
00000e40 79 2c 20 41 53 4c 20 23 31 36 0d 00 72 26 20 20 |y, ASL #16..r& |
00000e50 20 20 20 20 20 20 20 80 20 20 20 20 72 65 73 75 | . resu|
00000e60 6c 74 2c 20 72 65 73 75 6c 74 2c 20 6d 61 73 6b |lt, result, mask|
00000e70 0d 00 73 33 20 20 20 20 20 20 20 20 20 84 52 20 |..s3 .R |
00000e80 20 20 20 63 6f 6c 6f 75 72 34 2c 20 63 6f 6c 6f | colour4, colo|
00000e90 75 72 34 2c 20 72 65 73 75 6c 74 2c 20 4c 53 52 |ur4, result, LSR|
00000ea0 20 23 38 0d 00 74 31 20 20 20 20 20 20 20 20 20 | #8..t1 |
00000eb0 41 44 44 20 20 20 20 77 6f 72 6c 64 78 79 2c 20 |ADD worldxy, |
00000ec0 20 20 77 6f 72 6c 64 78 79 2c 20 20 20 77 6f 72 | worldxy, wor|
00000ed0 6c 64 6c 69 0d 00 75 04 0d 00 76 33 20 20 20 20 |ldli..u...v3 |
00000ee0 20 20 20 20 20 80 20 20 20 20 72 65 73 75 6c 74 | . result|
00000ef0 2c 20 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 |, worldxy, world|
00000f00 78 79 2c 20 41 53 4c 20 23 31 36 0d 00 77 26 20 |xy, ASL #16..w& |
00000f10 20 20 20 20 20 20 20 20 80 20 20 20 20 72 65 73 | . res|
00000f20 75 6c 74 2c 20 72 65 73 75 6c 74 2c 20 6d 61 73 |ult, result, mas|
00000f30 6b 0d 00 78 2b 20 20 20 20 20 20 20 20 20 84 52 |k..x+ .R|
00000f40 20 20 20 20 63 6f 6c 6f 75 72 34 2c 20 63 6f 6c | colour4, col|
00000f50 6f 75 72 34 2c 20 72 65 73 75 6c 74 0d 00 79 2d |our4, result..y-|
00000f60 20 20 20 20 20 20 20 20 20 41 44 44 20 20 20 20 | ADD |
00000f70 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 78 79 |worldxy, worldxy|
00000f80 2c 20 77 6f 72 6c 64 6c 69 0d 00 7a 0d 20 20 20 |, worldli..z. |
00000f90 20 20 20 20 20 20 0d 00 7b 30 20 20 20 20 20 20 | ..{0 |
00000fa0 20 20 20 53 54 4d 69 62 20 20 28 70 6f 69 6e 74 | STMib (point|
00000fb0 29 21 2c 20 7b 63 6f 6c 6f 75 72 20 2d 20 63 6f |)!, {colour - co|
00000fc0 6c 6f 75 72 34 7d 0d 00 7c 0c 20 20 20 20 20 20 |lour4}..|. |
00000fd0 20 20 0d 00 7d 24 20 20 20 20 20 20 20 20 20 43 | ..}$ C|
00000fe0 4d 50 20 20 20 20 70 6f 69 6e 74 2c 20 65 6e 64 |MP point, end|
00000ff0 6f 66 6c 69 6e 65 0d 00 7e 18 20 20 20 20 20 20 |ofline..~. |
00001000 20 20 20 42 6c 74 20 20 20 20 6c 6f 6f 70 0d 00 | Blt loop..|
00001010 7f 04 0d 00 80 3b 20 20 20 20 20 20 20 20 20 41 |.....; A|
00001020 44 44 20 20 20 20 77 6f 72 6c 64 6c 69 6e 65 73 |DD worldlines|
00001030 74 61 72 74 2c 20 77 6f 72 6c 64 6c 69 6e 65 73 |tart, worldlines|
00001040 74 61 72 74 2c 20 77 6f 72 6c 64 64 69 0d 00 81 |tart, worlddi...|
00001050 2b 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 |+ MOV |
00001060 20 77 6f 72 6c 64 78 79 2c 20 77 6f 72 6c 64 6c | worldxy, worldl|
00001070 69 6e 65 73 74 61 72 74 0d 00 82 30 20 20 20 20 |inestart...0 |
00001080 20 20 20 20 20 41 44 44 20 20 20 20 65 6e 64 6f | ADD endo|
00001090 66 6c 69 6e 65 2c 20 65 6e 64 6f 66 6c 69 6e 65 |fline, endofline|
000010a0 2c 20 23 68 70 69 78 25 0d 00 83 27 20 20 20 20 |, #hpix%...' |
000010b0 20 20 20 20 20 43 4d 50 20 20 20 20 65 6e 64 6f | CMP endo|
000010c0 66 6c 69 6e 65 2c 20 66 69 6e 69 73 68 65 64 0d |fline, finished.|
000010d0 00 84 18 20 20 20 20 20 20 20 20 20 42 6c 74 20 |... Blt |
000010e0 20 20 20 6c 6f 6f 70 0d 00 85 04 0d 00 86 1e 2e | loop.........|
000010f0 72 65 74 20 20 20 20 20 4c 44 4d 46 44 20 20 72 |ret LDMFD r|
00001100 31 33 21 2c 20 7b 70 63 7d 0d 00 87 04 0d 00 88 |13!, {pc}.......|
00001110 25 2e 73 73 61 20 20 20 20 20 45 51 55 44 20 20 |%.ssa EQUD |
00001120 a4 53 63 72 65 65 6e 41 64 64 72 65 73 73 20 2d |.ScreenAddress -|
00001130 20 34 0d 00 89 1f 2e 65 6f 6c 20 20 20 20 20 45 | 4.....eol E|
00001140 51 55 44 20 20 21 73 73 61 20 2b 20 68 70 69 78 |QUD !ssa + hpix|
00001150 25 0d 00 8a 27 2e 73 65 61 20 20 20 20 20 45 51 |%...'.sea EQ|
00001160 55 44 20 20 21 73 73 61 20 2b 20 68 70 69 78 25 |UD !ssa + hpix%|
00001170 20 2a 20 76 70 69 78 25 0d 00 8b 1c 2e 77 78 79 | * vpix%.....wxy|
00001180 20 20 20 20 20 45 51 55 44 20 20 26 30 30 30 30 | EQUD &0000|
00001190 30 30 30 30 0d 00 8c 1c 2e 77 6c 69 20 20 20 20 |0000.....wli |
000011a0 20 45 51 55 44 20 20 26 30 30 30 30 30 30 38 30 | EQUD &00000080|
000011b0 0d 00 8d 1c 2e 77 64 69 20 20 20 20 20 45 51 55 |.....wdi EQU|
000011c0 44 20 20 26 30 30 38 30 30 30 30 30 0d 00 8e 05 |D &00800000....|
000011d0 5d 0d 00 8f 05 ed 0d 00 90 04 0d 00 91 0c 54 20 |].............T |
000011e0 3d 20 32 5e 31 34 0d 00 92 05 f5 0d 00 93 18 20 |= 2^14......... |
000011f0 20 20 20 20 20 e3 20 53 25 20 3d 20 30 20 b8 20 | . S% = 0 . |
00001200 33 35 39 0d 00 94 19 20 20 20 20 20 20 20 20 20 |359.... |
00001210 20 c8 97 20 41 25 2c 42 25 2c 43 25 0d 00 95 10 | .. A%,B%,C%....|
00001220 20 20 20 20 20 20 20 20 20 20 c8 96 0d 00 96 15 | ......|
00001230 20 20 20 20 20 20 20 20 20 20 d6 20 62 65 67 69 | . begi|
00001240 6e 0d 00 97 35 20 20 20 20 20 20 20 20 20 20 21 |n...5 !|
00001250 77 6c 69 20 3d 20 a8 28 41 25 2a b5 b2 28 53 25 |wli = .(A%*..(S%|
00001260 29 29 20 2b 20 a8 28 41 25 2a 9b b2 28 53 25 29 |)) + .(A%*..(S%)|
00001270 29 2a 32 5e 31 36 0d 00 98 35 20 20 20 20 20 20 |)*2^16...5 |
00001280 20 20 20 20 21 77 64 69 20 3d 20 a8 28 41 25 2a | !wdi = .(A%*|
00001290 9b b2 28 53 25 29 29 20 2d 20 a8 28 41 25 2a b5 |..(S%)) - .(A%*.|
000012a0 b2 28 53 25 29 29 2a 32 5e 31 36 0d 00 99 46 20 |.(S%))*2^16...F |
000012b0 20 20 20 20 20 20 20 20 20 21 77 78 79 20 3d 20 | !wxy = |
000012c0 2d a8 28 54 2a b5 b2 28 53 25 29 2b 54 2a 9b b2 |-.(T*..(S%)+T*..|
000012d0 28 53 25 29 29 20 2d 20 a8 28 54 2a 9b b2 28 53 |(S%)) - .(T*..(S|
000012e0 25 29 2d 54 2a b5 b2 28 53 25 29 29 2a 32 5e 31 |%)-T*..(S%))*2^1|
000012f0 36 0d 00 9a 0b 20 20 20 20 20 20 ed 0d 00 9b 07 |6.... .....|
00001300 fd 20 a3 0d 00 9c 05 e0 0d 00 9d 04 0d 00 9e 14 |. ..............|
00001310 dd 20 a4 53 63 72 65 65 6e 41 64 64 72 65 73 73 |. .ScreenAddress|
00001320 0d 00 9f 11 20 20 20 20 de 20 42 6c 6b 25 20 31 |.... . Blk% 1|
00001330 36 0d 00 a0 15 20 20 20 20 42 6c 6b 25 21 30 30 |6.... Blk%!00|
00001340 20 3d 20 31 34 39 0d 00 a1 14 20 20 20 20 42 6c | = 149.... Bl|
00001350 6b 25 21 30 34 20 3d 20 2d 31 0d 00 a2 2e 20 20 |k%!04 = -1.... |
00001360 20 20 c8 99 20 22 4f 53 5f 52 65 61 64 56 64 75 | .. "OS_ReadVdu|
00001370 56 61 72 69 61 62 6c 65 73 22 2c 20 42 6c 6b 25 |Variables", Blk%|
00001380 2c 20 42 6c 6b 25 2b 38 0d 00 a3 0d 3d 20 42 6c |, Blk%+8....= Bl|
00001390 6b 25 21 30 38 0d 00 a4 04 0d 00 a5 04 0d 00 a6 |k%!08...........|
000013a0 04 0d 00 a7 04 0d ff |.......|
000013a7 
.