a

1 files changed, 44 insertions, 0 deletions

diff --git a/tests/programs/bytes.zc b/tests/programs/bytes.zc
new file mode 100644
index 0000000..b4e1079
--- /dev/null
+++ b/tests/programs/bytes.zc
@@ -0,0 +1,44 @@
+fn sp() { put_c(32); return 0; }
+fn litw(v) { return v + v + 1; }
+fn f() { put_c('A'); return 0; }
+fn sumbytes(n) {
+	let buf[64], i = 0, s = 0, b;
+	while (i < 64) { buf[i] = i * 0x0101010101010101; i++; }
+	b = addr_b(buf);
+	i = 0;
+	while (i < n) { s = s + ld8(b + (i & 511)); i++; }
+	return s;
+}
+fn main() {
+	let buf[3], b;
+	buf[0] = 0; buf[1] = 0; buf[2] = 0;
+	b = addr_b(buf);
+	st8(b, 0x11);
+	st8(b + 1, 0x22);
+	st8(b + 7, 0x7f);
+	st16(b + 7, 0xabcd);
+	st32(b + 10, 0x01020304);
+	put_n(ld8(b)); sp();
+	put_n(ld8(b + 1)); sp();
+	put_n(ld16(b + 7)); sp();
+	put_n(ld32(b + 10)); sp();
+	put_n(addr_w(b) == buf); sp();
+	put_n(ld8(b + 7)); sp();
+	put_n(ld8(b + 8)); sp();
+	put_n(buf[0]); sp();
+	put_n(buf[1]); sp();
+	st8(0 - 1, 99);
+	put_n(ld8(0 - 1)); sp();
+	put_n(ld16(addr_b(MW) - 1)); sp();
+	put_n(sumbytes(1000));
+	put_c(10);
+	let p = f;
+	f();
+	while (*p != litw('A')) p++;
+	st8(addr_b(p), litw('B') & 255);
+	f();
+	st8(addr_b(p), litw('C') & 255);
+	f();
+	put_c(10);
+	return 0;
+}