add rcmp instr, add rot13 example

2020-10-10 14:31:07 +02:00
parent e48d734615
commit 3a8895b790
5 changed files with 41 additions and 1 deletions
@@ -0,0 +1,16 @@
+(
+    (:again)
+    (ld r0 @stdin (inval? (halt)))
+    (rcmp r0 'A' 'Z'
+        (eq? (ld r1 'A'))
+        (ne? (rcmp r0 'a' 'z'
+            (eq? (ld r1 'a'))
+            (ne? (j :print)))))
+    (sub r0 r1)
+    (add r0 13)
+    (mod r0 26)
+    (add r0 r1)
+    (:print)
+    (ld @stdout r0)
+    (j :again)
+)