Apple-2-SW/Cybernoid
1
0
Fork 0
mirror of https://github.com/tomcw/Cybernoid.git synced 2025-04-08 23:38:06 +00:00
Code Issues Projects Releases Wiki Activity

Support TAB to switch AY chip & revert to USE_AYDATA1=1 (tag:CYB-TEST2-D)

Browse Source
This commit is contained in:
tomcw 2021-01-03 17:08:33 +00:00
parent 25a3efc4ff
commit d84745262f
1 changed files with 45 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
CybernoidTest2/CybernoidTest2.a
View File

@ -5,8 +5,7 @@
!sl "CybernoidTest2.labels"
*=$4000
AY_UPDATE_OLD = 0
USE_AYDATA1 = 0
USE_AYDATA1 = 1
;------------------------------------------------------------------------------
@ -50,19 +49,6 @@ Entrypoint:
GotMBSlot:
stx nMBBaseHi
!if AY_UPDATE_OLD {
stx MBx1+2
stx MBx2+2
stx MBx3+2
stx MBx4+2
} else {
stx MB1+2
stx MB2+2
stx MB3+2
stx MB4+2
stx MB5+2
stx MB6+2
stx MB1x+2
stx MB2x+2
stx MB3x+2
@ -76,7 +62,7 @@ GotMBSlot:
stx MBAx+2
stx MBBx+2
stx MBCx+2
}
stx MB7+2
;
@ -144,7 +130,11 @@ loop lda AYDataDoneFlag
bit $c010
cmp #27+$80 ; ESC to quit
beq done
jsr TonesInc
cmp #9+$80 ; TAB to toggle AY-chip
bne +
jsr toggle_ay
bcs loop
+ jsr TonesInc
bcs loop
jsr TonesDec
bcs loop
@ -296,28 +286,6 @@ MB7 sta CARD_BASE+SY6522_IFR ; Clear Timer1 IRQ flag
rti
;--------------------------------------
!if AY_UPDATE_OLD {
+SF_UpdateAY
} else {
SF_SelectReg ; Select AY reg
MB1 sta CARD_BASE+SY6522_ORA
ldx #AY_INACTIVE
lda #AY_LATCH
MB2 sta CARD_BASE+SY6522_ORB
MB3 stx CARD_BASE+SY6522_ORB ; Set INACTIVE
rts
SF_WriteReg ; Write AY reg
MB4 sta CARD_BASE+SY6522_ORA
ldx #AY_INACTIVE
lda #AY_WRITE
MB5 sta CARD_BASE+SY6522_ORB
MB6 stx CARD_BASE+SY6522_ORB ; Set INACTIVE
rts
}
;--------------------------------------
lefe5:
@ -412,6 +380,44 @@ InitAYData
}
rts
;--------------------------------------
toggle_ay
sei
lda #AY_RESET
ldy #SY6522_ORB
sta (MBBase),y
ldy #SY6522_ORB+$80
sta (MBBase),y
lda MB1x+1 ; ORA
eor #$80
tax
lda MB2x+1 ; ORB
eor #$80
stx MB1x+1
sta MB2x+1
sta MB3x+1
stx MB4x+1
sta MB5x+1
sta MB6x+1
stx MB7x+1
sta MB8x+1
sta MB9x+1
stx MBAx+1
sta MBBx+1
sta MBCx+1
cli
sec
rts
;------------------------------------------------------------------------------
!zone data