2003-04-14 21:28:51 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 2003-04-14
|
2011-05-13 15:31:26 +00:00
|
|
|
; Stefan Haubenthal, 2011-05-11
|
2003-04-14 21:28:51 +00:00
|
|
|
;
|
|
|
|
|
; Screen size function
|
|
|
|
|
;
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export screensize
|
2003-04-14 21:28:51 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.include "nes.inc"
|
|
|
|
|
.include "get_tv.inc"
|
2003-04-14 21:28:51 +00:00
|
|
|
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.proc screensize
|
2003-04-14 21:28:51 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
jsr _get_tv
|
|
|
|
|
ldx #charsperline
|
|
|
|
|
ldy #screenrows
|
|
|
|
|
cmp #TV::PAL
|
|
|
|
|
beq pal
|
|
|
|
|
dey ; NTSC rows
|
|
|
|
|
pal: rts
|
2003-04-14 21:28:51 +00:00
|
|
|
|
|
|
|
|
.endproc
|
