Мне приходится использовать такую процедуру:

## Код:
```
CONST littleEndian

   PROCEDURE UByte* (x: BYTE): INTEGER;
      VAR u: INTEGER;
   BEGIN
      u := 0;
      IF littleEndian THEN
         SYSTEM.PUT(S.ADR(u), x);
      ELSE
         HALT(126)
      END;
   RETURN u
   END UByte;
```


Может быть, я не вижу варианта сделать это без модуля SYSTEM?