cc65/libsrc/c128/get_tv.s

;
; Ullrich von Bassewitz, 2002-12-03
;
; unsigned char __fastcall__ get_tv (void);
; /* Return the video mode the machine is using */
;

	.include	"get_tv.inc"
        .include        "c128.inc"


;--------------------------------------------------------------------------
; _get_tv

.proc   _get_tv

        ldx     #TV::PAL	; Assume PAL
        lda     PALFLAG
        bne     pal
        dex                     ; NTSC
pal:    txa
        ldx     #0
        rts

.endproc
Added get_tv for several platforms git-svn-id: svn://svn.cc65.org/cc65/trunk@1709 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-12-03 22:19:21 +00:00			`;`
			`; Ullrich von Bassewitz, 2002-12-03`
			`;`
			`; unsigned char __fastcall__ get_tv (void);`
			`; /* Return the video mode the machine is using */`
			`;`

Use get_tv.inc git-svn-id: svn://svn.cc65.org/cc65/trunk@3259 b7a2c559-68d2-44c3-8de9-860c34a00d81 2004-10-26 19:05:19 +00:00			`.include "get_tv.inc"`
Added get_tv for several platforms git-svn-id: svn://svn.cc65.org/cc65/trunk@1709 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-12-03 22:19:21 +00:00			`.include "c128.inc"`


			`;--------------------------------------------------------------------------`
			`; _get_tv`

			`.proc _get_tv`

Use get_tv.inc git-svn-id: svn://svn.cc65.org/cc65/trunk@3259 b7a2c559-68d2-44c3-8de9-860c34a00d81 2004-10-26 19:05:19 +00:00			`ldx #TV::PAL ; Assume PAL`
Added get_tv for several platforms git-svn-id: svn://svn.cc65.org/cc65/trunk@1709 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-12-03 22:19:21 +00:00			`lda PALFLAG`
			`bne pal`
			`dex ; NTSC`
			`pal: txa`
			`ldx #0`
			`rts`

			`.endproc`