Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-30 01:29:08 +00:00
Code Issues Projects Releases Wiki Activity

remove dummy argument for txt.scroll_XXXX() functions on cx16

Browse Source
This commit is contained in:
Irmen de Jong 2020-12-06 00:19:47 +01:00
parent fa2d87f3dd
commit 6902834568
2 changed files with 27 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/res/prog8lib/cx16/textio.p8
View File

@ -154,10 +154,9 @@ sub uppercase() {
cx16.screen_set_charset(2, 0) ; uppercase charset cx16.screen_set_charset(2, 0) ; uppercase charset
} }
asmsub scroll_left (ubyte dummy @ Pc) clobbers(A, Y) { asmsub scroll_left() clobbers(A, Y) {
; ---- scroll the whole screen 1 character to the left ; ---- scroll the whole screen 1 character to the left
; contents of the rightmost column are unchanged, you should clear/refill this yourself ; contents of the rightmost column are unchanged, you should clear/refill this yourself
; Carry flag is a dummy on the cx16
%asm {{ %asm {{
phx phx
jsr c64.SCREEN jsr c64.SCREEN
@ -198,10 +197,9 @@ _lx ldx #0 ; modified
}} }}
} }
asmsub scroll_right (ubyte dummy @ Pc) clobbers(A) { asmsub scroll_right() clobbers(A) {
; ---- scroll the whole screen 1 character to the right ; ---- scroll the whole screen 1 character to the right
; contents of the leftmost column are unchanged, you should clear/refill this yourself ; contents of the leftmost column are unchanged, you should clear/refill this yourself
; Carry flag is a dummy on the cx16
%asm {{ %asm {{
phx phx
jsr c64.SCREEN jsr c64.SCREEN
@ -250,10 +248,9 @@ _lx ldx #0 ; modified
}} }}
} }
asmsub scroll_up (ubyte dummy @ Pc) clobbers(A, Y) { asmsub scroll_up() clobbers(A, Y) {
; ---- scroll the whole screen 1 character up ; ---- scroll the whole screen 1 character up
; contents of the bottom row are unchanged, you should refill/clear this yourself ; contents of the bottom row are unchanged, you should refill/clear this yourself
; Carry flag is a dummy on the cx16
%asm {{ %asm {{
phx phx
jsr c64.SCREEN jsr c64.SCREEN
@ -300,10 +297,9 @@ _nextline
}} }}
} }
asmsub scroll_down (ubyte dummy @ Pc) clobbers(A, Y) { asmsub scroll_down() clobbers(A, Y) {
; ---- scroll the whole screen 1 character down ; ---- scroll the whole screen 1 character down
; contents of the top row are unchanged, you should refill/clear this yourself ; contents of the top row are unchanged, you should refill/clear this yourself
; Carry flag is a dummy on the cx16
%asm {{ %asm {{
phx phx
jsr c64.SCREEN jsr c64.SCREEN

38
examples/test.p8
View File

@ -5,24 +5,32 @@
main { main {
sub start() { sub start() {
uword foo txt.fill_screen('.',2)
uword bar
uword[] arra = [1,2,3] ubyte xx
str nom = "omnom" ubyte yy = 0
for xx in 0 to txt.DEFAULT_WIDTH-1 {
txt.setcc(xx, 0, xx, 1)
txt.setcc(xx, txt.DEFAULT_HEIGHT-1, xx, 1)
}
for yy in 0 to txt.DEFAULT_HEIGHT-1 {
txt.setcc(0, yy, yy,1)
txt.setcc(txt.DEFAULT_WIDTH-1, yy, yy, 1)
}
foo = &arra repeat {
foo++ delay()
foo = &nom txt.scroll_left(false)
foo++ }
ding(nom)
ding("sdfsdfd")
txt.print("hello\n")
} }
sub ding(uword ss) {
txt.print(ss) sub delay () {
ubyte tt
repeat 255 {
repeat 255 {
tt++
}
}
} }
} }