Как воспроизвести .mod?

[Enigmatic]

Как вобще можно вставить в свою программу play mod файла?
Имеется ввиду GS а не оцифровка.
Так-же вопрос-можно ли как нибудь воспроизвести музыку с редактора Instrument?

[AER]

http://vtrdos.ru/system.htm ну наверное тут смотри, в плеерах.

[psb]

Как вобще можно вставить в свою программу play mod файла?
Имеется ввиду GS а не оцифровка.
1. даешь команду GS Reset
2. команда загрузки модуля
3. команда открытия потока (#D1, если правильно помню)
4. загружаешь модуль, байт за байтом
5. ком. закрытия потока (#D2?)
6. ком. play

[Stingrey]

Вот немного модифицированный драйвер GS, написанный для 10-го номера Insanity. Пользуйтесь на здоровье :)




; / Driver General Sound for Insanity /
; Version 1.1
;-= (c) 2001-2003 Stingrey/GPC/Insanity Org. =-

;-----------------------------------------------------
; Реализованные в данной версии точки входа в драйвер:
;
; INIT - Инициализация и проверки General Sound
; LOAD_MOD - Навороченная процедура загрузки и запуска MOD'а
; VOLUME_MOD - Регулировка громкости
; STOP_MOD - Пауза
; CONT_PLAY - Продолжаем слушать музыку
;


ORG #C000

; Инициализация:
; Входные параметры: (отсутствуют)
; На выходе: z=0 - GS PRESENT/ z=1 - GS NOT PRESENT OR BROKEN
; (c=0 - ALL O'K/ c=1 - BROKEN GS)
; ----
; Total RAM of GS = E * 65536 + HL (bytes)

INIT DI
LD A,#23
LD B,A
OUT (#BB),A
LOOP1 IN A,(#BB)
RRCA
JR NC,GS_PRESENT
DEC BC
LD A,B
OR C
JR NZ,LOOP1
IN A,(#7B) ; блокировка ПЗУ ZX-LPRINT
RET ; GS отсутствует совсем !

GS_PRESENT

EI
HALT
DI
IN A,(#B3)
INC A
AND 252
RET Z ; Глючный GS !!!
LD A,#20
LD C,#B3
CALL SENDCOM
IN L,(C)
CALL WAITNEXT
IN H,(C)
CALL WAITNEXT
IN E,(C)
CCF
RET

; Загрузка модуля в память GS и его проигрывание:
; Входные параметры: HL - адрес буфера в памяти ZX;
; A - количество 16K (32K) блоков в модуле:
; (ABS [bloks] = MODULE_LENGHT (bytes)/16384)
; DE - длина текущего блока в байтах
;
; Выходные параметры: A - количество оставшихся блоков
; z=1 - модуль полностью загружен

LOAD_MOD

DI
LD C,A
LD A,(BLOKS)
OR A
JP NZ,LOAD2
LD A,C
LD (BLOKS),A
CALL FADE_VOL
LD A,#30
CALL SENDCOM
LD A,#D1
CALL SENDCOM
LOAD2 LD A,D
CPL
LD D,A
LD A,E
CPL
LD E,A
INC DE
LD C,#BB
LOOP2 LD A,(HL)
IN B,(C)
JP P,READY
IN B,(C)
JP M,LOOP2
READY OUT (#B3),A
INC HL
DEC E
JP NZ,LOOP2
INC D
JP NZ,LOOP2
LD A,(BLOKS)
DEC A
LD (BLOKS),A
RET NZ
LOOP3 IN B,(C)
JP M,LOOP3
LD A,#D2
CALL SENDCOM
LD A,1
OUT (#B3),A
LD A,#31
CALL SENDCOM
LD A,(M_VOL)
JP VOL2

FADE_VOL
LD A,(M_VOL)
LD B,A
LOOP4 LD A,B
CALL VOL2
EI
HALT
DI
DJNZ LOOP4
CALL STOP_MOD
RET

BLOKS DB 0
M_VOL DB #40

; Установка громкости:
; Входной параметр: A - уровень громкости (#00 - #40)

VOLUME_MOD

LD (M_VOL),A
VOL2 OUT (#B3),A
LD A,#2A
JP SENDCOM

; Остановка проигрывания модуля (типа кнопки PAUSE):
; (параметров не требует)

STOP_MOD

LD A,#32
JP SENDCOM

; Продолжение проигрывания после 'PAUSE':
; (параметров не требует)

CONT_PLAY

LD A,#33
JP SENDCOM

SENDCOM
OUT (#BB),A

WAITCOM
IN A,(#BB)
RRCA
RET NC
JR WAITCOM

WAITNEXT
IN A,(#BB)
RLCA
RET C
JR WAITNEXT
END