37 lines
381 B
Plaintext
37 lines
381 B
Plaintext
import stdlib.sl
|
|
import io.sl
|
|
|
|
# : dump ( n -- )
|
|
|
|
# dump takes the firts element from the stack
|
|
# and prints that much consequent elements
|
|
# from the stack while not modifying it
|
|
|
|
word dump
|
|
1 swap
|
|
for
|
|
dup pick
|
|
puti cr
|
|
1 +
|
|
end
|
|
drop
|
|
end
|
|
|
|
# same but for return stack
|
|
word rdump
|
|
1 swap
|
|
for
|
|
dup rpick
|
|
puti cr
|
|
1 +
|
|
end
|
|
drop
|
|
end
|
|
|
|
# : int3 ( -- )
|
|
:asm int3 {
|
|
int3
|
|
}
|
|
;
|
|
|