ЭТЮДЫ

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

Код:

---

sub #01
sbc a,a

---

Цитата:

---

Сообщение от krt17

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

---

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

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

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

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

Цитата:

---

Сообщение от krt17

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

---

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

Цитата:

---

Сообщение от krt17

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

---

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

Цитата:

---

Сообщение от krt17

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

---

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

Цитата:

---

Сообщение от krt17

и отправить обработчик на метку 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

---

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

Мой вариант:

Код:

---

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

---

Цитата:

---

Сообщение от krt17

Хороший вариант для 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

---

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

Код:

---

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

---

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

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

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