Discussion :

[HRS]

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
with System; use System;
WITH Ada.Text_Io; use Ada.Text_Io;
PROCEDURE TestScreen IS
 
  Videoram_Size : constant := 25*80;
 
  Videoram : String (1 .. Videoram_Size);
  for Videoram'Address use System'To_Address (16#B8000#);
 
  cr : character;
 
begin
 
  Videoram (1) := 'a';
 
  get_immediate (cr);
 
END TestScreen;

compile OK mais à plantage à l'exécution

raised STORAGE_ERROR : stack overflow or erroneous memory access

l'adresse 16#B8000# ne semble plus être la bonne

En fait je cherche comment sauver/restaurer l'écran en ADA

[Blackknight]

Il manque quelques informations :

• OS
• Type de machine

Potentiellement, tu n'as pas le droit d'écrire directement dans cette zone mémoire en fonction du contexte.

[Zerte]

l'adresse 16#B8000# ne semble plus être la bonne

C'est l'adresse du mode texte sous DOS (*).
Pas sûr que ce soit si simple d'y accéder dans un autre système...
___
(*) Ça me rappelait un vague souvenir, confirmé par ceci...