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.