Modula-2 Dhrystone?

Article View: comp.lang.modula2

Article #2093

#2093

From: Ben Coleman
Date: Sat, 11 May 1991 02:40

45 lines
1359 bytes

 MM>> FROM Time IMPORT GetTime;
     
 JT> My version of JPI 1.17 cannot find this library.  Is it one of 
 JT> your own? 

 JT> There is a GetTime in Misc.MOD but it doesn't like that at all!

The GetTime provided with TSM2 1.17(in my case, it's in DIVERSE.TXT) gets the
time from DOS.  It looks like DH.MOD wants the time in timer ticks(18.2/second),
which is a BIOS function.  The following should get it:


DEFINITION MODULE Time;

PROCEDURE GetTime(): LONGCARD;

END Time.


IMPLEMENTATION MODULE Time;

FROM SYSTEM IMPORT Registers;
FROM Lib IMPORT Intr;

PROCEDURE GetTime(): LONGCARD;
VAR
    r: Registers;

BEGIN
    r.AH := 0;
    Intr(r, 1AH);
    RETURN (LONGCARD(r.CX) * 65536) + LONGCARD(r.DX);
END GetTime;

END Time.



Ben


--  
uucp: uunet!m2xenix!puddle!277!15!Ben.Coleman
Internet: Ben.Coleman@f15.n277.z1.fidonet.org

Technical Details

Message-ID: <5236.282DD814@puddle.fidonet.org>

Path:

arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!rpi!dali.cs.montana.edu!ogicse!qiclab!percy!m2xenix!puddle!f15.n277.z1.fidonet.org!Ben.Coleman

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!rpi!dali.cs.montana.edu!ogicse!qiclab!percy!m2xenix!puddle!f15.n277.z1.fidonet.org!Ben.Coleman
From: Ben.Coleman@f15.n277.z1.fidonet.org (Ben Coleman)
Newsgroups: comp.lang.modula2
Subject: Modula-2 Dhrystone?
Message-ID: <5236.282DD814@puddle.fidonet.org>
Date: 11 May 91 02:40:00 GMT
Sender: ufgate@puddle.fidonet.org (newsout1.26)
Organization: FidoNet node 1:277/15 - The Back Door QBBS, Morgantown WV
Lines: 45