cc65/libsrc/cbm510/waitvblank.s


        .export         _waitvblank
        .import         PALFLAG
        .import         sys_bank, restore_bank

        .importzp       vic

        .include        "cbm510.inc"

_waitvblank:
        rts     ; FIXME

        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
initial import from old sources 2016-02-28 21:35:46 +00:00
			`.export _waitvblank`
			`.import PALFLAG`
			`.import sys_bank, restore_bank`

			`.importzp vic`

fixed code a bit so it compiles again :) 2017-06-17 00:26:54 +00:00			`.include "cbm510.inc"`
initial import from old sources 2016-02-28 21:35:46 +00:00
			`_waitvblank:`
			`rts ; FIXME`

			`jsr sys_bank ; Switch to the system bank`

			`sei`
fixed code a bit so it compiles again :) 2017-06-17 00:26:54 +00:00
initial import from old sources 2016-02-28 21:35:46 +00:00			`ldy #VIC_CTRL1`
fixed code a bit so it compiles again :) 2017-06-17 00:26:54 +00:00			`@l1:`
			`lda (vic),y`
			`bpl @l1`
			`@l2:`
initial import from old sources 2016-02-28 21:35:46 +00:00			`lda (vic),y`
fixed code a bit so it compiles again :) 2017-06-17 00:26:54 +00:00			`bmi @l2`
initial import from old sources 2016-02-28 21:35:46 +00:00
			`cli`
			`jmp restore_bank`