; ProDOS 8 2.0.3 - $23
;
- .constructor initdostype
- .export __dos_type
+ .constructor initdostype, 19
+ .export __dos_type
- .include "mli.inc"
+ .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)
- 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