SETB P2.0
MOV A,RDS+1 JZ DS3 MOV A,#1 SJMP DS4 DS3: MOV A,#0
DS4: MOVC A,@A+DPTR MOV P0,A CLR P2.1
ACALL D1MS SETB P2.1
MOV A,RDS+2 JZ DS5 MOV A,#1 SJMP DS6 DS5: MOV A,#0
DS6: MOVC A,@A+DPTR MOV P0,A CLR P2.2
ACALL D1MS SETB P2.2
MOV A,RDS+3 JZ DS7 MOV A,#1 SJMP DS8 DS7: MOV A,#0
DS8: MOVC A,@A+DPTR MOV P0,A CLR P2.3
ACALL D1MS SETB P2.3
MOV A,RDS+4 JZ DS9 MOV A,#1 SJMP DS10 DS9: MOV A,#0
DS10: MOVC A,@A+DPTR MOV P0,A CLR P2.4
ACALL D1MS SETB P2.4
MOV A,RDS+5 JZ DS11 MOV A,#1
第 20 页 共 33页
SJMP DS12 DS11: MOV A,#0
DS12: MOVC A,@A+DPTR MOV P0,A CLR P2.5
ACALL D1MS SETB P2.5 RET
;*********************************************** DISPLAY2: MOV R4,#00H MOV A,R4 MOVC A,@A+DPTR MOV P0,A CLR P2.0 ACALL D1MS SETB P2.0 INC R4 MOV A,R4 MOVC A,@A+DPTR MOV P0,A CLR P2.1 ACALL D1MS SETB P2.1 INC R4 MOV A,R4 MOVC A,@A+DPTR MOV P0,A CLR P2.2 ACALL D1MS SETB P2.2 INC R4 MOV A,R4 MOVC A,@A+DPTR MOV P0,A CLR P2.3 ACALL D1MS SETB P2.3 INC R4 MOV A,R4
第 21 页 共 33页
MOVC A,@A+DPTR MOV P0,A CLR P2.4 ACALL D1MS SETB P2.4 INC R4 MOV A,R4 MOVC A,@A+DPTR MOV P0,A CLR P2.5 ACALL D1MS SETB P2.5 RET
;------------------------------------------------------------------- ;发生程序********************************** CALLHOST: ;叮咚声 MOV R4,#200 SP10: CPL P2.7
LCALL D1MS LCALL D1MS DJNZ R4,SP10 MOV R4,#255 SP20: CPL P2.7
LCALL D1MS LCALL D1MS LCALL D1MS DJNZ R4,SP20 MOV R4,#255 SP30: SETB P2.7
LCALL D1MS LCALL D1MS LCALL D1MS DJNZ R4,SP30 RET ;嘟~嘟声
SP_OUT: MOV R4,#20 SP1: CPL SPOUT
LCALL DISPLAY DJNZ R4,SP1 MOV R4,#50 SP2: CPL SPOUT
LCALL DISPLAY DJNZ R4,SP2
第 22 页 共 33页
MOV R4,#20 SP3: SETB SPOUT
LCALL DISPLAY
DJNZ R4,SP3 RET
;----------------------------------------------------------------------
; I2C软件包的底层子程序，使用前要定义好SCL和SDA。在标准80C51模式下，对主频要求是不高于12KHz；要是高于12KHz，则要增加相应的NOP指令数。 ;---------------------------------------------------------------------- ;启动I2C总线子程序******************************** START: SETB SDA NOP SETB SCL ;起始条件建立时间大于4.7us NOP NOP NOP NOP NOP CLR SDA NOP ;起始条件锁定时键大于4.7us NOP NOP NOP NOP CLR SCL ;钳住总线，准备发送数据 NOP RET
;结束总线子程序********************************* STOP: CLR SDA NOP SETB SCL ;发送结束条件的始终信号 NOP ;结束总线时间大于4.7us NOP NOP NOP NOP SETB SDA ;结束总线 NOP ;保证一个终止信号和起始信号的空闲时间大于4.7us NOP NOP NOP RET
;发送应答信号子程序***************************************
第 23 页 共 33页