6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-12 02:30:44 +00:00
Code Issues Projects Releases Wiki Activity

added PAL/NTSC check for 1200xl + XL/XE systems

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@162 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2000-07-17 00:30:01 +00:00
parent 854e34e227
commit badf78999f
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
libsrc/atari/ostype.s
View File

@ -45,6 +45,7 @@
.include "atari.inc" .include "atari.inc"
.export _get_ostype .export _get_ostype
.importzp tmp1
.proc _get_ostype .proc _get_ostype
@ -68,7 +69,28 @@
asl a asl a
asl a asl a
asl a asl a
and #%11100000
ora #%11 ora #%11
_fin_xl:sta tmp1
lda PALNTS ; get OS PAL/NTSC flag (0 = NTSC, 1 = PAL)
beq _xl_ntsc
cmp #1
beq _xl_pal
lda #0
beq _fxlcont
_xl_ntsc:
lda #%10
bne _fxlcont
_xl_pal:lda #1
_fxlcont:
asl a
asl a
asl a
ora tmp1
_fin: ldx #0 _fin: ldx #0
rts rts
@ -99,7 +121,7 @@ _1200_11:
_1200_fin: _1200_fin:
ora #%010 ora #%010
bne _fin bne _fin_xl
; 400/800 ROM ; 400/800 ROM
@ -116,7 +138,7 @@ _400800:
lda #%00110001 lda #%00110001
bne _400800_done bne _400800_done
; 400/900 unknown ; 400/800 unknown
_400800_unknown: _400800_unknown:
lda #%00000001 lda #%00000001