长春工业大学人文信息学院毕业设计（论文） 信息工程系
DJNZ R5, PtJXWE RET
READ_Pt_CODE:MOV R4,#8 MOV R1,# PtCD1
PtJXRD3:MOV R5,#8 PtJXRD2:SETB tDQ
CLR PtDQ NOP NOP SETB PtDQ MOV R7,#5 DJNZ R7,$ MOV C, PtDQ RRC A
LCALL DELAY60US DJNZ R5, PtJXRD2 MOV @R1,A INC R1
DJNZ R4, PtJXRD3 SETB PtDQ RET
READ_Pt:MOV R4,#2 MOV R1,#DS18SL
PtJXRD1: MOV R5,#8
PtJXRD: SETB PtDQ CLR PtDQ NOP
NOP
SETB PtDQ
MOV R7,#5
33
长春工业大学人文信息学院毕业设计（论文） 信息工程系
DJNZ R7,$ MOV C, PtDQ RRC A
LCALL DELAY60US DJNZ R5, PtJXRD MOV @R1,A DEC R1
DJNZ R4, PtJXRD1 SETB PtDQ RET READ_Pt_1: SETB PtDQ CLR PtDQ CLR PtDQ
CLR PtDQ SETB PtDQ MOV R7,#5 DJNZ R7,$ JB PtDQ,WEFH LCALL DELAY10MS WEFH:LCALL DELAY60US
RET
READCODE: SETB PtDQ
LCALL INIT_Pt JB PtFIG,NEXT RET
NEXT:MOV A,#33H
LCALL WRITE_Pt LCALL READ_Pt_CODE LCALL DISPLAYCD RET
34
长春工业大学人文信息学院毕业设计（论文） 信息工程系
Pt64SEN:MOV R4,#8
MOV DPTR,# PtTAB
Pt64SEN1:MOV A, Pt64B
MOVC A,@A+DPTR LCALL WRITE_1820 INC Pt64B DJNZ R4, Pt64SEN1 RET
MATCHROM:LCALL INIT_Pt
MOV A,#55H LCALL WRITE_Pt MOV Pt64B, PtADS LCALL Pt64SEN RET
MRCOVT:LCALL MATCHROM
MOV A,#44H LCALL WRITE_Pt LCALL DELAY1S RET
MRRDTEDP:LCALL INIT_Pt
LCALL MATCHROM MOV A,#0BEH LCALL WRITE_Pt LCALL READ_Pt LCALL TEMPCOV LCALL DISPLAY RET
//-------------------------------------------------------------------------------------------------//
35
断程序中长春工业大学人文信息学院毕业设计（论文） 信息工程系
ORG 0000H LJMP TIM ORG 000BH LJMP TIME0 ORG 0100H TIM: MOV A,#0FFH
MOV R2,#0 MOV TMOD,#01H MOV TH0,#3CH MOV TL0,#0B0H SETB ET0 SETB EA SETB TR0 L0:MOV P2,A
SJM P L0 TIME0:MOV TH0,#3CH
MOV TL0,#0B0H INC R2 CJNE R2,#20,L1 CPL A MOV R2,#0 L1:RETI
END
//-------------------------------------------------显示子程序
--------------------------------------------// DISPLAY:MOV R0,#79H MOV R3,#01H MOV A,R3
LD0:MOV DPTR,#7F01H
36
