mirror of
https://github.com/C64CD/F15-DGamma-Clone-A2.git
synced 2024-06-10 21:29:28 +00:00
VBL detection for the //c
Enabled VBL detection to be compatible with the Apple //c according to the Apple II Technical Note #9 for the Apple //c: http://www.1000bit.it/support/manuali/apple/technotes/aiic/tn.aiic.9.htm l
This commit is contained in:
parent
2fa84a1b00
commit
488d53094e
|
@ -1,3 +1,4 @@
|
||||||
|
; @com.wudsn.ide.asm.hardware=APPLE2
|
||||||
;
|
;
|
||||||
; F15 D'GAMMA CLONE
|
; F15 D'GAMMA CLONE
|
||||||
;
|
;
|
||||||
|
@ -34,6 +35,10 @@ char_data !binary "binary/c64cd_screen.raw"
|
||||||
|
|
||||||
; Constants
|
; Constants
|
||||||
rd_vbl_bar = $c019 ; top bit clear means vblank
|
rd_vbl_bar = $c019 ; top bit clear means vblank
|
||||||
|
ptrig = $c070 ; clears vbl on the //c
|
||||||
|
setioudis = $c07e
|
||||||
|
clrioudis = $c07f
|
||||||
|
envbl = $c05b ; vbl enable for the //c
|
||||||
|
|
||||||
txtclr = $c050 ; select bitmap mode
|
txtclr = $c050 ; select bitmap mode
|
||||||
txtset = $c051 ; select text mode
|
txtset = $c051 ; select text mode
|
||||||
|
@ -81,6 +86,11 @@ entry sei
|
||||||
sta txtclr
|
sta txtclr
|
||||||
sta hires
|
sta hires
|
||||||
sta mixset
|
sta mixset
|
||||||
|
|
||||||
|
; Enable the VBL on the //c
|
||||||
|
sta clrioudis
|
||||||
|
sta envbl
|
||||||
|
sta setioudis
|
||||||
|
|
||||||
; Initialise the logo movement routine
|
; Initialise the logo movement routine
|
||||||
lda #$00
|
lda #$00
|
||||||
|
@ -105,8 +115,8 @@ work_clear lda #$20
|
||||||
|
|
||||||
; Main loop
|
; Main loop
|
||||||
main_loop lda rd_vbl_bar
|
main_loop lda rd_vbl_bar
|
||||||
bmi *-$03
|
bpl main_loop
|
||||||
|
lda ptrig
|
||||||
|
|
||||||
; Update the upper colour bars
|
; Update the upper colour bars
|
||||||
lda sine_at_1
|
lda sine_at_1
|
||||||
|
@ -433,10 +443,6 @@ st_xb stx scroll_timer
|
||||||
jsr random
|
jsr random
|
||||||
jsr random
|
jsr random
|
||||||
|
|
||||||
; Wait for the start of the screen
|
|
||||||
lda rd_vbl_bar
|
|
||||||
bpl *-$03
|
|
||||||
|
|
||||||
jmp main_loop
|
jmp main_loop
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user