2017-07-17 23:04:53 +00:00
|
|
|
;
|
|
|
|
; Written by Groepaz <groepaz@gmx.net>
|
|
|
|
;
|
|
|
|
; void waitvsync (void);
|
|
|
|
;
|
|
|
|
|
2017-07-17 21:15:05 +00:00
|
|
|
.export _waitvsync
|
2016-02-28 21:35:46 +00:00
|
|
|
|
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
|
2016-02-28 21:35:46 +00:00
|
|
|
|
2017-07-17 21:15:05 +00:00
|
|
|
_waitvsync:
|
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
|
|
|
|
|