source: branches/simple/DataBus.pas

Last change on this file was 41, checked in by chronos, 9 months ago
  • Modified: Screen and console made as separate forms.
File size: 1.5 KB
Line 
1unit DataBus;
2
3interface
4
5uses
6 Classes, SysUtils;
7
8type
9 TDataBus8 = class
10 function Read8(Address: Byte): Byte; virtual; abstract;
11 procedure Write8(Address: Byte; Data: Byte); virtual; abstract;
12 end;
13
14 TDataBus16 = class
15 function Read8(Address: Word): Byte; virtual; abstract;
16 function Read16(Address: Word): Word; virtual; abstract;
17 procedure Write8(Address: Word; Data: Byte); virtual; abstract;
18 procedure Write16(Address: Word; Data: Word); virtual; abstract;
19 end;
20
21 TDataBus32 = class
22 function Read8(Address: LongWord): Byte; virtual; abstract;
23 function Read16(Address: LongWord): Word; virtual; abstract;
24 function Read32(Address: LongWord): LongWord; virtual; abstract;
25 procedure Write8(Address: LongWord; Data: Byte); virtual; abstract;
26 procedure Write16(Address: LongWord; Data: Word); virtual; abstract;
27 procedure Write32(Address: LongWord; Data: LongWord); virtual; abstract;
28 end;
29
30 TDataBus64 = class
31 function Read8(Address: DWord): Byte; virtual; abstract;
32 function Read16(Address: DWord): Word; virtual; abstract;
33 function Read32(Address: DWord): LongWord; virtual; abstract;
34 function Read64(Address: DWord): DWord; virtual; abstract;
35 procedure Write8(Address: DWord; Data: Byte); virtual; abstract;
36 procedure Write16(Address: DWord; Data: Word); virtual; abstract;
37 procedure Write32(Address: DWord; Data: LongWord); virtual; abstract;
38 procedure Write64(Address: DWord; Data: DWord); virtual; abstract;
39 end;
40
41
42implementation
43
44end.
45
Note: See TracBrowser for help on using the repository browser.