mirror of
https://github.com/pkali/Avery_Breakout.git
synced 2026-05-20 22:33:55 +02:00
PSA 2020 version
Version for PSA 2020 virtual compo.
This commit is contained in:
Pawel Kalinowski
+32
@@ -0,0 +1,32 @@
|
|||||||
|
; MODE 9++
|
||||||
|
|
||||||
|
org $2000
|
||||||
|
|
||||||
|
mwa #dli $200
|
||||||
|
|
||||||
|
mva #$22 $22f
|
||||||
|
|
||||||
|
mwa #dl $230
|
||||||
|
|
||||||
|
mva #$40 $26f
|
||||||
|
|
||||||
|
mva #$c0 $d40e
|
||||||
|
|
||||||
|
jmp *
|
||||||
|
|
||||||
|
|
||||||
|
dli pha
|
||||||
|
sta $d40a
|
||||||
|
|
||||||
|
lda #13
|
||||||
|
sta $d405
|
||||||
|
|
||||||
|
lda #3
|
||||||
|
sta $d405
|
||||||
|
|
||||||
|
pla
|
||||||
|
rti
|
||||||
|
|
||||||
|
dl dta $90,$6f,a($f000) ; 2 puste linie, 1 linia trybu
|
||||||
|
:29 dta a($2f8f) ; $8f,$2f powtorzone 29 razy => 58 linii
|
||||||
|
dta $41,a(dl)
|
||||||
Binary file not shown.
BIN
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 21 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 33 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 3.5 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 3.4 KiB |
Binary file not shown.
Binary file not shown.
+1048
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@@ -0,0 +1,964 @@
|
|||||||
|
;Acid Breakout - a break from the daily acid
|
||||||
|
;build 006, 2010-05-12
|
||||||
|
;CLEAR!
|
||||||
|
;あめでと
|
||||||
|
;---------------------------------------------------
|
||||||
|
|
||||||
|
icl '../lib/atari.hea'
|
||||||
|
icl '../lib/system.hea'
|
||||||
|
|
||||||
|
display=$a000
|
||||||
|
screenWidth = 256 ;in pixels
|
||||||
|
maxLines = 210 ; number of lines on the screen
|
||||||
|
spawnProbability = (256*1/5)
|
||||||
|
margin = 8 ; top and bottom screen safety margin
|
||||||
|
racquetPosMin = $8 ; min position of the paddle moved by the user
|
||||||
|
racquetPosMax = $e8 ; max position of the paddle moved by the user
|
||||||
|
racquetSize = 4*8
|
||||||
|
maxSpeed = 4; maximum speed of a ball. must be power of 2 ('and #' used)
|
||||||
|
maxBalls = 64 ; maximum number of moving balls, <$80 (bpl used!)
|
||||||
|
maxMemory = 8 ; number of saved pixel positions
|
||||||
|
;Beware! For easier calc somewhere it uses "modulo maxMemory"
|
||||||
|
;calculations and therefore this value must be a power of 2!
|
||||||
|
maxBrickLines = 80 ; maximum number of lines of bricks to be eradicated
|
||||||
|
|
||||||
|
.zpvar xpos ypos .word = $80 ; position of the ball
|
||||||
|
.zpvar deXpos deYpos .byte ;position for deletion
|
||||||
|
.zpvar dX dY .word ;main loop shortcuts to the table values
|
||||||
|
;.zpvar dx dy .word ;delta
|
||||||
|
;xpos, dx - "static point precision" - [dx+1].[dx] (big endian!)
|
||||||
|
;this static point precision is emulated with .word calcs, just a result is the high byte
|
||||||
|
.zpvar currBall collisionCheck racquetPos MyClok eXistenZstackPtr .byte
|
||||||
|
.zpvar xMemAddr yMemAddr .word ; address where to store memories of the current ball
|
||||||
|
.zpvar temp .word
|
||||||
|
.zpvar clearCount clearBallNr .byte
|
||||||
|
|
||||||
|
org $2000
|
||||||
|
;---------------------------------------------------
|
||||||
|
dl
|
||||||
|
.by $70,$30
|
||||||
|
;.by $42
|
||||||
|
;.wo statusBar
|
||||||
|
;.wo eXistenZstack+1
|
||||||
|
;.by $02
|
||||||
|
;.by 0
|
||||||
|
.by $4f ; 1 line
|
||||||
|
.wo display
|
||||||
|
:127 .by $0f ;128 lines here
|
||||||
|
.by $4f
|
||||||
|
.wo display+$1000
|
||||||
|
.by $0f ; 130 lines here
|
||||||
|
:maxlines-130 .byte $0f ; maxLines lines total
|
||||||
|
.by $4f+$10 ;Hscroll
|
||||||
|
DLracquetAddr0
|
||||||
|
.wo racquetDispEven
|
||||||
|
.by $4f+$10 ;Hscroll
|
||||||
|
DLracquetAddr1
|
||||||
|
.wo racquetDispEven
|
||||||
|
.by $4f+$10 ;Hscroll
|
||||||
|
DLracquetAddr2
|
||||||
|
.wo racquetDispEven
|
||||||
|
.by $4f+$10 ;Hscroll
|
||||||
|
DLracquetAddr3
|
||||||
|
.wo racquetDispEven
|
||||||
|
.by $41
|
||||||
|
.wo dl
|
||||||
|
;---------------------------------------------------
|
||||||
|
racquetDispEven
|
||||||
|
:34 .byte $0
|
||||||
|
.byte $ff, $ff, $ff, $ff
|
||||||
|
:28 .byte $0
|
||||||
|
|
||||||
|
main
|
||||||
|
jsr initialize
|
||||||
|
|
||||||
|
loop
|
||||||
|
|
||||||
|
mva #maxBalls-1 currBall
|
||||||
|
|
||||||
|
flight
|
||||||
|
|
||||||
|
ldx currBall
|
||||||
|
lda BalleXistenZ,x
|
||||||
|
jeq ballDoesNotexist
|
||||||
|
lda xposTableL,x
|
||||||
|
sta xpos
|
||||||
|
lda xposTableH,x
|
||||||
|
sta xpos+1
|
||||||
|
|
||||||
|
lda yposTableL,x
|
||||||
|
sta ypos
|
||||||
|
lda yposTableH,x
|
||||||
|
sta ypos+1
|
||||||
|
|
||||||
|
lda dxTableL,x
|
||||||
|
sta dX
|
||||||
|
lda dxTableH,x
|
||||||
|
sta dX+1
|
||||||
|
|
||||||
|
lda dyTableL,x
|
||||||
|
sta dY
|
||||||
|
lda dYTableH,x
|
||||||
|
sta dY+1
|
||||||
|
|
||||||
|
; now, delete the oldest pixel
|
||||||
|
;
|
||||||
|
lda memCycleTable,x
|
||||||
|
clc
|
||||||
|
adc #1 ;next position in the table
|
||||||
|
and #maxMemory-1 ; this is the tricky part (mod #maxMemory)
|
||||||
|
; due to this AND maxMemory MUST be power of 2!!!
|
||||||
|
sta memCycleTable,x ; memCycleTable saved
|
||||||
|
tax
|
||||||
|
lda xposMemTableAdrL,x
|
||||||
|
sta xMemAddr
|
||||||
|
lda xposMemTableAdrH,x
|
||||||
|
sta xMemAddr+1
|
||||||
|
lda yposMemTableAdrL,x
|
||||||
|
sta yMemAddr
|
||||||
|
lda yposMemTableAdrH,x
|
||||||
|
sta yMemAddr+1
|
||||||
|
;now on zero page I've got the addressess to store the old xPos and yPos
|
||||||
|
ldy currBall
|
||||||
|
lda (yMemAddr),y
|
||||||
|
tax
|
||||||
|
lda (xMemAddr),y
|
||||||
|
sta dexpos
|
||||||
|
|
||||||
|
|
||||||
|
; and erase the last point in the "snake"
|
||||||
|
;jsr deplot
|
||||||
|
;--------------------------------------------------
|
||||||
|
;deplot
|
||||||
|
; moved here for the speeeeeed
|
||||||
|
; deyxpos, deypos (.byte) - pixel position
|
||||||
|
;--------------------------------------------------
|
||||||
|
; let's calculate coordinates from xpos and ypos
|
||||||
|
;lda dexpos
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
tay
|
||||||
|
;---
|
||||||
|
;ldx deypos
|
||||||
|
lda lineAdrL,x
|
||||||
|
sta temp
|
||||||
|
lda lineAdrH,x
|
||||||
|
sta temp+1
|
||||||
|
|
||||||
|
lda dexpos
|
||||||
|
and #$07
|
||||||
|
tax
|
||||||
|
|
||||||
|
lda (temp),y
|
||||||
|
and debittable,x
|
||||||
|
sta (temp),y
|
||||||
|
|
||||||
|
;move the ball!!!
|
||||||
|
adw xpos dX xpos
|
||||||
|
|
||||||
|
adw ypos dY ypos
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;top bounce
|
||||||
|
; if ypos<margin then bounce
|
||||||
|
lda ypos+1
|
||||||
|
cmp #margin
|
||||||
|
bcs noTop
|
||||||
|
; assuming that here a plot can get only from below, so it is enough to switch dy sign
|
||||||
|
; sbw #$ffff dy dy ;this does not compile :(
|
||||||
|
negw dY
|
||||||
|
mva #margin+1 ypos+1
|
||||||
|
noTop
|
||||||
|
|
||||||
|
;bottom bounce
|
||||||
|
; if ypos>maxLines+margin then bounce
|
||||||
|
lda ypos+1
|
||||||
|
cmp #maxLines+margin
|
||||||
|
bcc noBottom
|
||||||
|
|
||||||
|
; check if the ball hits the racquette
|
||||||
|
;jmp noBallOut ; turns off the ball kill
|
||||||
|
|
||||||
|
lda ypos+1
|
||||||
|
cmp #maxLines+margin+maxSpeed*2 ; that makes the ball below the racquet
|
||||||
|
bcs flyDown2 ;kinda lame optimisation as A carries ypos+1
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
lda racquetPos
|
||||||
|
sec
|
||||||
|
sbc #racquetPosMin
|
||||||
|
cmp xpos+1
|
||||||
|
|
||||||
|
jcs flyDown
|
||||||
|
|
||||||
|
clc
|
||||||
|
adc #racquetSize-1
|
||||||
|
cmp xpos+1
|
||||||
|
jcs bottomBounce
|
||||||
|
|
||||||
|
flyDown
|
||||||
|
lda ypos+1
|
||||||
|
flyDown2
|
||||||
|
cmp #255-margin ;maximum depth
|
||||||
|
bcc noBottom
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ballOut
|
||||||
|
|
||||||
|
lda currBall
|
||||||
|
|
||||||
|
eXistenZdEstroy
|
||||||
|
;destroys ball number A
|
||||||
|
;pushes one free slot to the eXistenZstack
|
||||||
|
;ends with !number of balls in X (maxBalls == end of the game)
|
||||||
|
;txa
|
||||||
|
ldy eXistenZstackPtr
|
||||||
|
iny
|
||||||
|
sta eXistenZstack,y
|
||||||
|
sty eXistenZstackPtr
|
||||||
|
|
||||||
|
;ldx currBall
|
||||||
|
tax
|
||||||
|
lda #0
|
||||||
|
sta balleXistenZ,x
|
||||||
|
|
||||||
|
jmp flightLoopEnd
|
||||||
|
|
||||||
|
bottomBounce
|
||||||
|
; assuming that here a plot can get only from below,
|
||||||
|
; so it is enough to switch dy sign
|
||||||
|
; sbw #$ffff dy dy ;this does not compile :(
|
||||||
|
negw dY
|
||||||
|
mva #maxLines+margin-2 ypos+1
|
||||||
|
|
||||||
|
|
||||||
|
noBottom
|
||||||
|
|
||||||
|
;left bounce
|
||||||
|
lda xpos+1
|
||||||
|
cmp #0+maxSpeed+1
|
||||||
|
bcs noLeft
|
||||||
|
negw dX
|
||||||
|
mva #0+maxSpeed+3 xpos+1
|
||||||
|
|
||||||
|
noLeft
|
||||||
|
|
||||||
|
|
||||||
|
;right border bounce
|
||||||
|
lda xpos+1
|
||||||
|
.if $100-maxSpeed > $ff
|
||||||
|
.error "maxSpeed too low!!!"
|
||||||
|
.endif
|
||||||
|
cmp #$100-maxSpeed-1
|
||||||
|
bcc noRight
|
||||||
|
negw dX
|
||||||
|
mva #$ff-maxSpeed-3 xpos+1
|
||||||
|
noRight
|
||||||
|
|
||||||
|
;jsr plot
|
||||||
|
; the full plot copied here to get few cycles and collision
|
||||||
|
; high byte is the integer position
|
||||||
|
; low byte is the "fractional" part
|
||||||
|
; let's calculate coordinates from xpos and ypos
|
||||||
|
lda xpos+1
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
tay
|
||||||
|
;---
|
||||||
|
ldx ypos+1
|
||||||
|
lda lineAdrL,x
|
||||||
|
sta temp
|
||||||
|
lda lineAdrH,x
|
||||||
|
sta temp+1
|
||||||
|
|
||||||
|
lda xpos+1
|
||||||
|
and #$07
|
||||||
|
tax
|
||||||
|
|
||||||
|
lda (temp),y
|
||||||
|
sta collisionCheck
|
||||||
|
ora bittable,x ;eor
|
||||||
|
sta (temp),y
|
||||||
|
cmp collisionCheck
|
||||||
|
; when final byte and the original bytes are equal, it means it is a collision (plot in the place of a dot)
|
||||||
|
jne noCollision
|
||||||
|
|
||||||
|
lda ypos+1
|
||||||
|
cmp #maxLines+margin-2-1
|
||||||
|
jcs noCollision ;ball is outside the screen!
|
||||||
|
|
||||||
|
;switch direction, Charles
|
||||||
|
; an idea for assuming which direction to switch - dX or dY?
|
||||||
|
; on a diagram below in the middle there is an approached brick
|
||||||
|
/*
|
||||||
|
\ /
|
||||||
|
\-dY /
|
||||||
|
\ /
|
||||||
|
-dX [] -dX
|
||||||
|
/ \
|
||||||
|
/-dY \
|
||||||
|
/ \
|
||||||
|
*/
|
||||||
|
; it means:
|
||||||
|
; if |dX|>|dY| then dX == -dX
|
||||||
|
; else dY == -dY
|
||||||
|
|
||||||
|
; get absolute values
|
||||||
|
lda dX+1
|
||||||
|
bpl dXpositive
|
||||||
|
;dX is negative here
|
||||||
|
lda dY+1
|
||||||
|
bpl dXneg_dYpos
|
||||||
|
|
||||||
|
;dX and dY are negative here
|
||||||
|
cmp dX+1
|
||||||
|
bcc dX_gr_dY__dX_dYneg
|
||||||
|
; |dY| >= |dX| ; hour 5
|
||||||
|
negw dY
|
||||||
|
jmp bounceDone
|
||||||
|
dX_gr_dY__dX_dYneg
|
||||||
|
; hour 4
|
||||||
|
negw dX
|
||||||
|
jmp bounceDone
|
||||||
|
|
||||||
|
dXneg_dYpos
|
||||||
|
; dY in A
|
||||||
|
clc
|
||||||
|
adc dX+1
|
||||||
|
bpl dY_gr_dX__dXneg_dYpos
|
||||||
|
; |dX| > |dy|; hour 2
|
||||||
|
negw dX
|
||||||
|
jmp bounceDone
|
||||||
|
dY_gr_dX__dXneg_dYpos
|
||||||
|
; hour 1
|
||||||
|
negw dY
|
||||||
|
jmp bounceDone
|
||||||
|
|
||||||
|
dXpositive
|
||||||
|
lda dY+1
|
||||||
|
bpl dX_dYpositive
|
||||||
|
;dX positive, dY negative
|
||||||
|
clc
|
||||||
|
adc dX+1
|
||||||
|
bpl dX_gr_dY__dXpos_dYneg
|
||||||
|
; hour 7
|
||||||
|
negw dY
|
||||||
|
jmp bounceDone
|
||||||
|
|
||||||
|
dX_gr_dY__dXpos_dYneg
|
||||||
|
; hour 8
|
||||||
|
negw dX
|
||||||
|
jmp bounceDone
|
||||||
|
|
||||||
|
dX_dYpositive
|
||||||
|
;(dY+1)* is in A
|
||||||
|
cmp dX+1
|
||||||
|
bcc dX_gr_dY__dX_dYpos
|
||||||
|
; dY > dX ; hour 11
|
||||||
|
negw dY
|
||||||
|
jmp bounceDone
|
||||||
|
dX_gr_dY__dX_dYpos
|
||||||
|
; dY < dX ; hour 10
|
||||||
|
negw dX
|
||||||
|
|
||||||
|
bounceDone
|
||||||
|
;spawn the new bally
|
||||||
|
; if there is still an empty slot for a new ball somewhere...
|
||||||
|
lda RANDOM
|
||||||
|
cmp #spawnProbability
|
||||||
|
bcs noCollision
|
||||||
|
|
||||||
|
eXistenZcReate
|
||||||
|
;creates a new ball
|
||||||
|
;removes one free slot from the eXistenZstack
|
||||||
|
;ends with ball number in X
|
||||||
|
;ends with zero when there is no free slot for a ball
|
||||||
|
ldy eXistenZstackPtr
|
||||||
|
beq noMoreSlots
|
||||||
|
lda eXistenZstack,Y
|
||||||
|
dey
|
||||||
|
sty eXistenZstackPtr
|
||||||
|
tax
|
||||||
|
|
||||||
|
;OK, in X there is an empty slot for a ball
|
||||||
|
|
||||||
|
;spawn it
|
||||||
|
lda #1
|
||||||
|
sta balleXistenZ,x
|
||||||
|
lda xPos
|
||||||
|
sta xPosTableL,x
|
||||||
|
lda xPos+1
|
||||||
|
sta xPosTableH,x
|
||||||
|
lda yPos
|
||||||
|
sta yPosTableL,x
|
||||||
|
lda yPos+1
|
||||||
|
sta yPosTableH,x
|
||||||
|
|
||||||
|
; random initial speed and direction
|
||||||
|
lda random
|
||||||
|
bpl dXplus
|
||||||
|
|
||||||
|
;A carries a random number
|
||||||
|
and #maxSpeed-1 ;a variable speed limiter
|
||||||
|
clc
|
||||||
|
adc #$FF-(maxSpeed-1)
|
||||||
|
sta dxTableH,x
|
||||||
|
bne dXlower
|
||||||
|
|
||||||
|
dXplus
|
||||||
|
clc
|
||||||
|
;A carries a random number
|
||||||
|
and #maxSpeed-1 ;a variable speed limiter
|
||||||
|
adc #1
|
||||||
|
sta dxTableH,x
|
||||||
|
dXlower
|
||||||
|
lda random
|
||||||
|
sta dxTableL,x
|
||||||
|
|
||||||
|
|
||||||
|
randomize 1 maxSpeed-1 ;dy can not be too small or the game would take forever
|
||||||
|
sta dyTableH,x
|
||||||
|
lda random
|
||||||
|
sta dyTableL,x
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
; sound
|
||||||
|
;lda random
|
||||||
|
;and #%00001000
|
||||||
|
lda #%00000000
|
||||||
|
sta consol
|
||||||
|
|
||||||
|
|
||||||
|
noCollision
|
||||||
|
noMoreSlots
|
||||||
|
|
||||||
|
|
||||||
|
flightLoopEnd
|
||||||
|
;end of the cycle for one ball
|
||||||
|
;save the changes now
|
||||||
|
ldx currBall
|
||||||
|
|
||||||
|
; let's save the position for the future erase
|
||||||
|
; old position of ball(currBall) is saved here
|
||||||
|
; in table nr memCycleTable(currBall)
|
||||||
|
ldy currBall
|
||||||
|
lda xpos+1 ;high byte is the integer position
|
||||||
|
sta (xMemAddr),y
|
||||||
|
lda ypos+1
|
||||||
|
sta (yMemAddr),y
|
||||||
|
; saved
|
||||||
|
|
||||||
|
lda xpos
|
||||||
|
sta xposTableL,x
|
||||||
|
lda xpos+1
|
||||||
|
sta xposTableH,x
|
||||||
|
|
||||||
|
lda ypos
|
||||||
|
sta yposTableL,x
|
||||||
|
lda ypos+1
|
||||||
|
sta yposTableH,x
|
||||||
|
|
||||||
|
lda dX
|
||||||
|
sta dxTableL,x
|
||||||
|
lda dX+1
|
||||||
|
sta dxTableH,x
|
||||||
|
|
||||||
|
lda dY
|
||||||
|
sta dyTableL,x
|
||||||
|
lda dY+1
|
||||||
|
sta dYTableH,x
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
endOfBallzLoop
|
||||||
|
|
||||||
|
dec currBall
|
||||||
|
jpl flight
|
||||||
|
|
||||||
|
;deaD Ball erasing
|
||||||
|
; if clearPtr (pointer for lazy crearing)
|
||||||
|
; is lower than eXistenZstackPtr
|
||||||
|
; then erase 1 memory ball and increase the pointer
|
||||||
|
; the pointer gets lowered with eXistenZstackPtr
|
||||||
|
|
||||||
|
/*
|
||||||
|
ldx clearPtr
|
||||||
|
dex
|
||||||
|
cpx eXistenZstackPtr
|
||||||
|
bcS clearPrt_GREQ_eXistenZstackPtr
|
||||||
|
|
||||||
|
lda eXistenZstack,x
|
||||||
|
sta clearBallNr
|
||||||
|
jsr clearDeadBall
|
||||||
|
inc clearPtr
|
||||||
|
|
||||||
|
clearPrt_GREQ_eXistenZstackPtr
|
||||||
|
*/
|
||||||
|
|
||||||
|
|
||||||
|
lda eXistenZstackPtr
|
||||||
|
cmp #maxBalls
|
||||||
|
bne gameIsNotOver
|
||||||
|
;game over
|
||||||
|
zzz
|
||||||
|
inc colbak
|
||||||
|
jmp zzz
|
||||||
|
|
||||||
|
gameIsNotOver
|
||||||
|
jmp loop
|
||||||
|
;-------------------
|
||||||
|
ballDoesNotexist
|
||||||
|
;a delay loop for a ball that does not really exist (yet)
|
||||||
|
ldx #75
|
||||||
|
delayLoop
|
||||||
|
dex
|
||||||
|
bne delayLoop
|
||||||
|
jmp endOfBallzLoop
|
||||||
|
;--------------------------------------------------
|
||||||
|
plot
|
||||||
|
; xpos, ypos (.byte) - pixel position
|
||||||
|
;--------------------------------------------------
|
||||||
|
; let's calculate coordinates from xpos and ypos
|
||||||
|
lda xpos
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
tay
|
||||||
|
;---
|
||||||
|
ldx ypos
|
||||||
|
lda lineAdrL,x
|
||||||
|
sta temp
|
||||||
|
lda lineAdrH,x
|
||||||
|
sta temp+1
|
||||||
|
|
||||||
|
lda xpos
|
||||||
|
and #$07
|
||||||
|
tax
|
||||||
|
|
||||||
|
lda (temp),y
|
||||||
|
ora bittable,x ;eor
|
||||||
|
sta (temp),y
|
||||||
|
rts
|
||||||
|
;--------------------------------------------------
|
||||||
|
deplot
|
||||||
|
; deyxpos, deypos (.byte) - pixel position
|
||||||
|
;--------------------------------------------------
|
||||||
|
; let's calculate coordinates from xpos and ypos
|
||||||
|
lda dexpos
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
tay
|
||||||
|
;---
|
||||||
|
ldx deypos
|
||||||
|
lda lineAdrL,x
|
||||||
|
sta temp
|
||||||
|
lda lineAdrH,x
|
||||||
|
sta temp+1
|
||||||
|
|
||||||
|
lda dexpos
|
||||||
|
and #$07
|
||||||
|
tax
|
||||||
|
|
||||||
|
lda (temp),y
|
||||||
|
and debittable,x
|
||||||
|
sta (temp),y
|
||||||
|
rts
|
||||||
|
;--------------------------------------------------
|
||||||
|
byteDePlot
|
||||||
|
; deyxpos, deypos (.byte) - byte-pixel position 32xmaxlines screen
|
||||||
|
;--------------------------------------------------
|
||||||
|
; let's calculate coordinates from xpos and ypos
|
||||||
|
;---
|
||||||
|
ldx deypos
|
||||||
|
lda lineAdrL,x
|
||||||
|
sta temp
|
||||||
|
lda lineAdrH,x
|
||||||
|
sta temp+1
|
||||||
|
|
||||||
|
ldy dexpos
|
||||||
|
lda #0
|
||||||
|
sta (temp),y
|
||||||
|
rts
|
||||||
|
;--------------------------------------------------
|
||||||
|
clearDeadBall
|
||||||
|
;--------------------------------------------------
|
||||||
|
;dead ball in clearBallNr
|
||||||
|
|
||||||
|
ldx #maxMemory-1
|
||||||
|
stx clearCount
|
||||||
|
|
||||||
|
clearDeadLoop
|
||||||
|
ldx clearCount
|
||||||
|
lda xposMemTableAdrL,x
|
||||||
|
sta xMemAddr
|
||||||
|
lda xposMemTableAdrH,x
|
||||||
|
sta xMemAddr+1
|
||||||
|
lda yposMemTableAdrL,x
|
||||||
|
sta yMemAddr
|
||||||
|
lda yposMemTableAdrH,x
|
||||||
|
sta yMemAddr+1
|
||||||
|
;now on zero page I've got the addressess to store the old xPos and yPos
|
||||||
|
ldy clearBallNr
|
||||||
|
lda (xMemAddr),y
|
||||||
|
sta dexpos
|
||||||
|
lda (yMemAddr),y
|
||||||
|
sta deypos
|
||||||
|
|
||||||
|
jsr deplot
|
||||||
|
|
||||||
|
dec clearCount
|
||||||
|
bpl clearDeadLoop
|
||||||
|
|
||||||
|
rts
|
||||||
|
;--------------------------------------------------
|
||||||
|
clearScreen
|
||||||
|
;--------------------------------------------------
|
||||||
|
lda #0
|
||||||
|
tax
|
||||||
|
Loopi1
|
||||||
|
:(maxLines*32/256+1) sta display+$100*#,x
|
||||||
|
inx
|
||||||
|
bne Loopi1
|
||||||
|
rts
|
||||||
|
;--------------------------------------------------
|
||||||
|
drawBricks
|
||||||
|
;--------------------------------------------------
|
||||||
|
|
||||||
|
; solid maxBrickLines field
|
||||||
|
lda #%11111111
|
||||||
|
ldx #0
|
||||||
|
loopi2
|
||||||
|
:(maxBrickLines+margin)*32/256-1 sta display+screenWidth+$100*#,x
|
||||||
|
inx
|
||||||
|
bne loopi2
|
||||||
|
|
||||||
|
; empty borders
|
||||||
|
mva #margin deypos
|
||||||
|
loopi3
|
||||||
|
mva #0 dexpos
|
||||||
|
jsr byteDePlot
|
||||||
|
mva #1 dexpos
|
||||||
|
jsr byteDePlot
|
||||||
|
mva #30 dexpos
|
||||||
|
jsr byteDePlot
|
||||||
|
mva #31 dexpos
|
||||||
|
jsr byteDePlot
|
||||||
|
inc deypos
|
||||||
|
lda deypos
|
||||||
|
cmp #maxBrickLines+margin*2
|
||||||
|
bne loopi3
|
||||||
|
|
||||||
|
rts
|
||||||
|
;--------------------------------------------------
|
||||||
|
randomStart
|
||||||
|
; X - ball number
|
||||||
|
;--------------------------------------------------
|
||||||
|
lda #1
|
||||||
|
sta balleXistenZ,x
|
||||||
|
|
||||||
|
randomize margin $ff-margin
|
||||||
|
sta xposTableH,x
|
||||||
|
randomize margin*2+maxBrickLines maxLines-margin*4
|
||||||
|
sta yposTableH,x
|
||||||
|
|
||||||
|
; random initial speed and direction
|
||||||
|
;randomize 0 maxSpeed-1
|
||||||
|
lda #1 ;easy start
|
||||||
|
sta dxTableH,x
|
||||||
|
lda random
|
||||||
|
sta dxTableL,x
|
||||||
|
|
||||||
|
;randomize 1 maxSpeed-1 ;dy can not be too small or the game would take forever
|
||||||
|
lda #-2 ;easy start
|
||||||
|
sta dyTableH,x
|
||||||
|
lda random
|
||||||
|
sta dyTableL,x
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
;--------------------------------------------------
|
||||||
|
initialize
|
||||||
|
;--------------------------------------------------
|
||||||
|
;mva 0 COLPF2S
|
||||||
|
jsr clearscreen
|
||||||
|
jsr drawBricks
|
||||||
|
|
||||||
|
lda dmactls
|
||||||
|
and #$fc
|
||||||
|
;ora #$02 ; normal screen width
|
||||||
|
ora #$01 ; narrow screen width
|
||||||
|
sta dmactls
|
||||||
|
mwa #dl dlptrs
|
||||||
|
; prepare mem address tables (for "snake" routine)
|
||||||
|
|
||||||
|
;first address initialized
|
||||||
|
mva #<xposMemTable xposMemTableAdrL
|
||||||
|
mva #>xposMemTable xposMemTableAdrH
|
||||||
|
mva #<yposMemTable yposMemTableAdrL
|
||||||
|
mva #>yposMemTable yposMemTableAdrH
|
||||||
|
;now add maxBalls to the following addresses
|
||||||
|
;just take the previous one and add "maxBalls"
|
||||||
|
ldx #0
|
||||||
|
initLoop1
|
||||||
|
clc
|
||||||
|
lda xposMemTableAdrL,x
|
||||||
|
adc #<maxBalls ; maxBalls <$80
|
||||||
|
sta xposMemTableAdrL+1,x
|
||||||
|
lda xposMemTableAdrH,x
|
||||||
|
adc #>maxBalls ; maxBalls <$80, so it is == 0
|
||||||
|
sta xposMemTableAdrH+1,x
|
||||||
|
clc
|
||||||
|
lda yposMemTableAdrL,x
|
||||||
|
adc #<maxBalls ; maxBalls <$80
|
||||||
|
sta yposMemTableAdrL+1,x
|
||||||
|
lda yposMemTableAdrH,x
|
||||||
|
adc #>maxBalls ; maxBalls <$80, so it is == 0
|
||||||
|
sta yposMemTableAdrH+1,x
|
||||||
|
inx
|
||||||
|
cpx #maxMemory-1
|
||||||
|
bne initLoop1
|
||||||
|
;snake memory addressess initialized!
|
||||||
|
|
||||||
|
;clear the balleXistenZ (nothing is bouncing!)
|
||||||
|
;and other tables
|
||||||
|
ldx #0
|
||||||
|
txa
|
||||||
|
eXistenZclearLoop
|
||||||
|
sta balleXistenZ,x
|
||||||
|
sta dxTableL,x
|
||||||
|
sta dxTableH,x
|
||||||
|
sta dyTableL,x
|
||||||
|
sta dyTableH,x
|
||||||
|
sta xposTableL,x
|
||||||
|
sta xposTableH,x
|
||||||
|
sta yposTableL,x
|
||||||
|
sta yposTableH,x
|
||||||
|
sta memCycleTable,x
|
||||||
|
|
||||||
|
inx
|
||||||
|
cpx #maxBalls
|
||||||
|
bne eXistenZclearLoop
|
||||||
|
sta balleXistenZcatch
|
||||||
|
|
||||||
|
|
||||||
|
dex
|
||||||
|
; X == maxBalls-1
|
||||||
|
txa
|
||||||
|
eXistenZstackFill
|
||||||
|
sta eXistenZstack+1,x
|
||||||
|
dex
|
||||||
|
txa
|
||||||
|
bne eXistenZstackFill
|
||||||
|
|
||||||
|
|
||||||
|
ldy #maxBalls
|
||||||
|
sty eXistenZstackPtr
|
||||||
|
;sty clearPtr
|
||||||
|
|
||||||
|
|
||||||
|
;OK, one ball starts!
|
||||||
|
|
||||||
|
;ldy eXistenZstackPtr
|
||||||
|
lda eXistenZstack,Y
|
||||||
|
dey
|
||||||
|
sty eXistenZstackPtr
|
||||||
|
|
||||||
|
tax
|
||||||
|
|
||||||
|
|
||||||
|
jsr randomStart ;just one random pixxxel
|
||||||
|
;previously the whole band of ballz
|
||||||
|
|
||||||
|
;VBI
|
||||||
|
mva #$b0 racquetPos
|
||||||
|
vmain vint,7
|
||||||
|
rts
|
||||||
|
;--------------------------------------------------
|
||||||
|
vint
|
||||||
|
;------------JOY-------------
|
||||||
|
;happy happy joy joy
|
||||||
|
;check for joystick now
|
||||||
|
/*
|
||||||
|
inc MyClok
|
||||||
|
lda MyClok
|
||||||
|
and #$07
|
||||||
|
bne jNotRight
|
||||||
|
*/
|
||||||
|
ldy PORTA
|
||||||
|
/*
|
||||||
|
tya
|
||||||
|
and #$01 ;up
|
||||||
|
bne jNotUp
|
||||||
|
ldx joystickConversion ;up
|
||||||
|
lda #1
|
||||||
|
sta keyboardGrid,x
|
||||||
|
jNotUp
|
||||||
|
tya
|
||||||
|
and #$02 ;down
|
||||||
|
bne jNotDown
|
||||||
|
ldx joystickConversion+1 ;up
|
||||||
|
lda #1
|
||||||
|
sta keyboardGrid,x
|
||||||
|
jNotDown
|
||||||
|
*/
|
||||||
|
tya
|
||||||
|
and #$04 ;left
|
||||||
|
bne jNotLeft
|
||||||
|
ldx racquetPos
|
||||||
|
cpx #racquetPosMin+1
|
||||||
|
bcc jNotLeft
|
||||||
|
dex
|
||||||
|
dex
|
||||||
|
stx racquetPos
|
||||||
|
|
||||||
|
jNotLeft
|
||||||
|
tya
|
||||||
|
and #$08 ;right
|
||||||
|
bne jNotRight
|
||||||
|
ldx racquetPos
|
||||||
|
cpx #racquetPosMax
|
||||||
|
bcs jNotRight
|
||||||
|
inx
|
||||||
|
inx
|
||||||
|
stx racquetPos
|
||||||
|
jNotRight
|
||||||
|
/*
|
||||||
|
;fire
|
||||||
|
lda TRIG0
|
||||||
|
bne JNotFire
|
||||||
|
...
|
||||||
|
JNotFire
|
||||||
|
*/
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
lda racquetPos
|
||||||
|
|
||||||
|
sec
|
||||||
|
lda #screenWidth-1
|
||||||
|
sbc racquetPos
|
||||||
|
:3 lsr
|
||||||
|
clc
|
||||||
|
adc #<racquetDispEven
|
||||||
|
sta dlracquetAddr0
|
||||||
|
lda #>racquetDispEven
|
||||||
|
adc #0
|
||||||
|
sta dlracquetAddr0+1
|
||||||
|
|
||||||
|
lda dlracquetAddr0
|
||||||
|
sta dlracquetAddr1
|
||||||
|
sta dlracquetAddr2
|
||||||
|
sta dlracquetAddr3
|
||||||
|
lda dlracquetAddr0+1
|
||||||
|
sta dlracquetAddr1+1
|
||||||
|
sta dlracquetAddr2+1
|
||||||
|
sta dlracquetAddr3+1
|
||||||
|
|
||||||
|
lda racquetPos
|
||||||
|
lsr
|
||||||
|
and #$03
|
||||||
|
sta HSCROL
|
||||||
|
|
||||||
|
lda racquetPos
|
||||||
|
:4 lsr
|
||||||
|
tax
|
||||||
|
lda hexconv,x
|
||||||
|
sta hexDump
|
||||||
|
|
||||||
|
lda racquetPos
|
||||||
|
and #$0F
|
||||||
|
tax
|
||||||
|
lda hexconv,x
|
||||||
|
sta hexDump+1
|
||||||
|
|
||||||
|
|
||||||
|
jmp XITVBV
|
||||||
|
|
||||||
|
;--------------------------------------------------
|
||||||
|
hexConv
|
||||||
|
dta d"0123456789abcdef"
|
||||||
|
marginLine :32 .byte 0
|
||||||
|
|
||||||
|
lineAdrL
|
||||||
|
:margin .byte <marginLine ;8 lines of margin space
|
||||||
|
:maxLines .byte <(display+32*#)
|
||||||
|
;:margin .byte <marginLine ;8 lines of margin space
|
||||||
|
:256-maxLines-1*margin .by <marginLine; (display+32*#) ;just to let the plot smear on full .byte ypos
|
||||||
|
lineAdrH
|
||||||
|
:margin .byte >marginLine
|
||||||
|
:maxLines .byte >(display+32*#)
|
||||||
|
;:margin .byte >marginLine
|
||||||
|
:256-maxLines-1*margin .by >marginLine; (display+32*#) ;just to let the plot smear on full .byte ypos
|
||||||
|
; $E000 is an address in ROM - the trick to avoid spawning new balls!
|
||||||
|
bittable
|
||||||
|
.byte $80,$40,$20,$10,$08,$04,$02,$01
|
||||||
|
debittable
|
||||||
|
.byte %01111111
|
||||||
|
.byte %10111111
|
||||||
|
.byte %11011111
|
||||||
|
.byte %11101111
|
||||||
|
.byte %11110111
|
||||||
|
.byte %11111011
|
||||||
|
.byte %11111101
|
||||||
|
.byte %11111110
|
||||||
|
|
||||||
|
dxTableL :maxBalls .byte 0
|
||||||
|
dxTableH :maxBalls .byte 0
|
||||||
|
dyTableL :maxBalls .byte 0
|
||||||
|
dyTableH :maxBalls .byte 0
|
||||||
|
; xpos and ydaw are "decimal" parts of static point precision .word
|
||||||
|
xposTableL :maxBalls .byte 0 ; "fractional" part
|
||||||
|
xposTableH :maxBalls .byte 0 ; "fractional" part
|
||||||
|
yposTableL :maxBalls .byte 0 ;
|
||||||
|
yposTableH :maxBalls .byte 0 ;
|
||||||
|
;ball position memory tables - the ball trace works like a "snake"
|
||||||
|
; (one set, one erased)
|
||||||
|
; there are "maxMemory" number of tables, "maxballs" length each
|
||||||
|
; too bad their addressess are not known in advance,
|
||||||
|
; so a short subrourine must calculate them and place to XposMemTableAdrL, etc.
|
||||||
|
balleXistenZ :maxBalls .byte 0 ; 0-dead, 1-alive!
|
||||||
|
balleXistenZcatch
|
||||||
|
.byte 0 ; catch last ball byte
|
||||||
|
eXistenZstack ; goes from index [1..maxBalls]. maxBalls[0] is unused
|
||||||
|
; keeps the list of free slots for balls
|
||||||
|
; goes from down to top. ptr==0 means stack is empty (all balls playing)
|
||||||
|
:maxBalls+1 .byte 0
|
||||||
|
xposMemTable
|
||||||
|
:maxBalls*maxMemory .byte 0
|
||||||
|
yposMemTable
|
||||||
|
:maxBalls*maxMemory .byte 0
|
||||||
|
;addressess of the tables with
|
||||||
|
xposMemTableAdrL
|
||||||
|
:maxMemory .byte 0
|
||||||
|
xposMemTableAdrH
|
||||||
|
:maxMemory .byte 0
|
||||||
|
yposMemTableAdrL
|
||||||
|
:maxMemory .byte 0
|
||||||
|
yposMemTableAdrH
|
||||||
|
:maxMemory .byte 0
|
||||||
|
;table for keeping the count on the last position to be deleted from the "snake"
|
||||||
|
memCycleTable
|
||||||
|
:maxBalls .byte 0
|
||||||
|
statusBar
|
||||||
|
dta d"rc$"
|
||||||
|
hexDump
|
||||||
|
dta d" dx$"
|
||||||
|
dxDisp
|
||||||
|
dta d" dy$"
|
||||||
|
dyDisp
|
||||||
|
dta d" balls$"
|
||||||
|
ballDisp
|
||||||
|
dta d" "
|
||||||
|
|
||||||
|
RUN main
|
||||||
|
|
||||||
|
|
||||||
Binary file not shown.
+97
@@ -0,0 +1,97 @@
|
|||||||
|
|
||||||
|
TODO
|
||||||
|
T021: balls are ferking stick to the right part of the screen...
|
||||||
|
T023: find and set few nice starting points and speeds to be rotated (remove not really sexy random start)
|
||||||
|
T025: do nice game over (when not clear)
|
||||||
|
T026: do nice "ALL CLEAR" screen
|
||||||
|
|
||||||
|
T028: (idea) spinning the ball - when ball bounces the racquette when it is moving, dX adds or subs
|
||||||
|
|
||||||
|
Changes:
|
||||||
|
|
||||||
|
2012-02-16
|
||||||
|
Fork to the colour version. (averybreakout.asm) Graphics mode tests.
|
||||||
|
|
||||||
|
|
||||||
|
build 023: 2010-06-26
|
||||||
|
+ idle ball delay loop shortened to 75 loops for a smoother experience
|
||||||
|
T027: when ball is down out of the screen and the racquette is over it, it bounces.
|
||||||
|
Need to add a check for it! (no bounces when out of the screen)
|
||||||
|
|
||||||
|
build 022: 2010-06-24
|
||||||
|
T022: when balls disappear, their traces should disappear, too, even when a new ball is NOT created
|
||||||
|
now the dead pixels disappear only when a new ball is created.
|
||||||
|
It has been done by expanding the bottom area, so the balls are going down.
|
||||||
|
Screen had to been cut 10 lines. Not a big deal.
|
||||||
|
T024: detect the ending
|
||||||
|
Detected (gameIsNotOver label).
|
||||||
|
|
||||||
|
|
||||||
|
build 021: 2010-06-21
|
||||||
|
+ apparently the slowest part of the engine is eXistenZcheck - rewrite as a simple stack!
|
||||||
|
as usual, it was not as simple as thought previously... But works now!
|
||||||
|
Will be easier to clear traces of the dead balls now.
|
||||||
|
|
||||||
|
build 020: 2010-06-02
|
||||||
|
+ when the racquette is max to the right it does not bounce balls!
|
||||||
|
+ still problems with racquet
|
||||||
|
solved - pos+size was >$ff
|
||||||
|
+ very fast balls get through the left-right side borders
|
||||||
|
solved by a better usage of "maxSpeed"
|
||||||
|
|
||||||
|
build 019: 2010-05-27
|
||||||
|
+ alive balls are somewhere in the outer space - check where and fix
|
||||||
|
where: YposTableH -- 00 -- 08 most 01, XposTableH - FF, FE, 00, 01
|
||||||
|
basicaly these are places where a ball should never be!
|
||||||
|
One fix let other "outer-space" related buggies die, too.
|
||||||
|
The problem was that bouncing ball got behind the border and started to bounce
|
||||||
|
there and forth outside the screen. Fix - bring it back on the playfield.
|
||||||
|
+ balls are created somewhere outside the screen
|
||||||
|
+ when balls disappear, their traces should disappear, too (now 1 pixel stays on screen)
|
||||||
|
+ high dX balls were sticking to Vborders. Fixed by increasing the margin
|
||||||
|
|
||||||
|
build 018: 2010-05-26
|
||||||
|
+ 1 pixel out of the deleted bunch stays forever (erase/store sequence was invalid)
|
||||||
|
|
||||||
|
|
||||||
|
build 017: 2010-05-25
|
||||||
|
+ too few high dX balls
|
||||||
|
x low-priority: rewrite memorytables to use lda (zpage,x) addressing (cool:)
|
||||||
|
Turned out not to be such a low-priority job as wrong sequence of writes
|
||||||
|
to memorytables make one pixel staying on the screen. Rewrite to simplify!
|
||||||
|
Turned out that indirect X addressing is not good for it and this is closed.
|
||||||
|
|
||||||
|
build 016: 2010-05-24
|
||||||
|
Forgot about documenting updates...
|
||||||
|
Basically the game is close to the end, but number of small issues emerged.
|
||||||
|
+ racquette is too slow (and it was such a work to make it 1-px smooth...)
|
||||||
|
|
||||||
|
build 006: 2010-05-12
|
||||||
|
Collision detection
|
||||||
|
Ough... turned out to be way more difficult than expected, but now collisions are detected and balls are bouncing!
|
||||||
|
|
||||||
|
build 005: 2010-05-10
|
||||||
|
Snake like plot memory! Lots and lots of pixels, less balls (64 is the max...)
|
||||||
|
|
||||||
|
|
||||||
|
build 004: 2010-05-09
|
||||||
|
Multiple ballz
|
||||||
|
|
||||||
|
|
||||||
|
build 003: 2010-05-08
|
||||||
|
Feeling bouncy
|
||||||
|
simple boundary bounces work nicely.
|
||||||
|
Unfrtunately number of draws per frame dropped to circa 70.
|
||||||
|
I guess 64 will be an achievement for 2 frames.
|
||||||
|
|
||||||
|
build 002: 2010-05-06
|
||||||
|
MADS rewrite :-]
|
||||||
|
;bare plots get circa 320 pixels per frame. I will go for 128 pix max now
|
||||||
|
|
||||||
|
|
||||||
|
build 001: 2010-05-04
|
||||||
|
|
||||||
|
First try:
|
||||||
|
Strip scorch sources to get clean gr.8 screen.
|
||||||
|
(and PLOT)
|
||||||
|
Basic idea: http://wonderfl.net/c/tNGi/fullscreen
|
||||||
Reference in New Issue
Block a user