Apple-2-SW/Cybernoid
1
0
Fork 0
mirror of https://github.com/tomcw/Cybernoid.git synced 2024-05-28 10:41:30 +00:00
Code Issues Projects Releases Wiki Activity

Reduce AY access times some more.

Browse Source
This commit is contained in:
tomcw 2020-09-06 10:53:50 +01:00
parent 581c02e7dd
commit 8e100ae88a
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
CybernoidTest/Cybernoid.a
View File

@ -58,6 +58,13 @@ GotMBSlot:
stx MB4+2 stx MB4+2
stx MB5+2 stx MB5+2
stx MB6+2 stx MB6+2
stx MB1x+2
stx MB2x+2
stx MB3x+2
stx MB4x+2
stx MB5x+2
stx MB6x+2
} }
stx MB7+2 stx MB7+2
@ -198,12 +205,18 @@ Interrupt
lda AYDataDoneFlag lda AYDataDoneFlag
bne .done bne .done
ldx #0 ldx #AY_INACTIVE
ldy #0 ldy #0
.sf_loop0 tya .sf_loop0
jsr SF_SelectReg MB1x sty CARD_BASE+SY6522_ORA
.smcAYData lda (pAYData),y lda #AY_LATCH
jsr SF_WriteReg MB2x sta CARD_BASE+SY6522_ORB
MB3x stx CARD_BASE+SY6522_ORB ; Set INACTIVE
lda (pAYData),y
MB4x sta CARD_BASE+SY6522_ORA
lda #AY_WRITE
MB5x sta CARD_BASE+SY6522_ORB
MB6x stx CARD_BASE+SY6522_ORB ; Set INACTIVE
iny iny
cpy #$0E cpy #$0E
bne .sf_loop0 bne .sf_loop0