网站导航免费论文 原创论文 论文搜索 作业答案 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 设计资源 > 单片机 > 正文
实战二《用ST套件点亮RB口八个LED的实验》
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: Admin 发布时间: 10/06/19
;84led-a.asm 用程序点亮RB口8个LED的实验,供初学入门用
 ;本程序的功能是:程序复位后,RB7口的8个LED都被点亮,
;烧写时应注意:配置位已经在程序中写明,加载HEX文件时会自动加载,烧写时不用再手动设置配置位。
;实验时请注意套件跳线选择,跳线全部插入串口座方向
;*******************************************************************               
 LIST P=16F84A,R=DEC;  告诉编译程序使用何种PIC单片机,默认数制为10进制。
;-------------------------------------------------------------------
  __CONFIG B'11111111110001';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC 
                                              ;没有代码保护
                                              ;看门狗关闭
                                              ;上电廷时器开启
                                              ;振荡器模式为XT
;-------------------------------------------------------------------
STATUS EQU 03H; 定义状态寄存器地址
PORTA EQU 05H  ;端口A的数据寄存器地址
PORTB EQU 06H  ;端口B的数据寄存器地址

TRISA EQU 5H   ;定义端口A的方向控制寄存器地址
TRISB EQU 6H   ;定义端口B的方向控制寄存器地址
;---------------------- STATUS  
RP0       EQU 5  ;定义状态寄存器中的RAM页选位RP0
;--------------------

         ORG 0000H              ; 程序从零地址开始
         CLRF PORTA
         CLRF PORTB           ;初始化I/O口
     
         BSF STATUS,RP0       ;设置数据寄存器体1
         MOVLW B'00000000'    ; 1代表输入,0代表输出
         MOVWF TRISA           ; 设置PORTA全部IO为输出
	 MOVLW B'00000000'  
         MOVWF TRISB           ; 设置PORTB 全部IO为输出
         BCF STATUS,RP0       ;恢复数据寄存器体0
 
	 MOVLW 0FFH
         MOVWF PORTB           ;RB口全部为1,8个LED都被点亮
         GOTO $                ;在本指令不停循环。

         END                  ; 形式上的程序结束

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 电话:013574892963 QQ:3710167 邮箱:Educs@163.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 Www.myeducs.Cn All Rights Reserved
湘ICP备09003080号