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

added c64scr.getchr/getclr

Browse Source
This commit is contained in:
Irmen de Jong 2019-02-21 01:31:33 +01:00
parent cc5898d010
commit 52352d9d04
3 changed files with 270 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/res/prog8lib/c64utils.p8
View File

@ -972,6 +972,25 @@ _screenrows .word $0400 + range(0, 1000, 40)
}}
}
asmsub getchr (ubyte col @Y, ubyte row @A) -> clobbers(Y) -> (ubyte @ A) {
; ---- get the character in the screen matrix at the given location
%asm {{
sty c64.SCRATCH_ZPB1
asl a
tay
lda setchr._screenrows+1,y
sta _mod+2
lda setchr._screenrows,y
clc
adc c64.SCRATCH_ZPB1
sta _mod+1
bcc _mod
inc _mod+2
_mod lda $ffff ; modified
rts
}}
}
asmsub setclr (ubyte col @Y, ubyte row @A) -> clobbers(A) -> () {
; ---- set the color in SCRATCH_ZPB1 on the screen matrix at the given position
%asm {{
@ -994,6 +1013,24 @@ _colorrows .word $d800 + range(0, 1000, 40)
}}
}
asmsub getclr (ubyte col @Y, ubyte row @A) -> clobbers(Y) -> (ubyte @ A) {
; ---- get the color in the screen color matrix at the given location
%asm {{
sty c64.SCRATCH_ZPB1
asl a
tay
lda setclr._colorrows+1,y
sta _mod+2
lda setclr._colorrows,y
clc
adc c64.SCRATCH_ZPB1
sta _mod+1
bcc _mod
inc _mod+2
_mod lda $ffff ; modified
rts
}}
}
sub setcc (ubyte column, ubyte row, ubyte char, ubyte color) {
; ---- set char+color at the given position on the screen

275
examples/tehtriz.p8
View File

@ -33,9 +33,12 @@ waitkey:
if c64.TIME_LO==30 {
c64.TIME_LO = 0
if blocklogic.canMoveDown(xpos, ypos) {
drawBlock(xpos, ypos, 32)
ypos++ ; descend
drawBlock(xpos, ypos, 160)
; @todo re-enable down movement
;drawBlock(xpos, ypos, 32)
;ypos++ ; descend
;drawBlock(xpos, ypos, 160)
} else {
; block can't move further down!
; check if the game area is full, if not, spawn the next block at the top.
@ -93,16 +96,18 @@ waitkey:
drawBlock(xpos, ypos, 160)
}
else if key=='z' {
; rotate CCW
drawBlock(xpos, ypos, 32)
blocklogic.rotateCCW()
drawBlock(xpos, ypos, 160)
if blocklogic.canRotateCCW() {
drawBlock(xpos, ypos, 32)
blocklogic.rotateCCW()
drawBlock(xpos, ypos, 160)
}
}
else if key=='x' {
; rotate CW
drawBlock(xpos, ypos, 32)
blocklogic.rotateCW()
drawBlock(xpos, ypos, 160)
if blocklogic.canRotateCW() {
drawBlock(xpos, ypos, 32)
blocklogic.rotateCW()
drawBlock(xpos, ypos, 160)
}
}
goto waitkey
@ -144,13 +149,21 @@ waitkey:
c64scr.PLOT(27,23)
c64scr.print(" m descend")
c64scr.setcc(boardOffsetX-1, boardOffsetY-2, 255, 0) ; invisible barrier
c64scr.setcc(boardOffsetX-1, boardOffsetY-3, 255, 0) ; invisible barrier
c64scr.setcc(boardOffsetX+boardWidth, boardOffsetY-2, 255, 0) ; invisible barrier
c64scr.setcc(boardOffsetX+boardWidth, boardOffsetY-3, 255, 0) ; invisible barrier
c64scr.setcc(boardOffsetX-1, boardOffsetY-1, 108, 12)
c64scr.setcc(boardOffsetX+boardWidth, boardOffsetY-1, 123, 12)
c64scr.setcc(boardOffsetX+boardWidth, boardOffsetY-1, 123, 12)
c64scr.setcc(boardOffsetX-1, boardOffsetY+boardHeight, 124, 12)
c64scr.setcc(boardOffsetX+boardWidth, boardOffsetY+boardHeight, 126, 12)
ubyte i
for i in boardOffsetX+boardWidth-1 to boardOffsetX step -1
for i in boardOffsetX+boardWidth-1 to boardOffsetX step -1 {
c64scr.setcc(i, boardOffsetY-3, 255, 0) ; invisible barrier
c64scr.setcc(i, boardOffsetY+boardHeight, 69, 11)
}
for i in boardOffsetY+boardHeight-1 to boardOffsetY step -1 {
c64scr.setcc(boardOffsetX-1, i, 89, 11)
c64scr.setcc(boardOffsetX+boardWidth, i, 84, 11)
@ -239,57 +252,53 @@ waitkey:
sub rotateCW() {
; rotates the current block clockwise.
if canRotateCW() {
if currentBlockNum==0
rotateIblock() ; block 'I' has special rotation
else if currentBlockNum!=3 {
; rotate all other blocks (except 3, the square) around their center square
rotated[0] = currentBlock[8]
rotated[1] = currentBlock[4]
rotated[2] = currentBlock[0]
rotated[4] = currentBlock[9]
rotated[6] = currentBlock[1]
rotated[8] = currentBlock[10]
rotated[9] = currentBlock[6]
rotated[10] = currentBlock[2]
if currentBlockNum==0
rotateIblock() ; block 'I' has special rotation
else if currentBlockNum!=3 {
; rotate all other blocks (except 3, the square) around their center square
rotated[0] = currentBlock[8]
rotated[1] = currentBlock[4]
rotated[2] = currentBlock[0]
rotated[4] = currentBlock[9]
rotated[6] = currentBlock[1]
rotated[8] = currentBlock[10]
rotated[9] = currentBlock[6]
rotated[10] = currentBlock[2]
currentBlock[0] = rotated[0]
currentBlock[1] = rotated[1]
currentBlock[2] = rotated[2]
currentBlock[4] = rotated[4]
currentBlock[6] = rotated[6]
currentBlock[8] = rotated[8]
currentBlock[9] = rotated[9]
currentBlock[10] = rotated[10]
}
currentBlock[0] = rotated[0]
currentBlock[1] = rotated[1]
currentBlock[2] = rotated[2]
currentBlock[4] = rotated[4]
currentBlock[6] = rotated[6]
currentBlock[8] = rotated[8]
currentBlock[9] = rotated[9]
currentBlock[10] = rotated[10]
}
}
sub rotateCCW() {
; rotates the current block counterclockwise.
if canRotateCCW() {
if currentBlockNum==0
rotateIblock() ; block 'I' has special rotation
else if currentBlockNum!=3 {
; rotate all other blocks (except 3, the square) around their center square
rotated[0] = currentBlock[2]
rotated[1] = currentBlock[6]
rotated[2] = currentBlock[10]
rotated[4] = currentBlock[1]
rotated[6] = currentBlock[9]
rotated[8] = currentBlock[0]
rotated[9] = currentBlock[4]
rotated[10] = currentBlock[8]
if currentBlockNum==0
rotateIblock() ; block 'I' has special rotation
else if currentBlockNum!=3 {
; rotate all other blocks (except 3, the square) around their center square
rotated[0] = currentBlock[2]
rotated[1] = currentBlock[6]
rotated[2] = currentBlock[10]
rotated[4] = currentBlock[1]
rotated[6] = currentBlock[9]
rotated[8] = currentBlock[0]
rotated[9] = currentBlock[4]
rotated[10] = currentBlock[8]
currentBlock[0] = rotated[0]
currentBlock[1] = rotated[1]
currentBlock[2] = rotated[2]
currentBlock[4] = rotated[4]
currentBlock[6] = rotated[6]
currentBlock[8] = rotated[8]
currentBlock[9] = rotated[9]
currentBlock[10] = rotated[10]
}
currentBlock[0] = rotated[0]
currentBlock[1] = rotated[1]
currentBlock[2] = rotated[2]
currentBlock[4] = rotated[4]
currentBlock[6] = rotated[6]
currentBlock[8] = rotated[8]
currentBlock[9] = rotated[9]
currentBlock[10] = rotated[10]
}
}
@ -315,23 +324,167 @@ waitkey:
}
sub canRotateCW() -> ubyte {
return true ; TODO determine
rotateCW()
ubyte okay ; TODO determine
rotateCCW()
return okay
}
sub canRotateCCW() -> ubyte {
return true ; TODO determine
rotateCCW()
ubyte okay ; TODO determine
rotateCW()
return okay
}
; For movement checking it is not needed to clamp the x/y coordinates,
; because we have to check for brick collisions anyway.
; The full play area is bordered by (in)visible characters that will collide.
sub canMoveLeft(ubyte xpos, ubyte ypos) -> ubyte {
return xpos>main.boardOffsetX ; TODO deal with actual block collision
main.drawBlock(xpos, ypos, 32)
ubyte result = canActuallyMoveLeft(xpos, ypos)
main.drawBlock(xpos, ypos, 160)
return result
sub canActuallyMoveLeft(ubyte xpos, ubyte ypos) -> ubyte {
ubyte x = xpos-1
ubyte yp1 = ypos+1
ubyte yp2 = ypos+2
ubyte yp3 = ypos+3
ubyte sc
; @todo simplify expressions after bug fixes of boolean handling etc.
sc=c64scr.getchr(x, ypos)
if(currentBlock[0]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp1)
if(currentBlock[4]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp2)
if(currentBlock[8]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp3)
if(currentBlock[12]!=0 and sc!=32)
return false
x++
sc=c64scr.getchr(x, ypos)
if(currentBlock[1]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp1)
if(currentBlock[5]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp2)
if(currentBlock[9]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp3)
if(currentBlock[13]!=0 and sc!=32)
return false
x++
sc=c64scr.getchr(x, ypos)
if(currentBlock[2]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp1)
if(currentBlock[6]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp2)
if(currentBlock[10]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp3)
if(currentBlock[14]!=0 and sc!=32)
return false
x++
sc=c64scr.getchr(x, ypos)
if(currentBlock[3]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp1)
if(currentBlock[7]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp2)
if(currentBlock[11]!=0 and sc!=32)
return false
sc=c64scr.getchr(x, yp3)
if(currentBlock[15]!=0 and sc!=32)
return false
return true
}
}
sub canMoveRight(ubyte xpos, ubyte ypos) -> ubyte {
return xpos<main.boardOffsetX+main.boardWidth-4 ; TODO deal with actual block collision
main.drawBlock(xpos, ypos, 32)
ubyte result = canActuallyMoveRight(xpos, ypos)
main.drawBlock(xpos, ypos, 160)
return result
sub canActuallyMoveRight(ubyte xpos, ubyte ypos) -> ubyte {
ubyte x = xpos+4
ubyte yp1 = ypos+1
ubyte yp2 = ypos+2
ubyte yp3 = ypos+3
ubyte sc
sc=c64scr.getchr(x, ypos)
if(currentBlock[3] and sc!=32)
return false
sc=c64scr.getchr(x, yp1)
if(currentBlock[7] and sc!=32)
return false
sc=c64scr.getchr(x, yp2)
if(currentBlock[11] and sc!=32)
return false
sc=c64scr.getchr(x, yp3)
if(currentBlock[15] and sc!=32)
return false
x--
sc=c64scr.getchr(x, ypos)
if(currentBlock[2] and sc!=32)
return false
sc=c64scr.getchr(x, yp1)
if(currentBlock[6] and sc!=32)
return false
sc=c64scr.getchr(x, yp2)
if(currentBlock[10] and sc!=32)
return false
sc=c64scr.getchr(x, yp3)
if(currentBlock[14] and sc!=32)
return false
x--
sc=c64scr.getchr(x, ypos)
if(currentBlock[1] and sc!=32)
return false
sc=c64scr.getchr(x, yp1)
if(currentBlock[5] and sc!=32)
return false
sc=c64scr.getchr(x, yp2)
if(currentBlock[9] and sc!=32)
return false
sc=c64scr.getchr(x, yp3)
if(currentBlock[13] and sc!=32)
return false
x--
sc=c64scr.getchr(x, ypos)
if(currentBlock[0] and sc!=32)
return false
sc=c64scr.getchr(x, yp1)
if(currentBlock[4] and sc!=32)
return false
sc=c64scr.getchr(x, yp2)
if(currentBlock[8] and sc!=32)
return false
sc=c64scr.getchr(x, yp3)
if(currentBlock[12] and sc!=32)
return false
return true
}
}
sub canMoveDown(ubyte xpos, ubyte ypos) -> ubyte {
return ypos<main.boardOffsetY+main.boardHeight-4 ; TODO deal with actual block collision
return ypos<main.boardOffsetY+main.boardHeight-4 ; TODO deal with actual block/border collision
}
sub isGameOver() -> ubyte {

48
examples/test.p8
View File

@ -6,47 +6,37 @@
; @todo test memset/memcopy (there's a bug in memcopy?)
ubyte x = rnd82() % 6 ; @todo fix compiler crash + always 0???
drawNext(rnd() & 7) ; @todo missing asm pattern
;ubyte x = rnd82() % 6 ; @todo fix compiler crash + always 0???
;drawNext(rnd() & 7) ; @todo missing asm pattern
ubyte[7] blockColors = [3, 6, 8, 7, 5, 4, 2]
drawNext(n % len(blockColors)) ; @todo why is len a word here?
;ubyte[7] blockColors = [3, 6, 8, 7, 5, 4, 2]
;drawNext(n % len(blockColors)) ; @todo why is len a word here?
; if(X and c64scr.getcc(1,1)!=32) ... @todo the result value of the asmsub getcc is not put on the eval stack when used in an expression
; (e1 and e2) @todo should not simply bitwise and e1 and e2 (same for or, xor)
; Y = (currentBlock[0] & sc) ; @todo missing assembly pattern for this bitand_byte
; mul_word_3
sub start() {
byte b1
byte b2 = -3
ubyte ub1
ubyte ub2 = 4
word w1
word w2 = -499
uword uw1
uword uw2 = 1199
b1 = b2*40
ub1 = ub2*40
w1 = w2*40
uw1 = uw2*40
c64scr.print_b(b1)
c64.CHROUT('\n')
c64scr.print_ub(ub1)
c64.CHROUT('\n')
c64scr.print_w(w1)
c64.CHROUT('\n')
c64scr.print_uw(uw1)
Y=c64scr.getchr(30,20)
c64scr.print_ub(Y)
c64.CHROUT('\n')
Y=c64scr.getclr(30,20)
c64scr.print_ub(Y)
c64.CHROUT('\n')
c64scr.setcc(30,20,123,4)
c64scr.print_ub(X)
Y=c64scr.getchr(30,20)
c64scr.print_ub(Y)
c64.CHROUT('\n')
Y=c64scr.getclr(30,20)
c64scr.print_ub(Y)
c64.CHROUT('\n')
}