Programowanie: Jak wyszukać pierwszy wolny IOCB

From Atariki

Wersja z dnia 21:52, 7 wrz 2005 KMK (Dyskusja | wkład) (poprawka) ← Previous diff		Aktualna wersja 0xF (Dyskusja | wkład) (zbędny clc)
Linia 1:		Linia 1:
-	Procedura wyszukuje pierwszy wolny kanał IOCB:	+	Procedura wyszukuje pierwszy wolny kanał [[IOCB#Struktura_IOCB|IOCB]]:
	<pre>		<pre>
	lookup ldx #$00		lookup ldx #$00
		+	ldy #$01
	loop lda icchid,x		loop lda icchid,x
	cmp #$ff		cmp #$ff
	beq found		beq found
	txa		txa
-	clc	+	adc #$10 ;znacznik C skasowany
-	adc #$10	+
	tax		tax
	bpl loop		bpl loop
	ldy #-95 ;kod błędu "TOO MANY CHANNELS OPEN"		ldy #-95 ;kod błędu "TOO MANY CHANNELS OPEN"
-	rts	+	found rts
-	found ldy #$01	+
-	rts	+
	</pre>		</pre>
	W momencie opuszczenia procedury ze skasowanym znacznikiem N (czyli z wynikiem dodatnim), rejestr X zawiera pomnożony przez 16 numer kanału IOCB gotowego do użycia.		W momencie opuszczenia procedury ze skasowanym znacznikiem N (czyli z wynikiem dodatnim), rejestr X zawiera pomnożony przez 16 numer kanału IOCB gotowego do użycia.
		+
		+	[[Kategoria:Niezbędnik kodera]]

---

Aktualna wersja

Procedura wyszukuje pierwszy wolny kanał IOCB:

lookup  ldx #$00
        ldy #$01
loop    lda icchid,x
        cmp #$ff
        beq found
        txa
        adc #$10       ;znacznik C skasowany
        tax
        bpl loop
        ldy #-95       ;kod błędu "TOO MANY CHANNELS OPEN"
found   rts

W momencie opuszczenia procedury ze skasowanym znacznikiem N (czyli z wynikiem dodatnim), rejestr X zawiera pomnożony przez 16 numer kanału IOCB gotowego do użycia.