source: branches/templates/AddrChannel.inc

Last change on this file was 44, checked in by chronos, 2 years ago
  • Added: More devices.
File size: 1.2 KB
Line 
1{$IFDEF INTERFACE}
2 TGAddrChannel = class
3 type
4 {$IF TGAddrChannelWidth>=8}
5 TRead8 = function (Address: TGAddrChannelAddress): Byte of object;
6 TWrite8 = procedure (Address: TGAddrChannelAddress; Data: Byte) of object;
7 {$ENDIF}
8 {$IF TGAddrChannelWidth>=16}
9 TRead16 = function (Address: TGAddrChannelAddress): Word of object;
10 TWrite16 = procedure (Address: TGAddrChannelAddress; Data: Word) of object;
11 {$ENDIF}
12 {$IF TGAddrChannelWidth>=32}
13 TRead32 = function (Address: TGAddrChannelAddress): DWord of object;
14 TWrite32 = procedure (Address: TGAddrChannelAddress; Data: DWord) of object;
15 {$ENDIF}
16 {$IF TGAddrChannelWidth>=64}
17 TRead64 = function (Address: TGAddrChannelAddress): QWord of object;
18 TWrite64 = procedure (Address: TGAddrChannelAddress; Data: QWord) of object;
19 {$ENDIF}
20 var
21 {$IF TGAddrChannelWidth>=8}
22 Read8: TRead8;
23 Write8: TWrite8;
24 {$ENDIF}
25 {$IF TGAddrChannelWidth>=16}
26 Read16: TRead16;
27 Write16: TWrite16;
28 {$ENDIF}
29 {$IF TGAddrChannelWidth>=32}
30 Read32: TRead32;
31 Write32: TWrite32;
32 {$ENDIF}
33 {$IF TGAddrChannelWidth>=64}
34 Read64: TRead64;
35 Write64: TWrite64;
36 {$ENDIF}
37 end;
38
39{$UNDEF INTERFACE}
40{$ENDIF}
41
Note: See TracBrowser for help on using the repository browser.