2016第三届物联网大会
智能后视镜产品方案对接会
中国LED智能照明高峰论坛
第三届?无线通信技术研讨会
第二届?中国IoT大会
ETFo智能安防技术论坛
移入鼠标可放大二维码
汇编源程序 - 用单片机AT89C51设计的数字钟
来源：本站整理
作者：灰色天空日 16:07
[导读] 6. 汇编源程序 SECOND EQU 30H MINITE EQU 31H HOUR EQU 32H HOURK BIT P0.0 MINITEK BIT P0.1 SECONDK BIT P0.2 DISPBUF EQU 40H DISPBIT EQU 48H T2SCNTA EQU 49H T2SCNTB EQU 4AH TEMP EQU 4BH ORG 00H LJMP
6.汇编源程序&
SECOND& & & & & EQU 30H&
MINITE& & & & & & & & & & EQU 31H&
HOUR& & & & & & EQU 32H&
HOURK& & & & & BIT P0.0&
MINITEK& & & & BIT P0.1&
SECONDK& & & & BIT P0.2&
DISPBUF& & & & & & EQU 40H&
DISPBIT& & & & & & EQU 48H&
T2SCNTA& & & & & & EQU 49H&
T2SCNTB& & & & & & EQU 4AH&
TEMP& & & & & & & EQU 4BH&
& & & & ORG 00H&
& & & & LJMP START&
& & & & ORG 0BH&
& & & & LJMP INT_T0&
START:& MOV SECOND,#00H&
& & & & MOV MINITE,#00H&
& & & & MOV HOUR,#12&
& & & & MOV DISPBIT,#00H&
& & & & MOV T2SCNTA,#00H&
& & & & MOV T2SCNTB,#00H&
& & & & MOV TEMP,#0FEH&
& & & & LCALL DISP&
& & & & MOV TMOD,#01H&
& & & & MOV TH0,#() / 256&
& & & & MOV TL0,#() MOD 256&
& & & & SETB TR0&
& & & & SETB ET0&
& & & & SETB EA&
WT:& & JB SECONDK,NK1&
& & & & LCALL DELY10MS&
& & & & JB SECONDK,NK1&
& & & & INC SECOND&
& & & & MOV A,SECOND&
& & & & CJNE A,#60,NS60&
& & & & MOV SECOND,#00H&
NS60:& LCALL DISP&
& & & & JNB SECONDK,$&
NK1:& & JB MINITEK,NK2&
& & & & LCALL DELY10MS&
& & & & JB MINITEK,NK2&
& & & & INC MINITE&
& & & & MOV A,MINITE&
& & & & CJNE A,#60,NM60&
& & & & MOV MINITE,#00H&
NM60:& LCALL DISP&
& & & & JNB MINITEK,$&
NK2:& & JB HOURK,NK3&
& & & & LCALL DELY10MS&
& & & & JB HOURK,NK3&
& & & & INC HOUR&
& & & & MOV A,HOUR&
& & & & CJNE A,#24,NH24&
& & & & MOV HOUR,#00H&
NH24:& LCALL DISP&
& & & & JNB HOURK,$&
NK3:& & LJMP WT&
DELY10MS:&
& & & & MOV R6,#10&
D1:& & MOV R7,#248&
& & & & DJNZ R7,$&
& & & & DJNZ R6,D1&
& & & & RET&
& & & & MOV A,#DISPBUF&
& & & & ADD A,#8&
& & & & DEC A&
& & & & MOV R1,A&
& & & & MOV A,HOUR&
& & & & MOV B,#10&
& & & & DIV AB&
& & & & MOV @R1,A&
& & & & DEC R1&
& & & & MOV A,B&
& & & & MOV @R1,A&
& & & & DEC R1&
& & & & MOV A,#10&
& & & & MOV @R1,A&
& & & & DEC R1&
& & & & MOV A,MINITE&
& & & & MOV B,#10&
& & & & DIV AB&
& & & & MOV @R1,A&
& & & & DEC R1&
& & & & MOV A,B&
& & & & MOV @R1,A&
& & & & DEC R1&
& & & & MOV A,#10&
& & & & MOV @R1,A&
& & & & DEC R1&
& & & & MOV A,SECOND&
& & & & MOV B,#10&
& & & & DIV AB&
& & & & MOV @R1,A&
& & & & DEC R1&
& & & & MOV A,B&
& & & & MOV @R1,A&
& & & & DEC R1&
& & & & RET&
& & & & MOV TH0,#() / 256&
& & & & MOV TL0,#() MOD 256&
& & & & MOV A,#DISPBUF&
& & & & ADD A,DISPBIT&
& & & & MOV R0,A&
& & & & MOV A,@R0&
& & & & MOV DPTR,#TABLE&
& & & & MOVC A,@A+DPTR&
& & & & MOV P1,A&
& & & & MOV A,DISPBIT&
& & & & MOV DPTR,#TAB&
& & & & MOVC A,@A+DPTR&
& & & & MOV P3,A&
& & & & INC DISPBIT&
& & & & MOV A,DISPBIT&
& & & & CJNE A,#08H,KNA&
& & & & MOV DISPBIT,#00H&
KNA:& & INC T2SCNTA&
& & & & MOV A,T2SCNTA&
& & & & CJNE A,#100,DONE&
& & & & MOV T2SCNTA,#00H&
& & & & INC T2SCNTB&
& & & & MOV A,T2SCNTB&
& & & & CJNE A,#05H,DONE&
& & & & MOV T2SCNTB,#00H&
& & & & INC SECOND&
& & & & MOV A,SECOND&
& & & & CJNE A,#60,NEXT&
& & & & MOV SECOND,#00H&
& & & & INC MINITE&
& & & & MOV A,MINITE&
& & & & CJNE A,#60,NEXT&
& & & & MOV MINITE,#00H&
& & & & INC HOUR&
& & & & MOV A,HOUR&
& & & & CJNE A,#24,NEXT&
& & & & MOV HOUR,#00H&
NEXT:& LCALL DISP&
DONE:& RETI&
TABLE:& DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,40H&
TAB:& & DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH&
& & & & END
数字钟相关文章
数字钟相关下载
AT89C51相关文章
AT89C51相关下载
单片机相关文章
单片机相关下载
技术交流、积极发言！ 发表评请遵守相关规定。
东芝是一家具有百年历史的知名跨国企业，旗下产品囊括数码产品、电子元器件、社会基础设施、家用电器等几乎全部生活及生产方面。东芝从显像管电视...
ADI公司总裁兼首席执行官（CEO）Vincent Roche认为会在未来一年、甚至几年内对商业、社会和日常生活产生深远影响的几大趋势。包括人工智能更趋人性化，物...
创新实用技术专题
xml和VR技术在GIS中数据互操作设计与实现简述
版权所有 & 深圳华强聚丰电子科技有限公司一场Pokemon
Go，让全世界的小精灵师都暴露了。因此，在……
2016年初，一场人机大战点燃了人工智能芯片的争夺战，而……
今年，频频爆出摩尔定律将不再是制造工艺界的神话，虽说……
值农历新年佳节之际，很多半导体公司都借机召开了自己的……
21ic 2016年度采访之TE——将无人机与VR连接在一起
演讲人：彭煜歆时间： 10:00:00
演讲人：杜复旦时间： 10:00:00
演讲人：沈凯时间： 10:00:00
预算：大于￥100,000预算：小于￥5,000
用PIC单片机实现音乐播放的实例程序
[导读]PIC单片机实现音乐播放的实例程序
********************************
PIC单片机实现音乐播放
******************************** 源程序： 以下程序要用二个定时器资源，凡是有二个定时器的PIC单片机均
PIC单片机实现音乐播放的实例程序
********************************
*&& PIC单片机实现音乐播放&&&&& *
********************************
&以下程序要用二个定时器资源，凡是有二个定时器的PIC单片机均可实现,该范例需要的MCU是MICROCHIP PIC16C62
&INCLUDE &D:PICP16XX.EQU&&& ;该文件在MICROCHIP光盘中可找到
;**************************************************
#define BeepOut RC,4
;**************************************************
W_TEMP EQU 0X20 ;(0XA0)
STATUS_TEMP EQU 0X21
BeepCnt equ 30h
TmrBak equ 31h
BeepMode equ 32h
Sflag equ 33h
;**************************************************
CSTIME100MS equ .8;
;**************************************************
Fg_100ms equ 0
FgBeep equ 1
;**************************************************
&&& ORG 000H;
&&& GOTO MAIN ; Skip over interrupt vecter
&&& ORG 04H ; Interrupt Vector
&&& GOTO INTZ
;**************************************************
&&& movf BeepCnt,w
&&& addwf PCL,f
&&& retlw .255-.130;0xf6 ;1 ;
&&& retlw .255-.126;02 ;
&&& retlw .255-.119; 03 ;
&&& retlw 0
;**************************************************
WhisleTab:
&&& movf BeepCnt,w
&&& addwf PCL,f
&&& retlw .255-.239;523H0 ;
&&& retlw .255-.179;698H1 ;
&&& retlw .255-.159;784H2 ;
&&& retlw .255-.119;1046H3 ;
&&& retlw .0
;**************************************************
&&& movf BeepCnt,w
&&& addwf PCL,f
&&& retlw .255-.159; 784H0 ;
&&& retlw .255-.119; 1046H1 ;
&&& retlw .255-.150; 830H2 ;
&&& retlw .255-.112 ;1109H3 ;
&&& retlw .255-.142 ;880H4 ;
&&& retlw .255-.106;1174H5 ;
&&& retlw .255-.134;932H6 ;
&&& retlw .255-.100;1244H7
&&& retlw .255-.126;988H8;
&&& retlw .255-.94;1318H9;
&&& retlw .255-.119;1046H10 ;
&&& retlw .255-.89;1397H11 ;
&&& retlw .0
;**************************************************
WelcomTab:
&&& movf BeepCnt,w
&&& addwf PCL,f
&&& retlw .255-.89;1397H11 ;
&&& retlw .255-.119;1046H10 ;
&&& retlw .255-.94;1318H9;
&&& retlw .255-.126;988H8;
&&& retlw .255-.100;1244H7
&&& retlw .255-.134;932H6 ;
&&& retlw .255-.106;1174H5 ;
&&& retlw .255-.142 ;880H4 ;
&&& retlw .255-.112 ;1109H3 ;
&&& retlw .255-.150; 830H2 ;
&&& retlw .255-.119; 1046H1 ;
&&& retlw .255-.159; 784H0 ;
&&& retlw .0
;**************************************************
&&& BeepModeJmp:
&&& addwf PCL,f
&&& b psW0
&&& b psO1
&&& b psH2
&&& b psW3
;**************************************************
&&& BANK1_
&&& MOVLW B''
&&& MOVWF TRISA
&&& MOVLW B''
&&& movwf TRISB
&&& MOVLW B''
&&& movwf TRISC ; Set Port_C to all outputs
&&& BANK0_
&&& RETURN
;**************************************************
&&& BANK1_
&&& MOVLW B'' ; 1:256 TMR0分频
&&& MOVWF OPTION_R
&&& BSF PIE1,TMR2IE ;TMR2中断允许
&&& BANK0_
&&& MOVLW B'' ;开TMR1
&&& MOVWF T1CON
&&& bsf INTCON,TOIE ;TMR0中断允许
&&& BSF INTCON,PEIE ;允许所有未被屏蔽之外围接口中断
&&& RETURN
;**************************************************
MAIN: ; Main rotation
&&& CALL IO_SET
&&& MOVLW B'' ;关所有中断
&&& MOVWF INTCON
;****************************
&&& CALL SYS_SET
;****************************
&&& call PlayPsW上电提示音
&&& bsf INTCON,GIE ;开所有中断
&&& CLRWDT ; Clear WDT
&&& call BeepFor
&&& B MAINLOOP
;**************************************************
&&& PUSH ; P中断服务程序
&&& BTFSC PIR1,TMR2IF ;测试TMR2中断标志位
&&& b INT_TMR2 ;
&&& BTFSC INTCON,TOIF ;测试TMR0中断标志位
&&& GOTO INT_TMR0
&&& POP ; Pop
&&& RETFIE
;**************************************************
&&& BCF PIR1,TMR2IF ;清TMR2中断标志位
&&& movf TmrBak,w
&&& movwf TMR2
&&& CPL BeepOut
BeeperEnd:
&&& b IntRet
;**************************************************
INT_TMR0: ;定时0中断
&&& BCF INTCON,TOIF ; clear INTF
&&& MOVLW .255-.38 ;10ms
&&& MOVWF TMR0
&&& ;====================
&&& decfsz T100ms,f
&&& b int_tmr0_ret
&&& movlw CSTIME100MS
&&& movwf T100ms
&&& bsf Sflag,Fg_100ms
&&& ;=====================
int_tmr0_ret:
&&& b IntRet
;**************************************************
PlayPsWhisle:
&&& bsf Fg,FgBeep
&&& clrf BeepCnt
&&& movlw .0
&&& movwf BeepMode
&&& movlw CSTIME100MS
&&& movwf T100ms
&&& retlw 0
;**************************************************
&&& bsf Fg,FgBeep
&&& clrf BeepCnt
&&& movlw .1
&&& movwf BeepMode
&&& movlw CSTIME100MS
&&& movwf T100ms
&&& retlw 0
;**************************************************
PlayPsHang:
&&& bsf Fg,FgBeep
&&& clrf BeepCnt
&&& movlw .2
&&& movwf BeepMode
&&& movlw CSTIME100MS
&&& movwf T100ms
&&& retlw 0
;**************************************************
PlayPsWelcom:
&&& bsf Fg,FgBeep
&&& clrf BeepCnt
&&& movlw .3
&&& movwf BeepMode
&&& movlw CSTIME100MS
&&& movwf T100ms
&&& retlw 0
;**************************************************
;音乐播放程序
;BeepMode=0 : psWhisle
;BeepMode=1 : psOk
;BeepMode=2 : psHang
;BeepMode=3 : psWelcom
;**************************************************
&&& btfss Sflag,Fg_100ms
&&& b BeepForEnd
&&& bcf Sflag,Fg_100ms
&&& btfss Sflag,FgBeep
&&& b BeepForEnd
&&& MOVLW B'' ;开TMR2 1:4分频
&&& MOVWF T2CON
&&& movf BeepMode,w
&&& b BeepModeJmp
&&& call WhisleTab
&&& b BeepPlay
&&& call OkTab
&&& b BeepPlay
&&& call HangTab
&&& b BeepPlay
&&& call WelcomTab
&&& b BeepPlay
&&& incf BeepCnt,f
&&& movwf TmrBak
&&& movf TmrBak,f
&&& btfsc status,z
&&& b BeepOff
&&& movlw .1
&&& xorwf TmrBak,w
&&& btfsc status,z
&&& b BeepStop
&&& b BeepForEnd
&&& clrf BeepCnt
&&& bcf Sflag,FgBeep
&&& bcf BeepOut
&&& bcf T2CON,TMR2ON
&&& b BeepForEnd
&&& bcf T2CON,TMR2ON ;stop
&&& bcf BeepOut
&&& BeepForEnd:
&&& retlw 0
;**************************************************
和之前传闻的一样，Valve 终于要把 Steam 带到电视平台之上了。Kotaku 在美国当地时间今天早晨确认，Valve 将会在同一天「晚些时候」推出 Beta 版「Big Picture Mode」：专为电视平台设计的 Steam ......关键字：
英特尔于日宣布了4004处理器及其芯片集，它是芯片巨人第一个完整的单片机和第一个商业微处理器。4004处理器有2300个晶体管，手指甲大小，计算性能与第一代电子计算机相当，但第一代计算机需要占据整间房......关键字：
21ic讯 Intersil公司日前宣布，&0}其LED
Pico投影仪系统解决方案荣获《电子产品世界》(EEPW)的&2012
编辑推荐&奖，该杂志是中国重要的专业类刊物。经过国内相关专家、学者和广大工程......关键字：
对于国内很多苹果用户来说，他们的第一台苹果设备可能并非是iPhone，而是iPod。简约的设计，代表性的白色耳机，累计超过4亿台的全球销量，过去很可能也是现在最好的数字音乐播放器，iPod的存在已经超出了其作为消费电子本身的意义，而成为了这......关键字：
最近中国在线视频行业的新闻还真不少，几天前百度才刚刚取得爱奇艺的大多数股权，今天我们又迎来了优酷土豆与 Sony Pictures 达成 5
年内容协议的消息。据悉未来优酷土豆将为付费用户提供大约 300 部 Sony Picture......关键字：
我 要 评 论
热门关键词