;======读数据============== LCALL WENDURST
JB 70H,WENDUDS1 ;检复位成功了转 RET
WENDUDS1:
MOV A,#0CCH ;跳过ROM LCALL WENDUXS_B
MOV A,#0BEH ;读RAM LCALL WENDUXS_B LCALL WENDUDX_B RET
;-----读数子程序----------- WENDUDX_B: MOV R0,#20H MOV R4,#02 WENDUDX_B0: MOV R5,#08H WENDUDX_B1: CLR C SETB P3.3 NOP NOP NOP NOP
CLR P3.3 NOP NOP NOP NOP NOP
NOP
SETB P3.3 MOV R6,#18
DJNZ R6,$ ;13uS MOV C,P3.3 MOV R6,#46 DJNZ R6,$ RRC A
;调读子程序
DJNZ R5,WENDUDX_B1 MOV @R0,A INC R0
DJNZ R4,WENDUDX_B0 RET
;====写数据子程序====== WENDUXS_B: MOV R5,#08H CLR C
WENDUXS_B0: CLR P3.3 MOV R6,#12 DJNZ R6,$ RRC A
MOV P3.3,C MOV R6,#49 DJNZ R6,$ SETB P3.3 NOP NOP
DJNZ R5,WENDUXS_B0 SETB P3.3 RET
;===========18B20初始化子程序=============== WENDURST: SETB P3.3 NOP NOP
CLR P3.3 MOV R5,#255 WENDURST1:
;复位低电时间510uS
NOP NOP
DJNZ R5,WENDURST1;复位低电时间510uS SETB P3.3
MOV R5,#60 ;等待检测存在脉冲15uS DJNZ R5,$ ;等待检测存在脉冲15uS
JNB P3.3,WENDURSTOK ;有存在脉冲转
CLR 70H ;无存在脉冲清除标号
RET WENDURSTOK: MOV R5,#180 ;测存在脉冲240uS DJNZ R5,$
SETB 70H ;有存在脉冲打上标号 SETB P3.3 RET
;============遥控按键处理========================== POWER: MOV A,5FH
CJNE A,#0B7H,POWER1 LCALL YAOKONG1 MOV 5FH,#00H RET
POWER1:
MOV A,5FH
CJNE A,#0A7H,POWER2 LCALL YAOKONG2 MOV 5FH,#00H RET
POWER2: MOV A,5FH
CJNE A,#97H,POWER3 LCALL YAOKONG3 MOV 5FH,#00H RET
POWER3: MOV A,5FH
CJNE A,#0FH,POWER4 LCALL YAOKONG4 MOV 5FH,#00H RET
POWER4:
MOV A,5FH
CJNE A,#0C7H,POWER5 LCALL YAOKONG5 MOV 5FH,#00H RET
POWER5: MOV A,5FH
CJNE A,#4FH,POWER6 LCALL YAOKONG6 MOV 5FH,#00H RET
POWER6: MOV A,5FH
CJNE A,#0E7H,POWER7 LCALL YAOKONG7 MOV 5FH,#00H RET
POWER7: MOV A,5FH
CJNE A,#27H,POWER8 LCALL YAOKONG8 MOV 5FH,#00H RET
POWER8: MOV A,5FH
CJNE A,#0D7H,POWER9 LCALL YAOKONG9 MOV 5FH,#00H RET
POWER9:
MOV A,5FH
CJNE A,#47H,POWER0 LCALL YAOKONG0 MOV 5FH,#00H POWER0: RET
;====================================== ;=========定时比较==================== BIJIAO: BJ0:
MOV A,RR8
CJNE A,#4DH,BJ1 MOV R1,#1EH MOV R0,#10H LCALL BJ00 RET
BJ1:
CJNE A,#4FH,BJ2 MOV R1,#18H MOV R0,#10H LCALL BJ00 RET BJ2:
CJNE A,#51H,BJ3 MOV R1,#19H MOV R0,#10H LCALL BJ00 RET BJ3:
CJNE A,#53H,BJ4 MOV R1,#1AH MOV R0,#10H LCALL BJ00 RET BJ4:
CJNE A,#55H,BJ5 MOV R1,#1BH MOV R0,#10H LCALL BJ00 RET
;今天星期一吗?