2 ms·
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, l
by ignite 3y ago
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/mode/2up 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.