Welcome,
Guest
. Please
login
or
register
.
Wiki
EP TV
EP Klub
Chat
Downloads
Login
Register
Enterprise Forever
:HUN
SOUND:
Az 1 bites hang csodái :)
« previous
next »
Print
Pages:
1
2
[
3
]
Go Down
Author
Topic: Az 1 bites hang csodái :) (Read 14893 times)
IstvanV
EP addict
Posts: 4822
Re: Az 1 bites hang csodái :)
«
Reply #30 on:
2019.February.26. 11:15:58 »
Egyszerű (megszakítás nélküli) lejátszó rutin
zcc -compiler sdcc
-hez, 11025 Hz-es hangmintánál 4 MHz-es gépen alapértelmezett memória várakozással a "speed" értéke 20:
Code: C
void
Play_Sample
(
const
unsigned
char
*
buf
,
unsigned
int
len
,
unsigned
char
speed
)
__naked
{
(
void
)
buf
;
(
void
)
len
;
(
void
)
speed
;
__asm__
(
"ld hl, #6
\n
"
"add hl, sp
\n
"
"ld c, (hl)
\n
"
"dec hl
\n
"
"ld d, (hl)
\n
"
"dec hl
\n
"
"ld e, (hl)
\n
"
"dec hl
\n
"
"ld a, (hl)
\n
"
"dec hl
\n
"
"ld l, (hl)
\n
"
"ld h, a
\n
"
"ld a, #0x18
\n
"
"di
\n
"
"out (0xa7), a
\n
"
"ld a, (hl)
\n
"
"inc hl
\n
"
"and a, #0xfc
\n
"
"rra
\n
"
"rra
\n
"
"out (0xa8), a
\n
"
"out (0xac), a
\n
"
"ld b, c
\n
"
".byte 16
\n
"
// DJNZ -2
".byte 254
\n
"
"dec de
\n
"
"ld a, e
\n
"
"or a, d
\n
"
".byte 32
\n
"
// JR NZ, -18
".byte 238
\n
"
"out (0xa7), a
\n
"
"ei
\n
"
"ret
\n
"
)
;
}
Logged
Tomato77
EP user
Posts: 397
Country:
Támogató
Re: Az 1 bites hang csodái :)
«
Reply #31 on:
2019.February.26. 19:25:56 »
Fú, műxik, és nagyon tisztán játssza le!
Köszönöm a segítséget mindenkinek! 6 KHz-re konvertáltam, így lett kb. 2400 bájt. Simán C-ben megírva is működik. Kész lesz a fórumtali előtt.
Logged
K
o
t
a
s
o
f
t
Print
Pages:
1
2
[
3
]
Go Up
« previous
next »
Enterprise Forever
:HUN
SOUND:
Az 1 bites hang csodái :)