diff --git a/kernel/src/holeybytes/ecah.rs b/kernel/src/holeybytes/ecah.rs
index fbf0f10..846957b 100644
--- a/kernel/src/holeybytes/ecah.rs
+++ b/kernel/src/holeybytes/ecah.rs
@@ -177,7 +177,9 @@ pub fn handler(vm: &mut Vm) {
                 unsafe fn x86_out(address: u16, value: u32) {
                     x86_64::instructions::port::Port::new(address).write(value);
                 }
-                vm.registers[3] = hbvm::value::Value(unsafe { x86_in(r2 as u16) } as u64);
+                let x = hbvm::value::Value(unsafe { x86_in(r2 as u16) } as u64);
+                info!("Read {:?} from Port {:?}", x, r2);
+                vm.registers[3] = x
             }
         }
         // 5
diff --git a/sysdata/libraries/stn/src/string.hb b/sysdata/libraries/stn/src/string.hb
index 3ee31a6..8abed24 100644
--- a/sysdata/libraries/stn/src/string.hb
+++ b/sysdata/libraries/stn/src/string.hb
@@ -5,4 +5,47 @@ length := fn(ptr: ^u8): int {
         ptr += 1;
 	}
     return len;
-}
\ No newline at end of file
+}
+
+display_int := fn(num: int, p: ^u8): ^u8 {
+    i := 0;
+    if num == 0 {
+        set(p, 48);
+        return p;
+    }
+    loop {
+        if num == 0 break;
+        set(p + i, num % 10 + 48);
+        num /= 10;
+        i += 1;
+    }
+    reverse(p);
+    //null terminate
+    set(p + i, 0);
+    return p;
+}
+
+reverse := fn(s: ^u8): void {
+    //reverse a string, don't remove digits
+    len := 0;
+    loop {
+        if *(s + len) == 0 break;
+        len += 1;
+    }
+    i := 0;
+    j := len - 1;
+    loop {
+        if i >= j break;
+        temp := *(s + i);
+        *(s + i) = *(s + j);
+        *(s + j) = temp;
+        i += 1;
+        j -= 1;
+    }
+    return;
+}
+
+set := fn(change: ^int, new: int): void {
+    *(change) = new;
+    return;
+}
diff --git a/sysdata/limine.cfg b/sysdata/limine.cfg
index 14ad16e..18ec894 100644
--- a/sysdata/limine.cfg
+++ b/sysdata/limine.cfg
@@ -37,4 +37,4 @@ TERM_BACKDROP=008080
     MODULE_CMDLINE="height=10 width=10 arch=${ARCH}"
 
     MODULE_PATH=boot:///serial_driver.hbf
-    MODULE_CMDLINE="arch=${ARCH}"
\ No newline at end of file
+    MODULE_CMDLINE="arch=${ARCH}"
diff --git a/sysdata/programs/time_driver/meta.toml b/sysdata/programs/time_driver/meta.toml
new file mode 100644
index 0000000..84cc97e
--- /dev/null
+++ b/sysdata/programs/time_driver/meta.toml
@@ -0,0 +1,11 @@
+[package]
+name = "time_driver"
+authors = ["SamBuckley"]
+
+[dependants.libraries]
+
+[dependants.binaries]
+hblang.version = "1.0.0"
+
+[build]
+command = "hblang src/main.hb"
diff --git a/sysdata/programs/time_driver/src/main.hb b/sysdata/programs/time_driver/src/main.hb
new file mode 100644
index 0000000..91d2d7e
--- /dev/null
+++ b/sysdata/programs/time_driver/src/main.hb
@@ -0,0 +1,21 @@
+stn := @use("../../../libraries/stn/src/lib.hb");
+log := stn.log;
+mem := stn.memory;
+s := stn.string;
+page := 0
+
+main := fn(): void {
+    page += mem.request_page(1);
+    port_str := "\0\{47}\0";
+    a := @eca(u8, 3, 3, port_str, 2);
+    
+    n := 5000000;
+    loop {
+        if n == 0 break;
+        n -= 1;
+        stack_reclamation_edge_case := 0;
+    }
+    td := s.display_int(a, page);
+    log.debug(td);
+    return;
+}
diff --git a/sysdata/system_config.toml b/sysdata/system_config.toml
index 553cc87..a7060f8 100644
--- a/sysdata/system_config.toml
+++ b/sysdata/system_config.toml
@@ -26,3 +26,6 @@ path = "boot:///tests.hbf"
 
 [boot.limine.ableos.modules.fb_driver]
 path = "boot:///fb_driver.hbf"
+
+[boot.limine.ableos.modules.time_driver]
+path = "boot:///time_driver.hbf"
\ No newline at end of file