When the A/D converter voltage is over threshold, the Mic sends 3 pulses on the call cell phone button (this wakes him up, and calls the last number called stored in the calling list).
After 15 sec, it hooks down.
It waits then a call in to stop the routine. If no answer, the routine is repeated 4 times.
If still no answer, the Mic wait a while (10mn) to redo the operation if the temperature is still up.
Temperature threshold to be set.
/*
* Tempcellularalarm.asm
*
* Created: 25/07/2013 14:33:48
* Author: fg
*/
; ********************************************
; * [Add Project title here] *
; * [Add more info on software version here] *
; * (C)20xx by [Add Copyright Info here] *
; ********************************************
;
; Included header file for target AVR type
.NOLIST
.INCLUDE "tn13Adef.inc" ; Header for ATTINY13
.LIST
;
; ============================================
; H A R D W A R E I N F O R M A T I O N
; ============================================
;
; [Add all hardware information here]
;
; ============================================
; P O R T S A N D P I N S
; ============================================
;
; [Add names for hardware ports and pins here]
; Format: .EQU Controlportout = PORTA
; .EQU Controlportin = PINA
; .EQU LedOutputPin = PORTA2
;
; ============================================
; C O N S T A N T S T O C H A N G E
; ============================================
;
; [Add all constants here that can be subject
; to change by the user]
; Format: .EQU const = $ABCD
;
; ============================================
; F I X + D E R I V E D C O N S T A N T S
; ============================================
;
; [Add all constants here that are not subject
; to change or calculated from constants]
; Format: .EQU const = $ABCD
;
; ============================================
; R E G I S T E R D E F I N I T I O N S
; ============================================
;
; [Add all register names here, include info on
; all used registers without specific names]
; Format: .DEF rmp = R16
.DEF loop1r = R9
.DEF loop2r = R10
.DEF loop3r = R11 ; Loops registers for 0,5 second timer
.DEF Tmaxl = R12
.DEF Tmaxh = R13 ; Low and high bytes for the threshold comparing
.DEF ENDMS = R15 ; 0 register to compare with a counter register (CPI and Skip or branch if equal)
.DEF rmp = R16 ; Multipurpose register
.DEF Ring = R17 ; Ring flag
.DEF Flags = R19 ; End conversion flag
.DEF COUNTER = R21
.DEF COUNTERVAL = R23
.DEF Timerloopcounter = R24 ; multipurpose counters
;
; ============================================
; S R A M D E F I N I T I O N S
; ============================================
;
.DSEG
.ORG 0X0060
; Format: Label: .BYTE N ; reserve N Bytes from Label:
; ============================================
; R E S E T A N D I N T V E C T O R S
; ============================================
;
.CSEG
.ORG $0000
rjmp Main ; Reset vector
reti ; Int vector 1
rjmp PIN0INTERRUPT ; Triggered when a ring come in
reti ; Int vecTOR 3
reti ; Int vector 4
reti ; Int vector 5
rjmp Timerreloadinterrupt ; Large prescaler timer loop interrupt
reti ; Int vector 7
reti ; Int vector 8
rjmp endconversion ; A/N conversion end interrupt
;
; ============================================
; I N T E R R U P T S E R V I C E S
; ============================================
PIN0INTERRUPT :
clr ring
reti ; This routine clears the ring flag so the program stop calling or hang up.
Timerreloadinterrupt :
dec Timerloopcounter
sbi Pinb, 0 ; Toggle led
reti
endconversion :
inc Flags
reti ; Set the flag to follow down when conversion is done
; ============================================
; M A I N P R O G R A M I N I T
; ============================================
;.Avr-Asm-Tutorial 15 http://www.avr-asm-tutorial.net
Main:
; Init stack************************************************************
LDI rmp, LOW(RAMEND) ; Lower byte
OUT SPL,rmp ; to stack pointer
; Init Port B Directions************************************************
ldi rmp, 0b00001000 ; Direction of Port B
; 0 = Led/Ring in
; 1 = Phone pick-up
; 2 = Hook down
; 3 = none
; 4 = Sensor
; 5 = Reset
out DDRB,rmp
; Init Port B levels******************************************************
ldi rmp, 0b0000000
out PortB, rmp
; Set watchdog timer *****************************************************
ldi rmp, 1<
ldi rmp, (1<
; ============================================
; P R O G R A M
; ============================================
ldi Timerloopcounter, 6
loopV :
rcall secondtimer05
dec Timerloopcounter
brne loopV
start :
WDR
sbi DDRB,0
sbi PORTB,0 ; Switch on led (DDRB to out and PortB to + 5 V)
;measureloop :
ldi Flags, 0 ; reset done conversion flag
;Check :
ldi rmp, (1<
ldi rmp, (0<
ldi rmp, 0b11001000
out ADCSRA, rmp ; Enable conversion complete interruption
; Enable analog converter
; Start conversion
sei ; Enable interrupts
Loopwaitconv :
cpi Flags,1 ; Compare flags register with 1 (Flag register-1)
brne Loopwaitconv ; If not 0 loop back
cli ; If flag set, disable interrupts
ldi rmp, 0
out ADCSRA, rmp ; Disable conversion complete interruption
; Disable analog converter
; No conversion
;ldi rmp, 0x43
ldi rmp, -6
mov Tmaxl, rmp
;ldi rmp, 0x01
ldi rmp, -6
mov Tmaxh, rmp ; Load threshold
in rmp, adcl
sub rmp, Tmaxl ; Compare
in rmp, adch
sbc rmp, Tmaxh ; Compare
brpl Phonecall ; Over? => Call
; otherwise, follow down
; LARGEPRESCALERTIMER 10 min Settings****************************************************************************
LARGEPRESCALERTIMER :
LDI Timerloopcounter, 100
LDI COUNTERVAL, 220
RCALL LARGEPRESCALERTIMER ; Set to ~10 min wait
rjmp start
;LARGEPRESCALERTIMER*************************************************************************
; Settings to count with 0,027 second per cycle
; Time = ([312,52 to 392,56 ) + [COUNTERVAL*27322 µs+ 10*26,6 µs ]*Timerloopcounter
; If Timerloopcounter = 0 => Time = 339,12 µs +COUNTERVAL*27307 µs
ldi rmp, (1<
ldi rmp, (1<
out OCR0A, COUNTERVAL ;OcA value
ldi rmp, (1<
ldi rmp, 1<
ldi rmp, (1<
ldi r16, 5
out TCCR0B, r16 ;Set timer prescaler to /1024
ldi rmp, 0<
sei ;5*26,6µs = 133µs Nb : The timer starts counting from here
; Init = 146,28 µs
WaittimerTEN :
wdr ; Watchdog reset.
cpse Timerloopcounter, ENDMS ;[OCR0A*27307 µs+(4+2+4)*26,6]*Timerloopcounter
rjmp WaittimerTEN
sbi PINB,0 ; TOGGLE PIN SO THE LED BLINKS WHILE WAITING
EXIT:
cli
ldi rmp, 1<
ldi rmp, (0<
ldi rmp, (0<
nop ;3
ret ;4+4)*0,83µs = 6.64 µs
; Exit = (159,6 to 239,4 µs)+ 6.64 µs = 166,24 to 246,04 µs
;Pheaune kall*************************************************************************
Phonecall :
ldi counter, 5 ; Set 4 times calling
ldi ring, 1 ; Set ring flag
Phonecallloop :
dec counter
breq lp ; If 4 Times call, go to end
sbi DDRb, 1
rcall secondtimer05
cbi DDRb, 1
rcall secondtimer05
sbi DDRb, 1
rcall secondtimer05
cbi DDRb, 1
rcall secondtimer05
sbi DDRb, 1
rcall secondtimer05
cbi DDRb, 1
rcall secondtimer05 ; Hang up (This model needs 3 times Hang up pushing,
; Wake-up from sleep, last number dialled display, and pick-up)
ldi Timerloopcounter, 20
loopIV :
WDR
rcall secondtimer05
dec Timerloopcounter
brne loopIV ; ; Wait (4 tones or the messagebox)
sbI DDRB, 2
rcall secondtimer05
cbi DDRB, 2 ; Hook down
;Wait & Answer check********************************************************
cbi portb, 0
cbi DDRB, 0 ; Pin0 to in on ring receive mode
ldi rmp, 1<
ldi rmp, 1<
SEI
ldi COUNTERVAL, 2
loopVI :
ldi Timerloopcounter, 230
LDI Timerloopcounter, 10
loopIII :
WDR
rcall secondtimer05
dec Timerloopcounter
brne loopIII
dec COUNTERVAL
brne loopVI
cli ; Wait ~ 5 min an answer
ldi rmp, 0<
ldi rmp, 0<
cpi Ring, 0 ; Compare Ring with 0 (Ring-0)
breq lp ; If answer (Ring register decreased) GOto end
rjmp Phonecallloop ; If not finished, phone again
; secondtimer05***************************************************
secondtimer05 :
ldi rmp, 4
mov loop3r, rmp
ldi rmp, 77
mov loop2r,rmp
mov loop1r,rmp
loop3 :
dec loop3r
BRNE loop2 ; 0,5 second timer
ret
loop2 :
dec loop2r
breq loop3
loop1 :
dec loop1r
breq loop2
rjmp loop1
; End of source code
;
