Процедура детекта TurboSound.

[Shiru]

Вот.

; TurboSound detected? Return A=0/1 (no/yes)

tsDetect
    ld hl,#fe00
    ld de,#ffbf
    ld bc,#fffd
    out (c),h
    out (c),l
    ld b,e
    out (c),c
    
    ld b,d
    out (c),b
    out (c),l
    ld b,e
    out (c),b
    
    ld b,d
    out (c),h
    out (c),l
    in a,(c)
    cp c
    jr nz,noTS
    
    out (c),d
    out (c),l
    in a,(c)
    cp e
    jr nz,noTS
    ld a,1
    ret
   	
noTS
    xor a
    ret

[Advertiser]