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

Tout sur les ordinateurs, liens, infos...Avec un thread par machine. Si la machine n'y est pas , créez le premier post la concernant dans ce forum

Modérateur : Politburo

Avatar du membre
emond
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 458
Enregistré le : 15 févr. 2007 22:10
Localisation : Yvelines
Contact :

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

Message par 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 :lol: ) 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.

Image
Image

Après un premier nettoyage sommaire :
Image
Image


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.

Image

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... Image

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

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

Et une photo de ma machine :
Image

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 :roll:
Image

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 :slime: : http://www.hpcc.org/cdroms/schematics5.0/index.html
Modifié en dernier par emond le 15 oct. 2020 15:56, modifié 4 fois.
Avatar du membre
SbM
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4609
Enregistré le : 24 nov. 2004 21:49
Localisation : SQY (78), France
Contact :

Re: HP-9825B ou HP-9825T . . .

Message par SbM »

Beau bébé ! Et merci pour l'excellente présentation détaillée. :-)
http://sbm.ordinotheque.free.fr | http://www.mo5.com
"Un bon disque dur est un disque dur mort." (Général Cluster)
Avatar du membre
Hobiecat
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3626
Enregistré le : 06 sept. 2011 14:57
Localisation : Normandie

Re: HP-9825B ou HP-9825T . . .

Message par Hobiecat »

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

Une belle bécane, ce "calculator" surtout avec toutes ces options intégrées !
Avatar du membre
rene
El Presidente
El Presidente
Messages : 1448
Enregistré le : 16 mai 2002 20:08
Localisation : Toulouse
Contact :

Re: HP-9825B ou HP-9825T . . .

Message par 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
hp9830a.jpg (13.97 Kio) Vu 17570 fois
René
Avatar du membre
badaze
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 8385
Enregistré le : 12 févr. 2007 18:36
Localisation : Pas très loin de Lyon
Contact :

Re: HP-9825B ou HP-9825T . . .

Message par 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 ! :cry:

http://www.emmella.fr/page2192-2079-767 ... -9773.html
Tout est bon dans le pocket.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer :(
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
Avatar du membre
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 6172
Enregistré le : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: HP-9825B ou HP-9825T . . .

Message par 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 !
3 hommes, 3 demis, un 3a... Magnéto, Serge !

Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67
__: A L I E N .

« Boris », c'était juste Maurice enrhumé.
Avatar du membre
phm
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1361
Enregistré le : 08 avr. 2016 18:36
Localisation : Est Parisien

Re: HP-9825B ou HP-9825T . . .

Message par phm »

Superbe machine
Peut être un de ces jours ....
HEWLETT-PACKARD : The best
CANON
X-07 X-730 X-711 XR-100 XM-101 XP-110F XP-120F XP-130F XP-140

AMSTRAD CPC-464 CPC-6128 ATARI STF DAI Indata
Avatar du membre
gege
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 7141
Enregistré le : 31 janv. 2008 14:24
Localisation : Banlieue Paârisienne
Contact :

Re: HP-9825B ou HP-9825T . . .

Message par 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.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3405
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: HP-9825B ou HP-9825T . . .

Message par C.Ret »

emond a écrit : 27 juin 2020 02:11 [...]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.
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Avatar du membre
emond
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 458
Enregistré le : 15 févr. 2007 22:10
Localisation : Yvelines
Contact :

Re: HP-9825B ou HP-9825T . . .

Message par 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é :D
https://youtu.be/mYhiDpMl0mI

J'ai aussi ajouté une vidéo de l'impression du code.
https://youtu.be/TWlY2kPxylk
Avatar du membre
Hobiecat
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3626
Enregistré le : 06 sept. 2011 14:57
Localisation : Normandie

Re: HP-9825B ou HP-9825T . . .

Message par Hobiecat »

Sympa les petites vidéos ! On sent que c'était une machine pro à l'époque ! :wink:
Avatar du membre
gege
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 7141
Enregistré le : 31 janv. 2008 14:24
Localisation : Banlieue Paârisienne
Contact :

Re: HP-9825B ou HP-9825T . . .

Message par gege »

Bonjour,
Totalement sexy !!!
Bravo
Encore... :P
G.E.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3405
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: HP-9825B ou HP-9825T . . .

Message par 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...
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Avatar du membre
emond
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 458
Enregistré le : 15 févr. 2007 22:10
Localisation : Yvelines
Contact :

Re: HP-9825B ou HP-9825T . . .

Message par emond »

EmmanuelC
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 98
Enregistré le : 03 mai 2014 09:10
Localisation : IDF

Re: HP-9825B ou HP-9825T . . .

Message par EmmanuelC »

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

Retourner vers « Tous les ordinateurs »