initial import from old sources

2016-02-28 22:35:46 +01:00
parent 25f4482641
commit eb96a90e5f
4 changed files with 93 additions and 0 deletions
--- a/libsrc/cbm510/waitvblank.s
+++ b/libsrc/cbm510/waitvblank.s
@@ -0,0 +1,37 @@
+
+        .export         _waitvblank
+        .import         PALFLAG
+        .import         sys_bank, restore_bank
+
+        .importzp       vic
+
+        .include        "cbm510/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
+
+        cli
+        jmp	restore_bank