Sintetizador de voz de la revista Amstrad Accion número 0

Mensajepor **Artaburu** » Dom 15 Ago , 2021 1:52 pm

A continuación os dejo el código del sintetizador que sale en esta revista (es de los de teclear). ¿Qué hace? graba en memoria un audio que reproduzcamos en el casete.
|grabar, destino, tamaño
y luego se puede reproducir
|hablar,origen, tamaño, volumen
origen/destino es una posición de memoria. El código del programa está en A410 así que cuidado donde inicias la grabación y el tamaño en bytes que queréis grabar. 1 segundo ocupa unos 1500 bytes. Una burrada

Volumen de 0 a 15
La calidad de grabación? de baja a muy baja, el bitrate es muy reducido... ya probaréis.

Código: Seleccionar todo

10 REM |hablar y |grabar

20 MEMORY 41999

30 FOR i = 42000 TO 42328

40 READ a$ : v = VAL ("&" + a$)

50 CS = CS + V: POKE i,v

60 NEXT i

70 IF cs <> 40371 THEN PRINT "ERROR IN DATA"

80 CALL 42000

100 DATA C3,3A, A5,F3,E5,DD,E1,06,08, AF, CD, 35, A4, CD, 2F, A4,17, 10,F7, DD,77,00

110 DATA DD, 23, 1B, 7A, B3, 20, EA, FB, C9, 26, 11, 25, 20, FD,C9, C5, 06,F5, ED,60,CB, 14

120 DATA C1,C9,F5, 3E, C0,06,F6,ED, 79,06,F4,F1,ED,79,06,F6,3E,80,ED,79,06,F4

130 DATA ED, 49,06,F6,AF,ED,79,C9, CD, A7,BC,F3,3E,03,0E,00,CD, 3E, A4, 3E, 07,0E

140 DATA 3D, CD, 3E, A4,3E,02,0E,00,CD, 3E, A4,C9,E5, D5,CD,5A, A4, D1,E1,06,08,CB

150 DATA 06, C5, DC, 9B, A4, D4, A5, A4,E5, 26,01, CD, 31, A4,E1,C1, 10, ED, 23, 1B, 7A, B3

160 DATA 20, E5, CD,A7,BC, FB, C9,F5,3E,09,0E,09, CD, 3E,A4,F1,C9,F5,3E,09,0E,00

170 DATA CD, 3E, A4,F1,C9, FE, 03, 20, 0E, DD, 7E, 00, E6, 0F, 32, 9F , A4, DD, 23, DD, 23, 18

180 DATA 08, FE,02,C0,3E,09,32,9F, A4, DD,5E,00,DD,56,01, DD,6E,02,DD,66,03,CD

190 DATA 74, A4, C9, DD,5E,00, DD, 56,01, DD, 6E, 02, DD,66,03,FE,02,C0,06, F6,3E,10

200 DATA ED, 79,E5, 21,1A, A5,7E,B7,28,06, CD,5A, BB,23, 18,F6,CD, 18,BB, FE,0D,20

210 DATA F9,3E,47, CD,5A, BB,E1,CD, 13, A4, 3E, 08, CD, 5A, BB, 3E, 46, CD, 5A, BB, CD,71

220 DATA BC, C9,50,75,6c,73,61,20,45, 4E,54,45,52,20,70,61,72,61,20,65, 6d,70

230 DATA 65,7a, 61,72,20,3a, 20,20, 20, 20, 20,00,01,44, A5, 21,59, A5, CD, D1,BC,C9

240 DATA 4C, A5,C3, AF, A4,C3, D9, A4, 48,41,42,4c,41,D2,47,52,41,42,41,D2,00