4 Commits

Author SHA1 Message Date
Pecusx d14627fcbd Apace, START and Fire after death 2026-03-15 14:26:34 +01:00
Pecusx eef5b53030 No reaction for TAB and Button after death 2026-03-15 14:02:28 +01:00
Pecusx 066efdcd20 build number update 2026-03-15 13:44:09 +01:00
Pecusx 026cb48377 Third button of JoyB2+
and pause after death :)
2026-03-15 13:43:07 +01:00
2 changed files with 19 additions and 7 deletions
+19 -7
View File
@@ -12,7 +12,7 @@
;--------------------------------------------------- ;---------------------------------------------------
.macro build .macro build
dta d"1.05" ; number of this build (4 bytes) dta d"1.07" ; number of this build (4 bytes)
.endm .endm
.macro RMTSong .macro RMTSong
@@ -57,7 +57,8 @@
.zpvar SpeedTableAdr .word .zpvar SpeedTableAdr .word
.zpvar Difficulty .byte ; 0 - normal, 1 - easy .zpvar Difficulty .byte ; 0 - normal, 1 - easy
.zpvar LumberjackDir .byte ; 2 - on left , 1 - on right .zpvar LumberjackDir .byte ; 2 - on left , 1 - on right
.zpvar PaddleState .byte .zpvar Paddle1State .byte
.zpvar Paddle2State .byte
.zpvar LowCharsetBase .byte .zpvar LowCharsetBase .byte
.zpvar displayposition .word .zpvar displayposition .word
.zpvar LastKey .byte ; $ff if no key pressed or last key released .zpvar LastKey .byte ; $ff if no key pressed or last key released
@@ -1806,8 +1807,10 @@ RIPLoop
jsr GetKeyFast jsr GetKeyFast
cmp #@kbcode._space ; space, Start cmp #@kbcode._space ; space, Start
beq restart beq restart
cmp #@kbcode._tab ; TAB, 1st joy button lda STRIG0
beq restart beq restart
; cmp #@kbcode._tab ; TAB, 1st joy button
; beq restart
lda RTCLOK+1 lda RTCLOK+1
cmp #2 cmp #2
bne RIPLoop bne RIPLoop
@@ -3612,8 +3615,10 @@ notpressedJoyGetKey
;fire ;fire
lda STRIG0 lda STRIG0
beq JoyButton beq JoyButton
.IF TARGET = 800 ; Second joy button , Select and Option key only on A800 .IF TARGET = 800 ; More joy buttons , Select and Option key only on A800
jsr Check2button jsr Check3button ; Third joy button
bcc JoyButton ; like First button
jsr Check2button ; Second joy button
bcc SecondButton bcc SecondButton
checkSelectKey checkSelectKey
lda CONSOL lda CONSOL
@@ -3652,8 +3657,15 @@ Check2button
lda PADDL0 lda PADDL0
and #$c0 and #$c0
eor #$C0 eor #$C0
cmp PaddleState cmp Paddle1State
sta PaddleState sta Paddle1State
rts
Check3button
lda PADDL1
and #$c0
eor #$C0
cmp Paddle2State
sta Paddle2State
rts rts
.ENDIF .ENDIF
.endp .endp
BIN
View File
Binary file not shown.