mirror of
https://github.com/cc65/cc65.git
synced 2024-06-27 12:29:33 +00:00
32 lines
748 B
ArmAsm
32 lines
748 B
ArmAsm
;
|
|
; Stefan Haubenthal, 2004-10-07
|
|
; Based on code from Pu-239
|
|
;
|
|
; unsigned char get_tv (void);
|
|
; /* Return the video mode the machine is using */
|
|
;
|
|
|
|
.include "vic20.inc"
|
|
.include "get_tv.inc"
|
|
|
|
;--------------------------------------------------------------------------
|
|
; _get_tv
|
|
|
|
.proc _get_tv
|
|
|
|
NTSC_LINES = 261
|
|
; detect the system
|
|
lda #TV::NTSC
|
|
tax
|
|
@L0: ldy VIC_HLINE
|
|
cpy #1
|
|
bne @L0 ; wait for line 1
|
|
@L1: ldy VIC_HLINE
|
|
beq @L2 ; line 0 reached -> NTSC
|
|
cpy #NTSC_LINES/2+2
|
|
bne @L1
|
|
lda #TV::PAL
|
|
@L2: rts ; system detected: 0 for NTSC, 1 for PAL
|
|
|
|
.endproc
|