added new examples
This commit is contained in:
@@ -1,3 +0,0 @@
|
||||
kütüphane "std.lorth"
|
||||
|
||||
stdout "Merhaba Dünya!\n" write
|
||||
6
test/print.kurt
Normal file
6
test/print.kurt
Normal file
@@ -0,0 +1,6 @@
|
||||
;; test
|
||||
;; (format nil "Merhaba Dunya!~%")
|
||||
|
||||
kütüphane "std.kurt"
|
||||
|
||||
stdout "Merhaba Dunya!\n" write
|
||||
@@ -1,33 +0,0 @@
|
||||
;; Currently makro stack notation is ignored by the compiler.
|
||||
makro sys-write 1 son
|
||||
makro write (fd string -- )
|
||||
değiş sys-write syscall-3 son
|
||||
makro stdout 1 son
|
||||
|
||||
makro / (a b -- (a / b)) divmod düş son
|
||||
makro % (a b -- (a % b)) divmod değiş düş son
|
||||
makro 2eş (a b -- a b a b) üst üst son
|
||||
|
||||
makro load64 (bel -- a)
|
||||
7 + 0
|
||||
8 << üst oku + değiş 1 - değiş
|
||||
8 << üst oku + değiş 1 - değiş
|
||||
8 << üst oku + değiş 1 - değiş
|
||||
8 << üst oku + değiş 1 - değiş
|
||||
8 << üst oku + değiş 1 - değiş
|
||||
8 << üst oku + değiş 1 - değiş
|
||||
8 << üst oku + değiş 1 - değiş
|
||||
8 << üst oku + değiş düş
|
||||
son
|
||||
|
||||
makro byte-max 255 son ;; 2^8 - 1 = 255
|
||||
makro store64 (bel a -- )
|
||||
2eş byte-max & yaz 8 >> değiş 1 + değiş
|
||||
2eş byte-max & yaz 8 >> değiş 1 + değiş
|
||||
2eş byte-max & yaz 8 >> değiş 1 + değiş
|
||||
2eş byte-max & yaz 8 >> değiş 1 + değiş
|
||||
2eş byte-max & yaz 8 >> değiş 1 + değiş
|
||||
2eş byte-max & yaz 8 >> değiş 1 + değiş
|
||||
2eş byte-max & yaz 8 >> değiş 1 + değiş
|
||||
2eş byte-max & yaz 8 >> düş düş
|
||||
son
|
||||
Reference in New Issue
Block a user