From 6a31b0560a203fd4ae6642114dad488545ed0c3a Mon Sep 17 00:00:00 2001
From: pommicket <pommicket@gmail.com>
Date: Wed, 5 Jan 2022 18:19:28 -0500
Subject: new language idea

---
 04b/in04b | 57 +++++++++++++++++++++++++++++----------------------------
 1 file changed, 29 insertions(+), 28 deletions(-)

(limited to '04b/in04b')

diff --git a/04b/in04b b/04b/in04b
index a6e76b9..4a1e7e3 100644
--- a/04b/in04b
+++ b/04b/in04b
@@ -1,4 +1,3 @@
-; types: char, short, int, long, *type
 ; declaration:
 ;     global <type> <name>
 ;     local  <type> <name>
@@ -11,7 +10,7 @@
 ;     <lvalue> += <rvalue>
 ;     <lvalue> -= <rvalue>
 ;     <function>(<term>, <term>, ...)
-;     syscall <term>, <term>, ...
+;     syscall <term> <term> ...
 ;     return <rvalue>
 ;     byte <number>
 ; term:
@@ -29,7 +28,7 @@
 ;     `<string>`
 ;     <var>
 ;     &<var>
-;     *<var>
+;     *1 <var> / *2 <var> / *4 <var> / *8 <var>
 ;     <var>[<term>]
 ;     ~<var>
 ;     <function>(<term>, <term>, ...)
@@ -48,18 +47,20 @@
 
 main() ; hello
 
-global char x
-global short y ;123
-global long z
+global x
+global y ;123
+global z
 
 :strlen
 function
-	argument *char s
-	local long len
-	local char c
+	argument s
+	local len
+	local c
+	local p
 	len = 0
 	:strlen_loop
-	c = s[len]
+	p = s + len
+	c = *1 p
 	if c == 0 goto strlen_loop_end
 	len += 1
 	goto strlen_loop
@@ -68,40 +69,40 @@ function
 
 :putc
 function
-	argument char c
-	local *char p
+	argument c
+	local p
 	p = &c
-	syscall 1, 1, p, 1, 0, 0, 0, 0
+	syscall 1 1 p 1 0 0 0 0
 	return
 
 :puts
 function
-	argument *char s
-	local long len
+	argument s
+	local len
 	len = strlen(s)
-	syscall 1, 1, s, len, 0, 0, 0, 0
+	syscall 1 1 s len 0 0 0 0
 	return
 
 :main
 function
-	local *char hello
+	local hello
 	hello = `Hello, world!
 `
 	puts(hello)
-	syscall 0x3c, 0, 0, 0, 0, 0, 0, 0
+	syscall 0x3c 0 0 0 0 0 0 0
 
 
 :f
 function
-	argument *long x
-	argument *long y
-	local long v
-	local *long p
-	v = *x
-	p = *y
-	*p = v
+	argument x
+	argument y
+	local v
+	local p
+	v = *4x
+	p = *8y
+	*4p = v
 	if v == 0 goto something
-	p[1] = v + 1
-	return p[2]
+	*1p = v + 1
+	return *2p
 	:something
-	return p[1]
+	return *4p
-- 
cgit v1.2.3