OberonCore

Здравствуйте! Подскажите пожалуйста, как можно реализовать работу с беззнаковыми числами. Имеется бинарный файл, состоящий из двухбайтных беззнаковых чисел (тип Word в терминологии Делфи. Диапазон 0..65535). Нужно его прочитать. Как это сделать, не знаю. Думал читать побайтово, с последующим сдвигом влево, но номер не прошёл. Тип BYTE - знаковый. Использовать SHORTINT тоже нельзя, он тоже знаковый. Посему, использовать PROCEDURE (VAR rd: Reader) ReadSInt (OUT x: SHORTINT) из модуля Stores тоже нельзя. А как тогда выйти из положения? Подскажите пожалуйста! Очень нужно!

Поскольку беззнаковых типов нету, для их обработки нужно использовать знаковый большего размера, т.е. для word - INTEGER. Могу предложить такой вариант:
Расширение SHORTINT до INTEGER (integer(x)) делается автоматом для параметра BITS. А побитовые операции делаются через множества.

Другой сходный вариант - использовать свойства операции MOD:
Процедура Do напечатает 65535. Операция MOD в данном случае сводится к сдвигам или маскированию, так что потери эффективности нет.

Еще один трюк:

Это даже чуть эффективнее, поскольку даже маскирование не выполняется.

Спасибо, хороший приём.
Хотя (теоретически ) хороший однопроходный компилятор Оберона должен сгенерить тот же код и для
h MOD 10000H (используя delayed code emission).

А какая разница, что он знаковый? Это всего лишь интерпретация набора битов, который один и тот же.
Всё зависит от того, что потом с ним делать.
Читаем в SHORTINT, и если окажется отрицательным, можно прибавить что-то вроде -MIN(SHORTINT).