mirror of
https://github.com/a2-4am/4cade.git
synced 2024-07-06 02:29:01 +00:00
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
|