CASL quesaquo ????

Message par **Pocket** » 03 août 2007 07:54

Salut,

jvernet a écrit :y'a un gars qui a déja fait ça
...
Le lien avait été posté ici (Marcus Von Cube ??? XerXes)

viewtopic.php?t=16453
A+

chr!x · Message par **chr!x** » 03 août 2007 08:08

Faire des boucles dans le vent n'a aucune espèce de valeur. Vive la récursivité, vive les 8 reines.

Xerxes · Message par **Xerxes** » 03 août 2007 11:24

As you have already noticed, I have added a CASL version to the n-queens benchmark:

Code : Tout sélectionner

 BGN  START
      LEA  GR0,8
      ST   GR0,DIM
      LEA  GR0,0
      LEA  GR1,0
 L00  CPA  GR1,DIM
      JZE  L05
      LEA  GR1,1,GR1
      LD   GR3,DIM
      ST   GR3,ARY,GR1
 L01  ADD  GR0,ONE
      ST   GR1,TMP
      LD   GR2,TMP
 L02  LEA  GR2,-1,GR2
      JZE  L00
      LD   GR3,ARY,GR1
      SUB  GR3,ARY,GR2
      JZE  L04
      JPZ  L03
      EOR  GR3,FFH
      LEA  GR3,1,GR3
 L03  ST   GR2,TMP
      ADD  GR3,TMP
      ST   GR1,TMP
      SUB  GR3,TMP
      JNZ  L02
 L04  LD   GR3,ARY,GR1
      LEA  GR3,-1,GR3
      ST   GR3,ARY,GR1
      JNZ  L01
      LEA  GR1,-1,GR1
      JNZ  L04
 L05  EXIT
 ONE  DC   1
 FFH  DC   #FFFF
 DIM  DS   1
 TMP  DS   1
 ARY  DS   9
      END


FX-860Pvc  3:52

PC-1445    3:40

VX-3       2:45

VX-4       2:43

FX-870P    2:43

PC-G850V   1:04

FX-840P    0:56

Z-1GRa     0:23.5