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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user