Context Navigation

Storage.pas

Last change on this file was 42, checked in by chronos, 10 months ago
Modified: Improved simple virtual machine.
File size: 606 bytes

Line
1	unit Storage;
2
3	interface
4
5	uses
6	Classes, SysUtils, Device, Channel;
7
8	type
9	TStorage8 = class(TDevice8)
10
11	end;
12
13	TStorage16 = class(TDevice16)
14
15	end;
16
17	{ TStorage }
18
19	TStorage = class(TDevice)
20	BitWidth: TBitWidth;
21	Storage8: TStorage8;
22	Storage16: TStorage16;
23	constructor Create(BitWidth: TBitWidth; Storage8: TStorage8; Storage16: TStorage16);
24	end;
25
26	implementation
27
28	{ TStorage }
29
30	constructor TStorage.Create(BitWidth: TBitWidth; Storage8: TStorage8;
31	Storage16: TStorage16);
32	begin
33	Self.BitWidth := BitWidth;
34	Self.Storage8 := Storage8;
35	Self.Storage16 := Storage16;
36	end;
37
38	end.
39

Note: See TracBrowser for help on using the repository browser.