;
-; Freddy Offenga & Christian Groessler, August 2003
+; Freddy Offenga & Christian Groessler, December 2004
;
-; function to get default device: char *getdefdev(void);
+; function to get default device: char *_getdefdev(void);
;
; SpartaDOS:
; the ZCRNAME routine is only used to get the default drive because
.include "atari.inc"
.import __dos_type
- .export _getdefdev ; get default device (e.g. "D1:")
+ .export __getdefdev ; get default device (e.g. "D1:")
+.ifdef DYNAMIC_DD
+ .export __defdev
+.endif
; Get default device (LBUF will be destroyed!!)
-_getdefdev:
+__getdefdev:
+.ifdef DEFAULT_DEVICE
+ lda #'0'+DEFAULT_DEVICE
+ sta __defdev+1
+.endif
lda __dos_type ; which DOS?
cmp #ATARIDOS
beq finish
+ cmp #MYDOS
+ beq finish
ldy #BUFOFF
lda #0
ldy #COMFNAM ; COMFNAM is always "Dn:"
lda (DOSVEC),y
- sta defdev
+ sta __defdev
iny
lda (DOSVEC),y
- sta defdev+1
+ sta __defdev+1
-; return ointer to default device
+; Return pointer to default device
-finish: lda #<defdev
- ldx #>defdev
+finish: lda #<__defdev
+ ldx #>__defdev
rts
.data
; Default device
-defdev:
+__defdev:
.byte "D1:", 0