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

This commit is contained in:
Irmen de Jong
2025-08-24 12:56:22 +02:00
parent 2afd2d4dae
commit aa72ded21e
10 changed files with 26 additions and 79 deletions

View File

@@ -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)
}

View File

@@ -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

View File

@@ -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)
}

View File

@@ -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)
}

View File

@@ -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

View File

@@ -9,6 +9,7 @@
;;%import floats
%import math
%import prog8_lib
%import sorting
%import strings
%import syslib
%import test_stack

View File

@@ -10,6 +10,7 @@
%import graphics
%import math
%import prog8_lib
%import sorting
%import strings
%import syslib
%import test_stack

View File

@@ -17,6 +17,7 @@
%import palette
%import prog8_lib
%import psg
%import sorting
%import sprites
%import strings
%import syslib

View File

@@ -7,6 +7,7 @@
%import cx16logo
%import math
%import prog8_lib
%import sorting
%import strings
%import syslib
%import test_stack

View File

@@ -10,6 +10,7 @@
%import math
%import monogfx
%import prog8_lib
%import sorting
%import strings
%import syslib
%import test_stack