Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-11-03 19:16:13 +00:00
Code Issues Projects Releases Wiki Activity

added txt.rvs_on() and txt.rvs_off(), added txt.color() support for virtual target

Browse Source
This commit is contained in:
Irmen de Jong
2025-08-24 13:29:29 +02:00
parent 8a717c74b9
commit 7b40eade44
7 changed files with 39 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/res/prog8lib/shared_cbm_textio_functions.p8
View File

@@ -23,6 +23,14 @@ txt {
chrout(' ')
}
sub rvs_on() {
txt.chrout(18)
}
sub rvs_off() {
txt.chrout(146)
}
asmsub print (str text @ AY) clobbers(A,Y) {
; ---- print zero terminated string, in PETSCII encoding, from A/Y

15
compiler/res/prog8lib/virtual/textio.p8
View File

@@ -53,6 +53,21 @@ sub uppercase() {
; not supported
}
sub rvs_on() {
print("\x1b[7m")
}
sub rvs_off() {
print("\x1b[0m")
}
sub color (ubyte txtcol) {
print("\x1b[3")
chrout('0' + txtcol)
chrout('m')
}
sub chrout(ubyte char) {
%ir {{
loadm.b r99100,txt.chrout.char

4
docs/source/_static/symboldumps/skeletons-c128.txt
View File

@@ -1,6 +1,6 @@
Prog8 compiler v12.0-SNAPSHOT by Irmen de Jong (irmen@razorvine.net)
Prerelease version from git commit 06e16789 in branch master
Prerelease version from git commit 8a717c74 in branch master
This software is licensed under the GNU GPL 3.0, see https://www.gnu.org/licenses/gpl.html
Compiling program import-all-c128.p8
@@ -785,6 +785,8 @@ txt {
print_uwhex (uword value @AY, bool prefix @Pc) -> clobbers (A,X,Y)
print_w (word value @AY) -> clobbers (A,X,Y)
row (ubyte rownum @A) -> clobbers (A,X,Y)
rvs_off ()
rvs_on ()
scroll_down (bool alsocolors @Pc) -> clobbers (A,X)
scroll_left (bool alsocolors @Pc) -> clobbers (A,X,Y)
scroll_right (bool alsocolors @Pc) -> clobbers (A,X)

4
docs/source/_static/symboldumps/skeletons-c64.txt
View File

@@ -1,6 +1,6 @@
Prog8 compiler v12.0-SNAPSHOT by Irmen de Jong (irmen@razorvine.net)
Prerelease version from git commit 06e16789 in branch master
Prerelease version from git commit 8a717c74 in branch master
This software is licensed under the GNU GPL 3.0, see https://www.gnu.org/licenses/gpl.html
Compiling program import-all-c64.p8
@@ -898,6 +898,8 @@ txt {
print_uwhex (uword value @AY, bool prefix @Pc) -> clobbers (A,X,Y)
print_w (word value @AY) -> clobbers (A,X,Y)
row (ubyte rownum @A) -> clobbers (A,X,Y)
rvs_off ()
rvs_on ()
scroll_down (bool alsocolors @Pc) -> clobbers (A,X)
scroll_left (bool alsocolors @Pc) -> clobbers (A,X,Y)
scroll_right (bool alsocolors @Pc) -> clobbers (A,X)

4
docs/source/_static/symboldumps/skeletons-cx16.txt
View File

@@ -1,6 +1,6 @@
Prog8 compiler v12.0-SNAPSHOT by Irmen de Jong (irmen@razorvine.net)
Prerelease version from git commit 06e16789 in branch master
Prerelease version from git commit 8a717c74 in branch master
This software is licensed under the GNU GPL 3.0, see https://www.gnu.org/licenses/gpl.html
Compiling program import-all-cx16.p8
@@ -1382,6 +1382,8 @@ txt {
print_uwhex (uword value @AY, bool prefix @Pc) -> clobbers (A,X,Y)
print_w (word value @AY) -> clobbers (A,X,Y)
row (ubyte rownum @A) -> clobbers (A,X,Y)
rvs_off ()
rvs_on ()
scroll_down () -> clobbers (A,X,Y)
scroll_left () -> clobbers (A,X,Y)
scroll_right () -> clobbers (A,X,Y)

4
docs/source/_static/symboldumps/skeletons-pet32.txt
View File

@@ -1,6 +1,6 @@
Prog8 compiler v12.0-SNAPSHOT by Irmen de Jong (irmen@razorvine.net)
Prerelease version from git commit 06e16789 in branch master
Prerelease version from git commit 8a717c74 in branch master
This software is licensed under the GNU GPL 3.0, see https://www.gnu.org/licenses/gpl.html
Compiling program import-all-pet32.p8
@@ -503,6 +503,8 @@ txt {
print_uwbin (uword value @AY, bool prefix @Pc) -> clobbers (A,X,Y)
print_uwhex (uword value @AY, bool prefix @Pc) -> clobbers (A,X,Y)
print_w (word value @AY) -> clobbers (A,X,Y)
rvs_off ()
rvs_on ()
scroll_down () -> clobbers (A,X)
scroll_left () -> clobbers (A,X,Y)
scroll_right () -> clobbers (A,X)

5
docs/source/_static/symboldumps/skeletons-virtual.txt
View File

@@ -1,6 +1,6 @@
Prog8 compiler v12.0-SNAPSHOT by Irmen de Jong (irmen@razorvine.net)
Prerelease version from git commit 06e16789 in branch master
Prerelease version from git commit 8a717c74 in branch master
This software is licensed under the GNU GPL 3.0, see https://www.gnu.org/licenses/gpl.html
Compiling program import-all-virtual.p8
@@ -526,6 +526,7 @@ txt {
chrout (ubyte char)
clear_screen ()
cls ()
color (ubyte txtcol)
column (ubyte col)
height () -> ubyte
home ()
@@ -548,6 +549,8 @@ txt {
print_uwbin (uword value, bool prefix)
print_uwhex (uword value, bool prefix)
print_w (word value)
rvs_off ()
rvs_on ()
setchr (ubyte col, ubyte row, ubyte char)
spc ()
uppercase ()