Портирование Desolate на Вектор-06Ц

[svofski]

Самый простой пук наверное можно изобразить битом 0 порта 1. Что проще всего делать в режиме 8255 BSR. Если я ничего не путаю, это будет примерно так:
Порт 0: Бит 7 = 0, биты 3:1 - номер бита, бит 0 = значение. То есть

mvi a, 1
out 0 ; 8255 CSR
; <какое-то время>
mvi a, 0
out 0
; <какое-то время>

[Improver]

Ну если нужен не просто щелчёк динамиком, а типа как звук нажатия клавиш в МДОСе, то там используется такой код (из МДОС Т-72):

; звук нажатия клавиши
L_F6F6:	MVI  H, 030h	; Счётчик 1
	XRA  A
L_F6F9:	MVI  L, 040h	; Счётчик 2
L_F6FB:	DCR  L
	JNZ     L_F6FB	; Задержка 40h циклов
	XRI     001h	; А=0000 000х, режим оперирования битами, инверсия бита 0
	OUT     000h
	DCR  H
	JNZ     L_F6F9	; Цикл, повтор 30h раз

[KTSerg]

Ну если нужен не просто щелчёк динамиком, а типа как звук нажатия клавиш в МДОСе, то там используется такой код (из МДОС Т-72):

Скрытый текст

; звук нажатия клавиши
L_F6F6:	MVI  H, 030h	; Счётчик 1
	XRA  A
L_F6F9:	MVI  L, 040h	; Счётчик 2
L_F6FB:	DCR  L
	JNZ     L_F6FB	; Задержка 40h циклов
	XRI     001h	; А=0000 000х, режим оперирования битами, инверсия бита 0
	OUT     000h
	DCR  H
	JNZ     L_F6F9	; Цикл, повтор 30h раз

[свернуть]

Ну вот а я предлагаю не просто гнать туда 0 и 1 , а код самой программы... получится не просто "зззззз", а "хр-хр-хр"
Выбрать только нужный фрагмент, экспериментальным путём.

[nzeemin]

Если устроит lfsr, то пример есть здесь. Если нужен именно 8 битный, то можно легко переделать, полиномы например здесь (а для 16 брал тут)

Опробовал этот вариант. Не сказать что прям блестяще, но использовать вполне можно.

Скрытый текст

rnd16:
	lxi h,65535
	dad h
	shld rnd16+1
	rnc
	mvi a,00000001b ; flipped 80h - 10000000b
	xra l
	mov l,a
	mvi a,01101000b	; flipped 16h - 00010110b
	xra h
	mov h,a
	shld rnd16+1
	ret

  ld hl,$C000
  ld bc,$1000
Start_A:
  push bc
  push hl
  call rnd16
  ex de,hl
  pop hl
  ld a,e
  ld (hl),a
  inc hl
  ld a,d
  ld (hl),a
  inc hl
  pop bc
  dec bc
  ld a,b
  or c
  jp nz,Start_A

[свернуть]

- - - Updated - - -

Но вот этот вариант выглядит получше: https://wikiti.brandonw.net/index.ph...C_16-bit_seeds

Скрытый текст

Random16:
    ld hl,(seed1)
    ld b,h
    ld c,l
    add hl,hl
    add hl,hl
    inc l
    add hl,bc
    ld (seed1),hl
    ld hl,(seed2)
    add hl,hl
    sbc a,a
    and %00101101
    xor l
    ld l,a
    ld (seed2),hl
    add hl,bc
    ret
seed1: dw 12345
seed2: dw 54321

[свернуть]

- - - Updated - - -

В аттаче второй драфт.

Улучшения:
- Применять светлую/тёмную тему в зависимости от ситуации
- Уменьшить задержки на 25-30%
- Улучшить маппинг клавиш: АР2 escape
- Генерация случайного числа

Что ещё собираюсь сделать:
- Улучшить маппинг клавиш: задублировать Look/Shoot
- Моргать бордюром когда игрок получает урон
- Звук "тык" при look/shoot
- Сжатие основной части через LZSA1, распаковка

[ivagor]

Не сказать что прям блестяще

Поэтому я и написал "если устроит lfsr". Как написано по ссылке "On their own, LCGs and LFSRs don't produce great results and are generally very cyclical". В качестве rnd общего назначения lfsr не так хорош, но в некоторых случаях именно то, что нужно.

[KTSerg]

nzeemin, а это "фишка" такая, что лабиринт "не сходится" ?
Типа комнаты находятся на разных этажах, и некоторые двери являются переходом на другой этаж?

[nzeemin]

nzeemin, а это "фишка" такая, что лабиринт "не сходится" ?
Типа комнаты находятся на разных этажах, и некоторые двери являются переходом на другой этаж?

Хороший вопрос. нет, он вполне себе "сходится", т.е. укладывается на плоскость.
Просто некоторые переходы - длинные, длинной в целую комнату.

[zx_]

nzeemin, может и под Специалист сделаете порт Desolate?
игрушка прикольная

[nzeemin]

nzeemin, может и под Специалист сделаете порт Desolate?
игрушка прикольная

Надо сначала доделать порты под Спектрум и Вектор, а там видно будет. У меня ещё много работы.

Посмотрел, экран Специалиста неудобный для этой игрушки, игровая часть экрана будет уже слишком маленькая. Так что скорее нет.

[nzeemin]

Драфт 3 в аттаче.

Что нового:
- Сжатие основной части через LZSA1, распаковка - спасибо @ivagor за распаковщик!
- Звук "тык" при look/shoot - использовал код который дал @Improver
- Моргать бордюром когда игрок получает урон
- Улучшить маппинг клавиш: задублировать Look/Shoot

Маппинг клавиш теперь такой (если я всё сделал правильно конечно):
- Движение в четырёх направлениях - стрелки.
- Look/shoot - УС, Пробел
- Переключатель Look/Shoot - ТАБ, РУС/ЛАТ
- Инвентарь - 'I', 'M'
- Закрыть диалог (Escape) - АР2, ЗБ, ПС
- Выход в меню - 'P', 'R'

Что ещё собираюсь сделать:
- Багфиксы и возможно ещё какие-то мелочи

В целом состояние - "почти готово".