forth: add word "."

apps/forth/dict.asm

@@ -108,3 +108,15 @@ INTERPRET:
 	jp	exit
 .msg:
 	.db	"not found", 0
+
+; ( n -- )
+DOT:
+	.db "."
+	.fill 7
+	.dw INTERPRET
+	.dw nativeWord
+	pop	de
+	call	pad
+	call	fmtDecimalS
+	call	printstr
+	jp	exit

apps/forth/glue.asm

@@ -2,6 +2,8 @@
 jp	forthMain
 
 .inc "core.asm"
+.inc "lib/ari.asm"
+.inc "lib/fmt.asm"
 .equ FORTH_RAMSTART RAMSTART
 .inc "forth/main.asm"
 .inc "forth/util.asm"

apps/forth/main.asm

@@ -27,7 +27,7 @@ ENDPGM:
 
 forthMain:
 	ld	(INITIAL_SP), sp
-	ld	hl, INTERPRET	; last entry in hardcoded dict
+	ld	hl, DOT		; last entry in hardcoded dict
 	ld	(CURRENT), hl
 	ld	hl, FORTH_RAMEND
 	ld	(HERE), hl

apps/forth/util.asm

@@ -1,8 +1,8 @@
 ; Return address of scratchpad in HL
 pad:
 	ld	hl, (HERE)
-	ld	de, PADDING
+	ld	a, PADDING
-	add	hl, de
+	call	addHL
 	ret
 
 ; Read word from (INPUTPOS) and return, in HL, a null-terminated word.