New code from Oliver Schmidt

git-svn-id: svn://svn.cc65.org/cc65/trunk@3351 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2005-01-06 12:26:47 +00:00
parent 2ebb276929
commit 8188795240
15 changed files with 123 additions and 144 deletions

View File

@@ -19,7 +19,6 @@
; ProDOS 2.0.2 $22
; ProDOS 2.0.3 $23
.constructor initdostype
.export __dos_type
@@ -36,9 +35,9 @@ initdostype:
bne done
lda $BFFF ; ProDOS KVERSION
cmp #$10
bpl L1
bcs :+
ora #$10 ; Make high nibble match major version
L1: sta __dos_type
: sta __dos_type
done: rts
.bss