27297 Parallax Inc, 27297 Datasheet - Page 201

• Manufacturer Part Number: 27297
• Description: KIT STAMPWORKS WITH BS2-IC
• Manufacturer: Parallax Inc

Specifications of 27297

• Lead Free Status: Contains lead
• Product: Microcontroller Accessories
• Lead Free Status / Rohs Status: Lead free / RoHS Compliant

' -----[ Subroutines ]-----------------------------------------------------
Get_Buttons:
Print_Day:
' Do a block write to clock registers
Set_Clock:
ENDIF
GOTO Main
btns = %1111
FOR idx = 1 TO 5
NEXT
RETURN
pntr = DayNames + ((day - 1) * 3)
FOR idx = 0 TO 2
NEXT
RETURN
GOSUB I2C_Start
i2cWork = slvAddr & %11111110
GOSUB I2C_TX_Byte
IF (i2cAck = Nak) THEN Set_Clock
i2cWork = 0
GOSUB I2C_TX_Byte
FOR idx = 0 TO 7
ENDIF
btns = btns & ~BtnBus
PAUSE 5
READ (pntr + idx), char
DEBUG char
mins = mins.NIB1 * 10 + mins.NIB0
IF (btnBack = 0) THEN
ELSE
ENDIF
hrs
mins = (mins / 10 << 4) + (mins // 10)
secs = $00
GOSUB Set_Clock
day = ((day - 1) + btnDay // 7) + 1
hrs = hrs + btnHr // 24
mins = mins + btnMn // 60
day = ((day - 1) + (btnDay * 6) // 7) + 1
hrs = hrs + (btnHr * 23) // 24
mins = mins + (btnMn * 59) // 60
= (hrs / 10 << 4) + (hrs // 10)
' increment values
' keep 1 - 7
' keep 0 - 23
' keep 0 - 59
' decimal to BCD
' update DS1307
' enable all four inputs
' test inputs
' delay between tests
' point to 1st char
' print 3 letters
' read letter
' print it
' send Start
' send slave ID (write)
' wait until not busy
' point at secs register
' write secs to control