Home » Archimedes archive » Acorn User » AU 1998-06 A.adf » Regulars » StarInfo/Boham/Points
StarInfo/Boham/Points
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 1998-06 A.adf » Regulars |
| Filename: | StarInfo/Boham/Points |
| Read OK: | ✔ |
| File size: | 0986 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1ON ERROR: ON ERROR OFF: PRINT REPORT$;" at line ";ERL:END
2
3m%=31 :REM mode number, any 16 colour mode will do
4mouse%=TRUE :REM mouse control?
5p%=200 :REM number of points, more=slower, less=faster
6spd%=6 :REM each point moves dist/(2^spd%) closer each frame
7frames%=10000 :REM number of frames to draw before clearing automatically
8
9REM If you set mouse% to true then set frames% fairly high so you get
10REM time to move the mouse!!
11
12PROCset_mode(m%)
13REM change '15-n' to 'n' if you want to invert the colours
14FOR n=0 TO 15
15COLOUR 15-n,n*16,n*16,n*16
16NEXT n
17PROCass
18IF mouse% THEN
19MOUSE ON
20ENDIF
21REPEAT
22FOR n%=point_data% TO point_data%+4*2*p%-1 STEP 8
23n%!0 = RND(xpix%)<<20
24n%!4 = RND(ypix%)<<20
25NEXT n%
26CALL code%
27CLS
28UNTIL FALSE
29END
30:
31DEFPROCass
32DIM point_data% 4*2*p%
33DIM code% 1024,L% -1
34FOR pass=8 TO 10 STEP 2
35P%=code%
36[OPT pass
37ADR R0,scr1
38ADR R1,scr_base
39SWI &31
40LDR R12,scr_base
41LDR R9,f
42
43.main_loop
44LDR R10,points_table
45LDR R11,max_points
46SUB R11,R11,#1
47
48.lil_loop
49
50LDMIA R10,{R0,R1,R2,R3}
51
52SUB R2,R2,R0
53SUB R3,R3,R1
54ADD R0,R0,R2,ASR #spd%
55ADD R1,R1,R3,ASR #spd%
56
57STMIA R10!,{R0,R1}
58
59
60MOV R0,R0,LSR #20
61MOV R1,R1,LSR #20
62CMP R0,#0:BLT exit
63CMP R0,#xpix%:BGE exit
64CMP R1,#0:BLT exit
65CMP R1,#ypix%:BGE exit
66
67MOV R2,#xpix%/2
68MUL R2,R1,R2
69ADD R2,R2,R0,LSR #1
70
71LDRB R3,[R12,R2]
72
73TST R0,#1
74ANDEQ R4,R3,#%1111 : BICEQ R3,R3,#%00001111
75MOVNE R4,R3,LSR #4 : BICNE R3,R3,#%11110000
76
77ADD R4,R4,#1
78CMP R4,#15
79MOVGT R4,#15
80
81TST R0,#1
82ORREQ R3,R3,R4
83ORRNE R3,R3,R4,LSL #4
84
85STRB R3,[R12,R2]
86
87.exit
88SUBS R11,R11,#1
89BGT lil_loop
90
91SWI "OS_Mouse"
92CMP R2,#0
93MOVNE PC,R14
94
95]
96IF mouse% THEN
97[OPT pass
98MOV R0,R0,LSL #20-xeig%
99RSB R1,R1,#ypix%*yeig%*2
100MOV R1,R1,LSL #20-yeig%
101STMIA R10,{R0,R1}
102]
103ENDIF
104[OPT pass
105
106SUBS R9,R9,#1
107MOVLT PC,R14
108
109SWI "OS_ReadEscapeState"
110BCC main_loop
111MOV PC,R14
112
113
114.points_table EQUD point_data%
115.max_points EQUD p%
116.scr1 EQUD 148:EQUD 150:EQUD-1
117.scr_base EQUD 0
118.scr_size EQUD 0
119.f EQUD frames%
120]
121NEXT pass
122ENDPROC
123:
124DEFPROCset_mode(m%)
125SYS &35,m%,11 TO ,,xpix%:xpix%=xpix%+1
126SYS &35,m%,12 TO ,,ypix%:ypix%=ypix%+1
127SYS &35,m%,4 TO ,,xeig%
128SYS &35,m%,5 TO ,,yeig%
129SYS &35,m%,3 TO ,,c%
130MODE m%:OFF
131IF c%<>15 THEN ERROR 0,"Not a 16-colour mode!"
132ENDPROC
$� �: � � �: � �$;" at line ";�:�
;m%=31 :� mode number, any 16 colour mode will do
mouse%=� :� mouse control?
>p%=200 :� number of points, more=slower, less=faster
Dspd%=6 :� each point moves dist/(2^spd%) closer each frame
Kframes%=10000 :� number of frames to draw before clearing automatically
G� If you set mouse% to true then set frames% fairly high so you get
� time to move the mouse!!
�set_mode(m%)
<� change '15-n' to 'n' if you want to invert the colours
� n=0 � 15
� 15-n,n*16,n*16,n*16
� n
�ass
� mouse% �
ȗ �
�
�
/� n%=point_data% � point_data%+4*2*p%-1 � 8
n%!0 = �(xpix%)<<20
n%!4 = �(ypix%)<<20
� n%
� code%
�
� �
�
:
��ass
� point_data% 4*2*p%
!� code% 1024,L% -1
"� pass=8 � 10 � 2
# P%=code%
$
[OPT pass
%ADR R0,scr1
&ADR R1,scr_base
' SWI &31
(LDR R12,scr_base
) LDR R9,f
*
+.main_loop
,LDR R10,points_table
-LDR R11,max_points
.SUB R11,R11,#1
/
0
.lil_loop
1
2LDMIA R10,{R0,R1,R2,R3}
3
4SUB R2,R2,R0
5SUB R3,R3,R1
6ADD R0,R0,R2,ASR #spd%
7ADD R1,R1,R3,ASR #spd%
8
9STMIA R10!,{R0,R1}
:
;
<MOV R0,R0,LSR #20
=MOV R1,R1,LSR #20
>CMP R0,#0:BLT exit
?CMP R0,#xpix%:BGE exit
@CMP R1,#0:BLT exit
ACMP R1,#ypix%:BGE exit
B
CMOV R2,#xpix%/2
DMUL R2,R1,R2
EADD R2,R2,R0,LSR #1
F
GLDRB R3,[R12,R2]
H
I
TST R0,#1
J-�EQ R4,R3,#%1111 : BICEQ R3,R3,#%00001111
K/MOVNE R4,R3,LSR #4 : BICNE R3,R3,#%11110000
L
MADD R4,R4,#1
NCMP R4,#15
OMOVGT R4,#15
P
Q
TST R0,#1
R�REQ R3,R3,R4
S�RNE R3,R3,R4,LSL #4
T
USTRB R3,[R12,R2]
V
W .exit
XSUBS R11,R11,#1
YBGT lil_loop
Z
[SWI "OS_Mouse"
\
CMP R2,#0
]MOVNE PC,R14
^
_]
`� mouse% �
a
[OPT pass
bMOV R0,R0,LSL #20-xeig%
c RSB R1,R1,#ypix%*yeig%*2
dMOV R1,R1,LSL #20-yeig%
eSTMIA R10,{R0,R1}
f]
g�
h
[OPT pass
i
jSUBS R9,R9,#1
kMOVLT PC,R14
l
m SWI "OS_ReadEscapeState"
nBCC main_loop
oMOV PC,R14
p
q
r".points_table EQUD point_data%
s.max_points EQUD p%
t*.scr1 EQUD 148:EQUD 150:EQUD-1
u.scr_base EQUD 0
v.scr_size EQUD 0
w .f EQUD frames%
x]
y
� pass
z�
{:
|��set_mode(m%)
}(ș &35,m%,11 � ,,xpix%:xpix%=xpix%+1
~(ș &35,m%,12 � ,,ypix%:ypix%=ypix%+1
ș &35,m%,4 � ,,xeig%
�ș &35,m%,5 � ,,yeig%
�ș &35,m%,3 � ,,c%
�
� m%:�
�*� c%<>15 � � 0,"Not a 16-colour mode!"
��
� 00000000 0d 00 01 24 ee 20 85 3a 20 ee 20 85 20 87 3a 20 |...$. .: . . .: |
00000010 f1 20 f6 24 3b 22 20 61 74 20 6c 69 6e 65 20 22 |. .$;" at line "|
00000020 3b 9e 3a e0 0d 00 02 04 0d 00 03 3b 6d 25 3d 33 |;.:........;m%=3|
00000030 31 20 20 20 20 20 20 20 20 3a f4 20 6d 6f 64 65 |1 :. mode|
00000040 20 6e 75 6d 62 65 72 2c 20 61 6e 79 20 31 36 20 | number, any 16 |
00000050 63 6f 6c 6f 75 72 20 6d 6f 64 65 20 77 69 6c 6c |colour mode will|
00000060 20 64 6f 0d 00 04 1f 6d 6f 75 73 65 25 3d b9 20 | do....mouse%=. |
00000070 20 3a f4 20 6d 6f 75 73 65 20 63 6f 6e 74 72 6f | :. mouse contro|
00000080 6c 3f 0d 00 05 3e 70 25 3d 32 30 30 20 20 20 20 |l?...>p%=200 |
00000090 20 20 20 3a f4 20 6e 75 6d 62 65 72 20 6f 66 20 | :. number of |
000000a0 70 6f 69 6e 74 73 2c 20 6d 6f 72 65 3d 73 6c 6f |points, more=slo|
000000b0 77 65 72 2c 20 6c 65 73 73 3d 66 61 73 74 65 72 |wer, less=faster|
000000c0 0d 00 06 44 73 70 64 25 3d 36 20 20 20 20 20 20 |...Dspd%=6 |
000000d0 20 3a f4 20 65 61 63 68 20 70 6f 69 6e 74 20 6d | :. each point m|
000000e0 6f 76 65 73 20 64 69 73 74 2f 28 32 5e 73 70 64 |oves dist/(2^spd|
000000f0 25 29 20 63 6c 6f 73 65 72 20 65 61 63 68 20 66 |%) closer each f|
00000100 72 61 6d 65 0d 00 07 4b 66 72 61 6d 65 73 25 3d |rame...Kframes%=|
00000110 31 30 30 30 30 20 3a f4 20 6e 75 6d 62 65 72 20 |10000 :. number |
00000120 6f 66 20 66 72 61 6d 65 73 20 74 6f 20 64 72 61 |of frames to dra|
00000130 77 20 62 65 66 6f 72 65 20 63 6c 65 61 72 69 6e |w before clearin|
00000140 67 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0d |g automatically.|
00000150 00 08 04 0d 00 09 47 f4 20 49 66 20 79 6f 75 20 |......G. If you |
00000160 73 65 74 20 6d 6f 75 73 65 25 20 74 6f 20 74 72 |set mouse% to tr|
00000170 75 65 20 74 68 65 6e 20 73 65 74 20 66 72 61 6d |ue then set fram|
00000180 65 73 25 20 66 61 69 72 6c 79 20 68 69 67 68 20 |es% fairly high |
00000190 73 6f 20 79 6f 75 20 67 65 74 0d 00 0a 1e f4 20 |so you get..... |
000001a0 74 69 6d 65 20 74 6f 20 6d 6f 76 65 20 74 68 65 |time to move the|
000001b0 20 6d 6f 75 73 65 21 21 0d 00 0b 04 0d 00 0c 11 | mouse!!........|
000001c0 f2 73 65 74 5f 6d 6f 64 65 28 6d 25 29 0d 00 0d |.set_mode(m%)...|
000001d0 3c f4 20 63 68 61 6e 67 65 20 27 31 35 2d 6e 27 |<. change '15-n'|
000001e0 20 74 6f 20 27 6e 27 20 69 66 20 79 6f 75 20 77 | to 'n' if you w|
000001f0 61 6e 74 20 74 6f 20 69 6e 76 65 72 74 20 74 68 |ant to invert th|
00000200 65 20 63 6f 6c 6f 75 72 73 0d 00 0e 0e e3 20 6e |e colours..... n|
00000210 3d 30 20 b8 20 31 35 0d 00 0f 19 fb 20 31 35 2d |=0 . 15..... 15-|
00000220 6e 2c 6e 2a 31 36 2c 6e 2a 31 36 2c 6e 2a 31 36 |n,n*16,n*16,n*16|
00000230 0d 00 10 07 ed 20 6e 0d 00 11 08 f2 61 73 73 0d |..... n.....ass.|
00000240 00 12 0e e7 20 6d 6f 75 73 65 25 20 8c 0d 00 13 |.... mouse% ....|
00000250 08 c8 97 20 ee 0d 00 14 05 cd 0d 00 15 05 f5 0d |... ............|
00000260 00 16 2f e3 20 6e 25 3d 70 6f 69 6e 74 5f 64 61 |../. n%=point_da|
00000270 74 61 25 20 b8 20 70 6f 69 6e 74 5f 64 61 74 61 |ta% . point_data|
00000280 25 2b 34 2a 32 2a 70 25 2d 31 20 88 20 38 0d 00 |%+4*2*p%-1 . 8..|
00000290 17 17 6e 25 21 30 20 3d 20 b3 28 78 70 69 78 25 |..n%!0 = .(xpix%|
000002a0 29 3c 3c 32 30 0d 00 18 17 6e 25 21 34 20 3d 20 |)<<20....n%!4 = |
000002b0 b3 28 79 70 69 78 25 29 3c 3c 32 30 0d 00 19 08 |.(ypix%)<<20....|
000002c0 ed 20 6e 25 0d 00 1a 0b d6 20 63 6f 64 65 25 0d |. n%..... code%.|
000002d0 00 1b 05 db 0d 00 1c 07 fd 20 a3 0d 00 1d 05 e0 |......... ......|
000002e0 0d 00 1e 05 3a 0d 00 1f 09 dd f2 61 73 73 0d 00 |....:......ass..|
000002f0 20 18 de 20 70 6f 69 6e 74 5f 64 61 74 61 25 20 | .. point_data% |
00000300 34 2a 32 2a 70 25 0d 00 21 16 de 20 63 6f 64 65 |4*2*p%..!.. code|
00000310 25 20 31 30 32 34 2c 4c 25 20 2d 31 0d 00 22 15 |% 1024,L% -1..".|
00000320 e3 20 70 61 73 73 3d 38 20 b8 20 31 30 20 88 20 |. pass=8 . 10 . |
00000330 32 0d 00 23 0c 50 25 3d 63 6f 64 65 25 0d 00 24 |2..#.P%=code%..$|
00000340 0d 5b 4f 50 54 20 70 61 73 73 0d 00 25 0f 41 44 |.[OPT pass..%.AD|
00000350 52 20 52 30 2c 73 63 72 31 0d 00 26 13 41 44 52 |R R0,scr1..&.ADR|
00000360 20 52 31 2c 73 63 72 5f 62 61 73 65 0d 00 27 0b | R1,scr_base..'.|
00000370 53 57 49 20 26 33 31 0d 00 28 14 4c 44 52 20 52 |SWI &31..(.LDR R|
00000380 31 32 2c 73 63 72 5f 62 61 73 65 0d 00 29 0c 4c |12,scr_base..).L|
00000390 44 52 20 52 39 2c 66 0d 00 2a 04 0d 00 2b 0e 2e |DR R9,f..*...+..|
000003a0 6d 61 69 6e 5f 6c 6f 6f 70 0d 00 2c 18 4c 44 52 |main_loop..,.LDR|
000003b0 20 52 31 30 2c 70 6f 69 6e 74 73 5f 74 61 62 6c | R10,points_tabl|
000003c0 65 0d 00 2d 16 4c 44 52 20 52 31 31 2c 6d 61 78 |e..-.LDR R11,max|
000003d0 5f 70 6f 69 6e 74 73 0d 00 2e 12 53 55 42 20 52 |_points....SUB R|
000003e0 31 31 2c 52 31 31 2c 23 31 0d 00 2f 04 0d 00 30 |11,R11,#1../...0|
000003f0 0d 2e 6c 69 6c 5f 6c 6f 6f 70 0d 00 31 04 0d 00 |..lil_loop..1...|
00000400 32 1b 4c 44 4d 49 41 20 52 31 30 2c 7b 52 30 2c |2.LDMIA R10,{R0,|
00000410 52 31 2c 52 32 2c 52 33 7d 0d 00 33 04 0d 00 34 |R1,R2,R3}..3...4|
00000420 10 53 55 42 20 52 32 2c 52 32 2c 52 30 0d 00 35 |.SUB R2,R2,R0..5|
00000430 10 53 55 42 20 52 33 2c 52 33 2c 52 31 0d 00 36 |.SUB R3,R3,R1..6|
00000440 1a 41 44 44 20 52 30 2c 52 30 2c 52 32 2c 41 53 |.ADD R0,R0,R2,AS|
00000450 52 20 23 73 70 64 25 0d 00 37 1a 41 44 44 20 52 |R #spd%..7.ADD R|
00000460 31 2c 52 31 2c 52 33 2c 41 53 52 20 23 73 70 64 |1,R1,R3,ASR #spd|
00000470 25 0d 00 38 04 0d 00 39 16 53 54 4d 49 41 20 52 |%..8...9.STMIA R|
00000480 31 30 21 2c 7b 52 30 2c 52 31 7d 0d 00 3a 04 0d |10!,{R0,R1}..:..|
00000490 00 3b 04 0d 00 3c 15 4d 4f 56 20 52 30 2c 52 30 |.;...<.MOV R0,R0|
000004a0 2c 4c 53 52 20 23 32 30 0d 00 3d 15 4d 4f 56 20 |,LSR #20..=.MOV |
000004b0 52 31 2c 52 31 2c 4c 53 52 20 23 32 30 0d 00 3e |R1,R1,LSR #20..>|
000004c0 16 43 4d 50 20 52 30 2c 23 30 3a 42 4c 54 20 65 |.CMP R0,#0:BLT e|
000004d0 78 69 74 0d 00 3f 1a 43 4d 50 20 52 30 2c 23 78 |xit..?.CMP R0,#x|
000004e0 70 69 78 25 3a 42 47 45 20 65 78 69 74 0d 00 40 |pix%:BGE exit..@|
000004f0 16 43 4d 50 20 52 31 2c 23 30 3a 42 4c 54 20 65 |.CMP R1,#0:BLT e|
00000500 78 69 74 0d 00 41 1a 43 4d 50 20 52 31 2c 23 79 |xit..A.CMP R1,#y|
00000510 70 69 78 25 3a 42 47 45 20 65 78 69 74 0d 00 42 |pix%:BGE exit..B|
00000520 04 0d 00 43 13 4d 4f 56 20 52 32 2c 23 78 70 69 |...C.MOV R2,#xpi|
00000530 78 25 2f 32 0d 00 44 10 4d 55 4c 20 52 32 2c 52 |x%/2..D.MUL R2,R|
00000540 31 2c 52 32 0d 00 45 17 41 44 44 20 52 32 2c 52 |1,R2..E.ADD R2,R|
00000550 32 2c 52 30 2c 4c 53 52 20 23 31 0d 00 46 04 0d |2,R0,LSR #1..F..|
00000560 00 47 14 4c 44 52 42 20 52 33 2c 5b 52 31 32 2c |.G.LDRB R3,[R12,|
00000570 52 32 5d 0d 00 48 04 0d 00 49 0d 54 53 54 20 52 |R2]..H...I.TST R|
00000580 30 2c 23 31 0d 00 4a 2d 80 45 51 20 52 34 2c 52 |0,#1..J-.EQ R4,R|
00000590 33 2c 23 25 31 31 31 31 20 3a 20 42 49 43 45 51 |3,#%1111 : BICEQ|
000005a0 20 52 33 2c 52 33 2c 23 25 30 30 30 30 31 31 31 | R3,R3,#%0000111|
000005b0 31 0d 00 4b 2f 4d 4f 56 4e 45 20 52 34 2c 52 33 |1..K/MOVNE R4,R3|
000005c0 2c 4c 53 52 20 23 34 20 3a 20 42 49 43 4e 45 20 |,LSR #4 : BICNE |
000005d0 52 33 2c 52 33 2c 23 25 31 31 31 31 30 30 30 30 |R3,R3,#%11110000|
000005e0 0d 00 4c 04 0d 00 4d 10 41 44 44 20 52 34 2c 52 |..L...M.ADD R4,R|
000005f0 34 2c 23 31 0d 00 4e 0e 43 4d 50 20 52 34 2c 23 |4,#1..N.CMP R4,#|
00000600 31 35 0d 00 4f 10 4d 4f 56 47 54 20 52 34 2c 23 |15..O.MOVGT R4,#|
00000610 31 35 0d 00 50 04 0d 00 51 0d 54 53 54 20 52 30 |15..P...Q.TST R0|
00000620 2c 23 31 0d 00 52 11 84 52 45 51 20 52 33 2c 52 |,#1..R..REQ R3,R|
00000630 33 2c 52 34 0d 00 53 18 84 52 4e 45 20 52 33 2c |3,R4..S..RNE R3,|
00000640 52 33 2c 52 34 2c 4c 53 4c 20 23 34 0d 00 54 04 |R3,R4,LSL #4..T.|
00000650 0d 00 55 14 53 54 52 42 20 52 33 2c 5b 52 31 32 |..U.STRB R3,[R12|
00000660 2c 52 32 5d 0d 00 56 04 0d 00 57 09 2e 65 78 69 |,R2]..V...W..exi|
00000670 74 0d 00 58 13 53 55 42 53 20 52 31 31 2c 52 31 |t..X.SUBS R11,R1|
00000680 31 2c 23 31 0d 00 59 10 42 47 54 20 6c 69 6c 5f |1,#1..Y.BGT lil_|
00000690 6c 6f 6f 70 0d 00 5a 04 0d 00 5b 12 53 57 49 20 |loop..Z...[.SWI |
000006a0 22 4f 53 5f 4d 6f 75 73 65 22 0d 00 5c 0d 43 4d |"OS_Mouse"..\.CM|
000006b0 50 20 52 32 2c 23 30 0d 00 5d 10 4d 4f 56 4e 45 |P R2,#0..].MOVNE|
000006c0 20 50 43 2c 52 31 34 0d 00 5e 04 0d 00 5f 05 5d | PC,R14..^..._.]|
000006d0 0d 00 60 0e e7 20 6d 6f 75 73 65 25 20 8c 0d 00 |..`.. mouse% ...|
000006e0 61 0d 5b 4f 50 54 20 70 61 73 73 0d 00 62 1b 4d |a.[OPT pass..b.M|
000006f0 4f 56 20 52 30 2c 52 30 2c 4c 53 4c 20 23 32 30 |OV R0,R0,LSL #20|
00000700 2d 78 65 69 67 25 0d 00 63 1c 52 53 42 20 52 31 |-xeig%..c.RSB R1|
00000710 2c 52 31 2c 23 79 70 69 78 25 2a 79 65 69 67 25 |,R1,#ypix%*yeig%|
00000720 2a 32 0d 00 64 1b 4d 4f 56 20 52 31 2c 52 31 2c |*2..d.MOV R1,R1,|
00000730 4c 53 4c 20 23 32 30 2d 79 65 69 67 25 0d 00 65 |LSL #20-yeig%..e|
00000740 15 53 54 4d 49 41 20 52 31 30 2c 7b 52 30 2c 52 |.STMIA R10,{R0,R|
00000750 31 7d 0d 00 66 05 5d 0d 00 67 05 cd 0d 00 68 0d |1}..f.]..g....h.|
00000760 5b 4f 50 54 20 70 61 73 73 0d 00 69 04 0d 00 6a |[OPT pass..i...j|
00000770 11 53 55 42 53 20 52 39 2c 52 39 2c 23 31 0d 00 |.SUBS R9,R9,#1..|
00000780 6b 10 4d 4f 56 4c 54 20 50 43 2c 52 31 34 0d 00 |k.MOVLT PC,R14..|
00000790 6c 04 0d 00 6d 1c 53 57 49 20 22 4f 53 5f 52 65 |l...m.SWI "OS_Re|
000007a0 61 64 45 73 63 61 70 65 53 74 61 74 65 22 0d 00 |adEscapeState"..|
000007b0 6e 11 42 43 43 20 6d 61 69 6e 5f 6c 6f 6f 70 0d |n.BCC main_loop.|
000007c0 00 6f 0e 4d 4f 56 20 50 43 2c 52 31 34 0d 00 70 |.o.MOV PC,R14..p|
000007d0 04 0d 00 71 04 0d 00 72 22 2e 70 6f 69 6e 74 73 |...q...r".points|
000007e0 5f 74 61 62 6c 65 20 45 51 55 44 20 70 6f 69 6e |_table EQUD poin|
000007f0 74 5f 64 61 74 61 25 0d 00 73 19 2e 6d 61 78 5f |t_data%..s..max_|
00000800 70 6f 69 6e 74 73 20 20 20 45 51 55 44 20 70 25 |points EQUD p%|
00000810 0d 00 74 2a 2e 73 63 72 31 20 20 20 20 20 20 20 |..t*.scr1 |
00000820 20 20 45 51 55 44 20 31 34 38 3a 45 51 55 44 20 | EQUD 148:EQUD |
00000830 31 35 30 3a 45 51 55 44 2d 31 0d 00 75 18 2e 73 |150:EQUD-1..u..s|
00000840 63 72 5f 62 61 73 65 20 20 20 20 20 45 51 55 44 |cr_base EQUD|
00000850 20 30 0d 00 76 18 2e 73 63 72 5f 73 69 7a 65 20 | 0..v..scr_size |
00000860 20 20 20 20 45 51 55 44 20 30 0d 00 77 1e 2e 66 | EQUD 0..w..f|
00000870 20 20 20 20 20 20 20 20 20 20 20 20 45 51 55 44 | EQUD|
00000880 20 66 72 61 6d 65 73 25 0d 00 78 05 5d 0d 00 79 | frames%..x.]..y|
00000890 0a ed 20 70 61 73 73 0d 00 7a 05 e1 0d 00 7b 05 |.. pass..z....{.|
000008a0 3a 0d 00 7c 12 dd f2 73 65 74 5f 6d 6f 64 65 28 |:..|...set_mode(|
000008b0 6d 25 29 0d 00 7d 28 c8 99 20 26 33 35 2c 6d 25 |m%)..}(.. &35,m%|
000008c0 2c 31 31 20 b8 20 2c 2c 78 70 69 78 25 3a 78 70 |,11 . ,,xpix%:xp|
000008d0 69 78 25 3d 78 70 69 78 25 2b 31 0d 00 7e 28 c8 |ix%=xpix%+1..~(.|
000008e0 99 20 26 33 35 2c 6d 25 2c 31 32 20 b8 20 2c 2c |. &35,m%,12 . ,,|
000008f0 79 70 69 78 25 3a 79 70 69 78 25 3d 79 70 69 78 |ypix%:ypix%=ypix|
00000900 25 2b 31 0d 00 7f 19 c8 99 20 26 33 35 2c 6d 25 |%+1...... &35,m%|
00000910 2c 34 20 b8 20 2c 2c 78 65 69 67 25 0d 00 80 19 |,4 . ,,xeig%....|
00000920 c8 99 20 26 33 35 2c 6d 25 2c 35 20 b8 20 2c 2c |.. &35,m%,5 . ,,|
00000930 79 65 69 67 25 0d 00 81 16 c8 99 20 26 33 35 2c |yeig%...... &35,|
00000940 6d 25 2c 33 20 b8 20 2c 2c 63 25 0d 00 82 0a eb |m%,3 . ,,c%.....|
00000950 20 6d 25 3a 87 0d 00 83 2a e7 20 63 25 3c 3e 31 | m%:....*. c%<>1|
00000960 35 20 8c 20 85 20 30 2c 22 4e 6f 74 20 61 20 31 |5 . . 0,"Not a 1|
00000970 36 2d 63 6f 6c 6f 75 72 20 6d 6f 64 65 21 22 0d |6-colour mode!".|
00000980 00 84 05 e1 0d ff |......|
00000986 
.