From 2fc20ad0b11e60ecfacc653024f2b582acad6e86 Mon Sep 17 00:00:00 2001
From: Moon Flower <moon@coffin.ir>
Date: Mon, 11 Aug 2025 11:34:18 +0330
Subject: ir2 initial release!

---
 pu1/code.pasm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 pu1/code.pasm

(limited to 'pu1/code.pasm')

diff --git a/pu1/code.pasm b/pu1/code.pasm
new file mode 100644
index 0000000..94f37c5
--- /dev/null
+++ b/pu1/code.pasm
@@ -0,0 +1,23 @@
+(1 ar4 con 60 ar2 r4a mem con 1 ar4 con 60 ar3 con 0 ar2 con 2 hlt)
+(2 con 255 ar7 con 2 ar2 con 1 ar3 con 2 hlt)
+
+# init sdl (1000, 600)
+con 0 ar3 con 2 ar2 con 1000 ar4 con 600 ar5 con 2 hlt
+
+# set color to 200,200,0,255
+con 200 ar4 con 200 ar5 con 0 ar6 @2
+
+# save spot
+r8a ar6
+
+# clear screen
+con 2 ar2 con 2 ar3 con 2 hlt
+
+# present screen
+con 2 ar2 con 3 ar3 con 2 hlt
+
+# jump-back
+r6a ar8
+
+# quit
+con 0 hlt
-- 
cgit v1.2.3