mirror of
				https://github.com/irmen/prog8.git
				synced 2025-11-03 19:16:13 +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.
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
sub  clear_screen() {
 | 
			
		||||
    chrout(147)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub  cls() {
 | 
			
		||||
    chrout(147)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub home() {
 | 
			
		||||
    chrout(19)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub nl() {
 | 
			
		||||
    chrout('\n')
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub spc() {
 | 
			
		||||
    chrout(' ')
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub bell() {
 | 
			
		||||
    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.
 | 
			
		||||
 | 
			
		||||
sub  clear_screen() {
 | 
			
		||||
    chrout(147)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub  cls() {
 | 
			
		||||
    chrout(147)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub home() {
 | 
			
		||||
    chrout(19)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub nl() {
 | 
			
		||||
    chrout('\n')
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub spc() {
 | 
			
		||||
    chrout(' ')
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub bell() {
 | 
			
		||||
    ; 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.
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
sub clear_screen() {
 | 
			
		||||
    chrout(147)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub cls() {
 | 
			
		||||
    chrout(147)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub home() {
 | 
			
		||||
    chrout(19)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub nl() {
 | 
			
		||||
    chrout('\n')
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub spc() {
 | 
			
		||||
    chrout(' ')
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub bell() {
 | 
			
		||||
    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.
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
sub  clear_screen() {
 | 
			
		||||
    chrout(147)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub cls() {
 | 
			
		||||
    chrout(147)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub home() {
 | 
			
		||||
    chrout(19)
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub nl() {
 | 
			
		||||
    chrout('\n')
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub spc() {
 | 
			
		||||
    chrout(' ')
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
sub bell() {
 | 
			
		||||
    chrout(7)
 | 
			
		||||
}
 | 
			
		||||
 
 | 
			
		||||
@@ -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
 | 
			
		||||
 
 | 
			
		||||
@@ -9,6 +9,7 @@
 | 
			
		||||
;;%import floats
 | 
			
		||||
%import math
 | 
			
		||||
%import prog8_lib
 | 
			
		||||
%import sorting
 | 
			
		||||
%import strings
 | 
			
		||||
%import syslib
 | 
			
		||||
%import test_stack
 | 
			
		||||
 
 | 
			
		||||
@@ -10,6 +10,7 @@
 | 
			
		||||
%import graphics
 | 
			
		||||
%import math
 | 
			
		||||
%import prog8_lib
 | 
			
		||||
%import sorting
 | 
			
		||||
%import strings
 | 
			
		||||
%import syslib
 | 
			
		||||
%import test_stack
 | 
			
		||||
 
 | 
			
		||||
@@ -17,6 +17,7 @@
 | 
			
		||||
%import palette
 | 
			
		||||
%import prog8_lib
 | 
			
		||||
%import psg
 | 
			
		||||
%import sorting
 | 
			
		||||
%import sprites
 | 
			
		||||
%import strings
 | 
			
		||||
%import syslib
 | 
			
		||||
 
 | 
			
		||||
@@ -7,6 +7,7 @@
 | 
			
		||||
%import cx16logo
 | 
			
		||||
%import math
 | 
			
		||||
%import prog8_lib
 | 
			
		||||
%import sorting
 | 
			
		||||
%import strings
 | 
			
		||||
%import syslib
 | 
			
		||||
%import test_stack
 | 
			
		||||
 
 | 
			
		||||
@@ -10,6 +10,7 @@
 | 
			
		||||
%import math
 | 
			
		||||
%import monogfx
 | 
			
		||||
%import prog8_lib
 | 
			
		||||
%import sorting
 | 
			
		||||
%import strings
 | 
			
		||||
%import syslib
 | 
			
		||||
%import test_stack
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user