test/syscall.lorth


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

;;; test
;;; (format nil "abc~%bcd~%")
bel 0 + 97 yaz
bel 1 + 98 yaz
bel 2 + 99 yaz
bel 3 + 10 yaz 
    
1 bel 4 1 syscall-3

bel 0 + eş oku 1 + yaz
bel 1 + eş oku 1 + yaz
bel 2 + eş oku 1 + yaz

1 bel 4 1 syscall-3
0 60 syscall-1