Real Time Clock
Basic Stamp 2. Program 1: To DS-1202 by Bob Martin.
Basic Stamp 2. Program 2: To DS-1202 by David
Baker.
Basic Stamp 2. Program 3: To NJU-6355 by Craig
Simmonds.
Basic Stamp 2. Program 4: To PCF8593P by Dragan
Kujovic.
FED Basic Program: To DS-1302 by Mick Gulovsen.
PIC MicroChip Code: To DS-1202 by Mark Sullivan.
PIC MicroChip Code: To DS-1302 by John Sanderson.
DS-1202 problems: by Llewellyn Griffiths.
Interfacing the DS5000 to the DS1307 By Dallas
Semiconductor
Check Additional Data on DS-1202/1302
DS1302 from port d on an 8535 (SIMM100), written in
asm using AVRA assembler. by Ingmar Meins
Introduction
You can easily add a real time clock to most micros using only 3 signals. With careful selection, some pins can be shared with other devices.
I have put together a clock/crystal combination that takes a bit of beating. The Dallas-Semiconductor DS1302 is an 8 pin DIP Trickle Charge Time Keeping Chip that uses a 32.768kHz crystal. This crystal should have a load capacitance of 6pf for reasonable accuracy.
The DS1302 is an enhanced version of the DS1202. Pin 1 is now used to connect to an optional trickle charge for battery or supercap input. It also has 31 bytes of RAM, an extra 7 bytes over the DS1202.
DS1302 in 8 pin DIP.
32.768kHz Crystal to suit.
Check RTC Prices
Beware! These crystals are small, about the width of a very small tooth-pick and about 1/4" long, so don't loose it.
As a working example, I have included in this file some programs I found on the Internet Stamp List, which may be enough get you started towards a result. And if you do get a result, please feedback is nice.
I also have added the code that my friend Mick Gulovsen did using FED Basic and the DS-1302.
The example has some additional overhead for speaker and LCD operation that needs to be weeded out and it's for the DS1202, so it doesn't take advantage of the DS1302 features, but should work straight up, as both devices are code and pin compatible with upward expansion for the DS1302.
From rtm@newton.apple.com Fri Dec 8 17:50:41 1995 Date: Sun, 3 Dec 1995 14:31:55 -0800 From: Bob MartinBack to the Table of ContentsReply to: stamps@parallaxinc.com To: NUNESJ@aol.com, stamps@parallaxinc.com Subject: [STAMPS] Stamp II - time and date Here's the source code for a simple LCD clock using the Stamp II and the dallas semiconductor DS1202 clock chip. The Dallas chip is available mail order from JDR Microdevices. You can get dallas semi spec sheets from their web server at http://www.dalsemi.com Cheers- Bob Martin ' Bob's Clock for the Stamp II - DS120S ' Uses: ' Dallas Semiconductor DS1202 clock chip ' Optrex DMC-16207 16x2 LCD ' Cheezy 2.5" speaker ' Last modified: ' 12/3/95 RTM 1200 ' Stamp II I/O pins: ' 0 LCD 11 8 DS1202 5 rst* ' 1 LCD 12 9 DS1202 6 i/o ' 2 LCD 13 10 DS1202 7 clk ' 3 LCD 14 11 ' 4 LCD 4 12 ' 5 LCD 6 13 cheezy speaker thru 10uf ' 6 14 ' 7 15 ' I/O definitions lcdrs con 4 ' LCD register select lcde con 5 ' LCD enable pin lcdbl con 6 ' LCD backlight control spkr con 13 ' for a cheezy speaker ' Dallas Semiconductor DS1202 clock chip dsrst con 8 ' rst* pin 5 (normally low w 47k) dsio con 9 ' i/o pin 6 dsclk con 10 ' sclk pin 7 (pull low w 47k) ' Constants for addressing the DS1202 clock chip dssec con $80 ' seconds register dsmin con $82 ' minutes register dshr con $84 ' hours register dsdate con $86 ' date dsmon con $88 ' month dsday con $8A ' day of week, 1=sunday dsyear con $8C ' year dsctl con $8E ' control register dsram con $C0 ' start of ram (24 bytes) ' constants for lcd commands posdate con $80 | 40 ' position to line 2 postime con $80 | 4 ' time hh:mm:ss starts here possecs con $80 | 10 ' seconds (ss) starts here ' dsis is the initialisation string for the clock. ' consists of pairs . Note the first entries should ' write enable the clock and then stop it running, and the ' last entries should restart and write protect it! dsis data dsctl,0 ' write enable the clock data dssec,$80 ' stop clock, set secs to 00 data dsyear,$95 ' year 1995 data dsday,6 ' friday data dsmon,$12 ' december data dsdate,$1 ' 1 data dshr,$20 ' 24 hour clock, 2000 data dsmin,$04 ' 04 minutes data dssec,$00 ' start the clock running again data dsctl,$80 ' write protect the clock data 0,0 ' end of the list ' Day of week text (abbreviations) Each entry is 3 bytes ' plus a zero termination character. Sunday=1 dowt data "RTM",0,"Sun",0,"Mon",0,"Tue",0 data "Wed",0,"Thu",0,"Fri",0,"Sat",0 ' variables used in the program ' these variables are copies of the DS1202 registers, and are ' updated as bytes- so you can't change dow to a nybble! secs var byte ' bcd seconds mm var byte ' bcd minutes hh var byte ' bcd hours date var byte ' bcd day of the month month var byte ' bcd month dow var byte ' day of the week, Sunday = 1 year var byte ' bcd year ' general stuff i var word ' computational temp dsaddr var byte ' ds1202 register address we're whacking dsdata var byte ' and the data going back and forth lcdchr var byte ' character sent to LCD bcd var byte ' bcd data sent to LCD ' Start here. low dsrst ' make sure the reset* line is low low dsclk ' same with the clock line nap 2 ' wait for the world to settle gosub lcdinit ' set up the display ' gosub dsinit ' set up the clock ' gosub dsdbg ' Read data from the clock and display date and time gosub dsrd7 ' update time variables gosub tdisplay ' update display ' nap 6 ' snooze a bit ' Top of the clock loop. We wait for the seconds to change, ' napping in low power mode between checking the clock clock1: nap 2 ' delay at low power a while dsaddr = dssec ' look at seconds register gosub dsread ' read seconds register if dsdata = secs then clock1 ' wait if no change clock2: secs = dsdata ' update our number ' tick-tock stuff with the speaker - tone flips between 400 and 800 hz ' based on the low bit of the seconds freqout spkr,30,400+(400*(secs & $01)) ' When the seconds change, we only rewrite the seconds portion of ' the display. clock4: if secs = 0 then clock5 ' a minute has passed lcdchr = possecs bcd = secs gosub wrcb ' put out seconds ' debug HEX secs,cr goto clock1 ' loop ' secs=0, a minute has passed. update vars and rewrite whole display clock5: gosub dsrd7 ' block read all 7 bytes gosub tdisplay ' display date and time ' debug HEX2 hh,":",HEX2 mm,":00",cr clock6: if mm <> 0 then clock1 ' scram if not an hour ' We have reached an hour! Do something exciting! clock7: ' Daylight savings time. I don't mind having to reset mechanical ' clocks when we go on and off dst, but if the thing has a calendar ' in it, it should be able to do daylight savings adjustments itself. if (hh=2) & (dow=1) & ((month=4)|(month=$10)) then ckdst goto clock1 ' loop around ' Check for dalight savings time. We already know it is 2am on a ' Sunday in April or October- do the rest of the test and diddle ' the time if required. ckdst: if (month=10) & (date>$24) then ckdstf ' last Sun in Oct. if (month=4) & (date<8) then ckdsts ' first Sun in April goto clock1 ' not time to correct. ' Fall back - last Sunday in October ckdstf: hh=1 goto ckdstu ' 1 AM and update it ' Spring forward - first Sunday in April ckdsts: hh=3 ' 3 AM ckdstu: gosub dsenab ' write enable the clock dsdata=hh dsaddr=dshr gosub dswrite ' jam in new hour gosub dswp ' write protect the clock goto clock1 ' loop ' tdisplay put hh:mm:ss on line 1 of the display, ' Put dow dd/mm/yy on the LCD in line 2, character position 40. ' The end of this routine shows another space saving trick- replacing ' a gosub xxxx/return sequence with goto xxxx. tdisplay: if mm>0 then tdisp0 lcdchr = $1 gosub lcdcmd ' clear display once per hour pause 1 tdisp0: lcdchr = postime ' put hh:mm:ss on display here bcd = hh ' so it lines up with the date gosub wrcb ' displayed on line 2 lcdchr = ":" ' hh : bcd = mm gosub wrsb ' hh:mm bcd = secs gosub wrsb ' hh:mm:ss i = 4*dow ' index into day of week text lcdchr= posdate ' this is where line 2 starts gosub lcdcmd ' position LCD cursor tdisp1: read dowt+i,lcdchr ' get day of week text if lcdchr = 0 then tdisp2 gosub wrlcd ' put out that character i = i + 1 goto tdisp1 ' loop until 00 byte hit tdisp2: lcdchr = " " bcd = month gosub wrsb ' dow mm lcdchr = "/" bcd = date gosub wrsb ' dow mm/dd bcd = year goto wrsb ' dow mm/dd/yy and return ' debug dump the contents of clock registers- about 48 bytes 'dsdbg: for i=0 to 7 ' dsaddr = $80 | (i+i) ' make a register address ' gosub dsread ' read its contents ' debug "reg ",HEX i," = ",HEX dsdata,cr ' next ' return ' ram test - uses first ram location ' ' ram test pattern - walking 1 followed by walking 0 ' 'dsrt data 1,2,4,8,$10,$20,$40,$80 ' data $7F,$BF,$DF,$EF,$F7,$FB,$FD,$FE,0 ' 'ramtest: ' gosub dsenab ' write enable ram ' i = 0 ' index into rt data ' dsaddr = dsram ' use this loc 'rt1: read dsrt+i,dsdata ' if dsdata = 0 then rtn ' split when 00 hit ' hh=dsdata ' save it off ' gosub dswrite ' write it ' gosub dsread ' debug "wrote ",HEX hh," read ",HEX dsdata,cr ' pause 700 ' i = i + 1 ' goto rt1 ' set up the clock for a reasonable starting time dsinit: i = 0 ' index into initialization data dsi0: read dsis + i,dsaddr ' get address to stuff read dsis + 1 + i,dsdata ' and data to put there if dsaddr = 0 then rtn ' exit when 00 hit gosub dswrite ' write data to the clock i = i+2 ' bump the pointer goto dsi0 ' loop over the list ' read and write subroutines. uses dsaddr and dsdata ' specifying \8 doesn't cost anything in terms of memory use- even ' though it's the default, it's a good reminder to have it present... dsread: dsaddr = dsaddr | 1 ' make sure it's a read! high dsrst ' start read cycle shiftout dsio,dsclk,lsbfirst,[dsaddr\8] ' send address shiftin dsio,dsclk,lsbpre,[dsdata\8] ' get the data low dsrst ' end read cycle return ' write enable and write protect the clock. ' clobbers dsaddr and dsdata dsenab: dsdata = 0 ' 0 to write enable goto dswp0 ' return through write protect code dswp: dsdata = $80 ' set the bit to write protect dswp0: dsaddr = dsctl ' control register, fall into dswrite dswrite: dsaddr = dsaddr & $FE ' make sure a write high dsrst ' start cycle shiftout dsio,dsclk,lsbfirst,[dsaddr\8] ' send address shiftout dsio,dsclk,lsbfirst,[dsdata\8] ' send data low dsrst ' end cycle return ' block read clock vars- unfortunately, shiftin only does ' 16 bits at a shot, so I can't do all 56 bits at once dsrd7: dsaddr = $BF ' clock burst high dsrst ' start the cycle shiftout dsio,dsclk,lsbfirst,[dsaddr\8] shiftin dsio,dsclk,lsbpre,[secs\8] ' 8 for seconds shiftin dsio,dsclk,lsbpre,[mm\8] shiftin dsio,dsclk,lsbpre,[hh\8] shiftin dsio,dsclk,lsbpre,[date\8] shiftin dsio,dsclk,lsbpre,[month\8] shiftin dsio,dsclk,lsbpre,[dow\8] shiftin dsio,dsclk,lsbpre,[year\8] ' thru 8 for year low dsrst return ' LCD support routines - should work with most LCDs using the same ' controller chip. Note that these routines use "pause" and not "nap"- ' we don't want the I/O pins going hi-Z on us... ' LCD init, 4 bit mode, stamp II pins 0-5 LCDinit: dirl = %00111111 ' lcd pins as outputs outl = 00 ' make 'em all low pause 200 ' 200 ms reset time for lcd! outa = %0011 ' 8 bit mode pulsout lcde,1 pause 5 pulsout lcde,1 pulsout lcde,1 ' this insures 8 bit mode outa = %0010 ' now force 4 bit mode pulsout lcde,1 lcdchr = $28 ' force 2 line mode gosub wrlcd lcdchr = $0C ' display on, cursor off, blink off gosub wrlcd lcdchr = 6 ' autoincr cursor, no shift gosub wrlcd lcdchr = 1 ' clear lcd goto lcdcm0 ' exiting through common code ' Send command in lcdchr to the LCD - flip RS, send it, flip RS back. ' preserves lcdchr ' The label "rtn" on the return in this routine is used as a branch ' target in other places in the program to save code space. lcdcmd: low lcdrs ' rs=0 for command mode lcdcm0: gosub wrlcd high lcdrs ' back to character mode rtn: return ' Send character in lcdchr to the LCD. lcdchr preserved. ' Note that lcdrs, register select, is untouched. wrlcd: outa = lcdchr >> 4 ' output high nibble wrlcd1: pulsout lcde,1 outa = lcdchr ' low nibble pulsout lcde,1 return ' code shortening routines - we send a separator or command followed ' by a bcd character to the display a lot. the code also relies on the ' fact that wrlcd and wrbcd use different inputs and preserve them. wrcb: low lcdrs ' select command mode wrsb: gosub wrlcd ' do separator in lcdchr high lcdrs ' fall through to do bcd ' send the BCD byte in bcd to the LCD as 2 characters ' bcd preserved wrbcd: outa = 3 ' output lcdchr as 2 bcd chars pulsout lcde,1 ' hex 3x is a digit outa = bcd >> 4 ' digit info for high digit pulsout lcde,1 outa = 3 ' now do the low digit pulsout lcde,1 outa = bcd ' low nibble pulsout lcde,1 return ' end of the program ' More on the hardware portion: ' Power supplied through an LM2930 to220 5 volt regulator. Average ' current needed is around 5mA ' Rather than use the onboard regulator, the Stamp II is also run ' off the main 3 terminal regulator. Power for the DS1202 clock ' chip is provided through a 1N914 diode from the +5 line, and ' from a 3V lithium coin cell through another 1N914 to provide ' backup power for the clock. ' Pulldown resistors are present on the rst* and clk pins of the ' DS1202 clock chip- this precludes false clocking when the Stamp II ' I/O pins go high impedance for 18ms at the end of each nap. ' On the LCD, pins 3 and 5 of the LCD are tied low, so the LCD is ' treated as a write-only device. With some multi-line LCDs, pin 3 ' may require a negative bias voltage. Even though the LCD is only 16 ' characters wide, the second line at character 40.
From PIC@baker.pc.my Sat Jun 29 07:28:04 1996 Date: Fri, 28 Jun 1996 18:57:42 +0000 From: David BakerBack to the Table of ContentsReply to: stamps@parallaxinc.com To: stamps@parallaxinc.com Subject: Re: [STAMPS] DS1202 & Stamp On 28 Jun 96 at 3:08, WARPEDRIVE@aol.com wrote: > Yes, excellent question.. anyone already written this interface code? I could > really use the time savings about now.. I just had a quick go today - it turned out to be very easy. The program's pretty short so I guess people won't mind if I post it here. I haven't tidied it up yet & there may be a better way to do it, but here it is: '------------------------------------------------------------------------ ' DS1202_C.BS2 ' Written by Dave Baker &nbsnbsp; 28JUN96 ' Sets the Dallas DS1202 real time clock chip to a preset time ' & enables the clock to start counting. ' Reading & writing of time done by burst programming method. CEnable con $55 ' Clock Start MinVal con $59 ' Preset value for minutes HourVal con $23 ' Preset value for hours DayVal con $31 ' Preset value for day MonthVal con $12 ' Preset value for month DCVal con $00 ' Preset value for dow - don't care YearVal con $96 ' Preset value for year RST con 10 ' Reset pin 10 IO con 9 ' IO pin 9 SCLK con 8 ' Serial clock pin 8 pauseval con 1 ' Value for pauses WEnable con $00 ' Write enable WSec con $80 ' Write to seconds register Rsec con $81 ' Read seconds register Wmin con $82 ' Write to minutes register Rmin con $83 ' Read minutes register Whour con $84 ' Write to hours register Rhour con $85 ' Read hours register Wday con $86 ' Write to days register Rday con $87 ' Read day register Wmonth con $88 ' Write to months register Rmonth con $89 ' Read month register Wyear con $8C ' Write to years register Ryear con $8D ' Read year register WCont con $8E ' Write to control register WCB con $BE ' Read clock burst RCB con $BF ' Write clock burst IOSec var word ' store register data for seconds IOMin var word ' store register data for minutes IOHour var word ' store register data for hours IODay var word ' store register data for day IOMonth var word ' store register data for month IODCare var word ' For day of week - don't care IOYear var word ' store register data for year Tmonth1 var byte Tmonth2 var byte Tmonth3 var byte IOMDec var word pause pauseval high RST ' tell 1202 that we want to write a clock burst shiftout IO,SCLK,lsbfirst,[WCB] ' read everything in a burst Shiftout IO,SCLK,lsbfirst,[Cenable,MinVal,HourVal,DayVal,MonthVal,DCVal,YearVal,Wenable] low RST loop: pause pauseval high RST ' tell 1202 that we want to read a clock burst shiftout IO,SCLK,lsbfirst,[RCB] ' read everything in a burst Shiftin IO,SCLK,lsbpre,[IOSec\8,IOMin\8,IOhour\8,IOday\8,IOmonth\8,IODcare\8,IOyear\8] low RST gosub TextMonth gosub display goto loop display: debug HEX2 IOHour,":",Hex2 IOMin,":",Hex2 IOSec," " debug HEX2 IODay," " 'debug HEX2 IOMonth, " " debug Tmonth1,Tmonth2,Tmonth3, " " debug HEX2 IOYear,cr 'pause 100 goto loop TextMonth: ' convert month from BCD to decimal value IOMDec = (IOMonth.nib1 * 10) + (IOMonth.nib0) lookup IOMDec*3,[" ","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],TMonth1 lookup IOMDec*3+1,[" ","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],TMonth2 lookup IOMDec*3+2,[" ","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],TMonth3 return '------------------------------------------------------------------------ Looks like my wordwrap messed up a couple of the lines - the shiftin, shiftout & lookup lines aren't supposed to be wrapped. That's a good start anyway. Don McKenzie has a similar program on his homepage from Bob Martin - I found it after I had already written mine. (Honest!) Actually mine uses the burst programming method which means a lot less code & is faster. Also even though Bob says shifting can only read 16 bits max I had no trouble reading in 8 bytes at a time. Dave
From: "Craig Simmons" simmons@airmail.net To: stamps@parallaxinc.com Subject: [STAMPS] Re: JRC6355ED Real Time Clock Problem Date: Sat, 14 Dec 1996 04:21:25 -0600 Well, I answered my own question on this one, and since it threw me for a loop I thought I would share it with you all. It seems that you have to enable the chip, then disable it between read cycles or the counter will never get incremented. Makes sense, guess I just need some sleep. I have included the code that debugs the time to the screen for those that want to use the chip. It really has a great price compared to the EPSON, but since I haven't used the EPSON, I can't compare. I will say that I had a devil of a time finding information on this chip. Scott Edwards notes in the Nuts and Volts archive were a help for schematics, and some information I found on the PicStic had the instruction set which was invaluable. I ranting again. The code is below. Thanks again for this group and the massive serarch engines on the internet. Craig Simmons ' This code is for the BS2 to read and write the time to an NJU6355ED or JRC6355ED real time clock ' Variables TEMP Var BYTE ENABLE CON 13 IO CON 12 DATAPIN CON 14 CLOCKPIN CON 15 ' Put it into Write Mode and Set Time HIGH IO HIGH ENABLE shiftout DATAPIN,CLOCKPIN,0,[$96\8] ' Year (0-99) shiftout DATAPIN,CLOCKPIN,0,[$12\8] ' Month (1-12) shiftout DATAPIN,CLOCKPIN,0,[$13\8] ' Date (1-31) shiftout DATAPIN,CLOCKPIN,0,[$06\4] ' Day of Week (1-7) shiftout DATAPIN,CLOCKPIN,0,[$08\8] ' Hour (0-24) shiftout DATAPIN,CLOCKPIN,0,[$54\8] ' Minute (0-60) Low ENABLE ' (Seconds reset automatically) &nb ' Put it into Read Mode LOW IO ' Loop to read in the time and display GetTime: HIGH ENABLE ' You have to have this here. shiftin DATAPIN,CLOCKPIN,1,[temp\8] debug hex(temp) ' Year shiftin DATAPIN,CLOCKPIN,1,[temp\8] debug hex(temp) ' Month shiftin DATAPIN,CLOCKPIN,1,[temp\8] debug hex(temp) ' Date shiftin DATAPIN,CLOCKPIN,1,[temp\4] debug hex(temp) ' Day of Week shiftin DATAPIN,CLOCKPIN,1,[temp\8] debug hex(temp) ' Hour shiftin DATAPIN,CLOCKPIN,1,[temp\8] debug hex(temp) ' Minute shiftin DATAPIN,CLOCKPIN,1,[temp\8] debug hex(temp) ' Seconds debug cr LOW ENABLE ' And you have to have this here. pause 1000 GOTO GetTimeBack to the Table of Contents
From: "Dragan Kujovic" dkujovic@EUnet.yu To: "Parallax Inc. Stamps" stamps@parallaxinc.com Subject: [STAMPS] PCF8593P Real Time Clock Date: Tue, 17 Dec 1996 14:23:52 +0100 Respectable Colleagues, I am currently occupied with finishing couple of mine projects which all have RTC implemented. But in Europe is very hard to find products from USA manufacturers, such as Dallas, JRC etc. So, I made RTC with Philips PCF8593P which can be found all over Europe. There is example code for day, date & time clock with daylight savings. Might be useful for implementing in some application. PCF8593 data and application notes can be downloaded from: http://www.semiconductors.philips.com/ Thanks to Jeff Martin for technical support, and thanks to Jordan Haralampopulos for I2C subroutines. =============================================== ' *************************************************** ' PHILIPS Real Time Clock PCF8593P (I2C protocol) ' *************************************************** ' Dragan Kujovic, EMAX Electronics, December 1996. ' USED PRODUCTS: ' Parallax Basic Stamp 2 ' Parallax Serial LCD ( 2 x 16 characters) ' Philips real time clock PCF8593P ' Please be noticed that these products and source code for the RTC ' are not designed for use in life support appliances, devices, ' or systems where malfunction of these products can reasonably be expected ' to result in personal injury ! ' This BS2 code read data from RTC and display it on Parallax serial LCD ' PCF8593 data and application notes can be downloaded from: ' www.semiconductors.philips.com ' BS2 pin description: ' RTC clock => 10 ' RTC data => 11 ' RTC reset => 0 ' LCD Rx => 7 RTCaddress VAR WORD ' 16-bit address RTCaddressHigh VAR RTCaddress.HIGHBYTE ' 8 MS-bit address RTCaddressLow VAR RTCaddress.LOWBYTE ' 8 LS-bit address RTCtemp VAR BYTE ' Temporary variable RTCdata VAR BYTE ' Data variable RTCack VAR BIT &p; ' RTC acknowledge bit RTCclockPin CON 10 ' RTC clock pi RTCdataPin CON 11 ' RTC datin RTCwrite CON %10100010 ' RTC Slave address write RTCread CON %10100011 ' RTC Slave address read ResetRTC CON %00000000 ' Status Byte Default Second VAR BYTE Second Second1 VAR BYTE ' 1 second Second10 VAR BYTE ' 10 seco Minute VAR BYTE Minute Minute1 VAR BYTE ' 1 ute Minute10 VAR BYTE ' 10 minu Hour VAR BYTE &n; ' Hour Hour1 VAR BYTE &p; ' 1 hour Hour10 VAR BYTE 10 hours Date VAR BYTE &n; ' Day Date1 VAR BYTE &p; ' 1 day Date10 VAR BYTE 10 days Day VAR BYTE &nb ' Day Month VAR BYTE &p; ' Month Month1 VAR BYTE 1 month Month10 VAR BYTE ' 10 months Year VAR BYTE &n; ' Year Year1 VAR BYTE &p; ' 4 years EEprom VAR BYTE EEPROM data N VAR BYTE  bsp; ' Universal counter DATA "Sun","Mon","Tue","Wed","Thu","Fri","Sat" DATA "Jan","Feb","Mar","Apr","May","Jun" DATA "Jul","Aug","Sep","Oct","Nov","Dec" ' -------------------------------------------------------- ' PCF8593 need reset only after connection to power supply ' PCF8593 hardware reset (Reset pin pull down) ' LOW 0:PAUSE 500:HIGH 0 ' PCF8593 software reset (Reset all variables) ' FOR N=0 TO 15 ' RTCaddressLow=N ' RTCtemp=ResetRTC ' GOSUB WriteToRTC ' NEXT ' -------------------------------------------------------- ' ------------------------------------------------------------- ' Set current time & date sample => Tue, 17. Dec 1996. 10:00:00 ' For details consult PCF8593 file which can be downloaded from ' www.semiconductors.philips.com ' RTCaddressLow=5: ' Year, Date ' RTCtemp=%00010111: ' 1996 / 17 ' GOSUB WriteToRTC ' RTCaddressLow=6: ' Month, Day ' RTCtemp=%01010010: ' 12 / Tue ' GOSUB WriteToRTC ' RTCaddressLow=4: ' Hour ' RTCtemp=%00010000: ' 10 ' GOSUB WriteToRTC ' RTCaddressLow=3: ' Minute ' RTCtemp=%00000000: ' 0 ' GOSUB WriteToRTC ' ------------------------------------------------------------- SEROUT 7,396,[12," "] ' LCD reset FREQOUT 14,100,3000 ' Make a "beep" RTC: ' Day RTCaddressLow=6 RTCtemp=0 GOSUB ReadFromRTC IF RTCtemp.BIT7=%0 AND RTCtemp.BIT6=%0 AND RTCtemp.BIT5=%0 THEN D0 IF RTCtemp.BIT7=%0 AND RTCtemp.BIT6=%0 AND RTCtemp.BIT5=%1 THEN D1 IF RTCtemp.BIT7=%0 AND RTCtemp.BIT6=%1 AND RTCtemp.BIT5=%0 THEN D2 IF RTCtemp.BIT7=%0 AND RTCtemp.BIT6=%1 AND RTCtemp.BIT5=%1 THEN D3 IF RTCtemp.BIT7=%1 AND RTCtemp.BIT6=%0 AND RTCtemp.BIT5=%0 THEN D4 IF RTCtemp.BIT7=%1 AND RTCtemp.BIT6=%0 AND RTCtemp.BIT5=%1 THEN D5 IF RTCtemp.BIT7=%1 AND RTCtemp.BIT6=%1 AND RTCtemp.BIT5=%0 THEN D6 Days: ' Date RTCaddressLow=5 RTCtemp=0:Date=0:Date1=0:Date10=0 GOSUB ReadFromRTC IF RTCtemp.BIT5=%1 AND RTCtemp.BIT4=%1 THEN D30 IF RTCtemp.BIT5=%1 AND RTCtemp.BIT4=%0 THEN D20 IF RTCtemp.BIT5=%0 AND RTCtemp.BIT4=%1 THEN D10 Dates: Date1=RTCtemp.LOWNIB Date=Date10+Date1 ' Month RTCaddressLow=6 RTCtemp=0:Month=0:Month1=0:Month10=0 GOSUB ReadFromRTC IF RTCtemp.BIT4=%1 THEN M10 Months: Month1=RTCtemp.LOWNIB Month=Month10+Month1 ' Year RTCaddressLow=5 RTCtemp=0:Year=0:Year1=0 GOSUB ReadFromRTC IF RTCtemp.BIT7=%1 AND RTCtemp.BIT6=%1 THEN Y3 IF RTCtemp.BIT7=%1 AND RTCtemp.BIT6=%0 THEN Y2 IF RTCtemp.BIT7=%0 AND RTCtemp.BIT6=%1 THEN Y1 Years: Year=Year1+96 ' Hour RTCaddressLow=4 RTCtemp=0:Hour=0:Hour1=0:Hour10=0 GOSUB ReadFromRTC IF RTCtemp.BIT5=%1 THEN H20 IF RTCtemp.BIT4=%1 THEN H10 Hours: Hour1=RTCtemp.LOWNIB Hour=Hour10+Hour1 ' Minute RTCaddressLow=3 RTCtemp=0:Minute=0:Minute1=0:Minute10=0 GOSUB ReadFromRTC Minutes: Minute10=RTCtemp.HIGHNIB*10 Minute1=RTCtemp.LOWNIB Minute=Minute10+Minute1 ' Second RTCaddressLow=2 RTCtemp=0:Second=0:Second1=0:Second10=0 GOSUB ReadFromRTC Seconds: Second10=RTCtemp.HIGHNIB*10 Second1=RTCtemp.LOWNIB Second=Second10+Second1 ' Daylight savings time ' Last Saturday/Sunday weekend in April and October at 2 AM READ $03E,EEprom IF Hour=2 AND Day=0 AND Month=4 AND Date>24 AND EEprom=0 THEN AddHour READ $03F,EEprom IF Hour=2 AND Day=0 AND Month=10 AND Date>24 AND EEProm=0 THEN SubtractHour FOR N=0 TO 2 READ Day*3+N,EEprom SEROUT 7,396,[27,N,EEprom] NEXT SEROUT 7,396,[27,3,", ",dec Date] SEROUT 7,396,[27,7,"."] FOR N=0 TO 2 READ Month+6*3+N,EEprom SEROUT 7,396,[27,N+9,EEprom] NEXT SEROUT 7,396,[27,13,dec Year,"."] SEROUT 7,396,[27,20,dec Hour] SEROUT 7,396,[27,22,":"] SEROUT 7,396,[27,23,dec Minute] SEROUT 7,396,[27,25,":"] SEROUT 7,396,[27,26,dec Second," "] GOTO RTC D0:Day=0:GOTO Days D1:Day=1:GOTO Days D2:Day=2:GOTO Days D3:Day=3:GOTO Days D4:Day=4:GOTO Days D5:Day=5:GOTO Days D6:Day=6:GOTO Days D10:Date10=10:GOTO Dates D20:Date10=20:GOTO Dates D30:Date10=30:GOTO Dates M10:Month10=10:GOTO Months Y1:Year1=1:GOTO Years Y2:Year1=2:GOTO Years Y3:Year1=3:GOTO Years H10:Hour10=10:GOTO Hours H20:Hour10=20:GOTO Hours AddHour: RTCaddressLow=4 RTCtemp=%00000011: ' Set Hour to 3 AM GOSUB WriteToRTC WRITE $03E,1 WRITE $03F,0 GOTO RTC SubtractHour: RTCaddressLow=4 RTCtemp=%00000001: ' Set Hour to 1 AM GOSUB WriteToRTC WRITE $03F,1 WRITE $03E,0 GOTO RTC ' ************************************************************************* ' Basic Stamp II / I2C SUBROUTINES WriteToRTC: GOSUB StartRTC: ' Send START sequence to RTC RTCdata=RTCwrite: ' Slave address with WRITE command GOSUB TxByte: ' Send slave address with WRITE command to RTC GOSUB RxACK: ' Receive ACK signal from RTC RTCdata=RTCaddressLow: ' RTC writting address determination GOSUB TxByte: ' Send writting address to RTC GOSUB RxACK: ' Receive ACK signal from RTC RTCdata=RTCtemp: ' Write data from temporary variable GOSUB TxByte: ' Send byte to determinated address in RTC GOSUB RxACK: ' Receive ACK signal from RTC GOSUB StopRTC: ' Send STOP sequence to RTC RETURN ReadFromRTC: GOSUB StartRTC: ' Send START sequence to RTC RTCdata=RTCwrite: ' Slave address with WRITE command GOSUB TxByte: ' Send slave address with WRITE command to RTC GOSUB RxACK: ' Receive ACK signal from RTC RTCdata=RTCaddressLow: ' RTC writting address determination GOSUB TxByte: ' Send writting address to RTC GOSUB RxACK: ' Receive ACK signal from RTC GOSUB StartRTC: ' Send again START sequence to RTC RTCdata=RTCread: ' Slave address with READ command GOSUB TxByte: ' Send slave address with READ command to RTC GOSUB RxACK: ' Receive ACK signal from RTC GOSUB RxByte: ' Read data from RTC-a RTCtemp=RTCdata: ' Place data from RTC in RTCtemp variable GOSUB StopRTC: ' Send STOP sequence to RTC RETURN StartRTC: HIGH RTCdataPin: ' RTC data pin high HIGH RTCclockPin: ' RTC clock pin high LOW RTCdataPin: ' RTC data pin low RETURN StopRTC: LOW RTCdataPin: ' RTC data pin low HIGH RTCclockPin: ' RTC clock pin high HIGH RTCdataPin: ' RTC data pin high RETURN TxByte: SHIFTOUT RTCdataPin,RTCclockPin,1,[RTCdata] ' Send byte to RTC RETURN RxByte: SHIFTIN RTCdataPin,RTCclockPin,0,[RTCdata] ' Receive byte from RTC RETURN TxACK: SHIFTOUT RTCdataPin,RTCclockPin,1,[%0\1] ' Send ACK bit to RTC RETURN RxACK: SHIFTIN RTCdataPin,RTCclockPin,0,[RTCack\1] ' Receive ACK bit from RTC RETURN ' ************************************************************************* END =============================================== With best regards, Dipl. Ing. Dragan Kujovic EMAX Electronics Tel. ++381 11 185-188 Fax ++381 11 185-199 E-mail: dkujovic@EUnet.yuBack to the Table of Contents
; This program is for the 16c57 FED Basic
; it drives a 16x2 LCD display on port B and DS1302 on port C
;
; On 1st power-up the CH (clock hold) flag will be set and will
; have to be reset before the clock can count enter your initial time
; below in inithr & initmin variables.
;
; To reset clock after being set the first time just remove power
; and one of the backup batteries connected to VCC1 of the DS1302
;
; RTC chip is wired as follows:
;
; c5=RST, c6=SCLK, c7=I/O
;
; Mick Gulovsen 20-Apr-96 bigmik@blaze.net.au
typesub gettime() ; get time
typesub disptime() ; display time
typesub selreg(data) ; select register
typesub clkwr(data) ; clock data into RTC
typesub clkwr1(data) ; "
typesub initclk()
typefunc clkrd() ; clock data out of RTC
temp=0
hr=0
hrx=0
min=0
minx=0
sec=0
secx=0
reg=0
data=0
begin:
; initial start time here
;
; format as follows
;
; 0xxx yyyy where
;
;xxx=tens of hrs/mins and yyyy=units of hrs/mins
inithr=100001n ; 21:xx
initmin=0110000n ; xx:30
trisc(0) ; set clock I/O to outputs
portc = 0 ; clock I/O Low
;initclk() ; ################ temp always init clock
;goto initlcd:
;************* check if clock running *****************
;
; If seconds reg doesnt change after 1.1 seconds then initialise
; clock using the inithr & initmin variables above.
gettime()
temp=sec
wait(1100)
gettime()
if sec=temp then initclk()
initlcd:
lcd(-2) ; 2 line
lcd(257) ; clear and home
lcdstring("Clock MBG APR-96")
main:
gettime()
disptime()
goto main: ; restart whole cycle
;*************** select Register *******************
sub selreg(data)
trisc(0)
c6 = 0 ; set sclk LOW
c5 = 1 ; set RST high
clkwr1(data)
return
end
;*************** Clock Write *******************
sub clkwr(data)
clkwr1(data)
c5 = 0 ; set RST Low
return
end
;************* output data to RTC *************
sub clkwr1(data)
c7 = data & 1 ;
clocks(1,ADDPORTC+96) ; clock in bit0
c7 = data>>1 & 1 ;
clocks(1,ADDPORTC+96) ; clock in bit1
c7 = data>>2 & 1 ;
clocks(1,ADDPORTC+96) ; clock in bit2
c7 = data>>3 & 1 ;
clocks(1,ADDPORTC+96) ; clock in bit3
c7 = data>>4 & 1 ;
clocks(1,ADDPORTC+96) ; clock in bit4
c7 = data>>5 & 1 ;
clocks(1,ADDPORTC+96) ; clock in bit5
c7 = data>>6 & 1 ;
clocks(1,ADDPORTC+96) ; clock in bit6
c7 = data>>7 & 1 ;
clocks(1,ADDPORTC+96) ; clock in bit7
return
end
;************** read in data from RTC ***********
func clkrd()
trisc(10000000n) ; set I/O for INPUT (c7)
;clocks(1,ADDPORTC+96) ; clock out bit0
; NOTE! This is not needed as the
; act of clocking in the last bit
; of the register select routine
; actually clocks out the 1st bit
; of a following read routine
; because writes are clocked in on
; rising edges of SCLK whereas reads
; are clocked out on falling edges.
if c7=-1 then data=1
if c7=0 then data=0
clocks(1,ADDPORTC+96) ; clock out bit1
if c7=-1 then data=data+2
clocks(1,ADDPORTC+96) ; clock out bit2
if c7=-1 then data=data+4
clocks(1,ADDPORTC+96) ; clock out bit3
if c7=-1 then data=data+8
clocks(1,ADDPORTC+96) ; clock out bit4
if c7=-1 then data=data+16
clocks(1,ADDPORTC+96) ; clock out bit5
if c7=-1 then data=data+32
clocks(1,ADDPORTC+96) ; clock out bit6
if c7=-1 then data=data+64
clocks(1,ADDPORTC+96) ; clock out bit7
if c7=-1 then data=data+64+64
c5 = 0 ; set RST Low
return data
end
;*************** get time *********************
sub gettime()
selreg(10000101n) ; hour reg. (RD)
clkrd() ; read reg
hr=data&15
hrx=(data>>4)&3
selreg(10000011n) ; minutes reg. (RD)
clkrd() ; read reg
min=data&15
minx=(data>>4)&7
selreg(10000001n) ; seconds reg. (RD)
clkrd() ; read reg
sec=data&15
secx=(data>>4)&7
return
end
;*********** display time **********
sub disptime()
lcd(256+192+0) ; position for time display
lcd(hrx+48)
lcd(hr+48)
lcd(':')
lcd(minx+48)
lcd(min+48)
lcd(':')
lcd(secx+48)
lcd(sec+48)
return
end
;************* init clock *********************
sub initclk()
selreg(10001110n) ; Control reg. (WR)
clkwr(0) ; Reset WP flag
selreg(10000100n) ; Hours reg. (WR)
clkwr(inithr)
selreg(10000010n) ; Mins reg. (WR)
clkwr(initmin)
selreg(10010000n) ; Trickle Charge reg (WR)
clkwr(10100101n) ; 1 diode, 2k resistor (2ma charge)
selreg(10000000n) ; secs reg. +CH (bit7) (WR)
clkwr(2) ; +2 secs for initialise delays
return
end
Back to Top of Page
Date: Thu, 25 Jul 1996 From: Mark K SullivanBack to the Table of ContentsSubject: Re: Real Time Clocks (implementing) To: Multiple recipients of list PICLIST I've used Dallas DS1202 with the 16C54. It works well. I powered it from a .22F double layer capacitor when the power is off and it will keep the time for a couple of weeks. I wouldn't think 16C74 software code (using an interrupt timer) would be much bigger than what I used to talk to the DS1202. I used the 1202 because 1> it made the 16C54 code easier (no interrupts y'know) and 2> it made the capacitor backup much easier in my application. Code follows. This ran on an 8 MHz ceramic resonator. Sorry about the documentation (what documentation?!). I didn't know I was going to share it. The times are stored in BCD, just like in the DS1202 documentation. ; PROCESSOR PIC16C54 RADIX DEC ; #include "16c54.inc" ; cblock 8 Timer1 Timer2 Timer3 Count Second Minute Hour Date Month Day Year endc ; ; PB4 - CLOCK to calendar clock #define SCLK portb,4 ; PA2 - I/O to calendar clock. #define CLKDATA porta,2 ; PA3 - RST to calendar clock. #define CLKRST porta,3 ; org 0 ; RESET movlw 00h movwf porta ;turn off outputs movwf portb movlw 00h tris portb ;all outputs movlw 03h tris porta ;PA0,1 are inputs ; ; ; Set time ; call RClock ; movlw 96h movwf Year movlw 08h movwf Date movlw 02h movwf Day movlw 04h movwf Month movlw 17h movwf Hour movlw 25h movwf Minute movlw 00h movwf Second call WClock ;all done stop goto stop ; ; ; Write calendar clock ; WClock bcf SCLK ;negate clock nop nop nop nop bcf CLKDATA bsf CLKRST ;negate RST movlw 03h tris porta ;I/O is output movlw 08eh ;write control register call wbyte movlw 00h ;turn off WP call wbyte movlw 7 movwf Timer3 movlw 80h movwf Count movlw Second movwf fsr wc bcf CLKRST ;assert RST bcf SCLK ;negate clock nop nop nop nop bsf CLKRST ;negate RST movf Count,W call wbyte movf indf,W call wbyte incf fsr incf Count incf Count decfsz Timer3 goto wc bcf CLKRST ;assert RST retlw 0 ; ; ; Read calendar clock ; RClock bcf SCLK ;negate clock nop nop nop nop bcf CLKDATA ;negate I/O bsf CLKRST ;negate RST movlw 03h tris porta ;I/O is output movlw 0bfh ;burst read clock registers call wbyte movlw 07h tris porta ;I/O is input movlw Second movwf fsr call rbyte call rbyte call rbyte call rbyte call rbyte call rbyte call rbyte bcf CLKRST ;assert RST retlw 0 ; wbyte movwf Timer2 movlw 8 movwf Timer1 wbit bcf SCLK btfss Timer2,0 bcf CLKDATA btfsc Timer2,0 bsf CLKDATA nop nop ;data to clock setup nop bsf SCLK rrf Timer2 decfsz Timer1 goto wbit retlw 0 ; rbyte movlw 8 movwf Timer1 rbit bcf SCLK nop nop ;clock to data delay rrf indf bcf indf,7 btfsc CLKDATA bsf indf,7 bsf SCLK nop nop decfsz Timer1 goto rbit incf fsr retlw 0 ; org 1ffh goto RESET ; end
From: Llewellyn Griffiths llga@acslink.aone.net.au Newsgroups: aus.electronics,comp.realtime,comp.arch.embedded Subject: Re: DS 1202 Problem Date: Mon, 13 Jan 1997 19:13:25 +1000 Regarding DS-1202 Problems Some time ago I posted an article regarding problems setting the time and date in a DS-1202 just as it rolled over at midnight. Since nobody responded, I can only assume that this is a problem that is rarely encountered. In the meantime I have received confirmation from Dallas that this condition can occur if the RTC is updated when the chip's internal state machine is rolling over the date and time. It can be easily circumvented by waiting until the midnight rollover has finished before setting the date and time. While this situation obviously does not arise very often, I have posted this article so that anybody who does come across it will not have to waste time trying to determine the cause.Back to the Table of Contents
23 August 1998. Johannesburg John Sanderson, JS Controls. jsand@pixie.co.za notes:- This code was written for a small daughter board, hosting a 16F84, to be built into an existing instrument design. It has a Real Time clock chip [DS1302], that comms. with the F84 by its 3-wire i/f. There is BCD information read in from a mc14433 adc incorporated in a DPM reading engineering units. RS232 serial information is blasted out to a local printer, detailing the time, DPM reading in 3 1/2 digit format, and a serial number incremented in F84 EEPROM in three binary locations. The data could just as easily go to a local PC com:port Lastly, there are a couple of push switches and inputs from reed relays here too, to initiate data dumping. Lots of massage is needed to get the data into the right formats for all this, this can be seen in the subroutinery. Goodly chunks of the code have been cribbed from other folk's past PIClist contributions, and from other places too I'm sure. Having this stuff archived away saved me probably 50% of the time needed to get this app. finished. I've kept the names of the earlier contributors in the source code here as a form of recognition. My most heartfelt thanks go out to them. ;///////////////////////////////////////////////////////////////////////// ;//// rtc1302.ASM &nbsnbsp; //// ;//// &nbsnbsp; //// ;//// This module carries a Dallas DS1302 real time clock part. ; There is NO Xtal or Battery in this part, the time is held in ; registers for year, month, day hour etc. ; communication with the ds1302 is by 3-wire interface /rst,clk,dataq ;//// It reads / communicates with a FEMA MAG-35 panel DVM ;//// This uses a Motorola mc14433 adc, which can have the e.o.c. / d.u. ;//// lines disconnected. ; ; ; Functions:- ; 1. To HOLD DRO display on command of `closed relay' contacts from ; the rr4 contacts on the m/board. ; 2. To send serial output after the HOLD command. ; specs ; baud rate parity data bits stop bits ; 2400 n 8 2 ; data ; year month day hour minute second index break value ; yyyy mm dd hh mm ss iiiiii kkkk ; ; Pushbuttons on unit - or flying umbilical ; 1. to advance time, faster as longer held in ; 2. to retard ; ;//// 16c84 has 32 fregs. 16f84 has 68 fregs. sp; // ;//// pin descriptions, DS 1302:- sp; ;//// 16f84 pin In/Out function **FOR PROTO-PIC ONLY!** ;//// ra0 17 I reed rla 4 closure for HOLD ;//// ra1 18 O rtc /rst pin5 ;//// ra2 1 O rtc clk pin7 ;//// ra3 2 I/O rtc dq data pin6 ;//// ra4 3 O serial out rs232 0-5vdc (or up to 14v) ;//// ;//// rb0 6 I/O interrupt of D.U. of mc14433 adc ;//// rb1 7 I BCD data from mc14433 Q0 pin20 ;//// rb2 8 I BCD Q1 &p; pin21 ;//// rb3 9 I BCD Q2 &p; pin22 ;//// rb4 10 I BCD most sig. Q3 pin23 ;//// rb5 11 I normally HI switches advance time ;//// rb6 12 I " " retard time ;//// rb7 13 spare ;//// &nbsnbsp; ;////////////////////////////////////////////////////////////////////////// ;******************************************assembler directives begin list p=pic16f84 ; list f=inhx8m list r=dec ;radix decimal, keeps operands happy __config _PWRTE_ON &_XT_OSC &_WDT_OFF errorlevel 1,-302 ;kill off page rp0 warnings #include;******************************************assembler directives end ;******************************************system definitions ;FOR PROTO-PIC VERSION ONLY! eerd equ 0 ;eeprom eecon1,0 read bit eewr equ 1 ;eeprom eecon1,1 write bit ;porta rr4 equ 0 ;reed relay4 closure. LO=closed _rst equ 1 ;rtc reset line LO=res clk equ 2 ;rtc clock (=sclk) dataq equ 3 ;rtc dq data line (=I/O) tx equ 4 ;rs232 tx line #define REED4 porta,rr4 ;INPUT ex m/b reed relay4. close=LO #define CLKRST porta,_rst ;RTC reset line LO=reset HI=active #define SCLK porta,clk ;RTC clock line #define CLKDATA porta,dataq ;RTC I/O data line #define SERTX porta,tx ;rs232 serial transmit line ;portb eoc equ 0 ;du = end of conv. int. and HOLD bcd_q0 equ 1 ;bcd data. ls bit bcd_q1 equ 2 ;bcd bcd_q2 equ 3 ;bcd bcd_q3 equ 4 ;bcd data. ms bit up_switch equ 5 ;normally HI switch for up time down_switch equ 6 ;" " " retard time ; equ 7 ;spare #define EOC portb,eoc #define BCD_Q0 portb,bcd_q0 #define BCD_Q1 portb,bcd_q1 #define BCD_Q2 portb,bcd_q2 #define BCD_Q3 portb,bcd_q3 #define UP_SWIT portb,up_switch #define DO_SWIT portb,down_switch ;#define portb, ;general purpose bit definitions ;gpflags register reed equ 0 ;reed relay `got pushed' flag up equ 1 ;up button `already pushed' flag down equ 2 ;down button `already pushed' ;general purpose register definitions cblock 0x0C m_porta ;mirror of port a m_portb ;mirror of port b gpflags ;general flags scratch ;scratch reg for *temporary* use scratch1 ; " &n; count1 ;counts 1,2,3 are for gen purpose count2 ;delay routines count3 ; up_count ;count of 0.1 secs when UP switch closed down_count ;count of 0.1 secs when DOWN switch closed timer1 ;for 8bit rotates in/out timer2 ;per Mark Sullivan's code 25.7.96 timer3 ;for the ds1202 or ds1302 count4 ;real-time-clock second ; minute ; hour ; date ; month ; day ; year ; ds1 ;adc most sig. bcd byte-low nibble only ds2 ; these are the bcd bytes as read in fro ds3 ; the adc, and have been massaged into ds4 ; (not packed) bcd tx_buff ;rs232 send routine pr01 ;rs232 buffer table pointer offset samp_index1 ;sample index no. binary l.s.byte EEPROM samp_index2 ;binary eeprom samp_index3 ;binary most sig. index eeprom byte count5 ;used in binary-to-bcd routine temp_f ;for outputting binary-held data to buff_4 ;bcd. bcd-to-ascii and rs232 buff_3 ;is then possible buff_2 buff_1 temp_a temp_b temp_c temp_d temp_e endc ;*********************************************end system definitions ;*********************************************system origin org 0x000 goto start org 0x004 goto service ;*********************************************end system origin ;************************************************tables first powerup_table1 addwf pcl,same retlw 0x59 ;Y ASCII char retlw 0x65 ;e retlw 0x61 ;a retlw 0x72 ;r retlw 0x20 ; sp retlw 0x4D ;M retlw 0x6F ;o retlw 0x20 ; sp retlw 0x44 ;D retlw 0x61 ;a retlw 0x20 ; sp retlw 0x20 ; sp retlw 0x68 ;h retlw 0x72 ;r retlw 0x20 ; sp retlw 0x6D ;m retlw 0x69 ;i retlw 0x20 ; sp retlw 0x73 ;s retlw 0x65 ;e retlw 0x20 ; sp retlw 0x20 ; sp retlw 0x69 ;i retlw 0x6E ;n retlw 0x64 ;d retlw 0x65 ;e retlw 0x78 ;x retlw 0x20 ; sp retlw 0x20 ; sp retlw 0x20 ; sp retlw 0x46 ;F retlw 0x6F ;o retlw 0x72 ;r retlw 0x63 ;c retlw 0x65 ;e retlw 0x20 ; sp retlw 0x20 ; sp retlw 0x20 ; sp retlw 0x20 ; sp retlw 0x20 ; sp 40thar retlw 0x20 ; sp extrfor surety retlw 0x20 ; sp retlw 0x20 ; sp extrfor surety retlw 0x20 ; sp ;********************************************************end of tables ;*********************************************************initialisations start ;clear all ram registers movlw 0x0C ;start of ram movwf fsr clrf indf ;$-3 to here incf fsr,same btfss fsr,7 goto $-3 ;back to clrf indf  bsp; bsf status,rp0 ;setup trisa, b movlw 00001001b movwf trisa &nb movlw 01111111b movwf trisb bcf status,rp0