deduplicated some print character routines

c64/basic/e422.initmsg.s

@@ -1,5 +1,28 @@
 
-// XXX provide documentation and implementation
+// XXX provide documentation and finish the implementation
 
 INITMSG:
-    STUB_IMPLEMENTATION()
+
+	// Print PAL/NTSC
+	ldx #30 // NTSC
+	lda TVSFLG
+	beq !+
+	ldx #31 // PAL
+!:
+	jsr print_packed_message
+
+	// Work out free bytes, display them
+	jsr basic_do_new
+	lda MEMSIZ+0
+	sec
+	sbc TXTTAB+0
+	tax
+	lda MEMSIZ+1
+	sbc TXTTAB+1
+
+	jsr print_integer
+	jsr print_space
+
+	// Print the rest of the start up message
+	ldx #34
+	jmp print_packed_message