6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-13 09:31:53 +00:00
Code Issues Projects Releases Wiki Activity

New get_tv module from Stefan Haubenthal.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3830 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2008-04-10 20:12:20 +00:00
parent 225e1ca58e
commit 6787fb362f
2 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
libsrc/nes/Makefile
View File

@ -54,6 +54,7 @@ OBJS = _scrsize.o \
crt0.o \
ctype.o \
cvline.o \
get_tv.o \
gotox.o \
gotoxy.o \
gotoy.o \

37
libsrc/nes/get_tv.s Normal file
View File

@ -0,0 +1,37 @@
;
; Stefan Haubenthal, 2007-01-21
;
; unsigned char __fastcall__ get_tv (void);
; /* Return the video mode the machine is using */
;
.include "nes.inc"
.include "get_tv.inc"
.importzp tmp1, tmp2
;--------------------------------------------------------------------------
; _get_tv
.proc _get_tv
lda #TV::NTSC ; assume NTSC
tax ; clear
sta tmp1
sta tmp2
ldy tickcount
wait: cpy tickcount
beq wait
iny ; next tick
loop: cpy tickcount
bne over
inc tmp1
bne loop
inc tmp2
bne loop
over: ldy tmp2
cpy #9
bcc nopal
lda #TV::PAL ; choose PAL
nopal: rts
.endproc