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