Add get_tv.s
This commit is contained in:
parent
c577ec1383
commit
d0d0941a64
1 changed files with 26 additions and 0 deletions
26
libsrc/atari7800/get_tv.s
Normal file
26
libsrc/atari7800/get_tv.s
Normal file
|
@ -0,0 +1,26 @@
|
||||||
|
;
|
||||||
|
; Stefan Haubenthal, 2007-01-21
|
||||||
|
;
|
||||||
|
; unsigned char get_tv (void);
|
||||||
|
; /* Return the video mode the machine is using */
|
||||||
|
;
|
||||||
|
|
||||||
|
.include "atari7800.inc"
|
||||||
|
.include "get_tv.inc"
|
||||||
|
.importzp tmp1, tmp2
|
||||||
|
.import _paldetected
|
||||||
|
|
||||||
|
;--------------------------------------------------------------------------
|
||||||
|
; _get_tv
|
||||||
|
|
||||||
|
.proc _get_tv
|
||||||
|
|
||||||
|
lda _paldetected
|
||||||
|
beq ntsc
|
||||||
|
lda #TV::PAL
|
||||||
|
rts
|
||||||
|
ntsc:
|
||||||
|
lda #TV::NTSC
|
||||||
|
rts
|
||||||
|
|
||||||
|
.endproc
|
Loading…
Add table
Reference in a new issue