zongor
/
undar-lang
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

rename to make more sense

This commit is contained in:
zongor 2025-09-23 23:00:19 -07:00
parent f650e8110b
commit 2a6e428032
6 changed files with 43 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/add.asm.lisp
View File

@ -19,7 +19,7 @@
(return)) (return))
(label println (label println
(load-immediate $0 &terminal-str) (load-immediate $0 &terminal-namespace)
(load-immediate $3 &new-line) (load-immediate $3 &new-line)
(pop $1) (pop $1)
(string-length $2 $1) (string-length $2 $1)
@ -28,5 +28,5 @@
(syscall DEVICE-WRITE $0 $3 $4) (syscall DEVICE-WRITE $0 $3 $4)
(return))) (return)))
(data (data
(label terminal-str "/dev/term/0") (label terminal-namespace "/dev/term/0")
(label new-line "\n"))) (label new-line "\n")))

4
test/fib.asm.lisp
View File

@ -5,7 +5,7 @@
(call &fib) (call &fib)
(pop $0) (pop $0)
(int-to-string $1 $0) (int-to-string $1 $0)
(load-immediate $2 &terminal-str) (load-immediate $2 &terminal-namespace)
(string-length $4 $3) (string-length $4 $3)
(syscall DEVICE-WRITE $2 $1 $4) (syscall DEVICE-WRITE $2 $1 $4)
(load-immediate $11 &new-line) (load-immediate $11 &new-line)
@ -33,5 +33,5 @@
(push $0) (push $0)
(return)))) (return))))
(data (data
(label terminal-str "/dev/term/0") (label terminal-namespace "/dev/term/0")
(label new-line "\n"))) (label new-line "\n")))

4
test/hello.asm.lisp
View File

@ -1,10 +1,10 @@
((code ((code
(label main (label main
(load-immediate $0 &terminal-str) ; load terminal namespace (load-immediate $0 &terminal-namespace) ; load terminal namespace
(load-immediate $1 &hello-str) ; load hello string ptr (load-immediate $1 &hello-str) ; load hello string ptr
(string-length $2 $1) ; get length to write to stdout (string-length $2 $1) ; get length to write to stdout
(syscall DEVICE-WRITE $0 $1 $2) ; do the write syscall (syscall DEVICE-WRITE $0 $1 $2) ; do the write syscall
(halt))) ; done (halt))) ; done
(data (data
(label terminal-str "/dev/term/0") (label terminal-namespace "/dev/term/0")
(label hello-str "nuqneH 'u'?\n"))) (label hello-str "nuqneH 'u'?\n")))

45
test/loop.asm.lisp
View File

@ -4,28 +4,35 @@
(load-immediate $1 5000) (load-immediate $1 5000)
(load-immediate $2 0) (load-immediate $2 0)
(load-immediate $3 -1) (load-immediate $3 -1)
(load-immediate $5 5.0)
(label loop-body (label loop-body
(load $4 &loop-body)
(load-immediate $5 5.0)
(add-real $0 $0 $5) (add-real $0 $0 $5)
(add-int $1 $1 $3) (add-int $1 $1 $3)
(jump-gt-eq-int $4 $1 $2)) (jump-ge-int &loop-body $1 $2))
(load-immediate $10 &terminal-namespace)
(real-to-nat $1 $0) (real-to-nat $1 $0)
(load-immediate $6 &terminal-str) (load-immediate $7 &help)
(load $7 &help)
(string-length $8 $7)
(syscall DEVICE-WRITE $6 $7 $8)
(syscall DEVICE-READ $7 $2)
(string-length $3 $2)
(nat-to-string $4 $1)
(string-length $5 $4)
(syscall DEVICE-WRITE $6 $4 $5)
(real-to-string $9 $0)
(string-length $10 $9)
(syscall DEVICE-WRITE $6 $9 $10)
(string-length $8 $7) (string-length $8 $7)
(syscall DEVICE-WRITE $6 $7 $8) (syscall DEVICE-WRITE $10 $7 $8)
(halt))) ;(load-immediate $8 32)
;(syscall DEVICE-READ $10 $2 $8) ; FIXME
(nat-to-string $4 $1)
(push $4)
(call &println)
(real-to-string $3 $0)
(push $3)
(call &println)
(halt))
(label println
(load-immediate $0 &terminal-namespace)
(load-immediate $3 &new-line)
(pop $1)
(string-length $2 $1)
(syscall DEVICE-WRITE $0 $1 $2)
(string-length $4 $3)
(syscall DEVICE-WRITE $0 $3 $4)
(return)))
(data (data
(label terminal-str "/dev/term/0") (label terminal-namespace "/dev/term/0")
(label help "Enter a string:"))) (label help "Enter a string:\n")
(label new-line "\n")))

4
test/simple.asm.lisp
View File

@ -5,13 +5,13 @@
(add-real $2 $1 $0) (add-real $2 $1 $0)
(real-to-string $3 $2) (real-to-string $3 $2)
(string-length $4 $3) (string-length $4 $3)
(load-immediate $5 &terminal-str) (load-immediate $5 &terminal-namespace)
(syscall DEVICE-WRITE $5 $3 $4) (syscall DEVICE-WRITE $5 $3 $4)
(load-immediate $6 &new-line) (load-immediate $6 &new-line)
(string-length $7 $6) (string-length $7 $6)
(syscall DEVICE-WRITE $5 $6 $7) (syscall DEVICE-WRITE $5 $6 $7)
(halt))) (halt)))
(data (label terminal-str "/dev/term/0") (data (label terminal-namespace "/dev/term/0")
(label new-line "\n") (label new-line "\n")
(label x 1.0) (label x 1.0)
(label y 2.0))) (label y 2.0)))

9
test/window.asm.lisp Normal file
View File

@ -0,0 +1,9 @@
((code
(label main
(load-immediate $0 &screen-namespace)
(load-immediate $1 0) ; mode 0
(syscall DEVICE-OPEN $0 $2)
(halt)))
(data (label screen-namespace "/dev/term/0")))