generer un son marrant sur TO

[smague]

Pour

obtenir un son assez marrant avec le crayon optiquePROGRAMME SOURCE ASSEMBLEUR 6809* GENERATION D UN SON TITLE GENSON OR

$B000DUREE RMB 2FREQ RMB 1DEBUT LDX DUREE LDB FREQSUITE PSHS B

LDA $E7C3 EORA #8 STA $E7C1BOUCLE DECB BNE BOUCLE

PULS B LEAX -1,X BNE SUITE RTSLa compilation du programme assembleur GENSONgenere

les codes hexa à reporter dans un programme Basic ( codes hexa en DATA)10 CLS:CLEAR,&HHAFFF15 REM implantation routine en memoire20 FOR F=

&HB000 TO &HB01C30 READ A$:POKE F,VAL("&H"+A$)40 NEXT F45 REM report des codes hexa du programme source GENSON 50 DATA

00,00,00,BE,B0,00F6,B0,0255 DATA 34,04,B6,E7,C1,88,08,B7,E760 DATA C1,5A,26,FD,35,04,,30,1F65 DATA 26,ED,3968 REM ----------------------------70 ATTRB

1,180 PRINT "générateur de sons"85 REM pointage ecran avec crayon optique90 INPEN X,Y95 REM mauvais pointage100 IF X < 0 THEN 90110 POKE

&HB000,X @ 256120 POKE &HB001,X MOD 256130 POKE &HB002,Y+1140 EXEC &HB000 : GOTO 90