Функция ATTR (x,y) на бейсике.

[AndTorp]

Можно и асм-подпрограммку замутить подключив её к DEF FN.
Вот как тут описано: http://zxpress.ru/book_articles.php?id=1539

Я попробовал.
Получилась функция, расположенная в первой строке.
1 DEF FN a(x,y,p)=USR VAL "23910": REM здесь маш. код
x и y - координаты на экране;
p - параметр, указывающий возвращаемый элемент цвета:
p=7 - ink;
p=56 - paper;
p=64 - bright;
p=128 - flash.
Не советую вводить другие параметры p, проверки корректности нет и может зависнуть!

Для работы нужно, чтобы PROG=23867, иначе необходимо пересчитать значение в кавычках PROG+43
В прикрепленном имедже есть файл primer.B, показывающий работу функции.

З.Ы. Есть небольшая проблема. После первой строки нарушается вывод листинга на экран (его не видно). Введение в следующей строке управляющих кодов цвета, проблему не решило. Может кто знает, как это исправить?

Вложение удалено мной. Причина - устранение проблем с выводом листинга.
Исправленная функция в моем сообщении ниже.