Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add .s

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-04 09:32:16 +09:00
parent 0327f5e68b
commit ca8f5a191f
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
bootstrap.fs
View file

@ -1291,3 +1291,13 @@ create word-buffer s" 63" >number drop cell+ allot drop
;
main
( === Dump of data stack === )
: .s ( -- )
sp0 sp@ - cell- cell / ( depth of the stack )
'<' emit 0 u.r '>' emit space
sp@ sp0 ( beg end )
begin 2dup < while
cell- dup @ .
repeat 2drop
;