PT 50 Leiden, games from Dirty

Discussion of computer chess matches and engine tournaments.

Moderators: hgm, Rebel, chrisw

pijl
Posts: 115
Joined: Mon Sep 17, 2012 8:59 pm

Re: PT 50 Leiden, games from Dirty

Post by pijl »

Hi Bart,
I just uploaded the games to the CSVN website (download section). As I'm not really used to the website itself I have not written an article there with the standings.
Richard.
Bart Weststrate
Posts: 11
Joined: Fri Mar 18, 2016 3:34 pm

Re: PT 50 Leiden, games from Dirty

Post by Bart Weststrate »

pijl wrote:Hi Bart,
I just uploaded the games to the CSVN website (download section). As I'm not really used to the website itself I have not written an article there with the standings.
Richard.
Thanks!
F. Bluemers
Posts: 868
Joined: Thu Mar 09, 2006 11:21 pm
Location: Nederland

Re: PT 50 Leiden, games from Dirty

Post by F. Bluemers »

Bart Weststrate wrote:
Bart Weststrate wrote:
F. Bluemers wrote:Here are the games that Dirty played.
Any tao news? Are you working on it or a different engine?
Kallisto :-) (Tao is Bas) The new engine is about "half-way"....
Too busy with my job and other hobbies.
:shock:
What a silly mixup,my apologies.
Still working in assembler?
Bart Weststrate
Posts: 11
Joined: Fri Mar 18, 2016 3:34 pm

Re: PT 50 Leiden, games from Dirty

Post by Bart Weststrate »

F. Bluemers wrote:
Bart Weststrate wrote:
Bart Weststrate wrote:
F. Bluemers wrote:Here are the games that Dirty played.
Any tao news? Are you working on it or a different engine?
Kallisto :-) (Tao is Bas) The new engine is about "half-way"....
Too busy with my job and other hobbies.
:shock:
What a silly mixup,my apologies.
Still working in assembler?
Mostly yes. Design in powerbasic and if it works i do a translation to assembly.
Raw speed :-)

So this:

ZETGEN:
IF AANZET = WIT THEN
'GENEREER ZETTEN VOOR WIT
FOR VANVELD = A1 TO H8
IF (VANVELD AND OFFBORD)=0 THEN
PIECE=BORD(VANVELD)
IF PIECE>LEEG THEN
SELECT CASE PIECE
CASE WKON
FOR X =1 TO 8
NAARVELD=VANVELD+DIR(X)
IF (NAARVELD AND OFFBORD)=0 THEN
IF BORD(NAARVELD)<=LEEG THEN
STOREZET
END IF
END IF
NEXT
CASE WDAM
FOR X =1 TO 8
ZETOFFSET=DIR(X)
NAARVELD=VANVELD
WDAMLOOP1:
NAARVELD=NAARVELD+ZETOFFSET
IF (NAARVELD AND OFFBORD)=0 THEN
ZETVICTIM=BORD(NAARVELD)
IF ZETVICTIM<=LEEG THEN
IF ZETVICTIM=LEEG THEN
STOREZET
GOTO WDAMLOOP1
ELSE
STOREZET
END IF
END IF
END IF
NEXT



Becomes:
!MOV DH,16
!MOV AH,AL
GENZW06A_L0:
!ADD AH,DH
!TEST AH,OFFBORD
!JNE GENZW08_L0
!MOV BL,AH
!CMP BYTE PTR [ESI+EBX],LEEG
!JA GENZW08_L0 '@
!JNE GENZW07_L0
!MOV CL,NORMAALZET
STOREZETBASIS
!JMP GENZW06A_L0
GENZW07_L0:
!MOV CL,NORMAALZET
STOREZETBASIS
GENZW08_L0:
!MOV DH,1
!MOV AH,AL
GENZW06A_L1:
!ADD AH,DH
!TEST AH,OFFBORD
!JNE GENZW08_L1
!MOV BL,AH
!CMP BYTE PTR [ESI+EBX],LEEG
!JA GENZW08_L1 '@
!JNE GENZW07_L1
!MOV CL,NORMAALZET
STOREZETBASIS
!JMP GENZW06A_L1

You get the point.
Bart Weststrate
Posts: 11
Joined: Fri Mar 18, 2016 3:34 pm

Re: PT 50 Leiden, games from Dirty

Post by Bart Weststrate »

But then with nice indention. Doesn't seem to work here.
F. Bluemers
Posts: 868
Joined: Thu Mar 09, 2006 11:21 pm
Location: Nederland

Re: PT 50 Leiden, games from Dirty

Post by F. Bluemers »

Bart Weststrate wrote:But then with nice indention. Doesn't seem to work here.
just put everything between code tags

Code: Select all

		if&#40;mps&#41;
		&#123;
			unsigned int moves_played;
			if&#40;compSide==WHITE&#41;
				moves_played = &#40;moveNumber+1&#41;/2;
			else
				moves_played = moveNumber/2;

			if&#40;compSide==gamePosition&#91;moveNumber&#93;.side
				&& (&#40;moves_played + 1&#41;%mps&#41;==0&#41;
			&#123;
				localmyTime+=nextTC;
				printLogHTML&#40;HTMLLOG_COLOR_GREEN,"Timemanager - Added %u ms for the next time control\n",nextTC&#41;;
			&#125;
		&#125;
best
Fonzy
User avatar
hgm
Posts: 27794
Joined: Fri Mar 10, 2006 10:06 am
Location: Amsterdam
Full name: H G Muller

Re: PT 50 Leiden, games from Dirty

Post by hgm »

And even that only works if you use spaces, rather than Tabs.