Last change
on this file was 11, checked in by chronos, 2 months ago |
- Modified: Updated Common package.
- Fixed: Wrong return address from CALL instruction.
|
File size:
1.2 KB
|
Line | |
---|
1 | unit Machine;
|
---|
2 |
|
---|
3 | interface
|
---|
4 |
|
---|
5 | uses
|
---|
6 | Classes, SysUtils, Cpu, IntMemory, 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(Serial);
|
---|
50 | DeviceMapper.RegisterDevice(FrameBuffer);
|
---|
51 | DeviceMapper.RegisterDevice(Storage);
|
---|
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.