无锡科技职业学院
JB FLAG1,S22 LJMP BCD ;
S22:LCALL DELAY1
MOV A,#0CCH ; 跳过ROM匹配------0CC LCALL WRITE_1820 LCALL WRITE_1820 NOP
LCALL DELAY LCALL DELAY CBA:LCALL INIT_1820 JB FLAG1,ABC LJMP CBA
ABC:LCALL DELAY1
MOV A,#0CCH ; 跳过ROM匹配 RET MOV R2,#8 RE1: CLR C SETB DQ NOP NOP CLR DQ NOP NOP NOP SETB DQ MOV R3,#7 DJNZ R3,$ MOV C,DQ MOV R3,#23 DJNZ R3,$ RRC A DJNZ R2,RE1 RET
25
无锡科技职业学院
MOV R2,#8 CLR C WR1: CLR DQ MOV R3,#6 DJNZ R3,$ RRC A MOV DQ,C MOV R3,#23 DJNZ R3,$ SETB DQ NOP
DJNZ R2,WR1 SETB DQ RET
MOV R1,#36H ; 低位存入36H(TEMPER_L),高位存入35H(TEMPER_H) RE00: MOV R2,#8 RE01: CLR C SETB DQ NOP NOP CLR DQ NOP NOP NOP SETB DQ MOV R3,#7 DJNZ R3,$ MOV C,DQ MOV R3,#23 DJNZ R3,$ RRC A
26
无锡科技职业学院
DJNZ R2,RE01 MOV @R1,A DEC R1 DJNZ R4,RE00 RET
MOV A,#0F0H ANL A,TEMPER_L ; MOV TEMPER_NUM,A MOV A,TEMPER_L
JNB ACC.3,TEMPER_COV1 ; INC TEMPER_NUM
TEMPER_COV1: MOV A,TEMPER_H ANL A,#07H SWAP A
ORL A,TEMPER_NUM MOV TEMPER_NUM,A ; mov a,#0fh ANL A,TEMPER_L
mov TEMPER_d,a clr c subb a,#10 jc jianlo
mov TEMPER_d,a inc TEMPER_NUM jianlo:
LCALL BIN_BCD RET BIN_BCD:
MOV DPTR,#TEMP_TAB MOV A,TEMPER_NUM MOVC A,@A+DPTR
27
无锡科技职业学院
MOV TEMPER_NUM,A RET
TEMP_TAB:
DB 00H,01H,02H,03H,04H,05H,06H,07H DB 08H,09H,10H,11H,12H,13H,14H,15H DB 16H,17H,18H,19H,20H,21H,22H,23H DB 24H,25H,26H,27H,28H,29H,30H,31H DB 32H,33H,34H,35H,36H,37H,38H,39H DB 40H,41H,42H,43H,44H,45H,46H,47H DB 48H,49H,50H,51H,52H,53H,54H,55H DB 56H,57H,58H,59H,60H,61H,62H,63H DB 64H,65H,66H,67H,68H,69H,70H,71H DB 72H,73H,74H,75H,76H,77H,78H,79H DB 80H,81H,82H,83H,84H,85H,86H,87H DB 88H,89H,90H,91H,92H,93H,94H,95H DB 96H,97H,98H,99H
;------------------延时子程序 DELAY:MOV R7,#2H MIN:DJNZ R7,YS500 RET
YS500:LCALL YS500US LJMP MIN
YS500US:MOV R6,#200 DJNZ R6,$ RET
DELAY1:MOV R7,#20H DJNZ R7,$ RET
display: ;显示程序 MOV DPTR,#TABLE
28
无锡科技职业学院
clr dula; mov a,bai_c MOVC a,@A+DPTR mov p0,a ;显示百位 setb dula; clr dula;
clr wela; mov P0,#7eh; setb wela; clr wela; mov 50h,#5h call delayxms
clr dula; mov a,sh_c MOVC a,@A+DPTR
orl a,#80h ;显示小数点 mov p0,a ; ;显示十位 setb dula; clr dula;
clr wela; mov P0,#7dh; setb wela; clr wela; mov 50h,#5h call delayxms
mov a,g_c
MOVC a,@A+DPTR mov p0,a ; ;显示个位 setb dula; clr dula; mov P0,#7bh;
29
无锡科技职业学院
setb wela; clr wela; mov 50h,#5h call delayxms ret
delayxms:mov 52h,#1 ;50h,51h,52h用于延时 50h为参数x 延时1*x ms delaya: mov 51h,#125 djnz 51h,$ djnz 52h,delaya djnz 50h,delayxms ret ;延时返回
table:db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h, db 7fh,6fh,77h,7ch,39h,5eh,79h,71h
30