mainargs rewrite by Oliver Schmidt

git-svn-id: svn://svn.cc65.org/cc65/trunk@3453 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2005-04-05 21:11:10 +00:00
parent c81dc42f93
commit 1c5c974200
2 changed files with 82 additions and 93 deletions

View File

@@ -20,10 +20,10 @@
; ProDOS 8 2.0.3 - $23
;
.constructor initdostype
.export __dos_type
.constructor initdostype, 25
.export __dos_type
.include "mli.inc"
.include "mli.inc"
; Identify DOS version according to:
; - "Beneath Apple ProDOS", chapter 6-63
@@ -33,16 +33,16 @@
.segment "INIT"
initdostype:
lda ENTRY
cmp #$4C ; Is MLI present? (JMP opcode)
bne done
lda KVERSION ; ProDOS 8 kernel version
cmp #$10
bcs :+
ora #$10 ; Make high nibble match major version
: sta __dos_type
lda ENTRY
cmp #$4C ; Is MLI present? (JMP opcode)
bne done
lda KVERSION ; ProDOS 8 kernel version
cmp #$10
bcs :+
ora #$10 ; Make high nibble match major version
: sta __dos_type
done: rts
.bss
__dos_type: .res 1
__dos_type: .res 1