diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 14 |
1 files changed, 12 insertions, 2 deletions
@@ -56,7 +56,6 @@ decimal \ PNO \ mostly from pforth - 255 allot variable pad drop variable hld : <# pad hld ! ; @@ -69,9 +68,20 @@ variable hld : (u.) <# #s #> ; : u. (u.) say space ; : u.r >r (u.) r> over - spaces say ; + : (.) dup abs <# #s swap sign #> ; : . (.) say space ; : .r >r (.) r> over - spaces say ; -\ TODO something is leaking its stack (a word address i think) +: (.byte) hex <# # # #> decimal ; +: .byte (.byte) say space ; +: (.word) hex <# # # # # #> decimal ; +: .word (.word) say space ; +: (.dword) hex <# # # # # # # # # #> decimal ; +: .dword (.dword) say space ; +: (.qword) hex <# # # # # # # # # # # # # # # # # #> decimal ; +: .qword (.qword) say space ; + +: .s sp 8 + ( skip sp itself ) begin dup s0 @ >= while dup @ .qword 8 + repeat drop cr ; + bye |