From cccb99226d3951fd9dfe1c4cf1c43126a1309d51 Mon Sep 17 00:00:00 2001
From: WlodekM <wlodzio.maly@gmail.com>
Date: Mon, 31 Mar 2025 19:47:54 +0300
Subject: move to pc-thing/

---
 pc-thing/instructions_new/pop.ts | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 pc-thing/instructions_new/pop.ts

(limited to 'pc-thing/instructions_new/pop.ts')

diff --git a/pc-thing/instructions_new/pop.ts b/pc-thing/instructions_new/pop.ts
new file mode 100644
index 0000000..83ece88
--- /dev/null
+++ b/pc-thing/instructions_new/pop.ts
@@ -0,0 +1,12 @@
+import { PC } from "../pc.ts";
+
+export default {
+    function(this: PC, [reg1]: number[]) {
+        if (!this.getMem(0x7000)) throw 'no stack pointer';
+        if (this.getMem(0x7001) == 0) throw 'stack underflow';
+        const r1 = this.lib.parseReg(reg1);
+        this.registers[r1] = this.getMem(this.getMem(0x7001) + 1);
+        this.setMem(0x7001, this.getMem(0x7001) - 1)
+    },
+    args: 1
+}
\ No newline at end of file
-- 
cgit 1.4.1-2-gfad0