Fast test AY

как быстро определить наличие AY?

Записать что-то в порт и прочесть? Или имеется в виду как-то совсем-совсем быстро?

introspec, нет :) чо писать? откуда читать?
есть готовые тесты?

Код:

---

        ; read and save the value in R0
        ld        bc, #FFFD
        xor        a
        out        (c), a
        in        a, (c)
        ; put something different into R0
        xor        %00000001
        ld        l, a
        ld        b, #BF
        out        (c), a
        ; read R0 to see if AY is actually available
        ld        b, #FF
        in        a, (c)
        cp        l
        jr        z, AYIsPresent

---

Примерно вот так я проверяю в своих бордерных просмотрщиках.