Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-08-19 18:44:41 +00:00
Code Issues Projects Releases Wiki Activity

a bit faster mockingboard

Browse Source
This commit is contained in:
Peter Ferrie
2019-06-03 14:41:14 -07:00
parent 6afee2f6ea
commit 0d861e16c7
3 changed files with 18 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
pt3_player/interrupt_handler.s
View File

@@ -99,9 +99,9 @@ mb_not_13:
lda #MOCK_AY_LATCH_ADDR ; latch_address for PB1 ; 2 lda #MOCK_AY_LATCH_ADDR ; latch_address for PB1 ; 2
sta MOCK_6522_ORB1 ; latch_address on PB1 ; 4 sta MOCK_6522_ORB1 ; latch_address on PB1 ; 4
sta MOCK_6522_ORB2 ; latch_address on PB2 ; 4 sta MOCK_6522_ORB2 ; latch_address on PB2 ; 4
lda #MOCK_AY_INACTIVE ; go inactive ; 2 ldy #MOCK_AY_INACTIVE ; go inactive ; 2
sta MOCK_6522_ORB1 ; 4 sty MOCK_6522_ORB1 ; 4
sta MOCK_6522_ORB2 ; 4 sty MOCK_6522_ORB2 ; 4
; value ; value
lda AY_REGISTERS,X ; load register value ; 4 lda AY_REGISTERS,X ; load register value ; 4
@@ -110,11 +110,10 @@ mb_not_13:
lda #MOCK_AY_WRITE ; ; 2 lda #MOCK_AY_WRITE ; ; 2
sta MOCK_6522_ORB1 ; write on PB1 ; 4 sta MOCK_6522_ORB1 ; write on PB1 ; 4
sta MOCK_6522_ORB2 ; write on PB2 ; 4 sta MOCK_6522_ORB2 ; write on PB2 ; 4
lda #MOCK_AY_INACTIVE ; go inactive ; 2 sty MOCK_6522_ORB1 ; 4
sta MOCK_6522_ORB1 ; 4 sty MOCK_6522_ORB2 ; 4
sta MOCK_6522_ORB2 ; 4
;=========== ;===========
; 62 ; 60
mb_no_write: mb_no_write:
inx ; point to next register ; 2 inx ; point to next register ; 2
cpx #14 ; if 14 we're done ; 2 cpx #14 ; if 14 we're done ; 2

13
pt3_player/mockingboard_a.s
View File

@@ -90,9 +90,9 @@ write_ay_both:
lda #MOCK_AY_LATCH_ADDR ; latch_address on PB1 ; 2 lda #MOCK_AY_LATCH_ADDR ; latch_address on PB1 ; 2
sta MOCK_6522_ORB1 ; latch_address on PB1 ; 3 sta MOCK_6522_ORB1 ; latch_address on PB1 ; 3
sta MOCK_6522_ORB2 ; latch_address on PB2 ; 3 sta MOCK_6522_ORB2 ; latch_address on PB2 ; 3
lda #MOCK_AY_INACTIVE ; go inactive ; 2 ldy #MOCK_AY_INACTIVE ; go inactive ; 2
sta MOCK_6522_ORB1 ; 3 sty MOCK_6522_ORB1 ; 3
sta MOCK_6522_ORB2 ; 3 sty MOCK_6522_ORB2 ; 3
; value ; value
lda MB_VALUE ; 3 lda MB_VALUE ; 3
@@ -101,13 +101,12 @@ write_ay_both:
lda #MOCK_AY_WRITE ; ; 2 lda #MOCK_AY_WRITE ; ; 2
sta MOCK_6522_ORB1 ; write on PB1 ; 3 sta MOCK_6522_ORB1 ; write on PB1 ; 3
sta MOCK_6522_ORB2 ; write on PB2 ; 3 sta MOCK_6522_ORB2 ; write on PB2 ; 3
lda #MOCK_AY_INACTIVE ; go inactive ; 2 sty MOCK_6522_ORB1 ; 3
sta MOCK_6522_ORB1 ; 3 sty MOCK_6522_ORB2 ; 3
sta MOCK_6522_ORB2 ; 3
rts ; 6 rts ; 6
;=========== ;===========
; 53 ; 51
;======================================= ;=======================================
; clear ay -- clear all 14 AY registers ; clear ay -- clear all 14 AY registers
; should silence the card ; should silence the card

13
pt3_player/pt3_timer.s
View File

@@ -411,9 +411,9 @@ mb_not_13:
lda #MOCK_AY_LATCH_ADDR ; latch_address for PB1 ; 2 lda #MOCK_AY_LATCH_ADDR ; latch_address for PB1 ; 2
sta MOCK_6522_ORB1 ; latch_address on PB1 ; 4 sta MOCK_6522_ORB1 ; latch_address on PB1 ; 4
sta MOCK_6522_ORB2 ; latch_address on PB2 ; 4 sta MOCK_6522_ORB2 ; latch_address on PB2 ; 4
lda #MOCK_AY_INACTIVE ; go inactive ; 2 ldy #MOCK_AY_INACTIVE ; go inactive ; 2
sta MOCK_6522_ORB1 ; 4 sty MOCK_6522_ORB1 ; 4
sta MOCK_6522_ORB2 ; 4 sty MOCK_6522_ORB2 ; 4
; value ; value
lda AY_REGISTERS,X ; load register value ; 4 lda AY_REGISTERS,X ; load register value ; 4
@@ -422,11 +422,10 @@ mb_not_13:
lda #MOCK_AY_WRITE ; ; 2 lda #MOCK_AY_WRITE ; ; 2
sta MOCK_6522_ORB1 ; write on PB1 ; 4 sta MOCK_6522_ORB1 ; write on PB1 ; 4
sta MOCK_6522_ORB2 ; write on PB2 ; 4 sta MOCK_6522_ORB2 ; write on PB2 ; 4
lda #MOCK_AY_INACTIVE ; go inactive ; 2 sty MOCK_6522_ORB1 ; 4
sta MOCK_6522_ORB1 ; 4 sty MOCK_6522_ORB2 ; 4
sta MOCK_6522_ORB2 ; 4
;=========== ;===========
; 62 ; 60
mb_no_write: mb_no_write:
inx ; point to next register ; 2 inx ; point to next register ; 2
cpx #14 ; if 14 we're done ; 2 cpx #14 ; if 14 we're done ; 2