[Thomson] Instruction RESET en BASIC 512

Tout ce qui concerne le logiciel original et sa sauvegarde avec entre autre la régénération des disquettes ou autres supports physiques.

Modérateurs : Papy.G, fneck, Carl

Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

[Thomson] Instruction RESET en BASIC 512

Message par Daniel »

J'ai trouvé cette instruction BASIC dans un programme commercial pour TO8 :

Code : Tout sélectionner

RESET"BM60,60H10L30H10U25E10R30D8L8R8G8E8D8U8F8H8R8L8U8L10E5G13H13F5L4G10D10R4U8D16U8E8G8R8L8F8H8"
Savez-vous ce qu'elle fait ?
Daniel
L'obstacle augmente mon ardeur.
jasz
Messages : 1313
Inscription : 05 oct. 2016 20:05
Localisation : Quelque part dans le 31

Re: [Thomson] Instruction RESET en BASIC 512

Message par jasz »

Le BM me fait penser à BitMap et le 60 qui suit à 60hz. Pour le reste je ne vois pas :roll:
__sam__
Messages : 7923
Inscription : 18 sept. 2010 12:08
Localisation : Brest et parfois les Flandres

Re: [Thomson] Instruction RESET en BASIC 512

Message par __sam__ »

Je savais pas que le basic 512 avait un argument optionnel. BM60 seul envoie dans le menu de réglage du crayon optique. Après je peux pas tester plus avec retroarch sur téléphone.... (je sais pas faire de copier/coller).
Samuel.
A500 Vampire V2+ ^8^, A1200 (030@50mhz/fpu/64mb/cf 8go),
A500 GVP530(MMU/FPU) h.s., R-Pi, TO9, TO8D, TO8.Démos
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Instruction RESET en BASIC 512

Message par Daniel »

Je n'avais jamais vu cette instruction avec des paramètres, et d'après mes recherches les paramètres ne sont pas décrits dans les documentations.
Si on exécute le programme en BASIC 1.0 sur TO7/70, ce RESET semble ne rien faire et la suite du programme fonctionne normalement.
Par contre, en BASIC 512 sur TO8, on revient au menu d'accueil. C'est peut-être une protection contre la copie ?

Voici le programme complet. C'est l'AUTO.BAT de la disquette "FAITES VOS JEUX" éditée par CHRYSIS en 1989.

Code : Tout sélectionner

2 T$="FAITES VOS JEUX":A$="Daniel TORCQ":N$="L12503/33/43":C$="1989":S$="DEPART"
3 CONSOLE0,24:CLS:SCREEN2,0,0:RESET"BM60,60H10L30H10U25E10R30D8L8R8G8E8D8U8F8H8R8L8U8L10E5G13H13F5L4G10D10R4U8D16U8E8G8R8L8F8H8":ATTRB1,1:LOCATE12,2,0:PRINT"CHRYSIS"
4 ATTRB0,0:LOCATE13,0:COLOR3:PRINT"Les Editions":LOCATE17,3:PRINT"BP 38":LOCATE8,4:PRINT"RN 10 La Croix Blanche":LOCATE8,5:PRINT"86360 CHASSENEUIL DU POITOU":LOCATE12,6:PRINT"Tel: 49.52.83.96"
5 LOCATE0,23,0:PRINT"Copyright ";C$:LOCATE38-LEN(N$),23,0:PRINTN$
6 BOXF(25,80)-(303,160),4:BOX(22,78)-(306,162),2
7 COLOR3,4:LOCATE14-LEN(T$)/2,15:ATTRB1,1:PRINTT$:ATTRB0,0:T2$="jouer avec des mots"
8 COLOR3,4:LOCATE20-LEN(T2$)/2,16:PRINTT2$:ATTRB0,0:COLOR6:LOCATE30-LEN(A$),19,0:PRINT"Auteur:"+A$
9 ATTRB0,0:COLOR3,0:LOCATE38-LEN(N$),23,0:PRINTN$:LOCATE0,0,0:A$=INPUT$(1):RUN""+S$
Dernière modification par Daniel le 06 août 2022 15:46, modifié 1 fois.
Daniel
L'obstacle augmente mon ardeur.
__sam__
Messages : 7923
Inscription : 18 sept. 2010 12:08
Localisation : Brest et parfois les Flandres

Re: [Thomson] Instruction RESET en BASIC 512

Message par __sam__ »

Attention entre un reset à chaud ou à froid le comportement ne semble pas reproductible. Parfois cela m’emmène dans le menu "exploitation de logiciels". J’ai pas trop compris la régularité.

Le reste de la chaîne me fait penser au commandes du MIG (micro interpréteur graphique) de l’extramon. Je sais si ca correspond vraiment (je n’ai pas les manuels avec moi), mais ça m’y fait penser. Une suite d’instructions sur une lettre suivi par des arguments numériques.

Tu as essayé sur TO9 ?
Samuel.
A500 Vampire V2+ ^8^, A1200 (030@50mhz/fpu/64mb/cf 8go),
A500 GVP530(MMU/FPU) h.s., R-Pi, TO9, TO8D, TO8.Démos
DiscoSeb
Messages : 76
Inscription : 25 juil. 2021 16:05
Localisation : Yvelines

Re: [Thomson] Instruction RESET en BASIC 512

Message par DiscoSeb »

Hello,

Vous n'y êtes pas du tout, il ne s'agit pas de la commande RESET mais de la commande DRAW.
Si vous lisez le programme sur un MO5 la commande DRAW apparaitra (la commande RESET n'existe pas sur MO5).

En effet, la commande DRAW du Basic MO5 utilise la clé 0xE9 et la commande RESET sur MO6 et TO7/8/9 utilise également la clé 0xE9, d'où la confusion.
Quant à la commande DRAW sur MO6 et TO7/8/9, elle ne dispose pas de clé.

Le résultat du DRAW semble être le logo de Chrysis, la preuve en image :
Pièces jointes
chrysis.jpg
chrysis.jpg (16.6 Kio) Consulté 4272 fois
Seb
MO5 (gomme, méca, Platini), MO6, TO7, TO7-70, TO8D, TO9
MO/TO Exploitation de fichiers


Recherche : TO8, TO9+ (à prix raisonnable)
__sam__
Messages : 7923
Inscription : 18 sept. 2010 12:08
Localisation : Brest et parfois les Flandres

Re: [Thomson] Instruction RESET en BASIC 512

Message par __sam__ »

Ah.. interressant. Je ne savais pas que le basic1 du mo5 avait cette commande DRAW à la différence des autres thomson (je n’ai connu que les TO). C’est standard ou lié à un fichier binaire chargé juste avant?

En tout cas, cela confirme mon hypothèse d’un M.I.G (micro interpréteur graphique) comme dans l’extramon. Merci pour ton éclairage.

Il reste quand même que RESET avec une chaine semble faire des trucs qu’il faudrait explorer.
Samuel.
A500 Vampire V2+ ^8^, A1200 (030@50mhz/fpu/64mb/cf 8go),
A500 GVP530(MMU/FPU) h.s., R-Pi, TO9, TO8D, TO8.Démos
nouvelhermes
Messages : 401
Inscription : 22 juil. 2020 20:56

Re: [Thomson] Instruction RESET en BASIC 512

Message par nouvelhermes »

De façon certaine, la commande DRAW n'existe pas dans le basic 1.0 du MO5, par contre elle existe sur le basic DOS, et sur les nanoréseau (le basic nanoréseau est bien plus complet que celui du MO5). Par contre j'ignore comment le basic nanoréseau est chargé.
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [Thomson] Instruction RESET en BASIC 512

Message par Daniel »

Ah oui, tout s'éclaire grâce à l'intervention de DiscoSeb :

Le programme original est très certainement un programme nanoréseau TO7/70, pour lequel l'instruction DRAW est valide.
Le BASIC nanoréseau est chargé en RAM du TO7/70, à l'initialisation de la machine, à partir de la disquette A: du serveur nanoréseau.

La disquette 3"1/2 récupérée par Bernouilli92 dans un lot n'est pas un original. Elle a été créée à partir de la version nanoréseau.

Elle fonctionne sur TO7/70 ou TO8 en DOS-BASIC 1.0 car l'instruction DRAW existe.
Elle ne fonctionne pas sur TO7/70 en BASIC 128 car l'instruction DRAW est interprétée comme RESET.
Elle ne fonctionne pas sur TO8 en BASIC 512 pour la même raison.
Daniel
L'obstacle augmente mon ardeur.
Répondre