From 10bd1f4e9ccc706add718d08c31e8d717cab6b1b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bart=C5=82omiej=20Szostak?= <BartGOKU@onet.pl>
Date: Thu, 2 May 2024 20:14:48 +0200
Subject: [PATCH] Implemented reading from standard input

---
 src/shardware.adb | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/shardware.adb b/src/shardware.adb
index c9fd4f5..231702a 100644
--- a/src/shardware.adb
+++ b/src/shardware.adb
@@ -145,7 +145,17 @@ package body Shardware is
   procedure Trap (Registers : RegArrU; Memory : in out ByteArr; MemorySize : in out Unsigned_32) is 
   begin
     case Registers(0) is
-      when 0 => null;
+      when 0 => 
+        declare
+          Pointer : Unsigned_32 := Registers (4) - 1;
+          Length : Integer := Integer(Registers (3));
+          CharBuff : String (1 .. Length);
+        begin
+          Get_Line(CharBuff ,Length);
+          for i in 1 .. Length loop
+            Memory (Pointer + Unsigned_32(i)) := Character'Pos(CharBuff (i));
+          end loop;
+        end;
       when 1 => 
         declare
           Pointer : Unsigned_32 := Registers (4) - 1;
@@ -155,7 +165,7 @@ package body Shardware is
           for i in 1 .. Length loop
             CharBuff (i) := Character'Val(Memory (Pointer + Unsigned_32(i)));
           end loop;
-          Put_Line(CharBuff);
+          Put(CharBuff);
         end;
       when others => null;
     end case;