Просмотр полной версии : Где смотреть исходники zxs stp stc плееров?
Собственно, сабж.
Поис выдаёт мильён ссылок на музыку. WildPlayer эти форматы умеет.
Но я хочу все это засунуть в библиотеки для SDCC - нужны исходники.
denpopov
15.11.2014, 06:07
это?
Oleg N. Cher
15.11.2014, 06:40
SfS, а вот уже адаптированный для SDCC плеер PT3x0A, взятый из журнала 3BIT. Требует для своей работы выравнивания на границу 256 байт. Плеер Бульбы вроде круче, но вдруг и этот пригодится. :)
PT3x0A.h (https://github.com/Oleg-N-Cher/XDev/blob/master/ZXDev/Lib/PT3x0A.h)
PT3x0A.c (https://github.com/Oleg-N-Cher/XDev/blob/master/ZXDev/Lib/PT3x0A.c)
Нашёл в STC плеере общибку.
l7ff1: ld c,#0xfd
l7ff3: ld b,#0xff
out (c),a
;БЫЛО ld b,#0x0b
; Должно быть
ld b,#0xbf
outd
dec a
jp p,l7ff3
ret
Как мне узнать, что STC-плеер проиграл мелодию?
---------- Post added at 16:01 ---------- Previous post was at 15:06 ----------
Может кто знает как узнать, что stc-мелодия проигралась? Ну как в pt3-плеере, например - выставляется флаг... А тут - в stc - непонятно.
denpopov
15.11.2014, 12:20
Как мне узнать, что STC-плеер проиграл мелодию?
не помню где, но Кодебастерсы использовали зацикливание музона ld a,0 менялся на ld a,N
SfS, никак
вот кусок отвечающий за окончание мелодии
делай сам что хочешь
l7cbc: ld a,(l7c64)
ld c,a
ld hl,song_length ;длинна мелодии
cp (hl)
jp c,l7cc9 ;дошли до конца?
xor a ;начинаем сначала
ld c,a
l7cc9: inc a ;или продолжаем эту мелодию
ld (l7c64),a
; Должно быть
ld b,#0xbf
Должно быть ld b,#0xc0
denpopov
15.11.2014, 14:45
Должно быть ld b,#0xc0
ассемблер Maxam затосковал бы над этим :)
Должно быть ld b,#0xc0
Неа. bc - адрес регистра AY
0xFFFD и 0xBFFD
OUTD сначала делает dec b, потом вывод в порт.
OUTD сначала делает dec b, потом вывод в порт.
Оно при ld b,#0xC0 сбрасывается, а при ld b,#0xBF - играет музыку :)
Доработал stc-player и pt2-pt3-players для sdcc.
Добавил интерфейс к SDCC и управление/отслеживание состояния в stc-player.
вот что получилось: stc-ptx-test.7z
Powered by vBulletin® Version 4.2.5 Copyright © 2026 vBulletin Solutions, Inc. All rights reserved. Перевод: zCarot