some printing stuff

bootstrap.4k

@@ -76,7 +76,7 @@ variable #section
 : 0= 0 = ;
 : cr 10 emit ;
 : space 32 emit ;
-: . . space ;
+
 
 : begin here@ ; immediate
 
@@ -375,3 +375,19 @@ variable #ithere
 | dump
 
 
+
+variable savebase
+base @ savebase !
+16 const b16
+10 const b10
+
+: base! base @ savebase ! base ! ;
+: hex b16 base! ;
+: dec b10 base! ;
+: [hex] hex ; immediate
+: [dec] dec ; immediate
+: switch-base savebase @ base ! ;
+
+: [switch-base] res-base ; immediate
+
+| : . . space ;

print.4k

@@ -0,0 +1,13 @@
+forget mark
+
+variable pad
+0 pad !
+variable pad-frac
+0 pad-frac
+
+: r1+ postpone r> postpone 1+ postpone >r ; immediate
+: n[ -1 -1 ;
+: %n dup -1 <> if pad ! dup -1 <> if pad-frac ! else drop then else drop then ;
+: .n dup dup 0= if 1 ;; then 0 >r begin dup 0 <> while 10 / r> 1 + >r repeat drop r>
+    pad @ swap - dup 0 > if 1 do 0 . loop else drop then .  ;
+: ]n begin dup -1 = while drop repeat ;

src/4k.s

@@ -213,7 +213,7 @@ ifdef([DEBUG],[
 next_word:
 	jmp 	.fetchbyte	# this is called by every asm word at the end
 
-fmt_dec:		.ASCIZ 	"%d\n"
+fmt_dec:		.ASCIZ 	"%d"
 
 
 include(import.m4)