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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user