Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-01-26 03:32:22 +00:00
Code Issues Projects Releases Wiki Activity

made pet textio more compatible with the other platforms by putting the (dummy) color arguments back

Browse Source
This commit is contained in:
Irmen de Jong 2023-08-14 13:51:15 +02:00
parent 2c9e50873c
commit c7b7dcfd03
3 changed files with 38 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/res/prog8lib/c128/textio.p8
View File

@ -466,7 +466,7 @@ asmsub setchr (ubyte col @X, ubyte row @Y, ubyte character @A) clobbers(A, Y)
_mod sta $ffff ; modified _mod sta $ffff ; modified
rts rts
_screenrows .word $0400 + range(0, 1000, 40) _screenrows .word cbm.Screen + range(0, 1000, 40)
}} }}
} }

2
compiler/res/prog8lib/c64/textio.p8
View File

@ -465,7 +465,7 @@ asmsub setchr (ubyte col @X, ubyte row @Y, ubyte character @A) clobbers(A, Y)
_mod sta $ffff ; modified _mod sta $ffff ; modified
rts rts
_screenrows .word $0400 + range(0, 1000, 40) _screenrows .word cbm.Screen + range(0, 1000, 40)
}} }}
} }

55
compiler/res/prog8lib/pet32/textio.p8
View File

@ -27,20 +27,9 @@ sub spc() {
txt.chrout(' ') txt.chrout(' ')
} }
asmsub column(ubyte col @A) clobbers(A, X, Y) {
; ---- set the cursor on the given column (starting with 0) on the current line
%asm {{
sec
jsr cbm.PLOT
tay
clc
jmp cbm.PLOT
}}
}
asmsub fill_screen (ubyte char @ A) clobbers(A) {
; ---- fill the character screen with the given fill character
asmsub fill_screen (ubyte char @ A, ubyte color @ Y) clobbers(A) {
; ---- fill the character screen with the given fill character. color is ignored on PET
%asm {{ %asm {{
jmp clear_screenchars jmp clear_screenchars
}} }}
@ -48,7 +37,7 @@ asmsub fill_screen (ubyte char @ A) clobbers(A) {
} }
asmsub clear_screenchars (ubyte char @ A) clobbers(Y) { asmsub clear_screenchars (ubyte char @ A) clobbers(Y) {
; ---- clear the character screen with the given fill character (leaves colors) ; ---- clear the character screen with the given fill character
; (assumes screen matrix is at the default address) ; (assumes screen matrix is at the default address)
%asm {{ %asm {{
ldy #250 ldy #250
@ -62,6 +51,15 @@ asmsub clear_screenchars (ubyte char @ A) clobbers(Y) {
}} }}
} }
sub clear_screencolors (ubyte color) {
; --- dummy function on PET
}
sub color (ubyte txtcol) {
; --- dummy function on PET
}
sub lowercase() { sub lowercase() {
txt.chrout(14) txt.chrout(14)
} }
@ -369,7 +367,7 @@ asmsub setchr (ubyte col @X, ubyte row @Y, ubyte character @A) clobbers(A, Y)
_mod sta $ffff ; modified _mod sta $ffff ; modified
rts rts
_screenrows .word $8000 + range(0, 1000, 40) _screenrows .word cbm.Screen + range(0, 1000, 40)
}} }}
} }
@ -393,8 +391,13 @@ _mod lda $ffff ; modified
}} }}
} }
sub setcc (ubyte column, ubyte row, ubyte char) { sub setclr (ubyte col, ubyte row, ubyte color) {
; ---- set char at the given position on the screen ; --- dummy function on PET
}
sub setcc (ubyte column, ubyte row, ubyte char, ubyte charcolor) {
; ---- set char at the given position on the screen. charcolor is ignored on PET
%asm {{ %asm {{
lda row lda row
asl a asl a
@ -415,8 +418,20 @@ _charmod sta $ffff ; modified
asmsub plot (ubyte col @ Y, ubyte row @ X) { asmsub plot (ubyte col @ Y, ubyte row @ X) {
%asm {{ %asm {{
clc jsr home
jmp cbm.PLOT cpy #0
beq +
- lda #17
jsr chrout
dey
bne -
+ cpx #0
beq +
- lda #29
jsr chrout
dex
bne -
+ rts
}} }}
} }
@ -424,6 +439,8 @@ asmsub width() clobbers(X,Y) -> ubyte @A {
; -- returns the text screen width (number of columns) ; -- returns the text screen width (number of columns)
%asm {{ %asm {{
lda $d5 lda $d5
clc
adc #1
rts rts
}} }}
} }