clobber.txt 454 B

123456789101112131415161718192021222324252627282930313233343536373839
  1. (def demo (fn (do
  2. (let d 1)
  3. (let y 0)
  4. (while (lt d 100) (do
  5. (print d)
  6. ;(let y (/ d 2))
  7. (box d y d)
  8. (let d (+ d 4))
  9. (send scr 0)
  10. ))
  11. )))
  12. (demo)
  13. (def foo (fn a b c d e f (do
  14. (print a)
  15. (print b)
  16. (print c)
  17. (print d)
  18. (print e)
  19. (print f)
  20. )))
  21. (foo (- 10 3) (- 10 4) (- 10 5) (- 10 6) (- 10 7) (- 10 8))
  22. (foo (/ 10 4) (+ 10 4) (* 10 4) (- 10 4))
  23. ------------
  24. rdi = arg1
  25. rsi = arg2
  26. rdx = arg3
  27. r12 = arg4
  28. 12,13,14