�
!� Mill ( rules and computer )
� Stuart Whitehouse
(�
2�
<:
F!: ************** initialisers
P:
Z��millstart
d8_pound%=2:_place%=0:_move%=1:_nomove%=3:_move_end%=4
n6� board% 120 : � excess to allow saving of options
xfirst_square%=8
�Asquare_datasize%=4 : squaredata_eigon%=2 : squaredata_eigon=2
�M� squaredata% 28*square_datasize%, milllist% 17*10 : mill_list%=milllist%
�
��+0
�� square%=0 � 24
�&  offset%=square%*square_datasize%
�F  � w%=0 � square_datasize%-1:� w$:?(squaredata%+offset%+w%)=�w$:�
��
�1� w%:� w%<>999 � � 255,"Data mis-aligned (A)"
�
�ptr%=milllist%
�� mill%=0 � 16
�"  � w%=0 � 8:� ?ptr%:ptr%+=1:�

�

1� w%:� w%<>999 � � 255,"Data mis-aligned (B)"



"

,� player%(2)

6_human%=0:_comp%=1

@(player%(1)=_human%:player%(2)=_comp%

J

T real_level%=5:move_result%=0

^�

h

r0� for each square, list - links to (4-bytes)

|
� 0,0,0,0

�

�� 2,&83,10,&96

�� 1,3,5,&88

�� 2,&81,15,&98

�� 5,&86,11,&93

�
� 2,8,4,6

�� 5,&84,14,&95

�� 8,&89,12,&90

�� 5,&82,7,9

�

�� 8,&87,13,&92

�� 1,22,11,&8C

�� 4,19,10,12
� 7,16,11,&8A
� 9,18,14,&8F
� 6,21,13,15
&� 3,24,14,&8D
0� 12,&87,17,&92
:
D� 16,18,20,&97
N� 17,&90,13,&89
X� 11,&84,20,&95
b� 17,23,19,21
l� 14,&86,20,&93
v� 10,&81,23,&98
�� 20,&91,22,24
�� 23,&96,15,&83
�:
�	� 999
�:
�K: � 3 bytes per square, they are square, linked_square1, linked_square2
�&� 0,0,0, 0,0,0, 0,0,0 : REM mill 0
�� 1,10,0, 2,5,0, 3,15,0
�� 3,2,0, 15,14,0, 24,23,0
�� 24,15,0, 23,20,0, 22,10,0
�� 22,23,0, 10,11,0, 1,2,0
�
�� 4,11,0, 5,2,8, 6,14,0
� 6,5,0, 14,13,15, 21,20,0
 � 21,14,0, 20,17,23, 19,11,0
+� 19,20,0, 11,10,12, 4,5,0 : REM mill 8
 
*� 7,12,0, 8,5,0, 9,13,0
4� 9,8,0, 13,14,0, 18,17,0
>� 18,13,0, 17,20,0, 16,12,0
H� 16,17,0, 12,11,0, 7,8,0
R
\� 2,1,3, 5,4,6, 8,7,9
f� 13,9,18, 14,6,21, 15,3,24
p"� 17,16,18, 20,19,21, 23,22,24
z� 10,1,22, 11,4,19, 12,7,16
�:
�	� 999
�:
�:
�
��newgame
�game_on%=�
�to_play%=1
�move_type%=_place%
�� w%=1 � 24:board%?w%=0:�
�board%?0=0
�turn%=0:�next_move
�3ș "Tempest_SetIconText",mainhandle%,37,tb%,"0"
��redrawall
last_pound%=18
�
:
$:
.*: ***************** actions **********
8:
B:
L��millchange(square%)
V � square%<1 � square%>24 � �
`+�setpiece(square%,(board%?square%+1)�3)
j�
t:
~ ��millclick(square%,button%)
� � square%<1 � square%>24 � �
�"� player%(to_play%)=_comp% � �
�� game_on%=� � �
�
�Ȏ button% �
�$  � 1,4 : � move_type%=_place% �
�    �place_piece(square%)
�  �
�4    � move_type%=_pound% � �pound_piece(square%)
�  �
�:  � 16,64 : � move_type%=_move% � �start_move(square%)
��
�

:
:
��place_piece(square%)
((� board%?square%<>0 � �badmove(""):�
2�setpiece(square%,to_play%)
<�piece_arrived_in(square%)
F�
P:
Z:
d��pound_piece(square%)
n5� board%?square%<>(to_play% � 3) � �badmove(""):�
x2� ��is_poundable(square%) � �badmove("XPND"):�
�
�<$�gettextmem(mainhandle%,square%+first_square%)="piece3"
�0!pb%=mainhandle%:pb%!4=square%+first_square%
�0pb%!8=0:pb%!12=0:ș "Wimp_SetIconState",,pb%
�t%=�:ȕ �-t%<35:�
�
��setpiece(square%,0)
�8� �has_won(to_play%) � � :� does everything required
�"� turn%>18 � last_pound%=turn%
��next_move
��
�:
�:
��start_move(square%)
/� board%?square%<>to_play% � �badmove(""):�
0!pb%=mainhandle%:pb%!4=square%+first_square%
"%ș "Tempest_DragAnIcon",0,pb%,tb%
,move_start_square%=square%
6drag_type%=_d_move%
@�
J:
T:
^P��move_end(square%)  : � called after dragboxreturn has been processed a bit
h(� board%?square%<>0 � �badmove(""):�
r6w%=squaredata%+move_start_square%*square_datasize%
|G� w%?0<>square% � w%?1<>square% � w%?2<>square% � w%?3<>square% � �
�
��setpiece(square%,to_play%)
�#�setpiece(move_start_square%,0)
��piece_arrived_in(square%)
��
�:
�:
�:
���next_move
�@turn%+=1:� turn%>18 � move_type%=_move% � move_type%=_place%
�to_play%=2-(turn% � 1)
��show_move
�
U� player%(to_play%)=_comp% � need_think%=� � A%!vars_moveselected=0:need_think%=�

� turn%<19 � �
&
0:� turn%-last_pound%=100 � �genalert("DRAW"):�stop_game
:
DL� must test whether the new player is actually capable of making a move.
N� go%, index%, link%, R%
XR%=squaredata%:go%=�
b� index%=1 � 24
l  R%+=square_datasize%
v   � board%?index%=to_play% �
�    � link%=0 � 3
�9      � R%?link%<&80 � � ?(board%+R%?link%)=0 � go%=�
�	    �
�  �
��
�"� go% � �  : � can move, so ok
��genalert("LOS"+�to_play%)
��stop_game
��
�:
�:
���piece_arrived_in(square%)
�!� �is_part_of_mill(square%) �
  move_type%=_pound%
  �show_move
�
   �next_move
*�
4�
>:
H:
Rݤis_part_of_mill(square%)
\� R%, W%, X%,Y%
f+R%=squaredata%+square%*square_datasize%
pW%=board%?square%
z
X%=�:Y%=�
�'� ?(board%+(R%?0 � &7F))<>W% � X%=�
�'� ?(board%+(R%?1 � &7F))<>W% � X%=�
�'� ?(board%+(R%?2 � &7F))<>W% � Y%=�
�'� ?(board%+(R%?3 � &7F))<>W% � Y%=�
�=X% � Y%
�:
�:
�ݤis_poundable(square%)
�&� � �is_part_of_mill(square%) � =�
�� W%,index% : W%=�
�� index%=1 � 24
�&  � board%?index%=board%?square% �
�(    W%=W% � �is_part_of_mill(index%)
	  �
	�
	=W%
	$:
	.:
	8:
	Bݤhas_won(player%)
	L� other%, index%, count%
	Vother%=player% � 3
	`� turn%<19 � =�
	j� index%=1 � 24
	t(  � board%?index%=other% � count%+=1
	~�
	�� count%>=3 � =�
	��genalert("WIN"+�player%)
	��stop_game
	�=�
	�
	���stop_game
	�game_on%=�
	�'move_type%=_nomove%    :� (no move)
	��show_move
	��
	�
	�





(
2��comp_move
<� need_think% � �think:�
FȎ move_type% �
P,  � _pound% : �pound_piece(�movepull(8))
Z-  � _place% : �place_piece(�movepull(16))
d*  � _move% : �start_move(�movepull(8))
n  �move_end(�movepull(8))
x�
��
�:
�ݤmovepull(shift%)
�� w%
�w%=move_result% � &FF
�&move_result%=move_result%>>>shift%
�=w%
�:
�:
���badmove(str$)
�!� player%(to_play%)=_human% �
�"  � str$<>"" � �genalert(str$)
��
  �genalert("LOSC")
$  �genalert("WIN"+�(3-to_play%))
  �stop_game
"�
,�
6:
@:
J��think
T� count%, index%, max%
^� index%=1 � 24
h#  � board%?index%>0 � count%+=1
r�
|!� count%<11 � max%=5 � max%=7
�� turn%<17 �
�3  � placedepth%>max% � w%=max% � w%=placedepth%
��
�  w%=maxdepth%
��
�A%!vars_maxscandepth=w%
�A%!vars_turnnumber=turn%
�� do_computer_move
�Rș "Tempest_SetIconText",mainhandle%,34,tb%,�A%!vars_test1+" "+�~A%!vars_test2
�Bș "Tempest_SetIconText",mainhandle%,37,tb%,�A%!vars_posncount
�%move_result%=A%!vars_moveselected
�need_think%=�
��
:
:
��updatelevel
&V� real_level% contains the level to use, set the values that are read by the code.
0
:�+0
D� index%=0 � real_level%
N4  � placedepth%,maxdepth%,type%,error%,mo1%,mo2%
X�
bP� maxdepth and placedepth are kept as BASIC vars, others go direct to mcode.
lA%!vars_randomiser=error%
vA%!vars_thinktype=type%
�
�A%!vars_mobility_base=mo1%
� A%!vars_mobility_scaler=mo2%
��
�
�<� depth (when placing), depth (when moving), type, error
�&� depth from 1 (technical minimum)
��            3 (basic)
��        to 7 or 8 (max)
�
�W� for some bizarre reason a depth when placing of 3, with very high mobility scaler
�E� is absolutely vicious, often more powerful than deeper analysis
�

� think type is 0,1 or 3

� error from 0 to 63



 $� 1,1,0,31, 0,1 : REM brain dead

*"� 2,3,0,63, 0,1 : REM Pathetic

4� 2,2,1,15, 32,1 : REM poor

> � 2,3,3,7, 32,1 : REM weaker

H)� 3,3,3,31, 32,1  : REM slight errors

R

\#� 3,3,3,7, 48,1 :  REM standard

f

p$� 3,5,1,3, 96*2,2 : REM improved

z � 3,5,3,3, 96*3,2 : REM good

�$� 5,6,3,1, 96*4,3 : REM advanced

�&� 7,7,3,0, 96*5,4 : REM diabolical

�

�

�

�

�

�

�

�

�

�

�



$
.
8
B
L
V��codevars
`� varmem 1000
j
A%=varmem
t
~� evalboard% 28
�
�vars_evalboard=0
�vars_playingboard=4
�"vars_piecescore=8        : � -
�"vars_mobilityscore=12    : � -
�vars_totalscore=16
�Hvars_turnnumber=20:vars_movenumber=20       : � turn to be done NEXT
�vars_squaredata=24
�&vars_milllist=28:vars_mill_list=28
�vars_maxscandepth=32
�vars_test1=36:vars_test2=40
�vars_moveselected=44
vars_posncount=48

vars_randomiser=52
>vars_thinktype=56 : � 1=mobility in use,  2 = mills in use
vars_mobility_base=60
(vars_mobility_scaler=64
2
<
F A%!vars_evalboard=evalboard%
PA%!vars_playingboard=board%
ZA%!vars_mill_list=milllist%
d"A%!vars_squaredata=squaredata%
nA%!vars_maxscandepth=3
xA%!vars_randomiser=1
�A%!vars_thinktype=3
�
�;piece_score%=40  :  mobility_base_score%=96 :� (3*16*2)
�mobility_scaler=1
��
�:
�:
���assem
� link=14:stack=13:mainvars=12
�
�G� working on 0-3 trashable, 12,13,14 fixed, 5-11 situation variable
�Peval_board=11:eval_movetype=10:eval_maincount=9   : � global throughout eval
�4eval_sd_ptr=8     : � used by some all sub-parts

1scan_depth=9:scan_movenumber=10:scan_board=11

"opt_max%=2:codesize%=3000
,� codemem codesize%+4
6#� pass%=0 � opt_max% � opt_max%
@  P%=codemem
J  L%=codemem+codesize%
T  [OPT pass%+8
^ 
h  .eval_test
r  MOV mainvars,R0
| 
�  STMFD (stack)!,{link}
�  MOV R11,#8192
�  .et_loop
�*  LDR R3,[mainvars,#vars_playingboard]
�B  LDR R1,[mainvars,#vars_turnnumber] ;  may be needed later on
�  BL evaluate
�  SUBS R11,R11,#1
�  ; BNE et_loop
�  LDMFD (stack)!,{PC}
� 
� 
� 
� 
 
  ; timing ~ 70
E  .evaluate ; r1 = player turn number ; r3 = source board pointer
&"  STMFD (stack)!,{R4-R11,link}
0 
:/  LDR eval_board,[mainvars,#vars_evalboard]
D  MOV eval_movetype,R1
N 
XO  ; copy boards across    evaluate works for player 2, thus eor if player 1
b  TSTS R1,#1
l  MOV R9,R3
v4  MOV R7,#3:ADD R7,R7,#&300:ADD R7,R7,R7,LSL #16
�?  LDMIA R9,{R0-R6} ; copies bytes 0-27,  actually need 1-24
�1  ADDNE R0,R0,R0,LSL #2 : �NE R0,R7,R0,LSR #1
�1  ADDNE R1,R1,R1,LSL #2 : �NE R1,R7,R1,LSR #1
�1  ADDNE R2,R2,R2,LSL #2 : �NE R2,R7,R2,LSR #1
�1  ADDNE R3,R3,R3,LSL #2 : �NE R3,R7,R3,LSR #1
�1  ADDNE R4,R4,R4,LSL #2 : �NE R4,R7,R4,LSR #1
�1  ADDNE R5,R5,R5,LSL #2 : �NE R5,R7,R5,LSR #1
�1  ADDNE R6,R6,R6,LSL #2 : �NE R6,R7,R6,LSR #1
�U  STMIA eval_board,{R0-R6}  ;  board copied into evalboard with new piece values.
� 
�  ; �E, board?0 MUST be 0
� 
�  ; start evaluating
  MOV eval_maincount,#0
  BL eval_piececalc
E  LDR R0,[mainvars,#vars_thinktype]:TSTS R0,#1:BLNE eval_mobility
 C  LDR R0,[mainvars,#vars_thinktype]:TSTS R0,#2:BEQ eval_nomills
*:  BL eval_mills : ADD eval_maincount,eval_maincount,R0
4  .eval_nomills
>F  BL random   ;  add in some deliberate errors to make it playable
HX  LDR R1,[mainvars,#vars_randomiser]:� R0,R0,R1:ADD eval_maincount,eval_maincount,R0
R 
\ 
f5  ;STR eval_maincount,[mainvars,#vars_totalscore]
pV  LDR R0,[mainvars,#vars_posncount]:ADD R0,R0,#1:STR R0,[mainvars,#vars_posncount]
z  MOV R0,eval_maincount
�   LDMFD (stack)!,{R4-R11,PC}
� 
� 
� 
� 
�  ; timing ~ 150
�L  .eval_piececalc ; R1, R2 are the piece_count per side, R3 is the index
�$  MOV R1,#0:MOV R2,#0:MOV R3,#20
� 
�.  ; the odd  pieces first, no.s 1,2,3 & 24
�b  LDRB R0,[eval_board,#1] : CMPS R0,#1 : ADDEQ R1,R1,#piece_score% : ADDGT R2,R2,#piece_score%
�b  LDRB R0,[eval_board,#2] : CMPS R0,#1 : ADDEQ R1,R1,#piece_score% : ADDGT R2,R2,#piece_score%
�b  LDRB R0,[eval_board,#3] : CMPS R0,#1 : ADDEQ R1,R1,#piece_score% : ADDGT R2,R2,#piece_score%
c  LDRB R0,[eval_board,#24] : CMPS R0,#1 : ADDEQ R1,R1,#piece_score% : ADDGT R2,R2,#piece_score%
 
  .eval_piececalc_loop
$  LDR R0,[eval_board,R3]
.,  TSTS R0,#1 : ADDNE R1,R1,#piece_score%
8,  TSTS R0,#2 : ADDNE R2,R2,#piece_score%
B/  TSTS R0,#1<<8 : ADDNE R1,R1,#piece_score%
L/  TSTS R0,#2<<8 : ADDNE R2,R2,#piece_score%
V0  TSTS R0,#1<<16 : ADDNE R1,R1,#piece_score%
`0  TSTS R0,#2<<16 : ADDNE R2,R2,#piece_score%
j0  TSTS R0,#1<<24 : ADDNE R1,R1,#piece_score%
t0  TSTS R0,#2<<24 : ADDNE R2,R2,#piece_score%
~ 
�-  SUBS R3,R3,#4 : BGT eval_piececalc_loop
� 
�K  LDR R0,[mainvars,#vars_turnnumber]:CMPS R0,#14:BLT eval_piece_lowturn
�Q  CMPS R1,#2*piece_score%:SUBLE R1,R1,#&10000 ; 2 or fewer is a losing number
�1  CMPS R2,#2*piece_score%:SUBLE R2,R2,#&10000
� 
�  .eval_piece_lowturn
�3  SUB R2,R2,R1 ; score in favour of this player
�)  ;STR R2,[mainvars,#vars_piecescore]
�*  ADD eval_maincount,eval_maincount,R2
�  MOV PC,link
� 
 

 
  ; timing ~ 900
=  .eval_mobility  ; R5,R6 are the two sides ; R3 is index
($  STMFD (stack)!,{R5,R6,R7,link}
21  LDR eval_sd_ptr,[mainvars,#vars_squaredata]
</  MOV R5,#0:MOV R6,#0:MOV R3,#1:MOV R7,#255
F 
P  .eval_mobility_loop
ZC  LDR R14,[eval_sd_ptr,#4]!  ;  must skip over no. 0 (not used)
d@  LDRB R2,[eval_board,R3]:CMPS R2,#0:BEQ eval_mobility_noone
n  MOV R1,#0
xT  � R0,R7,R14:CMPS R0,#&7F:LDRLEB R0,[eval_board,R0]:CMPLES R0,#0:ADDEQ R1,R1,#1
�[  � R0,R7,R14,LSR #8:CMPS R0,#&7F:LDRLEB R0,[eval_board,R0]:CMPLES R0,#0:ADDEQ R1,R1,#1
�\  � R0,R7,R14,LSR #16:CMPS R0,#&7F:LDRLEB R0,[eval_board,R0]:CMPLES R0,#0:ADDEQ R1,R1,#1
�\  � R0,R7,R14,LSR #24:CMPS R0,#&7F:LDRLEB R0,[eval_board,R0]:CMPLES R0,#0:ADDEQ R1,R1,#1
� 
�P  ]:� square_datasize%<>4 � � 255,"Update eval_mobility for new data format"
�  [OPT pass%+8
�2  CMPS R2,#1 : ADDEQ R5,R5,R1 : ADDNE R6,R6,R1
� 
�6  .eval_mobility_noone ; empty squares rejoin here
�5  ADD R3,R3,#1:CMPS R3,#25:BLT eval_mobility_loop
� 
�T  LDR R0,[mainvars,#vars_turnnumber]:CMPS R0,#13:;ADDLT R5,R5,#1:;ADDLT R6,R6,#1
�0  CMPS R0,#7:;ADDLT R5,R5,#1:;ADDLT R6,R6,#1
 
$  ; MOV R0,#mobility_base_score%
+  LDR R0,[mainvars,#vars_mobility_base]
"-  LDR R2,[mainvars,#vars_mobility_scaler]
,.  MOV R1,R0,LSR R6  :  SUB R1,R1,R6,LSL R2
61  SUB R1,R1,R0,LSR R5  :  ADD R1,R1,R5,LSL R2
@E  ; penalty = (score>>my_mob)-(score>>his_mob) - my_mob + his_mob
J 
T,  ;STR R1,[mainvars,#vars_mobilityscore]
^*  SUB eval_maincount,eval_maincount,R1
h"  LDMFD (stack)!,{R5,R6,R7,PC}
r 
|"  ; (total time so far ~ 1100)
� 
� 
� 
� 
� 
� 
�G  ]:em_index=11:em_listptr=10:em_score=9:em_boardptr=8:em_control=7
�  [OPT pass%+8
� 
�  ; loop ~ 900
�"  ; each access (ass. 1.5) ~61
�   ; each freedom ~50 -> ~150
�  ; total ??~2000
 
  .eval_mills  ; em_
W  CMPS eval_movetype,#18:MOVLE R0,#0:MOVLE PC,link ; if still placing, don't BOTHER
& 
0T  STMFD (stack)!,{R4-R11,link} ; will return score in r0 for adding to maincount
:!  MOV em_index,#16 ; 16 to do
D/  LDR em_listptr,[mainvars,#vars_mill_list]
N  MOV em_score,#0
X0  LDR em_boardptr,[mainvars,#vars_evalboard]
b 
l  .em_loop
v&  ;  blank adds 0, other +2, me +8
�T  LDRB R0,[em_listptr,#9]! : LDRB R4,[em_boardptr,R0] : MOV em_control,R4,LSL R4
�^  LDRB R0,[em_listptr,#3] : LDRB R5,[em_boardptr,R0] : ADD em_control,em_control,R5,LSL R5
�^  LDRB R0,[em_listptr,#6] : LDRB R6,[em_boardptr,R0] : ADD em_control,em_control,R6,LSL R6
� 
�T  ADD PC,PC,em_control,LSL #2  ; �LY 2 since em_control already  a multiple of 2
�  MOV R0,R0 ; pipeline
� 
�,  MOV R0,#0:B em_combine             ; 0
�(  ADR R3,em_001_a0_score:B em_access
�0  ADR R3,em_011_a0_score:B em_access ; 2 011
�  B em_111:B em_111
�0  ADR R3,em_002_a0_score:B em_access ; 4 002
�  MOV R0,#0:B em_combine
0  MOV R0,#0:B em_combine             ; 6 112
  B em_error:B em_error
1  ADR R3,em_022_a0_score:B em_access  ; 8 022
   MOV R0,#0:B em_combine
*0  B em_error:B em_error              ; 10 --
4  B em_error:B em_error
>  B em_222
H 
R=  .em_222:ADR R6,em_222_scoretable:MOV R5,#1:B em_freedom
\=  .em_111:ADR R6,em_111_scoretable:MOV R5,#2:B em_freedom
f 
p 
z  .em_combine
�  ADD em_score,em_score,R0
�  SUBS em_index,em_index,#1
�  BGT em_loop
� 
�  MOV R0,em_score
�   LDMFD (stack)!,{R4-R11,PC}
� 
� 
� 
�9  .em_error:ADR R0,em_errorSTR:SWI "OS_GenerateError"
�k  .em_errorSTR:EQUD 255:EQUS "Computer player crashed - Evaluate out-linked mills failed.":EQUB 0:ALIGN
� 
� 
M  .em_access ; mill is single owner, must now check what has access to it
4  ; R4, R5, R6 still contain the 3 direct pieces
F  ; R3 points to the mills access score table (entry for access 0)
$  MOV R2,#0
.  CMPS R6,#0:BNE em_access2
8B  LDRB R0,[em_listptr,#7]:LDRB R0,[em_boardptr,R0] : MOV R6,R0
BS  LDRB R0,[em_listptr,#8]:CMPS R0,#0:LDRGTB R0,[em_boardptr,R0] : �RGT R6,R6,R0
L=  CMPS R6,#2:ADDGT R2,R2,#1:ADDEQ R2,R2,#2:SUBLT R2,R2,#2
V?  CMPS R6,#0:ADDEQ R2,R2,#2 ; (undo the last command above)
`:  ; 0 = +0,  1 = -2,  2 = +2,  3 = +1 (guarded access)
j 
t  .em_access2
~  CMPS R5,#0:BNE em_access3
�B  LDRB R0,[em_listptr,#4]:LDRB R0,[em_boardptr,R0] : MOV R6,R0
�S  LDRB R0,[em_listptr,#5]:CMPS R0,#0:LDRGTB R0,[em_boardptr,R0] : �RGT R6,R6,R0
�=  CMPS R6,#2:ADDGT R2,R2,#1:ADDEQ R2,R2,#2:SUBLT R2,R2,#2
�  CMPS R6,#0:ADDEQ R2,R2,#2
� 
�  .em_access3
�  CMPS R4,#0:BNE em_access4
�B  LDRB R0,[em_listptr,#1]:LDRB R0,[em_boardptr,R0] : MOV R6,R0
�S  LDRB R0,[em_listptr,#2]:CMPS R0,#0:LDRGTB R0,[em_boardptr,R0] : �RGT R6,R6,R0
�=  CMPS R6,#2:ADDGT R2,R2,#1:ADDEQ R2,R2,#2:SUBLT R2,R2,#2
�  CMPS R6,#0:ADDEQ R2,R2,#2
� 
9  .em_access4 ; R2 now contains the access valuevalue

  LDR R0,[R3,R2,LSL #2]
  B em_combine
 
( 
2 
<5  .em_freedom ; we know that all squares occupied
F@  ; R5 = colour of other player, R6 = pointer to score table
P 
Z  MOV R4,#0 : MOV R3,#0
d6  LDRB R0,[em_listptr,#1]:LDRB R0,[em_boardptr,R0]
n  CMPS R0,#0:�REQ R4,R4,#1
x  CMPS R0,R5:�REQ R4,R4,#2
�P  LDRB R0,[em_listptr,#2]:CMPS R0,#0:BEQ em_free1:LDRGTB R0,[em_boardptr,R0]
�  CMPS R0,#0:�REQ R4,R4,#1
�  CMPS R0,R5:�REQ R4,R4,#2
�  .em_free1
�@  CMPS R4,#1:BEQ em_isfree  ; this square is completely free
�  CMPS R4,#3:ADDEQ R3,R3,#1
� 
�  MOV R4,#0
�6  LDRB R0,[em_listptr,#4]:LDRB R0,[em_boardptr,R0]
�  CMPS R0,#0:�REQ R4,R4,#1
�  CMPS R0,R5:�REQ R4,R4,#2
�P  LDRB R0,[em_listptr,#5]:CMPS R0,#0:BEQ em_free2:LDRGTB R0,[em_boardptr,R0]
�  CMPS R0,#0:�REQ R4,R4,#1
  CMPS R0,R5:�REQ R4,R4,#2
  .em_free2
  CMPS R4,#1:BEQ em_isfree
"  CMPS R4,#3:ADDEQ R3,R3,#1
, 
6  MOV R4,#0
@6  LDRB R0,[em_listptr,#7]:LDRB R0,[em_boardptr,R0]
J  CMPS R0,#0:�REQ R4,R4,#1
T  CMPS R0,R5:�REQ R4,R4,#2
^P  LDRB R0,[em_listptr,#8]:CMPS R0,#0:BEQ em_free3:LDRGTB R0,[em_boardptr,R0]
h  CMPS R0,#0:�REQ R4,R4,#1
r  CMPS R0,R5:�REQ R4,R4,#2
|  .em_free3
�  CMPS R4,#1:BEQ em_isfree
�  CMPS R4,#3:ADDEQ R3,R3,#1
� 
�)  ; R3 is count of block open squares
�!  CMPS R3,#1:LDRGE R0,[R6,#4]
�!  :          LDRLT R0,[R6,#8]
�  B em_combine
� 
�,  .em_isfree:LDR R0,[R6,#0]:B em_combine
� 
� 
�0  ; open,  guarded open,  completely blocked
�2  .em_222_scoretable:EQUD 15 : EQUD 5 : EQUD 2
5  .em_111_scoretable:EQUD -14 : EQUD -4 : EQUD -2
 
 
&  ; em score tables
0 
:  EQUD 0 ; a = -4
D  EQUD 0 ; ------
N  EQUD 2 ; a = -2
X  EQUD 3
b  .em_002_a0_score
l  EQUD 6
v
  EQUD 12
�  EQUD 17 ; a = +2
�
  EQUD 34
�
  EQUD 40
� 
�  EQUD 9
�  EQUD 0 ; ------
�  .em_022_a0_score
�
  EQUD 21
�
  EQUD 40
�
  EQUD 55
� 
�  EQUD -35
�  EQUD 0 ; -------
  EQUD -18
  EQUD -10
  .em_001_a0_score
 
  EQUD -6
*
  EQUD -5
4
  EQUD -3
>
  EQUD -1
H  EQUD 0
R 
\  EQUD -50
f  EQUD 0 ; -----
p  .em_011_a0_score
z  EQUD -19
�
  EQUD -8
�
  EQUD -6
� 
� 
� 
� 
� 
� 
� 
� 
� 
� 
� 
 
 
 
$ 
. 
8 
B 
L 
V 
` 
j  .do_computer_move
t  .scan_test
~  STMFD (stack)!,{link}
�  MOV mainvars,R0
�  SWI "Hourglass_On"
�1  MOV R0,#0:STR R0,[mainvars,#vars_posncount]
� 
�2  LDR scan_depth,[mainvars,#vars_maxscandepth]
�2  LDR scan_board,[mainvars,#vars_playingboard]
�\  LDR scan_movenumber,[mainvars,#vars_movenumber]:SUB scan_movenumber,scan_movenumber,#1
� 
�(  MVN R0,#&1<<21 ; base cutoff value
�  BL general_scan
�U  RSB R0,R0,#0       ; this is the only level at which inversion should not apply
�*  STR R1,[mainvars,#vars_moveselected]
#  STR R0,[mainvars,#vars_test1]

#  STR R1,[mainvars,#vars_test2]
  SWI "Hourglass_Off"
  LDMFD (stack)!,{PC}
( 
2 
< 
F 
P]  .general_scan               ;  on entry R0 = cutoff (ie best score from previous level)
ZO  ;                           ; moved into R8 as score valid for this level
d"  STMFD (stack)!,{R2-R11,link}
n  RSB R8,R0,#0
xU  SUBS scan_depth,scan_depth,#1:BLT scan_doeval  ;  must be before movenumber ADD
�,  ADD scan_movenumber,scan_movenumber,#1
�X  BL scan_losetest:BEQ scan_dolose  ;  check whether player to move has in fact lost
�Y  ; lose test is necessary to encourage computer to go for the QUICKEST win, and thus
�7  ; stop it dithering once it knows that it can win
�  CMPS scan_movenumber,#18
�  BGT scan_do_move
�  B scan_do_placement
� 
� 
�=  .general_scan_returns_here ; R0 = value, R1 = move code
�E  RSB R0,R0,#0 ; value to calling player is -value to this player
�   LDMFD (stack)!,{R2-R11,PC}
� 
 
3  .scan_dolose       ;  scan ************* lose
X  MVN R0,#65536:SUB R0,R0,scan_depth,LSL #8  ;  computer must favour the FASTEST win
"O  ;                                          ; to prevent eternal dithering
,!  B general_scan_returns_here
6 
@ 
J0  .scan_doeval       ;     scan ******* eval
T  MOV R3,scan_board
^  ADD R1,scan_movenumber,#1
h  BL evaluate
r!  B general_scan_returns_here
| 
�$  CMPS R0,#65536:MOVGT R0,#65536
�$  CMNS R0,#65536:MVNLT R0,#65536
�]  ; limit to win/lose scores.  Only the lose tester can award more than this ('cos speed)
� 
� 
�#  ; R8 = cutoff (pruning) value
�   ; R7 = square index number
�   ; R6 = square_data_pointer
�  ; R5 = best score
�  ; R4 = best move
�6  ; R3 = sub-move index number (0->3 by direction)
� 
�A  .scan_do_move        ;          scan ************ move move
   MOV R4,#0:MVN R5,#1<<20
 (  LDR R6,[mainvars,#vars_squaredata]
   MOV R7,#1
 &'  �S R3,scan_movenumber,#1:�Q R3,#2
 0 
 :  ADD R6,R6,#4
 D  .move_mainloop
 N 
 X  LDRB R1,[scan_board,R7]
 b%  �scan_turn_piece ; puts into R0
 l1  CMPS R0,R1:ADDNE R6,R6,#4:BNE move_mainskip
 v 
 � 
 �  .move_subloop
 �"  LDRB R2,[R6],#1:CMPS R2,#&7F
 �=  LDRLEB R0,[scan_board,R2]:CMPLES R0,#0:BNE move_subskip
 � 
 �.  �scan_turn_piece:STRB R0,[scan_board,R2]
 �D  MOV R0,#0:STRB R0,[scan_board,R7] ; piece moved into new place
 � 
 �  MOV R1,R2 ; target square
 �  BL scan_is_inmill
 �-  MOV R0,R5 ; cutoff value for next level
 �  BLEQ scan_poundmove
 �6  BL general_scan   ;  get value of this new board
!%  ; returns here from either call
!  MOV R1,R1,LSR #16
!  CMPS R0,R5
!   MOVGT R5,R0
!*2  ADDGT R4,R7,R1,LSL #16:ADDGT R4,R4,R2,LSL #8
!4 
!>'  MOV R0,#0:STRB R0,[scan_board,R2]
!H.  �scan_turn_piece:STRB R0,[scan_board,R7]
!R"  CMPS R5,R8:BGE move_breakout
!\ 
!f  .move_subskip
!pO  TSTS R6,#3:BNE move_subloop ; stop once aligned on the next word boundary
!z?  ;                           ; ie data for the next square
!� 
!�  .move_mainskip
!�0  ADD R7,R7,#1:CMPS R7,#24:BLE move_mainloop
!� 
!�D  .move_breakout ; pruner has ternminated the scan at this level
!�  MOV R0,R5:MOV R1,R4
!�Y  CMNS R0,#1<<19:MVNLT R0,#65536 ; if no moves then I have lost, give lose val, � -�M
!�!  B general_scan_returns_here
!� 
!� 
!� 
!�  ; R8 = cutoff value
!�   ; R7 = square index number
"   ; R6 = square_data_pointer
"  ; R5 = best score
"  ; R4 = best move
"$>  .scan_do_placement     ;       scan ********** placement
".  MOV R4,#0
"8  MVN R5,#1<<20
"B  MOV R7,#24
"L(  LDR R6,[mainvars,#vars_squaredata]
"V 
"`  .place_loop
"j  LDRB R0,[scan_board,R7]
"t(  CMPS R0,#0:BNE place_notthissquare
"~ 
"�  �scan_turn_piece
"�B  STRB R0,[scan_board,R7]         ;  piece inserted into board
"�  MOV R1,R7
"�  BL scan_is_inmill
"�  MOV R0,R5
"�  BLEQ scan_poundmove
"�6  BL general_scan   ;  get value of this new board
"�4  MOV R1,R1,LSR #16 ; only keep pounding section
"�  CMPS R0,R5
"�V  MOVGT R5,R0:ADDGT R4,R7,R1,LSL #16  ; if score was better than others then adopt
"� 
"�'  MOV R2,#0:STRB R2,[scan_board,R7]
##  CMPS R5,R8:BGE place_breakout
#
 
#  .place_notthissquare
#"  SUBS R7,R7,#1:BNE place_loop
#( 
#2  .place_breakout
#<  MOV R0,R5 ; best score
#F,  MOV R1,R4 ; best move (ie chosen move)
#P!  B general_scan_returns_here
#Z 
#d 
#n 
#x 
#� 
#�7  ; **************** scan ************** pound move
#�A  ; the following work in conjunction with the previous level
#�  ; r8 = cutoff
#�  ; r5 = best score
#�R  ; at end of this routine return Ǘ best score in R0.  If this is GT than old
#�c  ;  best score, then caller will adopt this move.  If equal (ie all pounding moves LE) ignored
#�  ;
#�Z  ; r6 has different meaning here.   r3,r7,r4 have same meanings, but separate values.
#� 
#�P  .scan_poundmove ; NB return to R14+4, in order to skip the BL general_scan
#�  ADD R14,R14,#4
#�A  ; turnnumber still set.  need to pound usual piece type � 3
$"  STMFD (stack)!,{R2-R11,link}
$A  MOV R6,#1 ; allow free pounding until an exception is found
$  MVN R5,#1<<20
$" 
$,"  ; 1 - test for free pounding
$6I  � R3,scan_movenumber,#1:ADD R3,R3,#1  ; type of piece to be pounded
$@  MOV R7,#24
$J 
$T  .scan_pound_freetest_loop
$^  LDRB R0,[scan_board,R7]
$h6  CMPS R0,R3 : BEQ scan_pound_freetest_checksquare
$r2  SUBS R7,R7,#1 : BGT scan_pound_freetest_loop
$|$  B scan_pound_freetest_complete
$� 
$�&  .scan_pound_freetest_checksquare
$�#  MOV R1,R7 : BL scan_is_inmill
$�4  MOVNE R6,#0 : BNE scan_pound_freetest_complete
$�2  SUBS R7,R7,#1 : BGT scan_pound_freetest_loop
$�  ; continues....
$� 
$� 
$� 
$�,  .scan_pound_freetest_complete ; r6 = 1
$�  MOV R7,#24
$�A  MOV R4,#0 ; R3 still set to the type of piece to be pounded
$� 
%  .scan_pound_loop
%<  LDRB R0,[scan_board,R7]:CMPS R0,R3:BNE scan_pound_skip
%  CMPS R6,#0
%&W  MOV R1,R7:BLEQ scan_is_inmill:BEQ scan_pound_skip ; free pounding off, is in mill
%0 
%:'  MOV R0,#0:STRB R0,[scan_board,R7]
%D/  MOV R0,R5 ; cutoff value for deeper level
%N  BL general_scan
%X  STRB R3,[scan_board,R7]
%b  CMPS R0,R5
%lE  MOVGT R5,R0:MOVGT R4,R7,LSL #16    ;  pound moves stored at +16
%v%  CMPS R5,R8:BGE scan_pound_break
%� 
%�  .scan_pound_skip
%�  SUBS R7,R7,#1
%�  BGT scan_pound_loop
%� 
%�  .scan_pound_break
%�8  MOV R0,R5:MOV R1,R4    ;     return score and move
%�   LDMFD (stack)!,{R2-R11,PC}
%� 
%� 
%� 
%� 
%�  .scan_is_inmill
&'  ; r1 = square   ;  returns � or �
&!  STMFD (stack)!,{R2-R4,link}
&(  LDR R4,[mainvars,#vars_squaredata]
&   LDRB R3,[scan_board,R1]
&*  MOV R2,#3
&4 
&>Y  LDRB R0,[R4,R1,LSL #squaredata_eigon]!:LDRB R0,[scan_board,R0]:CMPS R0,R3:BNE iim_2
&Hc  LDRB R0,[R4,#1]:BIC R0,R0,#&80:LDRB R0,[scan_board,R0]:CMPS R0,R3:LDMEQFD (stack)!,{R2-R4,PC}
&R 
&\  .iim_2
&fT  LDRB R0,[R4,#2]:LDRB R0,[scan_board,R0]:CMPS R0,R3:LDMNEFD (stack)!,{R2-R4,PC}
&pa  LDRB R0,[R4,#3]:BIC R0,R0,#&80:LDRB R0,[scan_board,R0]:CMPS R0,R3:LDMFD (stack)!,{R2-R4,PC}
&z 
&� 
&� 
&�&  .scan_losetest ; return EQ or NE
&�W  CMPS scan_movenumber,#19:MOVLT PC,link ; can't lose until moving type moves start
&� 
&�@  STMFD (stack)!,{R2-R5,link} ; R0/1 can be corrupted anyway
&�(  LDR R5,[mainvars,#vars_squaredata]
&�  MOV R4,#1
&�N  MOV R3,#0 ; count pieces present, bit8, if set then one+ pieces are free
&�'  �S R2,scan_movenumber,#1:�Q R2,#2
&� 
&�  .scan_losetest_loop
&�  ADD R5,R5,#4
'  LDRB R0,[scan_board,R4]
'-  CMPS R0,R2:BNE scan_losetest_wrongpiece
'  ADD R3,R3,#1
'$Y  LDRB R0,[R5,#0]:TSTS R0,#&80:LDREQB R0,[scan_board,R0]:CMPEQS R0,#0:�REQ R3,R3,#256
'.Y  LDRB R0,[R5,#1]:TSTS R0,#&80:LDREQB R0,[scan_board,R0]:CMPEQS R0,#0:�REQ R3,R3,#256
'8Y  LDRB R0,[R5,#2]:TSTS R0,#&80:LDREQB R0,[scan_board,R0]:CMPEQS R0,#0:�REQ R3,R3,#256
'BY  LDRB R0,[R5,#3]:TSTS R0,#&80:LDREQB R0,[scan_board,R0]:CMPEQS R0,#0:�REQ R3,R3,#256
'L  .scan_losetest_wrongpiece
'V5  ADD R4,R4,#1:CMPS R4,#24:BLE scan_losetest_loop
'` 
'j  ; entire board checked.
'tM  TSTS R3,#256:LDMEQFD (stack)!,{R2-R5,PC}  ;  no movement - so have lost
'~b  CMPS scan_movenumber,#19:LDMLTFD (stack)!,{R2-R5,PC} ; don't count low pieces during placing
'�*  CMPS R3,#2:CMPLES R0,R0 ; set Z flag
'�  LDMFD (stack)!,{R2-R5,PC}
'� 
'� 
'�
  .random
'�  LDR R0,rnd_RND
'�  LDR R1,rnd_EOR
'� 
'�!  TSTS R0,#1<<31:�NE R0,R0,R1
'�&  MOVS R0,R0,LSL #1:ADDCS R0,R0,#1
'�!  TSTS R0,#1<<31:�NE R0,R0,R1
'�&  MOVS R0,R0,LSL #1:ADDCS R0,R0,#1
(!  TSTS R0,#1<<31:�NE R0,R0,R1
(
&  MOVS R0,R0,LSL #1:ADDCS R0,R0,#1
( 
(  STR R0,rnd_RND
((  MOV PC,link ; value in R0
(2 
(<  .rnd_RND:EQUD �(�)
(F  .rnd_EOR:EQUD &0076B553
(P  ]
(Z�
(d�
(n:
(x:
(�:
(�ݤscan_turn_piece
(�[OPT pass%+8
(�(� R0,scan_movenumber,#1:RSB R0,R0,#2
(�]
(�=0
(�
(�
(�
(�
(�
(�
(�
)
�

00000000  0d 00 0a 05 f4 0d 00 14  21 f4 20 4d 69 6c 6c 20  |........!. Mill |
00000010  28 20 72 75 6c 65 73 20  61 6e 64 20 63 6f 6d 70  |( rules and comp|
00000020  75 74 65 72 20 29 0d 00  1e 17 f4 20 53 74 75 61  |uter )..... Stua|
00000030  72 74 20 57 68 69 74 65  68 6f 75 73 65 0d 00 28  |rt Whitehouse..(|
00000040  05 f4 0d 00 32 05 fa 0d  00 3c 05 3a 0d 00 46 21  |....2....<.:..F!|
00000050  3a 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |: **************|
00000060  20 69 6e 69 74 69 61 6c  69 73 65 72 73 0d 00 50  | initialisers..P|
00000070  05 3a 0d 00 5a 0f dd f2  6d 69 6c 6c 73 74 61 72  |.:..Z...millstar|
00000080  74 0d 00 64 38 5f 70 6f  75 6e 64 25 3d 32 3a 5f  |t..d8_pound%=2:_|
00000090  70 6c 61 63 65 25 3d 30  3a 5f 6d 6f 76 65 25 3d  |place%=0:_move%=|
000000a0  31 3a 5f 6e 6f 6d 6f 76  65 25 3d 33 3a 5f 6d 6f  |1:_nomove%=3:_mo|
000000b0  76 65 5f 65 6e 64 25 3d  34 0d 00 6e 36 de 20 62  |ve_end%=4..n6. b|
000000c0  6f 61 72 64 25 20 31 32  30 20 3a 20 f4 20 65 78  |oard% 120 : . ex|
000000d0  63 65 73 73 20 74 6f 20  61 6c 6c 6f 77 20 73 61  |cess to allow sa|
000000e0  76 69 6e 67 20 6f 66 20  6f 70 74 69 6f 6e 73 0d  |ving of options.|
000000f0  00 78 13 66 69 72 73 74  5f 73 71 75 61 72 65 25  |.x.first_square%|
00000100  3d 38 0d 00 82 41 73 71  75 61 72 65 5f 64 61 74  |=8...Asquare_dat|
00000110  61 73 69 7a 65 25 3d 34  20 3a 20 73 71 75 61 72  |asize%=4 : squar|
00000120  65 64 61 74 61 5f 65 69  67 6f 6e 25 3d 32 20 3a  |edata_eigon%=2 :|
00000130  20 73 71 75 61 72 65 64  61 74 61 5f 65 69 67 6f  | squaredata_eigo|
00000140  6e 3d 32 0d 00 8c 4d de  20 73 71 75 61 72 65 64  |n=2...M. squared|
00000150  61 74 61 25 20 32 38 2a  73 71 75 61 72 65 5f 64  |ata% 28*square_d|
00000160  61 74 61 73 69 7a 65 25  2c 20 6d 69 6c 6c 6c 69  |atasize%, millli|
00000170  73 74 25 20 31 37 2a 31  30 20 3a 20 6d 69 6c 6c  |st% 17*10 : mill|
00000180  5f 6c 69 73 74 25 3d 6d  69 6c 6c 6c 69 73 74 25  |_list%=milllist%|
00000190  0d 00 96 04 0d 00 a0 07  f7 2b 30 0d 00 aa 14 e3  |.........+0.....|
000001a0  20 73 71 75 61 72 65 25  3d 30 20 b8 20 32 34 0d  | square%=0 . 24.|
000001b0  00 b4 26 20 20 6f 66 66  73 65 74 25 3d 73 71 75  |..&  offset%=squ|
000001c0  61 72 65 25 2a 73 71 75  61 72 65 5f 64 61 74 61  |are%*square_data|
000001d0  73 69 7a 65 25 0d 00 be  46 20 20 e3 20 77 25 3d  |size%...F  . w%=|
000001e0  30 20 b8 20 73 71 75 61  72 65 5f 64 61 74 61 73  |0 . square_datas|
000001f0  69 7a 65 25 2d 31 3a f3  20 77 24 3a 3f 28 73 71  |ize%-1:. w$:?(sq|
00000200  75 61 72 65 64 61 74 61  25 2b 6f 66 66 73 65 74  |uaredata%+offset|
00000210  25 2b 77 25 29 3d a0 77  24 3a ed 0d 00 c8 05 ed  |%+w%)=.w$:......|
00000220  0d 00 d2 31 f3 20 77 25  3a e7 20 77 25 3c 3e 39  |...1. w%:. w%<>9|
00000230  39 39 20 8c 20 85 20 32  35 35 2c 22 44 61 74 61  |99 . . 255,"Data|
00000240  20 6d 69 73 2d 61 6c 69  67 6e 65 64 20 28 41 29  | mis-aligned (A)|
00000250  22 0d 00 dc 04 0d 00 e6  12 70 74 72 25 3d 6d 69  |"........ptr%=mi|
00000260  6c 6c 6c 69 73 74 25 0d  00 f0 12 e3 20 6d 69 6c  |lllist%..... mil|
00000270  6c 25 3d 30 20 b8 20 31  36 0d 00 fa 22 20 20 e3  |l%=0 . 16..."  .|
00000280  20 77 25 3d 30 20 b8 20  38 3a f3 20 3f 70 74 72  | w%=0 . 8:. ?ptr|
00000290  25 3a 70 74 72 25 2b 3d  31 3a ed 0d 01 04 05 ed  |%:ptr%+=1:......|
000002a0  0d 01 0e 31 f3 20 77 25  3a e7 20 77 25 3c 3e 39  |...1. w%:. w%<>9|
000002b0  39 39 20 8c 20 85 20 32  35 35 2c 22 44 61 74 61  |99 . . 255,"Data|
000002c0  20 6d 69 73 2d 61 6c 69  67 6e 65 64 20 28 42 29  | mis-aligned (B)|
000002d0  22 0d 01 18 04 0d 01 22  04 0d 01 2c 10 de 20 70  |"......"...,.. p|
000002e0  6c 61 79 65 72 25 28 32  29 0d 01 36 16 5f 68 75  |layer%(2)..6._hu|
000002f0  6d 61 6e 25 3d 30 3a 5f  63 6f 6d 70 25 3d 31 0d  |man%=0:_comp%=1.|
00000300  01 40 28 70 6c 61 79 65  72 25 28 31 29 3d 5f 68  |.@(player%(1)=_h|
00000310  75 6d 61 6e 25 3a 70 6c  61 79 65 72 25 28 32 29  |uman%:player%(2)|
00000320  3d 5f 63 6f 6d 70 25 0d  01 4a 04 0d 01 54 20 72  |=_comp%..J...T r|
00000330  65 61 6c 5f 6c 65 76 65  6c 25 3d 35 3a 6d 6f 76  |eal_level%=5:mov|
00000340  65 5f 72 65 73 75 6c 74  25 3d 30 0d 01 5e 05 e1  |e_result%=0..^..|
00000350  0d 01 68 04 0d 01 72 30  f4 20 66 6f 72 20 65 61  |..h...r0. for ea|
00000360  63 68 20 73 71 75 61 72  65 2c 20 6c 69 73 74 20  |ch square, list |
00000370  2d 20 6c 69 6e 6b 73 20  74 6f 20 28 34 2d 62 79  |- links to (4-by|
00000380  74 65 73 29 0d 01 7c 0d  dc 20 30 2c 30 2c 30 2c  |tes)..|.. 0,0,0,|
00000390  30 0d 01 86 04 0d 01 90  12 dc 20 32 2c 26 38 33  |0......... 2,&83|
000003a0  2c 31 30 2c 26 39 36 0d  01 9a 0f dc 20 31 2c 33  |,10,&96..... 1,3|
000003b0  2c 35 2c 26 38 38 0d 01  a4 12 dc 20 32 2c 26 38  |,5,&88..... 2,&8|
000003c0  31 2c 31 35 2c 26 39 38  0d 01 ae 12 dc 20 35 2c  |1,15,&98..... 5,|
000003d0  26 38 36 2c 31 31 2c 26  39 33 0d 01 b8 0d dc 20  |&86,11,&93..... |
000003e0  32 2c 38 2c 34 2c 36 0d  01 c2 12 dc 20 35 2c 26  |2,8,4,6..... 5,&|
000003f0  38 34 2c 31 34 2c 26 39  35 0d 01 cc 12 dc 20 38  |84,14,&95..... 8|
00000400  2c 26 38 39 2c 31 32 2c  26 39 30 0d 01 d6 0f dc  |,&89,12,&90.....|
00000410  20 35 2c 26 38 32 2c 37  2c 39 0d 01 e0 04 0d 01  | 5,&82,7,9......|
00000420  ea 12 dc 20 38 2c 26 38  37 2c 31 33 2c 26 39 32  |... 8,&87,13,&92|
00000430  0d 01 f4 11 dc 20 31 2c  32 32 2c 31 31 2c 26 38  |..... 1,22,11,&8|
00000440  43 0d 01 fe 10 dc 20 34  2c 31 39 2c 31 30 2c 31  |C..... 4,19,10,1|
00000450  32 0d 02 08 11 dc 20 37  2c 31 36 2c 31 31 2c 26  |2..... 7,16,11,&|
00000460  38 41 0d 02 12 11 dc 20  39 2c 31 38 2c 31 34 2c  |8A..... 9,18,14,|
00000470  26 38 46 0d 02 1c 10 dc  20 36 2c 32 31 2c 31 33  |&8F..... 6,21,13|
00000480  2c 31 35 0d 02 26 11 dc  20 33 2c 32 34 2c 31 34  |,15..&.. 3,24,14|
00000490  2c 26 38 44 0d 02 30 13  dc 20 31 32 2c 26 38 37  |,&8D..0.. 12,&87|
000004a0  2c 31 37 2c 26 39 32 0d  02 3a 04 0d 02 44 12 dc  |,17,&92..:...D..|
000004b0  20 31 36 2c 31 38 2c 32  30 2c 26 39 37 0d 02 4e  | 16,18,20,&97..N|
000004c0  13 dc 20 31 37 2c 26 39  30 2c 31 33 2c 26 38 39  |.. 17,&90,13,&89|
000004d0  0d 02 58 13 dc 20 31 31  2c 26 38 34 2c 32 30 2c  |..X.. 11,&84,20,|
000004e0  26 39 35 0d 02 62 11 dc  20 31 37 2c 32 33 2c 31  |&95..b.. 17,23,1|
000004f0  39 2c 32 31 0d 02 6c 13  dc 20 31 34 2c 26 38 36  |9,21..l.. 14,&86|
00000500  2c 32 30 2c 26 39 33 0d  02 76 13 dc 20 31 30 2c  |,20,&93..v.. 10,|
00000510  26 38 31 2c 32 33 2c 26  39 38 0d 02 80 12 dc 20  |&81,23,&98..... |
00000520  32 30 2c 26 39 31 2c 32  32 2c 32 34 0d 02 8a 13  |20,&91,22,24....|
00000530  dc 20 32 33 2c 26 39 36  2c 31 35 2c 26 38 33 0d  |. 23,&96,15,&83.|
00000540  02 94 05 3a 0d 02 9e 09  dc 20 39 39 39 0d 02 a8  |...:..... 999...|
00000550  05 3a 0d 02 b2 4b 3a 20  f4 20 33 20 62 79 74 65  |.:...K: . 3 byte|
00000560  73 20 70 65 72 20 73 71  75 61 72 65 2c 20 74 68  |s per square, th|
00000570  65 79 20 61 72 65 20 73  71 75 61 72 65 2c 20 6c  |ey are square, l|
00000580  69 6e 6b 65 64 5f 73 71  75 61 72 65 31 2c 20 6c  |inked_square1, l|
00000590  69 6e 6b 65 64 5f 73 71  75 61 72 65 32 0d 02 bc  |inked_square2...|
000005a0  26 dc 20 30 2c 30 2c 30  2c 20 30 2c 30 2c 30 2c  |&. 0,0,0, 0,0,0,|
000005b0  20 30 2c 30 2c 30 20 3a  20 52 45 4d 20 6d 69 6c  | 0,0,0 : REM mil|
000005c0  6c 20 30 0d 02 c6 1b dc  20 31 2c 31 30 2c 30 2c  |l 0..... 1,10,0,|
000005d0  20 32 2c 35 2c 30 2c 20  33 2c 31 35 2c 30 0d 02  | 2,5,0, 3,15,0..|
000005e0  d0 1d dc 20 33 2c 32 2c  30 2c 20 31 35 2c 31 34  |... 3,2,0, 15,14|
000005f0  2c 30 2c 20 32 34 2c 32  33 2c 30 0d 02 da 1f dc  |,0, 24,23,0.....|
00000600  20 32 34 2c 31 35 2c 30  2c 20 32 33 2c 32 30 2c  | 24,15,0, 23,20,|
00000610  30 2c 20 32 32 2c 31 30  2c 30 0d 02 e4 1d dc 20  |0, 22,10,0..... |
00000620  32 32 2c 32 33 2c 30 2c  20 31 30 2c 31 31 2c 30  |22,23,0, 10,11,0|
00000630  2c 20 31 2c 32 2c 30 0d  02 ee 04 0d 02 f8 1b dc  |, 1,2,0.........|
00000640  20 34 2c 31 31 2c 30 2c  20 35 2c 32 2c 38 2c 20  | 4,11,0, 5,2,8, |
00000650  36 2c 31 34 2c 30 0d 03  02 1e dc 20 36 2c 35 2c  |6,14,0..... 6,5,|
00000660  30 2c 20 31 34 2c 31 33  2c 31 35 2c 20 32 31 2c  |0, 14,13,15, 21,|
00000670  32 30 2c 30 0d 03 0c 20  dc 20 32 31 2c 31 34 2c  |20,0... . 21,14,|
00000680  30 2c 20 32 30 2c 31 37  2c 32 33 2c 20 31 39 2c  |0, 20,17,23, 19,|
00000690  31 31 2c 30 0d 03 16 2b  dc 20 31 39 2c 32 30 2c  |11,0...+. 19,20,|
000006a0  30 2c 20 31 31 2c 31 30  2c 31 32 2c 20 34 2c 35  |0, 11,10,12, 4,5|
000006b0  2c 30 20 3a 20 52 45 4d  20 6d 69 6c 6c 20 38 0d  |,0 : REM mill 8.|
000006c0  03 20 04 0d 03 2a 1b dc  20 37 2c 31 32 2c 30 2c  |. ...*.. 7,12,0,|
000006d0  20 38 2c 35 2c 30 2c 20  39 2c 31 33 2c 30 0d 03  | 8,5,0, 9,13,0..|
000006e0  34 1d dc 20 39 2c 38 2c  30 2c 20 31 33 2c 31 34  |4.. 9,8,0, 13,14|
000006f0  2c 30 2c 20 31 38 2c 31  37 2c 30 0d 03 3e 1f dc  |,0, 18,17,0..>..|
00000700  20 31 38 2c 31 33 2c 30  2c 20 31 37 2c 32 30 2c  | 18,13,0, 17,20,|
00000710  30 2c 20 31 36 2c 31 32  2c 30 0d 03 48 1d dc 20  |0, 16,12,0..H.. |
00000720  31 36 2c 31 37 2c 30 2c  20 31 32 2c 31 31 2c 30  |16,17,0, 12,11,0|
00000730  2c 20 37 2c 38 2c 30 0d  03 52 04 0d 03 5c 19 dc  |, 7,8,0..R...\..|
00000740  20 32 2c 31 2c 33 2c 20  35 2c 34 2c 36 2c 20 38  | 2,1,3, 5,4,6, 8|
00000750  2c 37 2c 39 0d 03 66 1f  dc 20 31 33 2c 39 2c 31  |,7,9..f.. 13,9,1|
00000760  38 2c 20 31 34 2c 36 2c  32 31 2c 20 31 35 2c 33  |8, 14,6,21, 15,3|
00000770  2c 32 34 0d 03 70 22 dc  20 31 37 2c 31 36 2c 31  |,24..p". 17,16,1|
00000780  38 2c 20 32 30 2c 31 39  2c 32 31 2c 20 32 33 2c  |8, 20,19,21, 23,|
00000790  32 32 2c 32 34 0d 03 7a  1f dc 20 31 30 2c 31 2c  |22,24..z.. 10,1,|
000007a0  32 32 2c 20 31 31 2c 34  2c 31 39 2c 20 31 32 2c  |22, 11,4,19, 12,|
000007b0  37 2c 31 36 0d 03 84 05  3a 0d 03 8e 09 dc 20 39  |7,16....:..... 9|
000007c0  39 39 0d 03 98 05 3a 0d  03 a2 05 3a 0d 03 ac 0d  |99....:....:....|
000007d0  dd f2 6e 65 77 67 61 6d  65 0d 03 b6 0e 67 61 6d  |..newgame....gam|
000007e0  65 5f 6f 6e 25 3d b9 0d  03 c0 0e 74 6f 5f 70 6c  |e_on%=.....to_pl|
000007f0  61 79 25 3d 31 0d 03 ca  16 6d 6f 76 65 5f 74 79  |ay%=1....move_ty|
00000800  70 65 25 3d 5f 70 6c 61  63 65 25 0d 03 d4 1d e3  |pe%=_place%.....|
00000810  20 77 25 3d 31 20 b8 20  32 34 3a 62 6f 61 72 64  | w%=1 . 24:board|
00000820  25 3f 77 25 3d 30 3a ed  0d 03 de 0e 62 6f 61 72  |%?w%=0:.....boar|
00000830  64 25 3f 30 3d 30 0d 03  e8 16 74 75 72 6e 25 3d  |d%?0=0....turn%=|
00000840  30 3a f2 6e 65 78 74 5f  6d 6f 76 65 0d 03 f2 33  |0:.next_move...3|
00000850  c8 99 20 22 54 65 6d 70  65 73 74 5f 53 65 74 49  |.. "Tempest_SetI|
00000860  63 6f 6e 54 65 78 74 22  2c 6d 61 69 6e 68 61 6e  |conText",mainhan|
00000870  64 6c 65 25 2c 33 37 2c  74 62 25 2c 22 30 22 0d  |dle%,37,tb%,"0".|
00000880  03 fc 0e f2 72 65 64 72  61 77 61 6c 6c 0d 04 06  |....redrawall...|
00000890  12 6c 61 73 74 5f 70 6f  75 6e 64 25 3d 31 38 0d  |.last_pound%=18.|
000008a0  04 10 05 e1 0d 04 1a 05  3a 0d 04 24 05 3a 0d 04  |........:..$.:..|
000008b0  2e 2a 3a 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.*: ************|
000008c0  2a 2a 2a 2a 2a 20 61 63  74 69 6f 6e 73 20 2a 2a  |***** actions **|
000008d0  2a 2a 2a 2a 2a 2a 2a 2a  0d 04 38 05 3a 0d 04 42  |********..8.:..B|
000008e0  05 3a 0d 04 4c 19 dd f2  6d 69 6c 6c 63 68 61 6e  |.:..L...millchan|
000008f0  67 65 28 73 71 75 61 72  65 25 29 0d 04 56 20 e7  |ge(square%)..V .|
00000900  20 73 71 75 61 72 65 25  3c 31 20 84 20 73 71 75  | square%<1 . squ|
00000910  61 72 65 25 3e 32 34 20  8c 20 e1 0d 04 60 2b f2  |are%>24 . ...`+.|
00000920  73 65 74 70 69 65 63 65  28 73 71 75 61 72 65 25  |setpiece(square%|
00000930  2c 28 62 6f 61 72 64 25  3f 73 71 75 61 72 65 25  |,(board%?square%|
00000940  2b 31 29 80 33 29 0d 04  6a 05 e1 0d 04 74 05 3a  |+1).3)..j....t.:|
00000950  0d 04 7e 20 dd f2 6d 69  6c 6c 63 6c 69 63 6b 28  |..~ ..millclick(|
00000960  73 71 75 61 72 65 25 2c  62 75 74 74 6f 6e 25 29  |square%,button%)|
00000970  0d 04 88 20 e7 20 73 71  75 61 72 65 25 3c 31 20  |... . square%<1 |
00000980  84 20 73 71 75 61 72 65  25 3e 32 34 20 8c 20 e1  |. square%>24 . .|
00000990  0d 04 92 22 e7 20 70 6c  61 79 65 72 25 28 74 6f  |...". player%(to|
000009a0  5f 70 6c 61 79 25 29 3d  5f 63 6f 6d 70 25 20 8c  |_play%)=_comp% .|
000009b0  20 e1 0d 04 9c 14 e7 20  67 61 6d 65 5f 6f 6e 25  | ...... game_on%|
000009c0  3d a3 20 8c 20 e1 0d 04  a6 04 0d 04 b0 10 c8 8e  |=. . ...........|
000009d0  20 62 75 74 74 6f 6e 25  20 ca 0d 04 ba 24 20 20  | button% ....$  |
000009e0  c9 20 31 2c 34 20 3a 20  e7 20 6d 6f 76 65 5f 74  |. 1,4 : . move_t|
000009f0  79 70 65 25 3d 5f 70 6c  61 63 65 25 20 8c 0d 04  |ype%=_place% ...|
00000a00  c4 1d 20 20 20 20 f2 70  6c 61 63 65 5f 70 69 65  |..    .place_pie|
00000a10  63 65 28 73 71 75 61 72  65 25 29 0d 04 ce 07 20  |ce(square%).... |
00000a20  20 cc 0d 04 d8 34 20 20  20 20 e7 20 6d 6f 76 65  | ....4    . move|
00000a30  5f 74 79 70 65 25 3d 5f  70 6f 75 6e 64 25 20 8c  |_type%=_pound% .|
00000a40  20 f2 70 6f 75 6e 64 5f  70 69 65 63 65 28 73 71  | .pound_piece(sq|
00000a50  75 61 72 65 25 29 0d 04  e2 07 20 20 cd 0d 04 ec  |uare%)....  ....|
00000a60  3a 20 20 c9 20 31 36 2c  36 34 20 3a 20 e7 20 6d  |:  . 16,64 : . m|
00000a70  6f 76 65 5f 74 79 70 65  25 3d 5f 6d 6f 76 65 25  |ove_type%=_move%|
00000a80  20 8c 20 f2 73 74 61 72  74 5f 6d 6f 76 65 28 73  | . .start_move(s|
00000a90  71 75 61 72 65 25 29 0d  04 f6 05 cb 0d 05 00 05  |quare%).........|
00000aa0  e1 0d 05 0a 05 3a 0d 05  14 05 3a 0d 05 1e 1a dd  |.....:....:.....|
00000ab0  f2 70 6c 61 63 65 5f 70  69 65 63 65 28 73 71 75  |.place_piece(squ|
00000ac0  61 72 65 25 29 0d 05 28  28 e7 20 62 6f 61 72 64  |are%)..((. board|
00000ad0  25 3f 73 71 75 61 72 65  25 3c 3e 30 20 8c 20 f2  |%?square%<>0 . .|
00000ae0  62 61 64 6d 6f 76 65 28  22 22 29 3a e1 0d 05 32  |badmove(""):...2|
00000af0  1f f2 73 65 74 70 69 65  63 65 28 73 71 75 61 72  |..setpiece(squar|
00000b00  65 25 2c 74 6f 5f 70 6c  61 79 25 29 0d 05 3c 1e  |e%,to_play%)..<.|
00000b10  f2 70 69 65 63 65 5f 61  72 72 69 76 65 64 5f 69  |.piece_arrived_i|
00000b20  6e 28 73 71 75 61 72 65  25 29 0d 05 46 05 e1 0d  |n(square%)..F...|
00000b30  05 50 05 3a 0d 05 5a 05  3a 0d 05 64 1a dd f2 70  |.P.:..Z.:..d...p|
00000b40  6f 75 6e 64 5f 70 69 65  63 65 28 73 71 75 61 72  |ound_piece(squar|
00000b50  65 25 29 0d 05 6e 35 e7  20 62 6f 61 72 64 25 3f  |e%)..n5. board%?|
00000b60  73 71 75 61 72 65 25 3c  3e 28 74 6f 5f 70 6c 61  |square%<>(to_pla|
00000b70  79 25 20 82 20 33 29 20  8c 20 f2 62 61 64 6d 6f  |y% . 3) . .badmo|
00000b80  76 65 28 22 22 29 3a e1  0d 05 78 32 e7 20 ac a4  |ve(""):...x2. ..|
00000b90  69 73 5f 70 6f 75 6e 64  61 62 6c 65 28 73 71 75  |is_poundable(squ|
00000ba0  61 72 65 25 29 20 8c 20  f2 62 61 64 6d 6f 76 65  |are%) . .badmove|
00000bb0  28 22 58 50 4e 44 22 29  3a e1 0d 05 82 04 0d 05  |("XPND"):.......|
00000bc0  8c 3c 24 a4 67 65 74 74  65 78 74 6d 65 6d 28 6d  |.<$.gettextmem(m|
00000bd0  61 69 6e 68 61 6e 64 6c  65 25 2c 73 71 75 61 72  |ainhandle%,squar|
00000be0  65 25 2b 66 69 72 73 74  5f 73 71 75 61 72 65 25  |e%+first_square%|
00000bf0  29 3d 22 70 69 65 63 65  33 22 0d 05 96 30 21 70  |)="piece3"...0!p|
00000c00  62 25 3d 6d 61 69 6e 68  61 6e 64 6c 65 25 3a 70  |b%=mainhandle%:p|
00000c10  62 25 21 34 3d 73 71 75  61 72 65 25 2b 66 69 72  |b%!4=square%+fir|
00000c20  73 74 5f 73 71 75 61 72  65 25 0d 05 a0 30 70 62  |st_square%...0pb|
00000c30  25 21 38 3d 30 3a 70 62  25 21 31 32 3d 30 3a c8  |%!8=0:pb%!12=0:.|
00000c40  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00000c50  74 61 74 65 22 2c 2c 70  62 25 0d 05 aa 15 74 25  |tate",,pb%....t%|
00000c60  3d 91 3a c8 95 20 91 2d  74 25 3c 33 35 3a ce 0d  |=.:.. .-t%<35:..|
00000c70  05 b4 04 0d 05 be 18 f2  73 65 74 70 69 65 63 65  |........setpiece|
00000c80  28 73 71 75 61 72 65 25  2c 30 29 0d 05 c8 38 e7  |(square%,0)...8.|
00000c90  20 a4 68 61 73 5f 77 6f  6e 28 74 6f 5f 70 6c 61  | .has_won(to_pla|
00000ca0  79 25 29 20 8c 20 e1 20  3a f4 20 64 6f 65 73 20  |y%) . . :. does |
00000cb0  65 76 65 72 79 74 68 69  6e 67 20 72 65 71 75 69  |everything requi|
00000cc0  72 65 64 0d 05 d2 22 e7  20 74 75 72 6e 25 3e 31  |red...". turn%>1|
00000cd0  38 20 8c 20 6c 61 73 74  5f 70 6f 75 6e 64 25 3d  |8 . last_pound%=|
00000ce0  74 75 72 6e 25 0d 05 dc  0e f2 6e 65 78 74 5f 6d  |turn%.....next_m|
00000cf0  6f 76 65 0d 05 e6 05 e1  0d 05 f0 05 3a 0d 05 fa  |ove.........:...|
00000d00  05 3a 0d 06 04 19 dd f2  73 74 61 72 74 5f 6d 6f  |.:......start_mo|
00000d10  76 65 28 73 71 75 61 72  65 25 29 0d 06 0e 2f e7  |ve(square%).../.|
00000d20  20 62 6f 61 72 64 25 3f  73 71 75 61 72 65 25 3c  | board%?square%<|
00000d30  3e 74 6f 5f 70 6c 61 79  25 20 8c 20 f2 62 61 64  |>to_play% . .bad|
00000d40  6d 6f 76 65 28 22 22 29  3a e1 0d 06 18 30 21 70  |move(""):....0!p|
00000d50  62 25 3d 6d 61 69 6e 68  61 6e 64 6c 65 25 3a 70  |b%=mainhandle%:p|
00000d60  62 25 21 34 3d 73 71 75  61 72 65 25 2b 66 69 72  |b%!4=square%+fir|
00000d70  73 74 5f 73 71 75 61 72  65 25 0d 06 22 25 c8 99  |st_square%.."%..|
00000d80  20 22 54 65 6d 70 65 73  74 5f 44 72 61 67 41 6e  | "Tempest_DragAn|
00000d90  49 63 6f 6e 22 2c 30 2c  70 62 25 2c 74 62 25 0d  |Icon",0,pb%,tb%.|
00000da0  06 2c 1e 6d 6f 76 65 5f  73 74 61 72 74 5f 73 71  |.,.move_start_sq|
00000db0  75 61 72 65 25 3d 73 71  75 61 72 65 25 0d 06 36  |uare%=square%..6|
00000dc0  17 64 72 61 67 5f 74 79  70 65 25 3d 5f 64 5f 6d  |.drag_type%=_d_m|
00000dd0  6f 76 65 25 0d 06 40 05  e1 0d 06 4a 05 3a 0d 06  |ove%..@....J.:..|
00000de0  54 05 3a 0d 06 5e 50 dd  f2 6d 6f 76 65 5f 65 6e  |T.:..^P..move_en|
00000df0  64 28 73 71 75 61 72 65  25 29 20 20 3a 20 f4 20  |d(square%)  : . |
00000e00  63 61 6c 6c 65 64 20 61  66 74 65 72 20 64 72 61  |called after dra|
00000e10  67 62 6f 78 72 65 74 75  72 6e 20 68 61 73 20 62  |gboxreturn has b|
00000e20  65 65 6e 20 70 72 6f 63  65 73 73 65 64 20 61 20  |een processed a |
00000e30  62 69 74 0d 06 68 28 e7  20 62 6f 61 72 64 25 3f  |bit..h(. board%?|
00000e40  73 71 75 61 72 65 25 3c  3e 30 20 8c 20 f2 62 61  |square%<>0 . .ba|
00000e50  64 6d 6f 76 65 28 22 22  29 3a e1 0d 06 72 36 77  |dmove(""):...r6w|
00000e60  25 3d 73 71 75 61 72 65  64 61 74 61 25 2b 6d 6f  |%=squaredata%+mo|
00000e70  76 65 5f 73 74 61 72 74  5f 73 71 75 61 72 65 25  |ve_start_square%|
00000e80  2a 73 71 75 61 72 65 5f  64 61 74 61 73 69 7a 65  |*square_datasize|
00000e90  25 0d 06 7c 47 e7 20 77  25 3f 30 3c 3e 73 71 75  |%..|G. w%?0<>squ|
00000ea0  61 72 65 25 20 80 20 77  25 3f 31 3c 3e 73 71 75  |are% . w%?1<>squ|
00000eb0  61 72 65 25 20 80 20 77  25 3f 32 3c 3e 73 71 75  |are% . w%?2<>squ|
00000ec0  61 72 65 25 20 80 20 77  25 3f 33 3c 3e 73 71 75  |are% . w%?3<>squ|
00000ed0  61 72 65 25 20 8c 20 e1  0d 06 86 04 0d 06 90 1f  |are% . .........|
00000ee0  f2 73 65 74 70 69 65 63  65 28 73 71 75 61 72 65  |.setpiece(square|
00000ef0  25 2c 74 6f 5f 70 6c 61  79 25 29 0d 06 9a 23 f2  |%,to_play%)...#.|
00000f00  73 65 74 70 69 65 63 65  28 6d 6f 76 65 5f 73 74  |setpiece(move_st|
00000f10  61 72 74 5f 73 71 75 61  72 65 25 2c 30 29 0d 06  |art_square%,0)..|
00000f20  a4 1e f2 70 69 65 63 65  5f 61 72 72 69 76 65 64  |...piece_arrived|
00000f30  5f 69 6e 28 73 71 75 61  72 65 25 29 0d 06 ae 05  |_in(square%)....|
00000f40  e1 0d 06 b8 05 3a 0d 06  c2 05 3a 0d 06 cc 05 3a  |.....:....:....:|
00000f50  0d 06 d6 0f dd f2 6e 65  78 74 5f 6d 6f 76 65 0d  |......next_move.|
00000f60  06 e0 40 74 75 72 6e 25  2b 3d 31 3a e7 20 74 75  |..@turn%+=1:. tu|
00000f70  72 6e 25 3e 31 38 20 8c  20 6d 6f 76 65 5f 74 79  |rn%>18 . move_ty|
00000f80  70 65 25 3d 5f 6d 6f 76  65 25 20 8b 20 6d 6f 76  |pe%=_move% . mov|
00000f90  65 5f 74 79 70 65 25 3d  5f 70 6c 61 63 65 25 0d  |e_type%=_place%.|
00000fa0  06 ea 1a 74 6f 5f 70 6c  61 79 25 3d 32 2d 28 74  |...to_play%=2-(t|
00000fb0  75 72 6e 25 20 80 20 31  29 0d 06 f4 0e f2 73 68  |urn% . 1).....sh|
00000fc0  6f 77 5f 6d 6f 76 65 0d  06 fe 04 0d 07 08 55 e7  |ow_move.......U.|
00000fd0  20 70 6c 61 79 65 72 25  28 74 6f 5f 70 6c 61 79  | player%(to_play|
00000fe0  25 29 3d 5f 63 6f 6d 70  25 20 8c 20 6e 65 65 64  |%)=_comp% . need|
00000ff0  5f 74 68 69 6e 6b 25 3d  b9 20 8b 20 41 25 21 76  |_think%=. . A%!v|
00001000  61 72 73 5f 6d 6f 76 65  73 65 6c 65 63 74 65 64  |ars_moveselected|
00001010  3d 30 3a 6e 65 65 64 5f  74 68 69 6e 6b 25 3d a3  |=0:need_think%=.|
00001020  0d 07 12 04 0d 07 1c 12  e7 20 74 75 72 6e 25 3c  |......... turn%<|
00001030  31 39 20 8c 20 e1 0d 07  26 04 0d 07 30 3a e7 20  |19 . ...&...0:. |
00001040  74 75 72 6e 25 2d 6c 61  73 74 5f 70 6f 75 6e 64  |turn%-last_pound|
00001050  25 3d 31 30 30 20 8c 20  f2 67 65 6e 61 6c 65 72  |%=100 . .genaler|
00001060  74 28 22 44 52 41 57 22  29 3a f2 73 74 6f 70 5f  |t("DRAW"):.stop_|
00001070  67 61 6d 65 0d 07 3a 04  0d 07 44 4c f4 20 6d 75  |game..:...DL. mu|
00001080  73 74 20 74 65 73 74 20  77 68 65 74 68 65 72 20  |st test whether |
00001090  74 68 65 20 6e 65 77 20  70 6c 61 79 65 72 20 69  |the new player i|
000010a0  73 20 61 63 74 75 61 6c  6c 79 20 63 61 70 61 62  |s actually capab|
000010b0  6c 65 20 6f 66 20 6d 61  6b 69 6e 67 20 61 20 6d  |le of making a m|
000010c0  6f 76 65 2e 0d 07 4e 1c  ea 20 67 6f 25 2c 20 69  |ove...N.. go%, i|
000010d0  6e 64 65 78 25 2c 20 6c  69 6e 6b 25 2c 20 52 25  |ndex%, link%, R%|
000010e0  0d 07 58 18 52 25 3d 73  71 75 61 72 65 64 61 74  |..X.R%=squaredat|
000010f0  61 25 3a 67 6f 25 3d a3  0d 07 62 13 e3 20 69 6e  |a%:go%=...b.. in|
00001100  64 65 78 25 3d 31 20 b8  20 32 34 0d 07 6c 1a 20  |dex%=1 . 24..l. |
00001110  20 52 25 2b 3d 73 71 75  61 72 65 5f 64 61 74 61  | R%+=square_data|
00001120  73 69 7a 65 25 0d 07 76  20 20 20 e7 20 62 6f 61  |size%..v   . boa|
00001130  72 64 25 3f 69 6e 64 65  78 25 3d 74 6f 5f 70 6c  |rd%?index%=to_pl|
00001140  61 79 25 20 8c 0d 07 80  15 20 20 20 20 e3 20 6c  |ay% .....    . l|
00001150  69 6e 6b 25 3d 30 20 b8  20 33 0d 07 8a 39 20 20  |ink%=0 . 3...9  |
00001160  20 20 20 20 e7 20 52 25  3f 6c 69 6e 6b 25 3c 26  |    . R%?link%<&|
00001170  38 30 20 8c 20 e7 20 3f  28 62 6f 61 72 64 25 2b  |80 . . ?(board%+|
00001180  52 25 3f 6c 69 6e 6b 25  29 3d 30 20 8c 20 67 6f  |R%?link%)=0 . go|
00001190  25 3d b9 0d 07 94 09 20  20 20 20 ed 0d 07 9e 07  |%=.....    .....|
000011a0  20 20 cd 0d 07 a8 05 ed  0d 07 b2 22 e7 20 67 6f  |  .........". go|
000011b0  25 20 8c 20 e1 20 20 3a  20 f4 20 63 61 6e 20 6d  |% . .  : . can m|
000011c0  6f 76 65 2c 20 73 6f 20  6f 6b 0d 07 bc 1e f2 67  |ove, so ok.....g|
000011d0  65 6e 61 6c 65 72 74 28  22 4c 4f 53 22 2b c3 74  |enalert("LOS"+.t|
000011e0  6f 5f 70 6c 61 79 25 29  0d 07 c6 0e f2 73 74 6f  |o_play%).....sto|
000011f0  70 5f 67 61 6d 65 0d 07  d0 05 e1 0d 07 da 05 3a  |p_game.........:|
00001200  0d 07 e4 05 3a 0d 07 ee  1f dd f2 70 69 65 63 65  |....:......piece|
00001210  5f 61 72 72 69 76 65 64  5f 69 6e 28 73 71 75 61  |_arrived_in(squa|
00001220  72 65 25 29 0d 07 f8 21  e7 20 a4 69 73 5f 70 61  |re%)...!. .is_pa|
00001230  72 74 5f 6f 66 5f 6d 69  6c 6c 28 73 71 75 61 72  |rt_of_mill(squar|
00001240  65 25 29 20 8c 0d 08 02  18 20 20 6d 6f 76 65 5f  |e%) .....  move_|
00001250  74 79 70 65 25 3d 5f 70  6f 75 6e 64 25 0d 08 0c  |type%=_pound%...|
00001260  10 20 20 f2 73 68 6f 77  5f 6d 6f 76 65 0d 08 16  |.  .show_move...|
00001270  05 cc 0d 08 20 10 20 20  f2 6e 65 78 74 5f 6d 6f  |.... .  .next_mo|
00001280  76 65 0d 08 2a 05 cd 0d  08 34 05 e1 0d 08 3e 05  |ve..*....4....>.|
00001290  3a 0d 08 48 05 3a 0d 08  52 1e dd a4 69 73 5f 70  |:..H.:..R...is_p|
000012a0  61 72 74 5f 6f 66 5f 6d  69 6c 6c 28 73 71 75 61  |art_of_mill(squa|
000012b0  72 65 25 29 0d 08 5c 13  ea 20 52 25 2c 20 57 25  |re%)..\.. R%, W%|
000012c0  2c 20 58 25 2c 59 25 0d  08 66 2b 52 25 3d 73 71  |, X%,Y%..f+R%=sq|
000012d0  75 61 72 65 64 61 74 61  25 2b 73 71 75 61 72 65  |uaredata%+square|
000012e0  25 2a 73 71 75 61 72 65  5f 64 61 74 61 73 69 7a  |%*square_datasiz|
000012f0  65 25 0d 08 70 15 57 25  3d 62 6f 61 72 64 25 3f  |e%..p.W%=board%?|
00001300  73 71 75 61 72 65 25 0d  08 7a 0d 58 25 3d b9 3a  |square%..z.X%=.:|
00001310  59 25 3d b9 0d 08 84 27  e7 20 3f 28 62 6f 61 72  |Y%=....'. ?(boar|
00001320  64 25 2b 28 52 25 3f 30  20 80 20 26 37 46 29 29  |d%+(R%?0 . &7F))|
00001330  3c 3e 57 25 20 8c 20 58  25 3d a3 0d 08 8e 27 e7  |<>W% . X%=....'.|
00001340  20 3f 28 62 6f 61 72 64  25 2b 28 52 25 3f 31 20  | ?(board%+(R%?1 |
00001350  80 20 26 37 46 29 29 3c  3e 57 25 20 8c 20 58 25  |. &7F))<>W% . X%|
00001360  3d a3 0d 08 98 27 e7 20  3f 28 62 6f 61 72 64 25  |=....'. ?(board%|
00001370  2b 28 52 25 3f 32 20 80  20 26 37 46 29 29 3c 3e  |+(R%?2 . &7F))<>|
00001380  57 25 20 8c 20 59 25 3d  a3 0d 08 a2 27 e7 20 3f  |W% . Y%=....'. ?|
00001390  28 62 6f 61 72 64 25 2b  28 52 25 3f 33 20 80 20  |(board%+(R%?3 . |
000013a0  26 37 46 29 29 3c 3e 57  25 20 8c 20 59 25 3d a3  |&7F))<>W% . Y%=.|
000013b0  0d 08 ac 0c 3d 58 25 20  84 20 59 25 0d 08 b6 05  |....=X% . Y%....|
000013c0  3a 0d 08 c0 05 3a 0d 08  ca 1b dd a4 69 73 5f 70  |:....:......is_p|
000013d0  6f 75 6e 64 61 62 6c 65  28 73 71 75 61 72 65 25  |oundable(square%|
000013e0  29 0d 08 d4 26 e7 20 ac  20 a4 69 73 5f 70 61 72  |)...&. . .is_par|
000013f0  74 5f 6f 66 5f 6d 69 6c  6c 28 73 71 75 61 72 65  |t_of_mill(square|
00001400  25 29 20 8c 20 3d b9 0d  08 de 16 ea 20 57 25 2c  |%) . =...... W%,|
00001410  69 6e 64 65 78 25 20 3a  20 57 25 3d b9 0d 08 e8  |index% : W%=....|
00001420  13 e3 20 69 6e 64 65 78  25 3d 31 20 b8 20 32 34  |.. index%=1 . 24|
00001430  0d 08 f2 26 20 20 e7 20  62 6f 61 72 64 25 3f 69  |...&  . board%?i|
00001440  6e 64 65 78 25 3d 62 6f  61 72 64 25 3f 73 71 75  |ndex%=board%?squ|
00001450  61 72 65 25 20 8c 0d 08  fc 28 20 20 20 20 57 25  |are% ....(    W%|
00001460  3d 57 25 20 80 20 a4 69  73 5f 70 61 72 74 5f 6f  |=W% . .is_part_o|
00001470  66 5f 6d 69 6c 6c 28 69  6e 64 65 78 25 29 0d 09  |f_mill(index%)..|
00001480  06 07 20 20 cd 0d 09 10  05 ed 0d 09 1a 07 3d 57  |..  ..........=W|
00001490  25 0d 09 24 05 3a 0d 09  2e 05 3a 0d 09 38 05 3a  |%..$.:....:..8.:|
000014a0  0d 09 42 16 dd a4 68 61  73 5f 77 6f 6e 28 70 6c  |..B...has_won(pl|
000014b0  61 79 65 72 25 29 0d 09  4c 1c ea 20 6f 74 68 65  |ayer%)..L.. othe|
000014c0  72 25 2c 20 69 6e 64 65  78 25 2c 20 63 6f 75 6e  |r%, index%, coun|
000014d0  74 25 0d 09 56 16 6f 74  68 65 72 25 3d 70 6c 61  |t%..V.other%=pla|
000014e0  79 65 72 25 20 82 20 33  0d 09 60 13 e7 20 74 75  |yer% . 3..`.. tu|
000014f0  72 6e 25 3c 31 39 20 8c  20 3d a3 0d 09 6a 13 e3  |rn%<19 . =...j..|
00001500  20 69 6e 64 65 78 25 3d  31 20 b8 20 32 34 0d 09  | index%=1 . 24..|
00001510  74 28 20 20 e7 20 62 6f  61 72 64 25 3f 69 6e 64  |t(  . board%?ind|
00001520  65 78 25 3d 6f 74 68 65  72 25 20 8c 20 63 6f 75  |ex%=other% . cou|
00001530  6e 74 25 2b 3d 31 0d 09  7e 05 ed 0d 09 88 14 e7  |nt%+=1..~.......|
00001540  20 63 6f 75 6e 74 25 3e  3d 33 20 8c 20 3d a3 0d  | count%>=3 . =..|
00001550  09 92 1d f2 67 65 6e 61  6c 65 72 74 28 22 57 49  |....genalert("WI|
00001560  4e 22 2b c3 70 6c 61 79  65 72 25 29 0d 09 9c 0e  |N"+.player%)....|
00001570  f2 73 74 6f 70 5f 67 61  6d 65 0d 09 a6 06 3d b9  |.stop_game....=.|
00001580  0d 09 b0 04 0d 09 ba 0f  dd f2 73 74 6f 70 5f 67  |..........stop_g|
00001590  61 6d 65 0d 09 c4 0e 67  61 6d 65 5f 6f 6e 25 3d  |ame....game_on%=|
000015a0  a3 0d 09 ce 27 6d 6f 76  65 5f 74 79 70 65 25 3d  |....'move_type%=|
000015b0  5f 6e 6f 6d 6f 76 65 25  20 20 20 20 3a f4 20 28  |_nomove%    :. (|
000015c0  6e 6f 20 6d 6f 76 65 29  0d 09 d8 0e f2 73 68 6f  |no move).....sho|
000015d0  77 5f 6d 6f 76 65 0d 09  e2 05 e1 0d 09 ec 04 0d  |w_move..........|
000015e0  09 f6 04 0d 0a 00 04 0d  0a 0a 04 0d 0a 14 04 0d  |................|
000015f0  0a 1e 04 0d 0a 28 04 0d  0a 32 0f dd f2 63 6f 6d  |.....(...2...com|
00001600  70 5f 6d 6f 76 65 0d 0a  3c 1c e7 20 6e 65 65 64  |p_move..<.. need|
00001610  5f 74 68 69 6e 6b 25 20  8c 20 f2 74 68 69 6e 6b  |_think% . .think|
00001620  3a e1 0d 0a 46 13 c8 8e  20 6d 6f 76 65 5f 74 79  |:...F... move_ty|
00001630  70 65 25 20 ca 0d 0a 50  2c 20 20 c9 20 5f 70 6f  |pe% ...P,  . _po|
00001640  75 6e 64 25 20 3a 20 f2  70 6f 75 6e 64 5f 70 69  |und% : .pound_pi|
00001650  65 63 65 28 a4 6d 6f 76  65 70 75 6c 6c 28 38 29  |ece(.movepull(8)|
00001660  29 0d 0a 5a 2d 20 20 c9  20 5f 70 6c 61 63 65 25  |)..Z-  . _place%|
00001670  20 3a 20 f2 70 6c 61 63  65 5f 70 69 65 63 65 28  | : .place_piece(|
00001680  a4 6d 6f 76 65 70 75 6c  6c 28 31 36 29 29 0d 0a  |.movepull(16))..|
00001690  64 2a 20 20 c9 20 5f 6d  6f 76 65 25 20 3a 20 f2  |d*  . _move% : .|
000016a0  73 74 61 72 74 5f 6d 6f  76 65 28 a4 6d 6f 76 65  |start_move(.move|
000016b0  70 75 6c 6c 28 38 29 29  0d 0a 6e 1d 20 20 f2 6d  |pull(8))..n.  .m|
000016c0  6f 76 65 5f 65 6e 64 28  a4 6d 6f 76 65 70 75 6c  |ove_end(.movepul|
000016d0  6c 28 38 29 29 0d 0a 78  05 cb 0d 0a 82 05 e1 0d  |l(8))..x........|
000016e0  0a 8c 05 3a 0d 0a 96 16  dd a4 6d 6f 76 65 70 75  |...:......movepu|
000016f0  6c 6c 28 73 68 69 66 74  25 29 0d 0a a0 08 ea 20  |ll(shift%)..... |
00001700  77 25 0d 0a aa 19 77 25  3d 6d 6f 76 65 5f 72 65  |w%....w%=move_re|
00001710  73 75 6c 74 25 20 80 20  26 46 46 0d 0a b4 26 6d  |sult% . &FF...&m|
00001720  6f 76 65 5f 72 65 73 75  6c 74 25 3d 6d 6f 76 65  |ove_result%=move|
00001730  5f 72 65 73 75 6c 74 25  3e 3e 3e 73 68 69 66 74  |_result%>>>shift|
00001740  25 0d 0a be 07 3d 77 25  0d 0a c8 05 3a 0d 0a d2  |%....=w%....:...|
00001750  05 3a 0d 0a dc 13 dd f2  62 61 64 6d 6f 76 65 28  |.:......badmove(|
00001760  73 74 72 24 29 0d 0a e6  21 e7 20 70 6c 61 79 65  |str$)...!. playe|
00001770  72 25 28 74 6f 5f 70 6c  61 79 25 29 3d 5f 68 75  |r%(to_play%)=_hu|
00001780  6d 61 6e 25 20 8c 0d 0a  f0 22 20 20 e7 20 73 74  |man% ...."  . st|
00001790  72 24 3c 3e 22 22 20 8c  20 f2 67 65 6e 61 6c 65  |r$<>"" . .genale|
000017a0  72 74 28 73 74 72 24 29  0d 0a fa 05 cc 0d 0b 04  |rt(str$)........|
000017b0  17 20 20 f2 67 65 6e 61  6c 65 72 74 28 22 4c 4f  |.  .genalert("LO|
000017c0  53 43 22 29 0d 0b 0e 24  20 20 f2 67 65 6e 61 6c  |SC")...$  .genal|
000017d0  65 72 74 28 22 57 49 4e  22 2b c3 28 33 2d 74 6f  |ert("WIN"+.(3-to|
000017e0  5f 70 6c 61 79 25 29 29  0d 0b 18 10 20 20 f2 73  |_play%))....  .s|
000017f0  74 6f 70 5f 67 61 6d 65  0d 0b 22 05 cd 0d 0b 2c  |top_game.."....,|
00001800  05 e1 0d 0b 36 05 3a 0d  0b 40 05 3a 0d 0b 4a 0b  |....6.:..@.:..J.|
00001810  dd f2 74 68 69 6e 6b 0d  0b 54 1a ea 20 63 6f 75  |..think..T.. cou|
00001820  6e 74 25 2c 20 69 6e 64  65 78 25 2c 20 6d 61 78  |nt%, index%, max|
00001830  25 0d 0b 5e 13 e3 20 69  6e 64 65 78 25 3d 31 20  |%..^.. index%=1 |
00001840  b8 20 32 34 0d 0b 68 23  20 20 e7 20 62 6f 61 72  |. 24..h#  . boar|
00001850  64 25 3f 69 6e 64 65 78  25 3e 30 20 8c 20 63 6f  |d%?index%>0 . co|
00001860  75 6e 74 25 2b 3d 31 0d  0b 72 05 ed 0d 0b 7c 21  |unt%+=1..r....|!|
00001870  e7 20 63 6f 75 6e 74 25  3c 31 31 20 8c 20 6d 61  |. count%<11 . ma|
00001880  78 25 3d 35 20 8b 20 6d  61 78 25 3d 37 0d 0b 86  |x%=5 . max%=7...|
00001890  10 e7 20 74 75 72 6e 25  3c 31 37 20 8c 0d 0b 90  |.. turn%<17 ....|
000018a0  33 20 20 e7 20 70 6c 61  63 65 64 65 70 74 68 25  |3  . placedepth%|
000018b0  3e 6d 61 78 25 20 8c 20  77 25 3d 6d 61 78 25 20  |>max% . w%=max% |
000018c0  8b 20 77 25 3d 70 6c 61  63 65 64 65 70 74 68 25  |. w%=placedepth%|
000018d0  0d 0b 9a 05 cc 0d 0b a4  12 20 20 77 25 3d 6d 61  |.........  w%=ma|
000018e0  78 64 65 70 74 68 25 0d  0b ae 05 cd 0d 0b b8 1b  |xdepth%.........|
000018f0  41 25 21 76 61 72 73 5f  6d 61 78 73 63 61 6e 64  |A%!vars_maxscand|
00001900  65 70 74 68 3d 77 25 0d  0b c2 1c 41 25 21 76 61  |epth=w%....A%!va|
00001910  72 73 5f 74 75 72 6e 6e  75 6d 62 65 72 3d 74 75  |rs_turnnumber=tu|
00001920  72 6e 25 0d 0b cc 16 d6  20 64 6f 5f 63 6f 6d 70  |rn%..... do_comp|
00001930  75 74 65 72 5f 6d 6f 76  65 0d 0b d6 52 c8 99 20  |uter_move...R.. |
00001940  22 54 65 6d 70 65 73 74  5f 53 65 74 49 63 6f 6e  |"Tempest_SetIcon|
00001950  54 65 78 74 22 2c 6d 61  69 6e 68 61 6e 64 6c 65  |Text",mainhandle|
00001960  25 2c 33 34 2c 74 62 25  2c c3 41 25 21 76 61 72  |%,34,tb%,.A%!var|
00001970  73 5f 74 65 73 74 31 2b  22 20 22 2b c3 7e 41 25  |s_test1+" "+.~A%|
00001980  21 76 61 72 73 5f 74 65  73 74 32 0d 0b e0 42 c8  |!vars_test2...B.|
00001990  99 20 22 54 65 6d 70 65  73 74 5f 53 65 74 49 63  |. "Tempest_SetIc|
000019a0  6f 6e 54 65 78 74 22 2c  6d 61 69 6e 68 61 6e 64  |onText",mainhand|
000019b0  6c 65 25 2c 33 37 2c 74  62 25 2c c3 41 25 21 76  |le%,37,tb%,.A%!v|
000019c0  61 72 73 5f 70 6f 73 6e  63 6f 75 6e 74 0d 0b ea  |ars_posncount...|
000019d0  25 6d 6f 76 65 5f 72 65  73 75 6c 74 25 3d 41 25  |%move_result%=A%|
000019e0  21 76 61 72 73 5f 6d 6f  76 65 73 65 6c 65 63 74  |!vars_moveselect|
000019f0  65 64 0d 0b f4 11 6e 65  65 64 5f 74 68 69 6e 6b  |ed....need_think|
00001a00  25 3d a3 0d 0b fe 05 e1  0d 0c 08 05 3a 0d 0c 12  |%=..........:...|
00001a10  05 3a 0d 0c 1c 11 dd f2  75 70 64 61 74 65 6c 65  |.:......updatele|
00001a20  76 65 6c 0d 0c 26 56 f4  20 72 65 61 6c 5f 6c 65  |vel..&V. real_le|
00001a30  76 65 6c 25 20 63 6f 6e  74 61 69 6e 73 20 74 68  |vel% contains th|
00001a40  65 20 6c 65 76 65 6c 20  74 6f 20 75 73 65 2c 20  |e level to use, |
00001a50  73 65 74 20 74 68 65 20  76 61 6c 75 65 73 20 74  |set the values t|
00001a60  68 61 74 20 61 72 65 20  72 65 61 64 20 62 79 20  |hat are read by |
00001a70  74 68 65 20 63 6f 64 65  2e 0d 0c 30 04 0d 0c 3a  |the code...0...:|
00001a80  07 f7 2b 30 0d 0c 44 1c  e3 20 69 6e 64 65 78 25  |..+0..D.. index%|
00001a90  3d 30 20 b8 20 72 65 61  6c 5f 6c 65 76 65 6c 25  |=0 . real_level%|
00001aa0  0d 0c 4e 34 20 20 f3 20  70 6c 61 63 65 64 65 70  |..N4  . placedep|
00001ab0  74 68 25 2c 6d 61 78 64  65 70 74 68 25 2c 74 79  |th%,maxdepth%,ty|
00001ac0  70 65 25 2c 65 72 72 6f  72 25 2c 6d 6f 31 25 2c  |pe%,error%,mo1%,|
00001ad0  6d 6f 32 25 0d 0c 58 05  ed 0d 0c 62 50 f4 20 6d  |mo2%..X....bP. m|
00001ae0  61 78 64 65 70 74 68 20  61 6e 64 20 70 6c 61 63  |axdepth and plac|
00001af0  65 64 65 70 74 68 20 61  72 65 20 6b 65 70 74 20  |edepth are kept |
00001b00  61 73 20 42 41 53 49 43  20 76 61 72 73 2c 20 6f  |as BASIC vars, o|
00001b10  74 68 65 72 73 20 67 6f  20 64 69 72 65 63 74 20  |thers go direct |
00001b20  74 6f 20 6d 63 6f 64 65  2e 0d 0c 6c 1d 41 25 21  |to mcode...l.A%!|
00001b30  76 61 72 73 5f 72 61 6e  64 6f 6d 69 73 65 72 3d  |vars_randomiser=|
00001b40  65 72 72 6f 72 25 0d 0c  76 1b 41 25 21 76 61 72  |error%..v.A%!var|
00001b50  73 5f 74 68 69 6e 6b 74  79 70 65 3d 74 79 70 65  |s_thinktype=type|
00001b60  25 0d 0c 80 04 0d 0c 8a  1e 41 25 21 76 61 72 73  |%........A%!vars|
00001b70  5f 6d 6f 62 69 6c 69 74  79 5f 62 61 73 65 3d 6d  |_mobility_base=m|
00001b80  6f 31 25 0d 0c 94 20 41  25 21 76 61 72 73 5f 6d  |o1%... A%!vars_m|
00001b90  6f 62 69 6c 69 74 79 5f  73 63 61 6c 65 72 3d 6d  |obility_scaler=m|
00001ba0  6f 32 25 0d 0c 9e 05 e1  0d 0c a8 04 0d 0c b2 3c  |o2%............<|
00001bb0  f4 20 64 65 70 74 68 20  28 77 68 65 6e 20 70 6c  |. depth (when pl|
00001bc0  61 63 69 6e 67 29 2c 20  64 65 70 74 68 20 28 77  |acing), depth (w|
00001bd0  68 65 6e 20 6d 6f 76 69  6e 67 29 2c 20 74 79 70  |hen moving), typ|
00001be0  65 2c 20 65 72 72 6f 72  0d 0c bc 26 f4 20 64 65  |e, error...&. de|
00001bf0  70 74 68 20 66 72 6f 6d  20 31 20 28 74 65 63 68  |pth from 1 (tech|
00001c00  6e 69 63 61 6c 20 6d 69  6e 69 6d 75 6d 29 0d 0c  |nical minimum)..|
00001c10  c6 1a f4 20 20 20 20 20  20 20 20 20 20 20 20 33  |...            3|
00001c20  20 28 62 61 73 69 63 29  0d 0c d0 1c f4 20 20 20  | (basic).....   |
00001c30  20 20 20 20 20 74 6f 20  37 20 6f 72 20 38 20 28  |     to 7 or 8 (|
00001c40  6d 61 78 29 0d 0c da 04  0d 0c e4 57 f4 20 66 6f  |max).......W. fo|
00001c50  72 20 73 6f 6d 65 20 62  69 7a 61 72 72 65 20 72  |r some bizarre r|
00001c60  65 61 73 6f 6e 20 61 20  64 65 70 74 68 20 77 68  |eason a depth wh|
00001c70  65 6e 20 70 6c 61 63 69  6e 67 20 6f 66 20 33 2c  |en placing of 3,|
00001c80  20 77 69 74 68 20 76 65  72 79 20 68 69 67 68 20  | with very high |
00001c90  6d 6f 62 69 6c 69 74 79  20 73 63 61 6c 65 72 0d  |mobility scaler.|
00001ca0  0c ee 45 f4 20 69 73 20  61 62 73 6f 6c 75 74 65  |..E. is absolute|
00001cb0  6c 79 20 76 69 63 69 6f  75 73 2c 20 6f 66 74 65  |ly vicious, ofte|
00001cc0  6e 20 6d 6f 72 65 20 70  6f 77 65 72 66 75 6c 20  |n more powerful |
00001cd0  74 68 61 6e 20 64 65 65  70 65 72 20 61 6e 61 6c  |than deeper anal|
00001ce0  79 73 69 73 0d 0c f8 04  0d 0d 02 1c f4 20 74 68  |ysis......... th|
00001cf0  69 6e 6b 20 74 79 70 65  20 69 73 20 30 2c 31 20  |ink type is 0,1 |
00001d00  6f 72 20 33 0d 0d 0c 18  f4 20 65 72 72 6f 72 20  |or 3..... error |
00001d10  66 72 6f 6d 20 30 20 74  6f 20 36 33 0d 0d 16 04  |from 0 to 63....|
00001d20  0d 0d 20 24 dc 20 31 2c  31 2c 30 2c 33 31 2c 20  |.. $. 1,1,0,31, |
00001d30  30 2c 31 20 3a 20 52 45  4d 20 62 72 61 69 6e 20  |0,1 : REM brain |
00001d40  64 65 61 64 0d 0d 2a 22  dc 20 32 2c 33 2c 30 2c  |dead..*". 2,3,0,|
00001d50  36 33 2c 20 30 2c 31 20  3a 20 52 45 4d 20 50 61  |63, 0,1 : REM Pa|
00001d60  74 68 65 74 69 63 0d 0d  34 1f dc 20 32 2c 32 2c  |thetic..4.. 2,2,|
00001d70  31 2c 31 35 2c 20 33 32  2c 31 20 3a 20 52 45 4d  |1,15, 32,1 : REM|
00001d80  20 70 6f 6f 72 0d 0d 3e  20 dc 20 32 2c 33 2c 33  | poor..> . 2,3,3|
00001d90  2c 37 2c 20 33 32 2c 31  20 3a 20 52 45 4d 20 77  |,7, 32,1 : REM w|
00001da0  65 61 6b 65 72 0d 0d 48  29 dc 20 33 2c 33 2c 33  |eaker..H). 3,3,3|
00001db0  2c 33 31 2c 20 33 32 2c  31 20 20 3a 20 52 45 4d  |,31, 32,1  : REM|
00001dc0  20 73 6c 69 67 68 74 20  65 72 72 6f 72 73 0d 0d  | slight errors..|
00001dd0  52 04 0d 0d 5c 23 dc 20  33 2c 33 2c 33 2c 37 2c  |R...\#. 3,3,3,7,|
00001de0  20 34 38 2c 31 20 3a 20  20 52 45 4d 20 73 74 61  | 48,1 :  REM sta|
00001df0  6e 64 61 72 64 0d 0d 66  04 0d 0d 70 24 dc 20 33  |ndard..f...p$. 3|
00001e00  2c 35 2c 31 2c 33 2c 20  39 36 2a 32 2c 32 20 3a  |,5,1,3, 96*2,2 :|
00001e10  20 52 45 4d 20 69 6d 70  72 6f 76 65 64 0d 0d 7a  | REM improved..z|
00001e20  20 dc 20 33 2c 35 2c 33  2c 33 2c 20 39 36 2a 33  | . 3,5,3,3, 96*3|
00001e30  2c 32 20 3a 20 52 45 4d  20 67 6f 6f 64 0d 0d 84  |,2 : REM good...|
00001e40  24 dc 20 35 2c 36 2c 33  2c 31 2c 20 39 36 2a 34  |$. 5,6,3,1, 96*4|
00001e50  2c 33 20 3a 20 52 45 4d  20 61 64 76 61 6e 63 65  |,3 : REM advance|
00001e60  64 0d 0d 8e 26 dc 20 37  2c 37 2c 33 2c 30 2c 20  |d...&. 7,7,3,0, |
00001e70  39 36 2a 35 2c 34 20 3a  20 52 45 4d 20 64 69 61  |96*5,4 : REM dia|
00001e80  62 6f 6c 69 63 61 6c 0d  0d 98 04 0d 0d a2 04 0d  |bolical.........|
00001e90  0d ac 04 0d 0d b6 04 0d  0d c0 04 0d 0d ca 04 0d  |................|
00001ea0  0d d4 04 0d 0d de 04 0d  0d e8 04 0d 0d f2 04 0d  |................|
00001eb0  0d fc 04 0d 0e 06 04 0d  0e 10 04 0d 0e 1a 04 0d  |................|
00001ec0  0e 24 04 0d 0e 2e 04 0d  0e 38 04 0d 0e 42 04 0d  |.$.......8...B..|
00001ed0  0e 4c 04 0d 0e 56 0e dd  f2 63 6f 64 65 76 61 72  |.L...V...codevar|
00001ee0  73 0d 0e 60 11 de 20 76  61 72 6d 65 6d 20 31 30  |s..`.. varmem 10|
00001ef0  30 30 0d 0e 6a 0d 41 25  3d 76 61 72 6d 65 6d 0d  |00..j.A%=varmem.|
00001f00  0e 74 04 0d 0e 7e 13 de  20 65 76 61 6c 62 6f 61  |.t...~.. evalboa|
00001f10  72 64 25 20 32 38 0d 0e  88 04 0d 0e 92 14 76 61  |rd% 28........va|
00001f20  72 73 5f 65 76 61 6c 62  6f 61 72 64 3d 30 0d 0e  |rs_evalboard=0..|
00001f30  9c 17 76 61 72 73 5f 70  6c 61 79 69 6e 67 62 6f  |..vars_playingbo|
00001f40  61 72 64 3d 34 0d 0e a6  22 76 61 72 73 5f 70 69  |ard=4..."vars_pi|
00001f50  65 63 65 73 63 6f 72 65  3d 38 20 20 20 20 20 20  |ecescore=8      |
00001f60  20 20 3a 20 f4 20 2d 0d  0e b0 22 76 61 72 73 5f  |  : . -..."vars_|
00001f70  6d 6f 62 69 6c 69 74 79  73 63 6f 72 65 3d 31 32  |mobilityscore=12|
00001f80  20 20 20 20 3a 20 f4 20  2d 0d 0e ba 16 76 61 72  |    : . -....var|
00001f90  73 5f 74 6f 74 61 6c 73  63 6f 72 65 3d 31 36 0d  |s_totalscore=16.|
00001fa0  0e c4 48 76 61 72 73 5f  74 75 72 6e 6e 75 6d 62  |..Hvars_turnnumb|
00001fb0  65 72 3d 32 30 3a 76 61  72 73 5f 6d 6f 76 65 6e  |er=20:vars_moven|
00001fc0  75 6d 62 65 72 3d 32 30  20 20 20 20 20 20 20 3a  |umber=20       :|
00001fd0  20 f4 20 74 75 72 6e 20  74 6f 20 62 65 20 64 6f  | . turn to be do|
00001fe0  6e 65 20 4e 45 58 54 0d  0e ce 16 76 61 72 73 5f  |ne NEXT....vars_|
00001ff0  73 71 75 61 72 65 64 61  74 61 3d 32 34 0d 0e d8  |squaredata=24...|
00002000  26 76 61 72 73 5f 6d 69  6c 6c 6c 69 73 74 3d 32  |&vars_milllist=2|
00002010  38 3a 76 61 72 73 5f 6d  69 6c 6c 5f 6c 69 73 74  |8:vars_mill_list|
00002020  3d 32 38 0d 0e e2 18 76  61 72 73 5f 6d 61 78 73  |=28....vars_maxs|
00002030  63 61 6e 64 65 70 74 68  3d 33 32 0d 0e ec 1f 76  |candepth=32....v|
00002040  61 72 73 5f 74 65 73 74  31 3d 33 36 3a 76 61 72  |ars_test1=36:var|
00002050  73 5f 74 65 73 74 32 3d  34 30 0d 0e f6 18 76 61  |s_test2=40....va|
00002060  72 73 5f 6d 6f 76 65 73  65 6c 65 63 74 65 64 3d  |rs_moveselected=|
00002070  34 34 0d 0f 00 15 76 61  72 73 5f 70 6f 73 6e 63  |44....vars_posnc|
00002080  6f 75 6e 74 3d 34 38 0d  0f 0a 16 76 61 72 73 5f  |ount=48....vars_|
00002090  72 61 6e 64 6f 6d 69 73  65 72 3d 35 32 0d 0f 14  |randomiser=52...|
000020a0  3e 76 61 72 73 5f 74 68  69 6e 6b 74 79 70 65 3d  |>vars_thinktype=|
000020b0  35 36 20 3a 20 f4 20 31  3d 6d 6f 62 69 6c 69 74  |56 : . 1=mobilit|
000020c0  79 20 69 6e 20 75 73 65  2c 20 20 32 20 3d 20 6d  |y in use,  2 = m|
000020d0  69 6c 6c 73 20 69 6e 20  75 73 65 0d 0f 1e 19 76  |ills in use....v|
000020e0  61 72 73 5f 6d 6f 62 69  6c 69 74 79 5f 62 61 73  |ars_mobility_bas|
000020f0  65 3d 36 30 0d 0f 28 1b  76 61 72 73 5f 6d 6f 62  |e=60..(.vars_mob|
00002100  69 6c 69 74 79 5f 73 63  61 6c 65 72 3d 36 34 0d  |ility_scaler=64.|
00002110  0f 32 04 0d 0f 3c 04 0d  0f 46 20 41 25 21 76 61  |.2...<...F A%!va|
00002120  72 73 5f 65 76 61 6c 62  6f 61 72 64 3d 65 76 61  |rs_evalboard=eva|
00002130  6c 62 6f 61 72 64 25 0d  0f 50 1f 41 25 21 76 61  |lboard%..P.A%!va|
00002140  72 73 5f 70 6c 61 79 69  6e 67 62 6f 61 72 64 3d  |rs_playingboard=|
00002150  62 6f 61 72 64 25 0d 0f  5a 1f 41 25 21 76 61 72  |board%..Z.A%!var|
00002160  73 5f 6d 69 6c 6c 5f 6c  69 73 74 3d 6d 69 6c 6c  |s_mill_list=mill|
00002170  6c 69 73 74 25 0d 0f 64  22 41 25 21 76 61 72 73  |list%..d"A%!vars|
00002180  5f 73 71 75 61 72 65 64  61 74 61 3d 73 71 75 61  |_squaredata=squa|
00002190  72 65 64 61 74 61 25 0d  0f 6e 1a 41 25 21 76 61  |redata%..n.A%!va|
000021a0  72 73 5f 6d 61 78 73 63  61 6e 64 65 70 74 68 3d  |rs_maxscandepth=|
000021b0  33 0d 0f 78 18 41 25 21  76 61 72 73 5f 72 61 6e  |3..x.A%!vars_ran|
000021c0  64 6f 6d 69 73 65 72 3d  31 0d 0f 82 17 41 25 21  |domiser=1....A%!|
000021d0  76 61 72 73 5f 74 68 69  6e 6b 74 79 70 65 3d 33  |vars_thinktype=3|
000021e0  0d 0f 8c 04 0d 0f 96 3b  70 69 65 63 65 5f 73 63  |.......;piece_sc|
000021f0  6f 72 65 25 3d 34 30 20  20 3a 20 20 6d 6f 62 69  |ore%=40  :  mobi|
00002200  6c 69 74 79 5f 62 61 73  65 5f 73 63 6f 72 65 25  |lity_base_score%|
00002210  3d 39 36 20 3a f4 20 28  33 2a 31 36 2a 32 29 0d  |=96 :. (3*16*2).|
00002220  0f a0 15 6d 6f 62 69 6c  69 74 79 5f 73 63 61 6c  |...mobility_scal|
00002230  65 72 3d 31 0d 0f aa 05  e1 0d 0f b4 05 3a 0d 0f  |er=1.........:..|
00002240  be 05 3a 0d 0f c8 0b dd  f2 61 73 73 65 6d 0d 0f  |..:......assem..|
00002250  d2 20 6c 69 6e 6b 3d 31  34 3a 73 74 61 63 6b 3d  |. link=14:stack=|
00002260  31 33 3a 6d 61 69 6e 76  61 72 73 3d 31 32 0d 0f  |13:mainvars=12..|
00002270  dc 04 0d 0f e6 47 f4 20  77 6f 72 6b 69 6e 67 20  |.....G. working |
00002280  6f 6e 20 30 2d 33 20 74  72 61 73 68 61 62 6c 65  |on 0-3 trashable|
00002290  2c 20 31 32 2c 31 33 2c  31 34 20 66 69 78 65 64  |, 12,13,14 fixed|
000022a0  2c 20 35 2d 31 31 20 73  69 74 75 61 74 69 6f 6e  |, 5-11 situation|
000022b0  20 76 61 72 69 61 62 6c  65 0d 0f f0 50 65 76 61  | variable...Peva|
000022c0  6c 5f 62 6f 61 72 64 3d  31 31 3a 65 76 61 6c 5f  |l_board=11:eval_|
000022d0  6d 6f 76 65 74 79 70 65  3d 31 30 3a 65 76 61 6c  |movetype=10:eval|
000022e0  5f 6d 61 69 6e 63 6f 75  6e 74 3d 39 20 20 20 3a  |_maincount=9   :|
000022f0  20 f4 20 67 6c 6f 62 61  6c 20 74 68 72 6f 75 67  | . global throug|
00002300  68 6f 75 74 20 65 76 61  6c 0d 0f fa 34 65 76 61  |hout eval...4eva|
00002310  6c 5f 73 64 5f 70 74 72  3d 38 20 20 20 20 20 3a  |l_sd_ptr=8     :|
00002320  20 f4 20 75 73 65 64 20  62 79 20 73 6f 6d 65 20  | . used by some |
00002330  61 6c 6c 20 73 75 62 2d  70 61 72 74 73 0d 10 04  |all sub-parts...|
00002340  04 0d 10 0e 31 73 63 61  6e 5f 64 65 70 74 68 3d  |....1scan_depth=|
00002350  39 3a 73 63 61 6e 5f 6d  6f 76 65 6e 75 6d 62 65  |9:scan_movenumbe|
00002360  72 3d 31 30 3a 73 63 61  6e 5f 62 6f 61 72 64 3d  |r=10:scan_board=|
00002370  31 31 0d 10 18 04 0d 10  22 1d 6f 70 74 5f 6d 61  |11......".opt_ma|
00002380  78 25 3d 32 3a 63 6f 64  65 73 69 7a 65 25 3d 33  |x%=2:codesize%=3|
00002390  30 30 30 0d 10 2c 19 de  20 63 6f 64 65 6d 65 6d  |000..,.. codemem|
000023a0  20 63 6f 64 65 73 69 7a  65 25 2b 34 0d 10 36 23  | codesize%+4..6#|
000023b0  e3 20 70 61 73 73 25 3d  30 20 b8 20 6f 70 74 5f  |. pass%=0 . opt_|
000023c0  6d 61 78 25 20 88 20 6f  70 74 5f 6d 61 78 25 0d  |max% . opt_max%.|
000023d0  10 40 10 20 20 50 25 3d  63 6f 64 65 6d 65 6d 0d  |.@.  P%=codemem.|
000023e0  10 4a 1a 20 20 4c 25 3d  63 6f 64 65 6d 65 6d 2b  |.J.  L%=codemem+|
000023f0  63 6f 64 65 73 69 7a 65  25 0d 10 54 12 20 20 5b  |codesize%..T.  [|
00002400  4f 50 54 20 70 61 73 73  25 2b 38 0d 10 5e 05 20  |OPT pass%+8..^. |
00002410  0d 10 68 10 20 20 2e 65  76 61 6c 5f 74 65 73 74  |..h.  .eval_test|
00002420  0d 10 72 15 20 20 4d 4f  56 20 6d 61 69 6e 76 61  |..r.  MOV mainva|
00002430  72 73 2c 52 30 0d 10 7c  05 20 0d 10 86 1b 20 20  |rs,R0..|. ....  |
00002440  53 54 4d 46 44 20 28 73  74 61 63 6b 29 21 2c 7b  |STMFD (stack)!,{|
00002450  6c 69 6e 6b 7d 0d 10 90  13 20 20 4d 4f 56 20 52  |link}....  MOV R|
00002460  31 31 2c 23 38 31 39 32  0d 10 9a 0e 20 20 2e 65  |11,#8192....  .e|
00002470  74 5f 6c 6f 6f 70 0d 10  a4 2a 20 20 4c 44 52 20  |t_loop...*  LDR |
00002480  52 33 2c 5b 6d 61 69 6e  76 61 72 73 2c 23 76 61  |R3,[mainvars,#va|
00002490  72 73 5f 70 6c 61 79 69  6e 67 62 6f 61 72 64 5d  |rs_playingboard]|
000024a0  0d 10 ae 42 20 20 4c 44  52 20 52 31 2c 5b 6d 61  |...B  LDR R1,[ma|
000024b0  69 6e 76 61 72 73 2c 23  76 61 72 73 5f 74 75 72  |invars,#vars_tur|
000024c0  6e 6e 75 6d 62 65 72 5d  20 3b 20 20 6d 61 79 20  |nnumber] ;  may |
000024d0  62 65 20 6e 65 65 64 65  64 20 6c 61 74 65 72 20  |be needed later |
000024e0  6f 6e 0d 10 b8 11 20 20  42 4c 20 65 76 61 6c 75  |on....  BL evalu|
000024f0  61 74 65 0d 10 c2 15 20  20 53 55 42 53 20 52 31  |ate....  SUBS R1|
00002500  31 2c 52 31 31 2c 23 31  0d 10 cc 13 20 20 3b 20  |1,R11,#1....  ; |
00002510  42 4e 45 20 65 74 5f 6c  6f 6f 70 0d 10 d6 19 20  |BNE et_loop.... |
00002520  20 4c 44 4d 46 44 20 28  73 74 61 63 6b 29 21 2c  | LDMFD (stack)!,|
00002530  7b 50 43 7d 0d 10 e0 05  20 0d 10 ea 05 20 0d 10  |{PC}.... .... ..|
00002540  f4 05 20 0d 10 fe 05 20  0d 11 08 05 20 0d 11 12  |.. .... .... ...|
00002550  13 20 20 3b 20 74 69 6d  69 6e 67 20 7e 20 37 30  |.  ; timing ~ 70|
00002560  0d 11 1c 45 20 20 2e 65  76 61 6c 75 61 74 65 20  |...E  .evaluate |
00002570  3b 20 72 31 20 3d 20 70  6c 61 79 65 72 20 74 75  |; r1 = player tu|
00002580  72 6e 20 6e 75 6d 62 65  72 20 3b 20 72 33 20 3d  |rn number ; r3 =|
00002590  20 73 6f 75 72 63 65 20  62 6f 61 72 64 20 70 6f  | source board po|
000025a0  69 6e 74 65 72 0d 11 26  22 20 20 53 54 4d 46 44  |inter..&"  STMFD|
000025b0  20 28 73 74 61 63 6b 29  21 2c 7b 52 34 2d 52 31  | (stack)!,{R4-R1|
000025c0  31 2c 6c 69 6e 6b 7d 0d  11 30 05 20 0d 11 3a 2f  |1,link}..0. ..:/|
000025d0  20 20 4c 44 52 20 65 76  61 6c 5f 62 6f 61 72 64  |  LDR eval_board|
000025e0  2c 5b 6d 61 69 6e 76 61  72 73 2c 23 76 61 72 73  |,[mainvars,#vars|
000025f0  5f 65 76 61 6c 62 6f 61  72 64 5d 0d 11 44 1a 20  |_evalboard]..D. |
00002600  20 4d 4f 56 20 65 76 61  6c 5f 6d 6f 76 65 74 79  | MOV eval_movety|
00002610  70 65 2c 52 31 0d 11 4e  05 20 0d 11 58 4f 20 20  |pe,R1..N. ..XO  |
00002620  3b 20 63 6f 70 79 20 62  6f 61 72 64 73 20 61 63  |; copy boards ac|
00002630  72 6f 73 73 20 20 20 20  65 76 61 6c 75 61 74 65  |ross    evaluate|
00002640  20 77 6f 72 6b 73 20 66  6f 72 20 70 6c 61 79 65  | works for playe|
00002650  72 20 32 2c 20 74 68 75  73 20 65 6f 72 20 69 66  |r 2, thus eor if|
00002660  20 70 6c 61 79 65 72 20  31 0d 11 62 10 20 20 54  | player 1..b.  T|
00002670  53 54 53 20 52 31 2c 23  31 0d 11 6c 0f 20 20 4d  |STS R1,#1..l.  M|
00002680  4f 56 20 52 39 2c 52 33  0d 11 76 34 20 20 4d 4f  |OV R9,R3..v4  MO|
00002690  56 20 52 37 2c 23 33 3a  41 44 44 20 52 37 2c 52  |V R7,#3:ADD R7,R|
000026a0  37 2c 23 26 33 30 30 3a  41 44 44 20 52 37 2c 52  |7,#&300:ADD R7,R|
000026b0  37 2c 52 37 2c 4c 53 4c  20 23 31 36 0d 11 80 3f  |7,R7,LSL #16...?|
000026c0  20 20 4c 44 4d 49 41 20  52 39 2c 7b 52 30 2d 52  |  LDMIA R9,{R0-R|
000026d0  36 7d 20 3b 20 63 6f 70  69 65 73 20 62 79 74 65  |6} ; copies byte|
000026e0  73 20 30 2d 32 37 2c 20  20 61 63 74 75 61 6c 6c  |s 0-27,  actuall|
000026f0  79 20 6e 65 65 64 20 31  2d 32 34 0d 11 8a 31 20  |y need 1-24...1 |
00002700  20 41 44 44 4e 45 20 52  30 2c 52 30 2c 52 30 2c  | ADDNE R0,R0,R0,|
00002710  4c 53 4c 20 23 32 20 3a  20 80 4e 45 20 52 30 2c  |LSL #2 : .NE R0,|
00002720  52 37 2c 52 30 2c 4c 53  52 20 23 31 0d 11 94 31  |R7,R0,LSR #1...1|
00002730  20 20 41 44 44 4e 45 20  52 31 2c 52 31 2c 52 31  |  ADDNE R1,R1,R1|
00002740  2c 4c 53 4c 20 23 32 20  3a 20 80 4e 45 20 52 31  |,LSL #2 : .NE R1|
00002750  2c 52 37 2c 52 31 2c 4c  53 52 20 23 31 0d 11 9e  |,R7,R1,LSR #1...|
00002760  31 20 20 41 44 44 4e 45  20 52 32 2c 52 32 2c 52  |1  ADDNE R2,R2,R|
00002770  32 2c 4c 53 4c 20 23 32  20 3a 20 80 4e 45 20 52  |2,LSL #2 : .NE R|
00002780  32 2c 52 37 2c 52 32 2c  4c 53 52 20 23 31 0d 11  |2,R7,R2,LSR #1..|
00002790  a8 31 20 20 41 44 44 4e  45 20 52 33 2c 52 33 2c  |.1  ADDNE R3,R3,|
000027a0  52 33 2c 4c 53 4c 20 23  32 20 3a 20 80 4e 45 20  |R3,LSL #2 : .NE |
000027b0  52 33 2c 52 37 2c 52 33  2c 4c 53 52 20 23 31 0d  |R3,R7,R3,LSR #1.|
000027c0  11 b2 31 20 20 41 44 44  4e 45 20 52 34 2c 52 34  |..1  ADDNE R4,R4|
000027d0  2c 52 34 2c 4c 53 4c 20  23 32 20 3a 20 80 4e 45  |,R4,LSL #2 : .NE|
000027e0  20 52 34 2c 52 37 2c 52  34 2c 4c 53 52 20 23 31  | R4,R7,R4,LSR #1|
000027f0  0d 11 bc 31 20 20 41 44  44 4e 45 20 52 35 2c 52  |...1  ADDNE R5,R|
00002800  35 2c 52 35 2c 4c 53 4c  20 23 32 20 3a 20 80 4e  |5,R5,LSL #2 : .N|
00002810  45 20 52 35 2c 52 37 2c  52 35 2c 4c 53 52 20 23  |E R5,R7,R5,LSR #|
00002820  31 0d 11 c6 31 20 20 41  44 44 4e 45 20 52 36 2c  |1...1  ADDNE R6,|
00002830  52 36 2c 52 36 2c 4c 53  4c 20 23 32 20 3a 20 80  |R6,R6,LSL #2 : .|
00002840  4e 45 20 52 36 2c 52 37  2c 52 36 2c 4c 53 52 20  |NE R6,R7,R6,LSR |
00002850  23 31 0d 11 d0 55 20 20  53 54 4d 49 41 20 65 76  |#1...U  STMIA ev|
00002860  61 6c 5f 62 6f 61 72 64  2c 7b 52 30 2d 52 36 7d  |al_board,{R0-R6}|
00002870  20 20 3b 20 20 62 6f 61  72 64 20 63 6f 70 69 65  |  ;  board copie|
00002880  64 20 69 6e 74 6f 20 65  76 61 6c 62 6f 61 72 64  |d into evalboard|
00002890  20 77 69 74 68 20 6e 65  77 20 70 69 65 63 65 20  | with new piece |
000028a0  76 61 6c 75 65 73 2e 0d  11 da 05 20 0d 11 e4 1d  |values..... ....|
000028b0  20 20 3b 20 ac 45 2c 20  62 6f 61 72 64 3f 30 20  |  ; .E, board?0 |
000028c0  4d 55 53 54 20 62 65 20  30 0d 11 ee 05 20 0d 11  |MUST be 0.... ..|
000028d0  f8 18 20 20 3b 20 73 74  61 72 74 20 65 76 61 6c  |..  ; start eval|
000028e0  75 61 74 69 6e 67 0d 12  02 1b 20 20 4d 4f 56 20  |uating....  MOV |
000028f0  65 76 61 6c 5f 6d 61 69  6e 63 6f 75 6e 74 2c 23  |eval_maincount,#|
00002900  30 0d 12 0c 17 20 20 42  4c 20 65 76 61 6c 5f 70  |0....  BL eval_p|
00002910  69 65 63 65 63 61 6c 63  0d 12 16 45 20 20 4c 44  |iececalc...E  LD|
00002920  52 20 52 30 2c 5b 6d 61  69 6e 76 61 72 73 2c 23  |R R0,[mainvars,#|
00002930  76 61 72 73 5f 74 68 69  6e 6b 74 79 70 65 5d 3a  |vars_thinktype]:|
00002940  54 53 54 53 20 52 30 2c  23 31 3a 42 4c 4e 45 20  |TSTS R0,#1:BLNE |
00002950  65 76 61 6c 5f 6d 6f 62  69 6c 69 74 79 0d 12 20  |eval_mobility.. |
00002960  43 20 20 4c 44 52 20 52  30 2c 5b 6d 61 69 6e 76  |C  LDR R0,[mainv|
00002970  61 72 73 2c 23 76 61 72  73 5f 74 68 69 6e 6b 74  |ars,#vars_thinkt|
00002980  79 70 65 5d 3a 54 53 54  53 20 52 30 2c 23 32 3a  |ype]:TSTS R0,#2:|
00002990  42 45 51 20 65 76 61 6c  5f 6e 6f 6d 69 6c 6c 73  |BEQ eval_nomills|
000029a0  0d 12 2a 3a 20 20 42 4c  20 65 76 61 6c 5f 6d 69  |..*:  BL eval_mi|
000029b0  6c 6c 73 20 3a 20 41 44  44 20 65 76 61 6c 5f 6d  |lls : ADD eval_m|
000029c0  61 69 6e 63 6f 75 6e 74  2c 65 76 61 6c 5f 6d 61  |aincount,eval_ma|
000029d0  69 6e 63 6f 75 6e 74 2c  52 30 0d 12 34 13 20 20  |incount,R0..4.  |
000029e0  2e 65 76 61 6c 5f 6e 6f  6d 69 6c 6c 73 0d 12 3e  |.eval_nomills..>|
000029f0  46 20 20 42 4c 20 72 61  6e 64 6f 6d 20 20 20 3b  |F  BL random   ;|
00002a00  20 20 61 64 64 20 69 6e  20 73 6f 6d 65 20 64 65  |  add in some de|
00002a10  6c 69 62 65 72 61 74 65  20 65 72 72 6f 72 73 20  |liberate errors |
00002a20  74 6f 20 6d 61 6b 65 20  69 74 20 70 6c 61 79 61  |to make it playa|
00002a30  62 6c 65 0d 12 48 58 20  20 4c 44 52 20 52 31 2c  |ble..HX  LDR R1,|
00002a40  5b 6d 61 69 6e 76 61 72  73 2c 23 76 61 72 73 5f  |[mainvars,#vars_|
00002a50  72 61 6e 64 6f 6d 69 73  65 72 5d 3a 80 20 52 30  |randomiser]:. R0|
00002a60  2c 52 30 2c 52 31 3a 41  44 44 20 65 76 61 6c 5f  |,R0,R1:ADD eval_|
00002a70  6d 61 69 6e 63 6f 75 6e  74 2c 65 76 61 6c 5f 6d  |maincount,eval_m|
00002a80  61 69 6e 63 6f 75 6e 74  2c 52 30 0d 12 52 05 20  |aincount,R0..R. |
00002a90  0d 12 5c 05 20 0d 12 66  35 20 20 3b 53 54 52 20  |..\. ..f5  ;STR |
00002aa0  65 76 61 6c 5f 6d 61 69  6e 63 6f 75 6e 74 2c 5b  |eval_maincount,[|
00002ab0  6d 61 69 6e 76 61 72 73  2c 23 76 61 72 73 5f 74  |mainvars,#vars_t|
00002ac0  6f 74 61 6c 73 63 6f 72  65 5d 0d 12 70 56 20 20  |otalscore]..pV  |
00002ad0  4c 44 52 20 52 30 2c 5b  6d 61 69 6e 76 61 72 73  |LDR R0,[mainvars|
00002ae0  2c 23 76 61 72 73 5f 70  6f 73 6e 63 6f 75 6e 74  |,#vars_posncount|
00002af0  5d 3a 41 44 44 20 52 30  2c 52 30 2c 23 31 3a 53  |]:ADD R0,R0,#1:S|
00002b00  54 52 20 52 30 2c 5b 6d  61 69 6e 76 61 72 73 2c  |TR R0,[mainvars,|
00002b10  23 76 61 72 73 5f 70 6f  73 6e 63 6f 75 6e 74 5d  |#vars_posncount]|
00002b20  0d 12 7a 1b 20 20 4d 4f  56 20 52 30 2c 65 76 61  |..z.  MOV R0,eva|
00002b30  6c 5f 6d 61 69 6e 63 6f  75 6e 74 0d 12 84 20 20  |l_maincount...  |
00002b40  20 4c 44 4d 46 44 20 28  73 74 61 63 6b 29 21 2c  | LDMFD (stack)!,|
00002b50  7b 52 34 2d 52 31 31 2c  50 43 7d 0d 12 8e 05 20  |{R4-R11,PC}.... |
00002b60  0d 12 98 05 20 0d 12 a2  05 20 0d 12 ac 05 20 0d  |.... .... .... .|
00002b70  12 b6 14 20 20 3b 20 74  69 6d 69 6e 67 20 7e 20  |...  ; timing ~ |
00002b80  31 35 30 0d 12 c0 4c 20  20 2e 65 76 61 6c 5f 70  |150...L  .eval_p|
00002b90  69 65 63 65 63 61 6c 63  20 3b 20 52 31 2c 20 52  |iececalc ; R1, R|
00002ba0  32 20 61 72 65 20 74 68  65 20 70 69 65 63 65 5f  |2 are the piece_|
00002bb0  63 6f 75 6e 74 20 70 65  72 20 73 69 64 65 2c 20  |count per side, |
00002bc0  52 33 20 69 73 20 74 68  65 20 69 6e 64 65 78 0d  |R3 is the index.|
00002bd0  12 ca 24 20 20 4d 4f 56  20 52 31 2c 23 30 3a 4d  |..$  MOV R1,#0:M|
00002be0  4f 56 20 52 32 2c 23 30  3a 4d 4f 56 20 52 33 2c  |OV R2,#0:MOV R3,|
00002bf0  23 32 30 0d 12 d4 05 20  0d 12 de 2e 20 20 3b 20  |#20.... ....  ; |
00002c00  74 68 65 20 6f 64 64 20  20 70 69 65 63 65 73 20  |the odd  pieces |
00002c10  66 69 72 73 74 2c 20 6e  6f 2e 73 20 31 2c 32 2c  |first, no.s 1,2,|
00002c20  33 20 26 20 32 34 0d 12  e8 62 20 20 4c 44 52 42  |3 & 24...b  LDRB|
00002c30  20 52 30 2c 5b 65 76 61  6c 5f 62 6f 61 72 64 2c  | R0,[eval_board,|
00002c40  23 31 5d 20 3a 20 43 4d  50 53 20 52 30 2c 23 31  |#1] : CMPS R0,#1|
00002c50  20 3a 20 41 44 44 45 51  20 52 31 2c 52 31 2c 23  | : ADDEQ R1,R1,#|
00002c60  70 69 65 63 65 5f 73 63  6f 72 65 25 20 3a 20 41  |piece_score% : A|
00002c70  44 44 47 54 20 52 32 2c  52 32 2c 23 70 69 65 63  |DDGT R2,R2,#piec|
00002c80  65 5f 73 63 6f 72 65 25  0d 12 f2 62 20 20 4c 44  |e_score%...b  LD|
00002c90  52 42 20 52 30 2c 5b 65  76 61 6c 5f 62 6f 61 72  |RB R0,[eval_boar|
00002ca0  64 2c 23 32 5d 20 3a 20  43 4d 50 53 20 52 30 2c  |d,#2] : CMPS R0,|
00002cb0  23 31 20 3a 20 41 44 44  45 51 20 52 31 2c 52 31  |#1 : ADDEQ R1,R1|
00002cc0  2c 23 70 69 65 63 65 5f  73 63 6f 72 65 25 20 3a  |,#piece_score% :|
00002cd0  20 41 44 44 47 54 20 52  32 2c 52 32 2c 23 70 69  | ADDGT R2,R2,#pi|
00002ce0  65 63 65 5f 73 63 6f 72  65 25 0d 12 fc 62 20 20  |ece_score%...b  |
00002cf0  4c 44 52 42 20 52 30 2c  5b 65 76 61 6c 5f 62 6f  |LDRB R0,[eval_bo|
00002d00  61 72 64 2c 23 33 5d 20  3a 20 43 4d 50 53 20 52  |ard,#3] : CMPS R|
00002d10  30 2c 23 31 20 3a 20 41  44 44 45 51 20 52 31 2c  |0,#1 : ADDEQ R1,|
00002d20  52 31 2c 23 70 69 65 63  65 5f 73 63 6f 72 65 25  |R1,#piece_score%|
00002d30  20 3a 20 41 44 44 47 54  20 52 32 2c 52 32 2c 23  | : ADDGT R2,R2,#|
00002d40  70 69 65 63 65 5f 73 63  6f 72 65 25 0d 13 06 63  |piece_score%...c|
00002d50  20 20 4c 44 52 42 20 52  30 2c 5b 65 76 61 6c 5f  |  LDRB R0,[eval_|
00002d60  62 6f 61 72 64 2c 23 32  34 5d 20 3a 20 43 4d 50  |board,#24] : CMP|
00002d70  53 20 52 30 2c 23 31 20  3a 20 41 44 44 45 51 20  |S R0,#1 : ADDEQ |
00002d80  52 31 2c 52 31 2c 23 70  69 65 63 65 5f 73 63 6f  |R1,R1,#piece_sco|
00002d90  72 65 25 20 3a 20 41 44  44 47 54 20 52 32 2c 52  |re% : ADDGT R2,R|
00002da0  32 2c 23 70 69 65 63 65  5f 73 63 6f 72 65 25 0d  |2,#piece_score%.|
00002db0  13 10 05 20 0d 13 1a 1a  20 20 2e 65 76 61 6c 5f  |... ....  .eval_|
00002dc0  70 69 65 63 65 63 61 6c  63 5f 6c 6f 6f 70 0d 13  |piececalc_loop..|
00002dd0  24 1c 20 20 4c 44 52 20  52 30 2c 5b 65 76 61 6c  |$.  LDR R0,[eval|
00002de0  5f 62 6f 61 72 64 2c 52  33 5d 0d 13 2e 2c 20 20  |_board,R3]...,  |
00002df0  54 53 54 53 20 52 30 2c  23 31 20 3a 20 41 44 44  |TSTS R0,#1 : ADD|
00002e00  4e 45 20 52 31 2c 52 31  2c 23 70 69 65 63 65 5f  |NE R1,R1,#piece_|
00002e10  73 63 6f 72 65 25 0d 13  38 2c 20 20 54 53 54 53  |score%..8,  TSTS|
00002e20  20 52 30 2c 23 32 20 3a  20 41 44 44 4e 45 20 52  | R0,#2 : ADDNE R|
00002e30  32 2c 52 32 2c 23 70 69  65 63 65 5f 73 63 6f 72  |2,R2,#piece_scor|
00002e40  65 25 0d 13 42 2f 20 20  54 53 54 53 20 52 30 2c  |e%..B/  TSTS R0,|
00002e50  23 31 3c 3c 38 20 3a 20  41 44 44 4e 45 20 52 31  |#1<<8 : ADDNE R1|
00002e60  2c 52 31 2c 23 70 69 65  63 65 5f 73 63 6f 72 65  |,R1,#piece_score|
00002e70  25 0d 13 4c 2f 20 20 54  53 54 53 20 52 30 2c 23  |%..L/  TSTS R0,#|
00002e80  32 3c 3c 38 20 3a 20 41  44 44 4e 45 20 52 32 2c  |2<<8 : ADDNE R2,|
00002e90  52 32 2c 23 70 69 65 63  65 5f 73 63 6f 72 65 25  |R2,#piece_score%|
00002ea0  0d 13 56 30 20 20 54 53  54 53 20 52 30 2c 23 31  |..V0  TSTS R0,#1|
00002eb0  3c 3c 31 36 20 3a 20 41  44 44 4e 45 20 52 31 2c  |<<16 : ADDNE R1,|
00002ec0  52 31 2c 23 70 69 65 63  65 5f 73 63 6f 72 65 25  |R1,#piece_score%|
00002ed0  0d 13 60 30 20 20 54 53  54 53 20 52 30 2c 23 32  |..`0  TSTS R0,#2|
00002ee0  3c 3c 31 36 20 3a 20 41  44 44 4e 45 20 52 32 2c  |<<16 : ADDNE R2,|
00002ef0  52 32 2c 23 70 69 65 63  65 5f 73 63 6f 72 65 25  |R2,#piece_score%|
00002f00  0d 13 6a 30 20 20 54 53  54 53 20 52 30 2c 23 31  |..j0  TSTS R0,#1|
00002f10  3c 3c 32 34 20 3a 20 41  44 44 4e 45 20 52 31 2c  |<<24 : ADDNE R1,|
00002f20  52 31 2c 23 70 69 65 63  65 5f 73 63 6f 72 65 25  |R1,#piece_score%|
00002f30  0d 13 74 30 20 20 54 53  54 53 20 52 30 2c 23 32  |..t0  TSTS R0,#2|
00002f40  3c 3c 32 34 20 3a 20 41  44 44 4e 45 20 52 32 2c  |<<24 : ADDNE R2,|
00002f50  52 32 2c 23 70 69 65 63  65 5f 73 63 6f 72 65 25  |R2,#piece_score%|
00002f60  0d 13 7e 05 20 0d 13 88  2d 20 20 53 55 42 53 20  |..~. ...-  SUBS |
00002f70  52 33 2c 52 33 2c 23 34  20 3a 20 42 47 54 20 65  |R3,R3,#4 : BGT e|
00002f80  76 61 6c 5f 70 69 65 63  65 63 61 6c 63 5f 6c 6f  |val_piececalc_lo|
00002f90  6f 70 0d 13 92 05 20 0d  13 9c 4b 20 20 4c 44 52  |op.... ...K  LDR|
00002fa0  20 52 30 2c 5b 6d 61 69  6e 76 61 72 73 2c 23 76  | R0,[mainvars,#v|
00002fb0  61 72 73 5f 74 75 72 6e  6e 75 6d 62 65 72 5d 3a  |ars_turnnumber]:|
00002fc0  43 4d 50 53 20 52 30 2c  23 31 34 3a 42 4c 54 20  |CMPS R0,#14:BLT |
00002fd0  65 76 61 6c 5f 70 69 65  63 65 5f 6c 6f 77 74 75  |eval_piece_lowtu|
00002fe0  72 6e 0d 13 a6 51 20 20  43 4d 50 53 20 52 31 2c  |rn...Q  CMPS R1,|
00002ff0  23 32 2a 70 69 65 63 65  5f 73 63 6f 72 65 25 3a  |#2*piece_score%:|
00003000  53 55 42 4c 45 20 52 31  2c 52 31 2c 23 26 31 30  |SUBLE R1,R1,#&10|
00003010  30 30 30 20 3b 20 32 20  6f 72 20 66 65 77 65 72  |000 ; 2 or fewer|
00003020  20 69 73 20 61 20 6c 6f  73 69 6e 67 20 6e 75 6d  | is a losing num|
00003030  62 65 72 0d 13 b0 31 20  20 43 4d 50 53 20 52 32  |ber...1  CMPS R2|
00003040  2c 23 32 2a 70 69 65 63  65 5f 73 63 6f 72 65 25  |,#2*piece_score%|
00003050  3a 53 55 42 4c 45 20 52  32 2c 52 32 2c 23 26 31  |:SUBLE R2,R2,#&1|
00003060  30 30 30 30 0d 13 ba 05  20 0d 13 c4 19 20 20 2e  |0000.... ....  .|
00003070  65 76 61 6c 5f 70 69 65  63 65 5f 6c 6f 77 74 75  |eval_piece_lowtu|
00003080  72 6e 0d 13 ce 33 20 20  53 55 42 20 52 32 2c 52  |rn...3  SUB R2,R|
00003090  32 2c 52 31 20 3b 20 73  63 6f 72 65 20 69 6e 20  |2,R1 ; score in |
000030a0  66 61 76 6f 75 72 20 6f  66 20 74 68 69 73 20 70  |favour of this p|
000030b0  6c 61 79 65 72 0d 13 d8  29 20 20 3b 53 54 52 20  |layer...)  ;STR |
000030c0  52 32 2c 5b 6d 61 69 6e  76 61 72 73 2c 23 76 61  |R2,[mainvars,#va|
000030d0  72 73 5f 70 69 65 63 65  73 63 6f 72 65 5d 0d 13  |rs_piecescore]..|
000030e0  e2 2a 20 20 41 44 44 20  65 76 61 6c 5f 6d 61 69  |.*  ADD eval_mai|
000030f0  6e 63 6f 75 6e 74 2c 65  76 61 6c 5f 6d 61 69 6e  |ncount,eval_main|
00003100  63 6f 75 6e 74 2c 52 32  0d 13 ec 11 20 20 4d 4f  |count,R2....  MO|
00003110  56 20 50 43 2c 6c 69 6e  6b 0d 13 f6 05 20 0d 14  |V PC,link.... ..|
00003120  00 05 20 0d 14 0a 05 20  0d 14 14 14 20 20 3b 20  |.. .... ....  ; |
00003130  74 69 6d 69 6e 67 20 7e  20 39 30 30 0d 14 1e 3d  |timing ~ 900...=|
00003140  20 20 2e 65 76 61 6c 5f  6d 6f 62 69 6c 69 74 79  |  .eval_mobility|
00003150  20 20 3b 20 52 35 2c 52  36 20 61 72 65 20 74 68  |  ; R5,R6 are th|
00003160  65 20 74 77 6f 20 73 69  64 65 73 20 3b 20 52 33  |e two sides ; R3|
00003170  20 69 73 20 69 6e 64 65  78 0d 14 28 24 20 20 53  | is index..($  S|
00003180  54 4d 46 44 20 28 73 74  61 63 6b 29 21 2c 7b 52  |TMFD (stack)!,{R|
00003190  35 2c 52 36 2c 52 37 2c  6c 69 6e 6b 7d 0d 14 32  |5,R6,R7,link}..2|
000031a0  31 20 20 4c 44 52 20 65  76 61 6c 5f 73 64 5f 70  |1  LDR eval_sd_p|
000031b0  74 72 2c 5b 6d 61 69 6e  76 61 72 73 2c 23 76 61  |tr,[mainvars,#va|
000031c0  72 73 5f 73 71 75 61 72  65 64 61 74 61 5d 0d 14  |rs_squaredata]..|
000031d0  3c 2f 20 20 4d 4f 56 20  52 35 2c 23 30 3a 4d 4f  |</  MOV R5,#0:MO|
000031e0  56 20 52 36 2c 23 30 3a  4d 4f 56 20 52 33 2c 23  |V R6,#0:MOV R3,#|
000031f0  31 3a 4d 4f 56 20 52 37  2c 23 32 35 35 0d 14 46  |1:MOV R7,#255..F|
00003200  05 20 0d 14 50 19 20 20  2e 65 76 61 6c 5f 6d 6f  |. ..P.  .eval_mo|
00003210  62 69 6c 69 74 79 5f 6c  6f 6f 70 0d 14 5a 43 20  |bility_loop..ZC |
00003220  20 4c 44 52 20 52 31 34  2c 5b 65 76 61 6c 5f 73  | LDR R14,[eval_s|
00003230  64 5f 70 74 72 2c 23 34  5d 21 20 20 3b 20 20 6d  |d_ptr,#4]!  ;  m|
00003240  75 73 74 20 73 6b 69 70  20 6f 76 65 72 20 6e 6f  |ust skip over no|
00003250  2e 20 30 20 28 6e 6f 74  20 75 73 65 64 29 0d 14  |. 0 (not used)..|
00003260  64 40 20 20 4c 44 52 42  20 52 32 2c 5b 65 76 61  |d@  LDRB R2,[eva|
00003270  6c 5f 62 6f 61 72 64 2c  52 33 5d 3a 43 4d 50 53  |l_board,R3]:CMPS|
00003280  20 52 32 2c 23 30 3a 42  45 51 20 65 76 61 6c 5f  | R2,#0:BEQ eval_|
00003290  6d 6f 62 69 6c 69 74 79  5f 6e 6f 6f 6e 65 0d 14  |mobility_noone..|
000032a0  6e 0f 20 20 4d 4f 56 20  52 31 2c 23 30 0d 14 78  |n.  MOV R1,#0..x|
000032b0  54 20 20 80 20 52 30 2c  52 37 2c 52 31 34 3a 43  |T  . R0,R7,R14:C|
000032c0  4d 50 53 20 52 30 2c 23  26 37 46 3a 4c 44 52 4c  |MPS R0,#&7F:LDRL|
000032d0  45 42 20 52 30 2c 5b 65  76 61 6c 5f 62 6f 61 72  |EB R0,[eval_boar|
000032e0  64 2c 52 30 5d 3a 43 4d  50 4c 45 53 20 52 30 2c  |d,R0]:CMPLES R0,|
000032f0  23 30 3a 41 44 44 45 51  20 52 31 2c 52 31 2c 23  |#0:ADDEQ R1,R1,#|
00003300  31 0d 14 82 5b 20 20 80  20 52 30 2c 52 37 2c 52  |1...[  . R0,R7,R|
00003310  31 34 2c 4c 53 52 20 23  38 3a 43 4d 50 53 20 52  |14,LSR #8:CMPS R|
00003320  30 2c 23 26 37 46 3a 4c  44 52 4c 45 42 20 52 30  |0,#&7F:LDRLEB R0|
00003330  2c 5b 65 76 61 6c 5f 62  6f 61 72 64 2c 52 30 5d  |,[eval_board,R0]|
00003340  3a 43 4d 50 4c 45 53 20  52 30 2c 23 30 3a 41 44  |:CMPLES R0,#0:AD|
00003350  44 45 51 20 52 31 2c 52  31 2c 23 31 0d 14 8c 5c  |DEQ R1,R1,#1...\|
00003360  20 20 80 20 52 30 2c 52  37 2c 52 31 34 2c 4c 53  |  . R0,R7,R14,LS|
00003370  52 20 23 31 36 3a 43 4d  50 53 20 52 30 2c 23 26  |R #16:CMPS R0,#&|
00003380  37 46 3a 4c 44 52 4c 45  42 20 52 30 2c 5b 65 76  |7F:LDRLEB R0,[ev|
00003390  61 6c 5f 62 6f 61 72 64  2c 52 30 5d 3a 43 4d 50  |al_board,R0]:CMP|
000033a0  4c 45 53 20 52 30 2c 23  30 3a 41 44 44 45 51 20  |LES R0,#0:ADDEQ |
000033b0  52 31 2c 52 31 2c 23 31  0d 14 96 5c 20 20 80 20  |R1,R1,#1...\  . |
000033c0  52 30 2c 52 37 2c 52 31  34 2c 4c 53 52 20 23 32  |R0,R7,R14,LSR #2|
000033d0  34 3a 43 4d 50 53 20 52  30 2c 23 26 37 46 3a 4c  |4:CMPS R0,#&7F:L|
000033e0  44 52 4c 45 42 20 52 30  2c 5b 65 76 61 6c 5f 62  |DRLEB R0,[eval_b|
000033f0  6f 61 72 64 2c 52 30 5d  3a 43 4d 50 4c 45 53 20  |oard,R0]:CMPLES |
00003400  52 30 2c 23 30 3a 41 44  44 45 51 20 52 31 2c 52  |R0,#0:ADDEQ R1,R|
00003410  31 2c 23 31 0d 14 a0 05  20 0d 14 aa 50 20 20 5d  |1,#1.... ...P  ]|
00003420  3a e7 20 73 71 75 61 72  65 5f 64 61 74 61 73 69  |:. square_datasi|
00003430  7a 65 25 3c 3e 34 20 8c  20 85 20 32 35 35 2c 22  |ze%<>4 . . 255,"|
00003440  55 70 64 61 74 65 20 65  76 61 6c 5f 6d 6f 62 69  |Update eval_mobi|
00003450  6c 69 74 79 20 66 6f 72  20 6e 65 77 20 64 61 74  |lity for new dat|
00003460  61 20 66 6f 72 6d 61 74  22 0d 14 b4 12 20 20 5b  |a format"....  [|
00003470  4f 50 54 20 70 61 73 73  25 2b 38 0d 14 be 32 20  |OPT pass%+8...2 |
00003480  20 43 4d 50 53 20 52 32  2c 23 31 20 3a 20 41 44  | CMPS R2,#1 : AD|
00003490  44 45 51 20 52 35 2c 52  35 2c 52 31 20 3a 20 41  |DEQ R5,R5,R1 : A|
000034a0  44 44 4e 45 20 52 36 2c  52 36 2c 52 31 0d 14 c8  |DDNE R6,R6,R1...|
000034b0  05 20 0d 14 d2 36 20 20  2e 65 76 61 6c 5f 6d 6f  |. ...6  .eval_mo|
000034c0  62 69 6c 69 74 79 5f 6e  6f 6f 6e 65 20 3b 20 65  |bility_noone ; e|
000034d0  6d 70 74 79 20 73 71 75  61 72 65 73 20 72 65 6a  |mpty squares rej|
000034e0  6f 69 6e 20 68 65 72 65  0d 14 dc 35 20 20 41 44  |oin here...5  AD|
000034f0  44 20 52 33 2c 52 33 2c  23 31 3a 43 4d 50 53 20  |D R3,R3,#1:CMPS |
00003500  52 33 2c 23 32 35 3a 42  4c 54 20 65 76 61 6c 5f  |R3,#25:BLT eval_|
00003510  6d 6f 62 69 6c 69 74 79  5f 6c 6f 6f 70 0d 14 e6  |mobility_loop...|
00003520  05 20 0d 14 f0 54 20 20  4c 44 52 20 52 30 2c 5b  |. ...T  LDR R0,[|
00003530  6d 61 69 6e 76 61 72 73  2c 23 76 61 72 73 5f 74  |mainvars,#vars_t|
00003540  75 72 6e 6e 75 6d 62 65  72 5d 3a 43 4d 50 53 20  |urnnumber]:CMPS |
00003550  52 30 2c 23 31 33 3a 3b  41 44 44 4c 54 20 52 35  |R0,#13:;ADDLT R5|
00003560  2c 52 35 2c 23 31 3a 3b  41 44 44 4c 54 20 52 36  |,R5,#1:;ADDLT R6|
00003570  2c 52 36 2c 23 31 0d 14  fa 30 20 20 43 4d 50 53  |,R6,#1...0  CMPS|
00003580  20 52 30 2c 23 37 3a 3b  41 44 44 4c 54 20 52 35  | R0,#7:;ADDLT R5|
00003590  2c 52 35 2c 23 31 3a 3b  41 44 44 4c 54 20 52 36  |,R5,#1:;ADDLT R6|
000035a0  2c 52 36 2c 23 31 0d 15  04 05 20 0d 15 0e 24 20  |,R6,#1.... ...$ |
000035b0  20 3b 20 4d 4f 56 20 52  30 2c 23 6d 6f 62 69 6c  | ; MOV R0,#mobil|
000035c0  69 74 79 5f 62 61 73 65  5f 73 63 6f 72 65 25 0d  |ity_base_score%.|
000035d0  15 18 2b 20 20 4c 44 52  20 52 30 2c 5b 6d 61 69  |..+  LDR R0,[mai|
000035e0  6e 76 61 72 73 2c 23 76  61 72 73 5f 6d 6f 62 69  |nvars,#vars_mobi|
000035f0  6c 69 74 79 5f 62 61 73  65 5d 0d 15 22 2d 20 20  |lity_base].."-  |
00003600  4c 44 52 20 52 32 2c 5b  6d 61 69 6e 76 61 72 73  |LDR R2,[mainvars|
00003610  2c 23 76 61 72 73 5f 6d  6f 62 69 6c 69 74 79 5f  |,#vars_mobility_|
00003620  73 63 61 6c 65 72 5d 0d  15 2c 2e 20 20 4d 4f 56  |scaler]..,.  MOV|
00003630  20 52 31 2c 52 30 2c 4c  53 52 20 52 36 20 20 3a  | R1,R0,LSR R6  :|
00003640  20 20 53 55 42 20 52 31  2c 52 31 2c 52 36 2c 4c  |  SUB R1,R1,R6,L|
00003650  53 4c 20 52 32 0d 15 36  31 20 20 53 55 42 20 52  |SL R2..61  SUB R|
00003660  31 2c 52 31 2c 52 30 2c  4c 53 52 20 52 35 20 20  |1,R1,R0,LSR R5  |
00003670  3a 20 20 41 44 44 20 52  31 2c 52 31 2c 52 35 2c  |:  ADD R1,R1,R5,|
00003680  4c 53 4c 20 52 32 0d 15  40 45 20 20 3b 20 70 65  |LSL R2..@E  ; pe|
00003690  6e 61 6c 74 79 20 3d 20  28 73 63 6f 72 65 3e 3e  |nalty = (score>>|
000036a0  6d 79 5f 6d 6f 62 29 2d  28 73 63 6f 72 65 3e 3e  |my_mob)-(score>>|
000036b0  68 69 73 5f 6d 6f 62 29  20 2d 20 6d 79 5f 6d 6f  |his_mob) - my_mo|
000036c0  62 20 2b 20 68 69 73 5f  6d 6f 62 0d 15 4a 05 20  |b + his_mob..J. |
000036d0  0d 15 54 2c 20 20 3b 53  54 52 20 52 31 2c 5b 6d  |..T,  ;STR R1,[m|
000036e0  61 69 6e 76 61 72 73 2c  23 76 61 72 73 5f 6d 6f  |ainvars,#vars_mo|
000036f0  62 69 6c 69 74 79 73 63  6f 72 65 5d 0d 15 5e 2a  |bilityscore]..^*|
00003700  20 20 53 55 42 20 65 76  61 6c 5f 6d 61 69 6e 63  |  SUB eval_mainc|
00003710  6f 75 6e 74 2c 65 76 61  6c 5f 6d 61 69 6e 63 6f  |ount,eval_mainco|
00003720  75 6e 74 2c 52 31 0d 15  68 22 20 20 4c 44 4d 46  |unt,R1..h"  LDMF|
00003730  44 20 28 73 74 61 63 6b  29 21 2c 7b 52 35 2c 52  |D (stack)!,{R5,R|
00003740  36 2c 52 37 2c 50 43 7d  0d 15 72 05 20 0d 15 7c  |6,R7,PC}..r. ..||
00003750  22 20 20 3b 20 28 74 6f  74 61 6c 20 74 69 6d 65  |"  ; (total time|
00003760  20 73 6f 20 66 61 72 20  7e 20 31 31 30 30 29 0d  | so far ~ 1100).|
00003770  15 86 05 20 0d 15 90 05  20 0d 15 9a 05 20 0d 15  |... .... .... ..|
00003780  a4 05 20 0d 15 ae 05 20  0d 15 b8 05 20 0d 15 c2  |.. .... .... ...|
00003790  47 20 20 5d 3a 65 6d 5f  69 6e 64 65 78 3d 31 31  |G  ]:em_index=11|
000037a0  3a 65 6d 5f 6c 69 73 74  70 74 72 3d 31 30 3a 65  |:em_listptr=10:e|
000037b0  6d 5f 73 63 6f 72 65 3d  39 3a 65 6d 5f 62 6f 61  |m_score=9:em_boa|
000037c0  72 64 70 74 72 3d 38 3a  65 6d 5f 63 6f 6e 74 72  |rdptr=8:em_contr|
000037d0  6f 6c 3d 37 0d 15 cc 12  20 20 5b 4f 50 54 20 70  |ol=7....  [OPT p|
000037e0  61 73 73 25 2b 38 0d 15  d6 05 20 0d 15 e0 12 20  |ass%+8.... .... |
000037f0  20 3b 20 6c 6f 6f 70 20  7e 20 39 30 30 0d 15 ea  | ; loop ~ 900...|
00003800  22 20 20 3b 20 65 61 63  68 20 61 63 63 65 73 73  |"  ; each access|
00003810  20 28 61 73 73 2e 20 31  2e 35 29 20 7e 36 31 0d  | (ass. 1.5) ~61.|
00003820  15 f4 20 20 20 3b 20 65  61 63 68 20 66 72 65 65  |..   ; each free|
00003830  64 6f 6d 20 7e 35 30 20  2d 3e 20 7e 31 35 30 0d  |dom ~50 -> ~150.|
00003840  15 fe 15 20 20 3b 20 74  6f 74 61 6c 20 3f 3f 7e  |...  ; total ??~|
00003850  32 30 30 30 0d 16 08 05  20 0d 16 12 18 20 20 2e  |2000.... ....  .|
00003860  65 76 61 6c 5f 6d 69 6c  6c 73 20 20 3b 20 65 6d  |eval_mills  ; em|
00003870  5f 0d 16 1c 57 20 20 43  4d 50 53 20 65 76 61 6c  |_...W  CMPS eval|
00003880  5f 6d 6f 76 65 74 79 70  65 2c 23 31 38 3a 4d 4f  |_movetype,#18:MO|
00003890  56 4c 45 20 52 30 2c 23  30 3a 4d 4f 56 4c 45 20  |VLE R0,#0:MOVLE |
000038a0  50 43 2c 6c 69 6e 6b 20  3b 20 69 66 20 73 74 69  |PC,link ; if sti|
000038b0  6c 6c 20 70 6c 61 63 69  6e 67 2c 20 64 6f 6e 27  |ll placing, don'|
000038c0  74 20 42 4f 54 48 45 52  0d 16 26 05 20 0d 16 30  |t BOTHER..&. ..0|
000038d0  54 20 20 53 54 4d 46 44  20 28 73 74 61 63 6b 29  |T  STMFD (stack)|
000038e0  21 2c 7b 52 34 2d 52 31  31 2c 6c 69 6e 6b 7d 20  |!,{R4-R11,link} |
000038f0  3b 20 77 69 6c 6c 20 72  65 74 75 72 6e 20 73 63  |; will return sc|
00003900  6f 72 65 20 69 6e 20 72  30 20 66 6f 72 20 61 64  |ore in r0 for ad|
00003910  64 69 6e 67 20 74 6f 20  6d 61 69 6e 63 6f 75 6e  |ding to maincoun|
00003920  74 0d 16 3a 21 20 20 4d  4f 56 20 65 6d 5f 69 6e  |t..:!  MOV em_in|
00003930  64 65 78 2c 23 31 36 20  3b 20 31 36 20 74 6f 20  |dex,#16 ; 16 to |
00003940  64 6f 0d 16 44 2f 20 20  4c 44 52 20 65 6d 5f 6c  |do..D/  LDR em_l|
00003950  69 73 74 70 74 72 2c 5b  6d 61 69 6e 76 61 72 73  |istptr,[mainvars|
00003960  2c 23 76 61 72 73 5f 6d  69 6c 6c 5f 6c 69 73 74  |,#vars_mill_list|
00003970  5d 0d 16 4e 15 20 20 4d  4f 56 20 65 6d 5f 73 63  |]..N.  MOV em_sc|
00003980  6f 72 65 2c 23 30 0d 16  58 30 20 20 4c 44 52 20  |ore,#0..X0  LDR |
00003990  65 6d 5f 62 6f 61 72 64  70 74 72 2c 5b 6d 61 69  |em_boardptr,[mai|
000039a0  6e 76 61 72 73 2c 23 76  61 72 73 5f 65 76 61 6c  |nvars,#vars_eval|
000039b0  62 6f 61 72 64 5d 0d 16  62 05 20 0d 16 6c 0e 20  |board]..b. ..l. |
000039c0  20 2e 65 6d 5f 6c 6f 6f  70 0d 16 76 26 20 20 3b  | .em_loop..v&  ;|
000039d0  20 20 62 6c 61 6e 6b 20  61 64 64 73 20 30 2c 20  |  blank adds 0, |
000039e0  6f 74 68 65 72 20 2b 32  2c 20 6d 65 20 2b 38 0d  |other +2, me +8.|
000039f0  16 80 54 20 20 4c 44 52  42 20 52 30 2c 5b 65 6d  |..T  LDRB R0,[em|
00003a00  5f 6c 69 73 74 70 74 72  2c 23 39 5d 21 20 3a 20  |_listptr,#9]! : |
00003a10  4c 44 52 42 20 52 34 2c  5b 65 6d 5f 62 6f 61 72  |LDRB R4,[em_boar|
00003a20  64 70 74 72 2c 52 30 5d  20 3a 20 4d 4f 56 20 65  |dptr,R0] : MOV e|
00003a30  6d 5f 63 6f 6e 74 72 6f  6c 2c 52 34 2c 4c 53 4c  |m_control,R4,LSL|
00003a40  20 52 34 0d 16 8a 5e 20  20 4c 44 52 42 20 52 30  | R4...^  LDRB R0|
00003a50  2c 5b 65 6d 5f 6c 69 73  74 70 74 72 2c 23 33 5d  |,[em_listptr,#3]|
00003a60  20 3a 20 4c 44 52 42 20  52 35 2c 5b 65 6d 5f 62  | : LDRB R5,[em_b|
00003a70  6f 61 72 64 70 74 72 2c  52 30 5d 20 3a 20 41 44  |oardptr,R0] : AD|
00003a80  44 20 65 6d 5f 63 6f 6e  74 72 6f 6c 2c 65 6d 5f  |D em_control,em_|
00003a90  63 6f 6e 74 72 6f 6c 2c  52 35 2c 4c 53 4c 20 52  |control,R5,LSL R|
00003aa0  35 0d 16 94 5e 20 20 4c  44 52 42 20 52 30 2c 5b  |5...^  LDRB R0,[|
00003ab0  65 6d 5f 6c 69 73 74 70  74 72 2c 23 36 5d 20 3a  |em_listptr,#6] :|
00003ac0  20 4c 44 52 42 20 52 36  2c 5b 65 6d 5f 62 6f 61  | LDRB R6,[em_boa|
00003ad0  72 64 70 74 72 2c 52 30  5d 20 3a 20 41 44 44 20  |rdptr,R0] : ADD |
00003ae0  65 6d 5f 63 6f 6e 74 72  6f 6c 2c 65 6d 5f 63 6f  |em_control,em_co|
00003af0  6e 74 72 6f 6c 2c 52 36  2c 4c 53 4c 20 52 36 0d  |ntrol,R6,LSL R6.|
00003b00  16 9e 05 20 0d 16 a8 54  20 20 41 44 44 20 50 43  |... ...T  ADD PC|
00003b10  2c 50 43 2c 65 6d 5f 63  6f 6e 74 72 6f 6c 2c 4c  |,PC,em_control,L|
00003b20  53 4c 20 23 32 20 20 3b  20 ee 4c 59 20 32 20 73  |SL #2  ; .LY 2 s|
00003b30  69 6e 63 65 20 65 6d 5f  63 6f 6e 74 72 6f 6c 20  |ince em_control |
00003b40  61 6c 72 65 61 64 79 20  20 61 20 6d 75 6c 74 69  |already  a multi|
00003b50  70 6c 65 20 6f 66 20 32  0d 16 b2 1a 20 20 4d 4f  |ple of 2....  MO|
00003b60  56 20 52 30 2c 52 30 20  3b 20 70 69 70 65 6c 69  |V R0,R0 ; pipeli|
00003b70  6e 65 0d 16 bc 05 20 0d  16 c6 2c 20 20 4d 4f 56  |ne.... ...,  MOV|
00003b80  20 52 30 2c 23 30 3a 42  20 65 6d 5f 63 6f 6d 62  | R0,#0:B em_comb|
00003b90  69 6e 65 20 20 20 20 20  20 20 20 20 20 20 20 20  |ine             |
00003ba0  3b 20 30 0d 16 d0 28 20  20 41 44 52 20 52 33 2c  |; 0...(  ADR R3,|
00003bb0  65 6d 5f 30 30 31 5f 61  30 5f 73 63 6f 72 65 3a  |em_001_a0_score:|
00003bc0  42 20 65 6d 5f 61 63 63  65 73 73 0d 16 da 30 20  |B em_access...0 |
00003bd0  20 41 44 52 20 52 33 2c  65 6d 5f 30 31 31 5f 61  | ADR R3,em_011_a|
00003be0  30 5f 73 63 6f 72 65 3a  42 20 65 6d 5f 61 63 63  |0_score:B em_acc|
00003bf0  65 73 73 20 3b 20 32 20  30 31 31 0d 16 e4 17 20  |ess ; 2 011.... |
00003c00  20 42 20 65 6d 5f 31 31  31 3a 42 20 65 6d 5f 31  | B em_111:B em_1|
00003c10  31 31 0d 16 ee 30 20 20  41 44 52 20 52 33 2c 65  |11...0  ADR R3,e|
00003c20  6d 5f 30 30 32 5f 61 30  5f 73 63 6f 72 65 3a 42  |m_002_a0_score:B|
00003c30  20 65 6d 5f 61 63 63 65  73 73 20 3b 20 34 20 30  | em_access ; 4 0|
00003c40  30 32 0d 16 f8 1c 20 20  4d 4f 56 20 52 30 2c 23  |02....  MOV R0,#|
00003c50  30 3a 42 20 65 6d 5f 63  6f 6d 62 69 6e 65 0d 17  |0:B em_combine..|
00003c60  02 30 20 20 4d 4f 56 20  52 30 2c 23 30 3a 42 20  |.0  MOV R0,#0:B |
00003c70  65 6d 5f 63 6f 6d 62 69  6e 65 20 20 20 20 20 20  |em_combine      |
00003c80  20 20 20 20 20 20 20 3b  20 36 20 31 31 32 0d 17  |       ; 6 112..|
00003c90  0c 1b 20 20 42 20 65 6d  5f 65 72 72 6f 72 3a 42  |..  B em_error:B|
00003ca0  20 65 6d 5f 65 72 72 6f  72 0d 17 16 31 20 20 41  | em_error...1  A|
00003cb0  44 52 20 52 33 2c 65 6d  5f 30 32 32 5f 61 30 5f  |DR R3,em_022_a0_|
00003cc0  73 63 6f 72 65 3a 42 20  65 6d 5f 61 63 63 65 73  |score:B em_acces|
00003cd0  73 20 20 3b 20 38 20 30  32 32 0d 17 20 1c 20 20  |s  ; 8 022.. .  |
00003ce0  4d 4f 56 20 52 30 2c 23  30 3a 42 20 65 6d 5f 63  |MOV R0,#0:B em_c|
00003cf0  6f 6d 62 69 6e 65 0d 17  2a 30 20 20 42 20 65 6d  |ombine..*0  B em|
00003d00  5f 65 72 72 6f 72 3a 42  20 65 6d 5f 65 72 72 6f  |_error:B em_erro|
00003d10  72 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |r              ;|
00003d20  20 31 30 20 2d 2d 0d 17  34 1b 20 20 42 20 65 6d  | 10 --..4.  B em|
00003d30  5f 65 72 72 6f 72 3a 42  20 65 6d 5f 65 72 72 6f  |_error:B em_erro|
00003d40  72 0d 17 3e 0e 20 20 42  20 65 6d 5f 32 32 32 0d  |r..>.  B em_222.|
00003d50  17 48 05 20 0d 17 52 3d  20 20 2e 65 6d 5f 32 32  |.H. ..R=  .em_22|
00003d60  32 3a 41 44 52 20 52 36  2c 65 6d 5f 32 32 32 5f  |2:ADR R6,em_222_|
00003d70  73 63 6f 72 65 74 61 62  6c 65 3a 4d 4f 56 20 52  |scoretable:MOV R|
00003d80  35 2c 23 31 3a 42 20 65  6d 5f 66 72 65 65 64 6f  |5,#1:B em_freedo|
00003d90  6d 0d 17 5c 3d 20 20 2e  65 6d 5f 31 31 31 3a 41  |m..\=  .em_111:A|
00003da0  44 52 20 52 36 2c 65 6d  5f 31 31 31 5f 73 63 6f  |DR R6,em_111_sco|
00003db0  72 65 74 61 62 6c 65 3a  4d 4f 56 20 52 35 2c 23  |retable:MOV R5,#|
00003dc0  32 3a 42 20 65 6d 5f 66  72 65 65 64 6f 6d 0d 17  |2:B em_freedom..|
00003dd0  66 05 20 0d 17 70 05 20  0d 17 7a 11 20 20 2e 65  |f. ..p. ..z.  .e|
00003de0  6d 5f 63 6f 6d 62 69 6e  65 0d 17 84 1e 20 20 41  |m_combine....  A|
00003df0  44 44 20 65 6d 5f 73 63  6f 72 65 2c 65 6d 5f 73  |DD em_score,em_s|
00003e00  63 6f 72 65 2c 52 30 0d  17 8e 1f 20 20 53 55 42  |core,R0....  SUB|
00003e10  53 20 65 6d 5f 69 6e 64  65 78 2c 65 6d 5f 69 6e  |S em_index,em_in|
00003e20  64 65 78 2c 23 31 0d 17  98 11 20 20 42 47 54 20  |dex,#1....  BGT |
00003e30  65 6d 5f 6c 6f 6f 70 0d  17 a2 05 20 0d 17 ac 15  |em_loop.... ....|
00003e40  20 20 4d 4f 56 20 52 30  2c 65 6d 5f 73 63 6f 72  |  MOV R0,em_scor|
00003e50  65 0d 17 b6 20 20 20 4c  44 4d 46 44 20 28 73 74  |e...   LDMFD (st|
00003e60  61 63 6b 29 21 2c 7b 52  34 2d 52 31 31 2c 50 43  |ack)!,{R4-R11,PC|
00003e70  7d 0d 17 c0 05 20 0d 17  ca 05 20 0d 17 d4 05 20  |}.... .... .... |
00003e80  0d 17 de 39 20 20 2e 65  6d 5f 65 72 72 6f 72 3a  |...9  .em_error:|
00003e90  41 44 52 20 52 30 2c 65  6d 5f 65 72 72 6f 72 53  |ADR R0,em_errorS|
00003ea0  54 52 3a 53 57 49 20 22  4f 53 5f 47 65 6e 65 72  |TR:SWI "OS_Gener|
00003eb0  61 74 65 45 72 72 6f 72  22 0d 17 e8 6b 20 20 2e  |ateError"...k  .|
00003ec0  65 6d 5f 65 72 72 6f 72  53 54 52 3a 45 51 55 44  |em_errorSTR:EQUD|
00003ed0  20 32 35 35 3a 45 51 55  53 20 22 43 6f 6d 70 75  | 255:EQUS "Compu|
00003ee0  74 65 72 20 70 6c 61 79  65 72 20 63 72 61 73 68  |ter player crash|
00003ef0  65 64 20 2d 20 45 76 61  6c 75 61 74 65 20 6f 75  |ed - Evaluate ou|
00003f00  74 2d 6c 69 6e 6b 65 64  20 6d 69 6c 6c 73 20 66  |t-linked mills f|
00003f10  61 69 6c 65 64 2e 22 3a  45 51 55 42 20 30 3a 41  |ailed.":EQUB 0:A|
00003f20  4c 49 47 4e 0d 17 f2 05  20 0d 17 fc 05 20 0d 18  |LIGN.... .... ..|
00003f30  06 4d 20 20 2e 65 6d 5f  61 63 63 65 73 73 20 3b  |.M  .em_access ;|
00003f40  20 6d 69 6c 6c 20 69 73  20 73 69 6e 67 6c 65 20  | mill is single |
00003f50  6f 77 6e 65 72 2c 20 6d  75 73 74 20 6e 6f 77 20  |owner, must now |
00003f60  63 68 65 63 6b 20 77 68  61 74 20 68 61 73 20 61  |check what has a|
00003f70  63 63 65 73 73 20 74 6f  20 69 74 0d 18 10 34 20  |ccess to it...4 |
00003f80  20 3b 20 52 34 2c 20 52  35 2c 20 52 36 20 73 74  | ; R4, R5, R6 st|
00003f90  69 6c 6c 20 63 6f 6e 74  61 69 6e 20 74 68 65 20  |ill contain the |
00003fa0  33 20 64 69 72 65 63 74  20 70 69 65 63 65 73 0d  |3 direct pieces.|
00003fb0  18 1a 46 20 20 3b 20 52  33 20 70 6f 69 6e 74 73  |..F  ; R3 points|
00003fc0  20 74 6f 20 74 68 65 20  6d 69 6c 6c 73 20 61 63  | to the mills ac|
00003fd0  63 65 73 73 20 73 63 6f  72 65 20 74 61 62 6c 65  |cess score table|
00003fe0  20 28 65 6e 74 72 79 20  66 6f 72 20 61 63 63 65  | (entry for acce|
00003ff0  73 73 20 30 29 0d 18 24  0f 20 20 4d 4f 56 20 52  |ss 0)..$.  MOV R|
00004000  32 2c 23 30 0d 18 2e 1f  20 20 43 4d 50 53 20 52  |2,#0....  CMPS R|
00004010  36 2c 23 30 3a 42 4e 45  20 65 6d 5f 61 63 63 65  |6,#0:BNE em_acce|
00004020  73 73 32 0d 18 38 42 20  20 4c 44 52 42 20 52 30  |ss2..8B  LDRB R0|
00004030  2c 5b 65 6d 5f 6c 69 73  74 70 74 72 2c 23 37 5d  |,[em_listptr,#7]|
00004040  3a 4c 44 52 42 20 52 30  2c 5b 65 6d 5f 62 6f 61  |:LDRB R0,[em_boa|
00004050  72 64 70 74 72 2c 52 30  5d 20 3a 20 4d 4f 56 20  |rdptr,R0] : MOV |
00004060  52 36 2c 52 30 0d 18 42  53 20 20 4c 44 52 42 20  |R6,R0..BS  LDRB |
00004070  52 30 2c 5b 65 6d 5f 6c  69 73 74 70 74 72 2c 23  |R0,[em_listptr,#|
00004080  38 5d 3a 43 4d 50 53 20  52 30 2c 23 30 3a 4c 44  |8]:CMPS R0,#0:LD|
00004090  52 47 54 42 20 52 30 2c  5b 65 6d 5f 62 6f 61 72  |RGTB R0,[em_boar|
000040a0  64 70 74 72 2c 52 30 5d  20 3a 20 84 52 47 54 20  |dptr,R0] : .RGT |
000040b0  52 36 2c 52 36 2c 52 30  0d 18 4c 3d 20 20 43 4d  |R6,R6,R0..L=  CM|
000040c0  50 53 20 52 36 2c 23 32  3a 41 44 44 47 54 20 52  |PS R6,#2:ADDGT R|
000040d0  32 2c 52 32 2c 23 31 3a  41 44 44 45 51 20 52 32  |2,R2,#1:ADDEQ R2|
000040e0  2c 52 32 2c 23 32 3a 53  55 42 4c 54 20 52 32 2c  |,R2,#2:SUBLT R2,|
000040f0  52 32 2c 23 32 0d 18 56  3f 20 20 43 4d 50 53 20  |R2,#2..V?  CMPS |
00004100  52 36 2c 23 30 3a 41 44  44 45 51 20 52 32 2c 52  |R6,#0:ADDEQ R2,R|
00004110  32 2c 23 32 20 3b 20 28  75 6e 64 6f 20 74 68 65  |2,#2 ; (undo the|
00004120  20 6c 61 73 74 20 63 6f  6d 6d 61 6e 64 20 61 62  | last command ab|
00004130  6f 76 65 29 0d 18 60 3a  20 20 3b 20 30 20 3d 20  |ove)..`:  ; 0 = |
00004140  2b 30 2c 20 20 31 20 3d  20 2d 32 2c 20 20 32 20  |+0,  1 = -2,  2 |
00004150  3d 20 2b 32 2c 20 20 33  20 3d 20 2b 31 20 28 67  |= +2,  3 = +1 (g|
00004160  75 61 72 64 65 64 20 61  63 63 65 73 73 29 0d 18  |uarded access)..|
00004170  6a 05 20 0d 18 74 11 20  20 2e 65 6d 5f 61 63 63  |j. ..t.  .em_acc|
00004180  65 73 73 32 0d 18 7e 1f  20 20 43 4d 50 53 20 52  |ess2..~.  CMPS R|
00004190  35 2c 23 30 3a 42 4e 45  20 65 6d 5f 61 63 63 65  |5,#0:BNE em_acce|
000041a0  73 73 33 0d 18 88 42 20  20 4c 44 52 42 20 52 30  |ss3...B  LDRB R0|
000041b0  2c 5b 65 6d 5f 6c 69 73  74 70 74 72 2c 23 34 5d  |,[em_listptr,#4]|
000041c0  3a 4c 44 52 42 20 52 30  2c 5b 65 6d 5f 62 6f 61  |:LDRB R0,[em_boa|
000041d0  72 64 70 74 72 2c 52 30  5d 20 3a 20 4d 4f 56 20  |rdptr,R0] : MOV |
000041e0  52 36 2c 52 30 0d 18 92  53 20 20 4c 44 52 42 20  |R6,R0...S  LDRB |
000041f0  52 30 2c 5b 65 6d 5f 6c  69 73 74 70 74 72 2c 23  |R0,[em_listptr,#|
00004200  35 5d 3a 43 4d 50 53 20  52 30 2c 23 30 3a 4c 44  |5]:CMPS R0,#0:LD|
00004210  52 47 54 42 20 52 30 2c  5b 65 6d 5f 62 6f 61 72  |RGTB R0,[em_boar|
00004220  64 70 74 72 2c 52 30 5d  20 3a 20 84 52 47 54 20  |dptr,R0] : .RGT |
00004230  52 36 2c 52 36 2c 52 30  0d 18 9c 3d 20 20 43 4d  |R6,R6,R0...=  CM|
00004240  50 53 20 52 36 2c 23 32  3a 41 44 44 47 54 20 52  |PS R6,#2:ADDGT R|
00004250  32 2c 52 32 2c 23 31 3a  41 44 44 45 51 20 52 32  |2,R2,#1:ADDEQ R2|
00004260  2c 52 32 2c 23 32 3a 53  55 42 4c 54 20 52 32 2c  |,R2,#2:SUBLT R2,|
00004270  52 32 2c 23 32 0d 18 a6  1f 20 20 43 4d 50 53 20  |R2,#2....  CMPS |
00004280  52 36 2c 23 30 3a 41 44  44 45 51 20 52 32 2c 52  |R6,#0:ADDEQ R2,R|
00004290  32 2c 23 32 0d 18 b0 05  20 0d 18 ba 11 20 20 2e  |2,#2.... ....  .|
000042a0  65 6d 5f 61 63 63 65 73  73 33 0d 18 c4 1f 20 20  |em_access3....  |
000042b0  43 4d 50 53 20 52 34 2c  23 30 3a 42 4e 45 20 65  |CMPS R4,#0:BNE e|
000042c0  6d 5f 61 63 63 65 73 73  34 0d 18 ce 42 20 20 4c  |m_access4...B  L|
000042d0  44 52 42 20 52 30 2c 5b  65 6d 5f 6c 69 73 74 70  |DRB R0,[em_listp|
000042e0  74 72 2c 23 31 5d 3a 4c  44 52 42 20 52 30 2c 5b  |tr,#1]:LDRB R0,[|
000042f0  65 6d 5f 62 6f 61 72 64  70 74 72 2c 52 30 5d 20  |em_boardptr,R0] |
00004300  3a 20 4d 4f 56 20 52 36  2c 52 30 0d 18 d8 53 20  |: MOV R6,R0...S |
00004310  20 4c 44 52 42 20 52 30  2c 5b 65 6d 5f 6c 69 73  | LDRB R0,[em_lis|
00004320  74 70 74 72 2c 23 32 5d  3a 43 4d 50 53 20 52 30  |tptr,#2]:CMPS R0|
00004330  2c 23 30 3a 4c 44 52 47  54 42 20 52 30 2c 5b 65  |,#0:LDRGTB R0,[e|
00004340  6d 5f 62 6f 61 72 64 70  74 72 2c 52 30 5d 20 3a  |m_boardptr,R0] :|
00004350  20 84 52 47 54 20 52 36  2c 52 36 2c 52 30 0d 18  | .RGT R6,R6,R0..|
00004360  e2 3d 20 20 43 4d 50 53  20 52 36 2c 23 32 3a 41  |.=  CMPS R6,#2:A|
00004370  44 44 47 54 20 52 32 2c  52 32 2c 23 31 3a 41 44  |DDGT R2,R2,#1:AD|
00004380  44 45 51 20 52 32 2c 52  32 2c 23 32 3a 53 55 42  |DEQ R2,R2,#2:SUB|
00004390  4c 54 20 52 32 2c 52 32  2c 23 32 0d 18 ec 1f 20  |LT R2,R2,#2.... |
000043a0  20 43 4d 50 53 20 52 36  2c 23 30 3a 41 44 44 45  | CMPS R6,#0:ADDE|
000043b0  51 20 52 32 2c 52 32 2c  23 32 0d 18 f6 05 20 0d  |Q R2,R2,#2.... .|
000043c0  19 00 39 20 20 2e 65 6d  5f 61 63 63 65 73 73 34  |..9  .em_access4|
000043d0  20 3b 20 52 32 20 6e 6f  77 20 63 6f 6e 74 61 69  | ; R2 now contai|
000043e0  6e 73 20 74 68 65 20 61  63 63 65 73 73 20 76 61  |ns the access va|
000043f0  6c 75 65 76 61 6c 75 65  0d 19 0a 1b 20 20 4c 44  |luevalue....  LD|
00004400  52 20 52 30 2c 5b 52 33  2c 52 32 2c 4c 53 4c 20  |R R0,[R3,R2,LSL |
00004410  23 32 5d 0d 19 14 12 20  20 42 20 65 6d 5f 63 6f  |#2]....  B em_co|
00004420  6d 62 69 6e 65 0d 19 1e  05 20 0d 19 28 05 20 0d  |mbine.... ..(. .|
00004430  19 32 05 20 0d 19 3c 35  20 20 2e 65 6d 5f 66 72  |.2. ..<5  .em_fr|
00004440  65 65 64 6f 6d 20 3b 20  77 65 20 6b 6e 6f 77 20  |eedom ; we know |
00004450  74 68 61 74 20 61 6c 6c  20 73 71 75 61 72 65 73  |that all squares|
00004460  20 6f 63 63 75 70 69 65  64 0d 19 46 40 20 20 3b  | occupied..F@  ;|
00004470  20 52 35 20 3d 20 63 6f  6c 6f 75 72 20 6f 66 20  | R5 = colour of |
00004480  6f 74 68 65 72 20 70 6c  61 79 65 72 2c 20 52 36  |other player, R6|
00004490  20 3d 20 70 6f 69 6e 74  65 72 20 74 6f 20 73 63  | = pointer to sc|
000044a0  6f 72 65 20 74 61 62 6c  65 0d 19 50 05 20 0d 19  |ore table..P. ..|
000044b0  5a 1b 20 20 4d 4f 56 20  52 34 2c 23 30 20 3a 20  |Z.  MOV R4,#0 : |
000044c0  4d 4f 56 20 52 33 2c 23  30 0d 19 64 36 20 20 4c  |MOV R3,#0..d6  L|
000044d0  44 52 42 20 52 30 2c 5b  65 6d 5f 6c 69 73 74 70  |DRB R0,[em_listp|
000044e0  74 72 2c 23 31 5d 3a 4c  44 52 42 20 52 30 2c 5b  |tr,#1]:LDRB R0,[|
000044f0  65 6d 5f 62 6f 61 72 64  70 74 72 2c 52 30 5d 0d  |em_boardptr,R0].|
00004500  19 6e 1e 20 20 43 4d 50  53 20 52 30 2c 23 30 3a  |.n.  CMPS R0,#0:|
00004510  84 52 45 51 20 52 34 2c  52 34 2c 23 31 0d 19 78  |.REQ R4,R4,#1..x|
00004520  1e 20 20 43 4d 50 53 20  52 30 2c 52 35 3a 84 52  |.  CMPS R0,R5:.R|
00004530  45 51 20 52 34 2c 52 34  2c 23 32 0d 19 82 50 20  |EQ R4,R4,#2...P |
00004540  20 4c 44 52 42 20 52 30  2c 5b 65 6d 5f 6c 69 73  | LDRB R0,[em_lis|
00004550  74 70 74 72 2c 23 32 5d  3a 43 4d 50 53 20 52 30  |tptr,#2]:CMPS R0|
00004560  2c 23 30 3a 42 45 51 20  65 6d 5f 66 72 65 65 31  |,#0:BEQ em_free1|
00004570  3a 4c 44 52 47 54 42 20  52 30 2c 5b 65 6d 5f 62  |:LDRGTB R0,[em_b|
00004580  6f 61 72 64 70 74 72 2c  52 30 5d 0d 19 8c 1e 20  |oardptr,R0].... |
00004590  20 43 4d 50 53 20 52 30  2c 23 30 3a 84 52 45 51  | CMPS R0,#0:.REQ|
000045a0  20 52 34 2c 52 34 2c 23  31 0d 19 96 1e 20 20 43  | R4,R4,#1....  C|
000045b0  4d 50 53 20 52 30 2c 52  35 3a 84 52 45 51 20 52  |MPS R0,R5:.REQ R|
000045c0  34 2c 52 34 2c 23 32 0d  19 a0 0f 20 20 2e 65 6d  |4,R4,#2....  .em|
000045d0  5f 66 72 65 65 31 0d 19  aa 40 20 20 43 4d 50 53  |_free1...@  CMPS|
000045e0  20 52 34 2c 23 31 3a 42  45 51 20 65 6d 5f 69 73  | R4,#1:BEQ em_is|
000045f0  66 72 65 65 20 20 3b 20  74 68 69 73 20 73 71 75  |free  ; this squ|
00004600  61 72 65 20 69 73 20 63  6f 6d 70 6c 65 74 65 6c  |are is completel|
00004610  79 20 66 72 65 65 0d 19  b4 1f 20 20 43 4d 50 53  |y free....  CMPS|
00004620  20 52 34 2c 23 33 3a 41  44 44 45 51 20 52 33 2c  | R4,#3:ADDEQ R3,|
00004630  52 33 2c 23 31 0d 19 be  05 20 0d 19 c8 0f 20 20  |R3,#1.... ....  |
00004640  4d 4f 56 20 52 34 2c 23  30 0d 19 d2 36 20 20 4c  |MOV R4,#0...6  L|
00004650  44 52 42 20 52 30 2c 5b  65 6d 5f 6c 69 73 74 70  |DRB R0,[em_listp|
00004660  74 72 2c 23 34 5d 3a 4c  44 52 42 20 52 30 2c 5b  |tr,#4]:LDRB R0,[|
00004670  65 6d 5f 62 6f 61 72 64  70 74 72 2c 52 30 5d 0d  |em_boardptr,R0].|
00004680  19 dc 1e 20 20 43 4d 50  53 20 52 30 2c 23 30 3a  |...  CMPS R0,#0:|
00004690  84 52 45 51 20 52 34 2c  52 34 2c 23 31 0d 19 e6  |.REQ R4,R4,#1...|
000046a0  1e 20 20 43 4d 50 53 20  52 30 2c 52 35 3a 84 52  |.  CMPS R0,R5:.R|
000046b0  45 51 20 52 34 2c 52 34  2c 23 32 0d 19 f0 50 20  |EQ R4,R4,#2...P |
000046c0  20 4c 44 52 42 20 52 30  2c 5b 65 6d 5f 6c 69 73  | LDRB R0,[em_lis|
000046d0  74 70 74 72 2c 23 35 5d  3a 43 4d 50 53 20 52 30  |tptr,#5]:CMPS R0|
000046e0  2c 23 30 3a 42 45 51 20  65 6d 5f 66 72 65 65 32  |,#0:BEQ em_free2|
000046f0  3a 4c 44 52 47 54 42 20  52 30 2c 5b 65 6d 5f 62  |:LDRGTB R0,[em_b|
00004700  6f 61 72 64 70 74 72 2c  52 30 5d 0d 19 fa 1e 20  |oardptr,R0].... |
00004710  20 43 4d 50 53 20 52 30  2c 23 30 3a 84 52 45 51  | CMPS R0,#0:.REQ|
00004720  20 52 34 2c 52 34 2c 23  31 0d 1a 04 1e 20 20 43  | R4,R4,#1....  C|
00004730  4d 50 53 20 52 30 2c 52  35 3a 84 52 45 51 20 52  |MPS R0,R5:.REQ R|
00004740  34 2c 52 34 2c 23 32 0d  1a 0e 0f 20 20 2e 65 6d  |4,R4,#2....  .em|
00004750  5f 66 72 65 65 32 0d 1a  18 1e 20 20 43 4d 50 53  |_free2....  CMPS|
00004760  20 52 34 2c 23 31 3a 42  45 51 20 65 6d 5f 69 73  | R4,#1:BEQ em_is|
00004770  66 72 65 65 0d 1a 22 1f  20 20 43 4d 50 53 20 52  |free..".  CMPS R|
00004780  34 2c 23 33 3a 41 44 44  45 51 20 52 33 2c 52 33  |4,#3:ADDEQ R3,R3|
00004790  2c 23 31 0d 1a 2c 05 20  0d 1a 36 0f 20 20 4d 4f  |,#1..,. ..6.  MO|
000047a0  56 20 52 34 2c 23 30 0d  1a 40 36 20 20 4c 44 52  |V R4,#0..@6  LDR|
000047b0  42 20 52 30 2c 5b 65 6d  5f 6c 69 73 74 70 74 72  |B R0,[em_listptr|
000047c0  2c 23 37 5d 3a 4c 44 52  42 20 52 30 2c 5b 65 6d  |,#7]:LDRB R0,[em|
000047d0  5f 62 6f 61 72 64 70 74  72 2c 52 30 5d 0d 1a 4a  |_boardptr,R0]..J|
000047e0  1e 20 20 43 4d 50 53 20  52 30 2c 23 30 3a 84 52  |.  CMPS R0,#0:.R|
000047f0  45 51 20 52 34 2c 52 34  2c 23 31 0d 1a 54 1e 20  |EQ R4,R4,#1..T. |
00004800  20 43 4d 50 53 20 52 30  2c 52 35 3a 84 52 45 51  | CMPS R0,R5:.REQ|
00004810  20 52 34 2c 52 34 2c 23  32 0d 1a 5e 50 20 20 4c  | R4,R4,#2..^P  L|
00004820  44 52 42 20 52 30 2c 5b  65 6d 5f 6c 69 73 74 70  |DRB R0,[em_listp|
00004830  74 72 2c 23 38 5d 3a 43  4d 50 53 20 52 30 2c 23  |tr,#8]:CMPS R0,#|
00004840  30 3a 42 45 51 20 65 6d  5f 66 72 65 65 33 3a 4c  |0:BEQ em_free3:L|
00004850  44 52 47 54 42 20 52 30  2c 5b 65 6d 5f 62 6f 61  |DRGTB R0,[em_boa|
00004860  72 64 70 74 72 2c 52 30  5d 0d 1a 68 1e 20 20 43  |rdptr,R0]..h.  C|
00004870  4d 50 53 20 52 30 2c 23  30 3a 84 52 45 51 20 52  |MPS R0,#0:.REQ R|
00004880  34 2c 52 34 2c 23 31 0d  1a 72 1e 20 20 43 4d 50  |4,R4,#1..r.  CMP|
00004890  53 20 52 30 2c 52 35 3a  84 52 45 51 20 52 34 2c  |S R0,R5:.REQ R4,|
000048a0  52 34 2c 23 32 0d 1a 7c  0f 20 20 2e 65 6d 5f 66  |R4,#2..|.  .em_f|
000048b0  72 65 65 33 0d 1a 86 1e  20 20 43 4d 50 53 20 52  |ree3....  CMPS R|
000048c0  34 2c 23 31 3a 42 45 51  20 65 6d 5f 69 73 66 72  |4,#1:BEQ em_isfr|
000048d0  65 65 0d 1a 90 1f 20 20  43 4d 50 53 20 52 34 2c  |ee....  CMPS R4,|
000048e0  23 33 3a 41 44 44 45 51  20 52 33 2c 52 33 2c 23  |#3:ADDEQ R3,R3,#|
000048f0  31 0d 1a 9a 05 20 0d 1a  a4 29 20 20 3b 20 52 33  |1.... ...)  ; R3|
00004900  20 69 73 20 63 6f 75 6e  74 20 6f 66 20 62 6c 6f  | is count of blo|
00004910  63 6b 20 6f 70 65 6e 20  73 71 75 61 72 65 73 0d  |ck open squares.|
00004920  1a ae 21 20 20 43 4d 50  53 20 52 33 2c 23 31 3a  |..!  CMPS R3,#1:|
00004930  4c 44 52 47 45 20 52 30  2c 5b 52 36 2c 23 34 5d  |LDRGE R0,[R6,#4]|
00004940  0d 1a b8 21 20 20 3a 20  20 20 20 20 20 20 20 20  |...!  :         |
00004950  20 4c 44 52 4c 54 20 52  30 2c 5b 52 36 2c 23 38  | LDRLT R0,[R6,#8|
00004960  5d 0d 1a c2 12 20 20 42  20 65 6d 5f 63 6f 6d 62  |]....  B em_comb|
00004970  69 6e 65 0d 1a cc 05 20  0d 1a d6 2c 20 20 2e 65  |ine.... ...,  .e|
00004980  6d 5f 69 73 66 72 65 65  3a 4c 44 52 20 52 30 2c  |m_isfree:LDR R0,|
00004990  5b 52 36 2c 23 30 5d 3a  42 20 65 6d 5f 63 6f 6d  |[R6,#0]:B em_com|
000049a0  62 69 6e 65 0d 1a e0 05  20 0d 1a ea 05 20 0d 1a  |bine.... .... ..|
000049b0  f4 30 20 20 3b 20 6f 70  65 6e 2c 20 20 67 75 61  |.0  ; open,  gua|
000049c0  72 64 65 64 20 6f 70 65  6e 2c 20 20 63 6f 6d 70  |rded open,  comp|
000049d0  6c 65 74 65 6c 79 20 62  6c 6f 63 6b 65 64 0d 1a  |letely blocked..|
000049e0  fe 32 20 20 2e 65 6d 5f  32 32 32 5f 73 63 6f 72  |.2  .em_222_scor|
000049f0  65 74 61 62 6c 65 3a 45  51 55 44 20 31 35 20 3a  |etable:EQUD 15 :|
00004a00  20 45 51 55 44 20 35 20  3a 20 45 51 55 44 20 32  | EQUD 5 : EQUD 2|
00004a10  0d 1b 08 35 20 20 2e 65  6d 5f 31 31 31 5f 73 63  |...5  .em_111_sc|
00004a20  6f 72 65 74 61 62 6c 65  3a 45 51 55 44 20 2d 31  |oretable:EQUD -1|
00004a30  34 20 3a 20 45 51 55 44  20 2d 34 20 3a 20 45 51  |4 : EQUD -4 : EQ|
00004a40  55 44 20 2d 32 0d 1b 12  05 20 0d 1b 1c 05 20 0d  |UD -2.... .... .|
00004a50  1b 26 17 20 20 3b 20 65  6d 20 73 63 6f 72 65 20  |.&.  ; em score |
00004a60  74 61 62 6c 65 73 0d 1b  30 05 20 0d 1b 3a 15 20  |tables..0. ..:. |
00004a70  20 45 51 55 44 20 30 20  3b 20 61 20 3d 20 2d 34  | EQUD 0 ; a = -4|
00004a80  0d 1b 44 15 20 20 45 51  55 44 20 30 20 3b 20 2d  |..D.  EQUD 0 ; -|
00004a90  2d 2d 2d 2d 2d 0d 1b 4e  15 20 20 45 51 55 44 20  |-----..N.  EQUD |
00004aa0  32 20 3b 20 61 20 3d 20  2d 32 0d 1b 58 0c 20 20  |2 ; a = -2..X.  |
00004ab0  45 51 55 44 20 33 0d 1b  62 16 20 20 2e 65 6d 5f  |EQUD 3..b.  .em_|
00004ac0  30 30 32 5f 61 30 5f 73  63 6f 72 65 0d 1b 6c 0c  |002_a0_score..l.|
00004ad0  20 20 45 51 55 44 20 36  0d 1b 76 0d 20 20 45 51  |  EQUD 6..v.  EQ|
00004ae0  55 44 20 31 32 0d 1b 80  16 20 20 45 51 55 44 20  |UD 12....  EQUD |
00004af0  31 37 20 3b 20 61 20 3d  20 2b 32 0d 1b 8a 0d 20  |17 ; a = +2.... |
00004b00  20 45 51 55 44 20 33 34  0d 1b 94 0d 20 20 45 51  | EQUD 34....  EQ|
00004b10  55 44 20 34 30 0d 1b 9e  05 20 0d 1b a8 0c 20 20  |UD 40.... ....  |
00004b20  45 51 55 44 20 39 0d 1b  b2 15 20 20 45 51 55 44  |EQUD 9....  EQUD|
00004b30  20 30 20 3b 20 2d 2d 2d  2d 2d 2d 0d 1b bc 16 20  | 0 ; ------.... |
00004b40  20 2e 65 6d 5f 30 32 32  5f 61 30 5f 73 63 6f 72  | .em_022_a0_scor|
00004b50  65 0d 1b c6 0d 20 20 45  51 55 44 20 32 31 0d 1b  |e....  EQUD 21..|
00004b60  d0 0d 20 20 45 51 55 44  20 34 30 0d 1b da 0d 20  |..  EQUD 40.... |
00004b70  20 45 51 55 44 20 35 35  0d 1b e4 05 20 0d 1b ee  | EQUD 55.... ...|
00004b80  0e 20 20 45 51 55 44 20  2d 33 35 0d 1b f8 16 20  |.  EQUD -35.... |
00004b90  20 45 51 55 44 20 30 20  3b 20 2d 2d 2d 2d 2d 2d  | EQUD 0 ; ------|
00004ba0  2d 0d 1c 02 0e 20 20 45  51 55 44 20 2d 31 38 0d  |-....  EQUD -18.|
00004bb0  1c 0c 0e 20 20 45 51 55  44 20 2d 31 30 0d 1c 16  |...  EQUD -10...|
00004bc0  16 20 20 2e 65 6d 5f 30  30 31 5f 61 30 5f 73 63  |.  .em_001_a0_sc|
00004bd0  6f 72 65 0d 1c 20 0d 20  20 45 51 55 44 20 2d 36  |ore.. .  EQUD -6|
00004be0  0d 1c 2a 0d 20 20 45 51  55 44 20 2d 35 0d 1c 34  |..*.  EQUD -5..4|
00004bf0  0d 20 20 45 51 55 44 20  2d 33 0d 1c 3e 0d 20 20  |.  EQUD -3..>.  |
00004c00  45 51 55 44 20 2d 31 0d  1c 48 0c 20 20 45 51 55  |EQUD -1..H.  EQU|
00004c10  44 20 30 0d 1c 52 05 20  0d 1c 5c 0e 20 20 45 51  |D 0..R. ..\.  EQ|
00004c20  55 44 20 2d 35 30 0d 1c  66 14 20 20 45 51 55 44  |UD -50..f.  EQUD|
00004c30  20 30 20 3b 20 2d 2d 2d  2d 2d 0d 1c 70 16 20 20  | 0 ; -----..p.  |
00004c40  2e 65 6d 5f 30 31 31 5f  61 30 5f 73 63 6f 72 65  |.em_011_a0_score|
00004c50  0d 1c 7a 0e 20 20 45 51  55 44 20 2d 31 39 0d 1c  |..z.  EQUD -19..|
00004c60  84 0d 20 20 45 51 55 44  20 2d 38 0d 1c 8e 0d 20  |..  EQUD -8.... |
00004c70  20 45 51 55 44 20 2d 36  0d 1c 98 05 20 0d 1c a2  | EQUD -6.... ...|
00004c80  05 20 0d 1c ac 05 20 0d  1c b6 05 20 0d 1c c0 05  |. .... .... ....|
00004c90  20 0d 1c ca 05 20 0d 1c  d4 05 20 0d 1c de 05 20  | .... .... .... |
00004ca0  0d 1c e8 05 20 0d 1c f2  05 20 0d 1c fc 05 20 0d  |.... .... .... .|
00004cb0  1d 06 05 20 0d 1d 10 05  20 0d 1d 1a 05 20 0d 1d  |... .... .... ..|
00004cc0  24 05 20 0d 1d 2e 05 20  0d 1d 38 05 20 0d 1d 42  |$. .... ..8. ..B|
00004cd0  05 20 0d 1d 4c 05 20 0d  1d 56 05 20 0d 1d 60 05  |. ..L. ..V. ..`.|
00004ce0  20 0d 1d 6a 17 20 20 2e  64 6f 5f 63 6f 6d 70 75  | ..j.  .do_compu|
00004cf0  74 65 72 5f 6d 6f 76 65  0d 1d 74 10 20 20 2e 73  |ter_move..t.  .s|
00004d00  63 61 6e 5f 74 65 73 74  0d 1d 7e 1b 20 20 53 54  |can_test..~.  ST|
00004d10  4d 46 44 20 28 73 74 61  63 6b 29 21 2c 7b 6c 69  |MFD (stack)!,{li|
00004d20  6e 6b 7d 0d 1d 88 15 20  20 4d 4f 56 20 6d 61 69  |nk}....  MOV mai|
00004d30  6e 76 61 72 73 2c 52 30  0d 1d 92 18 20 20 53 57  |nvars,R0....  SW|
00004d40  49 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |I "Hourglass_On"|
00004d50  0d 1d 9c 31 20 20 4d 4f  56 20 52 30 2c 23 30 3a  |...1  MOV R0,#0:|
00004d60  53 54 52 20 52 30 2c 5b  6d 61 69 6e 76 61 72 73  |STR R0,[mainvars|
00004d70  2c 23 76 61 72 73 5f 70  6f 73 6e 63 6f 75 6e 74  |,#vars_posncount|
00004d80  5d 0d 1d a6 05 20 0d 1d  b0 32 20 20 4c 44 52 20  |].... ...2  LDR |
00004d90  73 63 61 6e 5f 64 65 70  74 68 2c 5b 6d 61 69 6e  |scan_depth,[main|
00004da0  76 61 72 73 2c 23 76 61  72 73 5f 6d 61 78 73 63  |vars,#vars_maxsc|
00004db0  61 6e 64 65 70 74 68 5d  0d 1d ba 32 20 20 4c 44  |andepth]...2  LD|
00004dc0  52 20 73 63 61 6e 5f 62  6f 61 72 64 2c 5b 6d 61  |R scan_board,[ma|
00004dd0  69 6e 76 61 72 73 2c 23  76 61 72 73 5f 70 6c 61  |invars,#vars_pla|
00004de0  79 69 6e 67 62 6f 61 72  64 5d 0d 1d c4 5c 20 20  |yingboard]...\  |
00004df0  4c 44 52 20 73 63 61 6e  5f 6d 6f 76 65 6e 75 6d  |LDR scan_movenum|
00004e00  62 65 72 2c 5b 6d 61 69  6e 76 61 72 73 2c 23 76  |ber,[mainvars,#v|
00004e10  61 72 73 5f 6d 6f 76 65  6e 75 6d 62 65 72 5d 3a  |ars_movenumber]:|
00004e20  53 55 42 20 73 63 61 6e  5f 6d 6f 76 65 6e 75 6d  |SUB scan_movenum|
00004e30  62 65 72 2c 73 63 61 6e  5f 6d 6f 76 65 6e 75 6d  |ber,scan_movenum|
00004e40  62 65 72 2c 23 31 0d 1d  ce 05 20 0d 1d d8 28 20  |ber,#1.... ...( |
00004e50  20 4d 56 4e 20 52 30 2c  23 26 31 3c 3c 32 31 20  | MVN R0,#&1<<21 |
00004e60  3b 20 62 61 73 65 20 63  75 74 6f 66 66 20 76 61  |; base cutoff va|
00004e70  6c 75 65 0d 1d e2 15 20  20 42 4c 20 67 65 6e 65  |lue....  BL gene|
00004e80  72 61 6c 5f 73 63 61 6e  0d 1d ec 55 20 20 52 53  |ral_scan...U  RS|
00004e90  42 20 52 30 2c 52 30 2c  23 30 20 20 20 20 20 20  |B R0,R0,#0      |
00004ea0  20 3b 20 74 68 69 73 20  69 73 20 74 68 65 20 6f  | ; this is the o|
00004eb0  6e 6c 79 20 6c 65 76 65  6c 20 61 74 20 77 68 69  |nly level at whi|
00004ec0  63 68 20 69 6e 76 65 72  73 69 6f 6e 20 73 68 6f  |ch inversion sho|
00004ed0  75 6c 64 20 6e 6f 74 20  61 70 70 6c 79 0d 1d f6  |uld not apply...|
00004ee0  2a 20 20 53 54 52 20 52  31 2c 5b 6d 61 69 6e 76  |*  STR R1,[mainv|
00004ef0  61 72 73 2c 23 76 61 72  73 5f 6d 6f 76 65 73 65  |ars,#vars_movese|
00004f00  6c 65 63 74 65 64 5d 0d  1e 00 23 20 20 53 54 52  |lected]...#  STR|
00004f10  20 52 30 2c 5b 6d 61 69  6e 76 61 72 73 2c 23 76  | R0,[mainvars,#v|
00004f20  61 72 73 5f 74 65 73 74  31 5d 0d 1e 0a 23 20 20  |ars_test1]...#  |
00004f30  53 54 52 20 52 31 2c 5b  6d 61 69 6e 76 61 72 73  |STR R1,[mainvars|
00004f40  2c 23 76 61 72 73 5f 74  65 73 74 32 5d 0d 1e 14  |,#vars_test2]...|
00004f50  19 20 20 53 57 49 20 22  48 6f 75 72 67 6c 61 73  |.  SWI "Hourglas|
00004f60  73 5f 4f 66 66 22 0d 1e  1e 19 20 20 4c 44 4d 46  |s_Off"....  LDMF|
00004f70  44 20 28 73 74 61 63 6b  29 21 2c 7b 50 43 7d 0d  |D (stack)!,{PC}.|
00004f80  1e 28 05 20 0d 1e 32 05  20 0d 1e 3c 05 20 0d 1e  |.(. ..2. ..<. ..|
00004f90  46 05 20 0d 1e 50 5d 20  20 2e 67 65 6e 65 72 61  |F. ..P]  .genera|
00004fa0  6c 5f 73 63 61 6e 20 20  20 20 20 20 20 20 20 20  |l_scan          |
00004fb0  20 20 20 20 20 3b 20 20  6f 6e 20 65 6e 74 72 79  |     ;  on entry|
00004fc0  20 52 30 20 3d 20 63 75  74 6f 66 66 20 28 69 65  | R0 = cutoff (ie|
00004fd0  20 62 65 73 74 20 73 63  6f 72 65 20 66 72 6f 6d  | best score from|
00004fe0  20 70 72 65 76 69 6f 75  73 20 6c 65 76 65 6c 29  | previous level)|
00004ff0  0d 1e 5a 4f 20 20 3b 20  20 20 20 20 20 20 20 20  |..ZO  ;         |
00005000  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005010  20 20 3b 20 6d 6f 76 65  64 20 69 6e 74 6f 20 52  |  ; moved into R|
00005020  38 20 61 73 20 73 63 6f  72 65 20 76 61 6c 69 64  |8 as score valid|
00005030  20 66 6f 72 20 74 68 69  73 20 6c 65 76 65 6c 0d  | for this level.|
00005040  1e 64 22 20 20 53 54 4d  46 44 20 28 73 74 61 63  |.d"  STMFD (stac|
00005050  6b 29 21 2c 7b 52 32 2d  52 31 31 2c 6c 69 6e 6b  |k)!,{R2-R11,link|
00005060  7d 0d 1e 6e 12 20 20 52  53 42 20 52 38 2c 52 30  |}..n.  RSB R8,R0|
00005070  2c 23 30 0d 1e 78 55 20  20 53 55 42 53 20 73 63  |,#0..xU  SUBS sc|
00005080  61 6e 5f 64 65 70 74 68  2c 73 63 61 6e 5f 64 65  |an_depth,scan_de|
00005090  70 74 68 2c 23 31 3a 42  4c 54 20 73 63 61 6e 5f  |pth,#1:BLT scan_|
000050a0  64 6f 65 76 61 6c 20 20  3b 20 20 6d 75 73 74 20  |doeval  ;  must |
000050b0  62 65 20 62 65 66 6f 72  65 20 6d 6f 76 65 6e 75  |be before movenu|
000050c0  6d 62 65 72 20 41 44 44  0d 1e 82 2c 20 20 41 44  |mber ADD...,  AD|
000050d0  44 20 73 63 61 6e 5f 6d  6f 76 65 6e 75 6d 62 65  |D scan_movenumbe|
000050e0  72 2c 73 63 61 6e 5f 6d  6f 76 65 6e 75 6d 62 65  |r,scan_movenumbe|
000050f0  72 2c 23 31 0d 1e 8c 58  20 20 42 4c 20 73 63 61  |r,#1...X  BL sca|
00005100  6e 5f 6c 6f 73 65 74 65  73 74 3a 42 45 51 20 73  |n_losetest:BEQ s|
00005110  63 61 6e 5f 64 6f 6c 6f  73 65 20 20 3b 20 20 63  |can_dolose  ;  c|
00005120  68 65 63 6b 20 77 68 65  74 68 65 72 20 70 6c 61  |heck whether pla|
00005130  79 65 72 20 74 6f 20 6d  6f 76 65 20 68 61 73 20  |yer to move has |
00005140  69 6e 20 66 61 63 74 20  6c 6f 73 74 0d 1e 96 59  |in fact lost...Y|
00005150  20 20 3b 20 6c 6f 73 65  20 74 65 73 74 20 69 73  |  ; lose test is|
00005160  20 6e 65 63 65 73 73 61  72 79 20 74 6f 20 65 6e  | necessary to en|
00005170  63 6f 75 72 61 67 65 20  63 6f 6d 70 75 74 65 72  |courage computer|
00005180  20 74 6f 20 67 6f 20 66  6f 72 20 74 68 65 20 51  | to go for the Q|
00005190  55 49 43 4b 45 53 54 20  77 69 6e 2c 20 61 6e 64  |UICKEST win, and|
000051a0  20 74 68 75 73 0d 1e a0  37 20 20 3b 20 73 74 6f  | thus...7  ; sto|
000051b0  70 20 69 74 20 64 69 74  68 65 72 69 6e 67 20 6f  |p it dithering o|
000051c0  6e 63 65 20 69 74 20 6b  6e 6f 77 73 20 74 68 61  |nce it knows tha|
000051d0  74 20 69 74 20 63 61 6e  20 77 69 6e 0d 1e aa 1e  |t it can win....|
000051e0  20 20 43 4d 50 53 20 73  63 61 6e 5f 6d 6f 76 65  |  CMPS scan_move|
000051f0  6e 75 6d 62 65 72 2c 23  31 38 0d 1e b4 16 20 20  |number,#18....  |
00005200  42 47 54 20 73 63 61 6e  5f 64 6f 5f 6d 6f 76 65  |BGT scan_do_move|
00005210  0d 1e be 19 20 20 42 20  73 63 61 6e 5f 64 6f 5f  |....  B scan_do_|
00005220  70 6c 61 63 65 6d 65 6e  74 0d 1e c8 05 20 0d 1e  |placement.... ..|
00005230  d2 05 20 0d 1e dc 3d 20  20 2e 67 65 6e 65 72 61  |.. ...=  .genera|
00005240  6c 5f 73 63 61 6e 5f 72  65 74 75 72 6e 73 5f 68  |l_scan_returns_h|
00005250  65 72 65 20 3b 20 52 30  20 3d 20 76 61 6c 75 65  |ere ; R0 = value|
00005260  2c 20 52 31 20 3d 20 6d  6f 76 65 20 63 6f 64 65  |, R1 = move code|
00005270  0d 1e e6 45 20 20 52 53  42 20 52 30 2c 52 30 2c  |...E  RSB R0,R0,|
00005280  23 30 20 3b 20 76 61 6c  75 65 20 74 6f 20 63 61  |#0 ; value to ca|
00005290  6c 6c 69 6e 67 20 70 6c  61 79 65 72 20 69 73 20  |lling player is |
000052a0  2d 76 61 6c 75 65 20 74  6f 20 74 68 69 73 20 70  |-value to this p|
000052b0  6c 61 79 65 72 0d 1e f0  20 20 20 4c 44 4d 46 44  |layer...   LDMFD|
000052c0  20 28 73 74 61 63 6b 29  21 2c 7b 52 32 2d 52 31  | (stack)!,{R2-R1|
000052d0  31 2c 50 43 7d 0d 1e fa  05 20 0d 1f 04 05 20 0d  |1,PC}.... .... .|
000052e0  1f 0e 33 20 20 2e 73 63  61 6e 5f 64 6f 6c 6f 73  |..3  .scan_dolos|
000052f0  65 20 20 20 20 20 20 20  3b 20 20 73 63 61 6e 20  |e       ;  scan |
00005300  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 20 6c 6f  |************* lo|
00005310  73 65 0d 1f 18 58 20 20  4d 56 4e 20 52 30 2c 23  |se...X  MVN R0,#|
00005320  36 35 35 33 36 3a 53 55  42 20 52 30 2c 52 30 2c  |65536:SUB R0,R0,|
00005330  73 63 61 6e 5f 64 65 70  74 68 2c 4c 53 4c 20 23  |scan_depth,LSL #|
00005340  38 20 20 3b 20 20 63 6f  6d 70 75 74 65 72 20 6d  |8  ;  computer m|
00005350  75 73 74 20 66 61 76 6f  75 72 20 74 68 65 20 46  |ust favour the F|
00005360  41 53 54 45 53 54 20 77  69 6e 0d 1f 22 4f 20 20  |ASTEST win.."O  |
00005370  3b 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;               |
00005380  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005390  20 20 20 20 20 20 20 20  20 20 20 3b 20 74 6f 20  |           ; to |
000053a0  70 72 65 76 65 6e 74 20  65 74 65 72 6e 61 6c 20  |prevent eternal |
000053b0  64 69 74 68 65 72 69 6e  67 0d 1f 2c 21 20 20 42  |dithering..,!  B|
000053c0  20 67 65 6e 65 72 61 6c  5f 73 63 61 6e 5f 72 65  | general_scan_re|
000053d0  74 75 72 6e 73 5f 68 65  72 65 0d 1f 36 05 20 0d  |turns_here..6. .|
000053e0  1f 40 05 20 0d 1f 4a 30  20 20 2e 73 63 61 6e 5f  |.@. ..J0  .scan_|
000053f0  64 6f 65 76 61 6c 20 20  20 20 20 20 20 3b 20 20  |doeval       ;  |
00005400  20 20 20 73 63 61 6e 20  2a 2a 2a 2a 2a 2a 2a 20  |   scan ******* |
00005410  65 76 61 6c 0d 1f 54 17  20 20 4d 4f 56 20 52 33  |eval..T.  MOV R3|
00005420  2c 73 63 61 6e 5f 62 6f  61 72 64 0d 1f 5e 1f 20  |,scan_board..^. |
00005430  20 41 44 44 20 52 31 2c  73 63 61 6e 5f 6d 6f 76  | ADD R1,scan_mov|
00005440  65 6e 75 6d 62 65 72 2c  23 31 0d 1f 68 11 20 20  |enumber,#1..h.  |
00005450  42 4c 20 65 76 61 6c 75  61 74 65 0d 1f 72 21 20  |BL evaluate..r! |
00005460  20 42 20 67 65 6e 65 72  61 6c 5f 73 63 61 6e 5f  | B general_scan_|
00005470  72 65 74 75 72 6e 73 5f  68 65 72 65 0d 1f 7c 05  |returns_here..|.|
00005480  20 0d 1f 86 24 20 20 43  4d 50 53 20 52 30 2c 23  | ...$  CMPS R0,#|
00005490  36 35 35 33 36 3a 4d 4f  56 47 54 20 52 30 2c 23  |65536:MOVGT R0,#|
000054a0  36 35 35 33 36 0d 1f 90  24 20 20 43 4d 4e 53 20  |65536...$  CMNS |
000054b0  52 30 2c 23 36 35 35 33  36 3a 4d 56 4e 4c 54 20  |R0,#65536:MVNLT |
000054c0  52 30 2c 23 36 35 35 33  36 0d 1f 9a 5d 20 20 3b  |R0,#65536...]  ;|
000054d0  20 6c 69 6d 69 74 20 74  6f 20 77 69 6e 2f 6c 6f  | limit to win/lo|
000054e0  73 65 20 73 63 6f 72 65  73 2e 20 20 4f 6e 6c 79  |se scores.  Only|
000054f0  20 74 68 65 20 6c 6f 73  65 20 74 65 73 74 65 72  | the lose tester|
00005500  20 63 61 6e 20 61 77 61  72 64 20 6d 6f 72 65 20  | can award more |
00005510  74 68 61 6e 20 74 68 69  73 20 28 27 63 6f 73 20  |than this ('cos |
00005520  73 70 65 65 64 29 0d 1f  a4 05 20 0d 1f ae 05 20  |speed).... .... |
00005530  0d 1f b8 23 20 20 3b 20  52 38 20 3d 20 63 75 74  |...#  ; R8 = cut|
00005540  6f 66 66 20 28 70 72 75  6e 69 6e 67 29 20 76 61  |off (pruning) va|
00005550  6c 75 65 0d 1f c2 20 20  20 3b 20 52 37 20 3d 20  |lue...   ; R7 = |
00005560  73 71 75 61 72 65 20 69  6e 64 65 78 20 6e 75 6d  |square index num|
00005570  62 65 72 0d 1f cc 20 20  20 3b 20 52 36 20 3d 20  |ber...   ; R6 = |
00005580  73 71 75 61 72 65 5f 64  61 74 61 5f 70 6f 69 6e  |square_data_poin|
00005590  74 65 72 0d 1f d6 17 20  20 3b 20 52 35 20 3d 20  |ter....  ; R5 = |
000055a0  62 65 73 74 20 73 63 6f  72 65 0d 1f e0 16 20 20  |best score....  |
000055b0  3b 20 52 34 20 3d 20 62  65 73 74 20 6d 6f 76 65  |; R4 = best move|
000055c0  0d 1f ea 36 20 20 3b 20  52 33 20 3d 20 73 75 62  |...6  ; R3 = sub|
000055d0  2d 6d 6f 76 65 20 69 6e  64 65 78 20 6e 75 6d 62  |-move index numb|
000055e0  65 72 20 28 30 2d 3e 33  20 62 79 20 64 69 72 65  |er (0->3 by dire|
000055f0  63 74 69 6f 6e 29 0d 1f  f4 05 20 0d 1f fe 41 20  |ction).... ...A |
00005600  20 2e 73 63 61 6e 5f 64  6f 5f 6d 6f 76 65 20 20  | .scan_do_move  |
00005610  20 20 20 20 20 20 3b 20  20 20 20 20 20 20 20 20  |      ;         |
00005620  20 73 63 61 6e 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | scan **********|
00005630  2a 2a 20 6d 6f 76 65 20  6d 6f 76 65 0d 20 08 1d  |** move move. ..|
00005640  20 20 4d 4f 56 20 52 34  2c 23 30 3a 4d 56 4e 20  |  MOV R4,#0:MVN |
00005650  52 35 2c 23 31 3c 3c 32  30 0d 20 12 28 20 20 4c  |R5,#1<<20. .(  L|
00005660  44 52 20 52 36 2c 5b 6d  61 69 6e 76 61 72 73 2c  |DR R6,[mainvars,|
00005670  23 76 61 72 73 5f 73 71  75 61 72 65 64 61 74 61  |#vars_squaredata|
00005680  5d 0d 20 1c 0f 20 20 4d  4f 56 20 52 37 2c 23 31  |]. ..  MOV R7,#1|
00005690  0d 20 26 27 20 20 80 53  20 52 33 2c 73 63 61 6e  |. &'  .S R3,scan|
000056a0  5f 6d 6f 76 65 6e 75 6d  62 65 72 2c 23 31 3a ec  |_movenumber,#1:.|
000056b0  51 20 52 33 2c 23 32 0d  20 30 05 20 0d 20 3a 12  |Q R3,#2. 0. . :.|
000056c0  20 20 41 44 44 20 52 36  2c 52 36 2c 23 34 0d 20  |  ADD R6,R6,#4. |
000056d0  44 14 20 20 2e 6d 6f 76  65 5f 6d 61 69 6e 6c 6f  |D.  .move_mainlo|
000056e0  6f 70 0d 20 4e 05 20 0d  20 58 1d 20 20 4c 44 52  |op. N. . X.  LDR|
000056f0  42 20 52 31 2c 5b 73 63  61 6e 5f 62 6f 61 72 64  |B R1,[scan_board|
00005700  2c 52 37 5d 0d 20 62 25  20 20 a4 73 63 61 6e 5f  |,R7]. b%  .scan_|
00005710  74 75 72 6e 5f 70 69 65  63 65 20 3b 20 70 75 74  |turn_piece ; put|
00005720  73 20 69 6e 74 6f 20 52  30 0d 20 6c 31 20 20 43  |s into R0. l1  C|
00005730  4d 50 53 20 52 30 2c 52  31 3a 41 44 44 4e 45 20  |MPS R0,R1:ADDNE |
00005740  52 36 2c 52 36 2c 23 34  3a 42 4e 45 20 6d 6f 76  |R6,R6,#4:BNE mov|
00005750  65 5f 6d 61 69 6e 73 6b  69 70 0d 20 76 05 20 0d  |e_mainskip. v. .|
00005760  20 80 05 20 0d 20 8a 13  20 20 2e 6d 6f 76 65 5f  | .. . ..  .move_|
00005770  73 75 62 6c 6f 6f 70 0d  20 94 22 20 20 4c 44 52  |subloop. ."  LDR|
00005780  42 20 52 32 2c 5b 52 36  5d 2c 23 31 3a 43 4d 50  |B R2,[R6],#1:CMP|
00005790  53 20 52 32 2c 23 26 37  46 0d 20 9e 3d 20 20 4c  |S R2,#&7F. .=  L|
000057a0  44 52 4c 45 42 20 52 30  2c 5b 73 63 61 6e 5f 62  |DRLEB R0,[scan_b|
000057b0  6f 61 72 64 2c 52 32 5d  3a 43 4d 50 4c 45 53 20  |oard,R2]:CMPLES |
000057c0  52 30 2c 23 30 3a 42 4e  45 20 6d 6f 76 65 5f 73  |R0,#0:BNE move_s|
000057d0  75 62 73 6b 69 70 0d 20  a8 05 20 0d 20 b2 2e 20  |ubskip. .. . .. |
000057e0  20 a4 73 63 61 6e 5f 74  75 72 6e 5f 70 69 65 63  | .scan_turn_piec|
000057f0  65 3a 53 54 52 42 20 52  30 2c 5b 73 63 61 6e 5f  |e:STRB R0,[scan_|
00005800  62 6f 61 72 64 2c 52 32  5d 0d 20 bc 44 20 20 4d  |board,R2]. .D  M|
00005810  4f 56 20 52 30 2c 23 30  3a 53 54 52 42 20 52 30  |OV R0,#0:STRB R0|
00005820  2c 5b 73 63 61 6e 5f 62  6f 61 72 64 2c 52 37 5d  |,[scan_board,R7]|
00005830  20 3b 20 70 69 65 63 65  20 6d 6f 76 65 64 20 69  | ; piece moved i|
00005840  6e 74 6f 20 6e 65 77 20  70 6c 61 63 65 0d 20 c6  |nto new place. .|
00005850  05 20 0d 20 d0 1f 20 20  4d 4f 56 20 52 31 2c 52  |. . ..  MOV R1,R|
00005860  32 20 3b 20 74 61 72 67  65 74 20 73 71 75 61 72  |2 ; target squar|
00005870  65 0d 20 da 17 20 20 42  4c 20 73 63 61 6e 5f 69  |e. ..  BL scan_i|
00005880  73 5f 69 6e 6d 69 6c 6c  0d 20 e4 2d 20 20 4d 4f  |s_inmill. .-  MO|
00005890  56 20 52 30 2c 52 35 20  3b 20 63 75 74 6f 66 66  |V R0,R5 ; cutoff|
000058a0  20 76 61 6c 75 65 20 66  6f 72 20 6e 65 78 74 20  | value for next |
000058b0  6c 65 76 65 6c 0d 20 ee  19 20 20 42 4c 45 51 20  |level. ..  BLEQ |
000058c0  73 63 61 6e 5f 70 6f 75  6e 64 6d 6f 76 65 0d 20  |scan_poundmove. |
000058d0  f8 36 20 20 42 4c 20 67  65 6e 65 72 61 6c 5f 73  |.6  BL general_s|
000058e0  63 61 6e 20 20 20 3b 20  20 67 65 74 20 76 61 6c  |can   ;  get val|
000058f0  75 65 20 6f 66 20 74 68  69 73 20 6e 65 77 20 62  |ue of this new b|
00005900  6f 61 72 64 0d 21 02 25  20 20 3b 20 72 65 74 75  |oard.!.%  ; retu|
00005910  72 6e 73 20 68 65 72 65  20 66 72 6f 6d 20 65 69  |rns here from ei|
00005920  74 68 65 72 20 63 61 6c  6c 0d 21 0c 17 20 20 4d  |ther call.!..  M|
00005930  4f 56 20 52 31 2c 52 31  2c 4c 53 52 20 23 31 36  |OV R1,R1,LSR #16|
00005940  0d 21 16 10 20 20 43 4d  50 53 20 52 30 2c 52 35  |.!..  CMPS R0,R5|
00005950  0d 21 20 11 20 20 4d 4f  56 47 54 20 52 35 2c 52  |.! .  MOVGT R5,R|
00005960  30 0d 21 2a 32 20 20 41  44 44 47 54 20 52 34 2c  |0.!*2  ADDGT R4,|
00005970  52 37 2c 52 31 2c 4c 53  4c 20 23 31 36 3a 41 44  |R7,R1,LSL #16:AD|
00005980  44 47 54 20 52 34 2c 52  34 2c 52 32 2c 4c 53 4c  |DGT R4,R4,R2,LSL|
00005990  20 23 38 0d 21 34 05 20  0d 21 3e 27 20 20 4d 4f  | #8.!4. .!>'  MO|
000059a0  56 20 52 30 2c 23 30 3a  53 54 52 42 20 52 30 2c  |V R0,#0:STRB R0,|
000059b0  5b 73 63 61 6e 5f 62 6f  61 72 64 2c 52 32 5d 0d  |[scan_board,R2].|
000059c0  21 48 2e 20 20 a4 73 63  61 6e 5f 74 75 72 6e 5f  |!H.  .scan_turn_|
000059d0  70 69 65 63 65 3a 53 54  52 42 20 52 30 2c 5b 73  |piece:STRB R0,[s|
000059e0  63 61 6e 5f 62 6f 61 72  64 2c 52 37 5d 0d 21 52  |can_board,R7].!R|
000059f0  22 20 20 43 4d 50 53 20  52 35 2c 52 38 3a 42 47  |"  CMPS R5,R8:BG|
00005a00  45 20 6d 6f 76 65 5f 62  72 65 61 6b 6f 75 74 0d  |E move_breakout.|
00005a10  21 5c 05 20 0d 21 66 13  20 20 2e 6d 6f 76 65 5f  |!\. .!f.  .move_|
00005a20  73 75 62 73 6b 69 70 0d  21 70 4f 20 20 54 53 54  |subskip.!pO  TST|
00005a30  53 20 52 36 2c 23 33 3a  42 4e 45 20 6d 6f 76 65  |S R6,#3:BNE move|
00005a40  5f 73 75 62 6c 6f 6f 70  20 3b 20 73 74 6f 70 20  |_subloop ; stop |
00005a50  6f 6e 63 65 20 61 6c 69  67 6e 65 64 20 6f 6e 20  |once aligned on |
00005a60  74 68 65 20 6e 65 78 74  20 77 6f 72 64 20 62 6f  |the next word bo|
00005a70  75 6e 64 61 72 79 0d 21  7a 3f 20 20 3b 20 20 20  |undary.!z?  ;   |
00005a80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005a90  20 20 20 20 20 20 20 20  3b 20 69 65 20 64 61 74  |        ; ie dat|
00005aa0  61 20 66 6f 72 20 74 68  65 20 6e 65 78 74 20 73  |a for the next s|
00005ab0  71 75 61 72 65 0d 21 84  05 20 0d 21 8e 14 20 20  |quare.!.. .!..  |
00005ac0  2e 6d 6f 76 65 5f 6d 61  69 6e 73 6b 69 70 0d 21  |.move_mainskip.!|
00005ad0  98 30 20 20 41 44 44 20  52 37 2c 52 37 2c 23 31  |.0  ADD R7,R7,#1|
00005ae0  3a 43 4d 50 53 20 52 37  2c 23 32 34 3a 42 4c 45  |:CMPS R7,#24:BLE|
00005af0  20 6d 6f 76 65 5f 6d 61  69 6e 6c 6f 6f 70 0d 21  | move_mainloop.!|
00005b00  a2 05 20 0d 21 ac 44 20  20 2e 6d 6f 76 65 5f 62  |.. .!.D  .move_b|
00005b10  72 65 61 6b 6f 75 74 20  3b 20 70 72 75 6e 65 72  |reakout ; pruner|
00005b20  20 68 61 73 20 74 65 72  6e 6d 69 6e 61 74 65 64  | has ternminated|
00005b30  20 74 68 65 20 73 63 61  6e 20 61 74 20 74 68 69  | the scan at thi|
00005b40  73 20 6c 65 76 65 6c 0d  21 b6 19 20 20 4d 4f 56  |s level.!..  MOV|
00005b50  20 52 30 2c 52 35 3a 4d  4f 56 20 52 31 2c 52 34  | R0,R5:MOV R1,R4|
00005b60  0d 21 c0 59 20 20 43 4d  4e 53 20 52 30 2c 23 31  |.!.Y  CMNS R0,#1|
00005b70  3c 3c 31 39 3a 4d 56 4e  4c 54 20 52 30 2c 23 36  |<<19:MVNLT R0,#6|
00005b80  35 35 33 36 20 3b 20 69  66 20 6e 6f 20 6d 6f 76  |5536 ; if no mov|
00005b90  65 73 20 74 68 65 6e 20  49 20 68 61 76 65 20 6c  |es then I have l|
00005ba0  6f 73 74 2c 20 67 69 76  65 20 6c 6f 73 65 20 76  |ost, give lose v|
00005bb0  61 6c 2c 20 ac 20 2d bd  4d 0d 21 ca 21 20 20 42  |al, . -.M.!.!  B|
00005bc0  20 67 65 6e 65 72 61 6c  5f 73 63 61 6e 5f 72 65  | general_scan_re|
00005bd0  74 75 72 6e 73 5f 68 65  72 65 0d 21 d4 05 20 0d  |turns_here.!.. .|
00005be0  21 de 05 20 0d 21 e8 05  20 0d 21 f2 19 20 20 3b  |!.. .!.. .!..  ;|
00005bf0  20 52 38 20 3d 20 63 75  74 6f 66 66 20 76 61 6c  | R8 = cutoff val|
00005c00  75 65 0d 21 fc 20 20 20  3b 20 52 37 20 3d 20 73  |ue.!.   ; R7 = s|
00005c10  71 75 61 72 65 20 69 6e  64 65 78 20 6e 75 6d 62  |quare index numb|
00005c20  65 72 0d 22 06 20 20 20  3b 20 52 36 20 3d 20 73  |er.".   ; R6 = s|
00005c30  71 75 61 72 65 5f 64 61  74 61 5f 70 6f 69 6e 74  |quare_data_point|
00005c40  65 72 0d 22 10 17 20 20  3b 20 52 35 20 3d 20 62  |er."..  ; R5 = b|
00005c50  65 73 74 20 73 63 6f 72  65 0d 22 1a 16 20 20 3b  |est score."..  ;|
00005c60  20 52 34 20 3d 20 62 65  73 74 20 6d 6f 76 65 0d  | R4 = best move.|
00005c70  22 24 3e 20 20 2e 73 63  61 6e 5f 64 6f 5f 70 6c  |"$>  .scan_do_pl|
00005c80  61 63 65 6d 65 6e 74 20  20 20 20 20 3b 20 20 20  |acement     ;   |
00005c90  20 20 20 20 73 63 61 6e  20 2a 2a 2a 2a 2a 2a 2a  |    scan *******|
00005ca0  2a 2a 2a 20 70 6c 61 63  65 6d 65 6e 74 0d 22 2e  |*** placement.".|
00005cb0  0f 20 20 4d 4f 56 20 52  34 2c 23 30 0d 22 38 13  |.  MOV R4,#0."8.|
00005cc0  20 20 4d 56 4e 20 52 35  2c 23 31 3c 3c 32 30 0d  |  MVN R5,#1<<20.|
00005cd0  22 42 10 20 20 4d 4f 56  20 52 37 2c 23 32 34 0d  |"B.  MOV R7,#24.|
00005ce0  22 4c 28 20 20 4c 44 52  20 52 36 2c 5b 6d 61 69  |"L(  LDR R6,[mai|
00005cf0  6e 76 61 72 73 2c 23 76  61 72 73 5f 73 71 75 61  |nvars,#vars_squa|
00005d00  72 65 64 61 74 61 5d 0d  22 56 05 20 0d 22 60 11  |redata]."V. ."`.|
00005d10  20 20 2e 70 6c 61 63 65  5f 6c 6f 6f 70 0d 22 6a  |  .place_loop."j|
00005d20  1d 20 20 4c 44 52 42 20  52 30 2c 5b 73 63 61 6e  |.  LDRB R0,[scan|
00005d30  5f 62 6f 61 72 64 2c 52  37 5d 0d 22 74 28 20 20  |_board,R7]."t(  |
00005d40  43 4d 50 53 20 52 30 2c  23 30 3a 42 4e 45 20 70  |CMPS R0,#0:BNE p|
00005d50  6c 61 63 65 5f 6e 6f 74  74 68 69 73 73 71 75 61  |lace_notthissqua|
00005d60  72 65 0d 22 7e 05 20 0d  22 88 16 20 20 a4 73 63  |re."~. ."..  .sc|
00005d70  61 6e 5f 74 75 72 6e 5f  70 69 65 63 65 0d 22 92  |an_turn_piece.".|
00005d80  42 20 20 53 54 52 42 20  52 30 2c 5b 73 63 61 6e  |B  STRB R0,[scan|
00005d90  5f 62 6f 61 72 64 2c 52  37 5d 20 20 20 20 20 20  |_board,R7]      |
00005da0  20 20 20 3b 20 20 70 69  65 63 65 20 69 6e 73 65  |   ;  piece inse|
00005db0  72 74 65 64 20 69 6e 74  6f 20 62 6f 61 72 64 0d  |rted into board.|
00005dc0  22 9c 0f 20 20 4d 4f 56  20 52 31 2c 52 37 0d 22  |"..  MOV R1,R7."|
00005dd0  a6 17 20 20 42 4c 20 73  63 61 6e 5f 69 73 5f 69  |..  BL scan_is_i|
00005de0  6e 6d 69 6c 6c 0d 22 b0  0f 20 20 4d 4f 56 20 52  |nmill."..  MOV R|
00005df0  30 2c 52 35 0d 22 ba 19  20 20 42 4c 45 51 20 73  |0,R5."..  BLEQ s|
00005e00  63 61 6e 5f 70 6f 75 6e  64 6d 6f 76 65 0d 22 c4  |can_poundmove.".|
00005e10  36 20 20 42 4c 20 67 65  6e 65 72 61 6c 5f 73 63  |6  BL general_sc|
00005e20  61 6e 20 20 20 3b 20 20  67 65 74 20 76 61 6c 75  |an   ;  get valu|
00005e30  65 20 6f 66 20 74 68 69  73 20 6e 65 77 20 62 6f  |e of this new bo|
00005e40  61 72 64 0d 22 ce 34 20  20 4d 4f 56 20 52 31 2c  |ard.".4  MOV R1,|
00005e50  52 31 2c 4c 53 52 20 23  31 36 20 3b 20 6f 6e 6c  |R1,LSR #16 ; onl|
00005e60  79 20 6b 65 65 70 20 70  6f 75 6e 64 69 6e 67 20  |y keep pounding |
00005e70  73 65 63 74 69 6f 6e 0d  22 d8 10 20 20 43 4d 50  |section."..  CMP|
00005e80  53 20 52 30 2c 52 35 0d  22 e2 56 20 20 4d 4f 56  |S R0,R5.".V  MOV|
00005e90  47 54 20 52 35 2c 52 30  3a 41 44 44 47 54 20 52  |GT R5,R0:ADDGT R|
00005ea0  34 2c 52 37 2c 52 31 2c  4c 53 4c 20 23 31 36 20  |4,R7,R1,LSL #16 |
00005eb0  20 3b 20 69 66 20 73 63  6f 72 65 20 77 61 73 20  | ; if score was |
00005ec0  62 65 74 74 65 72 20 74  68 61 6e 20 6f 74 68 65  |better than othe|
00005ed0  72 73 20 74 68 65 6e 20  61 64 6f 70 74 0d 22 ec  |rs then adopt.".|
00005ee0  05 20 0d 22 f6 27 20 20  4d 4f 56 20 52 32 2c 23  |. .".'  MOV R2,#|
00005ef0  30 3a 53 54 52 42 20 52  32 2c 5b 73 63 61 6e 5f  |0:STRB R2,[scan_|
00005f00  62 6f 61 72 64 2c 52 37  5d 0d 23 00 23 20 20 43  |board,R7].#.#  C|
00005f10  4d 50 53 20 52 35 2c 52  38 3a 42 47 45 20 70 6c  |MPS R5,R8:BGE pl|
00005f20  61 63 65 5f 62 72 65 61  6b 6f 75 74 0d 23 0a 05  |ace_breakout.#..|
00005f30  20 0d 23 14 1a 20 20 2e  70 6c 61 63 65 5f 6e 6f  | .#..  .place_no|
00005f40  74 74 68 69 73 73 71 75  61 72 65 0d 23 1e 22 20  |tthissquare.#." |
00005f50  20 53 55 42 53 20 52 37  2c 52 37 2c 23 31 3a 42  | SUBS R7,R7,#1:B|
00005f60  4e 45 20 70 6c 61 63 65  5f 6c 6f 6f 70 0d 23 28  |NE place_loop.#(|
00005f70  05 20 0d 23 32 15 20 20  2e 70 6c 61 63 65 5f 62  |. .#2.  .place_b|
00005f80  72 65 61 6b 6f 75 74 0d  23 3c 1c 20 20 4d 4f 56  |reakout.#<.  MOV|
00005f90  20 52 30 2c 52 35 20 3b  20 62 65 73 74 20 73 63  | R0,R5 ; best sc|
00005fa0  6f 72 65 0d 23 46 2c 20  20 4d 4f 56 20 52 31 2c  |ore.#F,  MOV R1,|
00005fb0  52 34 20 3b 20 62 65 73  74 20 6d 6f 76 65 20 28  |R4 ; best move (|
00005fc0  69 65 20 63 68 6f 73 65  6e 20 6d 6f 76 65 29 0d  |ie chosen move).|
00005fd0  23 50 21 20 20 42 20 67  65 6e 65 72 61 6c 5f 73  |#P!  B general_s|
00005fe0  63 61 6e 5f 72 65 74 75  72 6e 73 5f 68 65 72 65  |can_returns_here|
00005ff0  0d 23 5a 05 20 0d 23 64  05 20 0d 23 6e 05 20 0d  |.#Z. .#d. .#n. .|
00006000  23 78 05 20 0d 23 82 05  20 0d 23 8c 37 20 20 3b  |#x. .#.. .#.7  ;|
00006010  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
00006020  2a 20 73 63 61 6e 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |* scan *********|
00006030  2a 2a 2a 2a 2a 20 70 6f  75 6e 64 20 6d 6f 76 65  |***** pound move|
00006040  0d 23 96 41 20 20 3b 20  74 68 65 20 66 6f 6c 6c  |.#.A  ; the foll|
00006050  6f 77 69 6e 67 20 77 6f  72 6b 20 69 6e 20 63 6f  |owing work in co|
00006060  6e 6a 75 6e 63 74 69 6f  6e 20 77 69 74 68 20 74  |njunction with t|
00006070  68 65 20 70 72 65 76 69  6f 75 73 20 6c 65 76 65  |he previous leve|
00006080  6c 0d 23 a0 13 20 20 3b  20 72 38 20 3d 20 63 75  |l.#..  ; r8 = cu|
00006090  74 6f 66 66 0d 23 aa 17  20 20 3b 20 72 35 20 3d  |toff.#..  ; r5 =|
000060a0  20 62 65 73 74 20 73 63  6f 72 65 0d 23 b4 52 20  | best score.#.R |
000060b0  20 3b 20 61 74 20 65 6e  64 20 6f 66 20 74 68 69  | ; at end of thi|
000060c0  73 20 72 6f 75 74 69 6e  65 20 72 65 74 75 72 6e  |s routine return|
000060d0  20 c7 97 20 62 65 73 74  20 73 63 6f 72 65 20 69  | .. best score i|
000060e0  6e 20 52 30 2e 20 20 49  66 20 74 68 69 73 20 69  |n R0.  If this i|
000060f0  73 20 47 54 20 74 68 61  6e 20 6f 6c 64 0d 23 be  |s GT than old.#.|
00006100  63 20 20 3b 20 20 62 65  73 74 20 73 63 6f 72 65  |c  ;  best score|
00006110  2c 20 74 68 65 6e 20 63  61 6c 6c 65 72 20 77 69  |, then caller wi|
00006120  6c 6c 20 61 64 6f 70 74  20 74 68 69 73 20 6d 6f  |ll adopt this mo|
00006130  76 65 2e 20 20 49 66 20  65 71 75 61 6c 20 28 69  |ve.  If equal (i|
00006140  65 20 61 6c 6c 20 70 6f  75 6e 64 69 6e 67 20 6d  |e all pounding m|
00006150  6f 76 65 73 20 4c 45 29  20 69 67 6e 6f 72 65 64  |oves LE) ignored|
00006160  0d 23 c8 07 20 20 3b 0d  23 d2 5a 20 20 3b 20 72  |.#..  ;.#.Z  ; r|
00006170  36 20 68 61 73 20 64 69  66 66 65 72 65 6e 74 20  |6 has different |
00006180  6d 65 61 6e 69 6e 67 20  68 65 72 65 2e 20 20 20  |meaning here.   |
00006190  72 33 2c 72 37 2c 72 34  20 68 61 76 65 20 73 61  |r3,r7,r4 have sa|
000061a0  6d 65 20 6d 65 61 6e 69  6e 67 73 2c 20 62 75 74  |me meanings, but|
000061b0  20 73 65 70 61 72 61 74  65 20 76 61 6c 75 65 73  | separate values|
000061c0  2e 0d 23 dc 05 20 0d 23  e6 50 20 20 2e 73 63 61  |..#.. .#.P  .sca|
000061d0  6e 5f 70 6f 75 6e 64 6d  6f 76 65 20 3b 20 4e 42  |n_poundmove ; NB|
000061e0  20 72 65 74 75 72 6e 20  74 6f 20 52 31 34 2b 34  | return to R14+4|
000061f0  2c 20 69 6e 20 6f 72 64  65 72 20 74 6f 20 73 6b  |, in order to sk|
00006200  69 70 20 74 68 65 20 42  4c 20 67 65 6e 65 72 61  |ip the BL genera|
00006210  6c 5f 73 63 61 6e 0d 23  f0 14 20 20 41 44 44 20  |l_scan.#..  ADD |
00006220  52 31 34 2c 52 31 34 2c  23 34 0d 23 fa 41 20 20  |R14,R14,#4.#.A  |
00006230  3b 20 74 75 72 6e 6e 75  6d 62 65 72 20 73 74 69  |; turnnumber sti|
00006240  6c 6c 20 73 65 74 2e 20  20 6e 65 65 64 20 74 6f  |ll set.  need to|
00006250  20 70 6f 75 6e 64 20 75  73 75 61 6c 20 70 69 65  | pound usual pie|
00006260  63 65 20 74 79 70 65 20  82 20 33 0d 24 04 22 20  |ce type . 3.$." |
00006270  20 53 54 4d 46 44 20 28  73 74 61 63 6b 29 21 2c  | STMFD (stack)!,|
00006280  7b 52 32 2d 52 31 31 2c  6c 69 6e 6b 7d 0d 24 0e  |{R2-R11,link}.$.|
00006290  41 20 20 4d 4f 56 20 52  36 2c 23 31 20 3b 20 61  |A  MOV R6,#1 ; a|
000062a0  6c 6c 6f 77 20 66 72 65  65 20 70 6f 75 6e 64 69  |llow free poundi|
000062b0  6e 67 20 75 6e 74 69 6c  20 61 6e 20 65 78 63 65  |ng until an exce|
000062c0  70 74 69 6f 6e 20 69 73  20 66 6f 75 6e 64 0d 24  |ption is found.$|
000062d0  18 13 20 20 4d 56 4e 20  52 35 2c 23 31 3c 3c 32  |..  MVN R5,#1<<2|
000062e0  30 0d 24 22 05 20 0d 24  2c 22 20 20 3b 20 31 20  |0.$". .$,"  ; 1 |
000062f0  2d 20 74 65 73 74 20 66  6f 72 20 66 72 65 65 20  |- test for free |
00006300  70 6f 75 6e 64 69 6e 67  0d 24 36 49 20 20 80 20  |pounding.$6I  . |
00006310  52 33 2c 73 63 61 6e 5f  6d 6f 76 65 6e 75 6d 62  |R3,scan_movenumb|
00006320  65 72 2c 23 31 3a 41 44  44 20 52 33 2c 52 33 2c  |er,#1:ADD R3,R3,|
00006330  23 31 20 20 3b 20 74 79  70 65 20 6f 66 20 70 69  |#1  ; type of pi|
00006340  65 63 65 20 74 6f 20 62  65 20 70 6f 75 6e 64 65  |ece to be pounde|
00006350  64 0d 24 40 10 20 20 4d  4f 56 20 52 37 2c 23 32  |d.$@.  MOV R7,#2|
00006360  34 0d 24 4a 05 20 0d 24  54 1f 20 20 2e 73 63 61  |4.$J. .$T.  .sca|
00006370  6e 5f 70 6f 75 6e 64 5f  66 72 65 65 74 65 73 74  |n_pound_freetest|
00006380  5f 6c 6f 6f 70 0d 24 5e  1d 20 20 4c 44 52 42 20  |_loop.$^.  LDRB |
00006390  52 30 2c 5b 73 63 61 6e  5f 62 6f 61 72 64 2c 52  |R0,[scan_board,R|
000063a0  37 5d 0d 24 68 36 20 20  43 4d 50 53 20 52 30 2c  |7].$h6  CMPS R0,|
000063b0  52 33 20 3a 20 42 45 51  20 73 63 61 6e 5f 70 6f  |R3 : BEQ scan_po|
000063c0  75 6e 64 5f 66 72 65 65  74 65 73 74 5f 63 68 65  |und_freetest_che|
000063d0  63 6b 73 71 75 61 72 65  0d 24 72 32 20 20 53 55  |cksquare.$r2  SU|
000063e0  42 53 20 52 37 2c 52 37  2c 23 31 20 3a 20 42 47  |BS R7,R7,#1 : BG|
000063f0  54 20 73 63 61 6e 5f 70  6f 75 6e 64 5f 66 72 65  |T scan_pound_fre|
00006400  65 74 65 73 74 5f 6c 6f  6f 70 0d 24 7c 24 20 20  |etest_loop.$|$  |
00006410  42 20 73 63 61 6e 5f 70  6f 75 6e 64 5f 66 72 65  |B scan_pound_fre|
00006420  65 74 65 73 74 5f 63 6f  6d 70 6c 65 74 65 0d 24  |etest_complete.$|
00006430  86 05 20 0d 24 90 26 20  20 2e 73 63 61 6e 5f 70  |.. .$.&  .scan_p|
00006440  6f 75 6e 64 5f 66 72 65  65 74 65 73 74 5f 63 68  |ound_freetest_ch|
00006450  65 63 6b 73 71 75 61 72  65 0d 24 9a 23 20 20 4d  |ecksquare.$.#  M|
00006460  4f 56 20 52 31 2c 52 37  20 3a 20 42 4c 20 73 63  |OV R1,R7 : BL sc|
00006470  61 6e 5f 69 73 5f 69 6e  6d 69 6c 6c 0d 24 a4 34  |an_is_inmill.$.4|
00006480  20 20 4d 4f 56 4e 45 20  52 36 2c 23 30 20 3a 20  |  MOVNE R6,#0 : |
00006490  42 4e 45 20 73 63 61 6e  5f 70 6f 75 6e 64 5f 66  |BNE scan_pound_f|
000064a0  72 65 65 74 65 73 74 5f  63 6f 6d 70 6c 65 74 65  |reetest_complete|
000064b0  0d 24 ae 32 20 20 53 55  42 53 20 52 37 2c 52 37  |.$.2  SUBS R7,R7|
000064c0  2c 23 31 20 3a 20 42 47  54 20 73 63 61 6e 5f 70  |,#1 : BGT scan_p|
000064d0  6f 75 6e 64 5f 66 72 65  65 74 65 73 74 5f 6c 6f  |ound_freetest_lo|
000064e0  6f 70 0d 24 b8 15 20 20  3b 20 63 6f 6e 74 69 6e  |op.$..  ; contin|
000064f0  75 65 73 2e 2e 2e 2e 0d  24 c2 05 20 0d 24 cc 05  |ues.....$.. .$..|
00006500  20 0d 24 d6 05 20 0d 24  e0 2c 20 20 2e 73 63 61  | .$.. .$.,  .sca|
00006510  6e 5f 70 6f 75 6e 64 5f  66 72 65 65 74 65 73 74  |n_pound_freetest|
00006520  5f 63 6f 6d 70 6c 65 74  65 20 3b 20 72 36 20 3d  |_complete ; r6 =|
00006530  20 31 0d 24 ea 10 20 20  4d 4f 56 20 52 37 2c 23  | 1.$..  MOV R7,#|
00006540  32 34 0d 24 f4 41 20 20  4d 4f 56 20 52 34 2c 23  |24.$.A  MOV R4,#|
00006550  30 20 3b 20 52 33 20 73  74 69 6c 6c 20 73 65 74  |0 ; R3 still set|
00006560  20 74 6f 20 74 68 65 20  74 79 70 65 20 6f 66 20  | to the type of |
00006570  70 69 65 63 65 20 74 6f  20 62 65 20 70 6f 75 6e  |piece to be poun|
00006580  64 65 64 0d 24 fe 05 20  0d 25 08 16 20 20 2e 73  |ded.$.. .%..  .s|
00006590  63 61 6e 5f 70 6f 75 6e  64 5f 6c 6f 6f 70 0d 25  |can_pound_loop.%|
000065a0  12 3c 20 20 4c 44 52 42  20 52 30 2c 5b 73 63 61  |.<  LDRB R0,[sca|
000065b0  6e 5f 62 6f 61 72 64 2c  52 37 5d 3a 43 4d 50 53  |n_board,R7]:CMPS|
000065c0  20 52 30 2c 52 33 3a 42  4e 45 20 73 63 61 6e 5f  | R0,R3:BNE scan_|
000065d0  70 6f 75 6e 64 5f 73 6b  69 70 0d 25 1c 10 20 20  |pound_skip.%..  |
000065e0  43 4d 50 53 20 52 36 2c  23 30 0d 25 26 57 20 20  |CMPS R6,#0.%&W  |
000065f0  4d 4f 56 20 52 31 2c 52  37 3a 42 4c 45 51 20 73  |MOV R1,R7:BLEQ s|
00006600  63 61 6e 5f 69 73 5f 69  6e 6d 69 6c 6c 3a 42 45  |can_is_inmill:BE|
00006610  51 20 73 63 61 6e 5f 70  6f 75 6e 64 5f 73 6b 69  |Q scan_pound_ski|
00006620  70 20 3b 20 66 72 65 65  20 70 6f 75 6e 64 69 6e  |p ; free poundin|
00006630  67 20 6f 66 66 2c 20 69  73 20 69 6e 20 6d 69 6c  |g off, is in mil|
00006640  6c 0d 25 30 05 20 0d 25  3a 27 20 20 4d 4f 56 20  |l.%0. .%:'  MOV |
00006650  52 30 2c 23 30 3a 53 54  52 42 20 52 30 2c 5b 73  |R0,#0:STRB R0,[s|
00006660  63 61 6e 5f 62 6f 61 72  64 2c 52 37 5d 0d 25 44  |can_board,R7].%D|
00006670  2f 20 20 4d 4f 56 20 52  30 2c 52 35 20 3b 20 63  |/  MOV R0,R5 ; c|
00006680  75 74 6f 66 66 20 76 61  6c 75 65 20 66 6f 72 20  |utoff value for |
00006690  64 65 65 70 65 72 20 6c  65 76 65 6c 0d 25 4e 15  |deeper level.%N.|
000066a0  20 20 42 4c 20 67 65 6e  65 72 61 6c 5f 73 63 61  |  BL general_sca|
000066b0  6e 0d 25 58 1d 20 20 53  54 52 42 20 52 33 2c 5b  |n.%X.  STRB R3,[|
000066c0  73 63 61 6e 5f 62 6f 61  72 64 2c 52 37 5d 0d 25  |scan_board,R7].%|
000066d0  62 10 20 20 43 4d 50 53  20 52 30 2c 52 35 0d 25  |b.  CMPS R0,R5.%|
000066e0  6c 45 20 20 4d 4f 56 47  54 20 52 35 2c 52 30 3a  |lE  MOVGT R5,R0:|
000066f0  4d 4f 56 47 54 20 52 34  2c 52 37 2c 4c 53 4c 20  |MOVGT R4,R7,LSL |
00006700  23 31 36 20 20 20 20 3b  20 20 70 6f 75 6e 64 20  |#16    ;  pound |
00006710  6d 6f 76 65 73 20 73 74  6f 72 65 64 20 61 74 20  |moves stored at |
00006720  2b 31 36 0d 25 76 25 20  20 43 4d 50 53 20 52 35  |+16.%v%  CMPS R5|
00006730  2c 52 38 3a 42 47 45 20  73 63 61 6e 5f 70 6f 75  |,R8:BGE scan_pou|
00006740  6e 64 5f 62 72 65 61 6b  0d 25 80 05 20 0d 25 8a  |nd_break.%.. .%.|
00006750  16 20 20 2e 73 63 61 6e  5f 70 6f 75 6e 64 5f 73  |.  .scan_pound_s|
00006760  6b 69 70 0d 25 94 13 20  20 53 55 42 53 20 52 37  |kip.%..  SUBS R7|
00006770  2c 52 37 2c 23 31 0d 25  9e 19 20 20 42 47 54 20  |,R7,#1.%..  BGT |
00006780  73 63 61 6e 5f 70 6f 75  6e 64 5f 6c 6f 6f 70 0d  |scan_pound_loop.|
00006790  25 a8 05 20 0d 25 b2 17  20 20 2e 73 63 61 6e 5f  |%.. .%..  .scan_|
000067a0  70 6f 75 6e 64 5f 62 72  65 61 6b 0d 25 bc 38 20  |pound_break.%.8 |
000067b0  20 4d 4f 56 20 52 30 2c  52 35 3a 4d 4f 56 20 52  | MOV R0,R5:MOV R|
000067c0  31 2c 52 34 20 20 20 20  3b 20 20 20 20 20 72 65  |1,R4    ;     re|
000067d0  74 75 72 6e 20 73 63 6f  72 65 20 61 6e 64 20 6d  |turn score and m|
000067e0  6f 76 65 0d 25 c6 20 20  20 4c 44 4d 46 44 20 28  |ove.%.   LDMFD (|
000067f0  73 74 61 63 6b 29 21 2c  7b 52 32 2d 52 31 31 2c  |stack)!,{R2-R11,|
00006800  50 43 7d 0d 25 d0 05 20  0d 25 da 05 20 0d 25 e4  |PC}.%.. .%.. .%.|
00006810  05 20 0d 25 ee 05 20 0d  25 f8 15 20 20 2e 73 63  |. .%.. .%..  .sc|
00006820  61 6e 5f 69 73 5f 69 6e  6d 69 6c 6c 0d 26 02 27  |an_is_inmill.&.'|
00006830  20 20 3b 20 72 31 20 3d  20 73 71 75 61 72 65 20  |  ; r1 = square |
00006840  20 20 3b 20 20 72 65 74  75 72 6e 73 20 b9 20 6f  |  ;  returns . o|
00006850  72 20 a3 0d 26 0c 21 20  20 53 54 4d 46 44 20 28  |r ..&.!  STMFD (|
00006860  73 74 61 63 6b 29 21 2c  7b 52 32 2d 52 34 2c 6c  |stack)!,{R2-R4,l|
00006870  69 6e 6b 7d 0d 26 16 28  20 20 4c 44 52 20 52 34  |ink}.&.(  LDR R4|
00006880  2c 5b 6d 61 69 6e 76 61  72 73 2c 23 76 61 72 73  |,[mainvars,#vars|
00006890  5f 73 71 75 61 72 65 64  61 74 61 5d 0d 26 20 1d  |_squaredata].& .|
000068a0  20 20 4c 44 52 42 20 52  33 2c 5b 73 63 61 6e 5f  |  LDRB R3,[scan_|
000068b0  62 6f 61 72 64 2c 52 31  5d 0d 26 2a 0f 20 20 4d  |board,R1].&*.  M|
000068c0  4f 56 20 52 32 2c 23 33  0d 26 34 05 20 0d 26 3e  |OV R2,#3.&4. .&>|
000068d0  59 20 20 4c 44 52 42 20  52 30 2c 5b 52 34 2c 52  |Y  LDRB R0,[R4,R|
000068e0  31 2c 4c 53 4c 20 23 73  71 75 61 72 65 64 61 74  |1,LSL #squaredat|
000068f0  61 5f 65 69 67 6f 6e 5d  21 3a 4c 44 52 42 20 52  |a_eigon]!:LDRB R|
00006900  30 2c 5b 73 63 61 6e 5f  62 6f 61 72 64 2c 52 30  |0,[scan_board,R0|
00006910  5d 3a 43 4d 50 53 20 52  30 2c 52 33 3a 42 4e 45  |]:CMPS R0,R3:BNE|
00006920  20 69 69 6d 5f 32 0d 26  48 63 20 20 4c 44 52 42  | iim_2.&Hc  LDRB|
00006930  20 52 30 2c 5b 52 34 2c  23 31 5d 3a 42 49 43 20  | R0,[R4,#1]:BIC |
00006940  52 30 2c 52 30 2c 23 26  38 30 3a 4c 44 52 42 20  |R0,R0,#&80:LDRB |
00006950  52 30 2c 5b 73 63 61 6e  5f 62 6f 61 72 64 2c 52  |R0,[scan_board,R|
00006960  30 5d 3a 43 4d 50 53 20  52 30 2c 52 33 3a 4c 44  |0]:CMPS R0,R3:LD|
00006970  4d 45 51 46 44 20 28 73  74 61 63 6b 29 21 2c 7b  |MEQFD (stack)!,{|
00006980  52 32 2d 52 34 2c 50 43  7d 0d 26 52 05 20 0d 26  |R2-R4,PC}.&R. .&|
00006990  5c 0c 20 20 2e 69 69 6d  5f 32 0d 26 66 54 20 20  |\.  .iim_2.&fT  |
000069a0  4c 44 52 42 20 52 30 2c  5b 52 34 2c 23 32 5d 3a  |LDRB R0,[R4,#2]:|
000069b0  4c 44 52 42 20 52 30 2c  5b 73 63 61 6e 5f 62 6f  |LDRB R0,[scan_bo|
000069c0  61 72 64 2c 52 30 5d 3a  43 4d 50 53 20 52 30 2c  |ard,R0]:CMPS R0,|
000069d0  52 33 3a 4c 44 4d 4e 45  46 44 20 28 73 74 61 63  |R3:LDMNEFD (stac|
000069e0  6b 29 21 2c 7b 52 32 2d  52 34 2c 50 43 7d 0d 26  |k)!,{R2-R4,PC}.&|
000069f0  70 61 20 20 4c 44 52 42  20 52 30 2c 5b 52 34 2c  |pa  LDRB R0,[R4,|
00006a00  23 33 5d 3a 42 49 43 20  52 30 2c 52 30 2c 23 26  |#3]:BIC R0,R0,#&|
00006a10  38 30 3a 4c 44 52 42 20  52 30 2c 5b 73 63 61 6e  |80:LDRB R0,[scan|
00006a20  5f 62 6f 61 72 64 2c 52  30 5d 3a 43 4d 50 53 20  |_board,R0]:CMPS |
00006a30  52 30 2c 52 33 3a 4c 44  4d 46 44 20 28 73 74 61  |R0,R3:LDMFD (sta|
00006a40  63 6b 29 21 2c 7b 52 32  2d 52 34 2c 50 43 7d 0d  |ck)!,{R2-R4,PC}.|
00006a50  26 7a 05 20 0d 26 84 05  20 0d 26 8e 05 20 0d 26  |&z. .&.. .&.. .&|
00006a60  98 26 20 20 2e 73 63 61  6e 5f 6c 6f 73 65 74 65  |.&  .scan_losete|
00006a70  73 74 20 3b 20 72 65 74  75 72 6e 20 45 51 20 6f  |st ; return EQ o|
00006a80  72 20 4e 45 0d 26 a2 57  20 20 43 4d 50 53 20 73  |r NE.&.W  CMPS s|
00006a90  63 61 6e 5f 6d 6f 76 65  6e 75 6d 62 65 72 2c 23  |can_movenumber,#|
00006aa0  31 39 3a 4d 4f 56 4c 54  20 50 43 2c 6c 69 6e 6b  |19:MOVLT PC,link|
00006ab0  20 3b 20 63 61 6e 27 74  20 6c 6f 73 65 20 75 6e  | ; can't lose un|
00006ac0  74 69 6c 20 6d 6f 76 69  6e 67 20 74 79 70 65 20  |til moving type |
00006ad0  6d 6f 76 65 73 20 73 74  61 72 74 0d 26 ac 05 20  |moves start.&.. |
00006ae0  0d 26 b6 40 20 20 53 54  4d 46 44 20 28 73 74 61  |.&.@  STMFD (sta|
00006af0  63 6b 29 21 2c 7b 52 32  2d 52 35 2c 6c 69 6e 6b  |ck)!,{R2-R5,link|
00006b00  7d 20 3b 20 52 30 2f 31  20 63 61 6e 20 62 65 20  |} ; R0/1 can be |
00006b10  63 6f 72 72 75 70 74 65  64 20 61 6e 79 77 61 79  |corrupted anyway|
00006b20  0d 26 c0 28 20 20 4c 44  52 20 52 35 2c 5b 6d 61  |.&.(  LDR R5,[ma|
00006b30  69 6e 76 61 72 73 2c 23  76 61 72 73 5f 73 71 75  |invars,#vars_squ|
00006b40  61 72 65 64 61 74 61 5d  0d 26 ca 0f 20 20 4d 4f  |aredata].&..  MO|
00006b50  56 20 52 34 2c 23 31 0d  26 d4 4e 20 20 4d 4f 56  |V R4,#1.&.N  MOV|
00006b60  20 52 33 2c 23 30 20 3b  20 63 6f 75 6e 74 20 70  | R3,#0 ; count p|
00006b70  69 65 63 65 73 20 70 72  65 73 65 6e 74 2c 20 62  |ieces present, b|
00006b80  69 74 38 2c 20 69 66 20  73 65 74 20 74 68 65 6e  |it8, if set then|
00006b90  20 6f 6e 65 2b 20 70 69  65 63 65 73 20 61 72 65  | one+ pieces are|
00006ba0  20 66 72 65 65 0d 26 de  27 20 20 80 53 20 52 32  | free.&.'  .S R2|
00006bb0  2c 73 63 61 6e 5f 6d 6f  76 65 6e 75 6d 62 65 72  |,scan_movenumber|
00006bc0  2c 23 31 3a ec 51 20 52  32 2c 23 32 0d 26 e8 05  |,#1:.Q R2,#2.&..|
00006bd0  20 0d 26 f2 19 20 20 2e  73 63 61 6e 5f 6c 6f 73  | .&..  .scan_los|
00006be0  65 74 65 73 74 5f 6c 6f  6f 70 0d 26 fc 12 20 20  |etest_loop.&..  |
00006bf0  41 44 44 20 52 35 2c 52  35 2c 23 34 0d 27 06 1d  |ADD R5,R5,#4.'..|
00006c00  20 20 4c 44 52 42 20 52  30 2c 5b 73 63 61 6e 5f  |  LDRB R0,[scan_|
00006c10  62 6f 61 72 64 2c 52 34  5d 0d 27 10 2d 20 20 43  |board,R4].'.-  C|
00006c20  4d 50 53 20 52 30 2c 52  32 3a 42 4e 45 20 73 63  |MPS R0,R2:BNE sc|
00006c30  61 6e 5f 6c 6f 73 65 74  65 73 74 5f 77 72 6f 6e  |an_losetest_wron|
00006c40  67 70 69 65 63 65 0d 27  1a 12 20 20 41 44 44 20  |gpiece.'..  ADD |
00006c50  52 33 2c 52 33 2c 23 31  0d 27 24 59 20 20 4c 44  |R3,R3,#1.'$Y  LD|
00006c60  52 42 20 52 30 2c 5b 52  35 2c 23 30 5d 3a 54 53  |RB R0,[R5,#0]:TS|
00006c70  54 53 20 52 30 2c 23 26  38 30 3a 4c 44 52 45 51  |TS R0,#&80:LDREQ|
00006c80  42 20 52 30 2c 5b 73 63  61 6e 5f 62 6f 61 72 64  |B R0,[scan_board|
00006c90  2c 52 30 5d 3a 43 4d 50  45 51 53 20 52 30 2c 23  |,R0]:CMPEQS R0,#|
00006ca0  30 3a 84 52 45 51 20 52  33 2c 52 33 2c 23 32 35  |0:.REQ R3,R3,#25|
00006cb0  36 0d 27 2e 59 20 20 4c  44 52 42 20 52 30 2c 5b  |6.'.Y  LDRB R0,[|
00006cc0  52 35 2c 23 31 5d 3a 54  53 54 53 20 52 30 2c 23  |R5,#1]:TSTS R0,#|
00006cd0  26 38 30 3a 4c 44 52 45  51 42 20 52 30 2c 5b 73  |&80:LDREQB R0,[s|
00006ce0  63 61 6e 5f 62 6f 61 72  64 2c 52 30 5d 3a 43 4d  |can_board,R0]:CM|
00006cf0  50 45 51 53 20 52 30 2c  23 30 3a 84 52 45 51 20  |PEQS R0,#0:.REQ |
00006d00  52 33 2c 52 33 2c 23 32  35 36 0d 27 38 59 20 20  |R3,R3,#256.'8Y  |
00006d10  4c 44 52 42 20 52 30 2c  5b 52 35 2c 23 32 5d 3a  |LDRB R0,[R5,#2]:|
00006d20  54 53 54 53 20 52 30 2c  23 26 38 30 3a 4c 44 52  |TSTS R0,#&80:LDR|
00006d30  45 51 42 20 52 30 2c 5b  73 63 61 6e 5f 62 6f 61  |EQB R0,[scan_boa|
00006d40  72 64 2c 52 30 5d 3a 43  4d 50 45 51 53 20 52 30  |rd,R0]:CMPEQS R0|
00006d50  2c 23 30 3a 84 52 45 51  20 52 33 2c 52 33 2c 23  |,#0:.REQ R3,R3,#|
00006d60  32 35 36 0d 27 42 59 20  20 4c 44 52 42 20 52 30  |256.'BY  LDRB R0|
00006d70  2c 5b 52 35 2c 23 33 5d  3a 54 53 54 53 20 52 30  |,[R5,#3]:TSTS R0|
00006d80  2c 23 26 38 30 3a 4c 44  52 45 51 42 20 52 30 2c  |,#&80:LDREQB R0,|
00006d90  5b 73 63 61 6e 5f 62 6f  61 72 64 2c 52 30 5d 3a  |[scan_board,R0]:|
00006da0  43 4d 50 45 51 53 20 52  30 2c 23 30 3a 84 52 45  |CMPEQS R0,#0:.RE|
00006db0  51 20 52 33 2c 52 33 2c  23 32 35 36 0d 27 4c 1f  |Q R3,R3,#256.'L.|
00006dc0  20 20 2e 73 63 61 6e 5f  6c 6f 73 65 74 65 73 74  |  .scan_losetest|
00006dd0  5f 77 72 6f 6e 67 70 69  65 63 65 0d 27 56 35 20  |_wrongpiece.'V5 |
00006de0  20 41 44 44 20 52 34 2c  52 34 2c 23 31 3a 43 4d  | ADD R4,R4,#1:CM|
00006df0  50 53 20 52 34 2c 23 32  34 3a 42 4c 45 20 73 63  |PS R4,#24:BLE sc|
00006e00  61 6e 5f 6c 6f 73 65 74  65 73 74 5f 6c 6f 6f 70  |an_losetest_loop|
00006e10  0d 27 60 05 20 0d 27 6a  1d 20 20 3b 20 65 6e 74  |.'`. .'j.  ; ent|
00006e20  69 72 65 20 62 6f 61 72  64 20 63 68 65 63 6b 65  |ire board checke|
00006e30  64 2e 0d 27 74 4d 20 20  54 53 54 53 20 52 33 2c  |d..'tM  TSTS R3,|
00006e40  23 32 35 36 3a 4c 44 4d  45 51 46 44 20 28 73 74  |#256:LDMEQFD (st|
00006e50  61 63 6b 29 21 2c 7b 52  32 2d 52 35 2c 50 43 7d  |ack)!,{R2-R5,PC}|
00006e60  20 20 3b 20 20 6e 6f 20  6d 6f 76 65 6d 65 6e 74  |  ;  no movement|
00006e70  20 2d 20 73 6f 20 68 61  76 65 20 6c 6f 73 74 0d  | - so have lost.|
00006e80  27 7e 62 20 20 43 4d 50  53 20 73 63 61 6e 5f 6d  |'~b  CMPS scan_m|
00006e90  6f 76 65 6e 75 6d 62 65  72 2c 23 31 39 3a 4c 44  |ovenumber,#19:LD|
00006ea0  4d 4c 54 46 44 20 28 73  74 61 63 6b 29 21 2c 7b  |MLTFD (stack)!,{|
00006eb0  52 32 2d 52 35 2c 50 43  7d 20 3b 20 64 6f 6e 27  |R2-R5,PC} ; don'|
00006ec0  74 20 63 6f 75 6e 74 20  6c 6f 77 20 70 69 65 63  |t count low piec|
00006ed0  65 73 20 64 75 72 69 6e  67 20 70 6c 61 63 69 6e  |es during placin|
00006ee0  67 0d 27 88 2a 20 20 43  4d 50 53 20 52 33 2c 23  |g.'.*  CMPS R3,#|
00006ef0  32 3a 43 4d 50 4c 45 53  20 52 30 2c 52 30 20 3b  |2:CMPLES R0,R0 ;|
00006f00  20 73 65 74 20 5a 20 66  6c 61 67 0d 27 92 1f 20  | set Z flag.'.. |
00006f10  20 4c 44 4d 46 44 20 28  73 74 61 63 6b 29 21 2c  | LDMFD (stack)!,|
00006f20  7b 52 32 2d 52 35 2c 50  43 7d 0d 27 9c 05 20 0d  |{R2-R5,PC}.'.. .|
00006f30  27 a6 05 20 0d 27 b0 0d  20 20 2e 72 61 6e 64 6f  |'.. .'..  .rando|
00006f40  6d 0d 27 ba 14 20 20 4c  44 52 20 52 30 2c 72 6e  |m.'..  LDR R0,rn|
00006f50  64 5f 52 4e 44 0d 27 c4  14 20 20 4c 44 52 20 52  |d_RND.'..  LDR R|
00006f60  31 2c 72 6e 64 5f 45 4f  52 0d 27 ce 05 20 0d 27  |1,rnd_EOR.'.. .'|
00006f70  d8 21 20 20 54 53 54 53  20 52 30 2c 23 31 3c 3c  |.!  TSTS R0,#1<<|
00006f80  33 31 3a 82 4e 45 20 52  30 2c 52 30 2c 52 31 0d  |31:.NE R0,R0,R1.|
00006f90  27 e2 26 20 20 4d 4f 56  53 20 52 30 2c 52 30 2c  |'.&  MOVS R0,R0,|
00006fa0  4c 53 4c 20 23 31 3a 41  44 44 43 53 20 52 30 2c  |LSL #1:ADDCS R0,|
00006fb0  52 30 2c 23 31 0d 27 ec  21 20 20 54 53 54 53 20  |R0,#1.'.!  TSTS |
00006fc0  52 30 2c 23 31 3c 3c 33  31 3a 82 4e 45 20 52 30  |R0,#1<<31:.NE R0|
00006fd0  2c 52 30 2c 52 31 0d 27  f6 26 20 20 4d 4f 56 53  |,R0,R1.'.&  MOVS|
00006fe0  20 52 30 2c 52 30 2c 4c  53 4c 20 23 31 3a 41 44  | R0,R0,LSL #1:AD|
00006ff0  44 43 53 20 52 30 2c 52  30 2c 23 31 0d 28 00 21  |DCS R0,R0,#1.(.!|
00007000  20 20 54 53 54 53 20 52  30 2c 23 31 3c 3c 33 31  |  TSTS R0,#1<<31|
00007010  3a 82 4e 45 20 52 30 2c  52 30 2c 52 31 0d 28 0a  |:.NE R0,R0,R1.(.|
00007020  26 20 20 4d 4f 56 53 20  52 30 2c 52 30 2c 4c 53  |&  MOVS R0,R0,LS|
00007030  4c 20 23 31 3a 41 44 44  43 53 20 52 30 2c 52 30  |L #1:ADDCS R0,R0|
00007040  2c 23 31 0d 28 14 05 20  0d 28 1e 14 20 20 53 54  |,#1.(.. .(..  ST|
00007050  52 20 52 30 2c 72 6e 64  5f 52 4e 44 0d 28 28 1f  |R R0,rnd_RND.((.|
00007060  20 20 4d 4f 56 20 50 43  2c 6c 69 6e 6b 20 3b 20  |  MOV PC,link ; |
00007070  76 61 6c 75 65 20 69 6e  20 52 30 0d 28 32 05 20  |value in R0.(2. |
00007080  0d 28 3c 18 20 20 2e 72  6e 64 5f 52 4e 44 3a 45  |.(<.  .rnd_RND:E|
00007090  51 55 44 20 b3 28 91 29  0d 28 46 1d 20 20 2e 72  |QUD .(.).(F.  .r|
000070a0  6e 64 5f 45 4f 52 3a 45  51 55 44 20 26 30 30 37  |nd_EOR:EQUD &007|
000070b0  36 42 35 35 33 0d 28 50  07 20 20 5d 0d 28 5a 05  |6B553.(P.  ].(Z.|
000070c0  ed 0d 28 64 05 e1 0d 28  6e 05 3a 0d 28 78 05 3a  |..(d...(n.:.(x.:|
000070d0  0d 28 82 05 3a 0d 28 8c  15 dd a4 73 63 61 6e 5f  |.(..:.(....scan_|
000070e0  74 75 72 6e 5f 70 69 65  63 65 0d 28 96 10 5b 4f  |turn_piece.(..[O|
000070f0  50 54 20 70 61 73 73 25  2b 38 0d 28 a0 28 80 20  |PT pass%+8.(.(. |
00007100  52 30 2c 73 63 61 6e 5f  6d 6f 76 65 6e 75 6d 62  |R0,scan_movenumb|
00007110  65 72 2c 23 31 3a 52 53  42 20 52 30 2c 52 30 2c  |er,#1:RSB R0,R0,|
00007120  23 32 0d 28 aa 05 5d 0d  28 b4 06 3d 30 0d 28 be  |#2.(..].(..=0.(.|
00007130  04 0d 28 c8 04 0d 28 d2  04 0d 28 dc 04 0d 28 e6  |..(...(...(...(.|
00007140  04 0d 28 f0 04 0d 28 fa  04 0d 29 04 04 0d ff     |..(...(...)....|
0000714f