ЭТЮДЫ

[Reobne]

Знахарь,
Нагуглил я.

zxpress.ru
ZX Power #03
31 декабря 1997
Программирование
Ликбез - Автоматическое создание маски для спрайтов.

Там 3 метода. Первые 2 побитывые, а третий - (заморский баклажанный ) тот самый со сдвигами.
А ещё игра упоминается, в которой быстрая но неполноценная маска. Сдвиги только по горизонтали.

[ZX_NOVOSIB]

Какой на асме аналог бейсик-процедуре:
10 IF INKEY$ > "" THEN GO TO 10

Т.е. какой процедурой можно отследить отпускание любой клавиши? Иными словами процедура выходит из цикла, только если ни одна клавиша не нажата.

[Shiny]

если я правильно понял, то:

wk:
	xor a
	in a,($FE)
	cpl
	and 31
	jr z,wk

[ZX_NOVOSIB]

Шынни, "and 31" это как-то относится к управляющим кодам? Ведь до 31 идут управляющие коды, но там есть и исключение в виде 13 кода (клавиша ентер)

- - - Добавлено - - -

Если сделать and 12 вместо and 31, то тогда процедура и на ентер распространится? )

[Reobne]

"and 31" это как-то относится к управляющим кодам?

Нет! Не относится! 31 это пять двоичных единичек. А кнопки в Спектруме разбиты на восемь групп по пять. Вот к чему это относится!

[Black Cat / Era CG]

and 31

С порта 254 5 бит - 5 клавиш полуряда клавы, and 31 - это and %00011111.

[Advertiser]

[DenisGrachev]

Т.е. какой процедурой можно отследить отпускание любой клавиши? Иными словами процедура выходит из цикла, только если ни одна клавиша не нажата.

loop:
      call 654
      inc e
      jr nz,loop

[Shiny]

короче так

[ZX_NOVOSIB]

если я правильно понял, то:

wk:
	xor a
	in a,($FE)
	cpl
	and 31
	jr z,wk

Всё же NZ , а не Z ?

[Shiny]

ёклмн. Как работает клавиатура?
5 битов по портам отведены соответсвующим значениям: 1-не нажата, 0-нажата.

Например, проверяем нажатие клавиши А:

tt:
ld a,$FD
in a,($FE)
and 1
jr nz, tt

в примере A=0, поэтому чтение будет из всех портов.

cpl - инверсия
and 31 даст 0, если клавиша НЕ нажата, или не 0, если нажата.