intercom/test.S at master · iiol/intercom · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
; stack pointer registers
.equ	SPL, 0x3D
.equ	SPH, 0x3E

; interrupt
.equ	GICR, 0x3B
.equ	GIFR, 0x3A
.equ	MCUCR, 0x35

; PORTD pins
.equ	LED_P, 7	; LED
.equ	VLT_P, 6	; intercom line status
.equ	BT0_P, 3	; off-hook button
.equ	BT1_P, 2	; door open button
.equ	MIC_P, 1	; microphone
.equ	DOR_P, 0	; door open signal

.equ	PIND, 0x10
.equ	DDRD, 0x11
.equ	PORTD, 0x12


.data
.org	0x00

h_stat:
	.byte	1


.text
.org	0x00

vectors:
	jmp	init
	jmp	open_door	; INT0
	jmp	handset		; INT1

init:
	ldi	R16, 0b10000011	; DDRD
	ldi	R17, 0b01001100	; PORTD
	clr	R18		; h_stat
	ldi	R19, 0x5F	; SPL
	ldi	R20, 0x04	; SPH
	ldi	R21, 0b10000000	; GICR
	ldi	R22, 0b00001000 ; MCUCR

	out	DDRD, R16	; set LED_P, MIC_P, DOR_P
	out	PORTD, R17	; set LVT_P, BT0_P, BT1_P
	sts	h_stat, R18	; clear h_stat
	out	SPL, R19	; | set stack pointer to the end
	out	SPH, R20	; |
	out	GICR, R21	; enable INT1
	out	MCUCR, R22	; INT1: falling edge

main:
	sbic	PIND, VLT_P	; check intercom line
	jmp	main

call:
	ldi	R16, 0b10000000

	out	GIFR, R16	; | clear interrupt flag
	sei			; | and enable interrupt

	nop			; PWM music from CD

led_blink:
	sbi	PORTD, LED_P	; LED on
	call	delay
	cbi	PORTD, LED_P	; LED off
	call	delay
	jmp	led_blink

; interrupt 1
handset:
	ldi	R16, 0x5F	; SPL
	ldi	R17, 0x04	; SPH
	lds	R18, h_stat

	out	SPL, R16	; | set stack pointer to the end
	out	SPH, R27	; |

	cpi	R18, 0x01	; | if handset is raised,
	breq	put		; | then go to put

raise:
	sbi	PORTD, MIC_P	; mic on
	sbi	PORTD, LED_P	; LED on
	cbi	PORTD, BT0_P

	ldi	R16, 0b11000000	; GICR, GIFR
	ldi	R17, 0b00001110	; MCUCR
	ldi	R18, 0x01	; h_stat

	out	GICR, R16	; enable INT0 and INT1
	out	MCUCR, R17	; INT1: rising edge, INT0: falling edge
	sts	h_stat, R18	; set h_stat

	out	GIFR, R16	; | clear interrupt flags
	sei			; | and enable interrupt

inf:
	jmp	inf

put:
	jmp	init

; interrupt 0
open_door:
	sbi	PORTD, DOR_P
	call	delay
	cbi	PORTD, DOR_P

	reti

delay:
	ldi	R16, 8
dly1:
	ldi	R17, 255
dly2:
	ldi	R18, 255
dly3:
	dec	R18
	brne	dly3

	dec	R17
	brne	dly2

	dec	R16
	brne	dly1

	ret