Programowanie: Jak wyszukać pierwszy wolny IOCB
From Atariki
(Różnice między wersjami)
| Wersja z dnia 19:13, 7 wrz 2005 KMK (Dyskusja | wkład) ← Previous diff |
Wersja z dnia 21:52, 7 wrz 2005 KMK (Dyskusja | wkład) (poprawka) Next diff → |
||
| Linia 2: | Linia 2: | ||
| <pre> | <pre> | ||
| - | lookup clc | + | lookup ldx #$00 |
| - | ldx #$00 | + | |
| loop lda icchid,x | loop lda icchid,x | ||
| cmp #$ff | cmp #$ff | ||
| beq found | beq found | ||
| txa | txa | ||
| + | clc | ||
| adc #$10 | adc #$10 | ||
| tax | tax | ||
Wersja z dnia 21:52, 7 wrz 2005
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.
