Можно ли программно определить наличие AY

[Rindex]

Slider, найди тута мою тему про тест-пзу... Там всё с исходами... процедурко определялова АУшки имееццо...

Чтоб не искать, вот вроде она: http://www.zx.pk.ru/showthread.php?t...1%F2-%EF%E7%F3

[Advertiser]

[himik]

а у меня баще

;-------------------------------
;Turbo Sound проверялка
;AY/YM проверялка

        XOR    A
        LD      HL,#FE00
        LD      DE,#FFBF
        LD      BC,#FFFD
        OUT     (C),B   ;SELECT TS AY0 CHRV
        OUT     (C),A   ;SELECT REG 0
        LD      B,E
        OUT     (C),B   ;WRITE #BF IN REG 0 AY0 CHRV
        INC     A
        OUT     (#1F),A ;SELECT TS AY1 POS
        OUT     (C),C   ;WRITE #FD IN REG 0 AY1 POS
        LD      B,D
        OUT     (C),H   ;SELECT TS AY1 CHRV
        OUT     (C),L   ;SELECT REG 0
        LD      B,E
        OUT     (C),H   ;WRITE #FE IN REG 0 AY1 CHRV
        LD      A,L
        OUT     (#1F),A ;SELECT TS AY0 POS
        OUT     (C),L   ;WRITE #00 IN REG 0 AY0 POS
        INC     A
        OUT     (#1F),A ;SELECT TS AY1 POS
        LD      B,D
        OUT     (C),D   ;SELECT TS AY0 CHRV
        OUT     (C),L   ;SELECT REG 0
        IN      A,(C)   ;READ BYTE FROM REG 0
        CP      C
;TS PoS
;TS NPC
;NO AY
;AY/YM

;переходим если нашли Turbo-Sound by NedoPC

        JR      Z,TS_NedoPC

;переходим если нет ваще чипа

        INC     A
        JR      Z,NO_AY

;переходим если нашли Turbo-Sound by PoS
        INC     A
        JR      Z,TS_PoS

;пришли сюда если у нас всего один чип и он есть

;......