From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 app/eudas/5.3/src/isub.replace | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 app/eudas/5.3/src/isub.replace

(limited to 'app/eudas/5.3/src/isub.replace')

diff --git a/app/eudas/5.3/src/isub.replace b/app/eudas/5.3/src/isub.replace
new file mode 100644
index 0000000..3c48009
--- /dev/null
+++ b/app/eudas/5.3/src/isub.replace
@@ -0,0 +1,19 @@
+PACKET isub replace DEFINES ISUB, replace : 
+ 
+INT OP ISUB (TEXT CONST t, INT CONST i) : 
+ 
+  INT CONST ii := i + i; 
+  code (t SUB ii - 1) + 256 * code (t SUB ii) 
+ 
+END OP ISUB; 
+ 
+PROC replace (TEXT VAR t, INT CONST i, wert) : 
+ 
+  INT CONST ii := i + i; 
+  replace (t, ii - 1, code (wert MOD 256)); 
+  replace (t, ii,  code (wert DIV 256 MOD 256)) 
+ 
+END PROC replace 
+ 
+END PACKET isub replace; 
+
-- 
cgit v1.2.3