Очевидно, можно и так:
## Код:
```
PROCEDURE COMPOSE (b0, b1, b2, b3 : BYTE) : INTEGER; 
BEGIN 
   RETURN SHORT(ORD(BITS(b0)) + ORD(BITS(b1)) * 100L + ORD(BITS(b2)) * 10000L + ORD(BITS(b3)) * 1000000L)
END COMPOSE;
```

этот вариант точно от машинного представления не зависит, хотя уродец тот ещё.