Merge pull request #6 from Pecusx/develop

Second joystick button added to controls.
This commit is contained in:
Pecusx
2026-03-12 20:54:05 +01:00
committed by GitHub
5 changed files with 8 additions and 6 deletions
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
+5 -2
View File
@@ -12,7 +12,7 @@
;--------------------------------------------------- ;---------------------------------------------------
.macro build .macro build
dta d"1.04" ; number of this build (4 bytes) dta d"1.05" ; number of this build (4 bytes)
.endm .endm
.macro RMTSong .macro RMTSong
@@ -3615,7 +3615,6 @@ notpressedJoyGetKey
.IF TARGET = 800 ; Second joy button , Select and Option key only on A800 .IF TARGET = 800 ; Second joy button , Select and Option key only on A800
jsr Check2button jsr Check2button
bcc SecondButton bcc SecondButton
bne checkSelectKey
checkSelectKey checkSelectKey
lda CONSOL lda CONSOL
and #%00000010 ; Select and #%00000010 ; Select
@@ -3627,6 +3626,8 @@ checkSelectKey
and #%00000001 ; Start and #%00000001 ; Start
beq StartPressed beq StartPressed
.ENDIF .ENDIF
lda STRIG1
beq SecondButton
lda #@kbcode._none lda #@kbcode._none
bne getkeyend bne getkeyend
OptionPressed OptionPressed
@@ -3677,6 +3678,8 @@ StillWait
bne StillWait bne StillWait
lda STRIG0 lda STRIG0
beq StillWait beq StillWait
lda STRIG1
beq StillWait
.IF TARGET = 800 .IF TARGET = 800
lda SKSTAT lda SKSTAT
and #%00000100 ; any key and #%00000100 ; any key
BIN
View File
Binary file not shown.
+3 -4
View File
@@ -10,7 +10,7 @@
fcnt .ds 2 fcnt .ds 2
fadr .ds 2 fadr .ds 2
fhlp .ds 2 fhlp .ds 2
cloc .ds 1 cloc .ds 2
regA .ds 1 regA .ds 1
regX .ds 1 regX .ds 1
regY .ds 1 regY .ds 1
@@ -78,8 +78,7 @@ _lp lda trig0 ; FIRE #0
and #1 and #1
beq stop beq stop
lda cloc cpw cloc #500 ; timer 10s
cmp #200 ; timer - 4s.
bcs stop bcs stop
lda skctl lda skctl
@@ -194,7 +193,7 @@ VBL
mva #@dmactl(standard|dma|lineX1|players|missiles) dmactl ;set new screen width mva #@dmactl(standard|dma|lineX1|players|missiles) dmactl ;set new screen width
inc cloc ;little timer inw cloc ;little timer
; Initial values ; Initial values