[C64] Saisie d'un code basic/ASM pour carte MAE8000

Cette catégorie traite de développements récents pour nos vieilles machines, applications, jeux ou démos... Amis programmeurs, c'est ici que vous pourrez enfin devenir célèbres!

Modérateurs : Carl, Papy.G, fneck

Avatar du membre
yo_fr
Messages : 1321
Enregistré le : 13 août 2009 18:24
Localisation : 78...
Contact :

Re: [synthèse vocale] sur 8 bits ?

Message par yo_fr » 07 mars 2018 20:50

Phil, si tu veux j'ai le fichier de data de la page 264... (Il est dans la disquette MEA dans VBHector :wink: ).

Avatar du membre
6502man
Messages : 9009
Enregistré le : 12 avr. 2007 22:46
Localisation : VAR
Contact :

Re: [synthèse vocale] sur 8 bits ?

Message par 6502man » 08 mars 2018 12:15

C'est cedric qui veux taper ce listing :wink:
Phil.

www.6502man.com

To bit or not to bit.
1 or 0.

cedric
Messages : 20
Enregistré le : 06 mars 2018 00:11

Re: [synthèse vocale] sur 8 bits ?

Message par cedric » 09 mars 2018 22:04

J' ai trouvé une version pdf de "parole et micros" avec une qualité de scan meilleure que le rendu djview pour la partie logiciel basic du commodore 64, voici le lien:ftp://forler.ch/pub/doc/paroles/

cedric
Messages : 20
Enregistré le : 06 mars 2018 00:11

Re: [synthèse vocale] sur 8 bits ?

Message par cedric » 09 mars 2018 22:32

Moi qui croyait que ce serait simple de réaliser ce projet...
J' ai tapé le logiciel pour sauvegarder le fichier binaire.
le logiciel a l' air de fonctionné.

adresse début:
adresse fin:
ac:
somme:
sauvegarde 8 ou 1 : ph4.2speech

Je crois comprendre qu' il faille rentrer le listing "phonemes 4.2" p260 annexe "parole et micros"
Mais je comprends pas trop, je rentre la premiere ligne

adresse debut : 0000
adresse fin : 0010
ac: 005400.....
somme : 1083
sauvegarde oui ou non ?
ex : oui
mais après on fait quoi, il y a un sacré listing et je n' ai rentré qu une ligne de 16 octet, je comprends pas trop, si qqun peut m ' eclairer pour rentrer tout le listing avec ce logiciel? merci

Avatar du membre
6502man
Messages : 9009
Enregistré le : 12 avr. 2007 22:46
Localisation : VAR
Contact :

Re: [synthèse vocale] sur 8 bits ?

Message par 6502man » 09 mars 2018 23:50

D'après le manuel je dirais que tu devrais procéder comme ceci pour rentrer le dictionnaire de phonèmes :

adresse debut : C000
adresse fin : C648
ac: 005400.....
somme : 1083
sauvegarde oui ou non ? OUI après avoir saisie tout le dictionnaire et la routine ASM ($C600-$C648) fourni page 122.
Il faut bien saisir à la suite les 2 sinon ca fonctionneras pas .

Bon courage pour la saisie du dictionnaire :D
Phil.

www.6502man.com

To bit or not to bit.
1 or 0.

Avatar du membre
Xavier_AL
Messages : 287
Enregistré le : 06 déc. 2017 20:30

Re: [synthèse vocale] sur 8 bits ?

Message par Xavier_AL » 10 mars 2018 01:18

Salut,
Et en OCR brut, c'est pas gagné...

ça demande de la correction:

Code : Tout sélectionner

1 REM PHONEMES 4.2
103 ad=0:l=1001
104 read a$:PRINT"{clear}";A$
105 cs=0:for i=0 to 15:read d:if d>255 then print ">255 : ";ad;"ligne";l:stop
106 if d<0 goto 112
107 poke ad+i+49152,d:cs=cs+d:next
108 read d:l=l+1
109 if d=cs then ad=ad+16:goto104
110 print "erreur data en : ";ad;"ligne";l-1:stop
111 print "erreur adresse : ";ad;"ligne";l:stop
112 read d:if d<>cs goto110
113 sys 36522:end
1001 DATA 0000,00,54,00,78,00,9C,00,CC,00,E1,01,02,01,2C,01,F5,1063
1002 DATA 0010,02,1C,01,50,01,74,01,98,01,EC,02,10,U2,5C,02,78,052
1003 DATA 0020,02,9C,02,80,02,C8,02,DC,02,F4,03,18,03,2C,03,44,1151
1004 DATA 0030,03,50,03,70,03,90,03,A4,03,C4,03,D0,03,F8,04,30,1241
1005 DATA 0040,04,70,04,B0,04,10,05,30,05,5C,05,A0,05,80,05,8C,1133
1006 DATA 0050,FF,FF,FF,00,00,24,3C,3C,86,83,CD,A0,86,63,CD,A0,2277
1007 DATA 0060,86,82,D6,A0,86,82,D6,A0,96,82,CE,A0,96,82,CE,A0,2760
1008 DATA 0070,97,81,CD,A0,97,61,CD,A0,00,21,3C,3C,AF,83,85,20,2061
1009 DATA 0080,AF,63,85,20,AB,83,7E,20,AB,83,7E,20,A6,83,86,20,2051
1010 DATA 0090,A8,63,86,20,FF,83,85,20,FF,63,85,20,00,24,3C,3C,1870
1011 DATA 00A0,AF,DA,5D,20,AF,DA,5D,20,AF,VA,51,20,A1,DA,5E,20,2071
1012 DATA 00B0,AF,DA,66,20,AF,DA,66,20,AF,DA,65,20,AF,DA,65,20,2106
1013 DATA 00C0,00,21,3C,3C,C7,AC,01,A0,C7,AC,81,A0,C6,AP,85,20,2016
1014 DATA 00D0,C6,AB,85,20,C6,AU,85,20,C6,A5,85,20,D6,AB,84,A0,2279
1015 DATA 00E0,D6,AE,84,A0,00,21,3C,3C,87,67,5D,20,E7,87,5D,20,1815
1016 DATA 00F0,87,87,66,A0,67,87,66,A0,87,87,66,A0,67,67,66,A0,2512
1017 DATA 0100,87,87,5D,20,67,87,5b,20,00,24,3C,3C,A6,66,B5,20,1699
1018 DATA 0110,A0,86,85,20,66,66,BF,20,86,66,0F,20,E6,86,87,20,2311
1019 DATA 0120,86,86,87,20,FA,87,A5,20,FA,87,A5,20,00,21,3C,3C,1995
1020 DATA 0130,66,B8,85,A0,88,88,85,A0,88,68,87,20,56,68,87,20,2401
1021 DATA 0140188,68,87,20,BB,88,87,20,FB,88,85,A0,FB,88,85,A0,2532
1022 DATA 0150,00,24,3C,3C,52,CA,BD,20,52,CA,BD,20,97,CA,BD,A0,1868
1023 DATA 0160,97,CA,ED,A0,97,CA,BD,A0,97,CA,BD,AU,83,CA,BD,20,2660
1024 DATA 0170,83,CA,BD,20,00,24,3C,3C,66,CA,6D,A0,66,64,BD,A0,1972
1025 DATA 0180,66,65,BF,20,66,85,BF,20,65,85,C7,20,65,65,C7,20,2038
1026 DATA 0190,61,85,D5,A0,61,85,D5,A0,00,24,3C,3C,82,D1,A5,20,1994
1027 DATA 01A0,82,D1,A5,A0,03,CF,AE,A0,C3,CE,AE,A0,C3,D1,9E,A0,2793
1028 DATA 01B0,D2,D3,96,20,92,02,95,20,92,02,95,20,00,3C,3C,3C,1857
1029 DATA 01C0,5A,84,9C,20,5A,81,9C,20,5A,84,9D,20,5A,89,9D,20,1642
1030 DATA 01D0,5A,8A,86,A0,5A,8A,B6,A0,87,AD,C6,A0,87,AD,C6,A0,2472
1031 DATA 01E0,47,81,CE,A0,97,81,CE,A0,97,62,C6,20,97,82,C6,20,2346
1032 DATA 01F0,98,B1,C4,20,98,B1,C4,20,00,24,3C,3C,D6,83,6C,A0,1937
1033 DATA 0200,D6,83,60,20,FA,B1,66,20,FA,84,66,20,FA,84,66,20,2226
1034 DATA 0210,FA,84,66,20,F6,84,65,20,EA,84,64,A0,00,24,3C,3C,1953
1035 DATA 0220,98,AD,6C,A0,9B,AD,6C,A0,D6,AE,6D,20,DB,AE,6D,20,2260
1036 DATA 0230,DB,AE,6D,20,DB,AE,6D,20,98,AE,6C,A0,98,AE,6C,A0,2262
1037 DATA 0240,00,IC,3C,3C,80,D6,18,20,80,D6,1A,A0,90,82,13,A0,1575
1038 DATA 0250,A4,B2,13,A0,A5,61,24,A0,EA,91,76,20,00,1C,3C,3C,1736
1039 DATA 0260,80,85,18,20,80,65,18,A0,10,05,09,A0,A0,D5,0C,20,1671
1040 DATA 0270,40,D2,2C,A0,40,D9,5E,20,00,24,3C,3C,16,B7,FD,B0,1675
1041 DATA 0280,16,87,FE,30,16,87,FE,B0,16,87,FE,B0,16,67,FE,B0,2112
1042 DATA 0290,16,67,FE,B0,16,87,FE,30,16,87,FD,80,00,14,3C,3C,1916
1043 DATA 02A0,FF,97,60,20,FF,97,63,A0,FA,97,66,A0,A6,97,66,A0,2991
1044 DATA 02B0,00,18,3C,3C,1E,BA,7C,30,1E,BA,70,A0,1E,PA,76,B0,1593
1045 DATA 02C0,1E,BA,76,A0,1E,BA,75,B0,00,14,3C,3C,09,97,88,30,1487
1046 DATA 02D0,0D,97,5F,50,09,97,8E,P0,67,96,86,20,00,18,3C,3C,1524
1047 DATA 02E0,74,65,55,20,74,B5,55,20,74,66,21,20,71,66,2E,20,1580
1048 DATA 02F0,28,65,55,20,00,24,3C,3C,1C,61,5C,A0,4C,64,5C,A0,1510
1049 DATA 0300,4C,84,5D,20,1C,64,50,A0,9A,84,5E,A0,4A,84,5E,20,1718
1050 DATA 0310,44,B1,5D,A0,4A,84,5D,20,00,14,3C,3C,88,64,55,20,1459
1051 DATA 0320,48,64,5E,20,4C,B4,5F,20,1A,61,5E,20,00,18,3C,3C,1285
1052 DATA 0330,C2,69,38,30,C2,09,38,30,11,66,97,P0,16,63,8E,30,1883
1053 DATA 0340,58,82,8D,A0,00,14,3C,3C,3A,63,04,20,36,83,8D,A0,1615
1054 DATA 0350,79,82,96,20,97,E1,CD,20,00,18,3C,3C,F5,B0,A1,A0,1935
1055 DATA 0360,85,8F,86,20,85,5F,83,A0,54,60,3C,A0,54,P0,3A,A0,2063
1056 DATA 0370,00,20,3C,3C,09,F3,BD,30,09,13,VD,30,09,F3,BD,60,1717
1057 DATA 0380,09,F3,8D,B0,09,F3,8D,80,09,13,80,30,09,F3,80,30,2020
1058 DATA 0390,00,14,3C,3C,86,F6,90,30,66,F6,94,30,86,F6,96,30,2010
1059 DATA 03A0,98,64,80,A0,00,20,3C,3C,6A,82,04,A0,6A,62,85,20,1813
1060 DATA 03B0,64,82,86,20,6A,62,86,A0,6A,62,86,80,6A,62,86,P0,2216
1061 DATA 03C0,6A,62,86,30,00,14,3C,3C,12,F5,76,20,12,F5,76,A0,1560
1062 DATA 03D0,12,F5,77,30,AA,P1,76,A0,00,20,3C,3C,29,BA,5E,30,1627
1063 DATA 03E0,29,8A,BE,B0,29,EA,5E,B0,29,EA,5E,B0,29,PA,5E,C0,2180
1064 DATA 03F0,29,EA,5E,B0,29,BA,BE,30,00,30,3C,3C,98,07,5D,A0,1758
1065 DATA 0400,98,07,5D,A0,98,07,5D,A0,Y9,D0,55,20,FIE,D6,5C,202204
1066 DATA 0410,8F,D8,5E,20,8F,DU,51,20,AF,D0,56,A0,AF,08,56,A022.41
1067 DATA 0420,AF,D0,56,A0,7F,08,51,20,71,D0,5F,20,68,87,6F,AU,2138
1068 DATA 0430,00,40,3C,3C,57,63,DD,A0,46,84,E7,A0,46,E4,0F,A02105
1069 DATA 0440,AB,84,CF,A0,AB,C4,CF,A0,EA,85,C7,20,EA,85,C7,20272H
1070 DATA 0450,FA,B6,86,A0,FA,86,86,A0,PA,F,7,91,20,PA,87,9E,20,2666
1071 DATA 0460,BA,D5,7D,20,5A,D8,7D,20,FA,DU,73,20,FA,D8,73,20,2344
1072 DATA 0470,00,40,3C,3C,81,87,E6,20,88,87,86,20,FB,B7,A1,20,1993
1073 DATA 0480,F8,87,AF,20,FB,E7,A1,A0,FED,V7,AF,A0,88,87,9F,A0,2060
1074 DATA 0490,E8,E7,91,Au,BA,88,9F,20,PA,D8,0F,20,VA,D0,0F,20,2400
1075 DATA 04A0,BA,D8,7E,A0,BA,D8,7E,A0,FA,D0,75,Au,FA,D8,75,A0,2862
1076 DATA 04B0,00,40,3C,3C,E1,,83,AE,20,EE{,83,AC,20,97,84,A7,20,1959
1077 DATA 01C0,97,84,A7,20,97,89,A7,A0,57,84,A7,A0,67,B6,9F,2e,2258
1078 DATA 01D0,67,86,9F,20,77,86,87,20,68,87,7E,A0,EB,B7,7E,A0,2309
1079 DATA 01E0,A8,88,7E,20,AP,D0,76,20,68,08,76,20,CA,67,BC,A0,2192
1080 DATA 04F0,00,40,3C,3C,71,08,6D,20,71,D8,6E,A0,7F,D8,61,A0,1894
1081 DATA 0500,81,D7,87,20,FB,D7,81,20,86,D7,91,A0,67,06,BF,A0,2603
1082 DATA 0510,67,D6,BF,A0,67,D5,BF,20,67,D5,BF,20,61,D5,BE,20,2278
1083 DATA 0520,61,D5,BE,20,61,D5,PE,20,61,D1,C5,20,61,D4,C5,20,2140
1084 DATA 0530,00,2C,3C,3C,86,94,BD,A0,86,94,BE,A0,86,96,C7,20,1942
1085 DATA 0540,42,84,D7,A0,53,85,CF,A0,62,85,C7,20,62,85,C6,A0,2399
1086 DATA 0550,62,B5,C6,20,62,85,C5,A0,62,B5,C5,20,00,24,3C,3C,1809
1087 DATA 0560,AD,AF,A5,20,AD,AF,A5,20,AD,AF,A6,20,AD,AF,A6,20,2182
1088 DATA 0570,AD,AD,96,20,AD,AD,96,20,F9,AD,8D,20,F9,AD,8D,20,2246
1089 DATA 0580,00,0C,3C,3C,AB,83,80,20,AB,83,80,20,00,11,3C,3C,1292
1090 DATA 0590,AB,63,80,20,AB,83,80,20,AB,63,80,20,AB,63,80,20,2040
1091 DATA 05A0,00,18,3C,3C,09,F3,BD,30,09,F3,80,30,09,F3,BD,60,1691
1092 DATA 05B0,09,F3,BD,30,09,F3,80,30,75,30,69,86,55,A0,AD,87,1935

cedric
Messages : 20
Enregistré le : 06 mars 2018 00:11

Re: [synthèse vocale] sur 8 bits ?

Message par cedric » 10 mars 2018 18:15

Je crois que je vais laisser tomber, c' est buggé des la 2eme ligne a 0010 de phoneme4.2 p260. Je crois que je vais attendre une annonce de cartouche techni-musique. :lol:

Avatar du membre
6502man
Messages : 9009
Enregistré le : 12 avr. 2007 22:46
Localisation : VAR
Contact :

Re: [synthèse vocale] sur 8 bits ?

Message par 6502man » 10 mars 2018 21:18

Quel est le bug à la 2 ème ligne ???
Phil.

www.6502man.com

To bit or not to bit.
1 or 0.

Daniel
Messages : 10565
Enregistré le : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [synthèse vocale] sur 8 bits ?

Message par Daniel » 10 mars 2018 21:30

Il n'y a aucun bug dans ce programme. Par contre l'impression du listing n'est pas très bonne et certains caractères peuvent être mal interprétés.
Toutefois, grâce à la checksum en fin de chaque ligne, on peut facilement corriger les fautes de frappe.
Daniel
L'obstacle augmente mon ardeur.

cedric
Messages : 20
Enregistré le : 06 mars 2018 00:11

Re: [synthèse vocale] sur 8 bits ?

Message par cedric » 10 mars 2018 21:34

adresse de debut : 0010
adresse de fin : 0020
ac : 02 1C 01 50 01 74 01 98 01 BC 02 40 02 5C 02 78
formula too complex error in 170
????
serait ce le logiciel que j aurai mal tapé?
Modifié en dernier par cedric le 10 mars 2018 22:12, modifié 1 fois.

Daniel
Messages : 10565
Enregistré le : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: [synthèse vocale] sur 8 bits ?

Message par Daniel » 10 mars 2018 21:46

Si tu veux de l'aide pour corriger ton programme, il faudrait au minimum nous montrer ce que tu as tapé.
Daniel
L'obstacle augmente mon ardeur.

Avatar du membre
6502man
Messages : 9009
Enregistré le : 12 avr. 2007 22:46
Localisation : VAR
Contact :

Re: [synthèse vocale] sur 8 bits ?

Message par 6502man » 10 mars 2018 21:54

Non les adresses ne sont pas conforme à la doc, relis mon précèdent post :|
Phil.

www.6502man.com

To bit or not to bit.
1 or 0.

cedric
Messages : 20
Enregistré le : 06 mars 2018 00:11

Re: [synthèse vocale] sur 8 bits ?

Message par cedric » 10 mars 2018 22:19

Voila ce que j ai tapé pour le logiciel speech pour rentrer les données binaires:

100 rem*copyright 1985 stephane benoit*
110 input"adresse de debut";ad:ac=ad
120 input"adresse de fin";af
130 print"ac";:inputn$:b=0
140 fori=1to16:h$=mid$(n$,2*i-1,1):l$=mid$(n$,2*i,1)
150 ready$,h:ifh$<>y$then150
160 restore
170 readx$,l:ifl$<>x$then170
180 restore
190 a=16*h+l:pokeac+i-1,a:b=b+a:next
200 data0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,a,10,b,11,c,12,d,13,e,14,f,15
210 input"somme";s
220 ifs<>bthenprint"erreur":goto130
230 ac=ac+16:ifac>=afthen250
240 goto130
250 print"voulez-vous sauvegarder les codes (o/n)";:inpute$
260 ife$="n"thenend
280 input"titre";nm$:l=len(nm$)
290 input"disque(8) ou cassette(1)";pr
300 poke780,1:poke781,pr:poke782,255
310 sys65466
320 fori=1tol:poke831+i,asc(mid$(nm$,i,1)):next
330 poke780,l:poke781,832-256*int(832/256):poke782,int(832/256)
340 sys65469
342 ld=ad-256*int(ad/256)
344 lf=af-256*int(af/256)+1
350 poke251,ld:poke252,ad/256
370 poke780,251:poke781,lf:poke782,af/256
380 sys65496
390 end

Avatar du membre
Xavier_AL
Messages : 287
Enregistré le : 06 déc. 2017 20:30

Re: [synthèse vocale] sur 8 bits ?

Message par Xavier_AL » 10 mars 2018 22:43

:D
Cedic, 6502Man veut attirer ton attention sur :
6502man a écrit :
09 mars 2018 23:50
D'après le manuel je dirais que tu devrais procéder comme ceci pour rentrer le dictionnaire de phonèmes :

adresse debut : C000
adresse fin : C648
Donc adresse de début PAS 0, mais C000 en HEXA, redonc = taper "49152" au premier input.
Donc adresse de fin PAS 648, mais C648 en HEXA, redonc = taper "50760" au second input.

Pas d'hexadécimal dans le input d'adresse!

Par contre, "AC" est bien en Hexadécimal...
Mais pas la somme de vérification en fin de ligne.
:mrgreen:

cedric
Messages : 20
Enregistré le : 06 mars 2018 00:11

Re: [synthèse vocale] sur 8 bits ?

Message par cedric » 10 mars 2018 22:58

ok dès que j' ai un peu de temps, je m'y remettrai. Merci pour vos explications. Je passe sur emulateur de c64, ce sera plus simple pour rentrer les codes. Bon week-end.

Répondre