Вот.
Код:; 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