added ? word as a convenience

[pforth] / fth / misc2.fth

diff --git a/fth/misc2.fth b/fth/misc2.fth
index 3480449..c943e82 100644 (file)
--- a/fth/misc2.fth
+++ b/fth/misc2.fth
@@ -41,6 +41,10 @@ anew task-misc2.fth
 
 variable if-debug
 
 
 variable if-debug
 

+: ? ( address -- , fatch from address and print value )
+    @ .
+;
+

 decimal
 create msec-delay 10000 ,  ( default for SUN )
 : (MSEC) ( #msecs -- )
 decimal
 create msec-delay 10000 ,  ( default for SUN )
 : (MSEC) ( #msecs -- )