HP-9825B ou HP-9825T . . .

[emond]

Bonjour,

depuis quelques jours je suis l'heureux possesseur d'un "calculateur" (ils avaient de l'humour chez HP dans les années 70 ) HP-9825B, mais vu les options qu'il a il s'agit en fait plus surement d'un HP-9825T, et oui il y a 3 dénominations pour ce modèle : 9825A, 9825B et 9825T.




Après un premier nettoyage sommaire :




Et HP semble avoir été un peu négligent voir touriste dans l'étiquetage... Pour comprendre pourquoi je dit cela, lire la page suivante : http://www.classiccmp.org/hp/9800.htm

J'ai essayé de comprendre comment dans ma machine, je pouvais avoir autant d'options sans avoir les cartouches... j'en reparlerais quelles lignes plus bas.

Donc cet imposant "calculateur" qui est en fait réellement un ordinateur, tant par le poids et ce qui est plus important : le CPU, la RAM, les ROM, sauvegarde sur bande, imprimante, et les ports sur le BUS, etc.



Les HP-9825B et 9825T sont les petits fils du 9825A qui a été commercialisé a partir de 1976 par HP, j'ai une version bien gonflée si j'en crois la fiche des options :

• -- HP 9825B --
  9872A PLOTTER
  GENERAL I/O
  EXTENDED I/O
  ADV. PROGRAMMING
  STRING
  SYSTEM PROGRAMMING
  TOTAL MEMORY 61670 BYTES

Mais curieusement, je n'ai qu'une cartouche de ROM, et aucunes interfaces a l’arrière de la machine :

• 9895/9885
  98228A FLEXIBLE DISC DRIVE

J'ai été étonné de cela, du coup j'ai fouillé sur le web, et j'ai trouvé les récits de quelques passionnés ou connaisseurs, et pour tous un constat : HP étiquetait pas forcement sérieusement les machines (en sortie d'usine ou après rétrofit ?)...
En effet, les références visibles sur la façade, sur l'étiquette du logement de l'imprimante et a l’arrière de la machine pouvaient êtres différentes les unes des autres ! Et comme c'est amusant, c'est également mon cas, 9825B sur la façade et dans le logement de l'imprimante et 9825A a l’arrière.

Du coup il faut visiblement faire attention car en fonction du modèle, il faut ou pas ajouter des cartouches au risque d'abimer la machine (je dis cela, mais je n'ai pas vérifié, je reporte juste ce que j'ai lu sur le web).

Voici deux photos trouvées sur le net de la même machine :

L'étiquette du logement imprimante : 9825T
lien HS... je vais mettre l'image chez moi...

La même machine sur la façade : 9825B

lien HS... je vais mettre l'image chez moi...

Et une photo de ma machine :


Dans le doute, j'ai vérifié que la taille de RAM en place était bien celle indiquée sur l'étiquette en tapant la commande :

Une petite réinitialisation de la machine par :

Code : Tout sélectionner

[ERASE] a [EXECUTE]

Code : Tout sélectionner

[PRT ALL] sur "off"

pour éviter d'imprimer sur le papier

Code : Tout sélectionner

list [EXECUTE] affiche "0            61670"

sur l'écran de leds.

J'ai également vérifié que les commandes spécifiques a l'option STRING étaient disponible et c'est également bon.

Code : Tout sélectionner

dimA$[20] [STORE]
"JB Fairlight........"->A$ [STORE]
"2020"->A$[16,20] [STORE]
dsp A$ [STORE]
wait 1000 [STORE]
dsp len(A$)[STORE]
[RUN] affiche "JB Fairlight....2020" et après 1 seconde d'attente affiche "20.00"

J'ai également vérifié que les commandes spécifiques a l'option "ADVANCED PROGRAMMING" étaient disponible et c'est également bon. En effet, les commandes de boucle For/Next etc sont fonctionnelles.

Pour les autres options c'est pas facile n'ayant pas les interfaces...

Contrairement a mon habitude, j'ai pris le risque d'allumer cette merveille sans vérification préalable, mais heureusement a cette époque les machines n'étaient pas encore farcies de condensateurs au Tantale !
J'ai commencé a faire une petite toilette, mais il faut que je termine le nettoyage par un démontage complet et vérification totale de l’électronique.

J'ai déjà repérè que le lecteur de bande a une erreur de type 47 (Read error in file head), en fait c'est plus simple (enfin pas forcement) le galet d'entrainement en caoutchouc a commencé a se désagréger (voir la photo et la vidéo). Du coup je suis preneur d'information sur le sujet pour remplacer ce galet. J'ai trouvé sur le net une vidéo de CuriousMarc https://youtu.be/cTZCD4OXETk qui explique ses tests de remplacement et c'est pas forcement simple, car il commence a usiner des pièces en laiton etc.

Voila l'état visqueux du galet d'entrainement de mon lecteur


Et une petite vidéo :
http://jbemond.free.fr/HP-9825B/VID_202 ... 3017-a.mp4

En attendant de pouvoir lire l'unique bande que j'ai récupéré avec la machine, j'ai acheté quelques bandes neuves (new old stock sous blister), mais je serais intéressé par le retour de compatibilité du HP Disk (c'est un émulateur de disque HP avec interface GPIB) avec le HP-9825A/B/T.

Si les tests sont positifs, je ferais l’acquisition d'un interface 98034A HP-IB (GPIB ?) pour le 9825, et je lancerais dans la construction du HP Disk SD, en principe ça devrait être compatible... mais bon...
https://www.hp9845.net/9845/tutorials/hpib/

Voir la conversation a ce sujet ici http://www.silicium.org/forum/viewtopic ... 25#p542697

En attendant, rien de mieux pour s'amuser que de programmer Je ne connaissais pas le "HPL" ("High Performance Language") le langage de la machine qui est très fortement inspiré de la syntaxe des Basic, Fortran (et d’après la DOC HP aussi de l'Algol et du PL/1), mais en fait sa syntaxe est triviale. J'ai testé quelques programmes (pas trop long car je n'ai pas pour l'instant la possibilité de faire des sauvegardes, en effet le lecteur de bande n'est pas fonctionnel).

J'ai programmé deux petits algorithmes de calcul des nombres premiers... Fast et Slow...

J'ai mis en ligne sur youtube une petit vidéo a ce propos :
https://youtu.be/-J8rMQXNY5s

Avec la machine je n'ai eu qu'une bande, et aucune documentations même le petit livret qui est normalement dans son support qui est dans le logement imprimante est absent.

J'ai trouvé sur le net l'essentiel dans cette documentation, mais il a plusieurs volumes dédiés a cartouches et aux périphériques :
http://www.bitsavers.org/pdf/hp/98xx/09 ... _nov80.pdf

Il y a les très bons sites suivants :

l'incontournable : http://www.hp9825.com/

des liens sur des réparations (en vidéo) : http://hpmuseum.net/display_item.php?hw=171

des tonnes de documents : https://www.curiousmarc.com/computing/h ... c-computer

comment ouvrir les cartouches : http://www.series80.org/HP9825/

pleins de documents et pas que pour les HP9825 : http://www.hpcc.org/cdroms/schematics5.0/index.html

[SbM]

Beau bébé ! Et merci pour l'excellente présentation détaillée.

[Hobiecat]

Merci pour cette présentation détaillée !

Une belle bécane, ce "calculator" surtout avec toutes ces options intégrées !

[rene]

yo ! j'en avais trouvé un comme ça il y a fort fort longtemps et c'est vrai que c'est une machine hyper cool. du HP de la grande époque. Il y a aussi le 9530A qui est pas mal non plus.

hp9830a.jpg (13.97 Kio) Consulté 14672 fois

[badaze]

Bravo. C’est vrai qu’elles sont impressionnantes ces machines !
J’ai rentré un 9825 A => http://www.silicium.org/forum/viewtopic ... 46&t=45278

Bien que j’aie 4 modules, rien n’est écrit sur la plaque.

Malheureusement je ne l’ai vu fonctionner que 5 minutes !

http://www.emmella.fr/page2192-2079-767 ... -9773.html

[Marge]

Ah oui, j'ai vu ce fil hier soir, j'ai cru à un rêve.
Eh bien ça le restera (pour moi !).

Amuse-toi bien !

[phm]

Superbe machine
Peut être un de ces jours ....

[gege]

Bonjour,
Superbe exemplaire !
Il y a un article sur cette machine dans la Gazette n°12.
Tiens-nous au courant de ta réparation du lecteur, ça va intéresser du monde...
Bon amusement,
G.E.

[C.Ret]

[...]J'ai programmé deux petits algorithmes de calcul des nombres premiers... Fast et Slow...

J'ai mis en ligne sur youtube une petit vidéo a ce propos :[...]

Excellente vidéo, la luminescence de l'écran et l'ambiance musicale feutrée donne l'impression de vivre le rêve évoqué par Marge.... Je l'ai donc avec un énorme plaisir suivi jusqu'au bout afin d'observer, de chronométrer et d'assouvir ma curiosité naturelle...

C'est vraiment une belle machine, rapide, efficace, fonctionnelle et c'est incroyable comme l'algorithme avec le crible d'Eratosthène va vite par rapport à l'algorithme par tests de division. Surtout qu'il s'agit d'un algorithme ancien où l'on considère encore 1 comme un nombre premier et que l'on teste un nombre incroyable de facteurs (jusqu'à P/3) pour éviter de calculer une racine carrée (processus assez lent sur d'anciens systèmes). Il y a aussi quelques détails curieux comme par exemple un GTO 4: surprenant et un test n'utilisant pas l'instruction modulaire P MOD N=0 ?!?

Je donne ci-dessous une retranscription des codes présentés en début de la vidéo et un code réalisant le même exercice à l'aide d'un algorithme plus moderne exploitant les avantages d'un Crible de Sundaram supporté par un Tas Binaire implémenté dans un simple tableau. Le gain de mémoire de cette technique permet d'aller calculer des nombres premiers milliardaires.

Code : Tout sélectionner

0: dim N[5000] ├              0: fxd 0 ├                    0: dim H[999]; enp "Up to ",M; 0→C→K; 3→N; dsp 2 ├
1: for I=2 to 4999 ├          1: dsp 1 ├                    1: C-1→C; dsp N; if int((N+.001)N→X)<=M; X→H[K+1→K] ├
2: if N[I]=1; jmp 5 ├         2: dsp 2 ├                    2: if (N+2→N)>M; dsp C-1; end ├ 
3: dsp I ├                    3: 1→P ├                      3: if N<=(int(H[1])→X); jmp (N=X)-2 ├
4: for J=I*I to 4999 by I ├   4: for C=2 to 5000 ├          4: 1→I; X+2001*frc(H[1])→X ├
5: 1→N[J] ├                   5: P+2→P ├                    5: X→H[I]; if ((I→J)+I→I)>K; gto 3├    
6: next J ├                   6: for N=3 to P/3 ├           6: if I<K; if H[I+1]<H[I]; I+1→I ├
7: next I ├                   7: if int(P/N)*N=P; gto 4 ├   7: gto 3; if H[I]<X; H[I]→H[J]; gto 5├
8: end ├                      8: next N ├
                              9: dsp P├
                             10: next C├
                             11: end ├

N'hésitez pas à me corriger si j'ai omis ou mal retranscrit un détail.
Une belle machine entre de bonnes mains, vivement qu'elles retrouve ses fonctionnalités de sauvegardes et d'impressions.

[emond]

Super

Le code par division est celui que j'ai trouvé sur le net
ici : https://en.wikipedia.org/wiki/HP_9800_series

Merci pour ton code, je l'ai saisi, exécuté et filmé
https://youtu.be/mYhiDpMl0mI

J'ai aussi ajouté une vidéo de l'impression du code.
https://youtu.be/TWlY2kPxylk

[Hobiecat]

Sympa les petites vidéos ! On sent que c'était une machine pro à l'époque !

[gege]

Bonjour,
Totalement sexy !!!
Bravo
Encore...
G.E.

[C.Ret]

Wow, je suis ébahi, je m'attendais pas à une telle célérité. L'impression du code se fait en quelques dizaines de secondes et l'affichage des nombres va bien au moins 4 ou 5 fois plus vite que sur un PET-CBM de la même époque.

Et ce n'est pas la version la plus rapide de ce type d'algorithme, c'est la plus courte à taper. Elle parcourt tous les entiers impairs et n'utilise qu'un seul tableau. D'autres versions du même algorithme existent mais peuvent utiliser jusqu'à trois tableaux afin de parcourir plus subtilement l'intervalle à examiner et sont donc plus longues à saisir. j'en donnerai un exemple quand l'unité de sauvegarde sur bandes magnétiques sera à nouveau opérationnelle ou l'HP-disk.

Je suis ravi de voir que mon raccourci utilisant le facteur 2001 fonctionne. Je crois que c'est la seule machine de cette époque qui ne fait pas d'erreur d'arrondi (mathématique BCD irréprochable qui peut si nécessaire faire en interne jusqu'à 24 chiffres (alors que les variables n'en mémorisent que 12). Cela me change des 8bits qui vraiment n'ont pas une bonne arithmétique

C'est vraiment une belle machine et je suis sûr qu'elle est entre de bonnes mains

Concernant le listing du code pour trouver les nombres premiers, c'est bien un code typique contemporain de ces machines. Cela fait peu de temps que le nombre 1 n'est plus considéré comme un nombre premier (il y a une bonne raison, mais j'oublie à chaque fois pourquoi, je me souviens juste que c'est pour rendre la Théorie de Nombres plus rigoureuse et homogène). Et l'astuce consistant à limiter les facteurs à la racine carré n'est apparue aussi que plus tard quand les chercheurs en mathématiques ont exploré des espaces non euclidiens.
C'est comme la factorielle qui existe depuis longtemps, depuis les Statistiques, les Sciences Combinatoires et le Dénombrement mais son extension aux nombres réels puis complexes par la fonction Gamma est très ressente.

De même le Tas Binaire que j'utilise, qui apparit une première fois dans une publication en 1964, ce type d'algorithme n'est utilisé dans les logiciels et automatismes réseaux qu'avec l'avènement du C et surtout du C++. On est bien dans les années contemporaines des HP-9825 voir même un peu après !!

Bon d'accord l'astuce du Crible de Sundaram lui a été découvert en 1934, et il permettait une détermination manuelle des Nombres Premiers; utiliser une machine de course comme l'HP-9825T c'est un peu de la gruge.

Mais tricher avec une telle machine, quelle classe...

[emond]

Il y a une explication ici <https://images.math.cnrs.fr/Pourquoi-le ... emier.html>

[EmmanuelC]

c'est quand même assez magnifique, cette machine. jolies demos en plus !