' =========================================================================
'
'   File...... ADC0832.BS2
'   Purpose...
'   Author.... Jon Williams
'   E-mail.... jwilliams@parallax.com
'   Started...
'   Updated...
'
'   {$STAMP BS2}
'   {$PBASIC 2.5}
'
' =========================================================================


' -----[ Program Description ]---------------------------------------------
'
' *** NOT TESTED ***
'
' Connect 1K resistor between Stamp Dio pin and ADC0832.6 (data out) to
' prevent a damage in the event of a data collision.


' -----[ Revision History ]------------------------------------------------


' -----[ I/O Definitions ]-------------------------------------------------

CS              PIN     0                       ' ADC0832.1
Dio             PIN     1                       ' ADC0832.5 / ADC0832.6
Clk             PIN     2                       ' ADC0832.7


' -----[ Constants ]-------------------------------------------------------


' -----[ Variables ]-------------------------------------------------------

chan            VAR     Nib                     ' channel number
adc0            VAR     Byte                    ' channel 0 value
adc1            VAR     Byte                    ' channel 1 value


' -----[ EEPROM Data ]-----------------------------------------------------


' -----[ Initialization ]--------------------------------------------------

Reset:


' -----[ Program Code ]----------------------------------------------------

Main:
  DO
    GOSUB Read_0832
    DEBUG HOME,
          "Ch0: ", DEC3 adc0, CR,
          "Ch1: ", DEC3 adc1
    PAUSE 100
  LOOP

  END


' -----[ Subroutines ]-----------------------------------------------------

' Reads ADC0832 inputs as single-ended

Read_0832:
  LOW CS
  SHIFTOUT Dio, CLk, MSBFIRST, [%110\3]         ' select channel 0
  SHIFTIN Dio, Clk, MSBPOST, [adc0\9]
  HIGH CS
  LOW CS
  SHIFTOUT Dio, CLk, MSBFIRST, [%111\3]         ' select channel 1
  SHIFTIN Dio, Clk, MSBPOST, [adc1\9]
  HIGH CS
  RETURN 