(汇编)实现数码管显示年,月,日,时,分,秒,星期,温度,按键可调万年历.doc

;/;本程序源代码由湖南工程职业技术学院提供.;专业单片机培训,让你学习单片机更容易.;程序员：蒋庆桥 ;QQ:xxxxxxxxx;本程序用汇编实现数码管显示年，月，日，时，分，秒，星期，温度，按键可调万年历，H_ADJ BIT P3.0 ;时/年调整M_ADJ BIT P3.1 ;分/月调整S_ADJ BIT P1.4 ;秒/日调整DT_SET BIT P1.6 ;时间/日期选择STR BIT P1.5;启动走时T_RST BIT P1.0 ;实时时钟复位线引脚T_CLK BIT P1.1 ;实时时钟时钟线引脚T_IO BIT P1.2 ;实时时钟数据线引脚 HH_BIT EQU 40H ;时高位HL_BIT EQU 41H ;时低位MH_BIT EQU 42H ;分高位ML_BIT EQU 43H ;分低位SH_BIT EQU 44H ;秒高位SL_BIT EQU 45H ;秒低位TEMPER_L EQU 46HTEMPER_H EQU 47HYH_BIT EQU 48H ;年高位YL_BIT EQU 49H ;年低位MOH_BIT EQU 4aH ;月高位 MOL_BIT EQU 4bH ;月低位DH_BIT EQU 4cH ;日高位DL_BIT EQU 4dH ;日低位SEC EQU 30H MIN EQU 31HHOUR EQU 32HDAY EQU 33HMONTH EQU 34HWEEK EQU 35HYEAR EQU 36HTEMPERequ 37hFLAG1 BIT 20h.0 ;DS18B20存在标志位DQ BIT P1.3A_BIT EQU 55HB_BIT EQU 56HDS1302_ADDR EQU 5EHDS1302_DATA EQU 5FHORG 00HLJMP STARTSTART:MOV SP,#60HMOV TMOD,#11HMOV TH0,#3CHMOV TL0,#0B0HMOV R0,#10SETB EASETB ET0SETB TR0MOV R1,37HMOV YEAR,#13H ;上电预置日期、时间MOV WEEK,#03H ;周1 MONMOV MONTH,#07H ;2011 04 25 12:00:00 MOV DAY,#05HMOV HOUR,#23HMOV MIN,#00HMOV SEC,#00HMOV 50H,#0 / MAIN: LCALL KEY/MAIN2:CALL FENLILCALL INIT_18B20 LCALL GET_TEMPER call CHANGEcall dispcalldisplayAJMP MAIN FENLI:MOV A,YEAR MOV B,#10HDIV ABMOV YL_BIT,BMOV YH_BIT,A MOV A,MONTHMOV B,#10HDIV ABMOV MOL_BIT,BMOV MOH_BIT,AMOV A,DAYMOV B,#10HDIV AB MOV DL_BIT,BMOV DH_BIT,AMOV A,HOUR MOV B,#10HDIV ABMOV HL_BIT,BMOV HH_BIT,AMOV A,MINMOV B,#10HDIV AB MOV ML_BIT,BMOV MH_BIT,AMOV A,SECMOV B,#10HDIV ABMOV SL_BIT,BMOV SH_BIT,ARETKEY: ;按键子程序JB F0,MAIN10 ;F0=1,开始走时。走时前写，不读。走时后读，不写。LCALL WR1302 AJMP key_setMAIN10:LCALL RD1302KEY_SET:JB DT_SET,KEY_HACALL D10MSJNB DT_SET,$-2CPL 7FHAJMP RTKEY_H: JB H_ADJ,KEY_MACALL D10MSJNB H_ADJ,$-2AJMP H_ADDKEY_M:JB M_ADJ,KEY_SACALL D10MSJNB M_ADJ,$-2AJMP M_ADDKEY_S:JB S_ADJ,KEY_STACALL D10MSJNB S_ADJ,$-2AJMP S_ADDKEY_ST:JB STR,RTACALL D10MSJNB STR,$-2AJMP K_STRRT:RETH_ADD:JB 7FH,Y_ADD ;7FH为日期/时间切换键标志。1为年月日。MOV A,HOURADD A,#01HDA ACJNE A,#24H,H_ADD1MOV A,#0H_ADD1:MOV HOUR,AAJMP RTY_ADD:MOV A,YEARADD A,#01HDA A CJNE A,#20H,Y_ADD1MOV A,#0Y_ADD1:MOV YEAR,AAJMP RTM_ADD:JB 7FH,MO_ADD MOV A,MINADD A,#01HDA ACJNE A,#60H,M_ADD1MOV A,#00HM_ADD1:MOV MIN,AAJMP RTMO_ADD: MOV A,MONTHADD A,#01HDA ACJNE A,#13H,MO_ADD1MOV A,#1MO_ADD1:MOV MONTH,AAJMP RTS_ADD:JB 7FH,D_ADDMOV A,SECADD A,#01HDA ACJNE A,#60H,S_ADD1MOV A,#00HS_ADD1:MOV SEC,AAJMP RTD_ADD:MOV A,DAYADD A,#01HDA ACJNE A,#32H,D_ADD1MOV A,#01HD_ADD1:MOV DAY,AAJMP RTW_ADD:MOV A,WEEKADD A,#01HDA ACJNE A,#7H,W_ADD1MOV A,#0W_ADD1:MOV WEEK,AAJMP RTK_STR:MOV DS1302_ADDR,#80H ;开始振荡MOV DS1302_DATA,SECLCALL WRITEMOV DS1302_ADDR,#8EH ;禁止写入1302MOV DS1302_DATA,#80HLCALL WRITEcpl f0/SETB F0CLR P2.7AJMP RT WR1302: MOV DS1302_ADDR,#8EH MOV DS1302_DATA,#00H ;允许写1302LCALL WRITEMOV DS1302_ADDR,#80HMOV DS1302_DATA,#80H ;1302停止振荡LCALL WRITEMOV DS1302_ADDR,#8CH ;年写入1302MOV DS1302_DATA,YEARLCALL WRITE MOV DS1302_ADDR,#8AH ;周写入1302MOV DS1302_DATA,WEEKLCALL WRITEMOV DS1302_ADDR,#88H ;月写入1302MOV DS1302_DATA,MONTHLCALL WRITEMOV DS1302_ADDR,#86H ;日写入1302MOV DS1302_DATA,DAYLCALL WRITEMOV DS1302_ADDR,#84H ;时写入1302MOV DS1302_DATA,HOURLCALL WRITEMOV DS1302_ADDR,#82H ;分写入1302MOV DS1302_DATA,MINLCALL WRITEMOV DS1302_ADDR,#82H ;秒写入1302MOV DS1302_DATA,MINLCALL WRITERETWRITE: CLR T_CLKNOPSETB T_RSTNOPMOV A,DS1302_ADDRMOV R4,#8WRITE1:RRC A NOPNOPCLR T_CLKNOPNOPNOPMOV T_IO,CNOPNOPNOPSETB T_CLKNOPNOPDJNZ R4,WRITE1CLR T_CLKNOPMOV A,DS1302_DATAMOV R4,#8WRITE2: RRC ANOP CLR T_CLKNOPNOPMOV T_IO,CNOPNOPNOPSETB T_CLKNOPNOPDJNZ R4,WRITE2CLR T_RSTRETRD1302:MOV DS1302_ADDR,#8DH ;年读出LCALL READMOV YEAR,DS1302_DATAMOV DS1302_ADDR,#8BH ;周读出 LCALL READMOV WEEK,DS1302_DATAMOV DS1302_ADDR,#89H ;月读出 LCALL READMOV MONTH,DS1302_DATAMOV DS1302_ADDR,#87H ;日读出LCALL READMOV DAY,DS1302_DATAMOV DS1302_ADDR,#85H ;时读出LCALL READMOV HOUR,DS1302_DATAMOV DS1302_ADDR,#83H ;分读出LCALL READMOV MIN,DS1302_DATAMOV DS1302_ADDR,#81H ;秒读出LCALL READMOV SEC,DS1302_DATARET READ: CLR T_CLKNOPNOPSETB T_RSTNOPMOV A,DS1302_ADDRMOV R4,#8 READ1: RRC AMOV T_IO,CNOPNOPNOPSETB T_CLKNOPNOPNOPCLR T_CLKNOPNOPDJNZ R4,READ1MOV R4,#8 READ2: CLR T_CLKNOPNOPNOPMOV C,T_IONOPNOPNOPNOPNOPRRC ANOPNOPNOPNOPSETB T_CLKNOPDJNZ R4,READ2MOV DS1302_DATA,ACLR T_RSTRETDISP: MOVP2,#0FFHMOV A,YH_BITMOV DPTR,#TABMOVC A,A+DPTRMOV P2,AMOV P3,#11111011BCALL DELAY MOV P3,#0FFHMOVP2,#0FFHMOV A,YL_BITMOVC A,A+DPTRMOV P2,AMOV P3,#11110111BCALL DELAYMOV P3,#0FFHMOVP2,#0FFHMOV A,MOH_BITMOVC A,A+DPTRMOV P2,AMOV P3,#11101111BCALL DELAYMOV P3,#0FFHMOVP2,#0FFHMOV A,MOL_BITMOVC A,A+DPTRMOV P2,AMOV P3,#11011111B CALL DELAY MOV P3,#0FFH MOVP2,#0FFHMOV A,DH_BITMOVC A,A+DPTRMOV P2,AMOV P3,#10111111BCALL DELAY MOV P3,#0FFHMOVP2,#0FFHMOV A,DL_BITMOVC A,A+DPTRMOV P2,AMOV P3,#01111111BCALL DELAY MOV P3,#0FFHMOVP2,#0FFHMOV A,HH_BITMOVC A,A+DPTRMOV P2,AMOV P0,#11111110BCALL DELAY MOV P0,#0FFHMOVP2,#0FFHMOV A,Hl_BITMOVC A,A+DPTRMOV P2,AMOV P0,#11111101BCALL DELAY MOV P0,#0FFHMOVP2,#0FFH MOV A,mH_BITMOVC A,A+DPTRMOV P2,AMOV P0,#11111011BCALL DELAY MOV P0,#0FFHMOVP2,#0FFHMOV A,ml_BITMOVC A,A+DPTRMOV P2,AMOV P0,#11110111BCALL DELAY MOV P0,#0FFH MOVP2,#0FFHMOV A,sH_BITMOVC A,A+DPTRMOV P2,AMOV P0,#11101111BCALL DELAY MOV P0,#0FFH MOVP2,#0FFHMOV A,sl_BITMOVC A,A+DPTRMOV P2,AMOV P0,#11011111BCALL DELAY MOV P0,#0FFHMOVP2,#0FFHMOV A,weekMOVC A,A+DPTRMOV P2,Aclr p1.7CALL DELAY setb p1.7RETD1MS: MOV R7,#250LOOP0: NOPNOPDJNZ R7,LOOP0RETD10MS:MOV R4,#4MOV R3,#200DJNZ R3,$DJNZ R2,$-4RET ;/表的制作/tab:db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h; /1-6共阴代码 ;/延时子程序/;输入：无;输出: 无;实现的功能:延时一段时间delay: ;=1s ov MOV r6,#30D: MOV r7,#20 DJNZ r7,$ DJNZ r6,D RET ;/ds18b20复位子程序/;输入：dq;输出：dp;实现的功能：将ds18b20 复位INIT_18B20: SETB DQ NOP CLR DQ MOV R0,#0FBHTSR1: DJNZ R0,TSR1 ;延时 SETB DQ MOV R0,#25HTSR2: JNB DQ ,TSR3 DJNZ R0,TSR2TSR3: SETB FLAG1 ;置标志位，表明DS18B20存在 CLR P2.0 ;二极管指示 AJMP TSR5TSR4: CLR FLAG1 LJMP TSR7TSR5: MOV R0,#06BHTSR6: DJNZ R0,TSR6TSR7:SETB DQ ;表明不存在 RET/*;*设定DS18B20暂存器设定值*RE_CONFIG: JB FLAG1,RE_CONFIG1 RETRE_CONFIG1: MOV A,#0CCH ;放跳过ROM命令 LCALL WRITE_18B20 MOV A,#4EH LCALL WRITE_18B20 ;写暂存器命令 MOV A,#00H ;报警上限中写入00H LCALL WRITE_18B20 MOV A,#00H ;报警下限中写入00H LCALL WRITE_18B20 MOV A,#1FH ;选择九位温度分辨率 LCALL WRITE_18B20 RET */ ;/读温度子程序/;输入：;输出：温度;实现的功能：读转换后的温度值GET_TEMPER: SETB DQ LCALL INIT_18B20 JB FLAG1,TSS2 RET ;若不存在则返回 TSS2: MOV A,#0CCH ;跳过ROM LCALL WRITE_18B20 MOV A,#44H ;发出温度转换命令 LCALL WRITE_18B20 ; LCALL DISPLAY ;延时 LCALL INIT_18B20 MOV A,#0CCH ;跳过ROM LCALL WRITE_18B20 MOV A,#0BEH ;发出读温度换命令 LCALL WRITE_18B20 LCALL READ2_18B20 ;读两个字节的温度 RET ;/写入ds18b20子程序/;输入：c;输出：;实现的功能：将数据写入ds18b20中 WRITE_18B20: MOV R2,#8 CLR C WR1: CLR DQ MOV R3,#6 DJNZ R3,$ RRC A MOV DQ,