mirror of
https://github.com/janet-lang/janet
synced 2024-07-02 18:13:15 +00:00
25 lines
371 B
Plaintext
25 lines
371 B
Plaintext
|
{
|
||
|
|
bytecode [
|
||
|
|
(load-integer 0 10000)
|
||
|
|
(load-integer 1 0)
|
||
|
|
(load-constant 3 lookup)
|
||
|
|
|
||
|
|
:label
|
||
|
|
(equals 2 1 0)
|
||
|
|
(jump-if 2 :done)
|
||
|
|
(push 0)
|
||
|
|
(shift-right-immediate 0 0 1)
|
||
|
|
(syscall 2 0)
|
||
|
|
(get 2 3 0)
|
||
|
|
(push3 2 3 0)
|
||
|
|
(syscall 2 0)
|
||
|
|
(jump :label)
|
||
|
|
|
||
|
|
:done
|
||
|
|
(return-nil)
|
||
|
|
]
|
||
|
|
constants [
|
||
|
|
(def lookup "0123456789abcdef")
|
||
|
|
]
|
||
|
|
}
|