6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-22 12:30:41 +00:00
Code Issues Projects Releases Wiki Activity

fixed code a bit so it compiles again :)

Browse Source
This commit is contained in:
mrdudz 2017-06-17 02:26:54 +02:00
parent eb96a90e5f
commit 035621aa95
4 changed files with 22 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
libsrc/c128/waitvblank.s
View File

@ -1,20 +1,13 @@
.export _waitvblank
.include "c128/c128.inc"
.include "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
bpl @l1
@l2:
cpx VIC_HLINE
bcs @l2
lda VIC_CTRL1
bmi @l2
rts

15
libsrc/c64/waitvblank.s
View File

@ -1,20 +1,13 @@
.export _waitvblank
.include "c64/c64.inc"
.include "c64.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
bpl @l1
@l2:
cpx VIC_HLINE
bcs @l2
lda VIC_CTRL1
bmi @l2
rts

27
libsrc/cbm510/waitvblank.s
View File

@ -5,33 +5,22 @@
.importzp vic
.include "cbm510/cbm510.inc"
.include "cbm510.inc"
_waitvblank:
rts ; FIXME
jsr sys_bank ; Switch to the system bank
lda PALFLAG
beq ntsc
ldx #(312-24)-256
.byte $2c
ntsc:
ldx #(262-2)-256
sei
ldy #VIC_CTRL1
l1:
lda (vic),y
and #$80
beq l1
;?!?
; ldy #VIC_HLINE
; txa
;l2:
; cmp (vic),y
; bcs l2
ldy #VIC_CTRL1
@l1:
lda (vic),y
bpl @l1
@l2:
lda (vic),y
bmi @l2
cli
jmp restore_bank

7
libsrc/vic20/waitvblank.s
View File

@ -1,6 +1,11 @@
.export _waitvblank
.include "vic20/vic20.inc"
.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
_waitvblank:
lda PALFLAG