Тема для всяких глупых вопросов

Цитата:

---

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

Интересно посмотреть на разницу!

---

Легко!
Исходно 551 файл, суммарно 1461кБ
Сжато MLZ - 644 352 б
Сжато ZX0 - 605 339 б
Если отсечку делать по 7 секторов (1792б) - тогда на диск грубо говоря не 300 треков влезет, а 333
И таак сойдет (с)-2

Процедурка для посторение таблицы TR/SEC:

Код:

---

TRSEC_CALC:
              ld  a,[сколько секторов пропустить]
            ld  de,(TRSEC)
            ld  b,#10
            add  a,e
TRSEC_CALC2:
        ccf
            sub  b
            jr  c,TRSEC_CALC1
            inc  d
            jr  TRSEC_CALC2
TRSEC_CALC1:
        add  a,b
            ld  e,a
            ld  (TRSEC),de
        ret

---

у него скорее пропуск секторов возможен >255 (тут уже рег.пара нужна)

Цитата:

---

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

у него скорее пропуск секторов возможен >255 (тут уже рег.пара нужна)

---

Ничего не мешает запустить процедурку пару раз.

Цитата:

---

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

Ничего не мешает запустить процедурку пару раз.

---

Можно попроще сделать:

LD BC,сколько секторов пропустить
LD DE,(TRSEC)

NEXTD INC E

BIT 4,E
JR Z,NEXTD2
LD E,0
INC D

NEXTD2 DEC BC

LD A,B
OR C
JR NZ,NEXTD
LD (TRSEC),DE
RET

Надеюсь я понял правильно назначение процедуры.
Попробую реализовать. Спасибо.

Цитата:

---

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

Надеюсь я понял правильно назначение процедуры.
Попробую реализовать. Спасибо.

---

Могу ещё такой вариант предложить, смысл тот же, но другими словами :)

Код:

---

                LD HL,[TR/SEC]
                LD BC,[Skip Sectors]
NEXTD                CPI
                LD A,L
                XOR #10
                JR NZ,NEXTD2
                LD L,A
                INC H
NEXTD2                LD A,B
                OR C
                JR NZ,NEXTD
                RET

---

Попробую, это не сложно.
Я сделал процедуру tiboh, теперь прыгает вперед на 10 треков и на 100.
Можно ли то же самое, но назад?) понимаю, что надо inc на dec менять, но я запутаюсь в сложении вычитания)

Цитата:

---

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

Можно ли то же самое, но назад?

---

А каким образом делается переход на 10 и 100 треков сразу? Складываются смещения (длины) всей пачки и затем плюсуются к #5CF4? Тогда и менять ничего не нужно, достаточно один раз запомнить _исходное_ содержимое переменной #5CF4 ( начало первого трека)，а затем плюсовать к сохраненному значению нужное смещение. Два байта памяти, думаю, не проблема.

Цитата:

---

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

Попробую, это не сложно.
Я сделал процедуру tiboh, теперь прыгает вперед на 10 треков и на 100.
Можно ли то же самое, но назад?) понимаю, что надо inc на dec менять, но я запутаюсь в сложении вычитания)

---

А это зачем? :) Если есть каталог с файлами, то можно TR/SEC брать из него. Либо зная количество секторов для каждого файла, построить таблицу с TR/SEC и перемещаться уже по ней. Какой смысл считать вперёд/назад каждый раз?