ЭТЮДЫ

[LW]

11 тактов/3 байта

sub #01
sbc a,a

[Advertiser]

[jerri]

Еще небольшая задачка для оптимизаторов. Стандартный случай, инициализация im2, необходимо залить табличку, и отправить обработчик на метку int, di/ei и ret не забываем. Мне лично нравится табличка в fe но это не столь важно, главное >7f. У меня пока 26 байт, кто какими вариантами пользуется?

а что много вариантов разве?

ты эту процедурку один раз используешь.

я вообще на стадии компиляции табличку создаю

[jerri]

не не 260 байт не правильно
пиши 49152 - 131072

[Destr]

У меня пока 26 байт, кто какими вариантами пользуется?

Ну у меня в районе 30 или 40.
А вообще покажи свой 26, тогда может что и придумается.

[Destr]

Тут di в общем то и не нужен, но возможно есть вариант с ld i,a до готовых данных поэтому оставил, дабы не было преимуществом. Задача в общем не критична, тут просто забавный момент в объединении 3 простых задач, не знаю, мне иногда нравится над такими подумать.

Так вроде получается что у тебя приколочено к адресам конкретным (#fe00-#ff00 на таблицу и #fd на вектор).
Противоречие

Мне лично нравится табличка в fe но это не столь важно, главное >7f.

Ведь если вектор куда-нибудь в #80 запихать (к примеру то уже получится бяка).
И перехода на int

и отправить обработчик на метку int

что-то я не увидел (пропустил?).

Да и не универсальна получается процедура.

У меня такая:

	DI
	IM 2
	LD BC,256
	LD A,IVEC
	LD I,A,H,A,D,H,E,B,L,C
	LD (HL),high IADR
	LDIR
	LD HL,INT
	LD A,#C3
	LD (IADR),A
	LD (IADR+1),HL
	RET
IADR	EQU #FDFD
IVEC	EQU #FE

Если любитель - подумай может сократишь как-нибудь...

[drbars]

Мой вариант:

V_TAB	EQU #BF

	DI
	LD HL,V_TAB*256
	LD (HL),H
	LD C,H
	LD B,L
	DEC HL
	LD (HL),C
	DJNZ $-2
	LD A,H
	INC H
	LD L,H
	LD (HL),#C3
	LD HL,KEYS
	LD (V_TAB*256+192),HL	
	LD I,A
	IM 2
	EI

[drbars]

Хороший вариант для 128к+

Извращаться можно всяко, но я считаю лучше всего таблицу в DEFS описать.

V_TAB	EQU #BF

	DI
	LD HL,V_TAB*256+2
	LD SP,HL
	LD L,H
	LD B,#81
	PUSH HL
	DJNZ $-1
	LD (HL),#C3
	LD SP,HL
	LD HL,KEYS
	LD (V_TAB*256+192),HL	
	LD A,V_TAB-1
	LD I,A
	IM 2

[AndTorp]

Здравствуйте. Как можно переделать этот кошмар?

LD A,(M1)
ADD A,L
LD L,A
LD A,(M1)
XOR #01
LD (M1),A

Суть:
- в (M1) попеременно 0 или 1;
- регистр L увеличивается, когда (M1)=1, т.е. через раз;
- значение ячейки M1 предварительно установлено и используется еще в одной процедуре.

[denpopov]

m1: ld a,NN
xor 1
ld (m1+1),a
add a,l
ld l,a

[AndTorp]

denpopov, надо сначала менять значение регистра L, а потом (M1)