cc65/libsrc/c128/waitvblank.s


        .export         _waitvblank

        .include        "c128.inc"

_waitvblank:

        lda     MODE
        bmi     @c80

@l1:
        bit     VIC_CTRL1
        bpl     @l1
@l2:
        bit     VIC_CTRL1
        bmi     @l2
        rts

@c80:
        ;FIXME: do we have to switch banks?
@l3:
        lda     VDC_INDEX
        and     #$20
        beq     @l3
        rts
initial import from old sources 2016-02-28 22:35:46 +01:00
			`.export _waitvblank`

fixed code a bit so it compiles again :) 2017-06-17 02:26:54 +02:00			`.include "c128.inc"`
initial import from old sources 2016-02-28 22:35:46 +01:00
			`_waitvblank:`
dont trash akku if possible, use VDC register when in 80column mode 2017-06-21 23:18:00 +02:00
			`lda MODE`
			`bmi @c80`

initial import from old sources 2016-02-28 22:35:46 +01:00			`@l1:`
dont trash akku if possible, use VDC register when in 80column mode 2017-06-21 23:18:00 +02:00			`bit VIC_CTRL1`
fixed code a bit so it compiles again :) 2017-06-17 02:26:54 +02:00			`bpl @l1`
initial import from old sources 2016-02-28 22:35:46 +01:00			`@l2:`
dont trash akku if possible, use VDC register when in 80column mode 2017-06-21 23:18:00 +02:00			`bit VIC_CTRL1`
fixed code a bit so it compiles again :) 2017-06-17 02:26:54 +02:00			`bmi @l2`
initial import from old sources 2016-02-28 22:35:46 +01:00			`rts`
dont trash akku if possible, use VDC register when in 80column mode 2017-06-21 23:18:00 +02:00
			`@c80:`
			`;FIXME: do we have to switch banks?`
			`@l3:`
			`lda VDC_INDEX`
			`and #$20`
			`beq @l3`
			`rts`