Merge pull request #453 from mrdudz/waitvsync

waitvblank for cbm targets
2017-07-18 15:38:27 +02:00
parent f5615c6ed4 b6d3d32e88
commit 6002e59c28
19 changed files with 142 additions and 26 deletions
--- a/libsrc/cbm510/waitvsync.s
+++ b/libsrc/cbm510/waitvsync.s
@@ -0,0 +1,28 @@
+;
+; Written by Groepaz <groepaz@gmx.net>
+;
+; void waitvsync (void);
+;
+
+        .export         _waitvsync
+        .import         PALFLAG
+        .import         sys_bank, restore_bank
+
+        .importzp       vic
+
+        .include        "cbm510.inc"
+
+_waitvsync:
+        jsr     sys_bank        ; Switch to the system bank
+        sei
+
+        ldy     #VIC_CTRL1
+@l1:
+        lda     (vic),y
+        bpl     @l1
+@l2:
+        lda     (vic),y
+        bmi     @l2
+
+        cli
+        jmp	    restore_bank