TIME1L:	EQU 30H
TIME1H:	EQU 31H
TIME2L:	EQU 32H
TIME2H:	EQU 33H
SCL:	EQU  B0H
SDA:	EQU  B1H
WHO:	EQU  B2H
CDAT:	EQU  B3H
CLKI:	EQU  B5H
CLKO: 	EQU  B4H

WAIT	MACRO
	ACALL IICDELAY
	ENDM

	ORG 0000H
	JMP MAIN
	ORG 000BH
	PUSH 72H
	PUSH 73H
	RET
	ORG 001BH
	PUSH 76H
	PUSH 77H
	RET
	ORG 0030H
MAIN:   MOV  IE,#00H
	MOV  SP,#07H
	SETB WHO
	JB WHO,TELE       ;P3.2为识别脚
	AJMP  CCODE    ;P3.2=0,说明与主机相连

;**************************************
;电话拔号主程序
TELE:	MOV DPTR,#TIME1
	MOV 72H,DPL
	MOV 73H,DPH
	MOV DPTR,#TIME2
	MOV 76H,DPL
	MOV 77H,DPH

	MOV R1,#40H             ;从24C01读取号码到内部RAM
	MOV R0,#01H             ;40H开始的单元,号码以FFH结
MAIN1:	ACALL READ_CHAR         ;束,FEH为延时
	MOV @R1,A
	INC R0
	INC R1
	CPL A
	JZ DO1
	AJMP MAIN1

DO1:    MOV R0,#00H
	ACALL READ_CHAR
	MOV R7,#4H		;有线方式连发4次分机号码
	CLR C
	SUBB A,#7H
	JC  DO10
	MOV R7,#15		;电话线方式连发15次分机号码
DO10:	DEC R1
	DEC R1
	MOV A,@R1
DO11:	
	MOV @R1,A
	INC R1
	DJNZ R7,DO11
	MOV @R1,#FFH
	
	
	MOV R0,#40H   		;开始拔号
DO4:	MOV A,@R0
	CLR C
	SUBB A,#FEH
	JNZ DO5
	INC R0
	CALL DELAY
	JMP DO4
DO5:	MOV A,@R0
	CPL A
	JZ OK
	CPL A
	RL A
	RL A
	MOV DPTR,#TAB1
	ADD A,DPL
	MOV DPL,A
	CLR A
	ADDC A,DPH
	MOV DPH,A
	MOV R1,#30H
	MOV R2,#4
DO3:	CLR A
	MOVC A,@A+DPTR
	MOV @R1,A
	INC R1
	INC DPTR
	DJNZ R2,DO3
	CALL TEL
	INC R0
	JMP DO4

OK:	CLR P1.4
	MOV PCON,#03H
	JMP $
DELAY:	MOV R5,#06H
	MOV R6,#FFH
	MOV R7,#FFH
DELAY1:	DJNZ R7,DELAY1
	CPL P1.4
	DJNZ R6,DELAY1
	DJNZ R5,DELAY1
	RET
TAB1:	DB 9AH,FEH,FEH,FDH    ;0
	DB 73H,FEH,43H,FDH    ;1
	DB 9AH,FEH,43H,FDH    ;2
	DB BEH,FEH,43H,FDH    ;3
	DB 73H,FEH,87H,FDH    ;4
	DB 9AH,FEH,87H,FDH    ;5
	DB BEH,FEH,87H,FDH    ;6
	DB 73H,FEH,C6H,FDH    ;7
	DB 9AH,FEH,C6H,FDH    ;8
	DB BEH,FEH,C6H,FDH    ;9

	DB 9AH,FEH,FEH,FDH    ;10
	DB 73H,FEH,FEH,FDH    ;11
	DB BEH,FEH,FEH,FDH    ;12
	DB DEH,FEH,43H,FDH    ;13
	DB DEH,FEH,87H,FDH    ;14
	DB DEH,FEH,C6H,FDH    ;15
	DB DEH,FEH,FEH,FDH    ;16
TEL:	MOV  TMOD,#11H
	MOV  IE,#8AH
	MOV  TL0,TIME1L
	MOV  TH0,TIME1H
	MOV  TL1,TIME2L
	MOV  TH1,TIME2H
	SETB TR0
	SETB TR1
	MOV  R5,#01      ;03
	MOV  R7,#FFH
	MOV  R6,#FFH
DEL1:	DJNZ R6,DEL1
	CPL P1.4
	DJNZ R7,DEL1
	DJNZ R5,DEL1
	CLR TR0
	CLR TR1
	MOV  R5,#1
	MOV  R7,#80H    ;ffH
	MOV  R6,#FFH
DEL2:	DJNZ R6,DEL2
	CPL P1.4
	DJNZ R7,DEL2
	DJNZ R5,DEL2
	RET


TIME1:	CLR  TR0
	CPL  P1.2
	MOV  TL0,TIME1L
	MOV  TH0,TIME1H
	SETB TR0
	RETI

TIME2:	CLR  TR1
	CPL  P1.3
	MOV  TL1,TIME2L
	MOV  TH1,TIME2H
	SETB TR1
	RETI

;********************************
;贮存号码操作
;发命令前必须发至少2个字节55H以达到同步
CCODE:          ACALL 	REC
		CLR	C
		SUBB	A,#55H
		JNZ 	CCODE
		ACALL	REC
		CLR	C
		SUBB	A,#55H
		JNZ	CCODE
CCODE_1:	ACALL	REC
		CLR	C
		SUBB	A,#55H
		JZ	CCODE_1
		ADD 	A,#55H
		JB	ACC.7,CCODE_2
CCODE_3: 	ACALL   LDELAY
		AJMP	CCODE
CCODE_2:	ANL	A,#03H
		RL	A
		MOV	DPTR,#COMMAND_TAB
		JMP	@A+DPTR
COMMAND_TAB:	AJMP	READ_ID		;80H,读识别码
		AJMP	READ_CODE       ;81H,读贮存的号码
		AJMP	WRITE_CODE      ;82H,写号码
		AJMP	CCODE_3         ;A<80H和A>82H无效

;*******************************************
READ_ID:	MOV	A,#'T'
		ACALL	SEND
		AJMP 	CCODE
;********************************************
READ_CODE:      MOV	R0,#00H
		ACALL	READ_CHAR
		ANL	A,#1FH
		MOV	R1,A
		ACALL	SEND
RC_1:		INC	R0
		ACALL	READ_CHAR
		ACALL	SEND
		DJNZ	R1,RC_1
		AJMP	CCODE
;**********************************************

WRITE_CODE:	ACALL	REC
		MOV	R1,A
		MOV	R0,#00H
		ACALL	WRITE_CHAR
WC_1:		INC	R0
		ACALL	REC
		ACALL	WRITE_CHAR
		DJNZ	R1,WC_1
		AJMP	CCODE



;********************************
;往24C01写一字节
;入口:A中为写入的内容
;     R0中为写入内容的地址
WRITE_CHAR:	PUSH	A
		ACALL	START
		MOV	A,#A0H
		ACALL	SEND_CHAR
		ACALL   ACK
		MOV	A,R0
		ACALL	SEND_CHAR
		ACALL	ACK
		POP	A
		ACALL	SEND_CHAR
		ACALL	ACK
		ACALL	STOP
		MOV	R6,#30
		MOV	R7,#FFH
DELL:		DJNZ	R7,$
		DJNZ	R6,DELL
		RET
;**********************************
;从24C01读一字节
;入口:R0中为要读出内容的地址
;出口:A中为读到的内容
READ_CHAR:	ACALL	START
		MOV	A,#A0H
		ACALL	SEND_CHAR
		ACALL	ACK
		MOV	A,R0
		ACALL	SEND_CHAR
		ACALL	ACK
		ACALL	START
		MOV	A,#A1H
		ACALL	SEND_CHAR
		ACALL	ACK
		ACALL	REC_CHAR
		ACALL	STOP
		RET

;***********************************
;起动24C01时序
START:		SETB	SCL
		SETB	SDA
		WAIT
		CLR	SDA
		WAIT
		CLR	SCL
		WAIT
		RET

;************************************
;停止24C01时序
STOP:		CLR	SDA
		WAIT
		SETB	SCL
		WAIT
		SETB	SDA
		WAIT
		RET

;************************************
;往24C01发一8位数据
;入口:A
SEND_CHAR:	MOV	R6,#08H
SEND_CH_1:	RLC	A
		MOV	SDA,C
		WAIT
		SETB    SCL
		WAIT
		CLR	SCL
		WAIT
		DJNZ	R6,SEND_CH_1
		RET
;**************************************
;从24C01接收一8位数据
;出口:A
REC_CHAR:	MOV	R6,#08H
REC_CH_1:	SETB	SCL
		WAIT
		MOV	C,SDA
		RLC   	A
		CLR	SCL
		WAIT
		DJNZ	R6,REC_CH_1
		RET
;**************************************
;检测24C01的响应信号
;出口:CY
ACK:            SETB	SDA
		WAIT
		SETB	SCL
		WAIT
		MOV	C,SDA
		CLR	SCL
		WAIT
		RET
;**************************************
;延时
IICDELAY:	MOV	R7,#20
		DJNZ	R7,$
		RET

;*************************************
SEND:		MOV	R7,#08H
SEND_1:		RRC 	A
		MOV 	CDAT,C
		CLR 	CLKO
		JB 	CLKI,$
		SETB 	CLKO
		JNB	CLKI,$
		DJNZ 	R7,SEND_1
		MOV	P3,#FFH
		RET

REC:		MOV 	P3,#FFH
		MOV 	R7,#08H
REC_1:		JB	CLKI,$
		MOV	R6,#80H
		DJNZ	R6,$
		MOV	C,CDAT
		RRC	A
		CLR	CLKO
		JNB	CLKI,$
		SETB	CLKO
		DJNZ	R7,REC_1
		RET

LDELAY:		MOV	R6,#30
		MOV	R7,#FFH
LDEL:		DJNZ	R7,$
		DJNZ	R6,LDEL
		RET
		ORG     7FDH
		DB	02H,07H,FDH