From 488d53094e06c54e1308cb94b34e9d3d02022166 Mon Sep 17 00:00:00 2001
From: cybernesto <cybernesto@gmail.com>
Date: Sat, 21 May 2016 17:35:53 +0200
Subject: [PATCH] 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
---
 f15_dgamma.asm | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/f15_dgamma.asm b/f15_dgamma.asm
index 5b85217..735ec14 100644
--- a/f15_dgamma.asm
+++ b/f15_dgamma.asm
@@ -1,3 +1,4 @@
+; @com.wudsn.ide.asm.hardware=APPLE2
 ;
 ; F15 D'GAMMA CLONE
 ;
@@ -34,6 +35,10 @@ char_data	!binary "binary/c64cd_screen.raw"
 
 ; Constants
 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
 txtset		= $c051		; select text mode
@@ -81,6 +86,11 @@ entry		sei
 		sta txtclr
 		sta hires
 		sta mixset
+		
+; Enable the VBL on the //c
+		sta clrioudis
+		sta envbl
+		sta setioudis
 
 ; Initialise the logo movement routine
 		lda #$00
@@ -105,8 +115,8 @@ work_clear	lda #$20
 
 ; Main loop
 main_loop	lda rd_vbl_bar
-		bmi *-$03
-
+		bpl main_loop
+		lda ptrig
 
 ; Update the upper colour bars
 		lda sine_at_1
@@ -433,10 +443,6 @@ st_xb		stx scroll_timer
 		jsr random
 		jsr random
 
-; Wait for the start of the screen
-		lda rd_vbl_bar
-		bpl *-$03
-
 		jmp main_loop