diff --git a/compiler/res/prog8lib/c128/textio.p8 b/compiler/res/prog8lib/c128/textio.p8 index c19a3c9a3..3e11c0ebd 100644 --- a/compiler/res/prog8lib/c128/textio.p8 +++ b/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) } diff --git a/compiler/res/prog8lib/c64/textio.p8 b/compiler/res/prog8lib/c64/textio.p8 index 3c6e0c5c1..fc2709641 100644 --- a/compiler/res/prog8lib/c64/textio.p8 +++ b/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 diff --git a/compiler/res/prog8lib/cx16/textio.p8 b/compiler/res/prog8lib/cx16/textio.p8 index e7dcc783e..b3447082b 100644 --- a/compiler/res/prog8lib/cx16/textio.p8 +++ b/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) } diff --git a/compiler/res/prog8lib/pet32/textio.p8 b/compiler/res/prog8lib/pet32/textio.p8 index 8ba31d8c6..44272048c 100644 --- a/compiler/res/prog8lib/pet32/textio.p8 +++ b/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) } diff --git a/compiler/res/prog8lib/shared_cbm_textio_functions.p8 b/compiler/res/prog8lib/shared_cbm_textio_functions.p8 index 96bf03143..f3d5c6bc2 100644 --- a/compiler/res/prog8lib/shared_cbm_textio_functions.p8 +++ b/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 diff --git a/docs/import-all-c128.p8 b/docs/import-all-c128.p8 index 99700a41a..c22c3d79b 100644 --- a/docs/import-all-c128.p8 +++ b/docs/import-all-c128.p8 @@ -9,6 +9,7 @@ ;;%import floats %import math %import prog8_lib +%import sorting %import strings %import syslib %import test_stack diff --git a/docs/import-all-c64.p8 b/docs/import-all-c64.p8 index be32d354b..1e28e7b1f 100644 --- a/docs/import-all-c64.p8 +++ b/docs/import-all-c64.p8 @@ -10,6 +10,7 @@ %import graphics %import math %import prog8_lib +%import sorting %import strings %import syslib %import test_stack diff --git a/docs/import-all-cx16.p8 b/docs/import-all-cx16.p8 index d036c005f..88410ae3e 100644 --- a/docs/import-all-cx16.p8 +++ b/docs/import-all-cx16.p8 @@ -17,6 +17,7 @@ %import palette %import prog8_lib %import psg +%import sorting %import sprites %import strings %import syslib diff --git a/docs/import-all-pet32.p8 b/docs/import-all-pet32.p8 index d02ffcac9..24d6b99ea 100644 --- a/docs/import-all-pet32.p8 +++ b/docs/import-all-pet32.p8 @@ -7,6 +7,7 @@ %import cx16logo %import math %import prog8_lib +%import sorting %import strings %import syslib %import test_stack diff --git a/docs/import-all-virtual.p8 b/docs/import-all-virtual.p8 index cfeeac132..24bac58c3 100644 --- a/docs/import-all-virtual.p8 +++ b/docs/import-all-virtual.p8 @@ -10,6 +10,7 @@ %import math %import monogfx %import prog8_lib +%import sorting %import strings %import syslib %import test_stack