fixed code a bit so it compiles again :)

2017-06-17 02:26:54 +02:00
parent eb96a90e5f
commit 035621aa95
4 changed files with 22 additions and 42 deletions
--- a/libsrc/cbm510/waitvblank.s
+++ b/libsrc/cbm510/waitvblank.s
@@ -5,33 +5,22 @@

        .importzp       vic

-        .include        "cbm510/cbm510.inc"
+        .include        "cbm510.inc"

 _waitvblank:
        rts     ; FIXME

        jsr	sys_bank		; Switch to the system bank

-        lda PALFLAG
-        beq ntsc
-        ldx #(312-24)-256
-        .byte $2c
-ntsc:
-        ldx #(262-2)-256
-
        sei
-        ldy #VIC_CTRL1
-l1:
-        lda (vic),y
-        and #$80
-        beq l1

-;?!?
-;		ldy #VIC_HLINE
-;		txa
-;l2:
-;		cmp (vic),y
-;		bcs l2
+        ldy #VIC_CTRL1
+@l1:
+        lda (vic),y
+        bpl @l1
+@l2:
+        lda (vic),y
+        bmi @l2

        cli
        jmp	restore_bank