[fpc-pascal] how to make this tp7 code work on fpc

[Mattias Gaertner]

On Fri, 26 Jun 2020 22:09:39 -0400
Travis Siegel <tsiegel at softcon.com> wrote:

> I'm porting some code from tp7 to fpc, and I'm running into an error
> I don't know how to fix.  The comments claim it's supposed to be a
> hash table, but to me, it looks more like labels tied to various
> arrays.
> 
> 
>    Ofs_00_02: Word = Ofs (Ofs_00_01);

It looks like some 16-bit optimization for older CPUs, not supported by
FPC:

https://www.freepascal.org/docs-html/rtl/system/ofs.html

Mattias