please dont rip this site

Scenix Lib IO OSI1 Dfs Dtmf.src

;  Filename: DTMF_GEN.SRC

; Author:	Stephen Holland

;		Applications Engineer

;		Scenix Semiconductor Inc.

; Revision:	1.0

; Date:		July 05, 1998

; Part:		SX28AC rev. 2.5

; Freq:		50Mhz

; Compiled using Parallax SX-Key software v0.8

;    

; *This virtual peripheral relies on external RC filters to generate complete

;  DTMF tones.

;

;

; The DTMF number string to be dialed is defined by the label _dialnum.

; Each key can be defined as an 8-bit hex value where the upper and

; lower nibbles repesent the keypad bitwise row and column ($RRRRCCCC).

;

; example: _dialnum	dw	$11,$21,$82,$42,$14,$12,$41,$42,$42,$42,$42,0

; represents the number 14083278888.

;

;		Keypad

;

;		 1209	 1336	 1477	 1633 

;		________________________________

;		|	|	|	|	|

;	 697	| $11	| $12	| $14	| $18	|

;		| (1)	| (2)	| (3)	| (A)	|

;		________________________________

;		|	|	|	|	|

;	 770	| $21	| $22	| $24	| $28	|

;		| (4)	| (5)	| (6)	| (B)	|

;		________________________________

;		|	|	|	|	|

;	 852	| $41	| $42	| $44	| $48	|

;		| (7)	| (8)	| (9)	| (C)	|

;		________________________________

;		|	|	|	|	|

;	 941	| $81	| $82	| $84	| $88	|

;		| (*)	| (0)	| (#)	| (D)	|

;		________________________________

;	

;*************************************************************

; Device

;*************************************************************

		device	pins28,pages4,banks8,oschs

		device	turbo,stackx,optionx

		id	'DTMF_GEN'

		reset	reset_entry

;*************************************************************

; Equates

;*************************************************************

pwm0_pin	=	rb.4

pwm1_pin	=	rb.5

;*************************************************************

; Variables

;*************************************************************

			org	8



temp			ds	1

string			ds	1



;*************************************************************

; Bank 0 variables

;*************************************************************

			org	10h	



timers			=	$



							;timer

timer_accl		ds	1

timer_acch		ds	1

timer_flag		ds	1

;*************************************************************

; Bank 1 variables

;*************************************************************

			org	30h	



pwm			=	$



pwm_duty_1		ds	1

pwm_duty_1_buf		ds	1

pwm_duty_2		ds	1

pwm_duty_2_buf		ds	1

pwm_period_1		ds	1

pwm_period_1_buf	ds	1

pwm_period_2		ds	1

pwm_period_2_buf	ds	1



counter_low		ds	1

counter_high		ds	1



row			ds	1

col			ds	1

;*************************************************************

; Interrupt routine - virtual peripherals

;*************************************************************

			org	0

interrupt					;3 it takes 3 cycles to get an interrupt

		bank	timers			;1

						;timer

		stc				;1 set carry

		add	timer_accl,#1		;2 add timer_accl+carry(=1)

		sc

		jmp	:timer_out



		add	timer_acch,#0

		snc				;1

		setb	timer_flag.0		;1

:timer_out					;=7

;*************************************************************

; D/A Conversions

;*************************************************************

da_conv		bank	pwm			;1

		dec	pwm_duty_1		;1 decrement port_duty

		movb	pwm0_pin,/pwm_duty_1.7	;4 move complement of most significant bit to output

		dec	pwm_duty_2		;1 decrement port_duty

		movb	pwm1_pin,/pwm_duty_2.7	;4 move complement of most significant bit to output



		decsz	pwm_period_1		;1

		jmp	interrupt_out		;3

		mov	pwm_duty_1,#5		;2

		mov	pwm_duty_2,#5		;2

		mov	pwm_period_1,#9		;2



make_dtmf

get_row

		jb	row.0,make697		;4/6

		jb	row.1,make770		;4/6

		jb	row.2,make852		;4/6

		jb	row.3,make941		;4/6



make697		csae	counter_low,#end697	;1 take new table value

		jmp	:continue		;1 

		mov	counter_low,#sine697	;1 reload table-counter

:continue	mov	w,counter_low		;1

		mov	m,#6			;1 set page

		iread				;1 get table_data

		mov	m,#$F			;1

		mov	pwm_duty_1,w		;1

		inc	counter_low		;1

		jmp	get_col



make770		csae	counter_low,#end770	;1 take new table value

		jmp	:continue		;1 

		mov	counter_low,#sine770	;1 reload table-counter

:continue	mov	w,counter_low		;1

		mov	m,#6			;1 set page

		iread				;1 get table_data

		mov	m,#$F			;1

		mov	pwm_duty_1,w		;1

		inc	counter_low		;1

		jmp	get_col



make852		csae	counter_low,#end852	;1 take new table value

		jmp	:continue		;1 

		mov	counter_low,#sine852	;1 reload table-counter

:continue	mov	w,counter_low		;1

		mov	m,#6			;1 set page

		iread				;1 get table_data

		mov	m,#$F			;1

		mov	pwm_duty_1,w		;1

		inc	counter_low		;1

		jmp	get_col



make941		csae	counter_low,#end941	;1 take new table value

		jmp	:continue		;1 

		mov	counter_low,#sine941	;1 reload table-counter

:continue	mov	w,counter_low		;1

		mov	m,#6			;1 set page

		iread				;1 get table_data

		mov	m,#$F			;1

		mov	pwm_duty_1,w		;1

		inc	counter_low		;1



get_col

		jb	col.0,make1209		;4/6

		jb	col.1,make1336		;4/6

		jb	col.2,make1477		;4/6

		jb	col.3,make1633		;4/6



make1209	csae	counter_high,#end1200	;1 take new table value

		jmp	:continue		;1 

		mov	counter_high,#sine1200	;1 reload table-counter

:continue	mov	w,counter_high		;1

		mov	m,#6			;1 set page

		iread				;1 get table_data

		mov	m,#$F			;1

		mov	pwm_duty_2,w		;1 = 21

		inc	counter_high		;1

		jmp	da_out



make1336	csae	counter_high,#end1336	;1 take new table value

		jmp	:continue		;1 

		mov	counter_high,#sine1336	;1 reload table-counter

:continue	mov	w,counter_high		;1

		mov	m,#6			;1 set page

		iread				;1 get table_data

		mov	m,#$F			;1

		mov	pwm_duty_2,w		;1 = 21

		inc	counter_high		;1

		jmp	da_out



make1477	csae	counter_high,#end1477	;1 take new table value

		jmp	:continue		;1 

		mov	counter_high,#sine1477	;1 reload table-counter

:continue	mov	w,counter_high		;1

		mov	m,#7			;1 set page

		iread				;1 get table_data

		mov	m,#$F			;1

		mov	pwm_duty_2,w		;1 = 21

		inc	counter_high		;1

		jmp	da_out



make1633	csae	counter_high,#end1633	;1 take new table value

		jmp	:continue		;1 

		mov	counter_high,#sine1633	;1 reload table-counter

:continue	mov	w,counter_high		;1

		mov	m,#7			;1 set page

		iread				;1 get table_data

		mov	m,#$F			;1

		mov	pwm_duty_2,w		;1 = 21

		inc	counter_high		;1

da_out



interrupt_out	mov	w,#-163			;1	;interrupt every 159 clocks

		retiw				;3

;*************************************************************

; Reset entry

;*************************************************************

reset_entry	mov	!ra,#%0000		;set ra data direction register

		mov	!rb,#%00110000		;set rb data direction register



		mov	m,#$F



		clr	fsr			;reset all ram banks

:loop		setb	fsr.4

		clr	ind

		ijnz	fsr,:loop



		bank	pwm			

		mov	pwm_period_1,#9		;set initial periods

		mov	pwm_period_2,#9



		mov	pwm_duty_1,#5		;set initial duty cycles

		mov	pwm_duty_2,#5



		mov	!option,#%10011111	;enable rtcc interrupt

;*************************************************************

; Main 

;*************************************************************

main_loop

		mov	w,#_dialnum		;send phone number string

		page	DTMF_generation

		call	DTMF_generation



here		jmp	here



		jmp	main_loop

;*************************************************************

; Subroutines 

;*************************************************************

		org	$200

;*************************************************************

; Jump table for page 1

;*************************************************************

DTMF_generation

		jmp	DTMF_generation_jump

DTMF_generation_jump_out

		retp

;*************************************************************

DTMF_generation_jump

		mov	string,w		;send string at w

loop	

		mov	w,string		;read chr at w

		mov	m,#1



		iread

		mov	m,#$F



		test	w			;if 0, exit

		snz

		jmp	DTMF_generation_jump_out



		bank	pwm

		mov	temp,w



		and	w,#$0f			;Keep only the lower 4 bits

		mov	col,w			;This is the column

		swap	temp

		mov	w,temp

		and	w,#$0f			;Keep only the lower 4 bits

		mov	row,w			;This is the row



		setb	ra.3			;Enable output



		mov	m,#$F

		mov	!rb,#%00000000		;1 Enable PWM outputs



		bank	timers			;Send tone for 300ms

		mov	!option,#%11011111	;disable rtcc interrupt

		mov	timer_accl,#$ff		;100mS		

		mov	timer_acch,#$0f		;--//--

		mov	!option,#%10011111	;enable rtcc interrupt

		clrb	timer_flag.0		;Clear overflow-flag

		jnb	timer_flag.0,$		;Is overflow-flag set?



		bank	timers			

		mov	!option,#%11011111	;disable rtcc interrupt

		mov	timer_accl,#$ff		;100mS		

		mov	timer_acch,#$0f		;--//--

		mov	!option,#%10011111	;enable rtcc interrupt

		clrb	timer_flag.0		;Clear overflow-flag

		jnb	timer_flag.0,$		;Is overflow-flag set?



		bank	timers			

		mov	!option,#%11011111	;disable rtcc interrupt

		mov	timer_accl,#$ff		;100mS		

		mov	timer_acch,#$0f		;--//--

		mov	!option,#%10011111	;enable rtcc interrupt

		clrb	timer_flag.0		;Clear overflow-flag

		jnb	timer_flag.0,$		;Is overflow-flag set?



:interdigit	inc	string			;next chr



		clrb	ra.3			;Disable output



		mov	m,#$0f

		mov	!rb,#%00110000		;1 Disable PWM outputs



		bank	timers			;Send tone for 100ms

		mov	!option,#%11011111	;disable rtcc interrupt

		mov	timer_accl,#$ff		;50mS		

		mov	timer_acch,#$7f		;--//--

		mov	!option,#%10011111	;enable rtcc interrupt

		clrb	timer_flag.0		;Clear overflow-flag

		jnb	timer_flag.0,$		;Is overflow-flag set?



		jmp	loop

;*************************************************************

; Data

;*************************************************************

		org	$1a0



_dialnum	dw	$22,0



		org	$600



sine697		=	$

		dw	5	; 1

		dw	6	; 2

		dw	7	; 3

		dw	7	; 4

		dw	8	; 5

		dw	8	; 6

		dw	8	; 7

		dw	8	; 8

		dw	9	; 9

		dw	9	;10

		dw	9	;11

		dw	9	;12

		dw	9	;13

		dw	9	;14

		dw	9	;15

		dw	9	;16

		dw	9	;17

		dw	8	;18

		dw	8	;19

		dw	8	;20

		dw	8	;21

		dw	7	;22

		dw	7	;23

		dw	6	;24

		dw	5	;25

		dw	4	;26

		dw	3	;27

		dw	2	;28

		dw	2	;29

		dw	2	;30

		dw	1	;31

		dw	1	;32

		dw	1	;33

		dw	1	;34

		dw	0	;35

		dw	0	;36

		dw	0	;37

		dw	0	;38

		dw	0	;39

		dw	0	;40

		dw	0	;41

		dw	1	;42

		dw	1	;43

		dw	1	;44

		dw	1	;45

		dw	2	;46

		dw	2	;47

		dw	3	;48

end697		=	$

		dw	4	;49



sine770		=	$

		dw	5	; 1

		dw	6	; 2

		dw	7	; 3

		dw	7	; 4

		dw	7	; 5

		dw	8	; 6

		dw	8	; 7

		dw	8	; 8

		dw	9	; 9

		dw	9	;10

		dw	9	;11

		dw	9	;12

		dw	9	;13

		dw	8	;14

		dw	8	;15

		dw	8	;16

		dw	7	;17

		dw	7	;18

		dw	7	;19

		dw	6	;20

		dw	5	;21

		dw	4	;22

		dw	3	;23

		dw	2	;24

		dw	2	;25

		dw	2	;26

		dw	1	;27

		dw	1	;28

		dw	1	;29

		dw	1	;30

		dw	0	;31

		dw	0	;32

		dw	0	;33

		dw	0	;34

		dw	0	;35

		dw	0	;36

		dw	1	;37

		dw	1	;38

		dw	1	;39

		dw	1	;40

		dw	2	;41

		dw	2	;42

		dw	3	;43

end770		=	$

		dw	4	;44



sine852		=	$

		dw	5	; 1

		dw	6	; 2

		dw	7	; 3

		dw	7	; 4

		dw	7	; 5

		dw	8	; 6

		dw	8	; 7

		dw	8	; 8

		dw	9	; 9

		dw	9	;10

		dw	9	;11

		dw	9	;12

		dw	9	;13

		dw	8	;14

		dw	8	;15

		dw	8	;16

		dw	7	;17

		dw	7	;18

		dw	7	;19

		dw	6	;20

		dw	5	;21

		dw	4	;22

		dw	3	;23

		dw	2	;24

		dw	2	;25

		dw	2	;26

		dw	1	;27

		dw	1	;28

		dw	1	;29

		dw	0	;30

		dw	0	;31

		dw	0	;32

		dw	0	;33

		dw	0	;34

		dw	1	;35

		dw	1	;36

		dw	1	;37

		dw	2	;38

		dw	2	;39

		dw	3	;40

end852		=	$

		dw	4	;41



sine941		=	$

		dw	5	; 1

		dw	6	; 2

		dw	7	; 3

		dw	7	; 4

		dw	8	; 5

		dw	8	; 6

		dw	8	; 7

		dw	9	; 8

		dw	9	; 9

		dw	9	;10

		dw	9	;11

		dw	8	;12

		dw	8	;13

		dw	8	;14

		dw	7	;15

		dw	7	;16

		dw	6	;17

		dw	5	;18

		dw	4	;19

		dw	3	;20

		dw	2	;21

		dw	2	;22

		dw	1	;23

		dw	1	;24

		dw	1	;25

		dw	0	;26

		dw	0	;27

		dw	0	;28

		dw	0	;29

		dw	0	;30

		dw	1	;31

		dw	1	;32

		dw	1	;33

		dw	2	;34

		dw	2	;35

		dw	3	;36

end941		=	$

		dw	4	;37



sine1200	=	$

		dw	5	; 1

		dw	7	; 2

		dw	8	; 3

		dw	8	; 4

		dw	9	; 5

		dw	9	; 6

		dw	10	; 7

		dw	9	; 8

		dw	9	; 9

		dw	8	;10

		dw	8	;11

		dw	7	;12

		dw	6	;13

		dw	5	;14

		dw	4	;15

		dw	3	;16

		dw	2	;17

		dw	1	;18

		dw	1	;19

		dw	0	;20

		dw	0	;21

		dw	0	;22

		dw	0	;23

		dw	0	;24

		dw	1	;25

		dw	1	;26

		dw	2	;27

		dw	3	;28

end1200		=	$

		dw	4	;29



sine1336	=	$

		dw	5	; 1

		dw	7	; 2

		dw	8	; 3

		dw	8	; 4

		dw	9	; 5

		dw	9	; 6

		dw	9	; 7

		dw	9	; 8

		dw	8	; 9

		dw	8	;10

		dw	7	;11

		dw	6	;12

		dw	5	;13

		dw	3	;14

		dw	2	;15

		dw	1	;16

		dw	1	;17

		dw	0	;18

		dw	0	;19

		dw	0	;20

		dw	0	;21

		dw	1	;22

		dw	1	;23

		dw	2	;24

		dw	3	;25

end1336		=	$

		dw	4	;26



		org	$700



sine1477	=	$

		dw	5	; 1

		dw	7	; 2

		dw	8	; 3

		dw	8	; 4

		dw	9	; 5

		dw	9	; 6

		dw	9	; 7

		dw	8	; 8

		dw	8	; 9

		dw	7	;10

		dw	6	;11

		dw	5	;12

		dw	3	;13

		dw	2	;14

		dw	1	;15

		dw	1	;16

		dw	0	;17

		dw	0	;18

		dw	0	;19

		dw	0	;20

		dw	1	;21

		dw	2	;22

		dw	3	;23

end1477		=	$

		dw	4	;24



sine1633	=	$

		dw	5	; 1

		dw	7	; 2

		dw	8	; 3

		dw	8	; 4

		dw	9	; 5

		dw	9	; 6

		dw	9	; 7

		dw	8	; 8

		dw	7	; 9

		dw	6	;10

		dw	5	;11

		dw	3	;12

		dw	2	;13

		dw	1	;14

		dw	1	;15

		dw	0	;16

		dw	0	;17

		dw	0	;18

		dw	1	;19

		dw	2	;20

		dw	3	;21

end1633		=	$

		dw	4	;22

file: /Techref/scenix/lib/io/osi1/dfs/dtmf.src, 13KB, , updated: 1999/2/20 12:23, local time: 2024/11/20 00:15,
TOP NEW HELP FIND: 
18.227.228.238: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?
Please DO link to this page! Digg it! / MAKE!

<A HREF="http://linistepper.com/techref/scenix/lib/io/osi1/dfs/dtmf.src"> scenix lib io osi1 dfs dtmf</A>

Did you find what you needed?