Tekst źródłowy strony Programowanie: Jak wyszukać pierwszy wolny IOCB

Procedura wyszukuje pierwszy wolny kanał [[IOCB#Struktura IOCB|IOCB]]:

<pre>
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
</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.

[[Kategoria:Niezbędnik kodera]]