mirror of
https://github.com/irmen/prog8.git
synced 2025-11-01 06:16:15 +00:00
add sorting module to symboldump, moved shared cbm textio routines to shared module
This commit is contained in:
@@ -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.
|
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() {
|
sub bell() {
|
||||||
chrout(7)
|
chrout(7)
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -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.
|
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() {
|
sub bell() {
|
||||||
; beep
|
; beep
|
||||||
|
|||||||
@@ -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.
|
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() {
|
sub bell() {
|
||||||
chrout(7)
|
chrout(7)
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -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.
|
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() {
|
sub bell() {
|
||||||
chrout(7)
|
chrout(7)
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -3,6 +3,27 @@ txt {
|
|||||||
|
|
||||||
%option merge, no_symbol_prefixing, ignore_unused
|
%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) {
|
asmsub print (str text @ AY) clobbers(A,Y) {
|
||||||
; ---- print zero terminated string, in PETSCII encoding, from A/Y
|
; ---- print zero terminated string, in PETSCII encoding, from A/Y
|
||||||
; note: the compiler contains an optimization that will replace
|
; note: the compiler contains an optimization that will replace
|
||||||
|
|||||||
@@ -9,6 +9,7 @@
|
|||||||
;;%import floats
|
;;%import floats
|
||||||
%import math
|
%import math
|
||||||
%import prog8_lib
|
%import prog8_lib
|
||||||
|
%import sorting
|
||||||
%import strings
|
%import strings
|
||||||
%import syslib
|
%import syslib
|
||||||
%import test_stack
|
%import test_stack
|
||||||
|
|||||||
@@ -10,6 +10,7 @@
|
|||||||
%import graphics
|
%import graphics
|
||||||
%import math
|
%import math
|
||||||
%import prog8_lib
|
%import prog8_lib
|
||||||
|
%import sorting
|
||||||
%import strings
|
%import strings
|
||||||
%import syslib
|
%import syslib
|
||||||
%import test_stack
|
%import test_stack
|
||||||
|
|||||||
@@ -17,6 +17,7 @@
|
|||||||
%import palette
|
%import palette
|
||||||
%import prog8_lib
|
%import prog8_lib
|
||||||
%import psg
|
%import psg
|
||||||
|
%import sorting
|
||||||
%import sprites
|
%import sprites
|
||||||
%import strings
|
%import strings
|
||||||
%import syslib
|
%import syslib
|
||||||
|
|||||||
@@ -7,6 +7,7 @@
|
|||||||
%import cx16logo
|
%import cx16logo
|
||||||
%import math
|
%import math
|
||||||
%import prog8_lib
|
%import prog8_lib
|
||||||
|
%import sorting
|
||||||
%import strings
|
%import strings
|
||||||
%import syslib
|
%import syslib
|
||||||
%import test_stack
|
%import test_stack
|
||||||
|
|||||||
@@ -10,6 +10,7 @@
|
|||||||
%import math
|
%import math
|
||||||
%import monogfx
|
%import monogfx
|
||||||
%import prog8_lib
|
%import prog8_lib
|
||||||
|
%import sorting
|
||||||
%import strings
|
%import strings
|
||||||
%import syslib
|
%import syslib
|
||||||
%import test_stack
|
%import test_stack
|
||||||
|
|||||||
Reference in New Issue
Block a user