6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-04-05 13:37:17 +00:00
Code Issues Projects Releases Wiki Activity

initialize __dos_type variable

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1361 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cpg 2002-07-16 18:51:30 +00:00
parent 2382690f6e
commit 3fd58b9068
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
libsrc/atari/getargs.s
View File

@ -19,7 +19,7 @@ CL_SIZE = 64 ; command line buffer size
SPACE = 32 ; SPACE char.
.include "atari.inc"
.export getargs, argc, argv
.export getargs, argc, argv, __dos_type
.export _getdefdev ; get default device (e.g. "D1:")
.importzp ptr1
@ -170,6 +170,9 @@ finargs:
; DOS type detection
detect:
lda #ATARIDOS
sta __dos_type ; set default
lda DOS
cmp #$53 ; "S" (SpartaDOS)
beq spdos
@ -186,8 +189,13 @@ detect:
ldy #6 ; OS/A+ has a jmp here
cmp (DOSVEC),y
beq nordos
lda #OSADOS
sta __dos_type
bne spdos1
spdos: sec ; SpartaDOS, OS/A+ or DOS XL
spdos: lda #SPARTADOS
sta __dos_type
spdos1: sec ; SpartaDOS, OS/A+ or DOS XL
rts
nordos: clc ; normal DOS (no args) detected
@ -212,6 +220,8 @@ defdev:
argc: .res 2
argv: .res (1 + MAXARGS) * 2
__dos_type: .res 1
; Buffer for command line / argv strings
ourcl: .res CL_SIZE+1