cc65/libsrc/c128/waitvblank.s


        .export         _waitvblank

        .include        "c128.inc"

_waitvblank:
@l1:
        lda     VIC_CTRL1
        bpl     @l1
@l2:
        lda     VIC_CTRL1
        bmi     @l2
        rts
initial import from old sources 2016-02-28 21:35:46 +00:00
			`.export _waitvblank`

fixed code a bit so it compiles again :) 2017-06-17 00:26:54 +00:00			`.include "c128.inc"`
initial import from old sources 2016-02-28 21:35:46 +00:00
			`_waitvblank:`
			`@l1:`
			`lda VIC_CTRL1`
fixed code a bit so it compiles again :) 2017-06-17 00:26:54 +00:00			`bpl @l1`
initial import from old sources 2016-02-28 21:35:46 +00:00			`@l2:`
fixed code a bit so it compiles again :) 2017-06-17 00:26:54 +00:00			`lda VIC_CTRL1`
			`bmi @l2`
initial import from old sources 2016-02-28 21:35:46 +00:00			`rts`