Programowanie: Jak stwierdzić obecność SpartaDOS X oraz jego konfigurację pamięci

From Atariki

Wersja z dnia 14:30, 29 wrz 2006 Mikey (Dyskusja | wkład) (Opis dla niekoderów. Requiested by sikor. Silwuple.) ← Previous diff		Wersja z dnia 14:32, 29 wrz 2006 Epi (Dyskusja | wkład) (i po co dirtyhaki) Next diff →
Linia 1:		Linia 1:
-	Procedura sprawdza obecnosc SpartaDOSX oraz jego konfigurację pamięci.	+	Procedura sprawdza obecność SpartaDOS X oraz jego konfigurację pamięci.
	Wynik w akumulatorze, znaczenie poszczególnych wartości podane w komentarzach na końcu.		Wynik w akumulatorze, znaczenie poszczególnych wartości podane w komentarzach na końcu.
-	Wersja polska niedostepna.	+	Wersja polska niedostępna.
	<pre>		<pre>
Linia 10:		Linia 10:
	;		;
-	p0 equ $f0	+	p0 equ $f0
	sparta_detect equ *		sparta_detect equ *
Linia 26:		Linia 26:
	lda $a		lda $a
		+	sec
		+	sbc <$150
	sta p0		sta p0
	lda $b		lda $b
		+	sbc >$150
	sta p0+1		sta p0+1
-
-	sec
-	lda p0
-	sbc <$150
-	sta p0
-	bcs _nxt
-	dec p0+1
-	_nxt dec p0+1 ; dirty hack, MSB of $150 is always 1,so we do a dec instead of sub
	; ok, hopefully we have established the address.		; ok, hopefully we have established the address.
Linia 44:		Linia 39:
	lda (p0),y		lda (p0),y
	rts		rts
-	no_sparta lda #$ff	+	no_sparta lda #$ff
	rts		rts

---

Wersja z dnia 14:32, 29 wrz 2006

Procedura sprawdza obecność SpartaDOS X oraz jego konfigurację pamięci. Wynik w akumulatorze, znaczenie poszczególnych wartości podane w komentarzach na końcu. Wersja polska niedostępna.

; sparta_detect.asm
; (c) idea by KMK, code: mikey
;
; $Id: sparta_detect.asm,v 1.2 2006/09/27 22:59:27 mikey Exp $
; 

p0              equ $f0
                   
sparta_detect   equ *

; if peek($700) = 'S' and bit($701) sets V then we're SDX

                lda $700
                cmp #$53         ; 'S'
                bne no_sparta
                bit $701
                bvc no_sparta

; we're running SDX, find  (DOSVEC)-$150 


                lda $a
                sec
                sbc <$150
                sta p0
                lda $b
                sbc >$150
                sta p0+1

; ok, hopefully we have established the address. 
; now peek at it. return the value. 

                ldy #0
                lda (p0),y
                rts
no_sparta       lda #$ff 
                rts

; if A=$FF -> No SDX :(
; if A=$FE -> SDX is in OSROM mode
; if A=$00 -> SDX doesn't use any XMS banks
; if A=anything else -> BANKED mode, and A is the bank number