add sorting module to symboldump, moved shared cbm textio routines to shared module

compiler/res/prog8lib/c128/textio.p8

@@ -16,26 +16,6 @@ const ubyte DEFAULT_HEIGHT = 25
 extsub $FFD2 = chrout(ubyte character @ A)    ; for consistency. You can also use cbm.CHROUT directly ofcourse. Note: takes a PETSCII encoded character.
 
 
-sub  clear_screen() {
-    chrout(147)
-}
-
-sub  cls() {
-    chrout(147)
-}
-
-sub home() {
-    chrout(19)
-}
-
-sub nl() {
-    chrout('\n')
-}
-
-sub spc() {
-    chrout(' ')
-}
-
 sub bell() {
     chrout(7)
 }

compiler/res/prog8lib/c64/textio.p8

@@ -15,25 +15,6 @@ const ubyte DEFAULT_HEIGHT = 25
 
 extsub $FFD2 = chrout(ubyte character @ A)    ; for consistency. You can also use cbm.CHROUT directly ofcourse. Note: takes a PETSCII encoded character.
 
-sub  clear_screen() {
-    chrout(147)
-}
-
-sub  cls() {
-    chrout(147)
-}
-
-sub home() {
-    chrout(19)
-}
-
-sub nl() {
-    chrout('\n')
-}
-
-sub spc() {
-    chrout(' ')
-}
 
 sub bell() {
     ; beep

compiler/res/prog8lib/cx16/textio.p8

@@ -17,26 +17,6 @@ const long VERA_TEXTMATRIX = $1b000
 extsub $FFD2 = chrout(ubyte character @ A)    ; for consistency. You can also use cbm.CHROUT directly ofcourse. Note: takes a PETSCII encoded character.
 
 
-sub clear_screen() {
-    chrout(147)
-}
-
-sub cls() {
-    chrout(147)
-}
-
-sub home() {
-    chrout(19)
-}
-
-sub nl() {
-    chrout('\n')
-}
-
-sub spc() {
-    chrout(' ')
-}
-
 sub bell() {
     chrout(7)
 }

compiler/res/prog8lib/pet32/textio.p8

@@ -15,26 +15,6 @@ const ubyte DEFAULT_HEIGHT = 25
 extsub $FFD2 = chrout(ubyte character @ A)    ; for consistency. You can also use cbm.CHROUT directly ofcourse. Note: takes a PETSCII encoded character.
 
 
-sub  clear_screen() {
-    chrout(147)
-}
-
-sub cls() {
-    chrout(147)
-}
-
-sub home() {
-    chrout(19)
-}
-
-sub nl() {
-    chrout('\n')
-}
-
-sub spc() {
-    chrout(' ')
-}
-
 sub bell() {
     chrout(7)
 }

compiler/res/prog8lib/shared_cbm_textio_functions.p8

@@ -3,6 +3,27 @@ txt {
 
     %option merge, no_symbol_prefixing, ignore_unused
 
+    sub clear_screen() {
+        chrout(147)
+    }
+
+    sub cls() {
+        chrout(147)
+    }
+
+    sub home() {
+        chrout(19)
+    }
+
+    sub nl() {
+        chrout('\n')
+    }
+
+    sub spc() {
+        chrout(' ')
+    }
+
+
     asmsub  print (str text @ AY) clobbers(A,Y)  {
     	; ---- print zero terminated string, in PETSCII encoding, from A/Y
     	; note: the compiler contains an optimization that will replace