� >Trackman
� By Jan Vlietinck

save=�
(RE=�
2
�init(13)
<�
FA$=�((� �) � � 32)
P� help � �help:help=�
ZȎ A$ �
d� "M":�mandle:MAN=�
n� "J":�julia:MAN=�
x� "S":�save
�5� "R":� MAN � �init_mandle(-2,-2,4) � �init_julia
�� "C":�cycle_up
�� "D":�cycle_down
�� "V":VIDEO=� VIDEO
�� "N":�mode_change
�� "Q":� �(-1) �make
�� "H":�help
��
�� 0
��
�
�� �help
�� 5


� 0,Ey-16

'� "The following keys can be used"'

.� "'M' : to generate a mandelbrot fractal"

")� "'J' : to generate a julia fractal"

,+� "'R' : to redraw the initial fractal"

6$� "'D' : to cycle the colors up"

@&� "'C' : to cycle the colors down"

J*� "'V' : to turn on/off the video DMA"

T � "'S' : to save the screen"

^-� "'N' : to change to another video mode"

h!� "'H' : to show this help"''

r� "The mouse buttons are"'

|� "Left   : zoom out"

�� "Right  : zoom in"

�#� "Middle : start generating"''

�0� "Supported modes are: 9,13,20,21,27,28,31"

��4:�

�
help=�

��

�

�� �save

�� 5

�3� 0,Ey-16:� "Enter the name of the screen ? "S$

�3� 0,Ey-16:� "Enter the name of the screen ? "S$

��4:�

�� "SCREENSAVE "+S$
�

� �make
& �init_mandle(-1.5,-1.25,2.5)
0�ASS
:	� set
D
� read
N
Ȏ � �
X� 13
b	� 1:�
l	� set
v� write
�*SCREENSAVE MANDEL
�� 21
�
� 19:�
�	� set
�� write
�*SCREENSAVE HMANDEL
��
��
��
�
�� �mode_change
�RE=�
�� 26
�
� "New mode ";Mode
�init(Mode)
 � Mode<>-1
*� MAN �
4�mandle_redraw
>�
H�julia_redraw
R�
\�
f
p� �mandle_redraw
z!OXD=OX*2^29
�!OYD=OY*2^29
�!FD=SC/Col*2^29
�!DD=ITER
�B� ((!FD) >> 16) <> 0 � !method=iterationL � !method=iterationH
�;� first_mandle � �init_mandle(-2,-2,4) � �_draw(mandle)
�new_mandle=�
��
�
�� �julia_redraw
�!JXD=JX*2^29
�!JYD=JY*2^29
�!JFD=JS/Col*2^29
�!JDD=JITER

!AD=AT

!BD=BT
:� (!JFD >> 20 ) <> 0 � !method=juliaL � !method=juliaH
$0� first_julia � �init_julia � �_draw(mandle)
.RE=�
8�
B
L� �julia
V� choose_julia �
`� new_mandle � save �
j*SCREENSAVE FRACTAL
t�
~�
�ȗ X%,Y%,Z%
�� X%-64,Y%,X%+64,Y%
�� X%,Y%-64,X%,Y%+64
�Ȗ
�� X%-64,Y%,X%+64,Y%
�� X%,Y%-64,X%,Y%+64
�
� Z%=2
�AT=(OX+X%/Ex*SC)*2^29
�BT=(OY+(Ey-Y%)/Ex*SC)*2^29
�
!AD=AT
�
!BD=BT
��init_julia
choose_julia=�

�
first_julia=�
	*FX 5
(W%=Ex/4
2�
<ȗ X%,Y%,Z%
F� Z%=4 � W%+=4
P� Z%=1 � W%-=4
Zȓ X%,Y%,W%,W%*Ratio
dȖ
nȓ X%,Y%,W%,W%*Ratio
x
� Z%=2
�� 26
��  "Iterations ",JITER
�� JITER=0 � JITER=100
�JX=JX+X%/Ex*JS
�"JY=JY+(Ey-(Y%+W%*Ratio))/Ex*JS
�JS=JS*W%/Ex
�!JXD=JX*2^29
�!JYD=JY*2^29
�!JFD=JS/Col*2^29
�!JDD=JITER
�:� (!JFD >> 20 ) <> 0 � !method=juliaL � !method=juliaH
��_draw(mandle)
��
�


� �mandle
"choose_julia=�
,� RE=� �
6�mandle_redraw
@new_mandle=�
JRE=�
T�
^�
h
� MAN=� �
r� save �
|*SCREENLOAD FRACTAL
��
��mandle_redraw
��
�new_mandle=�
��
��
�first_mandle=�
�new_mandle=�
�	*FX 5
�W%=Ex/4
��
�ȗ X%,Y%,Z%
�� Z%=4 � W%+=4
� Z%=1 � W%-=4
ȓ X%,Y%,W%,W%*Ratio
Ȗ
&ȓ X%,Y%,W%,W%*Ratio
0
� Z%=2
:� 26
D�  "Iterations ",ITER
N� ITER=0 � ITER=100
XOX=OX+X%/Ex*SC
b"OY=OY+(Ey-(Y%+W%*Ratio))/Ex*SC
lSC=SC*W%/Ex
v!OXD=OX*2^29
�!OYD=OY*2^29
�!FD=SC/Col*2^29
�!DD=ITER
�B� ((!FD) >> 16) <> 0 � !method=iterationL � !method=iterationH
��_draw(mandle)
��
�
�� �cycle_up
�� Nr_Cols=16 �
�<� N%=1 � CS%:T%=15-CS%+N%:� N%,C1%(T%),C2%(T%),C3%(T%):�
�� CS%<>15 �
�<� N%=CS%+1 � 15:T%=N%-CS%:� N%,C1%(T%),C2%(T%),C3%(T%):�
��
CS%=CS% � 15 +1
�
!CTD=UPCTABLE
 � cycle
*�
4�
>
H� �cycle_down
R� Nr_Cols=16 �
\<� N%=1 � CS%:T%=15-CS%+N%:� N%,C1%(T%),C2%(T%),C3%(T%):�
f� CS%<>15 �
p<� N%=CS%+1 � 15:T%=N%-CS%:� N%,C1%(T%),C2%(T%),C3%(T%):�
z�
�� CS%=1 � CS%=15 � CS%-=1
��
�!CTD=DOWNCTABLE
�� cycle
��
��
�
�� �init(M)
�
Mode=M
�
Ȏ Mode �
�5�  9:Col=320:Row=256:Ex=4*Col:Ey=4*Row:Nr_Cols=16
�5� 20:Col=640:Row=512:Ex=2*Col:Ey=2*Row:Nr_Cols=16
�5� 27:Col=640:Row=480:Ex=2*Col:Ey=2*Row:Nr_Cols=16
	5� 31:Col=800:Row=600:Ex=2*Col:Ey=2*Row:Nr_Cols=16
	<� 13:Col=320:Row=256:Shf=6:Ex=4*Col:Ey=4*Row:Nr_Cols=256
	<� 21:Col=640:Row=512:Shf=7:Ex=2*Col:Ey=2*Row:Nr_Cols=256
	$<� 28:Col=640:Row=480:Shf=7:Ex=2*Col:Ey=2*Row:Nr_Cols=256
	., �"Sorry, mode not supported":Mode=-1:�
	8�
	BRatio=Ey/Ex
	L� � RE �
	V� CTABLE 256
	`� C1%(15),C2%(15),C3%(15)
	j� Q1% 2000
	t� Q2% 2000
	~'� Qjul% 1400:Qjul%=16*(Qjul%�16)+16
	�*� Qmand% 1400:Qmand%=16*(Qmand%�16)+16
	��coltable(CTABLE)
	�
�invtable
	�	�ASS0
	��
	�
� Mode
	�� Nr_Cols=16 �
	�� N%=1 � 15
	�%F1%=24*N%:F2%=F1%+120:F3%=F1%+240
	�C1%(N%)=128*(��F1%+1)
	�C2%(N%)=128*(��F2%+1)
	�C3%(N%)=128*(��F3%+1)
 � N%,C1%(N%),C2%(N%),C3%(N%)

�
�

CS%=15
(�:� 3,63
2*POINTER
<ȗ �
F	�mand
P�jul
Z� Nr_Cols=256 �
d	�ASS1
n�
x	�ASS2
��
�� � RE �
�first_julia=�
�	MAN=�
�VIDEO=�
��init_mandle(-2,-2,4)
�	�help
��
�RE=�
��
�
�� �init_mandle(X,Y,S)
�new_mandle=�
SC=S:OX=X:OY=Y*Ratio+SC/Col
ITER=100
!OXD=OX*2^29
"!OYD=OY*2^29
,!FD=SC/Col*2^29
6!DD=ITER
@!method=iterationL
J�_draw(mandle_half)
Tfirst_mandle=�
^choose_julia=�
h�
r
|� �init_julia
�JX=-1.5:JY=-1.5*Ratio:JS=3
�
JITER=100
�!JXD=JX*2^29
�!JYD=JY*2^29
�!JFD=JS/Col*2^29
�!JDD=JITER
�!method=juliaL
��_draw(julia_half)
�first_julia=�
��
�
�� �_draw(fractal)
�;�ON ERROR IF ERR=17 AND INKEY(-1) THEN END ELSE ENDPROC
�
�=0
� � VIDEO � Video_off
&	� set
0� � fractal � � filler
:� � VIDEO � Video_on
D$� 5:� Ex*(1-84/Col),Ey*(1-4/Row)
N� 63:� �/100:� 4
X�:� 3,63
b	*FX 5
l�
v
�
� �ASS
�
� Q% 2000
�� BUFF Row*Col/4
�CT=0:K=1:H=2:A=3:B=4:X=5:Y=6:W=7:D=8:SCR=9:S=10:CO=11:C=12:BUF=7
�� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
��SCREEN
�
�.BUFFER EQUD BUFF
�	.read
�LDR SCR,screen
�LDR BUF,BUFFER

MOV CO,#Row*Col

MOV S,#255

MOV H,#2

 
.rloop

*MOV K,#0

4LDR T,[SCR],#4

>TST T,S,LSL #8*3

HMOVNE K,H,LSL #2*3

RTST T,S,LSL #8*2

\�RNE K,K,H,LSL #2*2

fTST T,S,LSL #8

p�RNE K,K,H,LSL #2

zTST T,S

��RNE K,K,H

�STRB K,[BUF],#1

�SUBS CO,CO,#4

�
BNE rloop

�MOV PC,R14

�

�
.write

�LDR SCR,screen

�LDR BUF,BUFFER

�MOV CO,#Row*Col

�
.wloop

�LDR T,[BUF],#4

�STR T,[SCR],#4
SUBS CO,CO,#16

BNE wloop
MOV PC,R14
$]
.�
8�
B
L� �ASS0
V� Q%,P%
`� Q% 200
j� PASS=0 � 2 � 2
t	P%=Q%
~
[OPT PASS
�
.Video_on
�
MVN R0,#0
�MOV R1,#1<<10
�SWI "OS_UpdateMEMC"
�MOV PC,R14
�
�.Video_off
�
MOV R0,#0
�MOV R1,#1<<10
�SWI "OS_UpdateMEMC"
�MOV PC,R14
�]
�

�

� �ASS1
(
Q%=Q1%
2CT=0:K=1:H=2:A=3:B=4:X=5:Y=6:W=7:D=8:SCR=9:S=10:CO=11:C=12:SP=13
<� PASS=0 � 2 � 2
F	P%=Q%
P
[OPT PASS
Z�SCREEN
d
n.CTD EQUD 0
x
.cycle
�LDR SCR,screen
�ADD K,SCR,#Row*Col
�MOV H,#255
�
LDR W,CTD
�MOV D,#1<<10
�.cycleloop
�  LDR T,[SCR]
�
  � A,H,T
�
  CMP A,D
�  LDRNEB B,[W,A]
�
  MOV C,B
�  � D,H,T,LSR #8
�
  CMP A,D
  LDRNEB B,[W,D]
  ADD C,C,B,LSL #8
  � A,H,T,LSR #16
"
  CMP A,D
,  LDRNEB B,[W,A]
6  ADD C,C,B,LSL #16
@  � D,H,T,LSR #24
J
  CMP A,D
T  LDRNEB B,[W,D]
^  ADD C,C,B,LSL #24
h  STR C,[SCR],#4
r  CMP SCR,K
|BLO cycleloop
�MOV PC,R14
�
�.filler
�LDR SCR,screen
�ADD K,SCR,#Row*Col
�.vulloop
�  LDR CO,[SCR]
�  �S X,CO,#&000000FF
�  MOVNE T,X
�  CMP T,#255
�
  �Q T,#0
�
  MOV C,T
�  �S X,CO,#&0000FF00
  MOVNE T,X,LSR #8
  CMP T,#255
  �RNE C,C,T,LSL #8
&  �S X,CO,#&00FF0000
0  MOVNE T,X,LSR #16
:  CMP T,#255
D  �RNE C,C,T,LSL #16
N  �S X,CO,#&FF000000
X  MOVNE T,X,LSR #24
b  CMP T,#255
l  �RNE C,C,T,LSL #24
v  STR C,[SCR],#4
�  CMP SCR,K
�BLO vulloop
�MOV PC,R14
�]
��
�	Q%=P%
�� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
�.stack EQUD 0
�.method EQUD iterationL
�.mandle
�#  �_TRACK1(Nr_Cols,Row,Col,Shf)
#  �_TRACK2(Nr_Cols,Row,Col,Shf)
]
�
 
*	Q%=P%
4� PASS=0 � 2 � 2
>	P%=Q%
H
[OPT PASS
R.mandle_half
\(  �_TRACK1(Nr_Cols,Row/2+12,Col,Shf)
f  ADD S,B,B,LSL #2
p  SUB S,A,S,LSL #Shf
z  ADD S,S,#Row*Col
�  SUB S,S,#2*Col
�  STRB T,[S,SCR]
�#  �_TRACK2(Nr_Cols,Row,Col,Shf)
�]
��
�	Q%=P%
�� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
�.julia_half
�%  �_TRACK1(Nr_Cols,Row/2,Col,Shf)
�  RSB S,S,#Row*Col
�  SUB S,S,#1
  SUB S,S,#0
  STRB T,[S,SCR]
#  �_TRACK2(Nr_Cols,Row,Col,Shf)
$]
.�
8�
B
L� �ASS2
V
Q%=Q2%
`HT=0:K=1:H=2:A=3:B=4:X=5:Y=6:W=7:D=8:SCR=9:S=10:CO=11:C=12:SP=13:G=14
j� PASS=0 � 2 � 2
t	P%=Q%
~
[OPT PASS
��SCREEN
�
�.filler
�LDR SCR,screen
�MOV S,#Row
�MOV T,#Col
�
MUL T,S,T
�ADD K,SCR,T,LSR #1
�.vulloop
�  LDR CO,[SCR]
�  �S X,CO,#&0000000F
�  MOVNE T,X
  CMP T,#15


  �Q T,#0

  MOV C,T
  �S X,CO,#&000000F0
(  MOVNE T,X,LSR #4
2  CMP T,#15
<  �RNE C,C,T,LSL #4
F  �S X,CO,#&00000F00
P  MOVNE T,X,LSR #8
Z  CMP T,#15
d  �RNE C,C,T,LSL #8
n  �S X,CO,#&0000F000
x  MOVNE T,X,LSR #12
�  CMP T,#15
�  �RNE C,C,T,LSL #12
�  �S X,CO,#&000F0000
�  MOVNE T,X,LSR #16
�  CMP T,#15
�  �RNE C,C,T,LSL #16
�  �S X,CO,#&00F00000
�  MOVNE T,X,LSR #20
�  CMP T,#15
�  �RNE C,C,T,LSL #20
�  �S X,CO,#&0F000000
�  MOVNE T,X,LSR #24
�  CMP T,#15
  �RNE C,C,T,LSL #24
  �S X,CO,#&F0000000
  MOVNE T,X,LSR #28
"  CMP T,#15
,  �RNE C,C,T,LSL #28
6  STR C,[SCR],#4
@  CMP SCR,K
JBLO vulloop
TMOV PC,R14
^]
h�
r	Q%=P%
|� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
�.stack EQUD 0
�.method EQUD iterationL
�.mandle
�#  �_TRACK1(Nr_Cols,Row,Col,Shf)
�#  �_TRACK2(Nr_Cols,Row,Col,Shf)
�]
��
�	Q%=P%
�� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
.mandle_half
#  �_TRACK1(Nr_Cols,Row,Col,Shf)
  RSB B,B,#Row
&  SUB B,B,#2
0  MOV S,#Col
:  MUL S,B,S
D  ADD S,S,A
N  ADD B,B,#2
X  RSB B,B,#Row
b  STRB G,[SCR,S,LSR #1]
l#  �_TRACK2(Nr_Cols,Row,Col,Shf)
v]
��
�	Q%=P%
�� PASS=0 � 2 � 2
�	P%=Q%
�
[OPT PASS
�.julia_half
�%  �_TRACK1(Nr_Cols,Row/2,Col,Shf)
�  RSB B,B,#Row
�  MOV S,#Col
�  MUL S,B,S
�  SUB S,S,A
�  SUB S,S,#1
�  MOV G,G,LSL #4
  ADD G,G,G,LSR #8
  STRB G,[SCR,S,LSR #1]
  RSB B,B,#Row
 #  �_TRACK2(Nr_Cols,Row,Col,Shf)
*]
4�
>�
H
R
� �SCREEN
\
[OPT PASS
f.screen1 EQUD 148:EQUD -1
p.screen  EQUD 0
z.set
�  ADR R0,screen1
�  ADR R1,screen
�  SWI "OS_ReadVduVariables"
�MOV PC,R14
�	]:=""
�
�#� �_TRACK1(Nr_Cols,Row,Col,Shf)
�
[OPT PASS
�STMFD (SP)!,{14}
�  LDR SCR,screen
�  MOV A,#0
�  MOV B,#0
�  MOV R14,PC
  LDR PC,method
  STRB T,[SCR]
  MOV S,#0
$  STR SP,stack
.  STMFD (SP)!,{S}
8  .while_1
B    LDR T,stack
L    CMP SP,T
V      MVNEQ R0,#0
`      BEQ endwhile_1
j    .track
t      LDMFD (SP)!,{S}
~      MOV D,S,LSR #28
�      BIC S,S,D,LSL #28
�      MOV C,S,LSR #20
�      BIC S,S,C,LSL #20
�      MOV Y,S,LSR #10
�      BIC X,S,Y,LSL #10
�]
�� Nr_Cols=256 �
�
[OPT PASS
�      ADD S,Y,Y,LSL #2
�      ADD S,X,S,LSL #Shf
�      LDRB K,[SCR,S]
�]
�


[OPT PASS
      MOV T,#Col
      MUL S,Y,T
(      ADD S,X,S
2      LDRB K,[SCR,S,LSR #1]
<      TST S,#1
F      BICEQ K,K,#&F0
P      MOVNE K,K,LSR #4
Z]
d�
n
[OPT PASS
x      MOV H,S
�      MOV W,#0
�    .while_2
�      ADD D,D,#5
�      CMP K,#Nr_Cols-1
�        BICEQ D,D,#1
�      MOV CO,#8
�      .loop
�        SUBS CO,CO,#1
�          BEQ endtrack
�        ADD A,X,#1
�        MOV B,Y
�        ADD D,D,#1
�        CMP K,#Nr_Cols-1
          ADDEQ D,D,#1
        � D,D,#%111
        CMP D,#1
"          ADDHS B,Y,#1
,        CMP D,#2
6          SUBHS A,A,#1
@        CMP D,#3
J          SUBHS A,A,#1
T        CMP D,#4
^          SUBHS B,B,#1
h        CMP D,#5
r          SUBHS B,B,#1
|        CMP D,#6
�          ADDHS A,A,#1
�        CMP D,#7
�          ADDHS A,A,#1
�        CMP A,#Col
�        CMPLO B,#Row
�      MVNHS C,#0
�      BHS loop
�]
�� Nr_Cols=256 �
�
[OPT PASS
�        ADD S,B,B,LSL #2
�        ADD S,A,S,LSL #Shf
�         CMP H,S:BEQ endtrack
        LDRB T,[SCR,S]
]
�
&
[OPT PASS
0        MOV T,#Col
:        MUL S,B,T
D        ADD S,S,A
N         CMP H,S:BEQ endtrack
X!        LDRB G,[SCR,S,LSR #1]
b        TST S,#1
l        BICEQ T,G,#&F0
v        MOVNE T,G,LSR #4
�]
��
�
[OPT PASS
�        CMP T,K
�          ADDEQ W,W,#1
�        CMP CO,#5
�        CMPNE W,#8
�          BHI endtrack
�        CMP T,#0
�        BNE endif_3
�          MOV R14,PC
�          LDR PC,method
�]
� Nr_Cols=256 �

[OPT PASS
        STRB T,[S,SCR]
 ]
*�
4
[OPT PASS
>!        LDRB G,[SCR,S,LSR #1]
H        TST S,#1
R        ADDEQ G,G,T
\        ADDNE G,G,T,LSL #4
f!        STRB G,[SCR,S,LSR #1]
p]
z�
�=""
�
�#� �_TRACK2(Nr_Cols,Row,Col,Shf)
�
[OPT PASS
�          CMP T,K
�            �Q W,#0
�          BEQ endif_2
�            CMP T,C
�            BEQ endif_1
�#              ADD S,A,B,LSL #10
�#              ADD S,S,C,LSL #20
�#              ADD S,S,D,LSL #28
�!              STMFD (SP)!,{S}
              MOV C,T
            .endif_1
          .endif_2
$        .endif_3
.        CMP T,K
8      BNE loop
B      MOV X,A
L      MOV Y,B
V    BAL while_2
`    .endtrack
j  SWI "OS_ReadEscapeState"
t  BCC while_1
~  MOV R0,#&7C
�  SWI "OS_Byte"
�  MOV R0,#0
�  .endwhile_1
�  LDR SP,stack
�LDMFD (SP)!,{PC}
�	]:=""
�
�� �coltable(CTABLE)
�	SWP=2
�C=0:M=15
�
� K=0 � M
�$�put(C+(K � %1100)*5.25,K � %11)
�


� T=1 � 3
C=T:M=4*(4-T)-1
�side(  4)
(�side(- 1)
2�side( 16)
<�side(- 4)
F�side(  1)
P�side(-16)
Z�
d�
n
x� �side(RGB)
�
� I=1 � T
�
C+=RGB
�
� SWP=1 �
�
� K=0 � M
�$�put(C+(K � %1100)*5.25,K � %11)
��
��
�� K=M � 0 � -1
�$�put(C+(K � %1100)*5.25,K � %11)
��
��
�SWP=SWP � 3
��
�

� �put(C,T)
"B1=(C>>5) � 1
,B2=(C>>4) � 1
6G1=(C>>3) � 1
@G2=(C>>2) � 1
JR1=(C>>1) � 1
TR2=(C>>0) � 1
^1COL=T+4*(R2+2*(B2+2*(R1+2*(G2+2*(G1+2*B1)))))
h?CTABLE=COL
r
CTABLE+=1
|�
�
�� �invtable
�� UPCTABLE 256
�� DOWNCTABLE 256
�� I=1 � 254
�C=CTABLE?(I)
�UPCTABLE?C=CTABLE?(I+1)
��
�C=CTABLE?(255)
�UPCTABLE?C=CTABLE?(1)
�UPCTABLE?0=0
�� I=2 � 255
�C=CTABLE?(I)
 DOWNCTABLE?C=CTABLE?(I-1)
 �
 C=CTABLE?(1)
 &DOWNCTABLE?C=CTABLE?(255)
 0DOWNCTABLE?0=0
 :�
 D
 N� �mand
 X
Q%=Qmand%
 b2A=3:B=4:H=5:P=6:S=7:U=8:V=9:D=10:M=11:N=12:T=0
 l� PASS=0 � 2 � 2
 v	P%=Q%
 �
[OPT PASS
 �.DD  EQUD 0
 �.OXD EQUD 0
 �.OYD EQUD 0
 �.FD EQUD 0
 �.CT EQUD CTABLE
 �.iterationH
 �STMFD 13!,{1-12}
 �  LDR U,OXD
 �  LDR V,OYD
 �  LDR D,FD
 �  MLA A,D,A,U
 �  MLA B,D,B,V
!
  MOV U,A
!
  MOV V,B
!  LDR D,DD
! 
�fractalH
!*]
!4
� PASS
!>	Q%=P%
!H� PASS=0 � 2 � 2
!R	P%=Q%
!\
[OPT PASS
!f.iterationL
!pSTMFD 13!,{1-12}
!z  LDR U,OXD
!�  LDR V,OYD
!�  LDR D,FD
!�  MLA A,D,A,U
!�  MLA B,D,B,V
!�  MOV A,A,ASR #16
!�  MOV B,B,ASR #16
!�
  MOV U,A
!�
  MOV V,B
!�  LDR D,DD
!�
�fractalL
!�]
!�
� PASS
!��
"
"
� �jul
"Q%=Qjul%
"$2A=3:B=4:H=5:P=6:S=7:U=8:V=9:D=10:M=11:N=12:T=0
".� PASS=0 � 2 � 2
"8	P%=Q%
"B
[OPT PASS
"L.AD EQUD 0
"V.BD EQUD 0
"`.JDD EQUD 0
"j.JXD EQUD 0
"t.JYD EQUD 0
"~.JFD EQUD 0
"�.CT EQUD CTABLE
"�.juliaH
"�STMFD 13!,{1-12}
"�  LDR U,JXD
"�  LDR V,JYD
"�  LDR D,JFD
"�  MLA U,D,A,U
"�  MLA V,D,B,V
"�  LDR A,AD
"�  LDR B,BD
"�  LDR D,JDD
"�  �fractalH
#]
#

� PASS
#	Q%=P%
#� PASS=0 � 2 � 2
#(	P%=Q%
#2
[OPT PASS
#<.juliaL
#FSTMFD 13!,{1-12}
#P  LDR U,JXD
#Z  LDR V,JYD
#d  LDR D,JFD
#n  MLA A,D,A,U
#x  MLA B,D,B,V
#�  MOV U,A,ASR #16
#�  MOV V,B,ASR #16
#�  LDR A,AD
#�  MOV A,A,ASR #16
#�  LDR B,BD
#�  MOV B,B,ASR #16
#�  LDR D,JDD
#�  �fractalL
#�]
#�
� PASS
#��
#�
#�� �fractalL
$
[OPT PASS
$  LDR P,CT
$  .while_2
$"    MOVS H,U
$,      RSBMI H,H,#0
$6    MUL S,H,H
$@    MOVS H,V
$J      RSBMI H,H,#0
$T    MUL T,H,H
$^    ADD H,S,T
$h    CMP H,#4<< 26
$r      BHS break
$|    ADDS N,U,V
$�      RSBMI N,N,#0
$�    MUL M,N,N
$�    SUB H,M,H
$�    ADD V,B,H,ASR #13
$�    SUB U,S,T
$�    ADDS U,A,U,ASR #13
$�    MOVS H,U
$�      RSBMI H,H,#0
$�    MUL S,H,H
$�    MOVS H,V
$�      RSBMI H,H,#0
$�    MUL T,H,H
$�    ADD H,S,T
%    CMP H,#4<< 26
%      BHS break2
%    ADDS N,U,V
%&      RSBMI N,N,#0
%0    MUL M,N,N
%:    SUB H,M,H
%D    ADD V,B,H,ASR #13
%N    SUB U,S,T
%X    ADD U,A,U,ASR #13
%b    SUBS D,D,#2
%l  BNE while_2
%v]
%�� Nr_Cols=16 �
%�
[OPT PASS
%�
MOV T,#15
%�LDMFD 13!,{1-12}
%�MOV PC,R14
%�.break2
%� SUBS D,D,#1
%�
.break
%�ADD D,D,#8
%�  .while_3
%�    CMP D,#14
%�    SUBHI D,D,#14
%�  BHI while_3
&
  MOV T,D
&  LDMFD 13!,{1-12}
&  MOV PC,R14
& ]
&*�
&4
[OPT PASS
&>MOV T,#255
&HLDMFD 13!,{1-12}
&RMOV PC,R14
&\.break2
&f SUBS D,D,#1
&p
.break
&z  ADD D,D,#100
&�  .while_3
&�    CMP D,#254
&�    SUBHI D,D,#254
&�  BHI while_3
&�  CMP D,#15
&�  ADDHS D,D,#1
&�  LDRB T,[P,D]
&�  LDMFD 13!,{1-12}
&�  MOV PC,R14
&�]
&��
&�=""
&�
'� �fractalH
'
[OPT PASS
'  LDR P,CT
'$  .while_2
'.    MOVS H,U
'8      RSBMI H,H,#0
'B    CMP H,#2<<29
'L      BHS break
'V    MOV M,H,LSR #16
'`    BIC N,H,M,LSL #16
'j    MUL H,M,N
't    MUL T,M,M
'~    MOV M,T,LSL #3
'�    ADD S,M,H,LSR #12
'�    MOVS H,V
'�      RSBMI H,H,#0
'�    CMP H,#2<<29
'�      BHS break
'�    MOV M,H,LSR #16
'�    BIC N,H,M,LSL #16
'�    MUL H,M,N
'�    MUL T,M,M
'�    MOV M,T,LSL #3
'�    ADD T,M,H,LSR #12
'�    ADD H,S,T
(    CMP H,#4<<29
(
      BHS break
(    ADDS N,U,V
(      RSBMI N,N,#0
((    MOV M,N,LSR #16
(2    BIC N,N,M,LSL #16
(<    MUL U,M,M
(F    MOV U,U,LSL #3
(P    MUL V,M,N
(Z    ADD M,U,V,LSR #12
(d    SUB H,M,H
(n    ADD V,B,H
(x    SUB U,S,T
(�    ADD U,U,A
(�    SUBS D,D,#1
(�  BNE while_2
(�]
(�� Nr_Cols=16 �
(�
[OPT PASS
(�
MOV T,#15
(�LDMFD 13!,{1-12}
(�MOV PC,R14
(�
.break
(�ADD D,D,#8
(�  .while_3
(�    CMP D,#14
)    SUBHI D,D,#14
)  BHI while_3
)
  MOV T,D
)"  LDMFD 13!,{1-12}
),  MOV PC,R14
)6]
)@�
)J
[OPT PASS
)TMOV T,#255
)^LDMFD 13!,{1-12}
)hMOV PC,R14
)r
.break
)|  ADD D,D,#100
)�  .while_3
)�    CMP D,#254
)�    SUBHI D,D,#254
)�  BHI while_3
)�  CMP D,#15
)�  ADDHS D,D,#1
)�  LDRB T,[P,D]
)�  LDMFD 13!,{1-12}
)�  MOV PC,R14
)�]
)��
)�=""
�

00000000  0d 00 0a 0f f4 20 3e 54  72 61 63 6b 6d 61 6e 0d  |..... >Trackman.|
00000010  00 14 16 f4 20 42 79 20  4a 61 6e 20 56 6c 69 65  |.... By Jan Vlie|
00000020  74 69 6e 63 6b 0d 00 1e  0a 73 61 76 65 3d b9 0d  |tinck....save=..|
00000030  00 28 08 52 45 3d a3 0d  00 32 0d f2 69 6e 69 74  |.(.RE=...2..init|
00000040  28 31 33 29 0d 00 3c 05  f5 0d 00 46 16 41 24 3d  |(13)..<....F.A$=|
00000050  bd 28 28 97 20 be 29 20  80 20 ac 20 33 32 29 0d  |.((. .) . . 32).|
00000060  00 50 19 e7 20 68 65 6c  70 20 8c 20 f2 68 65 6c  |.P.. help . .hel|
00000070  70 3a 68 65 6c 70 3d a3  0d 00 5a 0b c8 8e 20 41  |p:help=...Z... A|
00000080  24 20 ca 0d 00 64 17 c9  20 22 4d 22 3a f2 6d 61  |$ ...d.. "M":.ma|
00000090  6e 64 6c 65 3a 4d 41 4e  3d b9 0d 00 6e 16 c9 20  |ndle:MAN=...n.. |
000000a0  22 4a 22 3a f2 6a 75 6c  69 61 3a 4d 41 4e 3d a3  |"J":.julia:MAN=.|
000000b0  0d 00 78 0f c9 20 22 53  22 3a f2 73 61 76 65 0d  |..x.. "S":.save.|
000000c0  00 82 35 c9 20 22 52 22  3a e7 20 4d 41 4e 20 8c  |..5. "R":. MAN .|
000000d0  20 f2 69 6e 69 74 5f 6d  61 6e 64 6c 65 28 2d 32  | .init_mandle(-2|
000000e0  2c 2d 32 2c 34 29 20 8b  20 f2 69 6e 69 74 5f 6a  |,-2,4) . .init_j|
000000f0  75 6c 69 61 0d 00 8c 13  c9 20 22 43 22 3a f2 63  |ulia..... "C":.c|
00000100  79 63 6c 65 5f 75 70 0d  00 96 15 c9 20 22 44 22  |ycle_up..... "D"|
00000110  3a f2 63 79 63 6c 65 5f  64 6f 77 6e 0d 00 a0 17  |:.cycle_down....|
00000120  c9 20 22 56 22 3a 56 49  44 45 4f 3d ac 20 56 49  |. "V":VIDEO=. VI|
00000130  44 45 4f 0d 00 aa 16 c9  20 22 4e 22 3a f2 6d 6f  |DEO..... "N":.mo|
00000140  64 65 5f 63 68 61 6e 67  65 0d 00 b4 17 c9 20 22  |de_change..... "|
00000150  51 22 3a e7 20 a6 28 2d  31 29 20 f2 6d 61 6b 65  |Q":. .(-1) .make|
00000160  0d 00 be 0f c9 20 22 48  22 3a f2 68 65 6c 70 0d  |..... "H":.help.|
00000170  00 c8 05 cb 0d 00 d2 07  fd 20 30 0d 00 dc 05 e0  |......... 0.....|
00000180  0d 00 e6 04 0d 00 f0 0b  dd 20 f2 68 65 6c 70 0d  |......... .help.|
00000190  00 fa 07 ef 20 35 0d 01  04 0d ec 20 30 2c 45 79  |.... 5..... 0,Ey|
000001a0  2d 31 36 0d 01 0e 27 f1  20 22 54 68 65 20 66 6f  |-16...'. "The fo|
000001b0  6c 6c 6f 77 69 6e 67 20  6b 65 79 73 20 63 61 6e  |llowing keys can|
000001c0  20 62 65 20 75 73 65 64  22 27 0d 01 18 2e f1 20  | be used"'..... |
000001d0  22 27 4d 27 20 3a 20 74  6f 20 67 65 6e 65 72 61  |"'M' : to genera|
000001e0  74 65 20 61 20 6d 61 6e  64 65 6c 62 72 6f 74 20  |te a mandelbrot |
000001f0  66 72 61 63 74 61 6c 22  0d 01 22 29 f1 20 22 27  |fractal".."). "'|
00000200  4a 27 20 3a 20 74 6f 20  67 65 6e 65 72 61 74 65  |J' : to generate|
00000210  20 61 20 6a 75 6c 69 61  20 66 72 61 63 74 61 6c  | a julia fractal|
00000220  22 0d 01 2c 2b f1 20 22  27 52 27 20 3a 20 74 6f  |"..,+. "'R' : to|
00000230  20 72 65 64 72 61 77 20  74 68 65 20 69 6e 69 74  | redraw the init|
00000240  69 61 6c 20 66 72 61 63  74 61 6c 22 0d 01 36 24  |ial fractal"..6$|
00000250  f1 20 22 27 44 27 20 3a  20 74 6f 20 63 79 63 6c  |. "'D' : to cycl|
00000260  65 20 74 68 65 20 63 6f  6c 6f 72 73 20 75 70 22  |e the colors up"|
00000270  0d 01 40 26 f1 20 22 27  43 27 20 3a 20 74 6f 20  |..@&. "'C' : to |
00000280  63 79 63 6c 65 20 74 68  65 20 63 6f 6c 6f 72 73  |cycle the colors|
00000290  20 64 6f 77 6e 22 0d 01  4a 2a f1 20 22 27 56 27  | down"..J*. "'V'|
000002a0  20 3a 20 74 6f 20 74 75  72 6e 20 6f 6e 2f 6f 66  | : to turn on/of|
000002b0  66 20 74 68 65 20 76 69  64 65 6f 20 44 4d 41 22  |f the video DMA"|
000002c0  0d 01 54 20 f1 20 22 27  53 27 20 3a 20 74 6f 20  |..T . "'S' : to |
000002d0  73 61 76 65 20 74 68 65  20 73 63 72 65 65 6e 22  |save the screen"|
000002e0  0d 01 5e 2d f1 20 22 27  4e 27 20 3a 20 74 6f 20  |..^-. "'N' : to |
000002f0  63 68 61 6e 67 65 20 74  6f 20 61 6e 6f 74 68 65  |change to anothe|
00000300  72 20 76 69 64 65 6f 20  6d 6f 64 65 22 0d 01 68  |r video mode"..h|
00000310  21 f1 20 22 27 48 27 20  3a 20 74 6f 20 73 68 6f  |!. "'H' : to sho|
00000320  77 20 74 68 69 73 20 68  65 6c 70 22 27 27 0d 01  |w this help"''..|
00000330  72 1e f1 20 22 54 68 65  20 6d 6f 75 73 65 20 62  |r.. "The mouse b|
00000340  75 74 74 6f 6e 73 20 61  72 65 22 27 0d 01 7c 19  |uttons are"'..|.|
00000350  f1 20 22 4c 65 66 74 20  20 20 3a 20 7a 6f 6f 6d  |. "Left   : zoom|
00000360  20 6f 75 74 22 0d 01 86  18 f1 20 22 52 69 67 68  | out"..... "Righ|
00000370  74 20 20 3a 20 7a 6f 6f  6d 20 69 6e 22 0d 01 90  |t  : zoom in"...|
00000380  23 f1 20 22 4d 69 64 64  6c 65 20 3a 20 73 74 61  |#. "Middle : sta|
00000390  72 74 20 67 65 6e 65 72  61 74 69 6e 67 22 27 27  |rt generating"''|
000003a0  0d 01 9a 30 f1 20 22 53  75 70 70 6f 72 74 65 64  |...0. "Supported|
000003b0  20 6d 6f 64 65 73 20 61  72 65 3a 20 39 2c 31 33  | modes are: 9,13|
000003c0  2c 32 30 2c 32 31 2c 32  37 2c 32 38 2c 33 31 22  |,20,21,27,28,31"|
000003d0  0d 01 a4 08 ef 34 3a 87  0d 01 ae 0a 68 65 6c 70  |.....4:.....help|
000003e0  3d b9 0d 01 b8 05 e1 0d  01 c2 04 0d 01 cc 0b dd  |=...............|
000003f0  20 f2 73 61 76 65 0d 01  d6 07 ef 20 35 0d 01 e0  | .save..... 5...|
00000400  33 ec 20 30 2c 45 79 2d  31 36 3a e8 20 22 45 6e  |3. 0,Ey-16:. "En|
00000410  74 65 72 20 74 68 65 20  6e 61 6d 65 20 6f 66 20  |ter the name of |
00000420  74 68 65 20 73 63 72 65  65 6e 20 3f 20 22 53 24  |the screen ? "S$|
00000430  0d 01 ea 33 ec 20 30 2c  45 79 2d 31 36 3a f1 20  |...3. 0,Ey-16:. |
00000440  22 45 6e 74 65 72 20 74  68 65 20 6e 61 6d 65 20  |"Enter the name |
00000450  6f 66 20 74 68 65 20 73  63 72 65 65 6e 20 3f 20  |of the screen ? |
00000460  22 53 24 0d 01 f4 08 ef  34 3a 87 0d 01 fe 16 ff  |"S$.....4:......|
00000470  20 22 53 43 52 45 45 4e  53 41 56 45 20 22 2b 53  | "SCREENSAVE "+S|
00000480  24 0d 02 08 05 e1 0d 02  12 04 0d 02 1c 0b dd 20  |$.............. |
00000490  f2 6d 61 6b 65 0d 02 26  20 f2 69 6e 69 74 5f 6d  |.make..& .init_m|
000004a0  61 6e 64 6c 65 28 2d 31  2e 35 2c 2d 31 2e 32 35  |andle(-1.5,-1.25|
000004b0  2c 32 2e 35 29 0d 02 30  08 f2 41 53 53 0d 02 3a  |,2.5)..0..ASS..:|
000004c0  09 d6 20 73 65 74 0d 02  44 0a d6 20 72 65 61 64  |.. set..D.. read|
000004d0  0d 02 4e 0a c8 8e 20 eb  20 ca 0d 02 58 08 c9 20  |..N... . ...X.. |
000004e0  31 33 0d 02 62 09 eb 20  31 3a 87 0d 02 6c 09 d6  |13..b.. 1:...l..|
000004f0  20 73 65 74 0d 02 76 0b  d6 20 77 72 69 74 65 0d  | set..v.. write.|
00000500  02 80 16 2a 53 43 52 45  45 4e 53 41 56 45 20 4d  |...*SCREENSAVE M|
00000510  41 4e 44 45 4c 0d 02 8a  08 c9 20 32 31 0d 02 94  |ANDEL..... 21...|
00000520  0a eb 20 31 39 3a 87 0d  02 9e 09 d6 20 73 65 74  |.. 19:...... set|
00000530  0d 02 a8 0b d6 20 77 72  69 74 65 0d 02 b2 17 2a  |..... write....*|
00000540  53 43 52 45 45 4e 53 41  56 45 20 48 4d 41 4e 44  |SCREENSAVE HMAND|
00000550  45 4c 0d 02 bc 05 cb 0d  02 c6 05 e0 0d 02 d0 05  |EL..............|
00000560  e1 0d 02 da 04 0d 02 e4  12 dd 20 f2 6d 6f 64 65  |.......... .mode|
00000570  5f 63 68 61 6e 67 65 0d  02 ee 08 52 45 3d b9 0d  |_change....RE=..|
00000580  02 f8 08 ef 20 32 36 0d  03 02 05 f5 0d 03 0c 16  |.... 26.........|
00000590  e8 20 22 4e 65 77 20 6d  6f 64 65 20 22 3b 4d 6f  |. "New mode ";Mo|
000005a0  64 65 0d 03 16 0f f2 69  6e 69 74 28 4d 6f 64 65  |de.....init(Mode|
000005b0  29 0d 03 20 0e fd 20 4d  6f 64 65 3c 3e 2d 31 0d  |).. .. Mode<>-1.|
000005c0  03 2a 0b e7 20 4d 41 4e  20 8c 0d 03 34 12 f2 6d  |.*.. MAN ...4..m|
000005d0  61 6e 64 6c 65 5f 72 65  64 72 61 77 0d 03 3e 05  |andle_redraw..>.|
000005e0  cc 0d 03 48 11 f2 6a 75  6c 69 61 5f 72 65 64 72  |...H..julia_redr|
000005f0  61 77 0d 03 52 05 cd 0d  03 5c 05 e1 0d 03 66 04  |aw..R....\....f.|
00000600  0d 03 70 14 dd 20 f2 6d  61 6e 64 6c 65 5f 72 65  |..p.. .mandle_re|
00000610  64 72 61 77 0d 03 7a 10  21 4f 58 44 3d 4f 58 2a  |draw..z.!OXD=OX*|
00000620  32 5e 32 39 0d 03 84 10  21 4f 59 44 3d 4f 59 2a  |2^29....!OYD=OY*|
00000630  32 5e 32 39 0d 03 8e 13  21 46 44 3d 53 43 2f 43  |2^29....!FD=SC/C|
00000640  6f 6c 2a 32 5e 32 39 0d  03 98 0c 21 44 44 3d 49  |ol*2^29....!DD=I|
00000650  54 45 52 0d 03 a2 42 e7  20 28 28 21 46 44 29 20  |TER...B. ((!FD) |
00000660  3e 3e 20 31 36 29 20 3c  3e 20 30 20 8c 20 21 6d  |>> 16) <> 0 . !m|
00000670  65 74 68 6f 64 3d 69 74  65 72 61 74 69 6f 6e 4c  |ethod=iterationL|
00000680  20 8b 20 21 6d 65 74 68  6f 64 3d 69 74 65 72 61  | . !method=itera|
00000690  74 69 6f 6e 48 0d 03 ac  3b e7 20 66 69 72 73 74  |tionH...;. first|
000006a0  5f 6d 61 6e 64 6c 65 20  8c 20 f2 69 6e 69 74 5f  |_mandle . .init_|
000006b0  6d 61 6e 64 6c 65 28 2d  32 2c 2d 32 2c 34 29 20  |mandle(-2,-2,4) |
000006c0  8b 20 f2 5f 64 72 61 77  28 6d 61 6e 64 6c 65 29  |. ._draw(mandle)|
000006d0  0d 03 b6 10 6e 65 77 5f  6d 61 6e 64 6c 65 3d b9  |....new_mandle=.|
000006e0  0d 03 c0 05 e1 0d 03 ca  04 0d 03 d4 13 dd 20 f2  |.............. .|
000006f0  6a 75 6c 69 61 5f 72 65  64 72 61 77 0d 03 de 10  |julia_redraw....|
00000700  21 4a 58 44 3d 4a 58 2a  32 5e 32 39 0d 03 e8 10  |!JXD=JX*2^29....|
00000710  21 4a 59 44 3d 4a 59 2a  32 5e 32 39 0d 03 f2 14  |!JYD=JY*2^29....|
00000720  21 4a 46 44 3d 4a 53 2f  43 6f 6c 2a 32 5e 32 39  |!JFD=JS/Col*2^29|
00000730  0d 03 fc 0e 21 4a 44 44  3d 4a 49 54 45 52 0d 04  |....!JDD=JITER..|
00000740  06 0a 21 41 44 3d 41 54  0d 04 10 0a 21 42 44 3d  |..!AD=AT....!BD=|
00000750  42 54 0d 04 1a 3a e7 20  28 21 4a 46 44 20 3e 3e  |BT...:. (!JFD >>|
00000760  20 32 30 20 29 20 3c 3e  20 30 20 8c 20 21 6d 65  | 20 ) <> 0 . !me|
00000770  74 68 6f 64 3d 6a 75 6c  69 61 4c 20 8b 20 21 6d  |thod=juliaL . !m|
00000780  65 74 68 6f 64 3d 6a 75  6c 69 61 48 0d 04 24 30  |ethod=juliaH..$0|
00000790  e7 20 66 69 72 73 74 5f  6a 75 6c 69 61 20 8c 20  |. first_julia . |
000007a0  f2 69 6e 69 74 5f 6a 75  6c 69 61 20 8b 20 f2 5f  |.init_julia . ._|
000007b0  64 72 61 77 28 6d 61 6e  64 6c 65 29 0d 04 2e 08  |draw(mandle)....|
000007c0  52 45 3d b9 0d 04 38 05  e1 0d 04 42 04 0d 04 4c  |RE=...8....B...L|
000007d0  0c dd 20 f2 6a 75 6c 69  61 0d 04 56 14 e7 20 63  |.. .julia..V.. c|
000007e0  68 6f 6f 73 65 5f 6a 75  6c 69 61 20 8c 0d 04 60  |hoose_julia ...`|
000007f0  19 e7 20 6e 65 77 5f 6d  61 6e 64 6c 65 20 80 20  |.. new_mandle . |
00000800  73 61 76 65 20 8c 0d 04  6a 17 2a 53 43 52 45 45  |save ...j.*SCREE|
00000810  4e 53 41 56 45 20 46 52  41 43 54 41 4c 0d 04 74  |NSAVE FRACTAL..t|
00000820  05 cd 0d 04 7e 05 f5 0d  04 88 0f c8 97 20 58 25  |....~........ X%|
00000830  2c 59 25 2c 5a 25 0d 04  92 17 86 20 58 25 2d 36  |,Y%,Z%..... X%-6|
00000840  34 2c 59 25 2c 58 25 2b  36 34 2c 59 25 0d 04 9c  |4,Y%,X%+64,Y%...|
00000850  17 86 20 58 25 2c 59 25  2d 36 34 2c 58 25 2c 59  |.. X%,Y%-64,X%,Y|
00000860  25 2b 36 34 0d 04 a6 06  c8 96 0d 04 b0 17 86 20  |%+64........... |
00000870  58 25 2d 36 34 2c 59 25  2c 58 25 2b 36 34 2c 59  |X%-64,Y%,X%+64,Y|
00000880  25 0d 04 ba 17 86 20 58  25 2c 59 25 2d 36 34 2c  |%..... X%,Y%-64,|
00000890  58 25 2c 59 25 2b 36 34  0d 04 c4 0a fd 20 5a 25  |X%,Y%+64..... Z%|
000008a0  3d 32 0d 04 ce 19 41 54  3d 28 4f 58 2b 58 25 2f  |=2....AT=(OX+X%/|
000008b0  45 78 2a 53 43 29 2a 32  5e 32 39 0d 04 d8 1e 42  |Ex*SC)*2^29....B|
000008c0  54 3d 28 4f 59 2b 28 45  79 2d 59 25 29 2f 45 78  |T=(OY+(Ey-Y%)/Ex|
000008d0  2a 53 43 29 2a 32 5e 32  39 0d 04 e2 0a 21 41 44  |*SC)*2^29....!AD|
000008e0  3d 41 54 0d 04 ec 0a 21  42 44 3d 42 54 0d 04 f6  |=AT....!BD=BT...|
000008f0  0f f2 69 6e 69 74 5f 6a  75 6c 69 61 0d 05 00 12  |..init_julia....|
00000900  63 68 6f 6f 73 65 5f 6a  75 6c 69 61 3d a3 0d 05  |choose_julia=...|
00000910  0a 05 cc 0d 05 14 11 66  69 72 73 74 5f 6a 75 6c  |.......first_jul|
00000920  69 61 3d a3 0d 05 1e 09  2a 46 58 20 35 0d 05 28  |ia=.....*FX 5..(|
00000930  0b 57 25 3d 45 78 2f 34  0d 05 32 05 f5 0d 05 3c  |.W%=Ex/4..2....<|
00000940  0f c8 97 20 58 25 2c 59  25 2c 5a 25 0d 05 46 12  |... X%,Y%,Z%..F.|
00000950  e7 20 5a 25 3d 34 20 8c  20 57 25 2b 3d 34 0d 05  |. Z%=4 . W%+=4..|
00000960  50 12 e7 20 5a 25 3d 31  20 8c 20 57 25 2d 3d 34  |P.. Z%=1 . W%-=4|
00000970  0d 05 5a 18 c8 93 20 58  25 2c 59 25 2c 57 25 2c  |..Z... X%,Y%,W%,|
00000980  57 25 2a 52 61 74 69 6f  0d 05 64 06 c8 96 0d 05  |W%*Ratio..d.....|
00000990  6e 18 c8 93 20 58 25 2c  59 25 2c 57 25 2c 57 25  |n... X%,Y%,W%,W%|
000009a0  2a 52 61 74 69 6f 0d 05  78 0a fd 20 5a 25 3d 32  |*Ratio..x.. Z%=2|
000009b0  0d 05 82 08 ef 20 32 36  0d 05 8c 1a e8 20 20 22  |..... 26.....  "|
000009c0  49 74 65 72 61 74 69 6f  6e 73 20 22 2c 4a 49 54  |Iterations ",JIT|
000009d0  45 52 0d 05 96 19 e7 20  4a 49 54 45 52 3d 30 20  |ER..... JITER=0 |
000009e0  8c 20 4a 49 54 45 52 3d  31 30 30 0d 05 a0 12 4a  |. JITER=100....J|
000009f0  58 3d 4a 58 2b 58 25 2f  45 78 2a 4a 53 0d 05 aa  |X=JX+X%/Ex*JS...|
00000a00  22 4a 59 3d 4a 59 2b 28  45 79 2d 28 59 25 2b 57  |"JY=JY+(Ey-(Y%+W|
00000a10  25 2a 52 61 74 69 6f 29  29 2f 45 78 2a 4a 53 0d  |%*Ratio))/Ex*JS.|
00000a20  05 b4 0f 4a 53 3d 4a 53  2a 57 25 2f 45 78 0d 05  |...JS=JS*W%/Ex..|
00000a30  be 10 21 4a 58 44 3d 4a  58 2a 32 5e 32 39 0d 05  |..!JXD=JX*2^29..|
00000a40  c8 10 21 4a 59 44 3d 4a  59 2a 32 5e 32 39 0d 05  |..!JYD=JY*2^29..|
00000a50  d2 14 21 4a 46 44 3d 4a  53 2f 43 6f 6c 2a 32 5e  |..!JFD=JS/Col*2^|
00000a60  32 39 0d 05 dc 0e 21 4a  44 44 3d 4a 49 54 45 52  |29....!JDD=JITER|
00000a70  0d 05 e6 3a e7 20 28 21  4a 46 44 20 3e 3e 20 32  |...:. (!JFD >> 2|
00000a80  30 20 29 20 3c 3e 20 30  20 8c 20 21 6d 65 74 68  |0 ) <> 0 . !meth|
00000a90  6f 64 3d 6a 75 6c 69 61  4c 20 8b 20 21 6d 65 74  |od=juliaL . !met|
00000aa0  68 6f 64 3d 6a 75 6c 69  61 48 0d 05 f0 12 f2 5f  |hod=juliaH....._|
00000ab0  64 72 61 77 28 6d 61 6e  64 6c 65 29 0d 05 fa 05  |draw(mandle)....|
00000ac0  cd 0d 06 04 05 e1 0d 06  0e 04 0d 06 18 0d dd 20  |............... |
00000ad0  f2 6d 61 6e 64 6c 65 0d  06 22 12 63 68 6f 6f 73  |.mandle..".choos|
00000ae0  65 5f 6a 75 6c 69 61 3d  b9 0d 06 2c 0c e7 20 52  |e_julia=...,.. R|
00000af0  45 3d b9 20 8c 0d 06 36  12 f2 6d 61 6e 64 6c 65  |E=. ...6..mandle|
00000b00  5f 72 65 64 72 61 77 0d  06 40 10 6e 65 77 5f 6d  |_redraw..@.new_m|
00000b10  61 6e 64 6c 65 3d b9 0d  06 4a 08 52 45 3d a3 0d  |andle=...J.RE=..|
00000b20  06 54 05 e1 0d 06 5e 05  cd 0d 06 68 0d e7 20 4d  |.T....^....h.. M|
00000b30  41 4e 3d a3 20 8c 0d 06  72 0c e7 20 73 61 76 65  |AN=. ...r.. save|
00000b40  20 8c 0d 06 7c 17 2a 53  43 52 45 45 4e 4c 4f 41  | ...|.*SCREENLOA|
00000b50  44 20 46 52 41 43 54 41  4c 0d 06 86 05 cc 0d 06  |D FRACTAL.......|
00000b60  90 12 f2 6d 61 6e 64 6c  65 5f 72 65 64 72 61 77  |...mandle_redraw|
00000b70  0d 06 9a 05 cd 0d 06 a4  10 6e 65 77 5f 6d 61 6e  |.........new_man|
00000b80  64 6c 65 3d a3 0d 06 ae  05 e1 0d 06 b8 05 cd 0d  |dle=............|
00000b90  06 c2 12 66 69 72 73 74  5f 6d 61 6e 64 6c 65 3d  |...first_mandle=|
00000ba0  a3 0d 06 cc 10 6e 65 77  5f 6d 61 6e 64 6c 65 3d  |.....new_mandle=|
00000bb0  b9 0d 06 d6 09 2a 46 58  20 35 0d 06 e0 0b 57 25  |.....*FX 5....W%|
00000bc0  3d 45 78 2f 34 0d 06 ea  05 f5 0d 06 f4 0f c8 97  |=Ex/4...........|
00000bd0  20 58 25 2c 59 25 2c 5a  25 0d 06 fe 12 e7 20 5a  | X%,Y%,Z%..... Z|
00000be0  25 3d 34 20 8c 20 57 25  2b 3d 34 0d 07 08 12 e7  |%=4 . W%+=4.....|
00000bf0  20 5a 25 3d 31 20 8c 20  57 25 2d 3d 34 0d 07 12  | Z%=1 . W%-=4...|
00000c00  18 c8 93 20 58 25 2c 59  25 2c 57 25 2c 57 25 2a  |... X%,Y%,W%,W%*|
00000c10  52 61 74 69 6f 0d 07 1c  06 c8 96 0d 07 26 18 c8  |Ratio........&..|
00000c20  93 20 58 25 2c 59 25 2c  57 25 2c 57 25 2a 52 61  |. X%,Y%,W%,W%*Ra|
00000c30  74 69 6f 0d 07 30 0a fd  20 5a 25 3d 32 0d 07 3a  |tio..0.. Z%=2..:|
00000c40  08 ef 20 32 36 0d 07 44  19 e8 20 20 22 49 74 65  |.. 26..D..  "Ite|
00000c50  72 61 74 69 6f 6e 73 20  22 2c 49 54 45 52 0d 07  |rations ",ITER..|
00000c60  4e 17 e7 20 49 54 45 52  3d 30 20 8c 20 49 54 45  |N.. ITER=0 . ITE|
00000c70  52 3d 31 30 30 0d 07 58  12 4f 58 3d 4f 58 2b 58  |R=100..X.OX=OX+X|
00000c80  25 2f 45 78 2a 53 43 0d  07 62 22 4f 59 3d 4f 59  |%/Ex*SC..b"OY=OY|
00000c90  2b 28 45 79 2d 28 59 25  2b 57 25 2a 52 61 74 69  |+(Ey-(Y%+W%*Rati|
00000ca0  6f 29 29 2f 45 78 2a 53  43 0d 07 6c 0f 53 43 3d  |o))/Ex*SC..l.SC=|
00000cb0  53 43 2a 57 25 2f 45 78  0d 07 76 10 21 4f 58 44  |SC*W%/Ex..v.!OXD|
00000cc0  3d 4f 58 2a 32 5e 32 39  0d 07 80 10 21 4f 59 44  |=OX*2^29....!OYD|
00000cd0  3d 4f 59 2a 32 5e 32 39  0d 07 8a 13 21 46 44 3d  |=OY*2^29....!FD=|
00000ce0  53 43 2f 43 6f 6c 2a 32  5e 32 39 0d 07 94 0c 21  |SC/Col*2^29....!|
00000cf0  44 44 3d 49 54 45 52 0d  07 9e 42 e7 20 28 28 21  |DD=ITER...B. ((!|
00000d00  46 44 29 20 3e 3e 20 31  36 29 20 3c 3e 20 30 20  |FD) >> 16) <> 0 |
00000d10  8c 20 21 6d 65 74 68 6f  64 3d 69 74 65 72 61 74  |. !method=iterat|
00000d20  69 6f 6e 4c 20 8b 20 21  6d 65 74 68 6f 64 3d 69  |ionL . !method=i|
00000d30  74 65 72 61 74 69 6f 6e  48 0d 07 a8 12 f2 5f 64  |terationH....._d|
00000d40  72 61 77 28 6d 61 6e 64  6c 65 29 0d 07 b2 05 e1  |raw(mandle).....|
00000d50  0d 07 bc 04 0d 07 c6 0f  dd 20 f2 63 79 63 6c 65  |......... .cycle|
00000d60  5f 75 70 0d 07 d0 12 e7  20 4e 72 5f 43 6f 6c 73  |_up..... Nr_Cols|
00000d70  3d 31 36 20 8c 0d 07 da  3c e3 20 4e 25 3d 31 20  |=16 ....<. N%=1 |
00000d80  b8 20 43 53 25 3a 54 25  3d 31 35 2d 43 53 25 2b  |. CS%:T%=15-CS%+|
00000d90  4e 25 3a fb 20 4e 25 2c  43 31 25 28 54 25 29 2c  |N%:. N%,C1%(T%),|
00000da0  43 32 25 28 54 25 29 2c  43 33 25 28 54 25 29 3a  |C2%(T%),C3%(T%):|
00000db0  ed 0d 07 e4 0f e7 20 43  53 25 3c 3e 31 35 20 8c  |...... CS%<>15 .|
00000dc0  0d 07 ee 3c e3 20 4e 25  3d 43 53 25 2b 31 20 b8  |...<. N%=CS%+1 .|
00000dd0  20 31 35 3a 54 25 3d 4e  25 2d 43 53 25 3a fb 20  | 15:T%=N%-CS%:. |
00000de0  4e 25 2c 43 31 25 28 54  25 29 2c 43 32 25 28 54  |N%,C1%(T%),C2%(T|
00000df0  25 29 2c 43 33 25 28 54  25 29 3a ed 0d 07 f8 05  |%),C3%(T%):.....|
00000e00  cd 0d 08 02 13 43 53 25  3d 43 53 25 20 83 20 31  |.....CS%=CS% . 1|
00000e10  35 20 2b 31 0d 08 0c 05  cc 0d 08 16 11 21 43 54  |5 +1.........!CT|
00000e20  44 3d 55 50 43 54 41 42  4c 45 0d 08 20 0b d6 20  |D=UPCTABLE.. .. |
00000e30  63 79 63 6c 65 0d 08 2a  05 cd 0d 08 34 05 e1 0d  |cycle..*....4...|
00000e40  08 3e 04 0d 08 48 11 dd  20 f2 63 79 63 6c 65 5f  |.>...H.. .cycle_|
00000e50  64 6f 77 6e 0d 08 52 12  e7 20 4e 72 5f 43 6f 6c  |down..R.. Nr_Col|
00000e60  73 3d 31 36 20 8c 0d 08  5c 3c e3 20 4e 25 3d 31  |s=16 ...\<. N%=1|
00000e70  20 b8 20 43 53 25 3a 54  25 3d 31 35 2d 43 53 25  | . CS%:T%=15-CS%|
00000e80  2b 4e 25 3a fb 20 4e 25  2c 43 31 25 28 54 25 29  |+N%:. N%,C1%(T%)|
00000e90  2c 43 32 25 28 54 25 29  2c 43 33 25 28 54 25 29  |,C2%(T%),C3%(T%)|
00000ea0  3a ed 0d 08 66 0f e7 20  43 53 25 3c 3e 31 35 20  |:...f.. CS%<>15 |
00000eb0  8c 0d 08 70 3c e3 20 4e  25 3d 43 53 25 2b 31 20  |...p<. N%=CS%+1 |
00000ec0  b8 20 31 35 3a 54 25 3d  4e 25 2d 43 53 25 3a fb  |. 15:T%=N%-CS%:.|
00000ed0  20 4e 25 2c 43 31 25 28  54 25 29 2c 43 32 25 28  | N%,C1%(T%),C2%(|
00000ee0  54 25 29 2c 43 33 25 28  54 25 29 3a ed 0d 08 7a  |T%),C3%(T%):...z|
00000ef0  05 cd 0d 08 84 1d e7 20  43 53 25 3d 31 20 8c 20  |....... CS%=1 . |
00000f00  43 53 25 3d 31 35 20 8b  20 43 53 25 2d 3d 31 0d  |CS%=15 . CS%-=1.|
00000f10  08 8e 05 cc 0d 08 98 13  21 43 54 44 3d 44 4f 57  |........!CTD=DOW|
00000f20  4e 43 54 41 42 4c 45 0d  08 a2 0b d6 20 63 79 63  |NCTABLE..... cyc|
00000f30  6c 65 0d 08 ac 05 cd 0d  08 b6 05 e1 0d 08 c0 04  |le..............|
00000f40  0d 08 ca 0e dd 20 f2 69  6e 69 74 28 4d 29 0d 08  |..... .init(M)..|
00000f50  d4 0a 4d 6f 64 65 3d 4d  0d 08 de 0d c8 8e 20 4d  |..Mode=M...... M|
00000f60  6f 64 65 20 ca 0d 08 e8  35 c9 20 20 39 3a 43 6f  |ode ....5.  9:Co|
00000f70  6c 3d 33 32 30 3a 52 6f  77 3d 32 35 36 3a 45 78  |l=320:Row=256:Ex|
00000f80  3d 34 2a 43 6f 6c 3a 45  79 3d 34 2a 52 6f 77 3a  |=4*Col:Ey=4*Row:|
00000f90  4e 72 5f 43 6f 6c 73 3d  31 36 0d 08 f2 35 c9 20  |Nr_Cols=16...5. |
00000fa0  32 30 3a 43 6f 6c 3d 36  34 30 3a 52 6f 77 3d 35  |20:Col=640:Row=5|
00000fb0  31 32 3a 45 78 3d 32 2a  43 6f 6c 3a 45 79 3d 32  |12:Ex=2*Col:Ey=2|
00000fc0  2a 52 6f 77 3a 4e 72 5f  43 6f 6c 73 3d 31 36 0d  |*Row:Nr_Cols=16.|
00000fd0  08 fc 35 c9 20 32 37 3a  43 6f 6c 3d 36 34 30 3a  |..5. 27:Col=640:|
00000fe0  52 6f 77 3d 34 38 30 3a  45 78 3d 32 2a 43 6f 6c  |Row=480:Ex=2*Col|
00000ff0  3a 45 79 3d 32 2a 52 6f  77 3a 4e 72 5f 43 6f 6c  |:Ey=2*Row:Nr_Col|
00001000  73 3d 31 36 0d 09 06 35  c9 20 33 31 3a 43 6f 6c  |s=16...5. 31:Col|
00001010  3d 38 30 30 3a 52 6f 77  3d 36 30 30 3a 45 78 3d  |=800:Row=600:Ex=|
00001020  32 2a 43 6f 6c 3a 45 79  3d 32 2a 52 6f 77 3a 4e  |2*Col:Ey=2*Row:N|
00001030  72 5f 43 6f 6c 73 3d 31  36 0d 09 10 3c c9 20 31  |r_Cols=16...<. 1|
00001040  33 3a 43 6f 6c 3d 33 32  30 3a 52 6f 77 3d 32 35  |3:Col=320:Row=25|
00001050  36 3a 53 68 66 3d 36 3a  45 78 3d 34 2a 43 6f 6c  |6:Shf=6:Ex=4*Col|
00001060  3a 45 79 3d 34 2a 52 6f  77 3a 4e 72 5f 43 6f 6c  |:Ey=4*Row:Nr_Col|
00001070  73 3d 32 35 36 0d 09 1a  3c c9 20 32 31 3a 43 6f  |s=256...<. 21:Co|
00001080  6c 3d 36 34 30 3a 52 6f  77 3d 35 31 32 3a 53 68  |l=640:Row=512:Sh|
00001090  66 3d 37 3a 45 78 3d 32  2a 43 6f 6c 3a 45 79 3d  |f=7:Ex=2*Col:Ey=|
000010a0  32 2a 52 6f 77 3a 4e 72  5f 43 6f 6c 73 3d 32 35  |2*Row:Nr_Cols=25|
000010b0  36 0d 09 24 3c c9 20 32  38 3a 43 6f 6c 3d 36 34  |6..$<. 28:Col=64|
000010c0  30 3a 52 6f 77 3d 34 38  30 3a 53 68 66 3d 37 3a  |0:Row=480:Shf=7:|
000010d0  45 78 3d 32 2a 43 6f 6c  3a 45 79 3d 32 2a 52 6f  |Ex=2*Col:Ey=2*Ro|
000010e0  77 3a 4e 72 5f 43 6f 6c  73 3d 32 35 36 0d 09 2e  |w:Nr_Cols=256...|
000010f0  2c 7f 20 f1 22 53 6f 72  72 79 2c 20 6d 6f 64 65  |,. ."Sorry, mode|
00001100  20 6e 6f 74 20 73 75 70  70 6f 72 74 65 64 22 3a  | not supported":|
00001110  4d 6f 64 65 3d 2d 31 3a  e1 0d 09 38 05 cb 0d 09  |Mode=-1:...8....|
00001120  42 0f 52 61 74 69 6f 3d  45 79 2f 45 78 0d 09 4c  |B.Ratio=Ey/Ex..L|
00001130  0c e7 20 ac 20 52 45 20  8c 0d 09 56 10 de 20 43  |.. . RE ...V.. C|
00001140  54 41 42 4c 45 20 32 35  36 0d 09 60 1d de 20 43  |TABLE 256..`.. C|
00001150  31 25 28 31 35 29 2c 43  32 25 28 31 35 29 2c 43  |1%(15),C2%(15),C|
00001160  33 25 28 31 35 29 0d 09  6a 0e de 20 51 31 25 20  |3%(15)..j.. Q1% |
00001170  32 30 30 30 0d 09 74 0e  de 20 51 32 25 20 32 30  |2000..t.. Q2% 20|
00001180  30 30 0d 09 7e 27 de 20  51 6a 75 6c 25 20 31 34  |00..~'. Qjul% 14|
00001190  30 30 3a 51 6a 75 6c 25  3d 31 36 2a 28 51 6a 75  |00:Qjul%=16*(Qju|
000011a0  6c 25 81 31 36 29 2b 31  36 0d 09 88 2a de 20 51  |l%.16)+16...*. Q|
000011b0  6d 61 6e 64 25 20 31 34  30 30 3a 51 6d 61 6e 64  |mand% 1400:Qmand|
000011c0  25 3d 31 36 2a 28 51 6d  61 6e 64 25 81 31 36 29  |%=16*(Qmand%.16)|
000011d0  2b 31 36 0d 09 92 15 f2  63 6f 6c 74 61 62 6c 65  |+16.....coltable|
000011e0  28 43 54 41 42 4c 45 29  0d 09 9c 0d f2 69 6e 76  |(CTABLE).....inv|
000011f0  74 61 62 6c 65 0d 09 a6  09 f2 41 53 53 30 0d 09  |table.....ASS0..|
00001200  b0 05 cd 0d 09 ba 0a eb  20 4d 6f 64 65 0d 09 c4  |........ Mode...|
00001210  12 e7 20 4e 72 5f 43 6f  6c 73 3d 31 36 20 8c 0d  |.. Nr_Cols=16 ..|
00001220  09 ce 0f e3 20 4e 25 3d  31 20 b8 20 31 35 0d 09  |.... N%=1 . 15..|
00001230  d8 25 46 31 25 3d 32 34  2a 4e 25 3a 46 32 25 3d  |.%F1%=24*N%:F2%=|
00001240  46 31 25 2b 31 32 30 3a  46 33 25 3d 46 31 25 2b  |F1%+120:F3%=F1%+|
00001250  32 34 30 0d 09 e2 19 43  31 25 28 4e 25 29 3d 31  |240....C1%(N%)=1|
00001260  32 38 2a 28 b5 b2 46 31  25 2b 31 29 0d 09 ec 19  |28*(..F1%+1)....|
00001270  43 32 25 28 4e 25 29 3d  31 32 38 2a 28 b5 b2 46  |C2%(N%)=128*(..F|
00001280  32 25 2b 31 29 0d 09 f6  19 43 33 25 28 4e 25 29  |2%+1)....C3%(N%)|
00001290  3d 31 32 38 2a 28 b5 b2  46 33 25 2b 31 29 0d 0a  |=128*(..F3%+1)..|
000012a0  00 20 fb 20 4e 25 2c 43  31 25 28 4e 25 29 2c 43  |. . N%,C1%(N%),C|
000012b0  32 25 28 4e 25 29 2c 43  33 25 28 4e 25 29 0d 0a  |2%(N%),C3%(N%)..|
000012c0  0a 05 ed 0d 0a 14 05 cd  0d 0a 1e 0a 43 53 25 3d  |............CS%=|
000012d0  31 35 0d 0a 28 0c 87 3a  e6 20 33 2c 36 33 0d 0a  |15..(..:. 3,63..|
000012e0  32 0c 2a 50 4f 49 4e 54  45 52 0d 0a 3c 08 c8 97  |2.*POINTER..<...|
000012f0  20 ee 0d 0a 46 09 f2 6d  61 6e 64 0d 0a 50 08 f2  | ...F..mand..P..|
00001300  6a 75 6c 0d 0a 5a 13 e7  20 4e 72 5f 43 6f 6c 73  |jul..Z.. Nr_Cols|
00001310  3d 32 35 36 20 8c 0d 0a  64 09 f2 41 53 53 31 0d  |=256 ...d..ASS1.|
00001320  0a 6e 05 cc 0d 0a 78 09  f2 41 53 53 32 0d 0a 82  |.n....x..ASS2...|
00001330  05 cd 0d 0a 8c 0c e7 20  ac 20 52 45 20 8c 0d 0a  |....... . RE ...|
00001340  96 11 66 69 72 73 74 5f  6a 75 6c 69 61 3d b9 0d  |..first_julia=..|
00001350  0a a0 09 4d 41 4e 3d b9  0d 0a aa 0b 56 49 44 45  |...MAN=.....VIDE|
00001360  4f 3d b9 0d 0a b4 19 f2  69 6e 69 74 5f 6d 61 6e  |O=......init_man|
00001370  64 6c 65 28 2d 32 2c 2d  32 2c 34 29 0d 0a be 09  |dle(-2,-2,4)....|
00001380  f2 68 65 6c 70 0d 0a c8  05 cd 0d 0a d2 08 52 45  |.help.........RE|
00001390  3d a3 0d 0a dc 05 e1 0d  0a e6 04 0d 0a f0 19 dd  |=...............|
000013a0  20 f2 69 6e 69 74 5f 6d  61 6e 64 6c 65 28 58 2c  | .init_mandle(X,|
000013b0  59 2c 53 29 0d 0a fa 10  6e 65 77 5f 6d 61 6e 64  |Y,S)....new_mand|
000013c0  6c 65 3d b9 0d 0b 04 1f  53 43 3d 53 3a 4f 58 3d  |le=.....SC=S:OX=|
000013d0  58 3a 4f 59 3d 59 2a 52  61 74 69 6f 2b 53 43 2f  |X:OY=Y*Ratio+SC/|
000013e0  43 6f 6c 0d 0b 0e 0c 49  54 45 52 3d 31 30 30 0d  |Col....ITER=100.|
000013f0  0b 18 10 21 4f 58 44 3d  4f 58 2a 32 5e 32 39 0d  |...!OXD=OX*2^29.|
00001400  0b 22 10 21 4f 59 44 3d  4f 59 2a 32 5e 32 39 0d  |.".!OYD=OY*2^29.|
00001410  0b 2c 13 21 46 44 3d 53  43 2f 43 6f 6c 2a 32 5e  |.,.!FD=SC/Col*2^|
00001420  32 39 0d 0b 36 0c 21 44  44 3d 49 54 45 52 0d 0b  |29..6.!DD=ITER..|
00001430  40 16 21 6d 65 74 68 6f  64 3d 69 74 65 72 61 74  |@.!method=iterat|
00001440  69 6f 6e 4c 0d 0b 4a 17  f2 5f 64 72 61 77 28 6d  |ionL..J.._draw(m|
00001450  61 6e 64 6c 65 5f 68 61  6c 66 29 0d 0b 54 12 66  |andle_half)..T.f|
00001460  69 72 73 74 5f 6d 61 6e  64 6c 65 3d b9 0d 0b 5e  |irst_mandle=...^|
00001470  12 63 68 6f 6f 73 65 5f  6a 75 6c 69 61 3d b9 0d  |.choose_julia=..|
00001480  0b 68 05 e1 0d 0b 72 04  0d 0b 7c 11 dd 20 f2 69  |.h....r...|.. .i|
00001490  6e 69 74 5f 6a 75 6c 69  61 0d 0b 86 1e 4a 58 3d  |nit_julia....JX=|
000014a0  2d 31 2e 35 3a 4a 59 3d  2d 31 2e 35 2a 52 61 74  |-1.5:JY=-1.5*Rat|
000014b0  69 6f 3a 4a 53 3d 33 0d  0b 90 0d 4a 49 54 45 52  |io:JS=3....JITER|
000014c0  3d 31 30 30 0d 0b 9a 10  21 4a 58 44 3d 4a 58 2a  |=100....!JXD=JX*|
000014d0  32 5e 32 39 0d 0b a4 10  21 4a 59 44 3d 4a 59 2a  |2^29....!JYD=JY*|
000014e0  32 5e 32 39 0d 0b ae 14  21 4a 46 44 3d 4a 53 2f  |2^29....!JFD=JS/|
000014f0  43 6f 6c 2a 32 5e 32 39  0d 0b b8 0e 21 4a 44 44  |Col*2^29....!JDD|
00001500  3d 4a 49 54 45 52 0d 0b  c2 12 21 6d 65 74 68 6f  |=JITER....!metho|
00001510  64 3d 6a 75 6c 69 61 4c  0d 0b cc 16 f2 5f 64 72  |d=juliaL....._dr|
00001520  61 77 28 6a 75 6c 69 61  5f 68 61 6c 66 29 0d 0b  |aw(julia_half)..|
00001530  d6 11 66 69 72 73 74 5f  6a 75 6c 69 61 3d b9 0d  |..first_julia=..|
00001540  0b e0 05 e1 0d 0b ea 04  0d 0b f4 15 dd 20 f2 5f  |............. ._|
00001550  64 72 61 77 28 66 72 61  63 74 61 6c 29 0d 0b fe  |draw(fractal)...|
00001560  3b f4 4f 4e 20 45 52 52  4f 52 20 49 46 20 45 52  |;.ON ERROR IF ER|
00001570  52 3d 31 37 20 41 4e 44  20 49 4e 4b 45 59 28 2d  |R=17 AND INKEY(-|
00001580  31 29 20 54 48 45 4e 20  45 4e 44 20 45 4c 53 45  |1) THEN END ELSE|
00001590  20 45 4e 44 50 52 4f 43  0d 0c 08 05 da 0d 0c 12  | ENDPROC........|
000015a0  07 d1 3d 30 0d 0c 1c 19  e7 20 ac 20 56 49 44 45  |..=0..... . VIDE|
000015b0  4f 20 d6 20 56 69 64 65  6f 5f 6f 66 66 0d 0c 26  |O . Video_off..&|
000015c0  09 d6 20 73 65 74 0d 0c  30 1a e7 20 ba 20 66 72  |.. set..0.. . fr|
000015d0  61 63 74 61 6c 20 8c 20  d6 20 66 69 6c 6c 65 72  |actal . . filler|
000015e0  0d 0c 3a 18 e7 20 ac 20  56 49 44 45 4f 20 d6 20  |..:.. . VIDEO . |
000015f0  56 69 64 65 6f 5f 6f 6e  0d 0c 44 24 ef 20 35 3a  |Video_on..D$. 5:|
00001600  ec 20 45 78 2a 28 31 2d  38 34 2f 43 6f 6c 29 2c  |. Ex*(1-84/Col),|
00001610  45 79 2a 28 31 2d 34 2f  52 6f 77 29 0d 0c 4e 14  |Ey*(1-4/Row)..N.|
00001620  e6 20 36 33 3a f1 20 91  2f 31 30 30 3a ef 20 34  |. 63:. ./100:. 4|
00001630  0d 0c 58 0c 87 3a e6 20  33 2c 36 33 0d 0c 62 09  |..X..:. 3,63..b.|
00001640  2a 46 58 20 35 0d 0c 6c  05 e1 0d 0c 76 04 0d 0c  |*FX 5..l....v...|
00001650  80 0a dd 20 f2 41 53 53  0d 0c 8a 0d de 20 51 25  |... .ASS..... Q%|
00001660  20 32 30 30 30 0d 0c 94  14 de 20 42 55 46 46 20  | 2000..... BUFF |
00001670  52 6f 77 2a 43 6f 6c 2f  34 0d 0c 9e 43 54 3d 30  |Row*Col/4...CT=0|
00001680  3a 4b 3d 31 3a 48 3d 32  3a 41 3d 33 3a 42 3d 34  |:K=1:H=2:A=3:B=4|
00001690  3a 58 3d 35 3a 59 3d 36  3a 57 3d 37 3a 44 3d 38  |:X=5:Y=6:W=7:D=8|
000016a0  3a 53 43 52 3d 39 3a 53  3d 31 30 3a 43 4f 3d 31  |:SCR=9:S=10:CO=1|
000016b0  31 3a 43 3d 31 32 3a 42  55 46 3d 37 0d 0c a8 14  |1:C=12:BUF=7....|
000016c0  e3 20 50 41 53 53 3d 30  20 b8 20 32 20 88 20 32  |. PASS=0 . 2 . 2|
000016d0  0d 0c b2 09 50 25 3d 51  25 0d 0c bc 0d 5b 4f 50  |....P%=Q%....[OP|
000016e0  54 20 50 41 53 53 0d 0c  c6 0b a4 53 43 52 45 45  |T PASS.....SCREE|
000016f0  4e 0d 0c d0 04 0d 0c da  15 2e 42 55 46 46 45 52  |N.........BUFFER|
00001700  20 45 51 55 44 20 42 55  46 46 0d 0c e4 09 2e 72  | EQUD BUFF.....r|
00001710  65 61 64 0d 0c ee 12 4c  44 52 20 53 43 52 2c 73  |ead....LDR SCR,s|
00001720  63 72 65 65 6e 0d 0c f8  12 4c 44 52 20 42 55 46  |creen....LDR BUF|
00001730  2c 42 55 46 46 45 52 0d  0d 02 13 4d 4f 56 20 43  |,BUFFER....MOV C|
00001740  4f 2c 23 52 6f 77 2a 43  6f 6c 0d 0d 0c 0e 4d 4f  |O,#Row*Col....MO|
00001750  56 20 53 2c 23 32 35 35  0d 0d 16 0c 4d 4f 56 20  |V S,#255....MOV |
00001760  48 2c 23 32 0d 0d 20 0a  2e 72 6c 6f 6f 70 0d 0d  |H,#2.. ..rloop..|
00001770  2a 0c 4d 4f 56 20 4b 2c  23 30 0d 0d 34 12 4c 44  |*.MOV K,#0..4.LD|
00001780  52 20 54 2c 5b 53 43 52  5d 2c 23 34 0d 0d 3e 14  |R T,[SCR],#4..>.|
00001790  54 53 54 20 54 2c 53 2c  4c 53 4c 20 23 38 2a 33  |TST T,S,LSL #8*3|
000017a0  0d 0d 48 16 4d 4f 56 4e  45 20 4b 2c 48 2c 4c 53  |..H.MOVNE K,H,LS|
000017b0  4c 20 23 32 2a 33 0d 0d  52 14 54 53 54 20 54 2c  |L #2*3..R.TST T,|
000017c0  53 2c 4c 53 4c 20 23 38  2a 32 0d 0d 5c 17 84 52  |S,LSL #8*2..\..R|
000017d0  4e 45 20 4b 2c 4b 2c 48  2c 4c 53 4c 20 23 32 2a  |NE K,K,H,LSL #2*|
000017e0  32 0d 0d 66 12 54 53 54  20 54 2c 53 2c 4c 53 4c  |2..f.TST T,S,LSL|
000017f0  20 23 38 0d 0d 70 15 84  52 4e 45 20 4b 2c 4b 2c  | #8..p..RNE K,K,|
00001800  48 2c 4c 53 4c 20 23 32  0d 0d 7a 0b 54 53 54 20  |H,LSL #2..z.TST |
00001810  54 2c 53 0d 0d 84 0e 84  52 4e 45 20 4b 2c 4b 2c  |T,S.....RNE K,K,|
00001820  48 0d 0d 8e 13 53 54 52  42 20 4b 2c 5b 42 55 46  |H....STRB K,[BUF|
00001830  5d 2c 23 31 0d 0d 98 11  53 55 42 53 20 43 4f 2c  |],#1....SUBS CO,|
00001840  43 4f 2c 23 34 0d 0d a2  0d 42 4e 45 20 72 6c 6f  |CO,#4....BNE rlo|
00001850  6f 70 0d 0d ac 0e 4d 4f  56 20 50 43 2c 52 31 34  |op....MOV PC,R14|
00001860  0d 0d b6 04 0d 0d c0 0a  2e 77 72 69 74 65 0d 0d  |.........write..|
00001870  ca 12 4c 44 52 20 53 43  52 2c 73 63 72 65 65 6e  |..LDR SCR,screen|
00001880  0d 0d d4 12 4c 44 52 20  42 55 46 2c 42 55 46 46  |....LDR BUF,BUFF|
00001890  45 52 0d 0d de 13 4d 4f  56 20 43 4f 2c 23 52 6f  |ER....MOV CO,#Ro|
000018a0  77 2a 43 6f 6c 0d 0d e8  0a 2e 77 6c 6f 6f 70 0d  |w*Col.....wloop.|
000018b0  0d f2 12 4c 44 52 20 54  2c 5b 42 55 46 5d 2c 23  |...LDR T,[BUF],#|
000018c0  34 0d 0d fc 12 53 54 52  20 54 2c 5b 53 43 52 5d  |4....STR T,[SCR]|
000018d0  2c 23 34 0d 0e 06 12 53  55 42 53 20 43 4f 2c 43  |,#4....SUBS CO,C|
000018e0  4f 2c 23 31 36 0d 0e 10  0d 42 4e 45 20 77 6c 6f  |O,#16....BNE wlo|
000018f0  6f 70 0d 0e 1a 0e 4d 4f  56 20 50 43 2c 52 31 34  |op....MOV PC,R14|
00001900  0d 0e 24 05 5d 0d 0e 2e  05 ed 0d 0e 38 05 e1 0d  |..$.].......8...|
00001910  0e 42 04 0d 0e 4c 0b dd  20 f2 41 53 53 30 0d 0e  |.B...L.. .ASS0..|
00001920  56 0b ea 20 51 25 2c 50  25 0d 0e 60 0c de 20 51  |V.. Q%,P%..`.. Q|
00001930  25 20 32 30 30 0d 0e 6a  14 e3 20 50 41 53 53 3d  |% 200..j.. PASS=|
00001940  30 20 b8 20 32 20 88 20  32 0d 0e 74 09 50 25 3d  |0 . 2 . 2..t.P%=|
00001950  51 25 0d 0e 7e 0d 5b 4f  50 54 20 50 41 53 53 0d  |Q%..~.[OPT PASS.|
00001960  0e 88 0d 2e 56 69 64 65  6f 5f 6f 6e 0d 0e 92 0d  |....Video_on....|
00001970  4d 56 4e 20 52 30 2c 23  30 0d 0e 9c 11 4d 4f 56  |MVN R0,#0....MOV|
00001980  20 52 31 2c 23 31 3c 3c  31 30 0d 0e a6 17 53 57  | R1,#1<<10....SW|
00001990  49 20 22 4f 53 5f 55 70  64 61 74 65 4d 45 4d 43  |I "OS_UpdateMEMC|
000019a0  22 0d 0e b0 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |"....MOV PC,R14.|
000019b0  0e ba 04 0d 0e c4 0e 2e  56 69 64 65 6f 5f 6f 66  |........Video_of|
000019c0  66 0d 0e ce 0d 4d 4f 56  20 52 30 2c 23 30 0d 0e  |f....MOV R0,#0..|
000019d0  d8 11 4d 4f 56 20 52 31  2c 23 31 3c 3c 31 30 0d  |..MOV R1,#1<<10.|
000019e0  0e e2 17 53 57 49 20 22  4f 53 5f 55 70 64 61 74  |...SWI "OS_Updat|
000019f0  65 4d 45 4d 43 22 0d 0e  ec 0e 4d 4f 56 20 50 43  |eMEMC"....MOV PC|
00001a00  2c 52 31 34 0d 0e f6 05  5d 0d 0f 00 05 ed 0d 0f  |,R14....].......|
00001a10  0a 05 e1 0d 0f 14 04 0d  0f 1e 0b dd 20 f2 41 53  |............ .AS|
00001a20  53 31 0d 0f 28 0a 51 25  3d 51 31 25 0d 0f 32 43  |S1..(.Q%=Q1%..2C|
00001a30  54 3d 30 3a 4b 3d 31 3a  48 3d 32 3a 41 3d 33 3a  |T=0:K=1:H=2:A=3:|
00001a40  42 3d 34 3a 58 3d 35 3a  59 3d 36 3a 57 3d 37 3a  |B=4:X=5:Y=6:W=7:|
00001a50  44 3d 38 3a 53 43 52 3d  39 3a 53 3d 31 30 3a 43  |D=8:SCR=9:S=10:C|
00001a60  4f 3d 31 31 3a 43 3d 31  32 3a 53 50 3d 31 33 0d  |O=11:C=12:SP=13.|
00001a70  0f 3c 14 e3 20 50 41 53  53 3d 30 20 b8 20 32 20  |.<.. PASS=0 . 2 |
00001a80  88 20 32 0d 0f 46 09 50  25 3d 51 25 0d 0f 50 0d  |. 2..F.P%=Q%..P.|
00001a90  5b 4f 50 54 20 50 41 53  53 0d 0f 5a 0b a4 53 43  |[OPT PASS..Z..SC|
00001aa0  52 45 45 4e 0d 0f 64 04  0d 0f 6e 0f 2e 43 54 44  |REEN..d...n..CTD|
00001ab0  20 45 51 55 44 20 30 0d  0f 78 0a 2e 63 79 63 6c  | EQUD 0..x..cycl|
00001ac0  65 0d 0f 82 12 4c 44 52  20 53 43 52 2c 73 63 72  |e....LDR SCR,scr|
00001ad0  65 65 6e 0d 0f 8c 16 41  44 44 20 4b 2c 53 43 52  |een....ADD K,SCR|
00001ae0  2c 23 52 6f 77 2a 43 6f  6c 0d 0f 96 0e 4d 4f 56  |,#Row*Col....MOV|
00001af0  20 48 2c 23 32 35 35 0d  0f a0 0d 4c 44 52 20 57  | H,#255....LDR W|
00001b00  2c 43 54 44 0d 0f aa 10  4d 4f 56 20 44 2c 23 31  |,CTD....MOV D,#1|
00001b10  3c 3c 31 30 0d 0f b4 0e  2e 63 79 63 6c 65 6c 6f  |<<10.....cyclelo|
00001b20  6f 70 0d 0f be 11 20 20  4c 44 52 20 54 2c 5b 53  |op....  LDR T,[S|
00001b30  43 52 5d 0d 0f c8 0d 20  20 80 20 41 2c 48 2c 54  |CR]....  . A,H,T|
00001b40  0d 0f d2 0d 20 20 43 4d  50 20 41 2c 44 0d 0f dc  |....  CMP A,D...|
00001b50  14 20 20 4c 44 52 4e 45  42 20 42 2c 5b 57 2c 41  |.  LDRNEB B,[W,A|
00001b60  5d 0d 0f e6 0d 20 20 4d  4f 56 20 43 2c 42 0d 0f  |]....  MOV C,B..|
00001b70  f0 14 20 20 80 20 44 2c  48 2c 54 2c 4c 53 52 20  |..  . D,H,T,LSR |
00001b80  23 38 0d 0f fa 0d 20 20  43 4d 50 20 41 2c 44 0d  |#8....  CMP A,D.|
00001b90  10 04 14 20 20 4c 44 52  4e 45 42 20 42 2c 5b 57  |...  LDRNEB B,[W|
00001ba0  2c 44 5d 0d 10 0e 16 20  20 41 44 44 20 43 2c 43  |,D]....  ADD C,C|
00001bb0  2c 42 2c 4c 53 4c 20 23  38 0d 10 18 15 20 20 80  |,B,LSL #8....  .|
00001bc0  20 41 2c 48 2c 54 2c 4c  53 52 20 23 31 36 0d 10  | A,H,T,LSR #16..|
00001bd0  22 0d 20 20 43 4d 50 20  41 2c 44 0d 10 2c 14 20  |".  CMP A,D..,. |
00001be0  20 4c 44 52 4e 45 42 20  42 2c 5b 57 2c 41 5d 0d  | LDRNEB B,[W,A].|
00001bf0  10 36 17 20 20 41 44 44  20 43 2c 43 2c 42 2c 4c  |.6.  ADD C,C,B,L|
00001c00  53 4c 20 23 31 36 0d 10  40 15 20 20 80 20 44 2c  |SL #16..@.  . D,|
00001c10  48 2c 54 2c 4c 53 52 20  23 32 34 0d 10 4a 0d 20  |H,T,LSR #24..J. |
00001c20  20 43 4d 50 20 41 2c 44  0d 10 54 14 20 20 4c 44  | CMP A,D..T.  LD|
00001c30  52 4e 45 42 20 42 2c 5b  57 2c 44 5d 0d 10 5e 17  |RNEB B,[W,D]..^.|
00001c40  20 20 41 44 44 20 43 2c  43 2c 42 2c 4c 53 4c 20  |  ADD C,C,B,LSL |
00001c50  23 32 34 0d 10 68 14 20  20 53 54 52 20 43 2c 5b  |#24..h.  STR C,[|
00001c60  53 43 52 5d 2c 23 34 0d  10 72 0f 20 20 43 4d 50  |SCR],#4..r.  CMP|
00001c70  20 53 43 52 2c 4b 0d 10  7c 11 42 4c 4f 20 63 79  | SCR,K..|.BLO cy|
00001c80  63 6c 65 6c 6f 6f 70 0d  10 86 0e 4d 4f 56 20 50  |cleloop....MOV P|
00001c90  43 2c 52 31 34 0d 10 90  04 0d 10 9a 0b 2e 66 69  |C,R14.........fi|
00001ca0  6c 6c 65 72 0d 10 a4 12  4c 44 52 20 53 43 52 2c  |ller....LDR SCR,|
00001cb0  73 63 72 65 65 6e 0d 10  ae 16 41 44 44 20 4b 2c  |screen....ADD K,|
00001cc0  53 43 52 2c 23 52 6f 77  2a 43 6f 6c 0d 10 b8 0c  |SCR,#Row*Col....|
00001cd0  2e 76 75 6c 6c 6f 6f 70  0d 10 c2 12 20 20 4c 44  |.vulloop....  LD|
00001ce0  52 20 43 4f 2c 5b 53 43  52 5d 0d 10 cc 18 20 20  |R CO,[SCR]....  |
00001cf0  80 53 20 58 2c 43 4f 2c  23 26 30 30 30 30 30 30  |.S X,CO,#&000000|
00001d00  46 46 0d 10 d6 0f 20 20  4d 4f 56 4e 45 20 54 2c  |FF....  MOVNE T,|
00001d10  58 0d 10 e0 10 20 20 43  4d 50 20 54 2c 23 32 35  |X....  CMP T,#25|
00001d20  35 0d 10 ea 0d 20 20 ec  51 20 54 2c 23 30 0d 10  |5....  .Q T,#0..|
00001d30  f4 0d 20 20 4d 4f 56 20  43 2c 54 0d 10 fe 18 20  |..  MOV C,T.... |
00001d40  20 80 53 20 58 2c 43 4f  2c 23 26 30 30 30 30 46  | .S X,CO,#&0000F|
00001d50  46 30 30 0d 11 08 16 20  20 4d 4f 56 4e 45 20 54  |F00....  MOVNE T|
00001d60  2c 58 2c 4c 53 52 20 23  38 0d 11 12 10 20 20 43  |,X,LSR #8....  C|
00001d70  4d 50 20 54 2c 23 32 35  35 0d 11 1c 17 20 20 84  |MP T,#255....  .|
00001d80  52 4e 45 20 43 2c 43 2c  54 2c 4c 53 4c 20 23 38  |RNE C,C,T,LSL #8|
00001d90  0d 11 26 18 20 20 80 53  20 58 2c 43 4f 2c 23 26  |..&.  .S X,CO,#&|
00001da0  30 30 46 46 30 30 30 30  0d 11 30 17 20 20 4d 4f  |00FF0000..0.  MO|
00001db0  56 4e 45 20 54 2c 58 2c  4c 53 52 20 23 31 36 0d  |VNE T,X,LSR #16.|
00001dc0  11 3a 10 20 20 43 4d 50  20 54 2c 23 32 35 35 0d  |.:.  CMP T,#255.|
00001dd0  11 44 18 20 20 84 52 4e  45 20 43 2c 43 2c 54 2c  |.D.  .RNE C,C,T,|
00001de0  4c 53 4c 20 23 31 36 0d  11 4e 18 20 20 80 53 20  |LSL #16..N.  .S |
00001df0  58 2c 43 4f 2c 23 26 46  46 30 30 30 30 30 30 0d  |X,CO,#&FF000000.|
00001e00  11 58 17 20 20 4d 4f 56  4e 45 20 54 2c 58 2c 4c  |.X.  MOVNE T,X,L|
00001e10  53 52 20 23 32 34 0d 11  62 10 20 20 43 4d 50 20  |SR #24..b.  CMP |
00001e20  54 2c 23 32 35 35 0d 11  6c 18 20 20 84 52 4e 45  |T,#255..l.  .RNE|
00001e30  20 43 2c 43 2c 54 2c 4c  53 4c 20 23 32 34 0d 11  | C,C,T,LSL #24..|
00001e40  76 14 20 20 53 54 52 20  43 2c 5b 53 43 52 5d 2c  |v.  STR C,[SCR],|
00001e50  23 34 0d 11 80 0f 20 20  43 4d 50 20 53 43 52 2c  |#4....  CMP SCR,|
00001e60  4b 0d 11 8a 0f 42 4c 4f  20 76 75 6c 6c 6f 6f 70  |K....BLO vulloop|
00001e70  0d 11 94 0e 4d 4f 56 20  50 43 2c 52 31 34 0d 11  |....MOV PC,R14..|
00001e80  9e 05 5d 0d 11 a8 05 ed  0d 11 b2 09 51 25 3d 50  |..].........Q%=P|
00001e90  25 0d 11 bc 14 e3 20 50  41 53 53 3d 30 20 b8 20  |%..... PASS=0 . |
00001ea0  32 20 88 20 32 0d 11 c6  09 50 25 3d 51 25 0d 11  |2 . 2....P%=Q%..|
00001eb0  d0 0d 5b 4f 50 54 20 50  41 53 53 0d 11 da 11 2e  |..[OPT PASS.....|
00001ec0  73 74 61 63 6b 20 45 51  55 44 20 30 0d 11 e4 1b  |stack EQUD 0....|
00001ed0  2e 6d 65 74 68 6f 64 20  45 51 55 44 20 69 74 65  |.method EQUD ite|
00001ee0  72 61 74 69 6f 6e 4c 0d  11 ee 0b 2e 6d 61 6e 64  |rationL.....mand|
00001ef0  6c 65 0d 11 f8 23 20 20  a4 5f 54 52 41 43 4b 31  |le...#  ._TRACK1|
00001f00  28 4e 72 5f 43 6f 6c 73  2c 52 6f 77 2c 43 6f 6c  |(Nr_Cols,Row,Col|
00001f10  2c 53 68 66 29 0d 12 02  23 20 20 a4 5f 54 52 41  |,Shf)...#  ._TRA|
00001f20  43 4b 32 28 4e 72 5f 43  6f 6c 73 2c 52 6f 77 2c  |CK2(Nr_Cols,Row,|
00001f30  43 6f 6c 2c 53 68 66 29  0d 12 0c 05 5d 0d 12 16  |Col,Shf)....]...|
00001f40  05 ed 0d 12 20 04 0d 12  2a 09 51 25 3d 50 25 0d  |.... ...*.Q%=P%.|
00001f50  12 34 14 e3 20 50 41 53  53 3d 30 20 b8 20 32 20  |.4.. PASS=0 . 2 |
00001f60  88 20 32 0d 12 3e 09 50  25 3d 51 25 0d 12 48 0d  |. 2..>.P%=Q%..H.|
00001f70  5b 4f 50 54 20 50 41 53  53 0d 12 52 10 2e 6d 61  |[OPT PASS..R..ma|
00001f80  6e 64 6c 65 5f 68 61 6c  66 0d 12 5c 28 20 20 a4  |ndle_half..\(  .|
00001f90  5f 54 52 41 43 4b 31 28  4e 72 5f 43 6f 6c 73 2c  |_TRACK1(Nr_Cols,|
00001fa0  52 6f 77 2f 32 2b 31 32  2c 43 6f 6c 2c 53 68 66  |Row/2+12,Col,Shf|
00001fb0  29 0d 12 66 16 20 20 41  44 44 20 53 2c 42 2c 42  |)..f.  ADD S,B,B|
00001fc0  2c 4c 53 4c 20 23 32 0d  12 70 18 20 20 53 55 42  |,LSL #2..p.  SUB|
00001fd0  20 53 2c 41 2c 53 2c 4c  53 4c 20 23 53 68 66 0d  | S,A,S,LSL #Shf.|
00001fe0  12 7a 16 20 20 41 44 44  20 53 2c 53 2c 23 52 6f  |.z.  ADD S,S,#Ro|
00001ff0  77 2a 43 6f 6c 0d 12 84  14 20 20 53 55 42 20 53  |w*Col....  SUB S|
00002000  2c 53 2c 23 32 2a 43 6f  6c 0d 12 8e 14 20 20 53  |,S,#2*Col....  S|
00002010  54 52 42 20 54 2c 5b 53  2c 53 43 52 5d 0d 12 98  |TRB T,[S,SCR]...|
00002020  23 20 20 a4 5f 54 52 41  43 4b 32 28 4e 72 5f 43  |#  ._TRACK2(Nr_C|
00002030  6f 6c 73 2c 52 6f 77 2c  43 6f 6c 2c 53 68 66 29  |ols,Row,Col,Shf)|
00002040  0d 12 a2 05 5d 0d 12 ac  05 ed 0d 12 b6 09 51 25  |....].........Q%|
00002050  3d 50 25 0d 12 c0 14 e3  20 50 41 53 53 3d 30 20  |=P%..... PASS=0 |
00002060  b8 20 32 20 88 20 32 0d  12 ca 09 50 25 3d 51 25  |. 2 . 2....P%=Q%|
00002070  0d 12 d4 0d 5b 4f 50 54  20 50 41 53 53 0d 12 de  |....[OPT PASS...|
00002080  0f 2e 6a 75 6c 69 61 5f  68 61 6c 66 0d 12 e8 25  |..julia_half...%|
00002090  20 20 a4 5f 54 52 41 43  4b 31 28 4e 72 5f 43 6f  |  ._TRACK1(Nr_Co|
000020a0  6c 73 2c 52 6f 77 2f 32  2c 43 6f 6c 2c 53 68 66  |ls,Row/2,Col,Shf|
000020b0  29 0d 12 f2 16 20 20 52  53 42 20 53 2c 53 2c 23  |)....  RSB S,S,#|
000020c0  52 6f 77 2a 43 6f 6c 0d  12 fc 10 20 20 53 55 42  |Row*Col....  SUB|
000020d0  20 53 2c 53 2c 23 31 0d  13 06 10 20 20 53 55 42  | S,S,#1....  SUB|
000020e0  20 53 2c 53 2c 23 30 0d  13 10 14 20 20 53 54 52  | S,S,#0....  STR|
000020f0  42 20 54 2c 5b 53 2c 53  43 52 5d 0d 13 1a 23 20  |B T,[S,SCR]...# |
00002100  20 a4 5f 54 52 41 43 4b  32 28 4e 72 5f 43 6f 6c  | ._TRACK2(Nr_Col|
00002110  73 2c 52 6f 77 2c 43 6f  6c 2c 53 68 66 29 0d 13  |s,Row,Col,Shf)..|
00002120  24 05 5d 0d 13 2e 05 ed  0d 13 38 05 e1 0d 13 42  |$.].......8....B|
00002130  04 0d 13 4c 0b dd 20 f2  41 53 53 32 0d 13 56 0a  |...L.. .ASS2..V.|
00002140  51 25 3d 51 32 25 0d 13  60 48 54 3d 30 3a 4b 3d  |Q%=Q2%..`HT=0:K=|
00002150  31 3a 48 3d 32 3a 41 3d  33 3a 42 3d 34 3a 58 3d  |1:H=2:A=3:B=4:X=|
00002160  35 3a 59 3d 36 3a 57 3d  37 3a 44 3d 38 3a 53 43  |5:Y=6:W=7:D=8:SC|
00002170  52 3d 39 3a 53 3d 31 30  3a 43 4f 3d 31 31 3a 43  |R=9:S=10:CO=11:C|
00002180  3d 31 32 3a 53 50 3d 31  33 3a 47 3d 31 34 0d 13  |=12:SP=13:G=14..|
00002190  6a 14 e3 20 50 41 53 53  3d 30 20 b8 20 32 20 88  |j.. PASS=0 . 2 .|
000021a0  20 32 0d 13 74 09 50 25  3d 51 25 0d 13 7e 0d 5b  | 2..t.P%=Q%..~.[|
000021b0  4f 50 54 20 50 41 53 53  0d 13 88 0b a4 53 43 52  |OPT PASS.....SCR|
000021c0  45 45 4e 0d 13 92 04 0d  13 9c 0b 2e 66 69 6c 6c  |EEN.........fill|
000021d0  65 72 0d 13 a6 12 4c 44  52 20 53 43 52 2c 73 63  |er....LDR SCR,sc|
000021e0  72 65 65 6e 0d 13 b0 0e  4d 4f 56 20 53 2c 23 52  |reen....MOV S,#R|
000021f0  6f 77 0d 13 ba 0e 4d 4f  56 20 54 2c 23 43 6f 6c  |ow....MOV T,#Col|
00002200  0d 13 c4 0d 4d 55 4c 20  54 2c 53 2c 54 0d 13 ce  |....MUL T,S,T...|
00002210  16 41 44 44 20 4b 2c 53  43 52 2c 54 2c 4c 53 52  |.ADD K,SCR,T,LSR|
00002220  20 23 31 0d 13 d8 0c 2e  76 75 6c 6c 6f 6f 70 0d  | #1.....vulloop.|
00002230  13 e2 12 20 20 4c 44 52  20 43 4f 2c 5b 53 43 52  |...  LDR CO,[SCR|
00002240  5d 0d 13 ec 18 20 20 80  53 20 58 2c 43 4f 2c 23  |]....  .S X,CO,#|
00002250  26 30 30 30 30 30 30 30  46 0d 13 f6 0f 20 20 4d  |&0000000F....  M|
00002260  4f 56 4e 45 20 54 2c 58  0d 14 00 0f 20 20 43 4d  |OVNE T,X....  CM|
00002270  50 20 54 2c 23 31 35 0d  14 0a 0d 20 20 ec 51 20  |P T,#15....  .Q |
00002280  54 2c 23 30 0d 14 14 0d  20 20 4d 4f 56 20 43 2c  |T,#0....  MOV C,|
00002290  54 0d 14 1e 18 20 20 80  53 20 58 2c 43 4f 2c 23  |T....  .S X,CO,#|
000022a0  26 30 30 30 30 30 30 46  30 0d 14 28 16 20 20 4d  |&000000F0..(.  M|
000022b0  4f 56 4e 45 20 54 2c 58  2c 4c 53 52 20 23 34 0d  |OVNE T,X,LSR #4.|
000022c0  14 32 0f 20 20 43 4d 50  20 54 2c 23 31 35 0d 14  |.2.  CMP T,#15..|
000022d0  3c 17 20 20 84 52 4e 45  20 43 2c 43 2c 54 2c 4c  |<.  .RNE C,C,T,L|
000022e0  53 4c 20 23 34 0d 14 46  18 20 20 80 53 20 58 2c  |SL #4..F.  .S X,|
000022f0  43 4f 2c 23 26 30 30 30  30 30 46 30 30 0d 14 50  |CO,#&00000F00..P|
00002300  16 20 20 4d 4f 56 4e 45  20 54 2c 58 2c 4c 53 52  |.  MOVNE T,X,LSR|
00002310  20 23 38 0d 14 5a 0f 20  20 43 4d 50 20 54 2c 23  | #8..Z.  CMP T,#|
00002320  31 35 0d 14 64 17 20 20  84 52 4e 45 20 43 2c 43  |15..d.  .RNE C,C|
00002330  2c 54 2c 4c 53 4c 20 23  38 0d 14 6e 18 20 20 80  |,T,LSL #8..n.  .|
00002340  53 20 58 2c 43 4f 2c 23  26 30 30 30 30 46 30 30  |S X,CO,#&0000F00|
00002350  30 0d 14 78 17 20 20 4d  4f 56 4e 45 20 54 2c 58  |0..x.  MOVNE T,X|
00002360  2c 4c 53 52 20 23 31 32  0d 14 82 0f 20 20 43 4d  |,LSR #12....  CM|
00002370  50 20 54 2c 23 31 35 0d  14 8c 18 20 20 84 52 4e  |P T,#15....  .RN|
00002380  45 20 43 2c 43 2c 54 2c  4c 53 4c 20 23 31 32 0d  |E C,C,T,LSL #12.|
00002390  14 96 18 20 20 80 53 20  58 2c 43 4f 2c 23 26 30  |...  .S X,CO,#&0|
000023a0  30 30 46 30 30 30 30 0d  14 a0 17 20 20 4d 4f 56  |00F0000....  MOV|
000023b0  4e 45 20 54 2c 58 2c 4c  53 52 20 23 31 36 0d 14  |NE T,X,LSR #16..|
000023c0  aa 0f 20 20 43 4d 50 20  54 2c 23 31 35 0d 14 b4  |..  CMP T,#15...|
000023d0  18 20 20 84 52 4e 45 20  43 2c 43 2c 54 2c 4c 53  |.  .RNE C,C,T,LS|
000023e0  4c 20 23 31 36 0d 14 be  18 20 20 80 53 20 58 2c  |L #16....  .S X,|
000023f0  43 4f 2c 23 26 30 30 46  30 30 30 30 30 0d 14 c8  |CO,#&00F00000...|
00002400  17 20 20 4d 4f 56 4e 45  20 54 2c 58 2c 4c 53 52  |.  MOVNE T,X,LSR|
00002410  20 23 32 30 0d 14 d2 0f  20 20 43 4d 50 20 54 2c  | #20....  CMP T,|
00002420  23 31 35 0d 14 dc 18 20  20 84 52 4e 45 20 43 2c  |#15....  .RNE C,|
00002430  43 2c 54 2c 4c 53 4c 20  23 32 30 0d 14 e6 18 20  |C,T,LSL #20.... |
00002440  20 80 53 20 58 2c 43 4f  2c 23 26 30 46 30 30 30  | .S X,CO,#&0F000|
00002450  30 30 30 0d 14 f0 17 20  20 4d 4f 56 4e 45 20 54  |000....  MOVNE T|
00002460  2c 58 2c 4c 53 52 20 23  32 34 0d 14 fa 0f 20 20  |,X,LSR #24....  |
00002470  43 4d 50 20 54 2c 23 31  35 0d 15 04 18 20 20 84  |CMP T,#15....  .|
00002480  52 4e 45 20 43 2c 43 2c  54 2c 4c 53 4c 20 23 32  |RNE C,C,T,LSL #2|
00002490  34 0d 15 0e 18 20 20 80  53 20 58 2c 43 4f 2c 23  |4....  .S X,CO,#|
000024a0  26 46 30 30 30 30 30 30  30 0d 15 18 17 20 20 4d  |&F0000000....  M|
000024b0  4f 56 4e 45 20 54 2c 58  2c 4c 53 52 20 23 32 38  |OVNE T,X,LSR #28|
000024c0  0d 15 22 0f 20 20 43 4d  50 20 54 2c 23 31 35 0d  |..".  CMP T,#15.|
000024d0  15 2c 18 20 20 84 52 4e  45 20 43 2c 43 2c 54 2c  |.,.  .RNE C,C,T,|
000024e0  4c 53 4c 20 23 32 38 0d  15 36 14 20 20 53 54 52  |LSL #28..6.  STR|
000024f0  20 43 2c 5b 53 43 52 5d  2c 23 34 0d 15 40 0f 20  | C,[SCR],#4..@. |
00002500  20 43 4d 50 20 53 43 52  2c 4b 0d 15 4a 0f 42 4c  | CMP SCR,K..J.BL|
00002510  4f 20 76 75 6c 6c 6f 6f  70 0d 15 54 0e 4d 4f 56  |O vulloop..T.MOV|
00002520  20 50 43 2c 52 31 34 0d  15 5e 05 5d 0d 15 68 05  | PC,R14..^.]..h.|
00002530  ed 0d 15 72 09 51 25 3d  50 25 0d 15 7c 14 e3 20  |...r.Q%=P%..|.. |
00002540  50 41 53 53 3d 30 20 b8  20 32 20 88 20 32 0d 15  |PASS=0 . 2 . 2..|
00002550  86 09 50 25 3d 51 25 0d  15 90 0d 5b 4f 50 54 20  |..P%=Q%....[OPT |
00002560  50 41 53 53 0d 15 9a 11  2e 73 74 61 63 6b 20 45  |PASS.....stack E|
00002570  51 55 44 20 30 0d 15 a4  1b 2e 6d 65 74 68 6f 64  |QUD 0.....method|
00002580  20 45 51 55 44 20 69 74  65 72 61 74 69 6f 6e 4c  | EQUD iterationL|
00002590  0d 15 ae 0b 2e 6d 61 6e  64 6c 65 0d 15 b8 23 20  |.....mandle...# |
000025a0  20 a4 5f 54 52 41 43 4b  31 28 4e 72 5f 43 6f 6c  | ._TRACK1(Nr_Col|
000025b0  73 2c 52 6f 77 2c 43 6f  6c 2c 53 68 66 29 0d 15  |s,Row,Col,Shf)..|
000025c0  c2 23 20 20 a4 5f 54 52  41 43 4b 32 28 4e 72 5f  |.#  ._TRACK2(Nr_|
000025d0  43 6f 6c 73 2c 52 6f 77  2c 43 6f 6c 2c 53 68 66  |Cols,Row,Col,Shf|
000025e0  29 0d 15 cc 05 5d 0d 15  d6 05 ed 0d 15 e0 09 51  |)....].........Q|
000025f0  25 3d 50 25 0d 15 ea 14  e3 20 50 41 53 53 3d 30  |%=P%..... PASS=0|
00002600  20 b8 20 32 20 88 20 32  0d 15 f4 09 50 25 3d 51  | . 2 . 2....P%=Q|
00002610  25 0d 15 fe 0d 5b 4f 50  54 20 50 41 53 53 0d 16  |%....[OPT PASS..|
00002620  08 10 2e 6d 61 6e 64 6c  65 5f 68 61 6c 66 0d 16  |...mandle_half..|
00002630  12 23 20 20 a4 5f 54 52  41 43 4b 31 28 4e 72 5f  |.#  ._TRACK1(Nr_|
00002640  43 6f 6c 73 2c 52 6f 77  2c 43 6f 6c 2c 53 68 66  |Cols,Row,Col,Shf|
00002650  29 0d 16 1c 12 20 20 52  53 42 20 42 2c 42 2c 23  |)....  RSB B,B,#|
00002660  52 6f 77 0d 16 26 10 20  20 53 55 42 20 42 2c 42  |Row..&.  SUB B,B|
00002670  2c 23 32 0d 16 30 10 20  20 4d 4f 56 20 53 2c 23  |,#2..0.  MOV S,#|
00002680  43 6f 6c 0d 16 3a 0f 20  20 4d 55 4c 20 53 2c 42  |Col..:.  MUL S,B|
00002690  2c 53 0d 16 44 0f 20 20  41 44 44 20 53 2c 53 2c  |,S..D.  ADD S,S,|
000026a0  41 0d 16 4e 10 20 20 41  44 44 20 42 2c 42 2c 23  |A..N.  ADD B,B,#|
000026b0  32 0d 16 58 12 20 20 52  53 42 20 42 2c 42 2c 23  |2..X.  RSB B,B,#|
000026c0  52 6f 77 0d 16 62 1b 20  20 53 54 52 42 20 47 2c  |Row..b.  STRB G,|
000026d0  5b 53 43 52 2c 53 2c 4c  53 52 20 23 31 5d 0d 16  |[SCR,S,LSR #1]..|
000026e0  6c 23 20 20 a4 5f 54 52  41 43 4b 32 28 4e 72 5f  |l#  ._TRACK2(Nr_|
000026f0  43 6f 6c 73 2c 52 6f 77  2c 43 6f 6c 2c 53 68 66  |Cols,Row,Col,Shf|
00002700  29 0d 16 76 05 5d 0d 16  80 05 ed 0d 16 8a 09 51  |)..v.].........Q|
00002710  25 3d 50 25 0d 16 94 14  e3 20 50 41 53 53 3d 30  |%=P%..... PASS=0|
00002720  20 b8 20 32 20 88 20 32  0d 16 9e 09 50 25 3d 51  | . 2 . 2....P%=Q|
00002730  25 0d 16 a8 0d 5b 4f 50  54 20 50 41 53 53 0d 16  |%....[OPT PASS..|
00002740  b2 0f 2e 6a 75 6c 69 61  5f 68 61 6c 66 0d 16 bc  |...julia_half...|
00002750  25 20 20 a4 5f 54 52 41  43 4b 31 28 4e 72 5f 43  |%  ._TRACK1(Nr_C|
00002760  6f 6c 73 2c 52 6f 77 2f  32 2c 43 6f 6c 2c 53 68  |ols,Row/2,Col,Sh|
00002770  66 29 0d 16 c6 12 20 20  52 53 42 20 42 2c 42 2c  |f)....  RSB B,B,|
00002780  23 52 6f 77 0d 16 d0 10  20 20 4d 4f 56 20 53 2c  |#Row....  MOV S,|
00002790  23 43 6f 6c 0d 16 da 0f  20 20 4d 55 4c 20 53 2c  |#Col....  MUL S,|
000027a0  42 2c 53 0d 16 e4 0f 20  20 53 55 42 20 53 2c 53  |B,S....  SUB S,S|
000027b0  2c 41 0d 16 ee 10 20 20  53 55 42 20 53 2c 53 2c  |,A....  SUB S,S,|
000027c0  23 31 0d 16 f8 14 20 20  4d 4f 56 20 47 2c 47 2c  |#1....  MOV G,G,|
000027d0  4c 53 4c 20 23 34 0d 17  02 16 20 20 41 44 44 20  |LSL #4....  ADD |
000027e0  47 2c 47 2c 47 2c 4c 53  52 20 23 38 0d 17 0c 1b  |G,G,G,LSR #8....|
000027f0  20 20 53 54 52 42 20 47  2c 5b 53 43 52 2c 53 2c  |  STRB G,[SCR,S,|
00002800  4c 53 52 20 23 31 5d 0d  17 16 12 20 20 52 53 42  |LSR #1]....  RSB|
00002810  20 42 2c 42 2c 23 52 6f  77 0d 17 20 23 20 20 a4  | B,B,#Row.. #  .|
00002820  5f 54 52 41 43 4b 32 28  4e 72 5f 43 6f 6c 73 2c  |_TRACK2(Nr_Cols,|
00002830  52 6f 77 2c 43 6f 6c 2c  53 68 66 29 0d 17 2a 05  |Row,Col,Shf)..*.|
00002840  5d 0d 17 34 05 ed 0d 17  3e 05 e1 0d 17 48 04 0d  |]..4....>....H..|
00002850  17 52 0d dd 20 a4 53 43  52 45 45 4e 0d 17 5c 0d  |.R.. .SCREEN..\.|
00002860  5b 4f 50 54 20 50 41 53  53 0d 17 66 1d 2e 73 63  |[OPT PASS..f..sc|
00002870  72 65 65 6e 31 20 45 51  55 44 20 31 34 38 3a 45  |reen1 EQUD 148:E|
00002880  51 55 44 20 2d 31 0d 17  70 13 2e 73 63 72 65 65  |QUD -1..p..scree|
00002890  6e 20 20 45 51 55 44 20  30 0d 17 7a 08 2e 73 65  |n  EQUD 0..z..se|
000028a0  74 0d 17 84 14 20 20 41  44 52 20 52 30 2c 73 63  |t....  ADR R0,sc|
000028b0  72 65 65 6e 31 0d 17 8e  13 20 20 41 44 52 20 52  |reen1....  ADR R|
000028c0  31 2c 73 63 72 65 65 6e  0d 17 98 1f 20 20 53 57  |1,screen....  SW|
000028d0  49 20 22 4f 53 5f 52 65  61 64 56 64 75 56 61 72  |I "OS_ReadVduVar|
000028e0  69 61 62 6c 65 73 22 0d  17 a2 0e 4d 4f 56 20 50  |iables"....MOV P|
000028f0  43 2c 52 31 34 0d 17 ac  09 5d 3a 3d 22 22 0d 17  |C,R14....]:=""..|
00002900  b6 04 0d 17 c0 23 dd 20  a4 5f 54 52 41 43 4b 31  |.....#. ._TRACK1|
00002910  28 4e 72 5f 43 6f 6c 73  2c 52 6f 77 2c 43 6f 6c  |(Nr_Cols,Row,Col|
00002920  2c 53 68 66 29 0d 17 ca  0d 5b 4f 50 54 20 50 41  |,Shf)....[OPT PA|
00002930  53 53 0d 17 d4 14 53 54  4d 46 44 20 28 53 50 29  |SS....STMFD (SP)|
00002940  21 2c 7b 31 34 7d 0d 17  de 14 20 20 4c 44 52 20  |!,{14}....  LDR |
00002950  53 43 52 2c 73 63 72 65  65 6e 0d 17 e8 0e 20 20  |SCR,screen....  |
00002960  4d 4f 56 20 41 2c 23 30  0d 17 f2 0e 20 20 4d 4f  |MOV A,#0....  MO|
00002970  56 20 42 2c 23 30 0d 17  fc 10 20 20 4d 4f 56 20  |V B,#0....  MOV |
00002980  52 31 34 2c 50 43 0d 18  06 13 20 20 4c 44 52 20  |R14,PC....  LDR |
00002990  50 43 2c 6d 65 74 68 6f  64 0d 18 10 12 20 20 53  |PC,method....  S|
000029a0  54 52 42 20 54 2c 5b 53  43 52 5d 0d 18 1a 0e 20  |TRB T,[SCR].... |
000029b0  20 4d 4f 56 20 53 2c 23  30 0d 18 24 12 20 20 53  | MOV S,#0..$.  S|
000029c0  54 52 20 53 50 2c 73 74  61 63 6b 0d 18 2e 15 20  |TR SP,stack.... |
000029d0  20 53 54 4d 46 44 20 28  53 50 29 21 2c 7b 53 7d  | STMFD (SP)!,{S}|
000029e0  0d 18 38 0e 20 20 2e 77  68 69 6c 65 5f 31 0d 18  |..8.  .while_1..|
000029f0  42 13 20 20 20 20 4c 44  52 20 54 2c 73 74 61 63  |B.    LDR T,stac|
00002a00  6b 0d 18 4c 10 20 20 20  20 43 4d 50 20 53 50 2c  |k..L.    CMP SP,|
00002a10  54 0d 18 56 15 20 20 20  20 20 20 4d 56 4e 45 51  |T..V.      MVNEQ|
00002a20  20 52 30 2c 23 30 0d 18  60 18 20 20 20 20 20 20  | R0,#0..`.      |
00002a30  42 45 51 20 65 6e 64 77  68 69 6c 65 5f 31 0d 18  |BEQ endwhile_1..|
00002a40  6a 0e 20 20 20 20 2e 74  72 61 63 6b 0d 18 74 19  |j.    .track..t.|
00002a50  20 20 20 20 20 20 4c 44  4d 46 44 20 28 53 50 29  |      LDMFD (SP)|
00002a60  21 2c 7b 53 7d 0d 18 7e  19 20 20 20 20 20 20 4d  |!,{S}..~.      M|
00002a70  4f 56 20 44 2c 53 2c 4c  53 52 20 23 32 38 0d 18  |OV D,S,LSR #28..|
00002a80  88 1b 20 20 20 20 20 20  42 49 43 20 53 2c 53 2c  |..      BIC S,S,|
00002a90  44 2c 4c 53 4c 20 23 32  38 0d 18 92 19 20 20 20  |D,LSL #28....   |
00002aa0  20 20 20 4d 4f 56 20 43  2c 53 2c 4c 53 52 20 23  |   MOV C,S,LSR #|
00002ab0  32 30 0d 18 9c 1b 20 20  20 20 20 20 42 49 43 20  |20....      BIC |
00002ac0  53 2c 53 2c 43 2c 4c 53  4c 20 23 32 30 0d 18 a6  |S,S,C,LSL #20...|
00002ad0  19 20 20 20 20 20 20 4d  4f 56 20 59 2c 53 2c 4c  |.      MOV Y,S,L|
00002ae0  53 52 20 23 31 30 0d 18  b0 1b 20 20 20 20 20 20  |SR #10....      |
00002af0  42 49 43 20 58 2c 53 2c  59 2c 4c 53 4c 20 23 31  |BIC X,S,Y,LSL #1|
00002b00  30 0d 18 ba 05 5d 0d 18  c4 13 e7 20 4e 72 5f 43  |0....]..... Nr_C|
00002b10  6f 6c 73 3d 32 35 36 20  8c 0d 18 ce 0d 5b 4f 50  |ols=256 .....[OP|
00002b20  54 20 50 41 53 53 0d 18  d8 1a 20 20 20 20 20 20  |T PASS....      |
00002b30  41 44 44 20 53 2c 59 2c  59 2c 4c 53 4c 20 23 32  |ADD S,Y,Y,LSL #2|
00002b40  0d 18 e2 1c 20 20 20 20  20 20 41 44 44 20 53 2c  |....      ADD S,|
00002b50  58 2c 53 2c 4c 53 4c 20  23 53 68 66 0d 18 ec 18  |X,S,LSL #Shf....|
00002b60  20 20 20 20 20 20 4c 44  52 42 20 4b 2c 5b 53 43  |      LDRB K,[SC|
00002b70  52 2c 53 5d 0d 18 f6 05  5d 0d 19 00 05 cc 0d 19  |R,S]....].......|
00002b80  0a 0d 5b 4f 50 54 20 50  41 53 53 0d 19 14 14 20  |..[OPT PASS.... |
00002b90  20 20 20 20 20 4d 4f 56  20 54 2c 23 43 6f 6c 0d  |     MOV T,#Col.|
00002ba0  19 1e 13 20 20 20 20 20  20 4d 55 4c 20 53 2c 59  |...      MUL S,Y|
00002bb0  2c 54 0d 19 28 13 20 20  20 20 20 20 41 44 44 20  |,T..(.      ADD |
00002bc0  53 2c 58 2c 53 0d 19 32  1f 20 20 20 20 20 20 4c  |S,X,S..2.      L|
00002bd0  44 52 42 20 4b 2c 5b 53  43 52 2c 53 2c 4c 53 52  |DRB K,[SCR,S,LSR|
00002be0  20 23 31 5d 0d 19 3c 12  20 20 20 20 20 20 54 53  | #1]..<.      TS|
00002bf0  54 20 53 2c 23 31 0d 19  46 18 20 20 20 20 20 20  |T S,#1..F.      |
00002c00  42 49 43 45 51 20 4b 2c  4b 2c 23 26 46 30 0d 19  |BICEQ K,K,#&F0..|
00002c10  50 1a 20 20 20 20 20 20  4d 4f 56 4e 45 20 4b 2c  |P.      MOVNE K,|
00002c20  4b 2c 4c 53 52 20 23 34  0d 19 5a 05 5d 0d 19 64  |K,LSR #4..Z.]..d|
00002c30  05 cd 0d 19 6e 0d 5b 4f  50 54 20 50 41 53 53 0d  |....n.[OPT PASS.|
00002c40  19 78 11 20 20 20 20 20  20 4d 4f 56 20 48 2c 53  |.x.      MOV H,S|
00002c50  0d 19 82 12 20 20 20 20  20 20 4d 4f 56 20 57 2c  |....      MOV W,|
00002c60  23 30 0d 19 8c 10 20 20  20 20 2e 77 68 69 6c 65  |#0....    .while|
00002c70  5f 32 0d 19 96 14 20 20  20 20 20 20 41 44 44 20  |_2....      ADD |
00002c80  44 2c 44 2c 23 35 0d 19  a0 1a 20 20 20 20 20 20  |D,D,#5....      |
00002c90  43 4d 50 20 4b 2c 23 4e  72 5f 43 6f 6c 73 2d 31  |CMP K,#Nr_Cols-1|
00002ca0  0d 19 aa 18 20 20 20 20  20 20 20 20 42 49 43 45  |....        BICE|
00002cb0  51 20 44 2c 44 2c 23 31  0d 19 b4 13 20 20 20 20  |Q D,D,#1....    |
00002cc0  20 20 4d 4f 56 20 43 4f  2c 23 38 0d 19 be 0f 20  |  MOV CO,#8.... |
00002cd0  20 20 20 20 20 2e 6c 6f  6f 70 0d 19 c8 19 20 20  |     .loop....  |
00002ce0  20 20 20 20 20 20 53 55  42 53 20 43 4f 2c 43 4f  |      SUBS CO,CO|
00002cf0  2c 23 31 0d 19 d2 1a 20  20 20 20 20 20 20 20 20  |,#1....         |
00002d00  20 42 45 51 20 65 6e 64  74 72 61 63 6b 0d 19 dc  | BEQ endtrack...|
00002d10  16 20 20 20 20 20 20 20  20 41 44 44 20 41 2c 58  |.        ADD A,X|
00002d20  2c 23 31 0d 19 e6 13 20  20 20 20 20 20 20 20 4d  |,#1....        M|
00002d30  4f 56 20 42 2c 59 0d 19  f0 16 20 20 20 20 20 20  |OV B,Y....      |
00002d40  20 20 41 44 44 20 44 2c  44 2c 23 31 0d 19 fa 1c  |  ADD D,D,#1....|
00002d50  20 20 20 20 20 20 20 20  43 4d 50 20 4b 2c 23 4e  |        CMP K,#N|
00002d60  72 5f 43 6f 6c 73 2d 31  0d 1a 04 1a 20 20 20 20  |r_Cols-1....    |
00002d70  20 20 20 20 20 20 41 44  44 45 51 20 44 2c 44 2c  |      ADDEQ D,D,|
00002d80  23 31 0d 1a 0e 17 20 20  20 20 20 20 20 20 80 20  |#1....        . |
00002d90  44 2c 44 2c 23 25 31 31  31 0d 1a 18 14 20 20 20  |D,D,#%111....   |
00002da0  20 20 20 20 20 43 4d 50  20 44 2c 23 31 0d 1a 22  |     CMP D,#1.."|
00002db0  1a 20 20 20 20 20 20 20  20 20 20 41 44 44 48 53  |.          ADDHS|
00002dc0  20 42 2c 59 2c 23 31 0d  1a 2c 14 20 20 20 20 20  | B,Y,#1..,.     |
00002dd0  20 20 20 43 4d 50 20 44  2c 23 32 0d 1a 36 1a 20  |   CMP D,#2..6. |
00002de0  20 20 20 20 20 20 20 20  20 53 55 42 48 53 20 41  |         SUBHS A|
00002df0  2c 41 2c 23 31 0d 1a 40  14 20 20 20 20 20 20 20  |,A,#1..@.       |
00002e00  20 43 4d 50 20 44 2c 23  33 0d 1a 4a 1a 20 20 20  | CMP D,#3..J.   |
00002e10  20 20 20 20 20 20 20 53  55 42 48 53 20 41 2c 41  |       SUBHS A,A|
00002e20  2c 23 31 0d 1a 54 14 20  20 20 20 20 20 20 20 43  |,#1..T.        C|
00002e30  4d 50 20 44 2c 23 34 0d  1a 5e 1a 20 20 20 20 20  |MP D,#4..^.     |
00002e40  20 20 20 20 20 53 55 42  48 53 20 42 2c 42 2c 23  |     SUBHS B,B,#|
00002e50  31 0d 1a 68 14 20 20 20  20 20 20 20 20 43 4d 50  |1..h.        CMP|
00002e60  20 44 2c 23 35 0d 1a 72  1a 20 20 20 20 20 20 20  | D,#5..r.       |
00002e70  20 20 20 53 55 42 48 53  20 42 2c 42 2c 23 31 0d  |   SUBHS B,B,#1.|
00002e80  1a 7c 14 20 20 20 20 20  20 20 20 43 4d 50 20 44  |.|.        CMP D|
00002e90  2c 23 36 0d 1a 86 1a 20  20 20 20 20 20 20 20 20  |,#6....         |
00002ea0  20 41 44 44 48 53 20 41  2c 41 2c 23 31 0d 1a 90  | ADDHS A,A,#1...|
00002eb0  14 20 20 20 20 20 20 20  20 43 4d 50 20 44 2c 23  |.        CMP D,#|
00002ec0  37 0d 1a 9a 1a 20 20 20  20 20 20 20 20 20 20 41  |7....          A|
00002ed0  44 44 48 53 20 41 2c 41  2c 23 31 0d 1a a4 16 20  |DDHS A,A,#1.... |
00002ee0  20 20 20 20 20 20 20 43  4d 50 20 41 2c 23 43 6f  |       CMP A,#Co|
00002ef0  6c 0d 1a ae 18 20 20 20  20 20 20 20 20 43 4d 50  |l....        CMP|
00002f00  4c 4f 20 42 2c 23 52 6f  77 0d 1a b8 14 20 20 20  |LO B,#Row....   |
00002f10  20 20 20 4d 56 4e 48 53  20 43 2c 23 30 0d 1a c2  |   MVNHS C,#0...|
00002f20  12 20 20 20 20 20 20 42  48 53 20 6c 6f 6f 70 0d  |.      BHS loop.|
00002f30  1a cc 05 5d 0d 1a d6 13  e7 20 4e 72 5f 43 6f 6c  |...]..... Nr_Col|
00002f40  73 3d 32 35 36 20 8c 0d  1a e0 0d 5b 4f 50 54 20  |s=256 .....[OPT |
00002f50  50 41 53 53 0d 1a ea 1c  20 20 20 20 20 20 20 20  |PASS....        |
00002f60  41 44 44 20 53 2c 42 2c  42 2c 4c 53 4c 20 23 32  |ADD S,B,B,LSL #2|
00002f70  0d 1a f4 1e 20 20 20 20  20 20 20 20 41 44 44 20  |....        ADD |
00002f80  53 2c 41 2c 53 2c 4c 53  4c 20 23 53 68 66 0d 1a  |S,A,S,LSL #Shf..|
00002f90  fe 20 20 20 20 20 20 20  20 20 43 4d 50 20 48 2c  |.         CMP H,|
00002fa0  53 3a 42 45 51 20 65 6e  64 74 72 61 63 6b 0d 1b  |S:BEQ endtrack..|
00002fb0  08 1a 20 20 20 20 20 20  20 20 4c 44 52 42 20 54  |..        LDRB T|
00002fc0  2c 5b 53 43 52 2c 53 5d  0d 1b 12 05 5d 0d 1b 1c  |,[SCR,S]....]...|
00002fd0  05 cc 0d 1b 26 0d 5b 4f  50 54 20 50 41 53 53 0d  |....&.[OPT PASS.|
00002fe0  1b 30 16 20 20 20 20 20  20 20 20 4d 4f 56 20 54  |.0.        MOV T|
00002ff0  2c 23 43 6f 6c 0d 1b 3a  15 20 20 20 20 20 20 20  |,#Col..:.       |
00003000  20 4d 55 4c 20 53 2c 42  2c 54 0d 1b 44 15 20 20  | MUL S,B,T..D.  |
00003010  20 20 20 20 20 20 41 44  44 20 53 2c 53 2c 41 0d  |      ADD S,S,A.|
00003020  1b 4e 20 20 20 20 20 20  20 20 20 43 4d 50 20 48  |.N         CMP H|
00003030  2c 53 3a 42 45 51 20 65  6e 64 74 72 61 63 6b 0d  |,S:BEQ endtrack.|
00003040  1b 58 21 20 20 20 20 20  20 20 20 4c 44 52 42 20  |.X!        LDRB |
00003050  47 2c 5b 53 43 52 2c 53  2c 4c 53 52 20 23 31 5d  |G,[SCR,S,LSR #1]|
00003060  0d 1b 62 14 20 20 20 20  20 20 20 20 54 53 54 20  |..b.        TST |
00003070  53 2c 23 31 0d 1b 6c 1a  20 20 20 20 20 20 20 20  |S,#1..l.        |
00003080  42 49 43 45 51 20 54 2c  47 2c 23 26 46 30 0d 1b  |BICEQ T,G,#&F0..|
00003090  76 1c 20 20 20 20 20 20  20 20 4d 4f 56 4e 45 20  |v.        MOVNE |
000030a0  54 2c 47 2c 4c 53 52 20  23 34 0d 1b 80 05 5d 0d  |T,G,LSR #4....].|
000030b0  1b 8a 05 cd 0d 1b 94 0d  5b 4f 50 54 20 50 41 53  |........[OPT PAS|
000030c0  53 0d 1b 9e 13 20 20 20  20 20 20 20 20 43 4d 50  |S....        CMP|
000030d0  20 54 2c 4b 0d 1b a8 1a  20 20 20 20 20 20 20 20  | T,K....        |
000030e0  20 20 41 44 44 45 51 20  57 2c 57 2c 23 31 0d 1b  |  ADDEQ W,W,#1..|
000030f0  b2 15 20 20 20 20 20 20  20 20 43 4d 50 20 43 4f  |..        CMP CO|
00003100  2c 23 35 0d 1b bc 16 20  20 20 20 20 20 20 20 43  |,#5....        C|
00003110  4d 50 4e 45 20 57 2c 23  38 0d 1b c6 1a 20 20 20  |MPNE W,#8....   |
00003120  20 20 20 20 20 20 20 42  48 49 20 65 6e 64 74 72  |       BHI endtr|
00003130  61 63 6b 0d 1b d0 14 20  20 20 20 20 20 20 20 43  |ack....        C|
00003140  4d 50 20 54 2c 23 30 0d  1b da 17 20 20 20 20 20  |MP T,#0....     |
00003150  20 20 20 42 4e 45 20 65  6e 64 69 66 5f 33 0d 1b  |   BNE endif_3..|
00003160  e4 18 20 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |..          MOV |
00003170  52 31 34 2c 50 43 0d 1b  ee 1b 20 20 20 20 20 20  |R14,PC....      |
00003180  20 20 20 20 4c 44 52 20  50 43 2c 6d 65 74 68 6f  |    LDR PC,metho|
00003190  64 0d 1b f8 05 5d 0d 1c  02 13 e7 20 4e 72 5f 43  |d....]..... Nr_C|
000031a0  6f 6c 73 3d 32 35 36 20  8c 0d 1c 0c 0d 5b 4f 50  |ols=256 .....[OP|
000031b0  54 20 50 41 53 53 0d 1c  16 1a 20 20 20 20 20 20  |T PASS....      |
000031c0  20 20 53 54 52 42 20 54  2c 5b 53 2c 53 43 52 5d  |  STRB T,[S,SCR]|
000031d0  0d 1c 20 05 5d 0d 1c 2a  05 cc 0d 1c 34 0d 5b 4f  |.. .]..*....4.[O|
000031e0  50 54 20 50 41 53 53 0d  1c 3e 21 20 20 20 20 20  |PT PASS..>!     |
000031f0  20 20 20 4c 44 52 42 20  47 2c 5b 53 43 52 2c 53  |   LDRB G,[SCR,S|
00003200  2c 4c 53 52 20 23 31 5d  0d 1c 48 14 20 20 20 20  |,LSR #1]..H.    |
00003210  20 20 20 20 54 53 54 20  53 2c 23 31 0d 1c 52 17  |    TST S,#1..R.|
00003220  20 20 20 20 20 20 20 20  41 44 44 45 51 20 47 2c  |        ADDEQ G,|
00003230  47 2c 54 0d 1c 5c 1e 20  20 20 20 20 20 20 20 41  |G,T..\.        A|
00003240  44 44 4e 45 20 47 2c 47  2c 54 2c 4c 53 4c 20 23  |DDNE G,G,T,LSL #|
00003250  34 0d 1c 66 21 20 20 20  20 20 20 20 20 53 54 52  |4..f!        STR|
00003260  42 20 47 2c 5b 53 43 52  2c 53 2c 4c 53 52 20 23  |B G,[SCR,S,LSR #|
00003270  31 5d 0d 1c 70 05 5d 0d  1c 7a 05 cd 0d 1c 84 07  |1]..p.]..z......|
00003280  3d 22 22 0d 1c 8e 04 0d  1c 98 23 dd 20 a4 5f 54  |="".......#. ._T|
00003290  52 41 43 4b 32 28 4e 72  5f 43 6f 6c 73 2c 52 6f  |RACK2(Nr_Cols,Ro|
000032a0  77 2c 43 6f 6c 2c 53 68  66 29 0d 1c a2 0d 5b 4f  |w,Col,Shf)....[O|
000032b0  50 54 20 50 41 53 53 0d  1c ac 15 20 20 20 20 20  |PT PASS....     |
000032c0  20 20 20 20 20 43 4d 50  20 54 2c 4b 0d 1c b6 17  |     CMP T,K....|
000032d0  20 20 20 20 20 20 20 20  20 20 20 20 ec 51 20 57  |            .Q W|
000032e0  2c 23 30 0d 1c c0 19 20  20 20 20 20 20 20 20 20  |,#0....         |
000032f0  20 42 45 51 20 65 6e 64  69 66 5f 32 0d 1c ca 17  | BEQ endif_2....|
00003300  20 20 20 20 20 20 20 20  20 20 20 20 43 4d 50 20  |            CMP |
00003310  54 2c 43 0d 1c d4 1b 20  20 20 20 20 20 20 20 20  |T,C....         |
00003320  20 20 20 42 45 51 20 65  6e 64 69 66 5f 31 0d 1c  |   BEQ endif_1..|
00003330  de 23 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.#              |
00003340  41 44 44 20 53 2c 41 2c  42 2c 4c 53 4c 20 23 31  |ADD S,A,B,LSL #1|
00003350  30 0d 1c e8 23 20 20 20  20 20 20 20 20 20 20 20  |0...#           |
00003360  20 20 20 41 44 44 20 53  2c 53 2c 43 2c 4c 53 4c  |   ADD S,S,C,LSL|
00003370  20 23 32 30 0d 1c f2 23  20 20 20 20 20 20 20 20  | #20...#        |
00003380  20 20 20 20 20 20 41 44  44 20 53 2c 53 2c 44 2c  |      ADD S,S,D,|
00003390  4c 53 4c 20 23 32 38 0d  1c fc 21 20 20 20 20 20  |LSL #28...!     |
000033a0  20 20 20 20 20 20 20 20  20 53 54 4d 46 44 20 28  |         STMFD (|
000033b0  53 50 29 21 2c 7b 53 7d  0d 1d 06 19 20 20 20 20  |SP)!,{S}....    |
000033c0  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 43 2c  |          MOV C,|
000033d0  54 0d 1d 10 18 20 20 20  20 20 20 20 20 20 20 20  |T....           |
000033e0  20 2e 65 6e 64 69 66 5f  31 0d 1d 1a 16 20 20 20  | .endif_1....   |
000033f0  20 20 20 20 20 20 20 2e  65 6e 64 69 66 5f 32 0d  |       .endif_2.|
00003400  1d 24 14 20 20 20 20 20  20 20 20 2e 65 6e 64 69  |.$.        .endi|
00003410  66 5f 33 0d 1d 2e 13 20  20 20 20 20 20 20 20 43  |f_3....        C|
00003420  4d 50 20 54 2c 4b 0d 1d  38 12 20 20 20 20 20 20  |MP T,K..8.      |
00003430  42 4e 45 20 6c 6f 6f 70  0d 1d 42 11 20 20 20 20  |BNE loop..B.    |
00003440  20 20 4d 4f 56 20 58 2c  41 0d 1d 4c 11 20 20 20  |  MOV X,A..L.   |
00003450  20 20 20 4d 4f 56 20 59  2c 42 0d 1d 56 13 20 20  |   MOV Y,B..V.  |
00003460  20 20 42 41 4c 20 77 68  69 6c 65 5f 32 0d 1d 60  |  BAL while_2..`|
00003470  11 20 20 20 20 2e 65 6e  64 74 72 61 63 6b 0d 1d  |.    .endtrack..|
00003480  6a 1e 20 20 53 57 49 20  22 4f 53 5f 52 65 61 64  |j.  SWI "OS_Read|
00003490  45 73 63 61 70 65 53 74  61 74 65 22 0d 1d 74 11  |EscapeState"..t.|
000034a0  20 20 42 43 43 20 77 68  69 6c 65 5f 31 0d 1d 7e  |  BCC while_1..~|
000034b0  11 20 20 4d 4f 56 20 52  30 2c 23 26 37 43 0d 1d  |.  MOV R0,#&7C..|
000034c0  88 13 20 20 53 57 49 20  22 4f 53 5f 42 79 74 65  |..  SWI "OS_Byte|
000034d0  22 0d 1d 92 0f 20 20 4d  4f 56 20 52 30 2c 23 30  |"....  MOV R0,#0|
000034e0  0d 1d 9c 11 20 20 2e 65  6e 64 77 68 69 6c 65 5f  |....  .endwhile_|
000034f0  31 0d 1d a6 12 20 20 4c  44 52 20 53 50 2c 73 74  |1....  LDR SP,st|
00003500  61 63 6b 0d 1d b0 14 4c  44 4d 46 44 20 28 53 50  |ack....LDMFD (SP|
00003510  29 21 2c 7b 50 43 7d 0d  1d ba 09 5d 3a 3d 22 22  |)!,{PC}....]:=""|
00003520  0d 1d c4 04 0d 1d ce 17  dd 20 f2 63 6f 6c 74 61  |......... .colta|
00003530  62 6c 65 28 43 54 41 42  4c 45 29 0d 1d d8 09 53  |ble(CTABLE)....S|
00003540  57 50 3d 32 0d 1d e2 0c  43 3d 30 3a 4d 3d 31 35  |WP=2....C=0:M=15|
00003550  0d 1d ec 0d e3 20 4b 3d  30 20 b8 20 4d 0d 1d f6  |..... K=0 . M...|
00003560  24 f2 70 75 74 28 43 2b  28 4b 20 80 20 25 31 31  |$.put(C+(K . %11|
00003570  30 30 29 2a 35 2e 32 35  2c 4b 20 80 20 25 31 31  |00)*5.25,K . %11|
00003580  29 0d 1e 00 05 ed 0d 1e  0a 0d e3 20 54 3d 31 20  |).......... T=1 |
00003590  b8 20 33 0d 1e 14 13 43  3d 54 3a 4d 3d 34 2a 28  |. 3....C=T:M=4*(|
000035a0  34 2d 54 29 2d 31 0d 1e  1e 0e f2 73 69 64 65 28  |4-T)-1.....side(|
000035b0  20 20 34 29 0d 1e 28 0e  f2 73 69 64 65 28 2d 20  |  4)..(..side(- |
000035c0  31 29 0d 1e 32 0e f2 73  69 64 65 28 20 31 36 29  |1)..2..side( 16)|
000035d0  0d 1e 3c 0e f2 73 69 64  65 28 2d 20 34 29 0d 1e  |..<..side(- 4)..|
000035e0  46 0e f2 73 69 64 65 28  20 20 31 29 0d 1e 50 0e  |F..side(  1)..P.|
000035f0  f2 73 69 64 65 28 2d 31  36 29 0d 1e 5a 05 ed 0d  |.side(-16)..Z...|
00003600  1e 64 05 e1 0d 1e 6e 04  0d 1e 78 10 dd 20 f2 73  |.d....n...x.. .s|
00003610  69 64 65 28 52 47 42 29  0d 1e 82 0d e3 20 49 3d  |ide(RGB)..... I=|
00003620  31 20 b8 20 54 0d 1e 8c  0a 43 2b 3d 52 47 42 0d  |1 . T....C+=RGB.|
00003630  1e 96 0d e7 20 53 57 50  3d 31 20 8c 0d 1e a0 0d  |.... SWP=1 .....|
00003640  e3 20 4b 3d 30 20 b8 20  4d 0d 1e aa 24 f2 70 75  |. K=0 . M...$.pu|
00003650  74 28 43 2b 28 4b 20 80  20 25 31 31 30 30 29 2a  |t(C+(K . %1100)*|
00003660  35 2e 32 35 2c 4b 20 80  20 25 31 31 29 0d 1e b4  |5.25,K . %11)...|
00003670  05 ed 0d 1e be 05 cc 0d  1e c8 12 e3 20 4b 3d 4d  |............ K=M|
00003680  20 b8 20 30 20 88 20 2d  31 0d 1e d2 24 f2 70 75  | . 0 . -1...$.pu|
00003690  74 28 43 2b 28 4b 20 80  20 25 31 31 30 30 29 2a  |t(C+(K . %1100)*|
000036a0  35 2e 32 35 2c 4b 20 80  20 25 31 31 29 0d 1e dc  |5.25,K . %11)...|
000036b0  05 ed 0d 1e e6 05 cd 0d  1e f0 0f 53 57 50 3d 53  |...........SWP=S|
000036c0  57 50 20 82 20 33 0d 1e  fa 05 ed 0d 1f 04 05 e1  |WP . 3..........|
000036d0  0d 1f 0e 04 0d 1f 18 0f  dd 20 f2 70 75 74 28 43  |......... .put(C|
000036e0  2c 54 29 0d 1f 22 11 42  31 3d 28 43 3e 3e 35 29  |,T)..".B1=(C>>5)|
000036f0  20 80 20 31 0d 1f 2c 11  42 32 3d 28 43 3e 3e 34  | . 1..,.B2=(C>>4|
00003700  29 20 80 20 31 0d 1f 36  11 47 31 3d 28 43 3e 3e  |) . 1..6.G1=(C>>|
00003710  33 29 20 80 20 31 0d 1f  40 11 47 32 3d 28 43 3e  |3) . 1..@.G2=(C>|
00003720  3e 32 29 20 80 20 31 0d  1f 4a 11 52 31 3d 28 43  |>2) . 1..J.R1=(C|
00003730  3e 3e 31 29 20 80 20 31  0d 1f 54 11 52 32 3d 28  |>>1) . 1..T.R2=(|
00003740  43 3e 3e 30 29 20 80 20  31 0d 1f 5e 31 43 4f 4c  |C>>0) . 1..^1COL|
00003750  3d 54 2b 34 2a 28 52 32  2b 32 2a 28 42 32 2b 32  |=T+4*(R2+2*(B2+2|
00003760  2a 28 52 31 2b 32 2a 28  47 32 2b 32 2a 28 47 31  |*(R1+2*(G2+2*(G1|
00003770  2b 32 2a 42 31 29 29 29  29 29 0d 1f 68 0f 3f 43  |+2*B1)))))..h.?C|
00003780  54 41 42 4c 45 3d 43 4f  4c 0d 1f 72 0d 43 54 41  |TABLE=COL..r.CTA|
00003790  42 4c 45 2b 3d 31 0d 1f  7c 05 e1 0d 1f 86 04 0d  |BLE+=1..|.......|
000037a0  1f 90 0f dd 20 f2 69 6e  76 74 61 62 6c 65 0d 1f  |.... .invtable..|
000037b0  9a 12 de 20 55 50 43 54  41 42 4c 45 20 32 35 36  |... UPCTABLE 256|
000037c0  0d 1f a4 14 de 20 44 4f  57 4e 43 54 41 42 4c 45  |..... DOWNCTABLE|
000037d0  20 32 35 36 0d 1f ae 0f  e3 20 49 3d 31 20 b8 20  | 256..... I=1 . |
000037e0  32 35 34 0d 1f b8 10 43  3d 43 54 41 42 4c 45 3f  |254....C=CTABLE?|
000037f0  28 49 29 0d 1f c2 1b 55  50 43 54 41 42 4c 45 3f  |(I)....UPCTABLE?|
00003800  43 3d 43 54 41 42 4c 45  3f 28 49 2b 31 29 0d 1f  |C=CTABLE?(I+1)..|
00003810  cc 05 ed 0d 1f d6 12 43  3d 43 54 41 42 4c 45 3f  |.......C=CTABLE?|
00003820  28 32 35 35 29 0d 1f e0  19 55 50 43 54 41 42 4c  |(255)....UPCTABL|
00003830  45 3f 43 3d 43 54 41 42  4c 45 3f 28 31 29 0d 1f  |E?C=CTABLE?(1)..|
00003840  ea 10 55 50 43 54 41 42  4c 45 3f 30 3d 30 0d 1f  |..UPCTABLE?0=0..|
00003850  f4 0f e3 20 49 3d 32 20  b8 20 32 35 35 0d 1f fe  |... I=2 . 255...|
00003860  10 43 3d 43 54 41 42 4c  45 3f 28 49 29 0d 20 08  |.C=CTABLE?(I). .|
00003870  1d 44 4f 57 4e 43 54 41  42 4c 45 3f 43 3d 43 54  |.DOWNCTABLE?C=CT|
00003880  41 42 4c 45 3f 28 49 2d  31 29 0d 20 12 05 ed 0d  |ABLE?(I-1). ....|
00003890  20 1c 10 43 3d 43 54 41  42 4c 45 3f 28 31 29 0d  | ..C=CTABLE?(1).|
000038a0  20 26 1d 44 4f 57 4e 43  54 41 42 4c 45 3f 43 3d  | &.DOWNCTABLE?C=|
000038b0  43 54 41 42 4c 45 3f 28  32 35 35 29 0d 20 30 12  |CTABLE?(255). 0.|
000038c0  44 4f 57 4e 43 54 41 42  4c 45 3f 30 3d 30 0d 20  |DOWNCTABLE?0=0. |
000038d0  3a 05 e1 0d 20 44 04 0d  20 4e 0b dd 20 f2 6d 61  |:... D.. N.. .ma|
000038e0  6e 64 0d 20 58 0d 51 25  3d 51 6d 61 6e 64 25 0d  |nd. X.Q%=Qmand%.|
000038f0  20 62 32 41 3d 33 3a 42  3d 34 3a 48 3d 35 3a 50  | b2A=3:B=4:H=5:P|
00003900  3d 36 3a 53 3d 37 3a 55  3d 38 3a 56 3d 39 3a 44  |=6:S=7:U=8:V=9:D|
00003910  3d 31 30 3a 4d 3d 31 31  3a 4e 3d 31 32 3a 54 3d  |=10:M=11:N=12:T=|
00003920  30 0d 20 6c 14 e3 20 50  41 53 53 3d 30 20 b8 20  |0. l.. PASS=0 . |
00003930  32 20 88 20 32 0d 20 76  09 50 25 3d 51 25 0d 20  |2 . 2. v.P%=Q%. |
00003940  80 0d 5b 4f 50 54 20 50  41 53 53 0d 20 8a 0f 2e  |..[OPT PASS. ...|
00003950  44 44 20 20 45 51 55 44  20 30 0d 20 94 0f 2e 4f  |DD  EQUD 0. ...O|
00003960  58 44 20 45 51 55 44 20  30 0d 20 9e 0f 2e 4f 59  |XD EQUD 0. ...OY|
00003970  44 20 45 51 55 44 20 30  0d 20 a8 0e 2e 46 44 20  |D EQUD 0. ...FD |
00003980  45 51 55 44 20 30 0d 20  b2 13 2e 43 54 20 45 51  |EQUD 0. ...CT EQ|
00003990  55 44 20 43 54 41 42 4c  45 0d 20 bc 0f 2e 69 74  |UD CTABLE. ...it|
000039a0  65 72 61 74 69 6f 6e 48  0d 20 c6 14 53 54 4d 46  |erationH. ..STMF|
000039b0  44 20 31 33 21 2c 7b 31  2d 31 32 7d 0d 20 d0 0f  |D 13!,{1-12}. ..|
000039c0  20 20 4c 44 52 20 55 2c  4f 58 44 0d 20 da 0f 20  |  LDR U,OXD. .. |
000039d0  20 4c 44 52 20 56 2c 4f  59 44 0d 20 e4 0e 20 20  | LDR V,OYD. ..  |
000039e0  4c 44 52 20 44 2c 46 44  0d 20 ee 11 20 20 4d 4c  |LDR D,FD. ..  ML|
000039f0  41 20 41 2c 44 2c 41 2c  55 0d 20 f8 11 20 20 4d  |A A,D,A,U. ..  M|
00003a00  4c 41 20 42 2c 44 2c 42  2c 56 0d 21 02 0d 20 20  |LA B,D,B,V.!..  |
00003a10  4d 4f 56 20 55 2c 41 0d  21 0c 0d 20 20 4d 4f 56  |MOV U,A.!..  MOV|
00003a20  20 56 2c 42 0d 21 16 0e  20 20 4c 44 52 20 44 2c  | V,B.!..  LDR D,|
00003a30  44 44 0d 21 20 0d a4 66  72 61 63 74 61 6c 48 0d  |DD.! ..fractalH.|
00003a40  21 2a 05 5d 0d 21 34 0a  ed 20 50 41 53 53 0d 21  |!*.].!4.. PASS.!|
00003a50  3e 09 51 25 3d 50 25 0d  21 48 14 e3 20 50 41 53  |>.Q%=P%.!H.. PAS|
00003a60  53 3d 30 20 b8 20 32 20  88 20 32 0d 21 52 09 50  |S=0 . 2 . 2.!R.P|
00003a70  25 3d 51 25 0d 21 5c 0d  5b 4f 50 54 20 50 41 53  |%=Q%.!\.[OPT PAS|
00003a80  53 0d 21 66 0f 2e 69 74  65 72 61 74 69 6f 6e 4c  |S.!f..iterationL|
00003a90  0d 21 70 14 53 54 4d 46  44 20 31 33 21 2c 7b 31  |.!p.STMFD 13!,{1|
00003aa0  2d 31 32 7d 0d 21 7a 0f  20 20 4c 44 52 20 55 2c  |-12}.!z.  LDR U,|
00003ab0  4f 58 44 0d 21 84 0f 20  20 4c 44 52 20 56 2c 4f  |OXD.!..  LDR V,O|
00003ac0  59 44 0d 21 8e 0e 20 20  4c 44 52 20 44 2c 46 44  |YD.!..  LDR D,FD|
00003ad0  0d 21 98 11 20 20 4d 4c  41 20 41 2c 44 2c 41 2c  |.!..  MLA A,D,A,|
00003ae0  55 0d 21 a2 11 20 20 4d  4c 41 20 42 2c 44 2c 42  |U.!..  MLA B,D,B|
00003af0  2c 56 0d 21 ac 15 20 20  4d 4f 56 20 41 2c 41 2c  |,V.!..  MOV A,A,|
00003b00  41 53 52 20 23 31 36 0d  21 b6 15 20 20 4d 4f 56  |ASR #16.!..  MOV|
00003b10  20 42 2c 42 2c 41 53 52  20 23 31 36 0d 21 c0 0d  | B,B,ASR #16.!..|
00003b20  20 20 4d 4f 56 20 55 2c  41 0d 21 ca 0d 20 20 4d  |  MOV U,A.!..  M|
00003b30  4f 56 20 56 2c 42 0d 21  d4 0e 20 20 4c 44 52 20  |OV V,B.!..  LDR |
00003b40  44 2c 44 44 0d 21 de 0d  a4 66 72 61 63 74 61 6c  |D,DD.!...fractal|
00003b50  4c 0d 21 e8 05 5d 0d 21  f2 0a ed 20 50 41 53 53  |L.!..].!... PASS|
00003b60  0d 21 fc 05 e1 0d 22 06  04 0d 22 10 0a dd 20 f2  |.!...."..."... .|
00003b70  6a 75 6c 0d 22 1a 0c 51  25 3d 51 6a 75 6c 25 0d  |jul."..Q%=Qjul%.|
00003b80  22 24 32 41 3d 33 3a 42  3d 34 3a 48 3d 35 3a 50  |"$2A=3:B=4:H=5:P|
00003b90  3d 36 3a 53 3d 37 3a 55  3d 38 3a 56 3d 39 3a 44  |=6:S=7:U=8:V=9:D|
00003ba0  3d 31 30 3a 4d 3d 31 31  3a 4e 3d 31 32 3a 54 3d  |=10:M=11:N=12:T=|
00003bb0  30 0d 22 2e 14 e3 20 50  41 53 53 3d 30 20 b8 20  |0."... PASS=0 . |
00003bc0  32 20 88 20 32 0d 22 38  09 50 25 3d 51 25 0d 22  |2 . 2."8.P%=Q%."|
00003bd0  42 0d 5b 4f 50 54 20 50  41 53 53 0d 22 4c 0e 2e  |B.[OPT PASS."L..|
00003be0  41 44 20 45 51 55 44 20  30 0d 22 56 0e 2e 42 44  |AD EQUD 0."V..BD|
00003bf0  20 45 51 55 44 20 30 0d  22 60 0f 2e 4a 44 44 20  | EQUD 0."`..JDD |
00003c00  45 51 55 44 20 30 0d 22  6a 0f 2e 4a 58 44 20 45  |EQUD 0."j..JXD E|
00003c10  51 55 44 20 30 0d 22 74  0f 2e 4a 59 44 20 45 51  |QUD 0."t..JYD EQ|
00003c20  55 44 20 30 0d 22 7e 0f  2e 4a 46 44 20 45 51 55  |UD 0."~..JFD EQU|
00003c30  44 20 30 0d 22 88 13 2e  43 54 20 45 51 55 44 20  |D 0."...CT EQUD |
00003c40  43 54 41 42 4c 45 0d 22  92 0b 2e 6a 75 6c 69 61  |CTABLE."...julia|
00003c50  48 0d 22 9c 14 53 54 4d  46 44 20 31 33 21 2c 7b  |H."..STMFD 13!,{|
00003c60  31 2d 31 32 7d 0d 22 a6  0f 20 20 4c 44 52 20 55  |1-12}."..  LDR U|
00003c70  2c 4a 58 44 0d 22 b0 0f  20 20 4c 44 52 20 56 2c  |,JXD."..  LDR V,|
00003c80  4a 59 44 0d 22 ba 0f 20  20 4c 44 52 20 44 2c 4a  |JYD."..  LDR D,J|
00003c90  46 44 0d 22 c4 11 20 20  4d 4c 41 20 55 2c 44 2c  |FD."..  MLA U,D,|
00003ca0  41 2c 55 0d 22 ce 11 20  20 4d 4c 41 20 56 2c 44  |A,U."..  MLA V,D|
00003cb0  2c 42 2c 56 0d 22 d8 0e  20 20 4c 44 52 20 41 2c  |,B,V."..  LDR A,|
00003cc0  41 44 0d 22 e2 0e 20 20  4c 44 52 20 42 2c 42 44  |AD."..  LDR B,BD|
00003cd0  0d 22 ec 0f 20 20 4c 44  52 20 44 2c 4a 44 44 0d  |."..  LDR D,JDD.|
00003ce0  22 f6 0f 20 20 a4 66 72  61 63 74 61 6c 48 0d 23  |"..  .fractalH.#|
00003cf0  00 05 5d 0d 23 0a 0a ed  20 50 41 53 53 0d 23 14  |..].#... PASS.#.|
00003d00  09 51 25 3d 50 25 0d 23  1e 14 e3 20 50 41 53 53  |.Q%=P%.#... PASS|
00003d10  3d 30 20 b8 20 32 20 88  20 32 0d 23 28 09 50 25  |=0 . 2 . 2.#(.P%|
00003d20  3d 51 25 0d 23 32 0d 5b  4f 50 54 20 50 41 53 53  |=Q%.#2.[OPT PASS|
00003d30  0d 23 3c 0b 2e 6a 75 6c  69 61 4c 0d 23 46 14 53  |.#<..juliaL.#F.S|
00003d40  54 4d 46 44 20 31 33 21  2c 7b 31 2d 31 32 7d 0d  |TMFD 13!,{1-12}.|
00003d50  23 50 0f 20 20 4c 44 52  20 55 2c 4a 58 44 0d 23  |#P.  LDR U,JXD.#|
00003d60  5a 0f 20 20 4c 44 52 20  56 2c 4a 59 44 0d 23 64  |Z.  LDR V,JYD.#d|
00003d70  0f 20 20 4c 44 52 20 44  2c 4a 46 44 0d 23 6e 11  |.  LDR D,JFD.#n.|
00003d80  20 20 4d 4c 41 20 41 2c  44 2c 41 2c 55 0d 23 78  |  MLA A,D,A,U.#x|
00003d90  11 20 20 4d 4c 41 20 42  2c 44 2c 42 2c 56 0d 23  |.  MLA B,D,B,V.#|
00003da0  82 15 20 20 4d 4f 56 20  55 2c 41 2c 41 53 52 20  |..  MOV U,A,ASR |
00003db0  23 31 36 0d 23 8c 15 20  20 4d 4f 56 20 56 2c 42  |#16.#..  MOV V,B|
00003dc0  2c 41 53 52 20 23 31 36  0d 23 96 0e 20 20 4c 44  |,ASR #16.#..  LD|
00003dd0  52 20 41 2c 41 44 0d 23  a0 15 20 20 4d 4f 56 20  |R A,AD.#..  MOV |
00003de0  41 2c 41 2c 41 53 52 20  23 31 36 0d 23 aa 0e 20  |A,A,ASR #16.#.. |
00003df0  20 4c 44 52 20 42 2c 42  44 0d 23 b4 15 20 20 4d  | LDR B,BD.#..  M|
00003e00  4f 56 20 42 2c 42 2c 41  53 52 20 23 31 36 0d 23  |OV B,B,ASR #16.#|
00003e10  be 0f 20 20 4c 44 52 20  44 2c 4a 44 44 0d 23 c8  |..  LDR D,JDD.#.|
00003e20  0f 20 20 a4 66 72 61 63  74 61 6c 4c 0d 23 d2 05  |.  .fractalL.#..|
00003e30  5d 0d 23 dc 0a ed 20 50  41 53 53 0d 23 e6 05 e1  |].#... PASS.#...|
00003e40  0d 23 f0 04 0d 23 fa 0f  dd 20 a4 66 72 61 63 74  |.#...#... .fract|
00003e50  61 6c 4c 0d 24 04 0d 5b  4f 50 54 20 50 41 53 53  |alL.$..[OPT PASS|
00003e60  0d 24 0e 0e 20 20 4c 44  52 20 50 2c 43 54 0d 24  |.$..  LDR P,CT.$|
00003e70  18 0e 20 20 2e 77 68 69  6c 65 5f 32 0d 24 22 10  |..  .while_2.$".|
00003e80  20 20 20 20 4d 4f 56 53  20 48 2c 55 0d 24 2c 16  |    MOVS H,U.$,.|
00003e90  20 20 20 20 20 20 52 53  42 4d 49 20 48 2c 48 2c  |      RSBMI H,H,|
00003ea0  23 30 0d 24 36 11 20 20  20 20 4d 55 4c 20 53 2c  |#0.$6.    MUL S,|
00003eb0  48 2c 48 0d 24 40 10 20  20 20 20 4d 4f 56 53 20  |H,H.$@.    MOVS |
00003ec0  48 2c 56 0d 24 4a 16 20  20 20 20 20 20 52 53 42  |H,V.$J.      RSB|
00003ed0  4d 49 20 48 2c 48 2c 23  30 0d 24 54 11 20 20 20  |MI H,H,#0.$T.   |
00003ee0  20 4d 55 4c 20 54 2c 48  2c 48 0d 24 5e 11 20 20  | MUL T,H,H.$^.  |
00003ef0  20 20 41 44 44 20 48 2c  53 2c 54 0d 24 68 15 20  |  ADD H,S,T.$h. |
00003f00  20 20 20 43 4d 50 20 48  2c 23 34 3c 3c 20 32 36  |   CMP H,#4<< 26|
00003f10  0d 24 72 13 20 20 20 20  20 20 42 48 53 20 62 72  |.$r.      BHS br|
00003f20  65 61 6b 0d 24 7c 12 20  20 20 20 41 44 44 53 20  |eak.$|.    ADDS |
00003f30  4e 2c 55 2c 56 0d 24 86  16 20 20 20 20 20 20 52  |N,U,V.$..      R|
00003f40  53 42 4d 49 20 4e 2c 4e  2c 23 30 0d 24 90 11 20  |SBMI N,N,#0.$.. |
00003f50  20 20 20 4d 55 4c 20 4d  2c 4e 2c 4e 0d 24 9a 11  |   MUL M,N,N.$..|
00003f60  20 20 20 20 53 55 42 20  48 2c 4d 2c 48 0d 24 a4  |    SUB H,M,H.$.|
00003f70  19 20 20 20 20 41 44 44  20 56 2c 42 2c 48 2c 41  |.    ADD V,B,H,A|
00003f80  53 52 20 23 31 33 0d 24  ae 11 20 20 20 20 53 55  |SR #13.$..    SU|
00003f90  42 20 55 2c 53 2c 54 0d  24 b8 1a 20 20 20 20 41  |B U,S,T.$..    A|
00003fa0  44 44 53 20 55 2c 41 2c  55 2c 41 53 52 20 23 31  |DDS U,A,U,ASR #1|
00003fb0  33 0d 24 c2 10 20 20 20  20 4d 4f 56 53 20 48 2c  |3.$..    MOVS H,|
00003fc0  55 0d 24 cc 16 20 20 20  20 20 20 52 53 42 4d 49  |U.$..      RSBMI|
00003fd0  20 48 2c 48 2c 23 30 0d  24 d6 11 20 20 20 20 4d  | H,H,#0.$..    M|
00003fe0  55 4c 20 53 2c 48 2c 48  0d 24 e0 10 20 20 20 20  |UL S,H,H.$..    |
00003ff0  4d 4f 56 53 20 48 2c 56  0d 24 ea 16 20 20 20 20  |MOVS H,V.$..    |
00004000  20 20 52 53 42 4d 49 20  48 2c 48 2c 23 30 0d 24  |  RSBMI H,H,#0.$|
00004010  f4 11 20 20 20 20 4d 55  4c 20 54 2c 48 2c 48 0d  |..    MUL T,H,H.|
00004020  24 fe 11 20 20 20 20 41  44 44 20 48 2c 53 2c 54  |$..    ADD H,S,T|
00004030  0d 25 08 15 20 20 20 20  43 4d 50 20 48 2c 23 34  |.%..    CMP H,#4|
00004040  3c 3c 20 32 36 0d 25 12  14 20 20 20 20 20 20 42  |<< 26.%..      B|
00004050  48 53 20 62 72 65 61 6b  32 0d 25 1c 12 20 20 20  |HS break2.%..   |
00004060  20 41 44 44 53 20 4e 2c  55 2c 56 0d 25 26 16 20  | ADDS N,U,V.%&. |
00004070  20 20 20 20 20 52 53 42  4d 49 20 4e 2c 4e 2c 23  |     RSBMI N,N,#|
00004080  30 0d 25 30 11 20 20 20  20 4d 55 4c 20 4d 2c 4e  |0.%0.    MUL M,N|
00004090  2c 4e 0d 25 3a 11 20 20  20 20 53 55 42 20 48 2c  |,N.%:.    SUB H,|
000040a0  4d 2c 48 0d 25 44 19 20  20 20 20 41 44 44 20 56  |M,H.%D.    ADD V|
000040b0  2c 42 2c 48 2c 41 53 52  20 23 31 33 0d 25 4e 11  |,B,H,ASR #13.%N.|
000040c0  20 20 20 20 53 55 42 20  55 2c 53 2c 54 0d 25 58  |    SUB U,S,T.%X|
000040d0  19 20 20 20 20 41 44 44  20 55 2c 41 2c 55 2c 41  |.    ADD U,A,U,A|
000040e0  53 52 20 23 31 33 0d 25  62 13 20 20 20 20 53 55  |SR #13.%b.    SU|
000040f0  42 53 20 44 2c 44 2c 23  32 0d 25 6c 11 20 20 42  |BS D,D,#2.%l.  B|
00004100  4e 45 20 77 68 69 6c 65  5f 32 0d 25 76 05 5d 0d  |NE while_2.%v.].|
00004110  25 80 12 e7 20 4e 72 5f  43 6f 6c 73 3d 31 36 20  |%... Nr_Cols=16 |
00004120  8c 0d 25 8a 0d 5b 4f 50  54 20 50 41 53 53 0d 25  |..%..[OPT PASS.%|
00004130  94 0d 4d 4f 56 20 54 2c  23 31 35 0d 25 9e 14 4c  |..MOV T,#15.%..L|
00004140  44 4d 46 44 20 31 33 21  2c 7b 31 2d 31 32 7d 0d  |DMFD 13!,{1-12}.|
00004150  25 a8 0e 4d 4f 56 20 50  43 2c 52 31 34 0d 25 b2  |%..MOV PC,R14.%.|
00004160  0b 2e 62 72 65 61 6b 32  0d 25 bc 10 20 53 55 42  |..break2.%.. SUB|
00004170  53 20 44 2c 44 2c 23 31  0d 25 c6 0a 2e 62 72 65  |S D,D,#1.%...bre|
00004180  61 6b 0d 25 d0 0e 41 44  44 20 44 2c 44 2c 23 38  |ak.%..ADD D,D,#8|
00004190  0d 25 da 0e 20 20 2e 77  68 69 6c 65 5f 33 0d 25  |.%..  .while_3.%|
000041a0  e4 11 20 20 20 20 43 4d  50 20 44 2c 23 31 34 0d  |..    CMP D,#14.|
000041b0  25 ee 15 20 20 20 20 53  55 42 48 49 20 44 2c 44  |%..    SUBHI D,D|
000041c0  2c 23 31 34 0d 25 f8 11  20 20 42 48 49 20 77 68  |,#14.%..  BHI wh|
000041d0  69 6c 65 5f 33 0d 26 02  0d 20 20 4d 4f 56 20 54  |ile_3.&..  MOV T|
000041e0  2c 44 0d 26 0c 16 20 20  4c 44 4d 46 44 20 31 33  |,D.&..  LDMFD 13|
000041f0  21 2c 7b 31 2d 31 32 7d  0d 26 16 10 20 20 4d 4f  |!,{1-12}.&..  MO|
00004200  56 20 50 43 2c 52 31 34  0d 26 20 05 5d 0d 26 2a  |V PC,R14.& .].&*|
00004210  05 cc 0d 26 34 0d 5b 4f  50 54 20 50 41 53 53 0d  |...&4.[OPT PASS.|
00004220  26 3e 0e 4d 4f 56 20 54  2c 23 32 35 35 0d 26 48  |&>.MOV T,#255.&H|
00004230  14 4c 44 4d 46 44 20 31  33 21 2c 7b 31 2d 31 32  |.LDMFD 13!,{1-12|
00004240  7d 0d 26 52 0e 4d 4f 56  20 50 43 2c 52 31 34 0d  |}.&R.MOV PC,R14.|
00004250  26 5c 0b 2e 62 72 65 61  6b 32 0d 26 66 10 20 53  |&\..break2.&f. S|
00004260  55 42 53 20 44 2c 44 2c  23 31 0d 26 70 0a 2e 62  |UBS D,D,#1.&p..b|
00004270  72 65 61 6b 0d 26 7a 12  20 20 41 44 44 20 44 2c  |reak.&z.  ADD D,|
00004280  44 2c 23 31 30 30 0d 26  84 0e 20 20 2e 77 68 69  |D,#100.&..  .whi|
00004290  6c 65 5f 33 0d 26 8e 12  20 20 20 20 43 4d 50 20  |le_3.&..    CMP |
000042a0  44 2c 23 32 35 34 0d 26  98 16 20 20 20 20 53 55  |D,#254.&..    SU|
000042b0  42 48 49 20 44 2c 44 2c  23 32 35 34 0d 26 a2 11  |BHI D,D,#254.&..|
000042c0  20 20 42 48 49 20 77 68  69 6c 65 5f 33 0d 26 ac  |  BHI while_3.&.|
000042d0  0f 20 20 43 4d 50 20 44  2c 23 31 35 0d 26 b6 12  |.  CMP D,#15.&..|
000042e0  20 20 41 44 44 48 53 20  44 2c 44 2c 23 31 0d 26  |  ADDHS D,D,#1.&|
000042f0  c0 12 20 20 4c 44 52 42  20 54 2c 5b 50 2c 44 5d  |..  LDRB T,[P,D]|
00004300  0d 26 ca 16 20 20 4c 44  4d 46 44 20 31 33 21 2c  |.&..  LDMFD 13!,|
00004310  7b 31 2d 31 32 7d 0d 26  d4 10 20 20 4d 4f 56 20  |{1-12}.&..  MOV |
00004320  50 43 2c 52 31 34 0d 26  de 05 5d 0d 26 e8 05 cd  |PC,R14.&..].&...|
00004330  0d 26 f2 07 3d 22 22 0d  26 fc 04 0d 27 06 0f dd  |.&..="".&...'...|
00004340  20 a4 66 72 61 63 74 61  6c 48 0d 27 10 0d 5b 4f  | .fractalH.'..[O|
00004350  50 54 20 50 41 53 53 0d  27 1a 0e 20 20 4c 44 52  |PT PASS.'..  LDR|
00004360  20 50 2c 43 54 0d 27 24  0e 20 20 2e 77 68 69 6c  | P,CT.'$.  .whil|
00004370  65 5f 32 0d 27 2e 10 20  20 20 20 4d 4f 56 53 20  |e_2.'..    MOVS |
00004380  48 2c 55 0d 27 38 16 20  20 20 20 20 20 52 53 42  |H,U.'8.      RSB|
00004390  4d 49 20 48 2c 48 2c 23  30 0d 27 42 14 20 20 20  |MI H,H,#0.'B.   |
000043a0  20 43 4d 50 20 48 2c 23  32 3c 3c 32 39 0d 27 4c  | CMP H,#2<<29.'L|
000043b0  13 20 20 20 20 20 20 42  48 53 20 62 72 65 61 6b  |.      BHS break|
000043c0  0d 27 56 17 20 20 20 20  4d 4f 56 20 4d 2c 48 2c  |.'V.    MOV M,H,|
000043d0  4c 53 52 20 23 31 36 0d  27 60 19 20 20 20 20 42  |LSR #16.'`.    B|
000043e0  49 43 20 4e 2c 48 2c 4d  2c 4c 53 4c 20 23 31 36  |IC N,H,M,LSL #16|
000043f0  0d 27 6a 11 20 20 20 20  4d 55 4c 20 48 2c 4d 2c  |.'j.    MUL H,M,|
00004400  4e 0d 27 74 11 20 20 20  20 4d 55 4c 20 54 2c 4d  |N.'t.    MUL T,M|
00004410  2c 4d 0d 27 7e 16 20 20  20 20 4d 4f 56 20 4d 2c  |,M.'~.    MOV M,|
00004420  54 2c 4c 53 4c 20 23 33  0d 27 88 19 20 20 20 20  |T,LSL #3.'..    |
00004430  41 44 44 20 53 2c 4d 2c  48 2c 4c 53 52 20 23 31  |ADD S,M,H,LSR #1|
00004440  32 0d 27 92 10 20 20 20  20 4d 4f 56 53 20 48 2c  |2.'..    MOVS H,|
00004450  56 0d 27 9c 16 20 20 20  20 20 20 52 53 42 4d 49  |V.'..      RSBMI|
00004460  20 48 2c 48 2c 23 30 0d  27 a6 14 20 20 20 20 43  | H,H,#0.'..    C|
00004470  4d 50 20 48 2c 23 32 3c  3c 32 39 0d 27 b0 13 20  |MP H,#2<<29.'.. |
00004480  20 20 20 20 20 42 48 53  20 62 72 65 61 6b 0d 27  |     BHS break.'|
00004490  ba 17 20 20 20 20 4d 4f  56 20 4d 2c 48 2c 4c 53  |..    MOV M,H,LS|
000044a0  52 20 23 31 36 0d 27 c4  19 20 20 20 20 42 49 43  |R #16.'..    BIC|
000044b0  20 4e 2c 48 2c 4d 2c 4c  53 4c 20 23 31 36 0d 27  | N,H,M,LSL #16.'|
000044c0  ce 11 20 20 20 20 4d 55  4c 20 48 2c 4d 2c 4e 0d  |..    MUL H,M,N.|
000044d0  27 d8 11 20 20 20 20 4d  55 4c 20 54 2c 4d 2c 4d  |'..    MUL T,M,M|
000044e0  0d 27 e2 16 20 20 20 20  4d 4f 56 20 4d 2c 54 2c  |.'..    MOV M,T,|
000044f0  4c 53 4c 20 23 33 0d 27  ec 19 20 20 20 20 41 44  |LSL #3.'..    AD|
00004500  44 20 54 2c 4d 2c 48 2c  4c 53 52 20 23 31 32 0d  |D T,M,H,LSR #12.|
00004510  27 f6 11 20 20 20 20 41  44 44 20 48 2c 53 2c 54  |'..    ADD H,S,T|
00004520  0d 28 00 14 20 20 20 20  43 4d 50 20 48 2c 23 34  |.(..    CMP H,#4|
00004530  3c 3c 32 39 0d 28 0a 13  20 20 20 20 20 20 42 48  |<<29.(..      BH|
00004540  53 20 62 72 65 61 6b 0d  28 14 12 20 20 20 20 41  |S break.(..    A|
00004550  44 44 53 20 4e 2c 55 2c  56 0d 28 1e 16 20 20 20  |DDS N,U,V.(..   |
00004560  20 20 20 52 53 42 4d 49  20 4e 2c 4e 2c 23 30 0d  |   RSBMI N,N,#0.|
00004570  28 28 17 20 20 20 20 4d  4f 56 20 4d 2c 4e 2c 4c  |((.    MOV M,N,L|
00004580  53 52 20 23 31 36 0d 28  32 19 20 20 20 20 42 49  |SR #16.(2.    BI|
00004590  43 20 4e 2c 4e 2c 4d 2c  4c 53 4c 20 23 31 36 0d  |C N,N,M,LSL #16.|
000045a0  28 3c 11 20 20 20 20 4d  55 4c 20 55 2c 4d 2c 4d  |(<.    MUL U,M,M|
000045b0  0d 28 46 16 20 20 20 20  4d 4f 56 20 55 2c 55 2c  |.(F.    MOV U,U,|
000045c0  4c 53 4c 20 23 33 0d 28  50 11 20 20 20 20 4d 55  |LSL #3.(P.    MU|
000045d0  4c 20 56 2c 4d 2c 4e 0d  28 5a 19 20 20 20 20 41  |L V,M,N.(Z.    A|
000045e0  44 44 20 4d 2c 55 2c 56  2c 4c 53 52 20 23 31 32  |DD M,U,V,LSR #12|
000045f0  0d 28 64 11 20 20 20 20  53 55 42 20 48 2c 4d 2c  |.(d.    SUB H,M,|
00004600  48 0d 28 6e 11 20 20 20  20 41 44 44 20 56 2c 42  |H.(n.    ADD V,B|
00004610  2c 48 0d 28 78 11 20 20  20 20 53 55 42 20 55 2c  |,H.(x.    SUB U,|
00004620  53 2c 54 0d 28 82 11 20  20 20 20 41 44 44 20 55  |S,T.(..    ADD U|
00004630  2c 55 2c 41 0d 28 8c 13  20 20 20 20 53 55 42 53  |,U,A.(..    SUBS|
00004640  20 44 2c 44 2c 23 31 0d  28 96 11 20 20 42 4e 45  | D,D,#1.(..  BNE|
00004650  20 77 68 69 6c 65 5f 32  0d 28 a0 05 5d 0d 28 aa  | while_2.(..].(.|
00004660  12 e7 20 4e 72 5f 43 6f  6c 73 3d 31 36 20 8c 0d  |.. Nr_Cols=16 ..|
00004670  28 b4 0d 5b 4f 50 54 20  50 41 53 53 0d 28 be 0d  |(..[OPT PASS.(..|
00004680  4d 4f 56 20 54 2c 23 31  35 0d 28 c8 14 4c 44 4d  |MOV T,#15.(..LDM|
00004690  46 44 20 31 33 21 2c 7b  31 2d 31 32 7d 0d 28 d2  |FD 13!,{1-12}.(.|
000046a0  0e 4d 4f 56 20 50 43 2c  52 31 34 0d 28 dc 0a 2e  |.MOV PC,R14.(...|
000046b0  62 72 65 61 6b 0d 28 e6  0e 41 44 44 20 44 2c 44  |break.(..ADD D,D|
000046c0  2c 23 38 0d 28 f0 0e 20  20 2e 77 68 69 6c 65 5f  |,#8.(..  .while_|
000046d0  33 0d 28 fa 11 20 20 20  20 43 4d 50 20 44 2c 23  |3.(..    CMP D,#|
000046e0  31 34 0d 29 04 15 20 20  20 20 53 55 42 48 49 20  |14.)..    SUBHI |
000046f0  44 2c 44 2c 23 31 34 0d  29 0e 11 20 20 42 48 49  |D,D,#14.)..  BHI|
00004700  20 77 68 69 6c 65 5f 33  0d 29 18 0d 20 20 4d 4f  | while_3.)..  MO|
00004710  56 20 54 2c 44 0d 29 22  16 20 20 4c 44 4d 46 44  |V T,D.)".  LDMFD|
00004720  20 31 33 21 2c 7b 31 2d  31 32 7d 0d 29 2c 10 20  | 13!,{1-12}.),. |
00004730  20 4d 4f 56 20 50 43 2c  52 31 34 0d 29 36 05 5d  | MOV PC,R14.)6.]|
00004740  0d 29 40 05 cc 0d 29 4a  0d 5b 4f 50 54 20 50 41  |.)@...)J.[OPT PA|
00004750  53 53 0d 29 54 0e 4d 4f  56 20 54 2c 23 32 35 35  |SS.)T.MOV T,#255|
00004760  0d 29 5e 14 4c 44 4d 46  44 20 31 33 21 2c 7b 31  |.)^.LDMFD 13!,{1|
00004770  2d 31 32 7d 0d 29 68 0e  4d 4f 56 20 50 43 2c 52  |-12}.)h.MOV PC,R|
00004780  31 34 0d 29 72 0a 2e 62  72 65 61 6b 0d 29 7c 12  |14.)r..break.)|.|
00004790  20 20 41 44 44 20 44 2c  44 2c 23 31 30 30 0d 29  |  ADD D,D,#100.)|
000047a0  86 0e 20 20 2e 77 68 69  6c 65 5f 33 0d 29 90 12  |..  .while_3.)..|
000047b0  20 20 20 20 43 4d 50 20  44 2c 23 32 35 34 0d 29  |    CMP D,#254.)|
000047c0  9a 16 20 20 20 20 53 55  42 48 49 20 44 2c 44 2c  |..    SUBHI D,D,|
000047d0  23 32 35 34 0d 29 a4 11  20 20 42 48 49 20 77 68  |#254.)..  BHI wh|
000047e0  69 6c 65 5f 33 0d 29 ae  0f 20 20 43 4d 50 20 44  |ile_3.)..  CMP D|
000047f0  2c 23 31 35 0d 29 b8 12  20 20 41 44 44 48 53 20  |,#15.)..  ADDHS |
00004800  44 2c 44 2c 23 31 0d 29  c2 12 20 20 4c 44 52 42  |D,D,#1.)..  LDRB|
00004810  20 54 2c 5b 50 2c 44 5d  0d 29 cc 16 20 20 4c 44  | T,[P,D].)..  LD|
00004820  4d 46 44 20 31 33 21 2c  7b 31 2d 31 32 7d 0d 29  |MFD 13!,{1-12}.)|
00004830  d6 10 20 20 4d 4f 56 20  50 43 2c 52 31 34 0d 29  |..  MOV PC,R14.)|
00004840  e0 05 5d 0d 29 ea 05 cd  0d 29 f4 07 3d 22 22 0d  |..].)....)..="".|
00004850  ff                                                |.|
00004851