| himik |
9th February 2009 23:04 |
а у меня баще :)
Code:
;-------------------------------
;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
;пришли сюда если у нас всего один чип и он есть
;......
|
