- lda MLI
- cmp #$4C ; Is MLI present? (JMP opcode)
- bne done
- lda $BFFF ; ProDOS KVERSION
- cmp #$10
- bcs :+
- ora #$10 ; Make high nibble match major version
-: sta __dos_type
-done: rts
+ lda $BF00
+ 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