mirror of
https://github.com/jeremysrand/colourgo.git
synced 2024-06-12 07:29:34 +00:00
Get some basic level grid drawing working.
This commit is contained in:
Jeremy Rand
parent
015daf9ac1
commit
8a37205c07
566
colourgo/game.s
566
colourgo/game.s
|
|
@ -48,8 +48,9 @@ GRAVITY=64
|
||||||
|
|
||||||
GRID_YPOS=140
|
GRID_YPOS=140
|
||||||
GRID_HEIGHT=5
|
GRID_HEIGHT=5
|
||||||
|
GRID_MAX_SHIFT=7
|
||||||
|
|
||||||
LEVEL_GRID_SIZE=5
|
LEVEL_STRUCT_SIZE=5
|
||||||
|
|
||||||
LINE0 = $2000
|
LINE0 = $2000
|
||||||
LINE1 = LINE0 + 1024
|
LINE1 = LINE0 + 1024
|
||||||
|
|
@ -251,18 +252,19 @@ LINE191 = LINE190 + 1024
|
||||||
|
|
||||||
; Set up hires screen
|
; Set up hires screen
|
||||||
jsr clearScreen
|
jsr clearScreen
|
||||||
|
jsr setLevelAddr
|
||||||
|
|
||||||
@L1:
|
@nextframe:
|
||||||
jsr _vblWait
|
jsr _vblWait
|
||||||
|
|
||||||
jsr drawCharacter
|
jsr drawCharacter
|
||||||
jsr drawGrid
|
jsr drawGrids
|
||||||
|
|
||||||
jsr updateCharacter
|
jsr updateCharacter
|
||||||
jsr updateGrid
|
jsr updateGrid
|
||||||
|
|
||||||
lda shouldQuit
|
lda shouldQuit
|
||||||
beq @L1
|
beq @nextframe
|
||||||
|
|
||||||
lda TXTSET
|
lda TXTSET
|
||||||
|
|
||||||
|
|
@ -271,6 +273,24 @@ LINE191 = LINE190 + 1024
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
|
.proc setLevelAddr
|
||||||
|
ldx level
|
||||||
|
lda levelsLo,x
|
||||||
|
sta LEVELADDR
|
||||||
|
lda levelsHi,x
|
||||||
|
sta LEVELADDR+1
|
||||||
|
bne @notAtTheEnd
|
||||||
|
|
||||||
|
; If the high byte of the level address is 0, then there are no more levels
|
||||||
|
; For now, just loop back to level 0. TODO - Something better.
|
||||||
|
sta level
|
||||||
|
jsr setLevelAddr
|
||||||
|
|
||||||
|
@notAtTheEnd:
|
||||||
|
rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
.proc updateCharacter
|
.proc updateCharacter
|
||||||
|
|
||||||
; Save the old character position so it can be erased
|
; Save the old character position so it can be erased
|
||||||
|
|
@ -288,24 +308,25 @@ LINE191 = LINE190 + 1024
|
||||||
.proc updateCharacterState
|
.proc updateCharacterState
|
||||||
|
|
||||||
lda BUTN1
|
lda BUTN1
|
||||||
bpl @L1
|
bpl @buttonUp
|
||||||
lda #$01
|
lda #$01
|
||||||
jmp @L2
|
jmp @buttonDown
|
||||||
@L1:
|
@buttonUp:
|
||||||
lda #$00
|
lda #$00
|
||||||
@L2:
|
@buttonDown:
|
||||||
cmp lastButtonState
|
cmp lastButtonState
|
||||||
beq @L4 ; No change in button state so exit
|
beq @return ; No change in button state so exit
|
||||||
sta lastButtonState
|
sta lastButtonState
|
||||||
|
|
||||||
lda characterState
|
lda characterState
|
||||||
cmp #CHAR_STATE_JUMPING
|
cmp #CHAR_STATE_JUMPING
|
||||||
beq @L3 ; Character is jumping, go to L3
|
beq @jumping
|
||||||
|
|
||||||
lda lastButtonState
|
lda lastButtonState
|
||||||
beq @L4 ; If button is not down, exit
|
beq @return ; If button is not down, exit
|
||||||
ldx characterNumJumps
|
ldx characterNumJumps
|
||||||
cpx #CHAR_MAX_JUMPS
|
cpx #CHAR_MAX_JUMPS
|
||||||
beq @L4 ; If we have reached max jumps, exit
|
beq @return ; If we have reached max jumps, exit
|
||||||
inx
|
inx
|
||||||
stx characterNumJumps
|
stx characterNumJumps
|
||||||
lda #CHAR_STATE_JUMPING
|
lda #CHAR_STATE_JUMPING
|
||||||
|
|
@ -314,18 +335,18 @@ LINE191 = LINE190 + 1024
|
||||||
sta characterYSpeed
|
sta characterYSpeed
|
||||||
lda #0
|
lda #0
|
||||||
sta characterYSpeedFrac
|
sta characterYSpeedFrac
|
||||||
jmp @L4
|
rts
|
||||||
|
|
||||||
@L3: ; Character is jumping
|
@jumping:
|
||||||
lda lastButtonState
|
lda lastButtonState
|
||||||
bne @L4 ; If the button is still pressed, exit
|
bne @return ; If the button is still pressed, exit
|
||||||
lda #CHAR_STATE_FALLING
|
lda #CHAR_STATE_FALLING
|
||||||
sta characterState
|
sta characterState
|
||||||
lda #0
|
lda #0
|
||||||
sta characterYSpeed
|
sta characterYSpeed
|
||||||
sta characterYSpeedFrac
|
sta characterYSpeedFrac
|
||||||
|
|
||||||
@L4:
|
@return:
|
||||||
rts
|
rts
|
||||||
|
|
||||||
; Local
|
; Local
|
||||||
|
|
@ -343,11 +364,12 @@ lastButtonState: .BYTE $00
|
||||||
|
|
||||||
lda characterState
|
lda characterState
|
||||||
cmp #CHAR_STATE_NONE
|
cmp #CHAR_STATE_NONE
|
||||||
bne @L1 ; Nothing to do if not jumping or falling
|
bne @notStateNone
|
||||||
rts
|
rts
|
||||||
@L1:
|
|
||||||
|
@notStateNone:
|
||||||
cmp #CHAR_STATE_JUMPING
|
cmp #CHAR_STATE_JUMPING
|
||||||
beq @L4
|
beq @jumping
|
||||||
|
|
||||||
; For falling, we need to calculate the bottom first and check
|
; For falling, we need to calculate the bottom first and check
|
||||||
; for collisions
|
; for collisions
|
||||||
|
|
@ -355,7 +377,7 @@ lastButtonState: .BYTE $00
|
||||||
clc
|
clc
|
||||||
adc characterYSpeed
|
adc characterYSpeed
|
||||||
cmp gridY
|
cmp gridY
|
||||||
bmi @L2
|
bmi @didNotLand
|
||||||
lda gridY
|
lda gridY
|
||||||
sta characterYBottom
|
sta characterYBottom
|
||||||
lda #0
|
lda #0
|
||||||
|
|
@ -364,30 +386,32 @@ lastButtonState: .BYTE $00
|
||||||
sta characterNumJumps
|
sta characterNumJumps
|
||||||
lda #CHAR_STATE_NONE
|
lda #CHAR_STATE_NONE
|
||||||
sta characterState
|
sta characterState
|
||||||
jmp @L3
|
jmp @updateY
|
||||||
@L2: ; Did not hit the grid, update speed from gravity
|
|
||||||
|
@didNotLand:
|
||||||
sta characterYBottom
|
sta characterYBottom
|
||||||
lda characterYSpeedFrac
|
lda characterYSpeedFrac
|
||||||
clc
|
clc
|
||||||
adc #GRAVITY
|
adc #GRAVITY
|
||||||
sta characterYSpeedFrac
|
sta characterYSpeedFrac
|
||||||
bcc @L3
|
bcc @updateY
|
||||||
inc characterYSpeed
|
inc characterYSpeed
|
||||||
@L3: ; Need to calculate characterY now from characterYBottom
|
|
||||||
|
@updateY: ; Need to calculate characterY now from characterYBottom
|
||||||
lda characterYBottom
|
lda characterYBottom
|
||||||
sec
|
sec
|
||||||
sbc #CHAR_HEIGHT
|
sbc #CHAR_HEIGHT
|
||||||
sta characterY
|
sta characterY
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@L4:
|
@jumping:
|
||||||
; For jumping, we need to calculate the top first and check
|
; For jumping, we need to calculate the top first and check
|
||||||
; for collisions
|
; for collisions
|
||||||
lda characterY
|
lda characterY
|
||||||
clc
|
clc
|
||||||
adc characterYSpeed
|
adc characterYSpeed
|
||||||
cmp gridY ; TODO - fix this compare
|
cmp gridY ; TODO - fix this compare
|
||||||
bmi @L5
|
bmi @didNotHitHead
|
||||||
lda gridY
|
lda gridY
|
||||||
sta characterY
|
sta characterY
|
||||||
lda #0
|
lda #0
|
||||||
|
|
@ -396,19 +420,21 @@ lastButtonState: .BYTE $00
|
||||||
sta characterNumJumps
|
sta characterNumJumps
|
||||||
lda #CHAR_STATE_FALLING
|
lda #CHAR_STATE_FALLING
|
||||||
sta characterState
|
sta characterState
|
||||||
jmp @L6
|
jmp @updateYBottom
|
||||||
@L5: ; Did not hit the grid, update speed from gravity
|
|
||||||
|
@didNotHitHead:
|
||||||
sta characterY
|
sta characterY
|
||||||
lda characterYSpeedFrac
|
lda characterYSpeedFrac
|
||||||
clc
|
clc
|
||||||
adc #GRAVITY
|
adc #GRAVITY
|
||||||
sta characterYSpeedFrac
|
sta characterYSpeedFrac
|
||||||
bcc @L6
|
bcc @updateYBottom
|
||||||
inc characterYSpeed
|
inc characterYSpeed
|
||||||
bmi @L6
|
bmi @updateYBottom
|
||||||
lda #CHAR_STATE_FALLING
|
lda #CHAR_STATE_FALLING
|
||||||
sta characterState
|
sta characterState
|
||||||
@L6: ; Need to calculate characterYBottom now from characterY
|
|
||||||
|
@updateYBottom: ; Need to calculate characterYBottom now from characterY
|
||||||
lda characterY
|
lda characterY
|
||||||
clc
|
clc
|
||||||
adc #CHAR_HEIGHT
|
adc #CHAR_HEIGHT
|
||||||
|
|
@ -423,9 +449,9 @@ lastButtonState: .BYTE $00
|
||||||
ldx characterBitmap
|
ldx characterBitmap
|
||||||
inx
|
inx
|
||||||
cpx #NUM_CHAR_BITMAPS
|
cpx #NUM_CHAR_BITMAPS
|
||||||
bne @L1
|
bne @noBitmapWrap
|
||||||
ldx #0
|
ldx #0
|
||||||
@L1:
|
@noBitmapWrap:
|
||||||
stx characterBitmap
|
stx characterBitmap
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
@ -434,32 +460,33 @@ lastButtonState: .BYTE $00
|
||||||
|
|
||||||
.proc updateCharacterColour
|
.proc updateCharacterColour
|
||||||
lda KBD
|
lda KBD
|
||||||
bpl @L1
|
bpl @return
|
||||||
cmp #$9b ; Compare to Escape
|
cmp #$9b ; Compare to Escape
|
||||||
beq @L2
|
beq @quit
|
||||||
cmp #$d1 ; Compare to 'Q'
|
cmp #$d1 ; Compare to 'Q'
|
||||||
beq @L2
|
beq @quit
|
||||||
cmp #$f1 ; Compare to 'q'
|
cmp #$f1 ; Compare to 'q'
|
||||||
beq @L2
|
beq @quit
|
||||||
|
|
||||||
lda KBDSTRB
|
lda KBDSTRB
|
||||||
lda characterColour
|
lda characterColour
|
||||||
cmp #COL_VIOLET
|
cmp #COL_VIOLET
|
||||||
beq @L3
|
beq @changeToGreen
|
||||||
lda #COL_VIOLET
|
lda #COL_VIOLET
|
||||||
jmp @L4
|
|
||||||
@L3:
|
|
||||||
lda #COL_GREEN
|
|
||||||
@L4:
|
|
||||||
sta characterColour
|
sta characterColour
|
||||||
jmp @L1
|
rts
|
||||||
|
|
||||||
@L2:
|
@changeToGreen:
|
||||||
|
lda #COL_GREEN
|
||||||
|
sta characterColour
|
||||||
|
rts
|
||||||
|
|
||||||
|
@quit:
|
||||||
lda KBDSTRB
|
lda KBDSTRB
|
||||||
lda #$01
|
lda #$01
|
||||||
sta shouldQuit
|
sta shouldQuit
|
||||||
|
|
||||||
@L1: ; No key pressed
|
@return: ; No key pressed
|
||||||
rts
|
rts
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
|
|
@ -479,9 +506,9 @@ lastButtonState: .BYTE $00
|
||||||
|
|
||||||
ldx characterOldY
|
ldx characterOldY
|
||||||
cpx characterY
|
cpx characterY
|
||||||
beq @L4
|
beq @doNotEraseOld
|
||||||
|
|
||||||
@L5:
|
@oldEraseLoop:
|
||||||
lda loAddrs,x
|
lda loAddrs,x
|
||||||
sta ZPADDR0
|
sta ZPADDR0
|
||||||
lda page1HiAddrs,x
|
lda page1HiAddrs,x
|
||||||
|
|
@ -495,12 +522,12 @@ lastButtonState: .BYTE $00
|
||||||
|
|
||||||
inx
|
inx
|
||||||
cpx characterOldYBottom
|
cpx characterOldYBottom
|
||||||
bne @L5
|
bne @oldEraseLoop
|
||||||
|
|
||||||
@L4:
|
@doNotEraseOld:
|
||||||
ldy characterY
|
ldy characterY
|
||||||
ldx #0
|
ldx #0
|
||||||
@L1:
|
@drawLoop:
|
||||||
lda loAddrs,y
|
lda loAddrs,y
|
||||||
sta ZPADDR0
|
sta ZPADDR0
|
||||||
lda page1HiAddrs,y
|
lda page1HiAddrs,y
|
||||||
|
|
@ -512,47 +539,407 @@ lastButtonState: .BYTE $00
|
||||||
and (ZPADDR1,x)
|
and (ZPADDR1,x)
|
||||||
sta (ZPADDR0),y
|
sta (ZPADDR0),y
|
||||||
inc ZPADDR1
|
inc ZPADDR1
|
||||||
bne @L2
|
bne @doNotIncHiByte1
|
||||||
inc ZPADDR1+1
|
inc ZPADDR1+1
|
||||||
|
|
||||||
@L2:
|
@doNotIncHiByte1:
|
||||||
iny
|
iny
|
||||||
lda oddVal
|
lda oddVal
|
||||||
and (ZPADDR1,x)
|
and (ZPADDR1,x)
|
||||||
sta (ZPADDR0),y
|
sta (ZPADDR0),y
|
||||||
inc ZPADDR1
|
inc ZPADDR1
|
||||||
bne @L3
|
bne @doNotIncHiByte2
|
||||||
inc ZPADDR1+1
|
inc ZPADDR1+1
|
||||||
|
|
||||||
@L3:
|
@doNotIncHiByte2:
|
||||||
ldy yPos
|
ldy yPos
|
||||||
iny
|
iny
|
||||||
cpy characterYBottom
|
cpy characterYBottom
|
||||||
bne @L1
|
bne @drawLoop
|
||||||
|
|
||||||
rts
|
rts
|
||||||
|
|
||||||
; Locals
|
; Locals
|
||||||
evenVal: .BYTE $00
|
evenVal: .BYTE $00
|
||||||
oddVal: .BYTE $00
|
oddVal: .BYTE $00
|
||||||
yPos: .BYTE $00
|
yPos: .BYTE $00
|
||||||
|
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
.proc updateGrid
|
.proc updateGrid
|
||||||
ldx gridXShift
|
dec gridXShift
|
||||||
inx
|
beq @moveGridPos
|
||||||
cpx #7
|
bpl @return
|
||||||
bne @L1
|
ldx #GRID_MAX_SHIFT-1
|
||||||
ldx #0
|
|
||||||
@L1:
|
|
||||||
stx gridXShift
|
stx gridXShift
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
@moveGridPos:
|
||||||
|
inc gridXPos
|
||||||
|
inc gridXPos
|
||||||
|
|
||||||
|
@loop:
|
||||||
|
ldy #$1
|
||||||
|
lda (LEVELADDR),y
|
||||||
|
cmp gridXPos
|
||||||
|
bpl @return
|
||||||
|
|
||||||
|
; At this point, we know that this grid is not visible
|
||||||
|
; Check to see if the start of the next grid is left justified
|
||||||
|
; or off screen.
|
||||||
|
ldy #LEVEL_STRUCT_SIZE
|
||||||
|
lda (LEVELADDR),y
|
||||||
|
cmp gridXPos
|
||||||
|
bpl @return
|
||||||
|
|
||||||
|
; At this point, we know that the gridXPos is at the start of
|
||||||
|
; the next grid or maybe past the start. Move the LEVELADDR
|
||||||
|
; pointer forward to this grid and update gridXPos to be
|
||||||
|
; relative to this grid.
|
||||||
|
lda LEVELADDR
|
||||||
|
clc
|
||||||
|
adc #LEVEL_STRUCT_SIZE
|
||||||
|
bcc @doNotIncHiByte
|
||||||
|
inc LEVELADDR+1
|
||||||
|
@doNotIncHiByte:
|
||||||
|
sta LEVELADDR
|
||||||
|
ldy #$0
|
||||||
|
lda gridXPos
|
||||||
|
sec
|
||||||
|
sbc (LEVELADDR),y
|
||||||
|
sta gridXPos
|
||||||
|
|
||||||
|
; We should check to see if this new grid is visible and if not,
|
||||||
|
; adjust the grid position again.
|
||||||
|
jmp @loop
|
||||||
|
|
||||||
|
@return:
|
||||||
|
rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
|
.proc drawGrids
|
||||||
|
lda LEVELADDR
|
||||||
|
sta ZPADDR6
|
||||||
|
lda LEVELADDR+1
|
||||||
|
sta ZPADDR6+1
|
||||||
|
|
||||||
|
lda #$0
|
||||||
|
sta gridLeft
|
||||||
|
|
||||||
|
lda gridXPos
|
||||||
|
clc
|
||||||
|
adc #MAXXBYTE
|
||||||
|
sta screenRight
|
||||||
|
|
||||||
|
ldy #$1
|
||||||
|
lda (ZPADDR6),y
|
||||||
|
bne @gridLoop
|
||||||
|
rts
|
||||||
|
|
||||||
|
@gridLoop:
|
||||||
|
lda gridLeft
|
||||||
|
cmp screenRight
|
||||||
|
bcs @return
|
||||||
|
ldy #$1
|
||||||
|
clc
|
||||||
|
adc (ZPADDR6),y
|
||||||
|
; If we got a carry, that means the width of the next grid plus
|
||||||
|
; the grid left overflowed 256. If that happens we are definitely
|
||||||
|
; not left of gridXPos. We just need to subtract gridXPos to get
|
||||||
|
; onto screen coords.
|
||||||
|
bcs @overflow
|
||||||
|
cmp gridXPos
|
||||||
|
bmi @nextGrid
|
||||||
|
sec
|
||||||
|
@overflow:
|
||||||
|
sbc gridXPos
|
||||||
|
tax
|
||||||
|
|
||||||
|
; Now depending on the X shift, we need to stop drawing the
|
||||||
|
; body of the grid and fill in the right end cap. We need
|
||||||
|
; to decrement the right boundary N times according to this
|
||||||
|
; chart:
|
||||||
|
; Shift 0 - 0 decrements
|
||||||
|
; Shift 1 - 2 decrements
|
||||||
|
; Shift 2 - 2 decrements
|
||||||
|
; Shift 3 - 1 decrement
|
||||||
|
; Shift 4 - 1 decrement
|
||||||
|
; Shift 5 - 1 decrement
|
||||||
|
; Shift 6 - 1 decrement
|
||||||
|
;
|
||||||
|
; Another special case, for a situation where the gridRight
|
||||||
|
; is 0 so the grid and the shift is 0 or 6, that means the
|
||||||
|
; grid is coming off the screen. We need to do no decrement
|
||||||
|
; and draw the grid to clear the cap.
|
||||||
|
lda gridXShift
|
||||||
|
beq @L1
|
||||||
|
cpx #$0
|
||||||
|
beq @gridRightZeroSpecialCase
|
||||||
|
dex
|
||||||
|
cmp #$3
|
||||||
|
bpl @L1
|
||||||
|
dex
|
||||||
|
jmp @L1
|
||||||
|
@gridRightZeroSpecialCase:
|
||||||
|
cmp #$6
|
||||||
|
bne @nextGrid
|
||||||
|
@L1:
|
||||||
|
cpx #MAXXBYTE
|
||||||
|
bmi @rightIsNotOffScreen
|
||||||
|
ldx #MAXXBYTE
|
||||||
|
@rightIsNotOffScreen:
|
||||||
|
stx gridScreenRight
|
||||||
|
|
||||||
|
lda gridLeft
|
||||||
|
sec
|
||||||
|
sbc gridXPos
|
||||||
|
bpl @leftIsOnScreen
|
||||||
|
lda #$0
|
||||||
|
@leftIsOnScreen:
|
||||||
|
sta gridScreenLeft
|
||||||
|
|
||||||
|
jsr drawGrid
|
||||||
|
|
||||||
|
;@debugLoop:
|
||||||
|
; lda KBD
|
||||||
|
; bpl @debugLoop
|
||||||
|
; lda KBDSTRB
|
||||||
|
|
||||||
|
@nextGrid:
|
||||||
|
lda ZPADDR6
|
||||||
|
clc
|
||||||
|
adc #LEVEL_STRUCT_SIZE
|
||||||
|
bcc @doNotIncHiByte
|
||||||
|
inc ZPADDR6+1
|
||||||
|
@doNotIncHiByte:
|
||||||
|
sta ZPADDR6
|
||||||
|
|
||||||
|
ldy #$0
|
||||||
|
lda gridLeft
|
||||||
|
clc
|
||||||
|
adc (ZPADDR6),y
|
||||||
|
cmp screenRight
|
||||||
|
bpl @return
|
||||||
|
sta gridLeft
|
||||||
|
jmp @gridLoop
|
||||||
|
|
||||||
|
@return:
|
||||||
|
rts
|
||||||
|
|
||||||
|
; Locals
|
||||||
|
screenRight: .BYTE $00
|
||||||
|
gridLeft: .BYTE $00
|
||||||
|
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
.proc drawGrid
|
.proc drawGrid
|
||||||
|
ldy #$2
|
||||||
|
lda (ZPADDR6),y
|
||||||
|
tay
|
||||||
|
lda loAddrs,y
|
||||||
|
sta ZPADDR0
|
||||||
|
lda page1HiAddrs,y
|
||||||
|
sta ZPADDR0+1
|
||||||
|
|
||||||
|
iny
|
||||||
|
lda loAddrs,y
|
||||||
|
sta ZPADDR1
|
||||||
|
lda page1HiAddrs,y
|
||||||
|
sta ZPADDR1+1
|
||||||
|
|
||||||
|
iny
|
||||||
|
lda loAddrs,y
|
||||||
|
sta ZPADDR2
|
||||||
|
lda page1HiAddrs,y
|
||||||
|
sta ZPADDR2+1
|
||||||
|
|
||||||
|
iny
|
||||||
|
lda loAddrs,y
|
||||||
|
sta ZPADDR3
|
||||||
|
lda page1HiAddrs,y
|
||||||
|
sta ZPADDR3+1
|
||||||
|
|
||||||
|
iny
|
||||||
|
lda loAddrs,y
|
||||||
|
sta ZPADDR4
|
||||||
|
lda page1HiAddrs,y
|
||||||
|
sta ZPADDR4+1
|
||||||
|
|
||||||
|
iny
|
||||||
|
lda loAddrs,y
|
||||||
|
sta ZPADDR5
|
||||||
|
lda page1HiAddrs,y
|
||||||
|
sta ZPADDR5+1
|
||||||
|
|
||||||
|
ldx gridXShift
|
||||||
|
ldy #$4
|
||||||
|
lda (ZPADDR6),y
|
||||||
|
tay
|
||||||
|
lda colourEvenLookup,y
|
||||||
|
sta evenVal
|
||||||
|
and evenGrid,x
|
||||||
|
sta evenGridVal
|
||||||
|
lda colourOddLookup,y
|
||||||
|
sta oddVal
|
||||||
|
and oddGrid,x
|
||||||
|
sta oddGridVal
|
||||||
|
|
||||||
|
lda evenGridRight,x
|
||||||
|
and evenVal
|
||||||
|
sta evenRightCap
|
||||||
|
lda oddGridRight,x
|
||||||
|
and oddVal
|
||||||
|
sta oddRightCap
|
||||||
|
|
||||||
|
ldy gridScreenLeft
|
||||||
|
beq @nextGridComponent
|
||||||
|
cpx #$0
|
||||||
|
beq @nextGridComponent
|
||||||
|
|
||||||
|
; Draw the left cap
|
||||||
|
|
||||||
|
lda evenGridLeft,x
|
||||||
|
and evenVal
|
||||||
|
sta evenLeftCap
|
||||||
|
lda evenGridLeft,x
|
||||||
|
eor #$ff
|
||||||
|
sta evenLeftMask
|
||||||
|
|
||||||
|
lda oddGridLeft,x
|
||||||
|
and oddVal
|
||||||
|
sta oddLeftCap
|
||||||
|
lda oddGridLeft,x
|
||||||
|
eor #$ff
|
||||||
|
sta oddLeftMask
|
||||||
|
|
||||||
|
dey
|
||||||
|
|
||||||
|
tya
|
||||||
|
and #$01
|
||||||
|
bne @leftCapOdd1
|
||||||
|
|
||||||
|
lda evenLeftMask
|
||||||
|
and (ZPADDR0),y
|
||||||
|
ora evenLeftCap
|
||||||
|
ldx evenGridVal
|
||||||
|
jmp @nextLeftCapComponent
|
||||||
|
|
||||||
|
@leftCapOdd1:
|
||||||
|
lda oddLeftMask
|
||||||
|
and (ZPADDR0),y
|
||||||
|
ora oddLeftCap
|
||||||
|
ldx oddGridVal
|
||||||
|
|
||||||
|
@nextLeftCapComponent:
|
||||||
|
jsr drawGridComponent
|
||||||
|
dey
|
||||||
|
bmi @drawBodyComponents
|
||||||
|
|
||||||
|
tya
|
||||||
|
and #$01
|
||||||
|
bne @leftCapOdd2
|
||||||
|
|
||||||
|
lda evenLeftMask
|
||||||
|
and (ZPADDR0),y
|
||||||
|
ora evenLeftCap
|
||||||
|
ldx evenGridVal
|
||||||
|
jsr drawGridComponent
|
||||||
|
jmp @drawBodyComponents
|
||||||
|
|
||||||
|
@leftCapOdd2:
|
||||||
|
lda oddLeftMask
|
||||||
|
and (ZPADDR0),y
|
||||||
|
ora oddLeftCap
|
||||||
|
ldx oddGridVal
|
||||||
|
jsr drawGridComponent
|
||||||
|
|
||||||
|
@drawBodyComponents:
|
||||||
|
ldy gridScreenLeft
|
||||||
|
@nextGridComponent:
|
||||||
|
cpy gridScreenRight
|
||||||
|
beq @lastGridComponent
|
||||||
|
tya
|
||||||
|
and #$01
|
||||||
|
bne @bodyOdd
|
||||||
|
|
||||||
|
lda evenVal
|
||||||
|
ldx evenGridVal
|
||||||
|
jmp @drawComponent
|
||||||
|
|
||||||
|
@bodyOdd:
|
||||||
|
lda oddVal
|
||||||
|
ldx oddGridVal
|
||||||
|
|
||||||
|
@drawComponent:
|
||||||
|
jsr drawGridComponent
|
||||||
|
iny
|
||||||
|
jmp @nextGridComponent
|
||||||
|
|
||||||
|
@lastGridComponent:
|
||||||
|
cpy #MAXXBYTE
|
||||||
|
beq @return
|
||||||
|
|
||||||
|
tya
|
||||||
|
and #$01
|
||||||
|
bne @rightCapOdd1
|
||||||
|
|
||||||
|
lda evenGridVal
|
||||||
|
and evenRightCap
|
||||||
|
tax
|
||||||
|
lda evenRightCap
|
||||||
|
jmp @nextRightCapComponent
|
||||||
|
|
||||||
|
@rightCapOdd1:
|
||||||
|
lda oddGridVal
|
||||||
|
and oddRightCap
|
||||||
|
tax
|
||||||
|
lda oddRightCap
|
||||||
|
|
||||||
|
@nextRightCapComponent:
|
||||||
|
jsr drawGridComponent
|
||||||
|
|
||||||
|
iny
|
||||||
|
cpy #MAXXBYTE
|
||||||
|
beq @return
|
||||||
|
|
||||||
|
lda #$00
|
||||||
|
tax
|
||||||
|
jsr drawGridComponent
|
||||||
|
|
||||||
|
@return:
|
||||||
|
rts
|
||||||
|
|
||||||
|
; Locals
|
||||||
|
evenVal: .BYTE $00
|
||||||
|
oddVal: .BYTE $00
|
||||||
|
evenGridVal: .BYTE $00
|
||||||
|
oddGridVal: .BYTE $00
|
||||||
|
evenLeftCap: .BYTE $00
|
||||||
|
oddLeftCap: .BYTE $00
|
||||||
|
evenLeftMask: .BYTE $00
|
||||||
|
oddLeftMask: .BYTE $00
|
||||||
|
evenRightCap: .BYTE $00
|
||||||
|
oddRightCap: .BYTE $00
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
|
.proc drawGridComponent
|
||||||
|
sta (ZPADDR0),y
|
||||||
|
sta (ZPADDR5),y
|
||||||
|
txa
|
||||||
|
sta (ZPADDR1),y
|
||||||
|
sta (ZPADDR2),y
|
||||||
|
sta (ZPADDR3),y
|
||||||
|
sta (ZPADDR4),y
|
||||||
|
rts
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
.proc drawGridOld
|
||||||
ldy gridY
|
ldy gridY
|
||||||
lda loAddrs,y
|
lda loAddrs,y
|
||||||
sta ZPADDR0
|
sta ZPADDR0
|
||||||
|
|
@ -752,10 +1139,22 @@ colourOddLookup:
|
||||||
.BYTE $00, $2a, $55, $ff
|
.BYTE $00, $2a, $55, $ff
|
||||||
|
|
||||||
evenGrid:
|
evenGrid:
|
||||||
.BYTE $00, $00, $00, $40, $30, $0c, $03
|
.BYTE $03, $0c, $30, $40, $00, $00, $00
|
||||||
|
|
||||||
oddGrid:
|
oddGrid:
|
||||||
.BYTE $60, $18, $06, $01, $00, $00, $00
|
.BYTE $00, $00, $00, $01, $06, $18, $60
|
||||||
|
|
||||||
|
evenGridLeft:
|
||||||
|
.BYTE $00, $7c, $70, $40, $00, $00, $00
|
||||||
|
|
||||||
|
oddGridLeft:
|
||||||
|
.BYTE $00, $7f, $7f, $7f, $7e, $78, $60
|
||||||
|
|
||||||
|
evenGridRight:
|
||||||
|
.BYTE $03, $0f, $3f, $00, $00, $00, $00
|
||||||
|
|
||||||
|
oddGridRight:
|
||||||
|
.BYTE $00, $00, $00, $01, $07, $1f, $7f
|
||||||
|
|
||||||
characterBitmap1:
|
characterBitmap1:
|
||||||
.BYTE $70, $01
|
.BYTE $70, $01
|
||||||
|
|
@ -810,25 +1209,42 @@ characterNumJumps: .BYTE $00
|
||||||
characterYSpeed: .BYTE $00
|
characterYSpeed: .BYTE $00
|
||||||
characterYSpeedFrac: .BYTE $00
|
characterYSpeedFrac: .BYTE $00
|
||||||
|
|
||||||
gridColour: .BYTE COL_VIOLET
|
gridColour: .BYTE COL_VIOLET
|
||||||
gridY: .BYTE GRID_YPOS
|
gridY: .BYTE GRID_YPOS
|
||||||
gridXShift: .BYTE $00
|
gridXShift: .BYTE $00
|
||||||
gridXPos: .BYTE $00
|
gridXPos: .BYTE $00
|
||||||
|
gridScreenLeft: .BYTE $00
|
||||||
|
gridScreenRight: .BYTE $00
|
||||||
|
|
||||||
shouldQuit: .BYTE $00
|
shouldQuit: .BYTE $00
|
||||||
|
|
||||||
level: .BYTE $00
|
level: .BYTE $00
|
||||||
|
|
||||||
; A level consists of the following for each grid:
|
; A level consists of the following for each grid:
|
||||||
; Byte 1 - Offset of the start of this grid from the previous grid's start
|
; Byte 0 - Offset of the start of this grid from the previous grid's start
|
||||||
; Byte 2 - Grid width
|
; Byte 1 - Grid width
|
||||||
; Byte 3 - Grid top
|
; Byte 2 - Grid top
|
||||||
; Byte 4 - Grid bottom
|
; Byte 3 - Grid bottom
|
||||||
; Byte 5 - Grid colour
|
; Byte 4 - Grid colour
|
||||||
; The end of a level has a grid width of 0
|
; The end of a level has a grid width of 0
|
||||||
level1:
|
level1:
|
||||||
.BYTE $00, 100, 140, 140+GRID_HEIGHT, COL_VIOLET
|
.BYTE 0, 2, 140, 140+GRID_HEIGHT, COL_VIOLET
|
||||||
.BYTE $00, $00, $00, $00, $00
|
.BYTE 210, 100, 140, 140+GRID_HEIGHT, COL_VIOLET
|
||||||
|
.BYTE 110, 100, 140, 140+GRID_HEIGHT, COL_VIOLET
|
||||||
|
.BYTE 100, 10, 140, 140+GRID_HEIGHT, COL_GREEN
|
||||||
|
.BYTE 4, 10, 100, 100+GRID_HEIGHT, COL_VIOLET
|
||||||
|
.BYTE 50, 10, 140, 140+GRID_HEIGHT, COL_GREEN
|
||||||
|
.BYTE 30, 10, 140, 140+GRID_HEIGHT, COL_VIOLET
|
||||||
|
.BYTE 30, 10, 140, 140+GRID_HEIGHT, COL_GREEN
|
||||||
|
.BYTE 30, 100, 140, 140+GRID_HEIGHT, COL_VIOLET
|
||||||
|
.BYTE 120, 100, 140, 140+GRID_HEIGHT, COL_GREEN
|
||||||
|
.BYTE 120, 100, 140, 140+GRID_HEIGHT, COL_VIOLET
|
||||||
|
.BYTE 120, 100, 140, 140+GRID_HEIGHT, COL_GREEN
|
||||||
|
.BYTE 120, 100, 140, 140+GRID_HEIGHT, COL_VIOLET
|
||||||
|
.BYTE 120, 100, 140, 140+GRID_HEIGHT, COL_GREEN
|
||||||
|
.BYTE 120, 100, 140, 140+GRID_HEIGHT, COL_VIOLET
|
||||||
|
.BYTE 120, 100, 140, 140+GRID_HEIGHT, COL_GREEN
|
||||||
|
.BYTE 120, $00, $00, $00, $00
|
||||||
|
|
||||||
level2:
|
level2:
|
||||||
.BYTE $00, 100, 140, 140+GRID_HEIGHT, COL_VIOLET
|
.BYTE $00, 100, 140, 140+GRID_HEIGHT, COL_VIOLET
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user