cc65/libsrc/vic20/waitvsync.s

        .export         _waitvsync

        .include        "vic20.inc"

; FIXME
; this flag doesnt work on vic20!!!
; it will have to be filled by a get_tv() constructor or so
PALFLAG		= $2A6		; $01 = PAL, $00 = NTSC

_waitvsync:
        lda     PALFLAG
        beq     @ntsc
        ldx     #(312-8)/2
        .byte $2c
@ntsc:
        ldx     #(262-8)/2
@l2:
        cpx     VIC_HLINE
        bcs     @l2
        rts
rename all waitvblank() to waitvsync() 2017-07-17 21:15:05 +00:00			`.export _waitvsync`
initial import from old sources 2016-02-28 21:35:46 +00:00
fixed code a bit so it compiles again :) 2017-06-17 00:26:54 +00:00			`.include "vic20.inc"`

			`; FIXME`
			`; this flag doesnt work on vic20!!!`
			`; it will have to be filled by a get_tv() constructor or so`
			`PALFLAG = $2A6 ; $01 = PAL, $00 = NTSC`
initial import from old sources 2016-02-28 21:35:46 +00:00
rename all waitvblank() to waitvsync() 2017-07-17 21:15:05 +00:00			`_waitvsync:`
initial import from old sources 2016-02-28 21:35:46 +00:00			`lda PALFLAG`
			`beq @ntsc`
			`ldx #(312-8)/2`
			`.byte $2c`
			`@ntsc:`
			`ldx #(262-8)/2`
			`@l2:`
			`cpx VIC_HLINE`
			`bcs @l2`
			`rts`