mirror of
https://github.com/cc65/cc65.git
synced 2024-10-12 15:23:54 +00:00
21 lines
357 B
ArmAsm
21 lines
357 B
ArmAsm
|
|
||
|
|
.export _waitvblank
|
||
|
|
|
||
|
|
.include "c128/c128.inc"
|
||
|
|
|
||
|
|
_waitvblank:
|
||
|
|
lda PALFLAG
|
||
|
|
beq @ntsc
|
||
|
|
ldx #(312-24)-256
|
||
|
|
.byte $2c
|
||
|
|
@ntsc:
|
||
|
|
ldx #(262-4)-256
|
||
|
|
@l1:
|
||
|
|
lda VIC_CTRL1
|
||
|
|
and #$80
|
||
|
|
beq @l1
|
||
|
|
@l2:
|
||
|
|
cpx VIC_HLINE
|
||
|
|
bcs @l2
|
||
|
|
rts
|