Programowanie: Jak wyszukać pierwszy wolny IOCB: Różnice pomiędzy wersjami

Z Atariki
Przejdź do nawigacji Przejdź do wyszukiwania
← poprzednia edycjanastępna edycja →

KMK (dyskusja | edycje)

1 grupa użytkowników
9372 edycje
mNie podano opisu zmian
a to można ciut skrócić ;)
Linia 3: Linia 3:
<pre>
<pre>
lookup  ldx #$00
lookup  ldx #$00
        ldy #$01
loop    lda icchid,x
loop    lda icchid,x
         cmp #$ff
         cmp #$ff
Linia 12: Linia 13:
         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>


Wersja z 20 gru 2005, 20:14

Procedura wyszukuje pierwszy wolny kanał IOCB: 

lookup  ldx #$00
        ldy #$01
loop    lda icchid,x
        cmp #$ff
        beq found
        txa
        clc
        adc #$10
        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.

Źródło: „https://atariki.krap.pl/index.php?title=Programowanie:_Jak_wyszukać_pierwszy_wolny_IOCB&oldid=11709”