Proton BASIC Compiler - Interfacing to a DS1990 i-Button device

  • Pic® Basic

  • Interfacing to a DS1990 i-Button device

    A DS1990 is an i-Button device that has a unique ID value imprinted within it. It can be used as an electronic key, or pass etc.. They're quite old devices, but are still extremely valid in modern times.

    The code below illustrates how to interface to a DS1990 one-wire i-Button device

    ' Read a DS1990 on-wire device
       Device = 12F683
       Declare Xtal = 8
       Declare Optimiser_Level = 2
       Declare Serial_Baud = 9600
       Declare Rsout_Pin = GPIO.0
       Declare Rsout_Mode = 0
       Dim tDevicePresent As Bit       ' Holds 1 if the device is present, otherwise 0
       Dim ROM_NO[8] As Byte           ' Holds the read values from the device
       Symbol DQ_Pin = GPIO.1          ' Pin where the device is attached
       GoTo Main                       ' Jump over the subroutines
    ' Read a DS1990 one-wire device
    ' Input     : None
    ' Output    : tDevicePresent will contain 1 if a device is present
    ' Notes     : None
    $define Device_Read() GoSub _Device_Read   
      OWrite DQ_Pin, 1, _No_Device, [$33]
       ORead DQ_Pin, 0, [ROM_NO#0, ROM_NO#1, ROM_NO#2, ROM_NO#3, ROM_NO#4, ROM_NO#5, ROM_NO#6, ROM_NO#7]
       tDevicePresent = 1
        tDevicePresent = 0
       Clear ANSEL                             ' \ Make pins digital
       CMCON0 = 7                              ' /
       While                                   ' Create an infinite loop
           Device_Read()                       ' Attempt to read the device
           If tDevicePresent = 1 Then          ' Is the device present?
               RSOut Dec ROM_NO#0, Dec ROM_NO#1, ",", Dec ROM_NO#2, ",",_
                     Dec ROM_NO#3, ",", Dec ROM_NO#4, ",", Dec ROM_NO#5, ",",_
                     Dec ROM_NO#6, ",", Dec ROM_NO#7, 13
           Else                                ' Otherwise... The device is not present. So....
               RSOut "No Device\r"             ' Transmit a message
           DelayMS 100
    The video below shows the above program running within the proteus simulator:

  • Recent Activity


    PICKitPlus Forum

    Thread Starter: evan

    PICkitPlus PICkitPlus is a total replacement for the existing Microchip PICkit2™ and PICkit3™ Windows GUI software. The PICkitPlus software ...

    rcurl Today, 20:28 Go to last post

    Request for Assistance - PIC16F15323

    Thread Starter: gdesantis

    After having successfully programmed various enhanced PIC16 MCUs, I plan to use a PIC16F15323 in a new application. As always, I first start with a...

    towlerg Today, 13:26 Go to last post