I wrote Pascal for 8080 in 1976 and Finnish Army even paid some money for it.
I was truly disappointed that Turbo Pascal did not copy my handy PORT-metavariable. You can write & read IO-ports without any extra hässle:
https://photos.app.goo.gl/qeJpYb94XzLBCE139
Turbo Pascal supported port array though: https://archive.org/details/bitsavers_borlandturVersion3.0Re...
Here is the first function of your example in TP3: procedure DataOut; begin while (Port[$f5] and 1) = 0 do; port[$f4] := Data; end,
Turbo Pascal supported port array though: https://archive.org/details/bitsavers_borlandturVersion3.0Re...
Here is the first function of your example in TP3: procedure DataOut; begin while (Port[$f5] and 1) = 0 do; port[$f4] := Data; end,