6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-25 17:29:50 +00:00
Code Issues Projects Releases Wiki Activity

Use get_tv.inc

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3259 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2004-10-26 19:05:19 +00:00
parent 75f7b6cf4e
commit 7b13d79bde
5 changed files with 11 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libsrc/c128/get_tv.s
View File

@ -5,8 +5,7 @@
; /* Return the video mode the machine is using */
;
.export _get_tv
.include "get_tv.inc"
.include "c128.inc"
@ -15,7 +14,7 @@
.proc _get_tv
ldx #$01 ; Assume PAL
ldx #TV::PAL ; Assume PAL
lda PALFLAG
bne pal
dex ; NTSC

5
libsrc/c16/get_tv.s
View File

@ -5,9 +5,8 @@
; /* Return the video mode the machine is using */
;
.export _get_tv
.include "../plus4/plus4.inc"
.include "get_tv.inc"
;--------------------------------------------------------------------------
@ -15,7 +14,7 @@
.proc _get_tv
ldx #$01 ; Assume PAL
ldx #TV::PAL ; Assume PAL
bit TED_MULTI1 ; Test bit 6
bvc pal
dex ; NTSC

6
libsrc/c64/get_tv.s
View File

@ -5,10 +5,8 @@
; /* Return the video mode the machine is using */
;
.export _get_tv
.include "c64.inc"
.include "get_tv.inc"
;--------------------------------------------------------------------------
; _get_tv
@ -21,4 +19,4 @@
.endproc

5
libsrc/plus4/get_tv.s
View File

@ -5,9 +5,8 @@
; /* Return the video mode the machine is using */
;
.export _get_tv
.include "plus4.inc"
.include "get_tv.inc"
;--------------------------------------------------------------------------
@ -15,7 +14,7 @@
.proc _get_tv
ldx #$01 ; Assume PAL
ldx #TV::PAL ; Assume PAL
bit TED_MULTI1 ; Test bit 6
bvc pal
dex ; NTSC

8
libsrc/vic20/get_tv.s
View File

@ -6,10 +6,8 @@
; /* Return the video mode the machine is using */
;
.export _get_tv
.include "vic20.inc"
.include "get_tv.inc"
;--------------------------------------------------------------------------
; _get_tv
@ -18,7 +16,7 @@
NTSC_LINES = 261
; detect the system
lda #0
lda #TV::NTSC
tax
@L0: ldy VIC_HLINE
cpy #1
@ -27,7 +25,7 @@ NTSC_LINES = 261
beq @L2 ; line 0 reached -> NTSC
cpy #NTSC_LINES/2+2
bne @L1
lda #1
lda #TV::PAL
@L2: rts ; system detected: 0 for NTSC, 1 for PAL
.endproc