�     >!RunImage (Julian)
� By  Jan Vlietinck
� (c) AU May 1994
(
2SKIP=12
<)� (�>=18 � �<=21) � (�>=25 � �<=31) �
F�lowres(�)
P�
Z�lowres(�)
d�
n
x� �lowres(low)
�
@%="F2.3"
�� Q% 270000
�� low �
�� 1
�� BUFF 320*256/4
�s=1:m=0
��
�� 19
�� BUFF 320*256
�s=2:m=1
��
�
ITER=1024
�A=0

B=1

X=2

Y=3

"XC=4

,YC=5

6W=6

@T=7

JI=8

TO=10

^R=11

hE=12

r	SP=13

|	LK=14

�	SCR=0

�	BUF=1

�Q=4

�C=5

�� P=0  � 2 � 2

�	P%=Q%

�
[OPT P

�.SCREEN1 EQUD148:EQUD -1

�.SCREEN EQUD 0

�.BUFFER EQUD BUFF

�

�
.julia

�STMFD 13!,{14}
LDR O,SCREEN

ADR E,TAB
MOV X,#40*s
&MOV Y,#128*s
0ADD T,Y,Y,LSL #2
:ADD T,X,T,LSL #4+m
D
ADD O,O,T
NMOV X,#0
XMOV Y,#0
bMOV I,#ITER
lMOV W,#3
v
BL rec
�LDMFD 13!,{PC}
�
�.rec
�ADD XC,X,X,ASR #2
�ADD YC,Y,Y,ASR #2
�MOV YC,YC,ASR #9-m
�� R,W,XC,ASR #9-m
�MOV R,R,LSL #1
�MOV XC,XC,ASR #11-m
�ADD T,YC,YC,LSL #2
�ADDS T,XC,T,LSL #4+m
�LDRB C,[O,T]
�� Q,W,C,LSR R
CMP I,#0
CMPNE Q,#3

�Q PC,R14
 �R C,C,W,LSL R
*CMP I,#(ITER-SKIP)
4STRLSB C,[O,T]
>
SUB X,X,A
H
SUB Y,Y,B
RMOVS T,X,ASR #1
\RSBMI T,T,#0
f
MUL R,T,T
pMOVS T,Y,ASR #1
zRSBMI T,T,#0
�MLA R,T,T,R
�MOV T,R,LSR #16
�ADD T,T,#1
�LDR R,[E,T,LSL #2]
�ADD T,R,X,ASR #1
�SUB R,R,X,ASR #1
�MOV T,T,LSR #1
�LDR X,[E,T,LSL #2]
�RSBLT X,X,#0
�MOV R,R,LSR #1
�LDR Y,[E,R,LSL #2]
�STMFD 13!,{X,Y,I,14}
�SUB I,I,#1

BL rec
LDMFD 13!,{X,Y,I}
RSB X,X,#0
$RSB Y,Y,#0
.SUB I,I,#1
8
BL rec
BLDMFD 13!,{PC}
L
V	.root
`mov W,#0
jadd T,W,#1<<30
tcmp Q,T
~subhs Q,Q,T
�
adc W,W,W
�]
�� I%=2 � 30 � 2
�
[OPT P
�add T,W,#1<<30
�cmp Q,T,ROR #I%
�subhs Q,Q,T,ROR #I%
�
adc W,W,W
�]
��
�
[OPT P
�MOV PC,R14


.table_fill
STMFD 13!,{14}

ADR E,TAB
(MOV C,#0
2	.loop
<MOV Q,C,LSL #16
FBL root
PSTR W,[E],#4
ZADD C,C,#1
dCMP C,#1<<16
nBLO loop
xMOV W,#1<<16
�
STR W,[E]
�LDMFD 13!,{PC}
�
�.readbackground
�ADR R0,SCREEN1
�ADR R1,SCREEN
�SWI "OS_ReadVduVariables"
�LDR SCR,SCREEN
�LDR BUF,BUFFER
�MOV E,#320*256*s*s
�
.rloop
�LDMIA (SCR)!,{R2-R9}
�STMIA (BUF)!,{R2-R9}
SUBS E,E,#16*8

BNE rloop
MOV PC,R14
"
,.showbackground
6ADR R0,SCREEN1
@ADR R1,SCREEN
JSWI "OS_ReadVduVariables"
TLDR SCR,SCREEN
^LDR BUF,BUFFER
hMOV E,#320*256*s*s
r
.sloop
|LDMIA (BUF)!,{R2-R9}
�STMIA (SCR)!,{R2-R9}
�SUBS E,E,#16*8
�
BNE sloop
�MOV PC,R14
�.TAB
�]
��
�� table_fill
�� low �
�%*SCREENLOAD "<Julian$Dir>.MANDEL"
��
�&*SCREENLOAD "<Julian$Dir>.HMANDEL"
��
� 2,0,0,12*16
� 128+2
�
&ȑ 768,512
0� readbackground
:*POINTER
Dȗ �
Nȗ ȓ -768,-512,1280,1024
XM=2
bF%=256*64*s
l�
vȗ X%,Y%,Z%
�� Z%=0 � U%=X%*64:V%=-Y%*64
�C%=0
�D%=0
�� Z% � C%=X%*4:D%=-Y%*6
�A%=U%+C%
�B%=V%+D%
�ș "OS_Byte",&70,M
�� showbackground
�� 30
�� "A= "A%/F%
�� "B= "B%/-F%
�� julia
�Ȗ
ș "OS_Byte",&71,M
M=M � 3
� 0
 �
*
4
�

00000000  0d 00 0a 1d f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 20 28 4a 75  6c 69 61 6e 29 0d 00 14  |mage (Julian)...|
00000020  17 f4 20 42 79 20 20 4a  61 6e 20 56 6c 69 65 74  |.. By  Jan Vliet|
00000030  69 6e 63 6b 0d 00 1e 15  f4 20 28 63 29 20 41 55  |inck..... (c) AU|
00000040  20 4d 61 79 20 31 39 39  34 0d 00 28 04 0d 00 32  | May 1994..(...2|
00000050  0b 53 4b 49 50 3d 31 32  0d 00 3c 29 e7 20 28 eb  |.SKIP=12..<). (.|
00000060  3e 3d 31 38 20 80 20 eb  3c 3d 32 31 29 20 84 20  |>=18 . .<=21) . |
00000070  28 eb 3e 3d 32 35 20 80  20 eb 3c 3d 33 31 29 20  |(.>=25 . .<=31) |
00000080  8c 0d 00 46 0e f2 6c 6f  77 72 65 73 28 a3 29 0d  |...F..lowres(.).|
00000090  00 50 05 cc 0d 00 5a 0e  f2 6c 6f 77 72 65 73 28  |.P....Z..lowres(|
000000a0  b9 29 0d 00 64 05 e1 0d  00 6e 04 0d 00 78 12 dd  |.)..d....n...x..|
000000b0  20 f2 6c 6f 77 72 65 73  28 6c 6f 77 29 0d 00 82  | .lowres(low)...|
000000c0  0d 40 25 3d 22 46 32 2e  33 22 0d 00 8c 0f de 20  |.@%="F2.3"..... |
000000d0  51 25 20 32 37 30 30 30  30 0d 00 96 0b e7 20 6c  |Q% 270000..... l|
000000e0  6f 77 20 8c 0d 00 a0 07  eb 20 31 0d 00 aa 14 de  |ow ...... 1.....|
000000f0  20 42 55 46 46 20 33 32  30 2a 32 35 36 2f 34 0d  | BUFF 320*256/4.|
00000100  00 b4 0b 73 3d 31 3a 6d  3d 30 0d 00 be 05 cc 0d  |...s=1:m=0......|
00000110  00 c8 08 eb 20 31 39 0d  00 d2 12 de 20 42 55 46  |.... 19..... BUF|
00000120  46 20 33 32 30 2a 32 35  36 0d 00 dc 0b 73 3d 32  |F 320*256....s=2|
00000130  3a 6d 3d 31 0d 00 e6 05  cd 0d 00 f0 0d 49 54 45  |:m=1.........ITE|
00000140  52 3d 31 30 32 34 0d 00  fa 07 41 3d 30 0d 01 04  |R=1024....A=0...|
00000150  07 42 3d 31 0d 01 0e 07  58 3d 32 0d 01 18 07 59  |.B=1....X=2....Y|
00000160  3d 33 0d 01 22 08 58 43  3d 34 0d 01 2c 08 59 43  |=3..".XC=4..,.YC|
00000170  3d 35 0d 01 36 07 57 3d  36 0d 01 40 07 54 3d 37  |=5..6.W=6..@.T=7|
00000180  0d 01 4a 07 49 3d 38 0d  01 54 08 4f 3d 31 30 0d  |..J.I=8..T.O=10.|
00000190  01 5e 08 52 3d 31 31 0d  01 68 08 45 3d 31 32 0d  |.^.R=11..h.E=12.|
000001a0  01 72 09 53 50 3d 31 33  0d 01 7c 09 4c 4b 3d 31  |.r.SP=13..|.LK=1|
000001b0  34 0d 01 86 09 53 43 52  3d 30 0d 01 90 09 42 55  |4....SCR=0....BU|
000001c0  46 3d 31 0d 01 9a 07 51  3d 34 0d 01 a4 07 43 3d  |F=1....Q=4....C=|
000001d0  35 0d 01 ae 12 e3 20 50  3d 30 20 20 b8 20 32 20  |5..... P=0  . 2 |
000001e0  88 20 32 0d 01 b8 09 50  25 3d 51 25 0d 01 c2 0a  |. 2....P%=Q%....|
000001f0  5b 4f 50 54 20 50 0d 01  cc 1c 2e 53 43 52 45 45  |[OPT P.....SCREE|
00000200  4e 31 20 45 51 55 44 31  34 38 3a 45 51 55 44 20  |N1 EQUD148:EQUD |
00000210  2d 31 0d 01 d6 12 2e 53  43 52 45 45 4e 20 45 51  |-1.....SCREEN EQ|
00000220  55 44 20 30 0d 01 e0 15  2e 42 55 46 46 45 52 20  |UD 0.....BUFFER |
00000230  45 51 55 44 20 42 55 46  46 0d 01 ea 04 0d 01 f4  |EQUD BUFF.......|
00000240  0a 2e 6a 75 6c 69 61 0d  01 fe 12 53 54 4d 46 44  |..julia....STMFD|
00000250  20 31 33 21 2c 7b 31 34  7d 0d 02 08 10 4c 44 52  | 13!,{14}....LDR|
00000260  20 4f 2c 53 43 52 45 45  4e 0d 02 12 0d 41 44 52  | O,SCREEN....ADR|
00000270  20 45 2c 54 41 42 0d 02  1c 0f 4d 4f 56 20 58 2c  | E,TAB....MOV X,|
00000280  23 34 30 2a 73 0d 02 26  10 4d 4f 56 20 59 2c 23  |#40*s..&.MOV Y,#|
00000290  31 32 38 2a 73 0d 02 30  14 41 44 44 20 54 2c 59  |128*s..0.ADD T,Y|
000002a0  2c 59 2c 4c 53 4c 20 23  32 0d 02 3a 16 41 44 44  |,Y,LSL #2..:.ADD|
000002b0  20 54 2c 58 2c 54 2c 4c  53 4c 20 23 34 2b 6d 0d  | T,X,T,LSL #4+m.|
000002c0  02 44 0d 41 44 44 20 4f  2c 4f 2c 54 0d 02 4e 0c  |.D.ADD O,O,T..N.|
000002d0  4d 4f 56 20 58 2c 23 30  0d 02 58 0c 4d 4f 56 20  |MOV X,#0..X.MOV |
000002e0  59 2c 23 30 0d 02 62 0f  4d 4f 56 20 49 2c 23 49  |Y,#0..b.MOV I,#I|
000002f0  54 45 52 0d 02 6c 0c 4d  4f 56 20 57 2c 23 33 0d  |TER..l.MOV W,#3.|
00000300  02 76 0a 42 4c 20 72 65  63 0d 02 80 12 4c 44 4d  |.v.BL rec....LDM|
00000310  46 44 20 31 33 21 2c 7b  50 43 7d 0d 02 8a 04 0d  |FD 13!,{PC}.....|
00000320  02 94 08 2e 72 65 63 0d  02 9e 15 41 44 44 20 58  |....rec....ADD X|
00000330  43 2c 58 2c 58 2c 41 53  52 20 23 32 0d 02 a8 15  |C,X,X,ASR #2....|
00000340  41 44 44 20 59 43 2c 59  2c 59 2c 41 53 52 20 23  |ADD YC,Y,Y,ASR #|
00000350  32 0d 02 b2 16 4d 4f 56  20 59 43 2c 59 43 2c 41  |2....MOV YC,YC,A|
00000360  53 52 20 23 39 2d 6d 0d  02 bc 15 80 20 52 2c 57  |SR #9-m..... R,W|
00000370  2c 58 43 2c 41 53 52 20  23 39 2d 6d 0d 02 c6 12  |,XC,ASR #9-m....|
00000380  4d 4f 56 20 52 2c 52 2c  4c 53 4c 20 23 31 0d 02  |MOV R,R,LSL #1..|
00000390  d0 17 4d 4f 56 20 58 43  2c 58 43 2c 41 53 52 20  |..MOV XC,XC,ASR |
000003a0  23 31 31 2d 6d 0d 02 da  16 41 44 44 20 54 2c 59  |#11-m....ADD T,Y|
000003b0  43 2c 59 43 2c 4c 53 4c  20 23 32 0d 02 e4 18 41  |C,YC,LSL #2....A|
000003c0  44 44 53 20 54 2c 58 43  2c 54 2c 4c 53 4c 20 23  |DDS T,XC,T,LSL #|
000003d0  34 2b 6d 0d 02 ee 10 4c  44 52 42 20 43 2c 5b 4f  |4+m....LDRB C,[O|
000003e0  2c 54 5d 0d 02 f8 11 80  20 51 2c 57 2c 43 2c 4c  |,T]..... Q,W,C,L|
000003f0  53 52 20 52 0d 03 02 0c  43 4d 50 20 49 2c 23 30  |SR R....CMP I,#0|
00000400  0d 03 0c 0e 43 4d 50 4e  45 20 51 2c 23 33 0d 03  |....CMPNE Q,#3..|
00000410  16 0d ec 51 20 50 43 2c  52 31 34 0d 03 20 12 84  |...Q PC,R14.. ..|
00000420  52 20 43 2c 43 2c 57 2c  4c 53 4c 20 52 0d 03 2a  |R C,C,W,LSL R..*|
00000430  16 43 4d 50 20 49 2c 23  28 49 54 45 52 2d 53 4b  |.CMP I,#(ITER-SK|
00000440  49 50 29 0d 03 34 12 53  54 52 4c 53 42 20 43 2c  |IP)..4.STRLSB C,|
00000450  5b 4f 2c 54 5d 0d 03 3e  0d 53 55 42 20 58 2c 58  |[O,T]..>.SUB X,X|
00000460  2c 41 0d 03 48 0d 53 55  42 20 59 2c 59 2c 42 0d  |,A..H.SUB Y,Y,B.|
00000470  03 52 13 4d 4f 56 53 20  54 2c 58 2c 41 53 52 20  |.R.MOVS T,X,ASR |
00000480  23 31 0d 03 5c 10 52 53  42 4d 49 20 54 2c 54 2c  |#1..\.RSBMI T,T,|
00000490  23 30 0d 03 66 0d 4d 55  4c 20 52 2c 54 2c 54 0d  |#0..f.MUL R,T,T.|
000004a0  03 70 13 4d 4f 56 53 20  54 2c 59 2c 41 53 52 20  |.p.MOVS T,Y,ASR |
000004b0  23 31 0d 03 7a 10 52 53  42 4d 49 20 54 2c 54 2c  |#1..z.RSBMI T,T,|
000004c0  23 30 0d 03 84 0f 4d 4c  41 20 52 2c 54 2c 54 2c  |#0....MLA R,T,T,|
000004d0  52 0d 03 8e 13 4d 4f 56  20 54 2c 52 2c 4c 53 52  |R....MOV T,R,LSR|
000004e0  20 23 31 36 0d 03 98 0e  41 44 44 20 54 2c 54 2c  | #16....ADD T,T,|
000004f0  23 31 0d 03 a2 16 4c 44  52 20 52 2c 5b 45 2c 54  |#1....LDR R,[E,T|
00000500  2c 4c 53 4c 20 23 32 5d  0d 03 ac 14 41 44 44 20  |,LSL #2]....ADD |
00000510  54 2c 52 2c 58 2c 41 53  52 20 23 31 0d 03 b6 14  |T,R,X,ASR #1....|
00000520  53 55 42 20 52 2c 52 2c  58 2c 41 53 52 20 23 31  |SUB R,R,X,ASR #1|
00000530  0d 03 c0 12 4d 4f 56 20  54 2c 54 2c 4c 53 52 20  |....MOV T,T,LSR |
00000540  23 31 0d 03 ca 16 4c 44  52 20 58 2c 5b 45 2c 54  |#1....LDR X,[E,T|
00000550  2c 4c 53 4c 20 23 32 5d  0d 03 d4 10 52 53 42 4c  |,LSL #2]....RSBL|
00000560  54 20 58 2c 58 2c 23 30  0d 03 de 12 4d 4f 56 20  |T X,X,#0....MOV |
00000570  52 2c 52 2c 4c 53 52 20  23 31 0d 03 e8 16 4c 44  |R,R,LSR #1....LD|
00000580  52 20 59 2c 5b 45 2c 52  2c 4c 53 4c 20 23 32 5d  |R Y,[E,R,LSL #2]|
00000590  0d 03 f2 18 53 54 4d 46  44 20 31 33 21 2c 7b 58  |....STMFD 13!,{X|
000005a0  2c 59 2c 49 2c 31 34 7d  0d 03 fc 0e 53 55 42 20  |,Y,I,14}....SUB |
000005b0  49 2c 49 2c 23 31 0d 04  06 0a 42 4c 20 72 65 63  |I,I,#1....BL rec|
000005c0  0d 04 10 15 4c 44 4d 46  44 20 31 33 21 2c 7b 58  |....LDMFD 13!,{X|
000005d0  2c 59 2c 49 7d 0d 04 1a  0e 52 53 42 20 58 2c 58  |,Y,I}....RSB X,X|
000005e0  2c 23 30 0d 04 24 0e 52  53 42 20 59 2c 59 2c 23  |,#0..$.RSB Y,Y,#|
000005f0  30 0d 04 2e 0e 53 55 42  20 49 2c 49 2c 23 31 0d  |0....SUB I,I,#1.|
00000600  04 38 0a 42 4c 20 72 65  63 0d 04 42 12 4c 44 4d  |.8.BL rec..B.LDM|
00000610  46 44 20 31 33 21 2c 7b  50 43 7d 0d 04 4c 04 0d  |FD 13!,{PC}..L..|
00000620  04 56 09 2e 72 6f 6f 74  0d 04 60 0c 6d 6f 76 20  |.V..root..`.mov |
00000630  57 2c 23 30 0d 04 6a 12  61 64 64 20 54 2c 57 2c  |W,#0..j.add T,W,|
00000640  23 31 3c 3c 33 30 0d 04  74 0b 63 6d 70 20 51 2c  |#1<<30..t.cmp Q,|
00000650  54 0d 04 7e 0f 73 75 62  68 73 20 51 2c 51 2c 54  |T..~.subhs Q,Q,T|
00000660  0d 04 88 0d 61 64 63 20  57 2c 57 2c 57 0d 04 92  |....adc W,W,W...|
00000670  05 5d 0d 04 9c 13 e3 20  49 25 3d 32 20 b8 20 33  |.]..... I%=2 . 3|
00000680  30 20 88 20 32 0d 04 a6  0a 5b 4f 50 54 20 50 0d  |0 . 2....[OPT P.|
00000690  04 b0 12 61 64 64 20 54  2c 57 2c 23 31 3c 3c 33  |...add T,W,#1<<3|
000006a0  30 0d 04 ba 13 63 6d 70  20 51 2c 54 2c 52 4f 52  |0....cmp Q,T,ROR|
000006b0  20 23 49 25 0d 04 c4 17  73 75 62 68 73 20 51 2c  | #I%....subhs Q,|
000006c0  51 2c 54 2c 52 4f 52 20  23 49 25 0d 04 ce 0d 61  |Q,T,ROR #I%....a|
000006d0  64 63 20 57 2c 57 2c 57  0d 04 d8 05 5d 0d 04 e2  |dc W,W,W....]...|
000006e0  05 ed 0d 04 ec 0a 5b 4f  50 54 20 50 0d 04 f6 0e  |......[OPT P....|
000006f0  4d 4f 56 20 50 43 2c 52  31 34 0d 05 00 04 0d 05  |MOV PC,R14......|
00000700  0a 0f 2e 74 61 62 6c 65  5f 66 69 6c 6c 0d 05 14  |...table_fill...|
00000710  12 53 54 4d 46 44 20 31  33 21 2c 7b 31 34 7d 0d  |.STMFD 13!,{14}.|
00000720  05 1e 0d 41 44 52 20 45  2c 54 41 42 0d 05 28 0c  |...ADR E,TAB..(.|
00000730  4d 4f 56 20 43 2c 23 30  0d 05 32 09 2e 6c 6f 6f  |MOV C,#0..2..loo|
00000740  70 0d 05 3c 13 4d 4f 56  20 51 2c 43 2c 4c 53 4c  |p..<.MOV Q,C,LSL|
00000750  20 23 31 36 0d 05 46 0b  42 4c 20 72 6f 6f 74 0d  | #16..F.BL root.|
00000760  05 50 10 53 54 52 20 57  2c 5b 45 5d 2c 23 34 0d  |.P.STR W,[E],#4.|
00000770  05 5a 0e 41 44 44 20 43  2c 43 2c 23 31 0d 05 64  |.Z.ADD C,C,#1..d|
00000780  10 43 4d 50 20 43 2c 23  31 3c 3c 31 36 0d 05 6e  |.CMP C,#1<<16..n|
00000790  0c 42 4c 4f 20 6c 6f 6f  70 0d 05 78 10 4d 4f 56  |.BLO loop..x.MOV|
000007a0  20 57 2c 23 31 3c 3c 31  36 0d 05 82 0d 53 54 52  | W,#1<<16....STR|
000007b0  20 57 2c 5b 45 5d 0d 05  8c 12 4c 44 4d 46 44 20  | W,[E]....LDMFD |
000007c0  31 33 21 2c 7b 50 43 7d  0d 05 96 04 0d 05 a0 13  |13!,{PC}........|
000007d0  2e 72 65 61 64 62 61 63  6b 67 72 6f 75 6e 64 0d  |.readbackground.|
000007e0  05 aa 12 41 44 52 20 52  30 2c 53 43 52 45 45 4e  |...ADR R0,SCREEN|
000007f0  31 0d 05 b4 11 41 44 52  20 52 31 2c 53 43 52 45  |1....ADR R1,SCRE|
00000800  45 4e 0d 05 be 1d 53 57  49 20 22 4f 53 5f 52 65  |EN....SWI "OS_Re|
00000810  61 64 56 64 75 56 61 72  69 61 62 6c 65 73 22 0d  |adVduVariables".|
00000820  05 c8 12 4c 44 52 20 53  43 52 2c 53 43 52 45 45  |...LDR SCR,SCREE|
00000830  4e 0d 05 d2 12 4c 44 52  20 42 55 46 2c 42 55 46  |N....LDR BUF,BUF|
00000840  46 45 52 0d 05 dc 16 4d  4f 56 20 45 2c 23 33 32  |FER....MOV E,#32|
00000850  30 2a 32 35 36 2a 73 2a  73 0d 05 e6 0a 2e 72 6c  |0*256*s*s.....rl|
00000860  6f 6f 70 0d 05 f0 18 4c  44 4d 49 41 20 28 53 43  |oop....LDMIA (SC|
00000870  52 29 21 2c 7b 52 32 2d  52 39 7d 0d 05 fa 18 53  |R)!,{R2-R9}....S|
00000880  54 4d 49 41 20 28 42 55  46 29 21 2c 7b 52 32 2d  |TMIA (BUF)!,{R2-|
00000890  52 39 7d 0d 06 04 12 53  55 42 53 20 45 2c 45 2c  |R9}....SUBS E,E,|
000008a0  23 31 36 2a 38 0d 06 0e  0d 42 4e 45 20 72 6c 6f  |#16*8....BNE rlo|
000008b0  6f 70 0d 06 18 0e 4d 4f  56 20 50 43 2c 52 31 34  |op....MOV PC,R14|
000008c0  0d 06 22 04 0d 06 2c 13  2e 73 68 6f 77 62 61 63  |.."...,..showbac|
000008d0  6b 67 72 6f 75 6e 64 0d  06 36 12 41 44 52 20 52  |kground..6.ADR R|
000008e0  30 2c 53 43 52 45 45 4e  31 0d 06 40 11 41 44 52  |0,SCREEN1..@.ADR|
000008f0  20 52 31 2c 53 43 52 45  45 4e 0d 06 4a 1d 53 57  | R1,SCREEN..J.SW|
00000900  49 20 22 4f 53 5f 52 65  61 64 56 64 75 56 61 72  |I "OS_ReadVduVar|
00000910  69 61 62 6c 65 73 22 0d  06 54 12 4c 44 52 20 53  |iables"..T.LDR S|
00000920  43 52 2c 53 43 52 45 45  4e 0d 06 5e 12 4c 44 52  |CR,SCREEN..^.LDR|
00000930  20 42 55 46 2c 42 55 46  46 45 52 0d 06 68 16 4d  | BUF,BUFFER..h.M|
00000940  4f 56 20 45 2c 23 33 32  30 2a 32 35 36 2a 73 2a  |OV E,#320*256*s*|
00000950  73 0d 06 72 0a 2e 73 6c  6f 6f 70 0d 06 7c 18 4c  |s..r..sloop..|.L|
00000960  44 4d 49 41 20 28 42 55  46 29 21 2c 7b 52 32 2d  |DMIA (BUF)!,{R2-|
00000970  52 39 7d 0d 06 86 18 53  54 4d 49 41 20 28 53 43  |R9}....STMIA (SC|
00000980  52 29 21 2c 7b 52 32 2d  52 39 7d 0d 06 90 12 53  |R)!,{R2-R9}....S|
00000990  55 42 53 20 45 2c 45 2c  23 31 36 2a 38 0d 06 9a  |UBS E,E,#16*8...|
000009a0  0d 42 4e 45 20 73 6c 6f  6f 70 0d 06 a4 0e 4d 4f  |.BNE sloop....MO|
000009b0  56 20 50 43 2c 52 31 34  0d 06 ae 08 2e 54 41 42  |V PC,R14.....TAB|
000009c0  0d 06 b8 05 5d 0d 06 c2  05 ed 0d 06 cc 10 d6 20  |....].......... |
000009d0  74 61 62 6c 65 5f 66 69  6c 6c 0d 06 d6 0b e7 20  |table_fill..... |
000009e0  6c 6f 77 20 8c 0d 06 e0  25 2a 53 43 52 45 45 4e  |low ....%*SCREEN|
000009f0  4c 4f 41 44 20 22 3c 4a  75 6c 69 61 6e 24 44 69  |LOAD "<Julian$Di|
00000a00  72 3e 2e 4d 41 4e 44 45  4c 22 0d 06 ea 05 cc 0d  |r>.MANDEL"......|
00000a10  06 f4 26 2a 53 43 52 45  45 4e 4c 4f 41 44 20 22  |..&*SCREENLOAD "|
00000a20  3c 4a 75 6c 69 61 6e 24  44 69 72 3e 2e 48 4d 41  |<Julian$Dir>.HMA|
00000a30  4e 44 45 4c 22 0d 06 fe  05 cd 0d 07 08 11 fb 20  |NDEL".......... |
00000a40  32 2c 30 2c 30 2c 31 32  2a 31 36 0d 07 12 0b fb  |2,0,0,12*16.....|
00000a50  20 31 32 38 2b 32 0d 07  1c 05 87 0d 07 26 0e c8  | 128+2.......&..|
00000a60  91 20 37 36 38 2c 35 31  32 0d 07 30 14 d6 20 72  |. 768,512..0.. r|
00000a70  65 61 64 62 61 63 6b 67  72 6f 75 6e 64 0d 07 3a  |eadbackground..:|
00000a80  0c 2a 50 4f 49 4e 54 45  52 0d 07 44 08 c8 97 20  |.*POINTER..D... |
00000a90  ee 0d 07 4e 1d c8 97 20  c8 93 20 2d 37 36 38 2c  |...N... .. -768,|
00000aa0  2d 35 31 32 2c 31 32 38  30 2c 31 30 32 34 0d 07  |-512,1280,1024..|
00000ab0  58 07 4d 3d 32 0d 07 62  0f 46 25 3d 32 35 36 2a  |X.M=2..b.F%=256*|
00000ac0  36 34 2a 73 0d 07 6c 05  f5 0d 07 76 0f c8 97 20  |64*s..l....v... |
00000ad0  58 25 2c 59 25 2c 5a 25  0d 07 80 1f e7 20 5a 25  |X%,Y%,Z%..... Z%|
00000ae0  3d 30 20 8c 20 55 25 3d  58 25 2a 36 34 3a 56 25  |=0 . U%=X%*64:V%|
00000af0  3d 2d 59 25 2a 36 34 0d  07 8a 08 43 25 3d 30 0d  |=-Y%*64....C%=0.|
00000b00  07 94 08 44 25 3d 30 0d  07 9e 1b e7 20 5a 25 20  |...D%=0..... Z% |
00000b10  8c 20 43 25 3d 58 25 2a  34 3a 44 25 3d 2d 59 25  |. C%=X%*4:D%=-Y%|
00000b20  2a 36 0d 07 a8 0c 41 25  3d 55 25 2b 43 25 0d 07  |*6....A%=U%+C%..|
00000b30  b2 0c 42 25 3d 56 25 2b  44 25 0d 07 bc 16 c8 99  |..B%=V%+D%......|
00000b40  20 22 4f 53 5f 42 79 74  65 22 2c 26 37 30 2c 4d  | "OS_Byte",&70,M|
00000b50  0d 07 c6 14 d6 20 73 68  6f 77 62 61 63 6b 67 72  |..... showbackgr|
00000b60  6f 75 6e 64 0d 07 d0 08  ef 20 33 30 0d 07 da 10  |ound..... 30....|
00000b70  f1 20 22 41 3d 20 22 41  25 2f 46 25 0d 07 e4 11  |. "A= "A%/F%....|
00000b80  f1 20 22 42 3d 20 22 42  25 2f 2d 46 25 0d 07 ee  |. "B= "B%/-F%...|
00000b90  0b d6 20 6a 75 6c 69 61  0d 07 f8 06 c8 96 0d 08  |.. julia........|
00000ba0  02 16 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 26  |.... "OS_Byte",&|
00000bb0  37 31 2c 4d 0d 08 0c 0b  4d 3d 4d 20 82 20 33 0d  |71,M....M=M . 3.|
00000bc0  08 16 07 fd 20 30 0d 08  20 05 e1 0d 08 2a 04 0d  |.... 0.. ....*..|
00000bd0  08 34 04 0d ff                                    |.4...|
00000bd5