6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-07-07 19:29:18 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #624 from polluks/patch-5

Browse Source 
Simpler get_tv
This commit is contained in:
Oliver Schmidt 2018-04-12 17:47:46 +02:00 committed by GitHub
commit f1a7ab9bc6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
libsrc/vic20/get_tv.s
View File

@ -1,12 +1,11 @@
; ;
; Stefan Haubenthal, 2004-10-07 ; Stefan Haubenthal, 2018-04-10
; Based on code from Pu-239 ; Based on code by Mike
; ;
; unsigned char get_tv (void); ; unsigned char get_tv (void);
; /* Return the video mode the machine is using */ ; /* Return the video mode the machine is using */
; ;
.include "vic20.inc"
.include "get_tv.inc" .include "get_tv.inc"
;-------------------------------------------------------------------------- ;--------------------------------------------------------------------------
@ -14,18 +13,13 @@
.proc _get_tv .proc _get_tv
NTSC_LINES = 261
; detect the system ; detect the system
lda #TV::NTSC lda #TV::NTSC
tax tax
@L0: ldy VIC_HLINE ldy $EDE4 ; VIC init table
cpy #1 cpy #5
bne @L0 ; wait for line 1 beq @L0
@L1: ldy VIC_HLINE
beq @L2 ; line 0 reached -> NTSC
cpy #NTSC_LINES/2+2
bne @L1
lda #TV::PAL lda #TV::PAL
@L2: rts ; system detected: 0 for NTSC, 1 for PAL @L0: rts ; system detected: 0 for NTSC, 1 for PAL
.endproc .endproc