telephone.asm

实现LPC936对电话模块的控制,936是一个51核的处理器,用户通过串口可以控制lpc936的各个功能,是51编程比较完备的范例

pop	DPH
pop	DPL
pop	ACC
pop	PSW
reti
;//*******************************End UART FUNCTION*******************************

;//*********************************Simulate BUS FUNCTION********************************
;--------------------
;
;
;
;--------------------
_bus_initial:
setb	BUS_CS
setb	BUS_WR
setb	BUS_RD
ret
;--------------------
;
;13
;--------------------
_bus_writeRegA:
mov	bus_reg,A
rl	A
setb	ACC.6
setb	ACC.7
setb	ACC.5
mov	P0,A
clr	BUS_CS
clr	BUS_WR
nop
setb	BUS_WR
setb	BUS_CS
ret
;--------------------
;
;26
;--------------------
_bus_writeRegB:
push	ACC

mov	A,bus_reg
setb	ACC.4
;//Select RegB
rl	A
setb	ACC.6
setb	ACC.7
setb	ACC.5
mov	P0,A
clr	BUS_CS
clr	BUS_WR
nop
setb	BUS_WR
setb	BUS_CS

pop	ACC
;//Write data to RegB
rl	A
setb	ACC.6
setb	ACC.7
setb	ACC.5
mov	P0,A
clr	BUS_CS
clr	BUS_WR
nop
setb	BUS_WR
setb	BUS_CS
ret
;--------------------
;
;12
;--------------------
_bus_writeData:
rl	A
setb	ACC.6
setb	ACC.7
clr	ACC.5
mov	P0,A
clr	BUS_CS
clr	BUS_WR
nop
setb	BUS_WR
setb	BUS_CS
ret
;--------------------
;
;10
;--------------------
_bus_readData:
clr	BUS_RS0
clr	BUS_CS
clr	BUS_RD
nop
setb	BUS_RD
mov	A,P0
setb	BUS_CS
rr	A
ret
;--------------------
;
;10
;--------------------
_bus_readStatus:
setb	BUS_RS0
clr	BUS_CS
clr	BUS_RD
nop
setb	BUS_RD
mov	A,P0
setb	BUS_CS
rr	A
ret
;//*********************************End BUS FUNCTION****************************

;//********************************Telephone Function**************************
;-			hold
;H,h			hook
;ABC,abc		1101~1111
;D,d			0000
;0			1100
;1~9			0001~1001

TELEPHONE_CODE_TAB:DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		   DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		   DB	0,0,0,06h,0,0,0,0,0,0,05h,0,0,02h,0,0
		   DB	04h,03h,03h,03h,03h,03h,03h,03h,03h,03h,0,0,0,0,0,0
		   DB	0,07h,07h,07h,08h,0,0,0,01h,0,0,0,0,0,0,0
		   DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		   DB	0,07h,07h,07h,08h,0,0,0,01h,0,0,0,0,0,0,0
		   DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		   DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		   DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		   DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		   DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		   DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		   DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		   DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
		   DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0


;--------------------
;
;
;--------------------
_phone_8889_initial:
acall	_bus_readStatus
clr	A
acall	_bus_writeRegA
clr	A
acall	_bus_writeRegA
clr	A
acall	_bus_writeRegB
ret
;--------------------
;
;7+PC(WRITEDATA)+PC(WRITEREGA)
;--------------------
_phone_send_dtmf:
acall	_bus_writeData
mov	A,#01h
acall	_bus_writeRegA
ret
;--------------------
;
;5+PC(WRITEREGA)
;--------------------
_phone_stop_dtmf:
clr	A
acall	_bus_writeRegA
ret
;--------------------
;
;
;--------------------
_dial_init:
clr	phone_dial_start
clr	dial_return_ok_flag
mov	phone_dial_counter,#00h
mov	phone_dial_length,#00h
mov	phone_dial_head,#00h
mov	phone_dial_tail,#00h
ret

;--------------------
;45+PC(_phone_send_dtmf)
;16+PC(TIME_FORMAT)+PC(DIAL_STOP_OK)
;--------------------
_phone_dial:
jnb	phone_dial_start,_phone_dial_exit
mov	A,phone_dial_counter
jnz	_phone_dial_exit
jnb	phone_dial_code_flag,_phone_dial_notone

mov	A,phone_dial_length
jnz	_phone_dial_senddtmf
clr	phone_dial_start
mov	R2,#HIGH(dial_timer_stamp_buffer)
mov	R3,#LOW(dial_timer_stamp_buffer)
lcall	_time_format
setb	dial_return_ok_flag
ljmp	_dial_stop_ok

_phone_dial_senddtmf:
mov	DPTR,#phone_dial_buffer
mov	A,phone_dial_head
add	A,DPL
mov	DPL,A
movx	A,@DPTR
mov	phone_dial_temp,A
mov	DPTR,#TELEPHONE_CODE_TAB
movc	A,@A+DPTR
mov	DPTR,#TELEPHONE_CODE_JUMP_TAB
rl	A
push	ACC
movc	A,@A+DPTR
mov	R7,A
pop	ACC
inc 	A
movc	A,@A+DPTR
mov	DPH,R7
mov	DPL,#00h
jmp	@A+DPTR


_phone_dial_notone:
mov	A,phone_dial_temp
cjne	A,#01h,$+14h
setb	PHONE_HOOK
inc	phone_dial_head
anl	phone_dial_head,#PHONE_DIAL_SIZE_MASK
dec	phone_dial_length
sjmp	_phone_dial
setb	phone_dial_code_flag
acall	_phone_stop_dtmf
mov	phone_dial_counter,dtmf_off_period
inc	phone_dial_head
anl	phone_dial_head,#PHONE_DIAL_SIZE_MASK
dec	phone_dial_length
_phone_dial_exit:
ret


TELEPHONE_CODE_JUMP_TAB:DW	ERR_CODE_PROC
			DW	HOOK_PROC
			DW	HOLD_PROC
			DW	NORMAL_CODE_PROC
			DW	ZERO_CODE_PROC
			DW	ASTERISK_CODE_PROC
			DW 	WELL_CODE_PROC
			DW	ABC_CODE_PROC
			DW	D_CODE_PROC

ERR_CODE_PROC:
inc	phone_dial_head
anl	phone_dial_head,#PHONE_DIAL_SIZE_MASK
dec	phone_dial_length
ret

HOOK_PROC:
clr	phone_dial_code_flag
clr	PHONE_HOOK
mov	phone_dial_counter,hook_updown_period
ret

HOLD_PROC:
mov	phone_dial_counter,hold_period
inc	phone_dial_head
anl	phone_dial_head,#PHONE_DIAL_SIZE_MASK
dec	phone_dial_length
ret

NORMAL_CODE_PROC:
mov	A,phone_dial_temp
clr	phone_dial_code_flag
lcall	_phone_send_dtmf
mov	phone_dial_counter,dtmf_on_period
ret

ZERO_CODE_PROC:
mov	A,#0ah
clr	phone_dial_code_flag
lcall	_phone_send_dtmf
mov	phone_dial_counter,dtmf_on_period
ret

ASTERISK_CODE_PROC:
mov	A,#0bh
clr	phone_dial_code_flag
lcall	_phone_send_dtmf
mov	phone_dial_counter,dtmf_on_period
ret

WELL_CODE_PROC:
mov	A,#0ch
clr	phone_dial_code_flag
lcall	_phone_send_dtmf
mov	phone_dial_counter,dtmf_on_period
ret

ABC_CODE_PROC:
mov	A,phone_dial_temp
add	A,#0ch
clr	phone_dial_code_flag
lcall	_phone_send_dtmf
mov	phone_dial_counter,dtmf_on_period
ret

D_CODE_PROC:
clr	A
clr	phone_dial_code_flag
lcall	_phone_send_dtmf
mov	phone_dial_counter,dtmf_on_period
ret

;--------------------
;
;
;--------------------
phone_init:
clr	PHONE_HOOK
clr	PHONE_MONITOR

ret
;//********************************End Telephone Function***********************

;//************************************Timer Function******************************
;--------------------
;
;
;--------------------
_timer_initial:
mov	time_stamp,#00h
mov	time_stamp+1h,#00h
mov	time_stamp+2h,#00h
mov	time_stamp+3h,#00h


mov	TL0,#LOW (TLODER)
mov	TH0,#HIGH (TLODER)
ORL	IEN0,#TENABLE0
ORL	IP0,#TPRIORITYL
ORL	IP0H,#TPRIORITYH
setb	TR0
ret

;--------------------
;
;16+24+50
;--------------------
_timer_int:
push	PSW
push	ACC
push	DPL
push	DPH

clr	TF0
mov	TH0,#HIGH(TLODER)
mov	TL0,#LOW(TLODER)
setb	TR0				;reload timer and restart count

;other timer function
;dial function timer  //***************DIAL FUNCTION SUPPORT**************************
mov	A,phone_dial_counter
jz	$+4h
dec	phone_dial_counter		;dec it till it is zero
;//************************End DIAL FUNCTION SUPPORT**********************************

;
mov	R1,#time_stamp		;timer counter
setb	C
clr	A
mov	R6,#04h			;16
_time_int_count:
addc	A,@R1			;A=0 C=1(0) A= A+@R1+CY
mov	@R1,A
inc	R1
clr	A
djnz	R6,_time_int_count	;6*4

;sample function timer//***************SAMPLE FUNCTION************************
_timer_int_sample:
jnb	sample_start_flag,_timer_int_exit	;IF UN Start sample ,exit
djnz	sample_counter,_timer_int_exit		;sample_counter--,and if no zero exit
mov	sample_counter,sample_interval		;reload sample_counter
mov	A,sample_save				;load sample_save to ACC
						;bit6 sample value
						;bit0~bit5 current value count
mov	C,PHONE_SAMPLE				;read PHONE_SAMPLE

jc	_timer_int_sample_compare		;if Tone signal not change 
jnb	ACC.6,_timer_int_sample_equal		;jump to _timer_int_sample_equal
cpl	ACC.6
_timer_int_sample_compare:
jb	ACC.6,_timer_int_sample_equal

;//unequal
anl	A,#1Fh					;Tone signal change
jz	_timer_int_sample_reset
mov	F0,C
_timer_int_sample_save:
;//save
mov	DPTR,#sample_buffer
mov	A,sample_tail
add	A,DPL
mov	DPL,A
mov	A,sample_save
movx	@DPTR,A
inc	sample_tail
anl	sample_tail,#SAMPLE_SIZE_MASK
mov	A,sample_tail
inc	sample_length
cjne	A,sample_head,_timer_int_sample_saveFin
inc	sample_head
dec	sample_length
anl	sample_head,#SAMPLE_SIZE_MASK

_timer_int_sample_saveFin:
mov	C,F0
_timer_int_sample_reset:	;//new status save or counter overflow
mov	A,#01h
mov	ACC.6,C
mov	sample_save,A
sjmp	_timer_int_exit

;//equal
_timer_int_sample_equal:
anl	A,#1Fh
mov	F0,C
cjne	A,#1Fh,_timer_int_sample_inc
sjmp	_timer_int_sample_save
_timer_int_sample_inc:
inc	A
mov	C,F0
mov	ACC.6,C
mov	sample_save,A
;//***************************End SAMPLE FUNCTION*****************************

_timer_int_exit:
pop	DPH
pop	DPL
pop	ACC
pop	PSW
reti
;//**************************End Timer Function*******************************

;//**************************MSG PROC FUNCTION********************************
MSG_PROC_INDEX_TAB:
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	01h,02h,0,03h,04h,05h,06h,07h,08h,09h,0ah,0bh,0ch,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
;/*
;27
;*/
_msg_proc:
jb	msg_rece_ready_flag,$+4h
ret
mov	DPTR,#msg_rece_buffer
movx	A,@DPTR
mov	DPTR,#MSG_PROC_INDEX_TAB
movc	A,@A+DPTR
mov	DPTR,#MSG_JUMP_TAB
rl	A
push	ACC
movc	A,@A+DPTR
mov	R7,A
pop	ACC
inc 	A
movc	A,@A+DPTR
mov	DPH,R7
mov	DPL,#00h
jmp	@A+DPTR

MSG_JUMP_TAB:DW _msg_error
	     DW _msg_start_sample
	     DW _msg_stop_sample
	     DW _msg_set_sample_period
	     DW _msg_start_dial
	     DW _msg_stop_dial
	     DW _msg_set_dial_parameter
	     DW _msg_set_hold_period
	     DW _msg_set_hook_period
	     DW _msg_hook
	     DW _msg_monitor
	     DW	_msg_send_dtmf
	     DW _msg_stop_dtmf
	     
_msg_error:
jnb	msg_send_ready_flag,$+4h
ret
mov	DPTR,#msg_send_buffer
mov	A,#MSG_ERROR	;'E'
movx	@DPTR,A
inc	DPL
mov	A,#00h	;'\0'
movx	@DPTR,A
mov	msg_send_length,#02h
mov	msg_send_index,#00h
setb	msg_send_ready_flag
clr	msg_rece_ready_flag
mov	msg_rece_length,#00h
ljmp	_package_write

_msg_start_sample:
clr	sample_start_flag
mov	sample_head,sample_tail
mov	sample_length,#00h
mov	sample_counter,#01h
mov	R2,#HIGH(sample_timer_stamp_buffer)
mov	R3,#LOW(sample_timer_stamp_buffer)
lcall	_time_format
setb	sample_start_flag
clr	msg_rece_ready_flag
mov	msg_rece_length,#00h
setb	sample_return_ok_flag
ljmp	_sample_start_return

_msg_stop_sample:
jnb	msg_send_ready_flag,$+4h
ret
clr	sample_start_flag
mov	DPTR,#msg_send_buffer
mov	A,#MSG_STOP_SAMPLE ;'U'
movx	@DPTR,A
inc	DPL
clr	A
movx	@DPTR,A
mov	msg_send_length,#02h
mov	msg_send_index,#00h
setb	msg_send_ready_flag
clr	msg_rece_ready_flag
mov	msg_rece_length,#00h
ljmp	_package_write

_msg_set_sample_period:
jnb	msg_send_ready_flag,$+4h
ret
jnb	sample_start_flag,_msg_set_sample_success
mov	DPTR,#msg_send_buffer
mov	A,#MSG_BUSY ;'O'
movx	@DPTR,A
inc	DPL
mov	msg_send_length,#04h
sjmp	_msg_set_sample_load
_msg_set_sample_success:
mov	DPTR,#msg_rece_buffer
inc	DPL
movx	A,@DPTR
mov	sample_interval,A
mov	DPTR,#msg_send_buffer
mov	msg_send_length,#03h
_msg_set_sample_load:
mov	A,#MSG_SET_SAMPLE_INTERVAL ;'O'
movx	@DPTR,A
inc	DPL
mov	A,sample_interval
movx	@DPTR,A
inc	DPL
clr	A
movx	@DPTR,A
mov	msg_send_index,#00h
setb	msg_send_ready_flag
clr	msg_rece_ready_flag