� > FinalEx
� 3D example, using 3DLines
� by Paul Mason
� � Paul Mason, 1994
2
<E*RMEnsure 3DLines 1.0 Error You must have module '3DLines' loaded
F
Pș "XOS_CLI","Cache Off"
Z� 12
d� 8
nȑ 640,512
x�
�
�r1%=100:g1%=0:b1%=0
�r2%=0:g2%=0:b2%=128
��getcols
�� 1,r1%,g1%,b1%
�� 2,r2%,g2%,b2%
�� 3,r1%�r2%,g1%�g2%,b1%�b2%
�
�%� code% 8192,L%-1,data% 4*4*4*360
�� ang%=0 � 359
� �set(ang%,0,0,0,0)
�1 �set(ang%,1,(��ang%)*320,-200,-(��ang%)*320)
�= �set(ang%,2,(��(ang%+120))*320,-200,-(��(ang%+120))*320)

= �set(ang%,3,(��(ang%+240))*320,-200,-(��(ang%+240))*320)

�

�star_init

"

,� opt%=8 � 10 � 2

6	  b=0

@  P%=code%

J  [OPT opt%

T  ; > R0 = data table

^  ;   R1 = degree

h  ; R8 = distance

r  ; R9 = degree of turn

|  ; R10 = dist inc

�  MOV R8,#320

�  MOV R9,#360

�  SUB R9,R9,#3

�  MOV R10,#100

�  MOV R12,R0

�  .loop

�  SWI "XOS_ReadEscapeState"

�  MOVCS PC,R14

�  MOV R0,#19

�  SWI "XOS_Byte"

�  MOV R0,#112

�  � R1,R9,#1

�  ADD R1,R1,#1
  SWI "XOS_Byte"
  MOV R0,#113
  � R1,R9,#1
&  RSB R1,R1,#2
0  SWI "XOS_Byte"
:  SWI 256+12
D  ADD R4,R12,R9,LSL#6
N  ADD R5,R4,#16
X  ADD R6,R5,#16
b  ADD R7,R6,#16
l  �ld(4)
v  MOV R0,#4
�  SWI "3D_Plot"
�  �ld(5)
�  MOV R0,#5
�  SWI "3D_Plot"
�  �ld(6)
�  SWI "3D_Plot"
�  �ld(4)
�  SWI "3D_Plot"
�  �ld(7)
�  SWI "3D_Plot"
�  �ld(5)
�  SWI "3D_Plot"
�  �ld(6)
  MOV R0,#4
  SWI "3D_Plot"
  �ld(7)
   MOV R0,#5
*  SWI "3D_Plot"
4  ADD R8,R8,R10
>  CMP R8,#320
H  MOVLT R10,#100
R  LDR R0,t
\  CMP R8,R0
f  MVNGT R10,#100
p  SUBS R9,R9,#3
z  MOVLT R9,#360
�  SUBLT R9,R9,#3
�  STMFD R13!,{R14}
�
  BL call
�  LDMFD R13!,{R14}
�  B loop
�  MOV PC,R14
�  .t
�  DCD 6000
�  ]
��
�� b>0 �"BreakSet "+�~b
�A%=data%
�� B%=0 � 100
� code%
	� � �
�
$�
.
8ݤld(reg%)
B [OPT opt%
L LDMIA reg%,{R1,R2,R3}
V ADD R3,R3,R8
` ]
j=0
t
~��set(a%,c%,x%,y%,z%)
� data%!(a%*64+c%*16+0)=x%
� data%!(a%*64+c%*16+4)=y%
� data%!(a%*64+c%*16+8)=z%
�9 � IF c%>0 LINE data%!(a%*64+0),data%!(a%*64+4),x%,y%
��
�
���star_init
�maxs%=1000
�� mcode% 256+maxs%*320
�ș6,112,1:ș6,113,2
�(!mcode%=149:mcode%!4=148:mcode%!8=-1
�ș&31,mcode%,mcode%

ș6,113,1

&screen0%=!mcode%:screen1%=mcode%!4
�ass
� Ds%=0 � 999
(#x%=�(640)-1:y%=�(254):s%=�(6*8)
2#x2%=(x%-(-s%)+640)�640:s%=48-s%
<
Ȏ �(5) �
F.� 1,3 : �s(x%,y%,1,s%/8):�s(x2%,y%,2,s%/8)
P0� 2,4 : �s2(x%,y%,1,s%/8):�s2(x2%,y%,2,s%/8)
Z.� 5 : �s3(x%,y%,1,s%/8):�s3(x2%,y%,2,s%/8)
d�
n�
x'xpos%=�(640)-1:ypos%=(�(256)-1)*160
�spd%=1:col%=3
��
��
�Ȗ:�
�C%=screen0%:� call
�� 0
�
�	��ass
� � opt%=0 � 2 � 2
� P%=mcode%
�6 col%=3:xpos%=4:ypos%=5:spd%=6:ad%=7:rol%=8:old%=9
� [OPT opt%
� .scrn1
 DCD screen0%
 .scrn2
 DCD screen1%
" .stars
,
 DCD 0
6
 .call
@ LDR R2,scrn1
J LDR R3,scrn2
T STR R2,scrn2
^ STR R3,scrn1
h STMFD R13!,{R0-R12}
r ADR R0,star_data
| LDR R1,stars
� .lp
�& LDMIA R0!,{col%,xpos%,ypos%,spd%}
� ADD ad%,ypos%,xpos%,LSR#2
� � rol%,xpos%,#3
� MOV rol%,rol%,LSL#1
� LDRB old%,[R2,ad%]
� MOV R12,#3
�  ;BIC old%,old%,R12,LSL rol%
� �R old%,old%,col%,LSL rol%
� STRB old%,[R2,ad%]
� SUBS xpos%,xpos%,spd%
� ADDLT xpos%,xpos%,#640
� STR xpos%,[R0,#-12]
 SUBS R1,R1,#1
 BGT lp
 LDMFD R13!,{R0-R12}
& MOVS PC,R14
0 .star_data
: ]:�
D�
N
X��s(x%,y%,col%,spd%)
b � n%:n%=!stars
l � spd%<1 spd%=1
v x%=(x%+640)�640
� n%=n%*16:n%+=star_data
�- n%!0=col%:n%!4=x%:n%!8=y%*160:n%!12=spd%
� !stars=!stars+1
��
�
���s2(x%,y%,col%,spd%)
�. �s(x%,y%,col%,spd%):�s(x%+1,y%,col%,spd%)
��
�
���s3(x%,y%,col%,spd%)
�. �s(x%,y%,col%,spd%):�s(x%+1,y%,col%,spd%)
�0 �s(x%-1,y%,col%,spd%):�s(x%,y%+1,col%,spd%)
� �s(x%,y%-1,col%,spd%)
�


��getcols
  � �
* � � � �
4 � colcode% 12
>' ș&23,"3DEye$Left",colcode%,12,0,0
H r1%=16*�cc(0)+�cc(1)
R g1%=16*�cc(2)+�cc(3)
\ b1%=16*�cc(4)+�cc(5)
f'ș&23,"3DEye$Right",colcode%,12,0,0
p r2%=16*�cc(0)+�cc(1)
z g2%=16*�cc(2)+�cc(3)
� b2%=16*�cc(4)+�cc(5)
��
�
�ݤcc(pos%)
�* � colcode%?pos%>=65 =colcode%?pos%-55
�=colcode%?pos%-48
�

00000000  0d 00 0a 0f f4 20 3e 20  46 69 6e 61 6c 45 78 0d  |..... > FinalEx.|
00000010  00 14 1f f4 20 33 44 20  65 78 61 6d 70 6c 65 2c  |.... 3D example,|
00000020  20 75 73 69 6e 67 20 33  44 4c 69 6e 65 73 0d 00  | using 3DLines..|
00000030  1e 13 f4 20 62 79 20 50  61 75 6c 20 4d 61 73 6f  |... by Paul Maso|
00000040  6e 0d 00 1f 18 f4 20 a9  20 50 61 75 6c 20 4d 61  |n..... . Paul Ma|
00000050  73 6f 6e 2c 20 31 39 39  34 0d 00 32 04 0d 00 3c  |son, 1994..2...<|
00000060  45 2a 52 4d 45 6e 73 75  72 65 20 33 44 4c 69 6e  |E*RMEnsure 3DLin|
00000070  65 73 20 31 2e 30 20 45  72 72 6f 72 20 59 6f 75  |es 1.0 Error You|
00000080  20 6d 75 73 74 20 68 61  76 65 20 6d 6f 64 75 6c  | must have modul|
00000090  65 20 27 33 44 4c 69 6e  65 73 27 20 6c 6f 61 64  |e '3DLines' load|
000000a0  65 64 0d 00 46 04 0d 00  50 1c c8 99 20 22 58 4f  |ed..F...P... "XO|
000000b0  53 5f 43 4c 49 22 2c 22  43 61 63 68 65 20 4f 66  |S_CLI","Cache Of|
000000c0  66 22 0d 00 5a 08 eb 20  31 32 0d 00 64 07 eb 20  |f"..Z.. 12..d.. |
000000d0  38 0d 00 6e 0e c8 91 20  36 34 30 2c 35 31 32 0d  |8..n... 640,512.|
000000e0  00 78 05 87 0d 00 82 04  0d 00 8c 17 72 31 25 3d  |.x..........r1%=|
000000f0  31 30 30 3a 67 31 25 3d  30 3a 62 31 25 3d 30 0d  |100:g1%=0:b1%=0.|
00000100  00 96 17 72 32 25 3d 30  3a 67 32 25 3d 30 3a 62  |...r2%=0:g2%=0:b|
00000110  32 25 3d 31 32 38 0d 00  a0 0c f2 67 65 74 63 6f  |2%=128.....getco|
00000120  6c 73 0d 00 aa 13 fb 20  31 2c 72 31 25 2c 67 31  |ls..... 1,r1%,g1|
00000130  25 2c 62 31 25 0d 00 b4  13 fb 20 32 2c 72 32 25  |%,b1%..... 2,r2%|
00000140  2c 67 32 25 2c 62 32 25  0d 00 be 1f fb 20 33 2c  |,g2%,b2%..... 3,|
00000150  72 31 25 84 72 32 25 2c  67 31 25 84 67 32 25 2c  |r1%.r2%,g1%.g2%,|
00000160  62 31 25 84 62 32 25 0d  00 c8 04 0d 00 d2 25 de  |b1%.b2%.......%.|
00000170  20 63 6f 64 65 25 20 38  31 39 32 2c 4c 25 2d 31  | code% 8192,L%-1|
00000180  2c 64 61 74 61 25 20 34  2a 34 2a 34 2a 33 36 30  |,data% 4*4*4*360|
00000190  0d 00 dc 12 e3 20 61 6e  67 25 3d 30 20 b8 20 33  |..... ang%=0 . 3|
000001a0  35 39 0d 00 e6 17 20 f2  73 65 74 28 61 6e 67 25  |59.... .set(ang%|
000001b0  2c 30 2c 30 2c 30 2c 30  29 0d 00 f0 31 20 f2 73  |,0,0,0,0)...1 .s|
000001c0  65 74 28 61 6e 67 25 2c  31 2c 28 b5 b2 61 6e 67  |et(ang%,1,(..ang|
000001d0  25 29 2a 33 32 30 2c 2d  32 30 30 2c 2d 28 9b b2  |%)*320,-200,-(..|
000001e0  61 6e 67 25 29 2a 33 32  30 29 0d 00 fa 3d 20 f2  |ang%)*320)...= .|
000001f0  73 65 74 28 61 6e 67 25  2c 32 2c 28 b5 b2 28 61  |set(ang%,2,(..(a|
00000200  6e 67 25 2b 31 32 30 29  29 2a 33 32 30 2c 2d 32  |ng%+120))*320,-2|
00000210  30 30 2c 2d 28 9b b2 28  61 6e 67 25 2b 31 32 30  |00,-(..(ang%+120|
00000220  29 29 2a 33 32 30 29 0d  01 04 3d 20 f2 73 65 74  |))*320)...= .set|
00000230  28 61 6e 67 25 2c 33 2c  28 b5 b2 28 61 6e 67 25  |(ang%,3,(..(ang%|
00000240  2b 32 34 30 29 29 2a 33  32 30 2c 2d 32 30 30 2c  |+240))*320,-200,|
00000250  2d 28 9b b2 28 61 6e 67  25 2b 32 34 30 29 29 2a  |-(..(ang%+240))*|
00000260  33 32 30 29 0d 01 0e 05  ed 0d 01 18 0e f2 73 74  |320)..........st|
00000270  61 72 5f 69 6e 69 74 0d  01 22 04 0d 01 2c 15 e3  |ar_init.."...,..|
00000280  20 6f 70 74 25 3d 38 20  b8 20 31 30 20 88 20 32  | opt%=8 . 10 . 2|
00000290  0d 01 36 09 20 20 62 3d  30 0d 01 40 0e 20 20 50  |..6.  b=0..@.  P|
000002a0  25 3d 63 6f 64 65 25 0d  01 4a 0f 20 20 5b 4f 50  |%=code%..J.  [OP|
000002b0  54 20 6f 70 74 25 0d 01  54 19 20 20 3b 20 3e 20  |T opt%..T.  ; > |
000002c0  52 30 20 3d 20 64 61 74  61 20 74 61 62 6c 65 0d  |R0 = data table.|
000002d0  01 5e 15 20 20 3b 20 20  20 52 31 20 3d 20 64 65  |.^.  ;   R1 = de|
000002e0  67 72 65 65 0d 01 68 15  20 20 3b 20 52 38 20 3d  |gree..h.  ; R8 =|
000002f0  20 64 69 73 74 61 6e 63  65 0d 01 72 1b 20 20 3b  | distance..r.  ;|
00000300  20 52 39 20 3d 20 64 65  67 72 65 65 20 6f 66 20  | R9 = degree of |
00000310  74 75 72 6e 0d 01 7c 16  20 20 3b 20 52 31 30 20  |turn..|.  ; R10 |
00000320  3d 20 64 69 73 74 20 69  6e 63 0d 01 86 11 20 20  |= dist inc....  |
00000330  4d 4f 56 20 52 38 2c 23  33 32 30 0d 01 90 11 20  |MOV R8,#320.... |
00000340  20 4d 4f 56 20 52 39 2c  23 33 36 30 0d 01 9a 12  | MOV R9,#360....|
00000350  20 20 53 55 42 20 52 39  2c 52 39 2c 23 33 0d 01  |  SUB R9,R9,#3..|
00000360  a4 12 20 20 4d 4f 56 20  52 31 30 2c 23 31 30 30  |..  MOV R10,#100|
00000370  0d 01 ae 10 20 20 4d 4f  56 20 52 31 32 2c 52 30  |....  MOV R12,R0|
00000380  0d 01 b8 0b 20 20 2e 6c  6f 6f 70 0d 01 c2 1f 20  |....  .loop.... |
00000390  20 53 57 49 20 22 58 4f  53 5f 52 65 61 64 45 73  | SWI "XOS_ReadEs|
000003a0  63 61 70 65 53 74 61 74  65 22 0d 01 cc 12 20 20  |capeState"....  |
000003b0  4d 4f 56 43 53 20 50 43  2c 52 31 34 0d 01 d6 10  |MOVCS PC,R14....|
000003c0  20 20 4d 4f 56 20 52 30  2c 23 31 39 0d 01 e0 14  |  MOV R0,#19....|
000003d0  20 20 53 57 49 20 22 58  4f 53 5f 42 79 74 65 22  |  SWI "XOS_Byte"|
000003e0  0d 01 ea 11 20 20 4d 4f  56 20 52 30 2c 23 31 31  |....  MOV R0,#11|
000003f0  32 0d 01 f4 10 20 20 80  20 52 31 2c 52 39 2c 23  |2....  . R1,R9,#|
00000400  31 0d 01 fe 12 20 20 41  44 44 20 52 31 2c 52 31  |1....  ADD R1,R1|
00000410  2c 23 31 0d 02 08 14 20  20 53 57 49 20 22 58 4f  |,#1....  SWI "XO|
00000420  53 5f 42 79 74 65 22 0d  02 12 11 20 20 4d 4f 56  |S_Byte"....  MOV|
00000430  20 52 30 2c 23 31 31 33  0d 02 1c 10 20 20 80 20  | R0,#113....  . |
00000440  52 31 2c 52 39 2c 23 31  0d 02 26 12 20 20 52 53  |R1,R9,#1..&.  RS|
00000450  42 20 52 31 2c 52 31 2c  23 32 0d 02 30 14 20 20  |B R1,R1,#2..0.  |
00000460  53 57 49 20 22 58 4f 53  5f 42 79 74 65 22 0d 02  |SWI "XOS_Byte"..|
00000470  3a 10 20 20 53 57 49 20  32 35 36 2b 31 32 0d 02  |:.  SWI 256+12..|
00000480  44 19 20 20 41 44 44 20  52 34 2c 52 31 32 2c 52  |D.  ADD R4,R12,R|
00000490  39 2c 4c 53 4c 23 36 0d  02 4e 13 20 20 41 44 44  |9,LSL#6..N.  ADD|
000004a0  20 52 35 2c 52 34 2c 23  31 36 0d 02 58 13 20 20  | R5,R4,#16..X.  |
000004b0  41 44 44 20 52 36 2c 52  35 2c 23 31 36 0d 02 62  |ADD R6,R5,#16..b|
000004c0  13 20 20 41 44 44 20 52  37 2c 52 36 2c 23 31 36  |.  ADD R7,R6,#16|
000004d0  0d 02 6c 0c 20 20 a4 6c  64 28 34 29 0d 02 76 0f  |..l.  .ld(4)..v.|
000004e0  20 20 4d 4f 56 20 52 30  2c 23 34 0d 02 80 13 20  |  MOV R0,#4.... |
000004f0  20 53 57 49 20 22 33 44  5f 50 6c 6f 74 22 0d 02  | SWI "3D_Plot"..|
00000500  8a 0c 20 20 a4 6c 64 28  35 29 0d 02 94 0f 20 20  |..  .ld(5)....  |
00000510  4d 4f 56 20 52 30 2c 23  35 0d 02 9e 13 20 20 53  |MOV R0,#5....  S|
00000520  57 49 20 22 33 44 5f 50  6c 6f 74 22 0d 02 a8 0c  |WI "3D_Plot"....|
00000530  20 20 a4 6c 64 28 36 29  0d 02 b2 13 20 20 53 57  |  .ld(6)....  SW|
00000540  49 20 22 33 44 5f 50 6c  6f 74 22 0d 02 bc 0c 20  |I "3D_Plot".... |
00000550  20 a4 6c 64 28 34 29 0d  02 c6 13 20 20 53 57 49  | .ld(4)....  SWI|
00000560  20 22 33 44 5f 50 6c 6f  74 22 0d 02 d0 0c 20 20  | "3D_Plot"....  |
00000570  a4 6c 64 28 37 29 0d 02  da 13 20 20 53 57 49 20  |.ld(7)....  SWI |
00000580  22 33 44 5f 50 6c 6f 74  22 0d 02 e4 0c 20 20 a4  |"3D_Plot"....  .|
00000590  6c 64 28 35 29 0d 02 ee  13 20 20 53 57 49 20 22  |ld(5)....  SWI "|
000005a0  33 44 5f 50 6c 6f 74 22  0d 02 f8 0c 20 20 a4 6c  |3D_Plot"....  .l|
000005b0  64 28 36 29 0d 03 02 0f  20 20 4d 4f 56 20 52 30  |d(6)....  MOV R0|
000005c0  2c 23 34 0d 03 0c 13 20  20 53 57 49 20 22 33 44  |,#4....  SWI "3D|
000005d0  5f 50 6c 6f 74 22 0d 03  16 0c 20 20 a4 6c 64 28  |_Plot"....  .ld(|
000005e0  37 29 0d 03 20 0f 20 20  4d 4f 56 20 52 30 2c 23  |7).. .  MOV R0,#|
000005f0  35 0d 03 2a 13 20 20 53  57 49 20 22 33 44 5f 50  |5..*.  SWI "3D_P|
00000600  6c 6f 74 22 0d 03 34 13  20 20 41 44 44 20 52 38  |lot"..4.  ADD R8|
00000610  2c 52 38 2c 52 31 30 0d  03 3e 11 20 20 43 4d 50  |,R8,R10..>.  CMP|
00000620  20 52 38 2c 23 33 32 30  0d 03 48 14 20 20 4d 4f  | R8,#320..H.  MO|
00000630  56 4c 54 20 52 31 30 2c  23 31 30 30 0d 03 52 0e  |VLT R10,#100..R.|
00000640  20 20 4c 44 52 20 52 30  2c 74 0d 03 5c 0f 20 20  |  LDR R0,t..\.  |
00000650  43 4d 50 20 52 38 2c 52  30 0d 03 66 14 20 20 4d  |CMP R8,R0..f.  M|
00000660  56 4e 47 54 20 52 31 30  2c 23 31 30 30 0d 03 70  |VNGT R10,#100..p|
00000670  13 20 20 53 55 42 53 20  52 39 2c 52 39 2c 23 33  |.  SUBS R9,R9,#3|
00000680  0d 03 7a 13 20 20 4d 4f  56 4c 54 20 52 39 2c 23  |..z.  MOVLT R9,#|
00000690  33 36 30 0d 03 84 14 20  20 53 55 42 4c 54 20 52  |360....  SUBLT R|
000006a0  39 2c 52 39 2c 23 33 0d  03 8e 16 20 20 53 54 4d  |9,R9,#3....  STM|
000006b0  46 44 20 52 31 33 21 2c  7b 52 31 34 7d 0d 03 98  |FD R13!,{R14}...|
000006c0  0d 20 20 42 4c 20 63 61  6c 6c 0d 03 a2 16 20 20  |.  BL call....  |
000006d0  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 31 34 7d  |LDMFD R13!,{R14}|
000006e0  0d 03 ac 0c 20 20 42 20  6c 6f 6f 70 0d 03 b6 10  |....  B loop....|
000006f0  20 20 4d 4f 56 20 50 43  2c 52 31 34 0d 03 c0 08  |  MOV PC,R14....|
00000700  20 20 2e 74 0d 03 ca 0e  20 20 44 43 44 20 36 30  |  .t....  DCD 60|
00000710  30 30 0d 03 d4 07 20 20  5d 0d 03 de 05 ed 0d 03  |00....  ].......|
00000720  e8 1a e7 20 62 3e 30 20  ff 22 42 72 65 61 6b 53  |... b>0 ."BreakS|
00000730  65 74 20 22 2b c3 7e 62  0d 03 f2 0c 41 25 3d 64  |et "+.~b....A%=d|
00000740  61 74 61 25 0d 03 fc 10  e3 20 42 25 3d 30 20 b8  |ata%..... B%=0 .|
00000750  20 31 30 30 0d 04 06 0b  d6 20 63 6f 64 65 25 0d  | 100..... code%.|
00000760  04 10 09 f5 20 fd 20 a5  0d 04 1a 05 ed 0d 04 24  |.... . ........$|
00000770  05 e0 0d 04 2e 04 0d 04  38 0e dd a4 6c 64 28 72  |........8...ld(r|
00000780  65 67 25 29 0d 04 42 0e  20 5b 4f 50 54 20 6f 70  |eg%)..B. [OPT op|
00000790  74 25 0d 04 4c 1a 20 4c  44 4d 49 41 20 72 65 67  |t%..L. LDMIA reg|
000007a0  25 2c 7b 52 31 2c 52 32  2c 52 33 7d 0d 04 56 11  |%,{R1,R2,R3}..V.|
000007b0  20 41 44 44 20 52 33 2c  52 33 2c 52 38 0d 04 60  | ADD R3,R3,R8..`|
000007c0  06 20 5d 0d 04 6a 06 3d  30 0d 04 74 04 0d 04 7e  |. ]..j.=0..t...~|
000007d0  19 dd f2 73 65 74 28 61  25 2c 63 25 2c 78 25 2c  |...set(a%,c%,x%,|
000007e0  79 25 2c 7a 25 29 0d 04  88 1d 20 64 61 74 61 25  |y%,z%).... data%|
000007f0  21 28 61 25 2a 36 34 2b  63 25 2a 31 36 2b 30 29  |!(a%*64+c%*16+0)|
00000800  3d 78 25 0d 04 92 1d 20  64 61 74 61 25 21 28 61  |=x%.... data%!(a|
00000810  25 2a 36 34 2b 63 25 2a  31 36 2b 34 29 3d 79 25  |%*64+c%*16+4)=y%|
00000820  0d 04 9c 1d 20 64 61 74  61 25 21 28 61 25 2a 36  |.... data%!(a%*6|
00000830  34 2b 63 25 2a 31 36 2b  38 29 3d 7a 25 0d 04 a6  |4+c%*16+8)=z%...|
00000840  39 20 f4 20 49 46 20 63  25 3e 30 20 4c 49 4e 45  |9 . IF c%>0 LINE|
00000850  20 64 61 74 61 25 21 28  61 25 2a 36 34 2b 30 29  | data%!(a%*64+0)|
00000860  2c 64 61 74 61 25 21 28  61 25 2a 36 34 2b 34 29  |,data%!(a%*64+4)|
00000870  2c 78 25 2c 79 25 0d 04  b0 05 e1 0d 04 ba 04 0d  |,x%,y%..........|
00000880  04 c4 0f dd f2 73 74 61  72 5f 69 6e 69 74 0d 04  |.....star_init..|
00000890  ce 0e 6d 61 78 73 25 3d  31 30 30 30 0d 04 d8 1a  |..maxs%=1000....|
000008a0  de 20 6d 63 6f 64 65 25  20 32 35 36 2b 6d 61 78  |. mcode% 256+max|
000008b0  73 25 2a 33 32 30 0d 04  e2 17 c8 99 36 2c 31 31  |s%*320......6,11|
000008c0  32 2c 31 3a c8 99 36 2c  31 31 33 2c 32 0d 04 ec  |2,1:..6,113,2...|
000008d0  28 21 6d 63 6f 64 65 25  3d 31 34 39 3a 6d 63 6f  |(!mcode%=149:mco|
000008e0  64 65 25 21 34 3d 31 34  38 3a 6d 63 6f 64 65 25  |de%!4=148:mcode%|
000008f0  21 38 3d 2d 31 0d 04 f6  17 c8 99 26 33 31 2c 6d  |!8=-1......&31,m|
00000900  63 6f 64 65 25 2c 6d 63  6f 64 65 25 0d 05 00 0d  |code%,mcode%....|
00000910  c8 99 36 2c 31 31 33 2c  31 0d 05 0a 26 73 63 72  |..6,113,1...&scr|
00000920  65 65 6e 30 25 3d 21 6d  63 6f 64 65 25 3a 73 63  |een0%=!mcode%:sc|
00000930  72 65 65 6e 31 25 3d 6d  63 6f 64 65 25 21 34 0d  |reen1%=mcode%!4.|
00000940  05 14 08 f2 61 73 73 0d  05 1e 11 e3 20 44 73 25  |....ass..... Ds%|
00000950  3d 30 20 b8 20 39 39 39  0d 05 28 23 78 25 3d b3  |=0 . 999..(#x%=.|
00000960  28 36 34 30 29 2d 31 3a  79 25 3d b3 28 32 35 34  |(640)-1:y%=.(254|
00000970  29 3a 73 25 3d b3 28 36  2a 38 29 0d 05 32 23 78  |):s%=.(6*8)..2#x|
00000980  32 25 3d 28 78 25 2d 28  2d 73 25 29 2b 36 34 30  |2%=(x%-(-s%)+640|
00000990  29 83 36 34 30 3a 73 25  3d 34 38 2d 73 25 0d 05  |).640:s%=48-s%..|
000009a0  3c 0d c8 8e 20 b3 28 35  29 20 ca 0d 05 46 2e c9  |<... .(5) ...F..|
000009b0  20 31 2c 33 20 3a 20 f2  73 28 78 25 2c 79 25 2c  | 1,3 : .s(x%,y%,|
000009c0  31 2c 73 25 2f 38 29 3a  f2 73 28 78 32 25 2c 79  |1,s%/8):.s(x2%,y|
000009d0  25 2c 32 2c 73 25 2f 38  29 0d 05 50 30 c9 20 32  |%,2,s%/8)..P0. 2|
000009e0  2c 34 20 3a 20 f2 73 32  28 78 25 2c 79 25 2c 31  |,4 : .s2(x%,y%,1|
000009f0  2c 73 25 2f 38 29 3a f2  73 32 28 78 32 25 2c 79  |,s%/8):.s2(x2%,y|
00000a00  25 2c 32 2c 73 25 2f 38  29 0d 05 5a 2e c9 20 35  |%,2,s%/8)..Z.. 5|
00000a10  20 3a 20 f2 73 33 28 78  25 2c 79 25 2c 31 2c 73  | : .s3(x%,y%,1,s|
00000a20  25 2f 38 29 3a f2 73 33  28 78 32 25 2c 79 25 2c  |%/8):.s3(x2%,y%,|
00000a30  32 2c 73 25 2f 38 29 0d  05 64 05 cb 0d 05 6e 05  |2,s%/8)..d....n.|
00000a40  ed 0d 05 78 27 78 70 6f  73 25 3d b3 28 36 34 30  |...x'xpos%=.(640|
00000a50  29 2d 31 3a 79 70 6f 73  25 3d 28 b3 28 32 35 36  |)-1:ypos%=(.(256|
00000a60  29 2d 31 29 2a 31 36 30  0d 05 82 11 73 70 64 25  |)-1)*160....spd%|
00000a70  3d 31 3a 63 6f 6c 25 3d  33 0d 05 8c 05 e1 0d 05  |=1:col%=3.......|
00000a80  96 05 f5 0d 05 a0 08 c8  96 3a db 0d 05 aa 16 43  |.........:.....C|
00000a90  25 3d 73 63 72 65 65 6e  30 25 3a d6 20 63 61 6c  |%=screen0%:. cal|
00000aa0  6c 0d 05 b4 07 fd 20 30  0d 05 be 04 0d 05 c8 09  |l..... 0........|
00000ab0  dd f2 61 73 73 0d 05 d2  15 20 e3 20 6f 70 74 25  |..ass.... . opt%|
00000ac0  3d 30 20 b8 20 32 20 88  20 32 0d 05 dc 0e 20 50  |=0 . 2 . 2.... P|
00000ad0  25 3d 6d 63 6f 64 65 25  0d 05 e6 36 20 63 6f 6c  |%=mcode%...6 col|
00000ae0  25 3d 33 3a 78 70 6f 73  25 3d 34 3a 79 70 6f 73  |%=3:xpos%=4:ypos|
00000af0  25 3d 35 3a 73 70 64 25  3d 36 3a 61 64 25 3d 37  |%=5:spd%=6:ad%=7|
00000b00  3a 72 6f 6c 25 3d 38 3a  6f 6c 64 25 3d 39 0d 05  |:rol%=8:old%=9..|
00000b10  f0 0e 20 5b 4f 50 54 20  6f 70 74 25 0d 05 fa 0b  |.. [OPT opt%....|
00000b20  20 2e 73 63 72 6e 31 0d  06 04 11 20 44 43 44 20  | .scrn1.... DCD |
00000b30  73 63 72 65 65 6e 30 25  0d 06 0e 0b 20 2e 73 63  |screen0%.... .sc|
00000b40  72 6e 32 0d 06 18 11 20  44 43 44 20 73 63 72 65  |rn2.... DCD scre|
00000b50  65 6e 31 25 0d 06 22 0b  20 2e 73 74 61 72 73 0d  |en1%..". .stars.|
00000b60  06 2c 0a 20 44 43 44 20  30 0d 06 36 0a 20 2e 63  |.,. DCD 0..6. .c|
00000b70  61 6c 6c 0d 06 40 11 20  4c 44 52 20 52 32 2c 73  |all..@. LDR R2,s|
00000b80  63 72 6e 31 0d 06 4a 11  20 4c 44 52 20 52 33 2c  |crn1..J. LDR R3,|
00000b90  73 63 72 6e 32 0d 06 54  11 20 53 54 52 20 52 32  |scrn2..T. STR R2|
00000ba0  2c 73 63 72 6e 32 0d 06  5e 11 20 53 54 52 20 52  |,scrn2..^. STR R|
00000bb0  33 2c 73 63 72 6e 31 0d  06 68 18 20 53 54 4d 46  |3,scrn1..h. STMF|
00000bc0  44 20 52 31 33 21 2c 7b  52 30 2d 52 31 32 7d 0d  |D R13!,{R0-R12}.|
00000bd0  06 72 15 20 41 44 52 20  52 30 2c 73 74 61 72 5f  |.r. ADR R0,star_|
00000be0  64 61 74 61 0d 06 7c 11  20 4c 44 52 20 52 31 2c  |data..|. LDR R1,|
00000bf0  73 74 61 72 73 0d 06 86  08 20 2e 6c 70 0d 06 90  |stars.... .lp...|
00000c00  26 20 4c 44 4d 49 41 20  52 30 21 2c 7b 63 6f 6c  |& LDMIA R0!,{col|
00000c10  25 2c 78 70 6f 73 25 2c  79 70 6f 73 25 2c 73 70  |%,xpos%,ypos%,sp|
00000c20  64 25 7d 0d 06 9a 1e 20  41 44 44 20 61 64 25 2c  |d%}.... ADD ad%,|
00000c30  79 70 6f 73 25 2c 78 70  6f 73 25 2c 4c 53 52 23  |ypos%,xpos%,LSR#|
00000c40  32 0d 06 a4 14 20 80 20  72 6f 6c 25 2c 78 70 6f  |2.... . rol%,xpo|
00000c50  73 25 2c 23 33 0d 06 ae  18 20 4d 4f 56 20 72 6f  |s%,#3.... MOV ro|
00000c60  6c 25 2c 72 6f 6c 25 2c  4c 53 4c 23 31 0d 06 b8  |l%,rol%,LSL#1...|
00000c70  17 20 4c 44 52 42 20 6f  6c 64 25 2c 5b 52 32 2c  |. LDRB old%,[R2,|
00000c80  61 64 25 5d 0d 06 c2 0f  20 4d 4f 56 20 52 31 32  |ad%].... MOV R12|
00000c90  2c 23 33 0d 06 cc 20 20  3b 42 49 43 20 6f 6c 64  |,#3...  ;BIC old|
00000ca0  25 2c 6f 6c 64 25 2c 52  31 32 2c 4c 53 4c 20 72  |%,old%,R12,LSL r|
00000cb0  6f 6c 25 0d 06 d6 1f 20  84 52 20 6f 6c 64 25 2c  |ol%.... .R old%,|
00000cc0  6f 6c 64 25 2c 63 6f 6c  25 2c 4c 53 4c 20 72 6f  |old%,col%,LSL ro|
00000cd0  6c 25 0d 06 e0 17 20 53  54 52 42 20 6f 6c 64 25  |l%.... STRB old%|
00000ce0  2c 5b 52 32 2c 61 64 25  5d 0d 06 ea 1a 20 53 55  |,[R2,ad%].... SU|
00000cf0  42 53 20 78 70 6f 73 25  2c 78 70 6f 73 25 2c 73  |BS xpos%,xpos%,s|
00000d00  70 64 25 0d 06 f4 1b 20  41 44 44 4c 54 20 78 70  |pd%.... ADDLT xp|
00000d10  6f 73 25 2c 78 70 6f 73  25 2c 23 36 34 30 0d 06  |os%,xpos%,#640..|
00000d20  fe 18 20 53 54 52 20 78  70 6f 73 25 2c 5b 52 30  |.. STR xpos%,[R0|
00000d30  2c 23 2d 31 32 5d 0d 07  08 12 20 53 55 42 53 20  |,#-12].... SUBS |
00000d40  52 31 2c 52 31 2c 23 31  0d 07 12 0b 20 42 47 54  |R1,R1,#1.... BGT|
00000d50  20 6c 70 0d 07 1c 18 20  4c 44 4d 46 44 20 52 31  | lp.... LDMFD R1|
00000d60  33 21 2c 7b 52 30 2d 52  31 32 7d 0d 07 26 10 20  |3!,{R0-R12}..&. |
00000d70  4d 4f 56 53 20 50 43 2c  52 31 34 0d 07 30 0f 20  |MOVS PC,R14..0. |
00000d80  2e 73 74 61 72 5f 64 61  74 61 0d 07 3a 08 20 5d  |.star_data..:. ]|
00000d90  3a ed 0d 07 44 05 e1 0d  07 4e 04 0d 07 58 18 dd  |:...D....N...X..|
00000da0  f2 73 28 78 25 2c 79 25  2c 63 6f 6c 25 2c 73 70  |.s(x%,y%,col%,sp|
00000db0  64 25 29 0d 07 62 13 20  ea 20 6e 25 3a 6e 25 3d  |d%)..b. . n%:n%=|
00000dc0  21 73 74 61 72 73 0d 07  6c 14 20 e7 20 73 70 64  |!stars..l. . spd|
00000dd0  25 3c 31 20 73 70 64 25  3d 31 0d 07 76 14 20 78  |%<1 spd%=1..v. x|
00000de0  25 3d 28 78 25 2b 36 34  30 29 83 36 34 30 0d 07  |%=(x%+640).640..|
00000df0  80 1b 20 6e 25 3d 6e 25  2a 31 36 3a 6e 25 2b 3d  |.. n%=n%*16:n%+=|
00000e00  73 74 61 72 5f 64 61 74  61 0d 07 8a 2d 20 6e 25  |star_data...- n%|
00000e10  21 30 3d 63 6f 6c 25 3a  6e 25 21 34 3d 78 25 3a  |!0=col%:n%!4=x%:|
00000e20  6e 25 21 38 3d 79 25 2a  31 36 30 3a 6e 25 21 31  |n%!8=y%*160:n%!1|
00000e30  32 3d 73 70 64 25 0d 07  94 14 20 21 73 74 61 72  |2=spd%.... !star|
00000e40  73 3d 21 73 74 61 72 73  2b 31 0d 07 9e 05 e1 0d  |s=!stars+1......|
00000e50  07 a8 04 0d 07 b2 19 dd  f2 73 32 28 78 25 2c 79  |.........s2(x%,y|
00000e60  25 2c 63 6f 6c 25 2c 73  70 64 25 29 0d 07 bc 2e  |%,col%,spd%)....|
00000e70  20 f2 73 28 78 25 2c 79  25 2c 63 6f 6c 25 2c 73  | .s(x%,y%,col%,s|
00000e80  70 64 25 29 3a f2 73 28  78 25 2b 31 2c 79 25 2c  |pd%):.s(x%+1,y%,|
00000e90  63 6f 6c 25 2c 73 70 64  25 29 0d 07 c6 05 e1 0d  |col%,spd%)......|
00000ea0  07 d0 04 0d 07 da 19 dd  f2 73 33 28 78 25 2c 79  |.........s3(x%,y|
00000eb0  25 2c 63 6f 6c 25 2c 73  70 64 25 29 0d 07 e4 2e  |%,col%,spd%)....|
00000ec0  20 f2 73 28 78 25 2c 79  25 2c 63 6f 6c 25 2c 73  | .s(x%,y%,col%,s|
00000ed0  70 64 25 29 3a f2 73 28  78 25 2b 31 2c 79 25 2c  |pd%):.s(x%+1,y%,|
00000ee0  63 6f 6c 25 2c 73 70 64  25 29 0d 07 ee 30 20 f2  |col%,spd%)...0 .|
00000ef0  73 28 78 25 2d 31 2c 79  25 2c 63 6f 6c 25 2c 73  |s(x%-1,y%,col%,s|
00000f00  70 64 25 29 3a f2 73 28  78 25 2c 79 25 2b 31 2c  |pd%):.s(x%,y%+1,|
00000f10  63 6f 6c 25 2c 73 70 64  25 29 0d 07 f8 1a 20 f2  |col%,spd%).... .|
00000f20  73 28 78 25 2c 79 25 2d  31 2c 63 6f 6c 25 2c 73  |s(x%,y%-1,col%,s|
00000f30  70 64 25 29 0d 08 02 05  e1 0d 08 0c 04 0d 08 16  |pd%)............|
00000f40  0d dd f2 67 65 74 63 6f  6c 73 0d 08 20 08 20 ea  |...getcols.. . .|
00000f50  20 85 0d 08 2a 0c 20 ee  20 85 20 ea 20 e1 0d 08  | ...*. . . . ...|
00000f60  34 12 20 de 20 63 6f 6c  63 6f 64 65 25 20 31 32  |4. . colcode% 12|
00000f70  0d 08 3e 27 20 c8 99 26  32 33 2c 22 33 44 45 79  |..>' ..&23,"3DEy|
00000f80  65 24 4c 65 66 74 22 2c  63 6f 6c 63 6f 64 65 25  |e$Left",colcode%|
00000f90  2c 31 32 2c 30 2c 30 0d  08 48 19 20 72 31 25 3d  |,12,0,0..H. r1%=|
00000fa0  31 36 2a a4 63 63 28 30  29 2b a4 63 63 28 31 29  |16*.cc(0)+.cc(1)|
00000fb0  0d 08 52 19 20 67 31 25  3d 31 36 2a a4 63 63 28  |..R. g1%=16*.cc(|
00000fc0  32 29 2b a4 63 63 28 33  29 0d 08 5c 19 20 62 31  |2)+.cc(3)..\. b1|
00000fd0  25 3d 31 36 2a a4 63 63  28 34 29 2b a4 63 63 28  |%=16*.cc(4)+.cc(|
00000fe0  35 29 0d 08 66 27 c8 99  26 32 33 2c 22 33 44 45  |5)..f'..&23,"3DE|
00000ff0  79 65 24 52 69 67 68 74  22 2c 63 6f 6c 63 6f 64  |ye$Right",colcod|
00001000  65 25 2c 31 32 2c 30 2c  30 0d 08 70 19 20 72 32  |e%,12,0,0..p. r2|
00001010  25 3d 31 36 2a a4 63 63  28 30 29 2b a4 63 63 28  |%=16*.cc(0)+.cc(|
00001020  31 29 0d 08 7a 19 20 67  32 25 3d 31 36 2a a4 63  |1)..z. g2%=16*.c|
00001030  63 28 32 29 2b a4 63 63  28 33 29 0d 08 84 19 20  |c(2)+.cc(3).... |
00001040  62 32 25 3d 31 36 2a a4  63 63 28 34 29 2b a4 63  |b2%=16*.cc(4)+.c|
00001050  63 28 35 29 0d 08 8e 05  e1 0d 08 98 04 0d 08 a2  |c(5)............|
00001060  0e dd a4 63 63 28 70 6f  73 25 29 0d 08 ac 2a 20  |...cc(pos%)...* |
00001070  e7 20 63 6f 6c 63 6f 64  65 25 3f 70 6f 73 25 3e  |. colcode%?pos%>|
00001080  3d 36 35 20 3d 63 6f 6c  63 6f 64 65 25 3f 70 6f  |=65 =colcode%?po|
00001090  73 25 2d 35 35 0d 08 b6  15 3d 63 6f 6c 63 6f 64  |s%-55....=colcod|
000010a0  65 25 3f 70 6f 73 25 2d  34 38 0d ff              |e%?pos%-48..|
000010ac