[ignite]

You are correct. Grabbing a random issue of BYTE from the internet archive, and finding a listing, I get the code below. There were some minor errors I fixed, like 3 -> }. Main issue was loss of whitespace, so not good for python :-). But the whole was amazingly quick. Getting code from a print magazine from 35 years ago into editable form in a couple of minutes.

https://archive.org/details/byte-magazine-1987-04/page/n151/...

{$K-}{ turn of checking for stack overf low }

program interrupttest;

type IoProcess = *integer :

var count: integer:

var timerhandler: IoProcess;

... {definitions of NewIoProcess and IoAttach }

procedure incrementer:

begin

count:=succ (count ) :

end;

begin

timerhandler:=NewIoProcess(Ofs(incrementer).1000):

count:=0;

ioAttach ($1C, timerhondler); | attach himerhondleich" user |

while true do

timer interrupt ( 1Ch )

begin

writeln (count );

Delay (100);

{ delay 100 milliseconds}

end; end.