;
; Ullrich von Bassewitz, 2003-04-14
; Stefan Haubenthal, 2011-05-11
;
; Screen size function
;

        .export         screensize

        .include        "nes.inc"
        .include        "get_tv.inc"


.proc   screensize

        jsr     _get_tv
        ldx     #charsperline
        ldy     #screenrows
        cmp     #TV::PAL
        beq     pal
        dey             ; NTSC rows
pal:    rts

.endproc