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

changes for atarixl target

Browse Source
This commit is contained in:
Christian Groessler 2013-08-26 10:36:40 +02:00
parent e4c934b6f5
commit a3511ea93d
1 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
libsrc/atari/ostype.s
View File

@ -41,11 +41,41 @@
.export _get_ostype .export _get_ostype
.if .defined(__ATARIXL__) .if .defined(__ATARIXL__)
.warning "fix me!"
.include "atari.inc"
.import __CHARGEN_START__
.segment "LOWCODE"
.macro disable_rom
pha
lda PORTB
and #$fe
sta PORTB
lda #>__CHARGEN_START__
sta CHBAS
sta CHBASE
pla
.endmacro
.macro enable_rom
lda PORTB
ora #1
sta PORTB
lda #$E0
sta CHBAS
sta CHBASE
.endmacro
.else ; above atarixl, below atari
.macro disable_rom
.endmacro
.macro enable_rom
.endmacro
.endif .endif
.proc _get_ostype .proc _get_ostype
enable_rom
lda $fcd8 lda $fcd8
cmp #$a2 cmp #$a2
beq _400800 beq _400800
@ -67,6 +97,7 @@
and #%00111000 and #%00111000
ora #%11 ora #%11
_fin: ldx #0 _fin: ldx #0
disable_rom
rts rts
; unknown ROM ; unknown ROM
@ -74,6 +105,7 @@ _fin: ldx #0
_unknown: _unknown:
lda #0 lda #0
tax tax
disable_rom
rts rts
; 1200XL ROM ; 1200XL ROM