Pecus/Young-lumberjack
1
0
Fork 0
Code Issues Packages Projects Releases 3 Wiki Activity

Birds test

Browse Source
This commit is contained in:
Pecusx
2025-03-17 14:26:21 +01:00
parent 3ba8d17c3f
commit acba47c00f
2 changed files with 105 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lumber.asm
+105 -22
View File
@@ -40,28 +40,44 @@ display = $a000
.zpvar DLI_A DLI_X dliCount .byte .zpvar DLI_A DLI_X dliCount .byte
.zpvar RMT_blocked noSfx SFX_EFFECT .byte .zpvar RMT_blocked noSfx SFX_EFFECT .byte
.zpvar AutoPlay .byte ; Auto Play flag ($80 - auto) .zpvar AutoPlay .byte ; Auto Play flag ($80 - auto)
.zpvar HPOSP0_d .byte ; PMG registers for sprites under horizon .zpvar birdsHpos .byte
.zpvar HPOSP1_d .byte ; PMG registers for sprites under horizon ; PMG registers for sprites over horizon
.zpvar HPOSP2_d .byte ; PMG registers for sprites under horizon .zpvar HPOSP0_u .byte
.zpvar HPOSP3_d .byte ; PMG registers for sprites under horizon .zpvar HPOSP1_u .byte
.zpvar HPOSM0_d .byte ; PMG registers for sprites under horizon .zpvar HPOSP2_u .byte
.zpvar HPOSM1_d .byte ; PMG registers for sprites under horizon .zpvar HPOSP3_u .byte
.zpvar HPOSM2_d .byte ; PMG registers for sprites under horizon .zpvar HPOSM0_u .byte
.zpvar HPOSM3_d .byte ; PMG registers for sprites under horizon .zpvar HPOSM1_u .byte
.zpvar SIZEP0_d .byte ; PMG registers for sprites under horizon .zpvar HPOSM2_u .byte
.zpvar SIZEP1_d .byte ; PMG registers for sprites under horizon .zpvar HPOSM3_u .byte
.zpvar SIZEP2_d .byte ; PMG registers for sprites under horizon .zpvar SIZEP0_u .byte
.zpvar SIZEP3_d .byte ; PMG registers for sprites under horizon .zpvar SIZEP1_u .byte
.zpvar SIZEM_d .byte ; PMG registers for sprites under horizon .zpvar SIZEP2_u .byte
.zpvar GRAFP0_d .byte ; PMG registers for sprites under horizon .zpvar SIZEP3_u .byte
.zpvar GRAFP1_d .byte ; PMG registers for sprites under horizon .zpvar SIZEM_u .byte
.zpvar GRAFP2_d .byte ; PMG registers for sprites under horizon ; PMG registers for sprites under horizon
.zpvar GRAFP3_d .byte ; PMG registers for sprites under horizon .zpvar HPOSP0_d .byte
.zpvar GRAFM_d .byte ; PMG registers for sprites under horizon .zpvar HPOSP1_d .byte
.zpvar COLPM0_d .byte ; PMG registers for sprites under horizon .zpvar HPOSP2_d .byte
.zpvar COLPM1_d .byte ; PMG registers for sprites under horizon .zpvar HPOSP3_d .byte
.zpvar COLPM2_d .byte ; PMG registers for sprites under horizon .zpvar HPOSM0_d .byte
.zpvar COLPM3_d .byte ; PMG registers for sprites under horizon .zpvar HPOSM1_d .byte
.zpvar HPOSM2_d .byte
.zpvar HPOSM3_d .byte
.zpvar SIZEP0_d .byte
.zpvar SIZEP1_d .byte
.zpvar SIZEP2_d .byte
.zpvar SIZEP3_d .byte
.zpvar SIZEM_d .byte
.zpvar GRAFP0_d .byte
.zpvar GRAFP1_d .byte
.zpvar GRAFP2_d .byte
.zpvar GRAFP3_d .byte
.zpvar GRAFM_d .byte
.zpvar COLPM0_d .byte
.zpvar COLPM1_d .byte
.zpvar COLPM2_d .byte
.zpvar COLPM3_d .byte
RMT_zpvars = AutoPlay+1 ; POZOR!!! RMT vars go here RMT_zpvars = AutoPlay+1 ; POZOR!!! RMT vars go here
;--------------------------------------------------- ;---------------------------------------------------
@@ -130,6 +146,26 @@ screen_level = gamescreen_middle+9*32+13
mva #0 dliCount mva #0 dliCount
; over horizon
; PMG horizontal coordinates and sizes
txa
pha
ldx #$0c
@ lda HPOSP0_u,x
sta HPOSP0,x
dex
bpl @-
pla
tax
; fly birds
inc birdsHpos
lda birdsHpos
sta HPOSP0_u
clc
adc #6
sta HPOSP1_u
lda StateFlag lda StateFlag
bne wait_for_timer bne wait_for_timer
; only during game ; only during game
@@ -319,6 +355,7 @@ EndOfStartScreen */
;-------------------------------------------------- ;--------------------------------------------------
jsr MakeDarkScreen jsr MakeDarkScreen
jsr PrepareLevelPM jsr PrepareLevelPM
jsr PrepareBirdsCloudsPM
ldx #2 ldx #2
mwa #dl_level dlptrs mwa #dl_level dlptrs
lda #@dmactl(narrow|dma|missiles|players|lineX2) ; narrow screen width, DL on, P/M on (2lines) lda #@dmactl(narrow|dma|missiles|players|lineX2) ; narrow screen width, DL on, P/M on (2lines)
@@ -672,6 +709,7 @@ no_branch_l
jsr RASTERMUSICTRACKER ;Init jsr RASTERMUSICTRACKER ;Init
*/ */
jsr PrepareLevelPM jsr PrepareLevelPM
jsr PrepareBirdsCloudsPM
jsr SetPMr1 jsr SetPMr1
mwa #gamescreen_r_ph1p1 animation_addr mwa #gamescreen_r_ph1p1 animation_addr
lda #@dmactl(narrow|dma|missiles|players|lineX2) ; narrow screen width, DL on, P/M on (2lines) lda #@dmactl(narrow|dma|missiles|players|lineX2) ; narrow screen width, DL on, P/M on (2lines)
@@ -694,8 +732,10 @@ no_branch_l
lda #$e0 lda #$e0
ldx #$07 ; 8 registers. from HPOSP0_d to HPOSM3_d ldx #$07 ; 8 registers. from HPOSP0_d to HPOSM3_d
@ sta HPOSP0_d,x @ sta HPOSP0_d,x
sta HPOSP0_u,x
sta HPOSP0,x sta HPOSP0,x
dex dex
sta birdsHpos
bpl @- bpl @-
rts rts
.endp .endp
@@ -800,6 +840,49 @@ HoffsetP1=103
datalinesP1=5 datalinesP1=5
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
.proc PrepareBirdsCloudsPM
;--------------------------------------------------
; bird 2, 1 and 3
jsr bird_a
mva #0 SIZEP0_u
sta SIZEP1_d
mva #$04 PCOLR0
sta PCOLR1
lda #0
sta birdsHpos
sta HPOSP0_u
sta HPOSP1_u
rts
bird_a
ldx #datalines_bird-1
@ lda bird_data_a,x
sta PMmemory+$200+Hoffset_bird2,x
sta PMmemory+$280+Hoffset_bird1,x
sta PMmemory+$280+Hoffset_bird3,x
dex
bpl @-
rts
bird_b
ldx #datalines_bird-1
@ lda bird_data_b,x
sta PMmemory+$200+Hoffset_bird2,x
sta PMmemory+$280+Hoffset_bird1,x
sta PMmemory+$280+Hoffset_bird3,x
dex
bpl @-
rts
; bird data
bird_data_a
dta $00, $00, $00, $3f, $7c, $18, $18, $08
bird_data_b
dta $00, $30, $18, $18, $3f, $7c, $00, $00
Hoffset_bird1=25
Hoffset_bird2=35
Hoffset_bird3=45
datalines_bird=8
.endp
;--------------------------------------------------
.proc SetPMl1 .proc SetPMl1
;-------------------------------------------------- ;--------------------------------------------------
mva #$4f HPOSP2_d mva #$4f HPOSP2_d
lumber.xex
BIN
View File
Binary file not shown.