.include "mli.inc"
; Identify DOS version according to:
-; - "Beneath Apple ProDOS", chapter 6-63
-; - "Apple II ProDOS 8 TechNote #023: ProDOS 8 Changes and Minutia"
+; - Beneath Apple ProDOS, chapter 6-63
+; - Apple II ProDOS 8 TechNote #23, ProDOS 8 Changes and Minutia
; - ProDOS TechRefMan, chapter 5.2.4
.segment "INIT"
initdostype:
- lda ENTRY
- cmp #$4C ; Is MLI present? (JMP opcode)
+ lda $BF00
+ cmp #$4C ; Is MLI present? (JMP opcode)
bne done
- lda KVERSION ; ProDOS 8 kernel version
+ lda KVERSION ; ProDOS 8 kernel version
cmp #$10
bcs :+
- ora #$10 ; Make high nibble match major version
+ ora #$10 ; Make high nibble match major version
: sta __dos_type
done: rts