ЭТЮДЫ

[Vladson]

Писал на скорую руку, лень было искать ссылки, просто взял бумажную Родионова, и там глянул...

Есть кстати ещё одна процедурка из журнала какого-то, но она не имеет 65535 она странная на фибоначчи похожая, толком её не понял даже

RND        LD      BC,#5A05
        LD      A,B
        LD      (RND+1),A
R2      LD      A,#25
        LD      (RND+2),A
        ADD     B
        ADD     C
        RLCA
        LD      (R2+1),A

(точнее я понял как работает, но не понял почему оно сносно работает...)


ЗЫ, - 8b это жесть... Додуматься же...

Мой минимум увы поменьше (но за то основная идея была задумана в 1989-м, правда тогда реализовывалась на бейсике)

	ORG	#8000
;	Если запускать с адреса кратного 256, то в С и так будет 0
;	XOR	A
;	LD	C,A


	LD	E,C
	LD	H,#18

START

	LD	D,#40
	LD	B,H
	LD	H,E
	LD	A,(HL)
	RLA
	LD	L,A
	LDIR

	JR	START

[Advertiser]

[Bedazzle]

Есть кстати ещё одна процедурка из журнала какого-то, но она не имеет 65535 она странная на фибоначчи похожая, толком её не понял даже

[Shiny]

Пора расчехлить пыльную папочку. Числа Фиббоначи - мой вариант и на BrainFuck. Только у BF нолик печатается

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

LD A,(HL)
RLA
LD L,A

ld l,(hl)/rl l

[Vladson]

Блин и правда, забыл уже что так можно было... (Хотя уверен что кто-то уже наверняка подобное делал и я просто изобретал все эти годы велосипед)

[Destr]

Процедура выделения отрицательного фронта бита:

; выделение отрицательного фронта клавиши, port,bit=проверяемая клавиша, NZ=фронт был, Z=не было
	MACRO FN_KEY port, bit
.FP		LD A,0
		LD (.KEY+1),A
		LD A,port
		IN A,(#FE)
		CPL
		LD (.FP+1),A
		CPL
.KEY		AND 0
		BIT bit,A
	ENDM

WAI FN_KEY #7F, 2: JR Z,WAI

Будет крутится до тех пор пока клавиша не сменит состоянии с нажатой на отжатую

А вот наоборот (положительный фронт) не получается.
Точней можно модернезировать, но среагирует просто на нажатие не взирая на то была-ли на предыдущем проходе отжата (а надо).
Не могу сообразить как сделать. Или вообще загнался и можно проще? Есть идеи?
P.S. И кстати просто клик (отжата-нажата-отжата) не могу сообразить...

[jerri]

Destr,

подумай так

;А опрошенные кнопки (8 штук) 1 нажата 0 не нажата

	ld	c,a
	ld	a,(key_holded) ;удерживаемые кнопки
	xor	c
	and	c
	ld	(key_presed),a ;свеженажатые кнопки
	ld	a,c
	ld	(key_holded),a
	ret

второй вариант ждет нажатия двух кнопок
после чего включает/выключает музыку

	ld	a,(kb_buf+1)
	and	#08
	ld	h,a
	ld	a,(kb_buf+6)
	and	#10
	or	h	
	cp	0
musprs	equ	$-1
	ld	(musprs),a
	jr	z,musprs0
	or	a
	jr	nz,musprs0
	
	ld	a,(musoff)
	cpl
	ld	(musoff),a
	or	a
	jr	z,musprs0
	jp	MUTE ;глушим музыку
musprs0
	 ld	a,0
musoff	equ	$-1
	or	a
	jp	nz,ays_play
;иначе стартуем музыку

[Destr]

подумай так

Ну вообще смысл чтоб минимум длины и без использования регистров (ну кроме А, на крайняк A`)

[Reobne]

Destr, Попробуй убрать первый CPL. Это инвертер того что считалось с порта. А значит задний фронт и передний фронт поменяются местами.
Помни, что макрос будет работать несколько по разному, если использовать_макрос для одной и той-же клавиши много раз, в отличии от: запихнуть макрос для данной кнопки в подпрограмму, и вызывать её. Каждый вызов макроса создаст свои переменные, помнящие состояние клавы, и они будут помнить состояние независимо. А если будет один вызов макроса в специально сделанной для этого процедурке, то помнить предыдущее состояние она будет централизовано.
Помни, что есть разные другие способы опроса клавиатуры: Ещё более централизованные, для групп клавиш. Для всей клавиатуры в прерываниях разом.

[Destr]

[quote="Reobne;1015623"]Destr, Попробуй убрать первый CPL.../quote]
Ну вот версия 2 - как-бы оптимизированней

	MACRO FN_KEY key	; выделение отрицательного фронта клавиши, port,bit=проверяемая клавиша, NZ=1 - фронт был
.prev		LD A,#FF
		CPL
		AND low key
		LD (.mask+1),A
		LD A,high key
		IN A,(#FE)
		LD (.prev+1),A
.mask		AND 0
	ENDM

Крутится хорошо

WAIT        FN_KEY #7F04:JR Z,WAIT

И самое главное - если при вызове УЖЕ нажата нужная клавиша - всё равно работает (в отличии от процедуры которая передний фронт ловит (да она-же, но CPL по-другому) - передний если клавиша УЖЕ зажата - сработает будто был фронт (хоть и пробовал всяко с начальными значениями)

Помни, что есть разные другие способы опроса клавиатур

Да это знаю, клавиши взял пока просто для удобства, а вообще нужен контроль ЛЮБОГО сигнала (бита), откуда-бы его не впихнули...

Железячников ведь у нас куча, хоть бы подсказали как это в железе делается, роюсь счаз в гуглях, есть там много всяких этих триггеров, но пока не сумел перевести хотя-бы в псевдокод, не говоря уж о спек-асме...

[Reobne]

вообще нужен контроль ЛЮБОГО сигнала (бита), откуда-бы его не впихнули

Если банально теоретически, то квантованный по времени сигнал, это последовательность логических значений x[i].
Вот если x[i], это принятое сейчас значение, x[i-1] - принятое предыдущее значения, то
y[i]=x[i] XOR x[i-1] ; есть ли изменение:
y_up[i]=x[i] AND NOT x[i-1]
y_down[i]=NOT x[i] AND x[i-1]

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

И самое главное - если при вызове УЖЕ нажата нужная клавиша - всё равно работает (в отличии от процедуры которая передний фронт ловит (да она-же, но CPL по-другому) - передний если клавиша УЖЕ зажата - сработает будто был фронт (хоть и пробовал всяко с начальными значениями)

Начальные значения, это константы в LD A,#FF и AND 0 ?
Другое решение:
Заключи вызов макроса как процедуру, прибавив вначале метку а в конце RET.
Перед началом цикла опроса сделай один лишний разок CALL, только как инициализацию, не глядя на Z.
А в цикле вызывай CALL и смотри флаг Z.