mirror of
https://github.com/irmen/prog8.git
synced 2024-10-19 07:23:56 +00:00
remove dummy argument for txt.scroll_XXXX() functions on cx16
This commit is contained in:
parent
fa2d87f3dd
commit
6902834568
@ -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
|
||||||
|
@ -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++
|
||||||
|
}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user