Programowanie: Jak wyszukać pierwszy wolny IOCB

From Atariki

Revision as of 21:52, 7 wrz 2005; view current revision
←Older revision | Newer revision→
Jump to: navigation, search

Procedura wyszukuje pierwszy wolny kanał IOCB: 

lookup  ldx #$00
loop    lda icchid,x
        cmp #$ff
        beq found
        txa
        clc
        adc #$10
        tax
        bpl loop
        ldy #-95       ;kod błędu "TOO MANY CHANNELS OPEN"
        rts
found   ldy #$01
        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: "http://atariki.krap.pl/index.php/Programowanie:_Jak_wyszuka%C4%87_pierwszy_wolny_IOCB"
Personal tools