ZXNet эхоконференция «code.zx»

Hello, All

Предлагаю в этой теме публиковать интересные решения касательно Spectrum. Я
тоже по мере появления свободного времени буду выкладывать свои старые (т.к.
новых нет и не может быть) интересные наработки.

Воспроизведение магнитофонной записи через бипер Спектрума:
┌─- code ───
DI
IN A, (254)
RRA
RRA
OUT (254), A
JR $ - 8
└── code ───
Откомпилированное:
┌─- code ───
243
219, 254
31
31
211, 254
24, 248
└── code ───
Идея: берем бит состояния магнитофона и посылаем его на бипер. В свое время я
делал специальные загрузчики к своим программам, которые выполняли подобный код
в течении нескольких секунд, а сразу после загрузчика на ленте проговаривалось
название программы. Получалось, что после загрузки очень маленького загрузчика
Спектрум говорил (!) название программы с достаточно высоким качеством звука.
Еще этот метод позволяет защитить программу от копирование с помощью спец софта
(copy и т.п.), т.к. если за загрузчиком вместо речи сразу будет следовать
следующий блок, то он окажется пропущенным (из-за паузы в несколько секунд).

Hello, Arigato

Hебольшой драйвер Sinclair-джойстиков
Полезным он окажется при программировании на Бейсике. В отличии от Kempston
джойстика, который можно опросить через порт 31 (если память не изменяет) прямо
Бейсик-командой, с Sinclair джойстиком дела обстоят хуже. Облегчит эту задачу
преведенный драйвер. Используется формат 1,2,3,4,5 для Sinclair II и 6,7,8,9,0
для Sinclair I.
Код самого драйвера (адрес 65129):
┌─- code ───
ORG FE69h
PUSH AF
PUSH BC
LD B, 00011111b
LD A, 239
IN A, (254)
AND B
XOR B
LD (23670), A
LD A, 247
IN A,(254)
AND B
XOR B
LD (23671), A
POP BC
POP AF
JP 56
└── code ───
Откомпилированный вариант (для упрощения непосредственного ввода):
┌─- code ───
245
197
6, 31
62, 239
219, 254
160
168
50, 118, 92
62, 247
219, 254
160
128
50, 119, 92
193
241
195, 56, 0
└── code ───
Для активации работы драйвера используем такую подпрограмму:
┌─- code ───
PUSH AF
DI
LD A, 9
LD I, A
IM2
EI
POP AF
RET
└── code ───
Откомпилированная: 254, 243, 62, 9, 237, 71, 237, 94, 251, 241, 201
Для остановки работы драйвера исполняем следующую процедуру:
┌─- code ───
DI
IM1
EI
RET
└── code ───
Откомпилированная: 243, 237, 86, 251, 201
В результате состояние джойстика Sinclair I будет записываться в системную
переменную SEED (адрес: 23670), а Sinclair II в SEED+1 (23671). О состоянии
джойстика говорят отдельные биты: стрельбы - D0, вверх - D1, вниз - D2, вправо
- D3, влево - D4. Если бит установлен - клавиша нажата, если сброшен - не
нажата. Т.к. системная переменная SEED используется генератором случайных
чисел, то может оказаться необходимым изменить адрес записи состояний
джойстиков (если это нарушит нормальную генерацию псевдослучайных чисел).

Hello, Arigato

Ari> Идея: берем бит состояния магнитофона и посылаем его на бипер. В свое
Ari> время я делал специальные загрузчики к своим программам, которые
Ari> выполняли подобный код в течении нескольких секунд, а сразу после
Ari> загрузчика на ленте проговаривалось название программы. Получалось,
Ari> что после загрузки очень маленького загрузчика Спектрум говорил (!)
Ari> название программы с достаточно высоким качеством звука. Еще этот
Ari> метод позволяет защитить программу от копирование с помощью спец
Ari> софта (copy и т.п.), т.к. если за загрузчиком вместо речи сразу будет
Ari> следовать следующий блок, то он окажется пропущенным (из-за паузы в
Ari> несколько секунд).

Вопрос: при обычной загрузке программы на исполнение её загрузчик как-то
пытается распознать речевой фрагмент или просто делает паузу на несколько
секунд?

Hello, Wlodek

Wlo> Вопрос: при обычной загрузке программы на исполнение её загрузчик
Wlo> как-то пытается распознать речевой фрагмент или просто делает паузу
Wlo> на несколько секунд?

В приведенном мною примере зацикливание бесконечное, т.е. через бипер будет
играть все, что поступает с магнитафона. Для загрузчика надо сделать не
бесконечный цикл, а подобрать такое количество итераций, что бы успеть
проговорить запись речи.
P.S. Распозновать ни кто ничего не пытается (это не подсилу Speccy), просто то,
что есть на ленте, то и воспроизводится...

Hello, Arigato

А у меня то же есть весёлая процедурка, интересно кто-нибудь узнает что это за
звук, который она выдаст ?
┌─- CODE ───

LD HL,0
LD A,L
M1 RRCA
RRCA
AND 15
LD E,A
LD D,0
PUSH HL
LD L,(HL)
CALL 949
POP HL
DEC L
JR NZ,M1
RET

└── CODE ───


И ещё вот эта:
┌─- CODE ───

LD HL,0
LD DE,1
M1 PUSH HL
LD L,(HL)
PUSH DE
CALL 949
POP DE
POP HL
DEC L
JR NZ,M1
RET

└── CODE ───

Hello, Arigato

Ari> Получалось, что после загрузки очень маленького загрузчика Спектрум
Ari> говорил (!) название программы с достаточно высоким качеством звука.
Ari> Еще этот метод позволяет защитить программу от копирование с помощью
Ari> спец софта (copy и т.п.), т.к. если за загрузчиком вместо речи сразу
Ari> будет следовать следующий блок, то он окажется пропущенным (из-за
Ari> паузы в несколько секунд).

То-то я думал, зачем дискованый "Armageddon Man" что-то говорит... красиво,
конечно, но это -- бывшая tape-защита... яясно :)

Hello, Robus

Rob> А у меня то же есть весёлая процедурка, интересно кто-нибудь узнает
Rob> что это за звук, который она выдаст ?

Если не трудно, приведи откомпилированный вариант в десятичной системе, что бы
с помощью POKE ввести. Просто ради такой маленькой проги даже ассемблер
запускать не хочется, а переводить вручную лень...

Hello, Arigato

Ari> Если не трудно, приведи откомпилированный вариант в десятичной
Ari> системе, что бы с помощью POKE ввести. Просто ради такой маленькой
Ari> проги даже ассемблер запускать не хочется, а переводить вручную
Ari> лень...

Hу зачем же поками, сделаем прямо загрузчик, в моём асме это всего 3 минуты. =)

Файл: Less-003.zip http://zx.pk.ru/attachment.php?attachmentid=3186

Hello, Arigato

Ari> Воспроизведение магнитофонной записи через бипер Спектрума:
Ari> Код:
Ari> DI
Ari> IN A, (254)
Ari> RRA
Ari> RRA
Ari> OUT (254), A
Ari> JR $ - 8

А я быстрее, причём намного быстрее

1) Вариант без всяких изворотов - это твой

2) вариант с изворотами - в D заполняем #40, после чего если добавить после in
a,(254) add a,d то во флаге переноса будет значение нужного бита (кто не верит
пусть проверит)

Тогда

DI
IN A, (254)
ADD A,D
OUT (254), A
JR $ - 7

3) И это не предел
Переход всегда осуществляется по одному и тому же адресу... а значит можно его
запрограммировать и ускориться
Даже если просто вголую заменить JR на JP то уже каждый цикл будет на 2 такта
быстрее (10 тактов для JP и 12 тактов для JR)

DI
LD HL,METKA
METKA:IN A, (254)
ADD A,D
OUT (254), A
JP (HL)

4) И это не предел, можно ещё уменьшить затраты (как?).

Просто! Развернём

DI
LD HL,METKA
METKA:IN A, (254)
ADD A,D
OUT (254), A

IN A, (254)
ADD A,D
OUT (254), A



IN A, (254)
ADD A,D
OUT (254), A

JP (HL)

В этом случае накладные расходы связанные с переходом JP (HL) будут
минимальные, и быстрее проигрывать состояние УХА ничего не будет (по крайней
мере напрямую).

А вот если работать через память (вначале оцифровывать а затем проигрывать)там
можно уж совсем быстро (за 21 такт), но это уже будет совсем некороткая
процедурка (((-;

А если просто (заранее оцифрованный звук) выводить там и до 12 тактов можно
дорасти (((-; Если заинтересовались читайте мою статью, в 3-Bit была первая
часть, а вторая часть пока неопубликована.