Discussion :

[Sub0]

Salut à tous!

Comment pourrais obtenir le même résultat que MemL[Seg0040:$6C]:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Uses Winprocs,Wincrt;
Var s1,s2:Longint;
 
{$IFDEF WINDOWS}
Procedure __0040H;  far; external 'Kernel' index 193;
const  Seg0040: Word = Ofs(__0040H);
{$ENDIF}
 
Begin
 Clrscr;
 s1:=MemL[Seg0040:$6C];
 s2:=GetCurrentTime;
 Repeat
  Gotoxy(1,1);
  Writeln(MemL[Seg0040:$6C]-s1);
  Writeln(GetCurrentTime-s2);
 Until(KeyPressed);
End.

J'ai essayé avec GetCurrentTime, mais ce n'est pas linéaire...

Merci de votre aide! à+

[Sub0]

En faisant le rapport suivant, j'obtiens environ 55:
Writeln(GetCurrentTime Div MemL[Seg0040:$6C]);

Et j'ai trouvé cette unité sur le net:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Unit TIMER;
 
Interface
 
Type
  TimerBuf = LongInt;
 
Procedure StartTimer(Var t: TimerBuf);
Function TrapTimer(t: TimerBuf; MilliSeconds: Word): Boolean;
 
Implementation
 
Procedure StartTimer(Var t: TimerBuf);
Begin
  t := MemL[Seg0040:$6C]
End;
 
Function TrapTimer(t: TimerBuf; MilliSeconds: Word): Boolean;
Begin
  TrapTimer := Trunc(t+MilliSeconds/54.92549322) > MemL[Seg0040:$6C]
End;
 
End.

54.92549322 a l'air d'être une constante.
Est-elle la même sur tous les pc?
A quoi peut-elle correspondre exactement?

[M.Dlb]

Le DWord situé at l'adresse 0040:006C correspond au nombre de ticks après minuit... Chaque tick est émis 18.2 par seconde (18,2 est environ égale à 4,77 (vitesse en MHz du processeur du premier PC, le Sperry PC) divisé par 4 (soit 1,19 environ) divisé par 65536 (le plus grand nombre stockable "à l'époque" ?)).
Est-ce que tes calculs correspondent avec ces informations ? Que veux-tu faire exactement ?

a+

[M.Dlb]

Ben 1000 millisecondes divisés par 18.2 est environ égale à 54,945...

Ca réponds à ta question ?

[Sub0]

Oui, j'ai déjà vu cette constante 18,2 dans des sources...
En fait, je désire un équivalent, car j'ai l'impression que MemL[Seg0040:$6C] ne marche pas sous Linux.
Je crois bien que GetCurrentTime / 54.92549322 me renvoit quelque chose d'assez correct...
Qu'en pensez-vous?

[M.Dlb]

Cette valeur est gérée par le BIOS donc elle est accessible sur toutes les machines compatibles IBM (c'est-à-dire depuis 1981 environ), et évidemment sur toutes les plateformes !

a+

[Sub0]

Arf! Dans ce cas, le bug doit venir de cette déclaration je suppose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
{$IFDEF WINDOWS}
procedure __0040H;  far; external 'Kernel' index 193;
const Seg0040: Word = Ofs(__0040H);
{$ENDIF}

En tous les cas, mon prog à son horloge bloquée lorsque je le lance avec l'émulateur win sous Linux...
En fait, j'espère que cette solution résolvera le problème... à+

[M.Dlb]

Ben tu n'as justement pas besoin de ça, vu que ca marche sur toute plateforme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
const seg0040=$0040;

Euh à ce propos, TP défint des variables comme Seg0040 ou SegA000 qui désigne les segments correspondants !

a+

[Sub0]

Exact! Ta solution fonctionne... Pas encore testé sous Linux, mais je suis confiant.
Je me demande pourquoi l'auteur de l'unité à utilisé ce code, alors que MemL[$0040:$6c] suffisait...

Merci pour ta participation, et pour avoir résolu ce problème!
à+

[M.Dlb]

De rien, ce fut avec plaisir comme toujours

[Sub0]

Après avoir testé sous Linux les 3 possibilités...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
{$IFDEF WINDOWS}
procedure __0040H;  far; external 'Kernel' index 193;
const  Seg0040: Word = Ofs(__0040H);
{$ENDIF}

est bien bloqué...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MemL[$0040:$6C];

Démarre très doucement, puis se lance normalement au bout de 3 ou 4 sec...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

round(GetCurrentTime/54.92549322);

fonctionne à merveille!
à+

[Eric Sigoillot]

Pour info, si TP définit les variables Seg0040, par exemple, c'est parce qu'en mode protégé, l'adresse $0040 n'est pas accessible et il faut créer un sélecteur dessus pour y accéder.

Sous Windows, il faudrait aussi créer un sélecteur dessus. Si Win 3.1 eccepte la manip, je doûte qu'il en soit de même avec Win 95 et suivants, car un programme qui peut créer un sélecteur librement s'ouvre toutes les portes sur la RAM, donc met en danger la stabilité du système.

Pour la valeur exacte de 54,... :

T = 1000 / ($1234DD / $10000)

$1234DD est simple à se souvenir en hexa, plus que 1193181 Hz, fréquence du chip 8254 (qui gère l'hologe interne).

A+

[Sub0]

Excelente cette méthode!
Solution finale...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Round(GetCurrentTime/(1000/($1234DD/$10000)));

Vos explications sont claires et bien détaillées.
Merci à tous pour votre aide!
Merci aussi à FRD pour avoir fait les tests sous Linux!
à+