nolist ; ____________________________________________________________________ ; ; PLAYER DE SAMPLES POUR SOUNDPLAYER - (c) One, 12/11/95 ; ; Pas tres complique a faire, mais tres sympa pour les oreilles... ; ____________________________________________________________________ org &8000 limit &8fff tempo equ 50 ; Temporisation pour faire varier la vitesse du sample ; Attention ! tempo doit etre superieur a 10 di ld bc,&7f00+194 out (c),c ld bc,&bc0d out (c),c start ld hl,0 ; 3 ds tempo-10 loop ld a,(hl) ; 2 ld b,&ef ; 2 out (c),a ; 3 add a,128 ; Pour faire joli a l'ecran srl a ; 2 rrc a ; 2 rrc a ; 2 ld b,&bd ; 2 out (c),a ; 3 b1 inc hl ; 2 ld a,l ; 1 cp a,&f1 ; 2 A MODIFIER pour un sample de taille differente jr nz,s1 ; oui 3 non 2 de &FDCA ld a,h ; 1 cp a,&fe ; 2 A MODIFIER pour un SMP <> de &FDCA jr z,start ; oui 3 non 2 jr s1+10 s1 ds tempo jr loop ; 3 list nop ;___________________________________________________ ; ; N'OUBLIEZ PAS LE MEETING FREEDELIRE 2 ; QUI SE DEROULERA A OYE-PLAGE (62) ; LES 23, 24, et 25 AOUT 1996 ;___________________________________________________ ; ;Renseignements, Contactez One a l'adresse suivante ; ; Christophe Dupas ; 274 rue des petits moulins ; 62215 Oye-Plage ; ; Tel 21 35 82 00 ;