BENEDICIC SAMO [samo.benedicic at HIT.SI] says:
Hi!
I made this to monitor working hours of an oil burner. Clock works only when
RA4 is low. Elapsed time is displayed on four common cathode 7 segment LED
displays, so the clock counts to 9999 hours. It's easy to change it so that
it counts seconds or minutes. Displays are connected like this: RA0-RA3 are
going on bases of four 2N2222 transistors, emitors on GND and collectors on
cathodes of displays. RA2-thousands, RA3-hundreds, RA1-tens, RA0-ones ( I
ones connected them like that and then changed the code to display numbers
right ). Anodes are connected A = RB0 to G=RB6. RA4 has a 10k pullup
resistor connected to +5V and a switch to ground. Code is partially taken
from Microchip AN557, so is the schematics. If you have any questions about
the code, don't hesitate to ask. I would appreciate any comments and
suggestions. If anybody needs english comments on the code, I can translate
it in, like, 10 minutes. Attached is an txt file, you just copy and paste it
to MPLAB. Regards, Samo
;**********************************************************************
; *
; Filename: gorilec.asm *
; Date: 20.12.2000 *
; File Version: 1 *
; *
; Author: Benedièiè Samo *
; Company: Hit *
; *
; *
;**********************************************************************
; *
; Files required: *
; *
; *
; *
;**********************************************************************
; *
; Notes: This is a clock, used to measure the time that oil burner * *
; is on *
; *
;**********************************************************************
list p=16F84A ; list directive to define processor
#include <p16F84A.inc> ; processor specific variable definitions
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
; '__CONFIG' directive is used to embed configuration data within .asm file.
; The lables following the directive are located in the respective .inc file.
; See respective data sheet for additional information on configuration word.
;**************************************************************************************
;
; definition of some shit ( used for easier remembering ) *
;
;**************************************************************************************
w equ 0 ;direction for byte oriented instructions
f equ 1
Z equ 2 ;zero flag
;**************************************************************************************
;
;definition of some registers I'll use
;
;**************************************************************************************
CBLOCK 0Ch ;it's way easier to define registers this way
COUNTER1
COUNTER2
SECONDS
MINUTES
MSD
LSD
OSVEZI
SINK
RES_STEVEC1
RES_STEVEC2
RES_STEVEC3
A_TEMP
UGASNJENO
ENDC
;**************************************************************************************
;
;and some useful macros
;
;**************************************************************************************
BANK0 macro
bcf STATUS, RP0 ;switch to bank0
endm
BANK1 macro
bsf STATUS, RP0 ;bank1
endm
;**************************************************************************************
;
ORG 0 ;main program location
goto START
;
;
;
ORG 4 ;interrupt vector
goto SERVICE_INTERRUPT
;
;
;
START
;
;
call INIT_COUNTERS ;clear counters
call INIT_PORTS ;inicializiraj porte
call INIT_TIMER ;start tmr0
;
;
MAIN
; clrf PORTA
goto MAIN ;37 ciklov do zanke
;
;
;
INIT_COUNTERS
;
clrf COUNTER1
clrf COUNTER2
clrf SECONDS
clrf MINUTES
clrf MSD
clrf LSD
clrf OSVEZI
clrf RES_STEVEC1
clrf RES_STEVEC2
clrf RES_STEVEC3
clrf UGASNJENO
return
;
INIT_PORTS
BANK1
clrf TRISA
bsf TRISA, 4 ;èetrti pin PORTA je vhod, ostalo izhodi
clrf TRISB ;portb so izhodi
;
BANK0
clrf PORTA
clrf PORTB
bsf PORTA, 3 ;omogoèi ponor za najbolj levi display
return
;
INIT_TIMER
BANK1
movlw b'00001000' ;prescaler 1:1
movwf OPTION_REG
;
movlw b'10100000' ;enable TMR0 interrupt
movwf INTCON
;
BANK0 ;we aim to have interrupt every 250 microsec,so we
movlw .8 ;write (256-250+2)=8 to TMR0, because
; movlw .230 ;TEST!!!!
movwf TMR0 ;two clock cycles go by before
;TMR0 is incremented for the first time
return
;
;
;*************************************************************************
;
; All our work will be done here
;
;*************************************************************************
SERVICE_INTERRUPT
BANK0 ;I need 3 cycles to write new
movlw .13 ;value to TMR0+2 cycles to start counting again
; movlw .220 ;TEST!!!!!
movwf TMR0
bcf INTCON, 2 ;clear interrupt flag
;
;****************************************************************************
;
; Vsakih 99 TMR0 interruptov (cca. 40 x na sekundo ) osvežim display.
; 99 je izbrana zato, da se èimmanjkrat primeri, da gre tok
; programa skozi vse rutine, torej, da se ne izvajajo hkrati
; rutine osveževanja displaya in inkrementiranja vseh števcev.
;
;****************************************************************************
;
;
call OSVEZI_DISPLAY ;ja, osveži display
;
;
;***************************************************************************
;
; Preverim tudi stanje reset tipke, ki je povezana na RB0 preko šibkega
; pull-up upora 10k proti masi.
;
;***************************************************************************
;
movf PORTA, w
movwf A_TEMP ;shrani vrednost PORTA
;
clrf PORTA ;poèisti PORTA
BANK1
movlw b'00000001'
movwf TRISB ;RB0 je vhod
bcf OPTION_REG, 7 ;omogoèi pull-up upore
BANK0
btfss PORTB, 0
call RESET ;iz reseta se vrnem Z RB0 kot vhodom
;
BANK1
clrf TRISB
BANK0
;
movf A_TEMP, w
movwf PORTA ;povrni stanje PORTA
;
;
;***************************************************************************
;
; Pred poveèanjem števcev preverim, èe je gorilec prižgan
;
;***************************************************************************
;
btfsc PORTA, 4 ;ali je gorilec prižgan? NI DEBOUNCA
retfie ;ne, odpujsaj nazaj
;
;
incf COUNTER1 ; nadaljuj kot da ni niè
movf COUNTER1, w
xorlw .200 ;ali je 200 (50 ms)?
; xorlw .2 ;TEST!!!!
btfss STATUS, Z ;da, poveèaj naslednjega
retfie ;no, I'm done here
clrf COUNTER1
incf COUNTER2 ;inc next one
movf COUNTER2, w
xorlw .20 ;is it one second yet
; xorlw .2 ; test to make it faster
btfss STATUS, Z
retfie ;no, exit
;
;
clrf COUNTER2 ;yes, clear counter
incf SECONDS ;and increment seconds
movf SECONDS, w
xorlw .60 ;is it one minute yet?
; xorlw .2 ;test
btfss STATUS, Z
retfie ;no, get out
;
clrf SECONDS ;clear seconds
incf MINUTES ;and inc minutes
movf MINUTES, w
xorlw .60 ;is it an hour?
; xorlw .2 ;test
btfss STATUS, Z ;ja, pojdi poservisirat
retfie ;no, go away
;
;**********************************************************************
;
; Vrednost, katero hoèemo imeti na displayu, je shranjena v registrih ZGORNJI
; in VISOKI v obliki štirih BCD vrednosti. Vsakemu displayu pripadajo po
; štirje biti v registru. Tukaj inkrementiram te BCD cifre.
;
;************************************************************************
clrf COUNTER2 ;TEST!!!!!!!!!!!!!!!!!!!!
clrf MINUTES ;pobriši minute
incf MSD, w ;poveèaj v w
andlw b'00001111' ;maskiraj LSD nibble
xorlw .10 ;=10?
btfsc STATUS, Z ;ne, pojdi na naslednjega
goto POVECAJ_DRUGEGA
incf MSD, f ;ja, inkrementiraj prvega
retfie ;in pojdi nazaj
;
;
POVECAJ_DRUGEGA
;
swapf MSD, w ;zamenjaj nibble v w
andlw b'00001111' ;maskiraj visoki nibble
addlw .1 ;poveèaj
movwf MSD
swapf MSD, f ;vzpostavi pravo stanje
xorlw .10 ;=10?
btfsc STATUS, Z
goto NIZKI ;ja,poveèaj drugi register
retfie
;
NIZKI
clrf MSD ;poèisti LSD(vse 0)
;
incf LSD, w ;poveèaj
andlw b'00001111' ;maskiraj visoki nibble
xorlw .10 ;=10?
btfsc STATUS, Z
goto POVECAJ_ZADNJEGA;ja, pobriši in pojdi na èetrti display
incf LSD, f ;ne, poveèaj tega in pojdi nazaj
retfie
;
;
POVECAJ_ZADNJEGA
;
swapf LSD, w ;zamenjaj nibble
andlw b'00001111' ;maskiraj visoke bite
addlw .1 ;poveèaj
movwf LSD
swapf LSD, f ;=10?
xorlw .10
btfss STATUS, Z
retfie ;ne, pojdi nazaj
;
clrf LSD ;ja, ponovi celo vajo
clrf MSD
;
retfie
;****************************************************************************
;
; Rutina osveževanja displaya, pobrana iz Mchipovega
; AN557
;
;****************************************************************************
;
OSVEZI_DISPLAY ;30 ciklov
;
;
movf PORTA, w ;preberi, kateri digit sink je omogoèen
clrf PORTA ;na vhode ta ukaz ne vpliva, ker procesor prebere dejansko stanje
andlw b'00001111' ;obdrži samo pomembne štiri bite
movwf SINK ;in shrani to vrednost
bsf SINK, 4 ;pripravi vrednost za levi display
rrf SINK, f ;ugotovi, kateri display je za osvežit
btfss STATUS, C ;c=1?
bcf SINK, 3
btfsc SINK, 0
goto OSVEZI_CETRTEGA
btfsc SINK, 1
goto OSVEZI_TRETJEGA
btfsc SINK, 2
goto OSVEZI_DRUGEGA
;
OSVEZI_PRVEGA
movf LSD, w
andlw b'00001111'
goto DISPLAY_OUT
;
OSVEZI_DRUGEGA
;
swapf LSD, w ;obrni bite
andlw b'00001111' ;maskiraj nepotrebne
goto DISPLAY_OUT
;
OSVEZI_CETRTEGA
;
movf MSD, w
andlw b'00001111' ;maskiraj višje bite
goto DISPLAY_OUT
;
OSVEZI_TRETJEGA
;
swapf MSD, w
andlw b'00001111'
;
DISPLAY_OUT
;
call LED_TABELA ;rezultat bo maska za doloèeno številko
movwf PORTB ;pošlji na izhod
movf SINK, w ;poišèi sink vrednost
movwf PORTA ;in jo pošlji na izhod
return
;
LED_TABELA
;
addwf PCL, f
retlw b'00111111' ;led drive za 0
retlw b'00000110' ;1
retlw b'01011011' ;2
retlw b'01001111' ;3
retlw b'01100110' ;4
retlw b'01101101' ;5
retlw b'01111101' ;6
retlw b'00000111' ;7
retlw b'01111111' ;8
retlw b'01100111' ;9
;
return
end
Questions:
James Newton replies: The author is samo.benedicic@HIT.SI. Please contact him directly.+
Would you please send me the English version of this code? I'm a beginner with PIC micros and it'll be easier for me to understand in English. Please email to chrisalick@gmail.com
Hello,
Can you send me the "English" version of this code? I have a few errors when I "Build" this code with "MPLAB." One of the errors is "RESET" not defined. Any ideas on this?
Thanks,
Tim
Hi, I need to measure the time elapsed between two signals. I generated the first signal and the second signal is its response. I'm trying to measure distance using an ultrasonic transducer. My first signal is the transmit pulse (INIT), I need to read the time elapsed between that and its recieved pulse(ECHO). I then divide this by 2 to give me my distance. If anyone can help me, I'd really appreciate it!
Comments:
I don't know if this is commercially available but a reasonably priced clock that measures the on time of an oil burner that has the ability to call the home heating oil dealer when a set elapsed time occurs so a delivery can be scheduled could be profitable. If a company wants to make 180 gallon oil deliveries to an account and the oil input is 1 gallon per hour, the clock could be set for 175-180 hours and would have to be reset by the oil driver or automatically. Maybe there can be a clock that measures multiple burners in a single location for a furnace and direct fired hot water heater for example. I am surprised at the difficulty of finding a device like this. Maybe I am not looking in the right places. Low level alarms for underground tanks are too expensive to make installations practical in most cases. I would appreciate a reply.
Carl Chapman
James Newton replies: How would you sense when the burner is on or off? Would a high temperature probe be required?+
Seealso:
| file: /Techref/microchip/countelapsed.htm, 20KB, , updated: 2009/6/12 14:25, local time: 2024/11/19 23:58,
3.146.152.23:LOG IN
|
| ©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions? <A HREF="http://linistepper.com/techref/microchip/countelapsed.htm"> PIC 16F84A elapsed time counter on 4, 7 segment LED's </A> |
| Did you find what you needed? |