Logicielsmoto.com

Nous sommes le 28 Mar 2024, 19:06

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 24 messages ]  Aller à la page Précédente  1, 2
Auteur Message
 Sujet du message: Re: Quizz: Pire ailleurs?
MessagePosté: 14 Nov 2015, 03:57 
Hors ligne

Inscription: 21 Aoû 2006, 09:06
Messages: 1802
Localisation: Brest
Samuel Devulder a écrit:
ah oui c'était ca!

Ben non. Le bit 3 est bien à 0. Pour que ca marche je dois lever le bit 8 et baisser le bit 3. Je ne trouve pas la correspondance de ces bits dans http://dcmoto.free.fr/documentation/man ... uemo5.djvu :(

Dans http://dcmoto.free.fr/documentation/ass ... urmo5.djvu on voit la description des bits, mais aucun ne fait référence au buzzer. Je suis perplexe. Comment ca marche le chr$(7) sur MO5???

_________________
Good morning, that's a nice Tnetennba


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Quizz: Pire ailleurs?
MessagePosté: 14 Nov 2015, 09:15 
Hors ligne

Inscription: 27 Juin 2006, 19:44
Messages: 1061
Localisation: France (24)
Le bit 8 ? Le bit 7, plutôt ;) Mais c'est celui du SHIFT LOCK, et il n'entre pas comme filtre dans l'exécution de la routine.

La routine pour le CHR$(7) sur MO5 est très simple. Elle commence ainsi, quelque soit la version de la ROM :
Code:
  FAC5  96 19           LDA     <$2019          |
  FAC7  85 08           BITA    #$08            | Sort si son désactivé
  FAC9  26 0D           BNE     $FAD8           |

... et c'est le seul bit testé avant de rentrer dans la routine du buzzer. Pas de secret.

_________________
Marche a suivre pour s'inscrire sur ce forum
Do not forget to contact one of the administrators to validate your registration.
Le site des démos de Puls
L'émulateur Teo


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Quizz: Pire ailleurs?
MessagePosté: 14 Nov 2015, 09:52 
Hors ligne

Inscription: 21 Aoû 2006, 09:06
Messages: 1802
Localisation: Brest
Oui le bit 7. Donc les bits que j'altérais étaient sans influence (4 et 5). Ca aurait du marcher dès le début. ( J'utilise $2019 et l'altération des bits pour savoir si je suis dans la ROM (TO) ou dans la RAM (MO) ).

Cette nuit[*] j'ai ré-écrit la version d'origine pour la rendre plus rapide en observant diverses choses:
  • dans le produit q*i, q fait maximum 7 bits
  • la division naïve utilisée dans la version 128octets est 2x plus rapide que la version initiale avec décalage et soustraction. La raison en est que les quotients obtenus sont de tout petit entiers. Une division basée sur le fait qu'on ne fait que compter le nombre de fois que l'on peut soustraire le diviseur est très rapide.
A l'arrivée cette version fait 249 octets. Elle marche proprement sur TO/MO et donne les 769 décimales (avec un '.' dedans) en environ 11 minutes face à 35 dans la version initiale. C'est vraiment très très rapide.
Code:
****************************************
* debut  : $8000
* fin    : $80F8
* taille : 249
****************************************

        org     $8000

init    fcb     $34,$7F,$CE,$20,$19
        fcb     $A6,$C4,$88,$50,$A7
        fcb     $C4,$A1,$C4,$27,$05
        fcb     $86,$81,$B7,$80,$B6
        fcb     $CE,$80,$F2,$37,$3E
        fcb     $ED,$C1,$11,$83,$95
        fcb     $09,$26,$F8,$5F,$34
        fcb     $76,$8E,$0A,$08,$EC
        fcb     $C3,$58,$49,$58,$49
        fcb     $E3,$C4,$58,$49,$DD
        fcb     $44,$9F,$4D,$96,$4D
        fcb     $E6,$61,$3D,$D7,$42
        fcb     $96,$4E,$E6,$61,$3D
        fcb     $8B,$00,$C3,$00,$00
        fcb     $31,$3E,$8D,$49,$E7
        fcb     $61,$8E,$00,$00,$30
        fcb     $1F,$26,$D4,$4F,$31
        fcb     $0A,$8D,$3B,$0C,$F2
        fcb     $C3,$39,$30,$C1,$39
        fcb     $27,$21,$2D,$05,$0C
        fcb     $F3,$CC,$30,$30,$1E
        fcb     $89,$D7,$73,$D6,$F3
        fcb     $97,$F3,$8D,$3C,$C6
        fcb     $00,$0A,$F2,$26,$F8
        fcb     $81,$31,$26,$06,$0F
        fcb     $79,$C6,$2E,$8D,$34
        fcb     $35,$76,$30,$1F,$26
        fcb     $99,$8E,$80,$BB,$E6
        fcb     $80,$27,$1D,$8D,$25
        fcb     $20,$F8,$34,$20,$8E
        fcb     $FF,$FF,$24,$02,$8D
        fcb     $09,$8D,$07,$E3,$E1
        fcb     $ED,$C4,$1F,$10,$39
        fcb     $30,$01,$A3,$62,$24
        fcb     $FA,$39,$35,$FF,$D7
        fcb     $B5,$C6,$07,$8D,$02
        fcb     $C6,$00,$3F,$82,$7E
        fcb     $E8,$03,$20,$0A,$2E
        fcb     $2E,$2E,$20,$50,$69
        fcb     $20,$69,$73,$20,$66
        fcb     $69,$6E,$69,$74,$65
        fcb     $20,$3A,$2D,$29,$0A
        fcb     $0A,$0D,$20,$20,$20
        fcb     $20,$20,$20,$20,$20
        fcb     $20,$20,$20,$28,$63
        fcb     $29,$20,$50,$55,$4C
        fcb     $53,$20,$4E,$6F,$76
        fcb     $20,$32,$30,$31,$35
        fcb     $0A,$0D,$00,$02,$80
        fcb     $03,$01,$14,$11

        end     init

Je pense faire une entrée dans Pouet au nom de Puls avec les versions 128 et 249 octets. Tu en penses quoi? (il faut que je mette les commentaires en anglais pour les deux versions et faire un readme).
____
[*] j'ai pas réussi à dormir avec les événements du moment...

_________________
Good morning, that's a nice Tnetennba


Dernière édition par Samuel Devulder le 14 Nov 2015, 10:13, édité 1 fois.

Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Quizz: Pire ailleurs?
MessagePosté: 14 Nov 2015, 10:13 
Hors ligne

Inscription: 27 Juin 2006, 19:44
Messages: 1061
Localisation: France (24)
Samuel Devulder a écrit:
Je pense faire une entrée dans Pouet au nom de Puls avec les versions 128 et 249 octets. Tu en penses quoi? (il faut que je mette les commentaires en anglais pour les deux versions).

Je n'en pense que du bien.

Samuel Devulder a écrit:
[*] j'ai pas réussi à dormir avec les événements du moment...

J'espère qu'il n'y a pas de tes connaissances parmi les victimes :L

_________________
Marche a suivre pour s'inscrire sur ce forum
Do not forget to contact one of the administrators to validate your registration.
Le site des démos de Puls
L'émulateur Teo


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Quizz: Pire ailleurs?
MessagePosté: 15 Nov 2015, 16:14 
Hors ligne

Inscription: 21 Aoû 2006, 09:06
Messages: 1802
Localisation: Brest
Non il y a très peu de (mal)chance, mais on est tous forcément affectés avec des trucs pareils :cry:
[EDIT 5 jours plus tard] Hélas non. J'ai appris via un article de Libération, que quelqu'un que j'ai côtoyé en école d'ingé était décédé. Il laisse derrière lui une femme et deux enfants. J'ai les boules. Qu'il repose en paix...

Maintenant que ca se calme, voici le README que je prévois pour pouet:
Code:
These programs compute PI digits using the SPIGOT algorithm
on Thomson machines (6809@1Mhz).

The idea to implement that algorithm on 6809 comes from
Serzhsoft and its 119 bytes version for the ZX Spectrum:
         http://www.pouet.net/prod.php?which=66568

This version displays more digits than the ZX version suggesting
that PI is indeed a rationnal number (surprise!).

The initial implementation was proposed as a "what is it?" quizz:
     http://www.logicielsmoto.com/phpBB/viewtopic.php?p=4465
but it didn't fit into the 128 bytes challenge of the ZX version.

There are two programs:
- sPIgot.BIN which occupies 128 bytes of memory. It only runs
  on the "TO" machines and doesn't return to the system. It is
  extremmely slow dropping one new digit around every minute.
  Expect more than 10 hours for the whole program to complete,
  this is indeed one of the slowest implementation of the spigot
  algorithm for the 6809, but it fits the 128 bytes challenge :D

- PIrat.BIN which is 253 bytes but is more user- and system-
  friendly. It can run on any thomson machines (TO or MO versions).
  It is also much much faster (about 60 times), displaying one new
  digit every second. This is the recommanded version to test first.

Look at the provided source-code for more explanations.

Author: Samuel DEVULDER (aka __sam__)
Group:  PULS (http://www.pulsdemos.com)

A l'execution en 10x ca donne:
Image

Voici l'archive:
Fichier(s) joint(s):
PIrat.zip [193.8 Kio]
Téléchargé 1009 fois


[EDIT] entrée créée: http://www.pouet.net/prod.php?which=66603. Nom: PIrat

Si tu veux faire une entrée sur pulsdemos et logicielsmoto, ne te gêne pas Préhisto. Ce sera juste une petite contrib de plus. Pas des plus spectaculaire, mais c'est pour le challenge. Je n'aurais typiquement pas cru que pas loin de 1000 décimales de PI en 128 octets soit possible sur Thomson.

_________________
Good morning, that's a nice Tnetennba


Dernière édition par Samuel Devulder le 20 Nov 2015, 00:24, édité 1 fois.

Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Quizz: Pire ailleurs?
MessagePosté: 17 Nov 2015, 00:15 
Hors ligne

Inscription: 21 Aoû 2006, 09:06
Messages: 1802
Localisation: Brest
j'ai testé la version ZX.. il leur faut environ 20 mins pour les 768 chiffres. Sur Thomson il nous faut seulement 12mins. On est plus rapide :W

_________________
Good morning, that's a nice Tnetennba


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Quizz: Pire ailleurs?
MessagePosté: 17 Nov 2015, 00:36 
Hors ligne

Inscription: 27 Juin 2006, 19:44
Messages: 1061
Localisation: France (24)
:bien:

_________________
Marche a suivre pour s'inscrire sur ce forum
Do not forget to contact one of the administrators to validate your registration.
Le site des démos de Puls
L'émulateur Teo


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Quizz: Pire ailleurs?
MessagePosté: 17 Nov 2015, 20:47 
Hors ligne

Inscription: 21 Aoû 2006, 09:06
Messages: 1802
Localisation: Brest
Il faut dire que j'ai pas mal amélioré la vitesse. Comparaison de la vitesse de la version du 1er post avec celle du dernier:
ImageImage
:sol:

_________________
Good morning, that's a nice Tnetennba


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Quizz: Pire ailleurs?
MessagePosté: 17 Nov 2015, 22:39 
Hors ligne

Inscription: 27 Juin 2006, 19:44
Messages: 1061
Localisation: France (24)
C'est flagrant ;)

_________________
Marche a suivre pour s'inscrire sur ce forum
Do not forget to contact one of the administrators to validate your registration.
Le site des démos de Puls
L'émulateur Teo


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 24 messages ]  Aller à la page Précédente  1, 2

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 36 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages
Vous ne pouvez pas joindre des fichiers

Rechercher:
Aller à:  
Développé par phpBB® Forum Software © phpBB Group
Traduction par phpBB-fr.com