;
; Ullrich von Bassewitz, 2003-04-14
-; Stefan Haubenthal, 2007-01-21
+; Stefan Haubenthal, 2011-05-11
;
; Screen size function
;
- .export screensize
+ .export screensize
- .include "nes.inc"
- .include "get_tv.inc"
+ .include "nes.inc"
+ .include "get_tv.inc"
-.proc screensize
+.proc screensize
- jsr _get_tv
- ldx #charsperline
- ldy #screenrows
- cmp #TV::NTSC
- beq nopal
- dey
-nopal: rts
+ jsr _get_tv
+ ldx #charsperline
+ ldy #screenrows
+ cmp #TV::PAL
+ beq pal
+ dey ; NTSC rows
+pal: rts
.endproc