Написание программ для БК0010

[Hunta]

По сравнению с вариантом уже без bic #177400,r0

Нет, с bic #177400 - исходный вариант не трогал. По идее, после оптимизации исходного - мой на одно два слова будет длиннее.
Но я пока не думал над оптимизацией...

[Advertiser]

[HardWareMan]

Я был настолько доволен программой, что решил поделиться ей на форуме zx-pk.ru (ничего не подозревая о местных традициях критиковать без аргументов). Реакция сообщества была примерно такой: “надо было просто посмотреть, как сделали в DEC, это же классика”.

Плач Ярославны тут.

[Lethargeek]

Плач Ярославны тут.

Размер этой подпрограммы – 22 слова (не считая данных)

kek, теперь понятно, как у быкарей "памяти хватает на всё" (не считая данных))))

[Manwe]

Вот когда сумеете сократить размер менее 14-ти слов, тогда и поговорим

[nzeemin]

Проба пера для PDP-11 - распаковщик LZSA1. Наверняка можно сократить, но, надеюсь, и этот вариант приемлемый.

ivagor, можете взглянуть что может быть не так?
Пробую применить ваш распаковщик LZSA1 для картриджа УКНЦ.

В некоторый момент распаковщик вычисляет не ту длину для копирования.
Исходные данные до запаковки - HWYENC.SAV начиная с адреса 512. = 0x200;
запакованный поток (проверен штатным LZSA1-распаковщиком на валидность) - HWYENC.BIN, тоже начиная с адреса 512. = 0x200;
проблема возникает со значением по адресу 30157(octal) = 0x306F, туда должно попасть значение 0x8A, а получается 0xFD, ну и дальше конечно уже все данные распакованы неверно.

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

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

[ivagor]

nzeemin, Вы сжимали с опциями
-f1 -r
? (про опции написано в lzsa1.asm)
Попробовал распаковать самим lzsa и полученный файл (48244 байта) длиннее HWYENC.SAV. И меня очень смущает куча нулей в HWYENC.BIN, такого не должно быть.

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

Пардон, пропустил

HWYENC.BIN, тоже начиная с адреса 512. = 0x200

[ivagor]

nzeemin, спасибо за багрепорт! Ошибку нашел, исправил, но не проверил на Вашем файле, извините, может уже завтра, но надеюсь будет работать правильно.

[nzeemin]

nzeemin, спасибо за багрепорт! Ошибку нашел, исправил, но не проверил на Вашем файле, извините, может уже завтра, но надеюсь будет работать правильно.

Да, в этот раз получилось. Спасибо за исправление!

[ivagor]

Выложил в репозиторий исправленные распаковщики LZSA1 и LZSA2.

[Manwe]

Потестировал LZSA2 на своей программе ST0play. Размеры:

Было: 11244
Стало: 5746
Для сравнения BKpack: 6006

LZSA1 тоже работает.


Для распаковки предлагаю дописывать в начало:

	.LINK 32000

BEGIN:	MOV #32000+(packed-BEGIN),r1
	MOV #1000,r2
	MOV r2,-(SP)

Здесь 1000 - куда распаковывать программу, 32000 - адрес упакованной программы. Понятно, что распакованный файл не должен выходить за адрес 32000.
Сразу после такого начала идёт процедура распаковки. По RET она переходит на адрес 1000, потому что он был заранее положен в стек.