Context Navigation

Machine.pas

Last change on this file was 59, checked in by chronos, 6 months ago
Fixed: Assembler and disassembler to work correctly with supported instructions.
File size: 1.2 KB

Line
1	unit Machine;
2
3	interface
4
5	uses
6	Classes, SysUtils, Cpu, Memory, FrameBuffer, DeviceMapper, Storage, Serial;
7
8	type
9
10	{ TMachine }
11
12	TMachine = class
13	public
14	Cpu: TCpu;
15	Memory: TMemory;
16	FrameBuffer: TFrameBuffer;
17	Storage: TStorage;
18	Serial: TSerial;
19	DeviceMapper: TDeviceMapper;
20	procedure PowerOn;
21	procedure PowerOff;
22	constructor Create;
23	destructor Destroy; override;
24	end;
25
26
27	implementation
28
29	{ TMachine }
30
31	procedure TMachine.PowerOn;
32	begin
33	Cpu.Start;
34	end;
35
36	procedure TMachine.PowerOff;
37	begin
38	Cpu.Stop;
39	end;
40
41	constructor TMachine.Create;
42	begin
43	Memory := TMemory.Create;
44	Memory.Size := 10000;
45	FrameBuffer := TFrameBuffer.Create;
46	Storage := TStorage.Create;
47	Serial := TSerial.Create;
48	DeviceMapper := TDeviceMapper.Create;
49	DeviceMapper.RegisterDevice(FrameBuffer);
50	DeviceMapper.RegisterDevice(Storage);
51	DeviceMapper.RegisterDevice(Serial);
52	Cpu := TCpu.Create;
53	Memory.SetChannel(Cpu.Memory);
54	DeviceMapper.SetChannel(Cpu.IO);
55	end;
56
57	destructor TMachine.Destroy;
58	begin
59	FreeAndNil(Cpu);
60	FreeAndNil(DeviceMapper);
61	FreeAndNil(FrameBuffer);
62	FreeAndNil(Storage);
63	FreeAndNil(Memory);
64	FreeAndNil(Serial);
65	inherited;
66	end;
67
68	end.
69

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