X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=gesamt%2Fcodeb_georg_asma_01.0;fp=gesamt%2Fcodeb_georg_asma_01.0;h=6daa90f0eb2e41709d1f80e3c1fe4a142585053f;hb=70aa500ad5f5643fa386027158bf774a8195f604;hp=0000000000000000000000000000000000000000;hpb=d31634c82c3a5328527052ee3d660f1725bbdaff;p=testub10.git

diff --git a/gesamt/codeb_georg_asma_01.0 b/gesamt/codeb_georg_asma_01.0
new file mode 100644
index 0000000..6daa90f
--- /dev/null
+++ b/gesamt/codeb_georg_asma_01.0
@@ -0,0 +1,43 @@
+/** asma - aka tolower() first 16 bytes.
+ *
+ *	unsigned char *asma(unsigned char *s)
+ *	{
+ *		int i;
+ *		for (i=0; i<16; i++)
+ *		{
+ *			unsigned char c = s[i];
+ *			c += (c >= 'A' && c <= 'Z') ? 'a'-'A' : 0;
+ *			s[i] = c;
+ *		}
+ *		return s;
+ *	}
+ */
+/* AMD64 Little Endian byte order
+ * p[0]                c0 c1 c2 c3 c4 c5 c6 c7
+ * p[1]                   c1 c2 c3 c4 c5 c6 c7 c8
+ * p[1] * 256          00 c1 c2 c3 c4 c5 c6 c7
+ * p[0] - 256 * p[1]   c0
+ */
+/* WISHLIST signed!? p w/o i */
+struct f end;
+method asma()
+	var p := this;
+	var i := 0;
+	while i < 16
+	do
+		var a := (p-(0-i)).f;
+		var b := (p-(-1-i)).f;
+		var c := a - (256 * b);
+
+		/* add 'a'-'A' iff 'A' <= c <= 'Z' */
+		if 0x40 < c then if c < 0x5B then
+			c := c--0x20;
+		end;
+		end;
+
+		(p-(0-i)).f := (256 * b) -(0-c);
+
+		i := i--1;
+	end;
+	return this;
+end;