' THIS READS FROM BOTH A/D CHANNELS OF THE HCI BOARDS ' BY Perry R. Cook, 1999-2007 ' {$STAMP BS2} ' {$PBASIC 2.5} CS CON 2 ' Chip Select Pin CLK CON 3 ' Clock Pin DIO_n CON 4 ' Data In/Out Pin config VAR NIB ' Configuration bits AD0 VAR WORD ' Analog Data Channel 0 AD1 VAR WORD ' Analog Data Channel 1 HIGH CS HIGH DIO_n myloop: GOSUB convert0: GOSUB convert1: DEBUG DEC AD0, " ", DEC AD1, CR GOTO myloop: convert0: ' Convert channel 0 only config = %1011 LOW CS SHIFTOUT DIO_n,CLK,LSBFIRST,[config\4] SHIFTIN DIO_n,CLK,MSBPOST,[AD0\12] HIGH CS RETURN convert1: ' Convert channel 1 only config = %1111 LOW CS SHIFTOUT DIO_n,CLK,LSBFIRST,[config\4] SHIFTIN DIO_n,CLK,MSBPOST,[AD1\12] HIGH CS RETURN