; ------------------------------------------------------------------------
; 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
.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