mirror of
https://github.com/a2-4am/4cade.git
synced 2024-09-27 12:57:21 +00:00
156ef569c9
also remove 65C02 BC's Quest, fix error display and documentation
24 lines
637 B
Plaintext
24 lines
637 B
Plaintext
;------------------------------------------------------------------------------
|
|
; IsLowPartition
|
|
; Checks whether image was run from partition 1-4
|
|
;
|
|
; in: none
|
|
; out: C clear if partition is acceptable
|
|
; C set if partition is not acceptable
|
|
; all other flags and registers clobbered
|
|
;------------------------------------------------------------------------------
|
|
|
|
DEVADR01HI = $bf11 ;ProDOS constant
|
|
DEVNUM = $bf30 ;ProDOS constant
|
|
|
|
IsLowPartition
|
|
lda DEVNUM
|
|
and #$70
|
|
lsr
|
|
lsr
|
|
lsr
|
|
tay
|
|
lda DEVADR01HI, y
|
|
cmp #$c8
|
|
rts
|