initial import from old sources
This commit is contained in:
16
libsrc/vic20/waitvblank.s
Normal file
16
libsrc/vic20/waitvblank.s
Normal file
@@ -0,0 +1,16 @@
|
||||
.export _waitvblank
|
||||
|
||||
.include "vic20/vic20.inc"
|
||||
|
||||
_waitvblank:
|
||||
lda PALFLAG
|
||||
beq @ntsc
|
||||
ldx #(312-8)/2
|
||||
.byte $2c
|
||||
@ntsc:
|
||||
ldx #(262-8)/2
|
||||
@l2:
|
||||
cpx VIC_HLINE
|
||||
bcs @l2
|
||||
rts
|
||||
|
||||
Reference in New Issue
Block a user