telephone.asm

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

mov	msg_rece_length,#00h
ljmp	_package_write

_msg_start_dial:
mov	A,#PHONE_DIAL_SIZE
clr	C
subb	A,phone_dial_length
setb	C
subb	A,msg_rece_length
jnc	$+3h
ret

mov	R2,#LOW(msg_rece_buffer)
inc	R2
mov	R3,#msg_rece_length
mov	DPH,#HIGH(phone_dial_buffer)
_msg_start_dial_cyc:
djnz	R3,_msg_start_dial_exit
inc	R2
mov	DPL,R2
movx	A,@DPTR
push	ACC
mov	DPL,#LOW(phone_dial_buffer)
mov	A,phone_dial_tail
add	A,DPL
mov	DPL,A
pop	ACC
movx	@DPTR,A
inc	phone_dial_tail
anl	phone_dial_tail,#PHONE_DIAL_SIZE_MASK
inc	phone_dial_length
sjmp	_msg_start_dial_cyc
_msg_start_dial_exit:
setb	phone_dial_start
ret

_msg_stop_dial:
mov	phone_dial_length,#00h
mov	phone_dial_head,phone_dial_tail
ret

_msg_set_dial_parameter:
jnb	msg_send_ready_flag,$+4h
ret
mov	DPTR,#msg_rece_buffer
inc	DPL
movx	A,@DPTR
mov	dtmf_on_period,A
inc	DPL
movx	A,@DPTR
mov	dtmf_off_period,A

mov	DPTR,#msg_send_buffer
mov	A,#MSG_SET_DIAL_PARAMETER ;'U'
movx	@DPTR,A
inc	DPL
mov	A,dtmf_on_period
movx	@DPTR,A
inc	DPL
mov	A,dtmf_off_period
movx	@DPTR,A
inc	DPL
clr	A
movx	@DPTR,A
mov	msg_send_length,#04h
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_hold_period:
jnb	msg_send_ready_flag,$+4h
ret
mov	DPTR,#msg_rece_buffer
inc	DPL
movx	A,@DPTR
mov	hold_period,A

mov	DPTR,#msg_send_buffer
mov	A,#MSG_SET_HOLD_PERIOD ;'O'
movx	@DPTR,A
inc	DPL
mov	A,hold_period
movx	@DPTR,A
inc	DPL
clr	A
movx	@DPTR,A
mov	msg_send_length,#03h
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_hook_period:
jnb	msg_send_ready_flag,$+4h
ret
mov	DPTR,#msg_rece_buffer
inc	DPL
movx	A,@DPTR
mov	hook_updown_period,A

mov	DPTR,#msg_send_buffer
mov	A,#MSG_SET_HOOK_PERIOD ;'U'
movx	@DPTR,A
inc	DPL
mov	A,hook_updown_period
movx	@DPTR,A
inc	DPL
clr	A
movx	@DPTR,A
mov	msg_send_length,#03h
mov	msg_send_index,#00h
setb	msg_send_ready_flag
clr	msg_rece_ready_flag
mov	msg_rece_length,#00h
ljmp	_package_write

_msg_hook:
jnb	msg_send_ready_flag,$+4h
ret
mov	DPTR,#msg_rece_buffer
inc	DPL
movx	A,@DPTR
mov	R4,A
mov	R2,#HIGH(timer_stamp_buffer)
mov	R3,#LOW(timer_stamp_buffer)
lcall	_time_format
cjne	R4,#30h,$+7h
clr	PHONE_HOOK
sjmp	$+4h
setb	PHONE_HOOK
mov	DPTR,#msg_send_buffer
mov	A,#MSG_HOOK ;'H'
movx	@DPTR,A
inc	DPL
mov	A,R4
movx	@DPTR,A
inc	DPL
mov	R2,DPL
mov	R4,#08h
_msg_hook_return_timer:
mov	DPL,R3
movx	A,@DPTR
mov	DPL,R2
movx	@DPTR,A
inc	R2
inc	R3
djnz	R4,_msg_hook_return_timer
inc	DPL
clr	A
movx	@DPTR,A
setb	msg_send_ready_flag
mov	msg_send_length,#0bh
mov	msg_send_index,#00h
mov	msg_rece_length,#00h
clr	msg_rece_ready_flag
ljmp	_package_write

_msg_monitor:
jnb	msg_send_ready_flag,$+4h
ret
mov	DPTR,#msg_rece_buffer
inc	DPL
movx	A,@DPTR
mov	R4,A
cjne	R4,#30h,$+7h
clr	PHONE_MONITOR
sjmp	$+4h
setb	PHONE_MONITOR
mov	DPTR,#msg_send_buffer
mov	A,#MSG_MONITOR ;'M'
movx	@DPTR,A
inc	DPL
mov	A,R4
movx	@DPTR,A
inc	DPL
clr	A
movx	@DPTR,A
mov	msg_send_length,#03h
mov	msg_send_index,#00h
setb	msg_send_ready_flag
clr	msg_rece_ready_flag
mov	msg_rece_length,#00h
ljmp	_package_write

;ABC,abc		1101~1111
;D,d			0000
;0			1100
;1~9			0001~1001

DTMF_CODE_TAB:DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0Ch,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0Bh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0Ah,01h,02h,03h,04h,05h,06h,07h,08h,09h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0Dh,0Eh,0Fh,00h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0Dh,0Eh,0Fh,00h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
	      DB	0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh

_msg_send_dtmf:
mov	DPTR,#msg_rece_buffer
inc	DPL
movx	A,@DPTR
mov	DPTR,#DTMF_CODE_TAB
movc	A,@A+DPTR
push	ACC
anl	ACC,#0F0h
jz	_msg_send_dtmf_success
pop	ACC
jnb	msg_send_ready_flag,$+4h
ret
mov	DPTR,#msg_send_buffer
mov	A,#MSG_SND_DTMF ;
movx	@DPTR,A
inc	DPL
mov	A,#MSG_ERROR ;
movx	@DPTR,A
inc	DPL
clr	A
movx	@DPTR,A
mov	msg_send_length,#03h
mov	msg_send_index,#00h
setb	msg_send_ready_flag
clr	msg_rece_ready_flag
mov	msg_rece_length,#00h
lcall	_package_write
ret
_msg_send_dtmf_success:
mov	R2,#HIGH(tone_timer_stamp_buffer)
mov	R3,#LOW(tone_timer_stamp_buffer)
lcall	_time_format
pop	ACC
lcall	_phone_send_dtmf
clr	msg_rece_ready_flag
mov	msg_rece_length,#00h
setb	tone_return_ok_flag
ljmp	_tone_start_return

_msg_stop_dtmf:
jnb	msg_send_ready_flag,$+4h
ret
lcall	_phone_stop_dtmf
mov	DPTR,#msg_send_buffer
mov	A,#MSG_STOP_DTMF ;
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
;//****************************End Msg Proc Function******************************
;//***************************SYSTEM FUNCTION SUPPORT******************************
;--------------------
;format time to HEX code
;R2 R3				
;30*4+11+1
;--------------------
TIMER_FORMAT_STRING:DB '0','1','2','3','4','5','6','7'		;HEX STRING TAB
		    DB '8','9','a','b','c','d','e','f'
_time_format:
clr	ET0			;disable TIMER0 and save time_stamp to stack
push	time_stamp+3h
push	time_stamp+2h
push	time_stamp+1h
push	time_stamp
setb	ET0
mov	R7,#04h			;?11set repeat counter
_time_format_circle:
pop	ACC			;get time_stamp value
push	ACC			;save time_stamp (because format 4bit/one time)
anl	A,#0Fh			;get 0~3bit 
mov	DPTR,#TIMER_FORMAT_STRING
movc	A,@A+DPTR		;read HEX string
mov	DPH,R2
mov	DPL,R3
movx	@DPTR,A			;save char to extern address (R2(h) R3(l))
inc	R3			;increase address
pop	ACC			;get time_stamp again
swap	A
anl	A,#0Fh			;get 4~7bit
mov	DPTR,#TIMER_FORMAT_STRING
movc	A,@A+DPTR		;read HEX string
mov	DPH,R2
mov	DPL,R3
movx	@DPTR,A			;save char to extern address (R2(h) R3(l))
inc	R3			;increase address
djnz	R7,_time_format_circle	;30*4
ret				;1
;--------------------
;
;
;--------------------

;//************************End SYSTEM FUNCTION SUPPORT*****************************
;//_dial_stop_ok
;--------------------
;
;14+12*8+12+PC(PACKAGE_WRITE)
;--------------------
_dial_stop_ok:
jb	dial_return_ok_flag,$+4h		;?2
ret
jnb	msg_send_ready_flag,$+4h		;?2
ret
mov	DPTR,#msg_send_buffer			;?2
mov	A,#MSG_FINISH_DIAL			;?1
movx	@DPTR,A					;?2
inc	DPL					;?1
mov	R2,DPL					;?2
mov	R3,#LOW(dial_timer_stamp_buffer)	;?1
mov	R4,#08h					;?1-----------------14

_dial_stop_ok_timer:
mov	DPL,R3
movx	A,@DPTR
mov	DPL,R2
movx	@DPTR,A
inc	R2
inc	R3
djnz	R4,_dial_stop_ok_timer			;?12*8
inc	DPL
clr	A
movx	@DPTR,A
setb	msg_send_ready_flag
mov	msg_send_length,#0ah
mov	msg_send_index,#00h
clr	tone_return_ok_flag
ljmp	_package_write				;12
;--------------------
;
;18+12*8+12+PC(PACKAGE_WRITE)
;--------------------
_tone_start_return:
jb	tone_return_ok_flag,$+4h		;?2
ret
jnb	msg_send_ready_flag,$+4h		;?2
ret
mov	DPTR,#msg_send_buffer			;?2
mov	A,#MSG_SND_DTMF				;?1
movx	@DPTR,A					;?2
inc	DPL					;?1
mov	A,#MSG_SUCCESS				;?1
movx	@DPTR,A					;?2
inc	DPL					;?1
mov	R2,DPL					;?2
mov	R3,#LOW(tone_timer_stamp_buffer)	;?1
mov	R4,#08h					;?1-----------18

_tone_start_return_timer:
mov	DPL,R3					;?2
movx	A,@DPTR					;?2
mov	DPL,R2					;?2
movx	@DPTR,A					;?2
inc	R2					;?1
inc	R3					;?1
djnz	R4,_tone_start_return_timer		;?2------------12*8
inc	DPL					;?1
clr	A					;?1
movx	@DPTR,A					;?2
setb	msg_send_ready_flag			;?1
mov	msg_send_length,#0bh			;?2
mov	msg_send_index,#00h			;?2
clr	tone_return_ok_flag			;?1
ljmp	_package_write				;?2------------14
;--------------------
;
;14+12*8+12+PC(PACKAGE_WRITE)
;--------------------
_sample_start_return:
jb	sample_return_ok_flag,$+4h		;?2
ret
jnb	msg_send_ready_flag,$+4h		;?2
ret
mov	DPTR,#msg_send_buffer			;?2
mov	A,#MSG_START_SAMPLE			;?1
movx	@DPTR,A					;?2
inc	DPL					;?1
mov	R2,DPL					;?2
mov	R3,#LOW(sample_timer_stamp_buffer)	;?1
mov	R4,#08h					;?1--------14

_sample_start_return_timer:
mov	DPL,R3					;?2
movx	A,@DPTR					;?2
mov	DPL,R2					;?2
movx	@DPTR,A					;?2
inc	R2					;?1
inc	R3					;?1
djnz	R4,_sample_start_return_timer		;?2--------12*8
inc	DPL					;?1
clr	A					;?1
movx	@DPTR,A					;?2
setb	msg_send_ready_flag			;?1
mov	msg_send_length,#0ah			;?2
mov	msg_send_index,#00h			;?2
clr	sample_return_ok_flag			;?1
ljmp	_package_write				;?2---------12
;--------------------
;DSR Status Scan
;IF dsr_save_status != UART_DSR && UART_DSR == 0
;	INFORPC(CURRENT TIMER)
;dsr_save_status = UART_DSR
;20+PC(TIME_FORMAT)+12*8+12+PC(PACKAGE_WRITE)
;--------------------
_DSR_STATUS_ALARM:
mov	C,UART_DSR				;？1read DSR value
jc	$+5h					;？2if DSR is invalid(=1),save DSR to dsr_save_status
jb	dsr_save_status,_dsr_status_alarm_ok	;？2if DSR is valid(=0) and dsr_save_status is invalid
						;jump to save 5ms counter value
mov	dsr_save_status,C
ret

_dsr_status_alarm_ok:				;？save 5ms counter value and ready to return
mov	dsr_save_status,C			;？1save DSR value to dsr_save_status
mov	R2,#HIGH(dsr_timer_stamp_buffer)	;？1load 5ms counter value saving address
mov	R3,#LOW(dsr_timer_stamp_buffer)		;？1
lcall	_time_format				;？2format 5ms counter value to HEX string 
setb	dsr_return_ok_flag			;？1ready to return

_dsr_status_alarm_return:
jb	dsr_return_ok_flag,$+4h			;？2
ret						
jnb	msg_send_ready_flag,$+4h		;？2
ret
mov	DPTR,#msg_send_buffer			;？2
mov	A,#MSG_SYSTEM_TIMER	;'T'		;？1
movx	@DPTR,A					;？2
inc	DPL					;？1
mov	R2,DPL					;？2
mov	R3,#LOW(dsr_timer_stamp_buffer)		;？1
mov	R4,#08h					;？1	-------------------20+PC(TIME_FORMAT)

_dsr_alarm_return_timer:
mov	DPL,R3					;？2
movx	A,@DPTR					;？2
mov	DPL,R2					;？2
movx	@DPTR,A					;？2
inc	R2					;？1
inc	R3					;？1
djnz	R4,_dsr_alarm_return_timer		;？2	-------------------12*8
inc	DPL					;？1
clr	A					;？1
movx	@DPTR,A					;？2
setb	msg_send_ready_flag			;？1
mov	msg_send_length,#0ah			;？2
mov	msg_send_index,#00h			;？2
clr	dsr_return_ok_flag			;？1
ljmp	_package_write				;？2	-------------------12+
;--------------------
;Ring Status Scan
;IF ring_save_status != PHONE_RING && PHONE_RING == 1
;	INFORPC(RING TIMER)
;ring_save_status = PHONE_RING
;13+PC(TIME_FORMAT)+15+12*8+12+PC(PACKAGE_WRITE)
;--------------------
_RING_STATUS_ALARM:
mov	C,PHONE_RING				;？1read Ring Status
jnc	$+5h					;？2if Ring is invalid,save ring status and exit
jnb	ring_save_status,_ring_status_alarm_ok	;？2if ring is valid and ring_save_status is invalid
						;jump to save 5ms counter value and ready to return
mov	ring_save_status,C			;save ring status
ret
						
_ring_status_alarm_ok:				;save ring timer and reback to PC
mov	ring_save_status,C			;？1save ring status
mov	R2,#HIGH(ring_timer_stamp_buffer)	;？2load ring timer saving address
mov	R3,#LOW(ring_timer_stamp_buffer)	;？2
lcall	_time_format				;？2format timer value to HEX string
setb	ring_return_ok_flag			;？1ready to return message-----13+TIME_FORMAT

_ring_status_alarm_return:
jb	ring_return_ok_flag,$+4h		;？2
ret
jnb	msg_send_ready_flag,$+4h		;？2
ret
mov	DPTR,#msg_send_buffer			;？2
mov	A,#MSG_RING	;'R'			;？1
movx	@DPTR,A					;？2
inc	DPL					;？1
mov	R2,DPL					;？2
mov	R3,#LOW(ring_timer_stamp_buffer)	;？2
mov	R4,#08h					;？1	--------------15

_ring_alarm_return_timer:
mov	DPL,R3					;？2
movx	A,@DPTR					;？2
mov	DPL,R2					;？2
movx	@DPTR,A					;？2
inc	R2					;？1
inc	R3					;？1
djnz	R4,_ring_alarm_return_timer		;？2	--------------12*8
inc	DPL					;？1
clr	A					;？1
movx	@DPTR,A					;？2
setb	msg_send_ready_flag			;？1
mov	msg_send_length,#0ah			;？2
mov	msg_send_index,#00h			;？2
clr	ring_return_ok_flag			;？1
ljmp	_package_write				;？2	---------------12
;//
_sample_init:
mov	sample_length,#00h
mov	sample_tail,#00h
mov	sample_head,#00h
clr	sample_start_flag
mov	sample_interval,#01h
ret
;--------------------
;
;最大指令周期18+24*N+16+PC(_PACKAGE_WRITE)
;--------------------
_SAMPLE_DATA_REBACK:
mov	A,sample_length			;？1judge if there are some datas in sample buffer
jnz	$+3h				;？2
ret
jnb	msg_send_ready_flag,$+3h	;？2if there are some datas,judge if being enabled to send
ret
jb	sample_start_flag,_SAMPLE_DATA_REBACK_ON	;？2
					;if sample is being,size of data > 16 , sending, else exit
sjmp	_SAMPLE_DATA_REBACK_MOVE	;if sample is end ,go to send 
_SAMPLE_DATA_REBACK_ON:
mov	A,sample_length			;？1judge if how mang data in sample buffer,if >16 sending
clr	C				;？1
subb	A,#10h				;？1
jnc	$+3h				;？2
ret
_SAMPLE_DATA_REBACK_MOVE:
mov	DPTR,#msg_send_buffer		;？2load the first char ,
mov	A,#MSG_SAMPLE_DATA		;？1
movx	@DPTR,A				;？2
mov	R2,#01h				;？1	上=18
_SAMPLE_DATA_REBACK_CYC:
cjne	R2,#31,_SAMPLE_DATA_REBACK_END	;？2-------*30if R2 < 31 continue to send
mov	DPTR,#sample_buffer		;？2
mov	A,sample_head			;？1
add	A,DPL				;？1
mov	DPL,A				;？1
movx	A,@DPTR				;？2
inc	sample_head			;？1
anl	sample_head,#SAMPLE_SIZE_MASK	;? 2
push	ACC				;? 1get the data and mov point
mov	DPTR,#msg_send_buffer		;？2
mov	A,R2				;？1
add	A,DPL				;？1
mov	DPL,A				;？1
pop	ACC				;？1
movx	@DPTR,A				;？2
inc	R2				;？1save data to send buffer,and mov to next data address
djnz	sample_length,_SAMPLE_DATA_REBACK_CYC	;？2----------24*30
_SAMPLE_DATA_REBACK_END:
mov	DPTR,#msg_send_buffer		;？2	下=15+_PACKAGE_WRITEsave msg eof to send buffer
mov	A,R2				;？1
add	A,DPL				;？1
mov	DPL,A				;？1
clr	A				;？1
movx	@DPTR,A				;？2
setb	msg_send_ready_flag		;？1ready to send buffer
setb	C				;？1
addc	A,R2				;？1
mov	msg_send_length,A		;？1
mov	msg_send_index,#00h		;？1
ljmp	_package_write			;？2
END