kapcioszek/sillymachine
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implemented code execution

Browse Source
This commit is contained in:
Bartłomiej Szostak 2024-04-21 13:05:09 +02:00
parent 8897298e11
commit efbc5e94b3
No known key found for this signature in database
GPG Key ID: 562DACF230A18086
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/sillymachine.adb
View File

@ -19,6 +19,9 @@ procedure sillymachine is
ExecSize : Integer := 0; ExecSize : Integer := 0;
MemorySize : Integer := 1048576; -- default memory is 1 mb (TODO: figure out why 8 mb produces STORAGE_ERROR) MemorySize : Integer := 1048576; -- default memory is 1 mb (TODO: figure out why 8 mb produces STORAGE_ERROR)
PC : Integer := 0; -- Program Counter
Instruction : ByteArr (0 .. 15);
begin begin
ValidHeader (0) := 6; ValidHeader (0) := 6;
@ -93,8 +96,20 @@ begin
end loop; end loop;
Bin_IO.Close(F); Bin_IO.Close(F);
for i in 0 .. 30 loop PC := 64; -- initialise program counter to entry point
Put_Line(Byte'Image(MemoryArr (i))); while True loop
for i in 0 .. 15 loop -- load the instruction
Instruction (i) := MemoryArr (PC + i);
end loop;
case Instruction (0) is -- execute the instruction
when 0 => Put_Line("-- japko --");
when 1 => Put_Line("-- banan --");
when 255 => goto THE_END;
when others => New_Line(1);
end case;
PC := PC + 16; -- increment program counter to next instruction
end loop; end loop;
end; end;