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 | |
---|
1 | unit DataBus;
|
---|
2 |
|
---|
3 | interface
|
---|
4 |
|
---|
5 | uses
|
---|
6 | Classes, SysUtils;
|
---|
7 |
|
---|
8 | type
|
---|
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 |
|
---|
42 | implementation
|
---|
43 |
|
---|
44 | end.
|
---|
45 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.