In pascal I am using a Hercules card (along with the VGA) to track communication with an galil card. The data transfers are written to the Hercules.
It works fine but now I want to change over to 32 bit Delphi.
How do I change the address declaration of the var SKREEN ?
UNIT HERCUTIL;
INTERFACE
TYPE SPO = RECORD C:CHAR; A:BYTE; END;
SPR = ARRAY [1..80] OF SPO;
SPX = ARRAY [1..25] OF SPR;
VAR SKREEN : ARRAY[1..25,1..80] OF SPO ABSOLUTE $B000:$0000;
ROWS : SPX ABSOLUTE $B000:$0000;
procedure hclear (r,r1:byte);
PROCEDURE HDISP (ROW,COL,LONG : BYTE; S:STRING);
PROCEDURE HWRITELN (D:STRING);
PROCEDURE HSCROLLSKREEN;
PROCEDURE HSCROLLUP (R,R1:BYTE);
procedure hdsp (s:string);
procedure hwrite (d:string);
procedure htrace (d:string);