6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-28 19:29:53 +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 .export _waitvblank
.include "c128/c128.inc" .include "c128.inc"
_waitvblank: _waitvblank:
lda PALFLAG
beq @ntsc
ldx #(312-24)-256
.byte $2c
@ntsc:
ldx #(262-4)-256
@l1: @l1:
lda VIC_CTRL1 lda VIC_CTRL1
and #$80 bpl @l1
beq @l1
@l2: @l2:
cpx VIC_HLINE lda VIC_CTRL1
bcs @l2 bmi @l2
rts rts

15
libsrc/c64/waitvblank.s
View File

@ -1,20 +1,13 @@
.export _waitvblank .export _waitvblank
.include "c64/c64.inc" .include "c64.inc"
_waitvblank: _waitvblank:
lda PALFLAG
beq @ntsc
ldx #(312-24)-256
.byte $2c
@ntsc:
ldx #(262-4)-256
@l1: @l1:
lda VIC_CTRL1 lda VIC_CTRL1
and #$80 bpl @l1
beq @l1
@l2: @l2:
cpx VIC_HLINE lda VIC_CTRL1
bcs @l2 bmi @l2
rts rts

27
libsrc/cbm510/waitvblank.s
View File

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

7
libsrc/vic20/waitvblank.s
View File

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