EEPW论坛

明天期末考试 ，没时间弄板子了，下星期再继续努力让板子多实现功能。。。。。。希望能考个好成绩

ORG  00H
TMPL EQU 29H
TMPH EQU 28H
FLAG1 BIT 38H
DATAIN BIT P1.3
MAIN:LCALL GET_TEMPER
LCALL CVTTMP
LCALL DISP1
AJMP MAIN
INIT_1820:SETB DATAIN
NOP
CLR DATAIN
MOV R1,#3
TSR1:MOV R0,#107
DJNZ R0,$
DJNZ R1,TSR1
SETB DATAIN
NOP
NOP
NOP
MOV R0,#25H
TSR2:JNB DATAIN,TSR3
DJNZ R0,TSR2
CLR FLAG1
SJMP TSR7
TSR3:SETB FLAG1
CLR P1.0
MOV R0,#117
TSR6:DJNZ R0,$
TSR7:SETB DATAIN
RET
GET_TEMPER:
SETB DATAIN
LCALL INIT_1820
JB FLAG1,TSS2
NOP
RET
TSS2:MOV A,#0CCH
LCALL WRITE_1820
MOV A,#44H
LCALL WRITE_1820
ACALL DISP1
LCALL INIT_1820
MOV A,#0CCH
LCALL WRITE_1820
MOV A,#0BEH
LCALL WRITE_1820
LCALL READ_18200
RET
WRITE_1820:
MOV R2,#8
CLR C
WR1:CLR DATAIN
MOV R3,#6
DJNZ R3,$
RRC A
MOV DATAIN,C
MOV R3,#23
DJNZ R3,$
SETB DATAIN
NOP
DJNZ R2,WR1
SETB DATAIN
RET
READ_18200:
MOV R4,#2
MOV R1,#29H
RE00:MOV R2,#8
RE01:CLR C
SETB DATAIN
NOP
NOP
CLR DATAIN
NOP
NOP
NOP
SETB DATAIN
MOV R3,#9
RE10:DJNZ R3,RE10
MOV C,DATAIN
MOV R3,#23
RE20:DJNZ R3,RE20
RRC A
DJNZ R2,RE01
MOV @R1,A
DEC R1
DJNZ R4,RE00
RET
CVTTMP:MOV A,TMPH
ANL A ,#08H
JZ TMPC1
CLR C
MOV A,TMPL
CPL A
ADD A,#1
MOV TMPL,A
MOV A,TMPH
CPL A
ADDC A,#0
MOV TMPH,A
MOV 37H,#0BH
SJMP TMPC11
TMPC1:
MOV 37H,#0AH
TMPC11:MOV A,TMPL
ANL A,#0FH
MOV DPTR,#TMPTAB
MOVC A,@A+DPTR
MOV 70H,A
MOV A,TMPL
ANL A,#0F0H
SWAP A
MOV TMPL,A
MOV A,TMPH
ANL A,#0FH
SWAP A
ORL A,TMPL
H2BCD:
MOV B,#100
DIV AB
JZ B2BCD1
MOV 73H,A
B2BCD1:MOV A,#10
XCH A,B
DIV AB
MOV 72H,A
MOV 71H,B
TMPC12:NOP
DISBCD:MOV A,73H
ANL A,#0FH
CJNE A,#1,DISBCD0
SJMP DISBCD1
DISBCD0:MOV A,72H
ANL A,#0FH
JNZ DISBCD1
MOV A,73H
MOV 72H,A
MOV 73H,#0AH
DISBCD1:RET
TMPTAB:DB 0,1,1,2,3,3,4,4,5,6,6,7,8,8,9,9
DISP1:MOV R1,#70H
MOV R5,#0FEH
PLAY:MOV P0,#0FFH
MOV A,R5
MOV P2,A
MOV A,@R1
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV P0,A
MOV A,R5
JB ACC.1,LOOP1
CLR P0.7
LOOP1:LCALL DL1MS
INC R1
MOV A,R5
JNB ACC.3,ENDOUT
RL A
MOV R5,A
SJMP PLAY
ENDOUT:MOV P0,#0FFH
MOV P2,#0FFH
RET
TAB:DB 0C0H,0F9H,0A4H,0B0H,99H
DB 92H,82H,0F8H,80H,90H,0FFH,0BFH
DL1MS:MOV R6,#14H
DL1:MOV R7,#100
DJNZ R7,$
DJNZ R6,DL1
RET
END