recognize XDOS -- patch from Stefan Haubenthal

git-svn-id: svn://svn.cc65.org/cc65/trunk@5524 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg
2012-02-11 08:35:54 +00:00
parent 83a1d8b8d3
commit ae39e1c0af
4 changed files with 15 additions and 12 deletions

View File

@@ -11,22 +11,20 @@
; ------------------------------------------------------------------------
; DOS type detection
.segment "INIT"
.segment "INIT"
detect: lda #ATARIDOS
sta __dos_type ; set default
lda DOS
detect: lda DOS
cmp #'S' ; SpartaDOS
beq spdos
cmp #'M' ; MyDOS
beq mydos
cmp #'X' ; XDOS
beq xdos
lda #$4C ; probably default
ldy #COMTAB
lda #$4C
cmp (DOSVEC),y
bne done
ldy #ZCRNAME
cmp (DOSVEC),y
bne done
@@ -41,13 +39,15 @@ spdos: lda #SPARTADOS
.byte $2C ; BIT <abs>
mydos: lda #MYDOS
.byte $2C ; BIT <abs>
xdos: lda #XDOS
sta __dos_type
done: rts
; ------------------------------------------------------------------------
; Data
.bss
__dos_type: .res 1
.bss
__dos_type: .res 1 ; default to ATARIDOS