|
与网友yaolei的聊天记录
| 2006-11-27 |
15:50:12 |
yaolei |
您好 |
| 2006-11-27 |
15:50:26 |
伟民 |
您好 |
| 2006-11-27 |
15:50:50 |
yaolei |
需要一套PIc的学习开发套装 |
| 2006-11-27 |
15:50:55 |
yaolei |
能否给推荐一下 |
| 2006-11-27 |
15:51:44 |
伟民 |
如果条件允许，建议买豪华全套餐 |
| 2006-11-27 |
15:52:03 |
yaolei |
如果买ICD2-232 PIC在线调试器/烧写器 一口价 200.00 元
|
| 2006-11-27 |
15:52:07 |
yaolei |
PIC单片机实验板/开发板（专业版）2006年最新设计！ 一口价 198.00 元
|
| 2006-11-27 |
15:52:54 |
yaolei |
您的上面这两款产品就应该可以了吧 |
| 2006-11-27 |
15:53:15 |
伟民 |
还需要16F877A或其他单片机 |
| 2006-11-27 |
15:53:33 |
yaolei |
就是 |
| 2006-11-27 |
15:54:02 |
yaolei |
16F877A和16F877有何区别 |
| 2006-11-27 |
15:54:16 |
伟民 |
16F877已经淘汰了16F877A是改进型 |
| 2006-11-27 |
15:54:30 |
yaolei |
另外你的那个豪华套装多包含了什么器件？ |
| 2006-11-27 |
15:54:58 |
伟民 |
请看这里http://www.ajdz.net/3ekit.htm#3 |
| 2006-11-27 |
16:00:53 |
yaolei |
502套餐比422套餐多了些什么 |
| 2006-11-27 |
16:01:32 |
伟民 |
1602字符液晶模块（带背光） 28元/片 DS18B20 温度传感组件： 15元/个 步进电机
28元/只（全新，新加坡进口） DC电机 10元/只 |
| 2006-11-27 |
16:01:44 |
yaolei |
422有书吧 |
| 2006-11-27 |
16:02:02 |
伟民 |
电子书，都有的 |
| 2006-11-27 |
16:02:19 |
yaolei |
支持18F系列否 |
| 2006-11-27 |
16:02:27 |
伟民 |
支持 |
| 2006-11-27 |
16:02:41 |
yaolei |
28脚支持否 |
| 2006-11-27 |
16:03:29 |
伟民 |
最少支持6脚的 |
| 2006-11-27 |
16:03:45 |
yaolei |
不需要其他配件吧 |
| 2006-11-27 |
16:04:25 |
伟民 |
28脚的，通常需要实验插线的支持。 |
| 2006-11-27 |
16:04:44 |
yaolei |
？ |
| 2006-11-27 |
16:05:10 |
伟民 |
与16F877A、18F452引脚不兼容的需要实验插线的支持。引脚兼容的不用。 |
| 2006-11-27 |
16:05:49 |
伟民 |
http://www.ajdz.net/3epic.htm |
| 2006-11-27 |
16:06:14 |
伟民 |
这里有8脚的，您可以看一下 |
| 2006-11-27 |
16:08:49 |
yaolei |
422包含有16F877A芯片吧 |
| 2006-11-27 |
16:09:24 |
伟民 |
包括 |
| 2006-11-27 |
16:11:45 |
yaolei |
看起来不错，打算购买一套422加上液晶的套餐的先玩玩 |
| 2006-11-27 |
16:12:10 |
yaolei |
PIC刚入门，以后还请多指教 |
| 2006-11-27 |
16:13:53 |
yaolei |
但淘宝上好像没有这个商品 |
| 2006-11-27 |
16:15:36 |
yaolei |
在否 |
| 2006-11-27 |
16:31:39 |
伟民 |
在 |
| 2006-11-27 |
16:34:09 |
伟民 |
您可以拍下豪华全套餐，我给您改价格到422 |
| 2006-11-27 |
16:35:12 |
yaolei |
422套餐在淘宝上没有，另想加一个液晶显示的 |
| 2006-11-27 |
16:35:48 |
伟民 |
您可以拍下豪华全套餐，我给您改价格到422 |
| 2006-11-27 |
16:36:30 |
yaolei |
ok |
| 2006-11-27 |
16:36:33 |
伟民 |
加一个液晶显示也可以的，只要价格算好，我会给您改的 |
| 2006-11-27 |
16:37:31 |
yaolei |
太好了，多谢。以后在学习过程中希望版主多多帮助 |
| 2006-11-27 |
16:37:48 |
伟民 |
好的 |
| 2006-11-27 |
16:38:49 |
yaolei |
送到上海，没问题吧 |
| 2006-11-27 |
16:39:15 |
伟民 |
运费+13元 |
| 2006-11-27 |
16:39:37 |
yaolei |
快递吧 |
| 2006-11-27 |
16:39:42 |
伟民 |
对 |
| 2006-11-27 |
16:40:48 |
伟民 |
前天就有一个上海朋友买了全套餐 |
| 2006-11-27 |
16:41:37 |
yaolei |
是吧，看了您的信用评价，很不错，所以心动 |
| 2006-11-27 |
16:41:57 |
伟民 |
是吗 |
| 2006-11-27 |
16:42:18 |
yaolei |
拍上了，麻烦改一下 |
| 2006-11-27 |
16:42:24 |
伟民 |
好的 |
| 2006-11-27 |
16:43:22 |
伟民 |
总共是463，对吗？ |
| 2006-11-27 |
16:43:31 |
伟民 |
422+28+13 |
| 2006-11-27 |
16:43:43 |
yaolei |
对的 |
| 2006-11-27 |
16:43:49 |
伟民 |
先不要付款 |
| 2006-11-27 |
16:44:07 |
伟民 |
拍下即可 |
| 2006-11-27 |
16:44:20 |
yaolei |
ok |
| 2006-11-27 |
16:47:50 |
伟民 |
改好了 |
| 2006-11-27 |
16:56:48 |
yaolei |
已经把钱汇到支付宝了，请查收。店家服务热情、周到，值得期待。 |
| 2006-11-27 |
16:57:07 |
伟民 |
谢谢您的夸奖了 |
| 2006-11-27 |
16:57:19 |
伟民 |
我们不会让您失望的 |
| 2006-11-27 |
16:57:49 |
伟民 |
今天来不及了，明天准时发出 |
| 2006-11-27 |
16:59:58 |
yaolei |
好的 |
| 2006-11-30 |
13:44:55 |
yaolei |
收到快件了，东西真不赖，比俺想象的还要好 |
| 2006-11-30 |
13:45:55 |
伟民 |
谢谢您的夸奖 |
| 2006-11-30 |
13:46:15 |
|
伟民 发送 D:\pic项目\3epic项目正式文本\PIC单片机实践教程V20.pdf |
| 2006-11-30 |
13:47:52 |
yaolei |
店家真是为顾客考虑，包装很用心，非常感谢 |
| 2006-11-30 |
13:48:08 |
伟民 |
应该做的呀 |
| 2006-11-30 |
13:49:25 |
伟民 |
昨天，发了一个到西安的，因为天在下雨，我们还专门做了防水包装 |
| 2006-11-30 |
13:50:50 |
yaolei |
真是想的周到，下次买东西就到你这里买了。也希望店家商品品种越来越多 |
| 2006-11-30 |
13:51:24 |
yaolei |
这些板子是你们自己做的？做的很不错 |
| 2006-11-30 |
13:51:44 |
伟民 |
是的 |
| 2006-11-30 |
13:51:48 |
yaolei |
介绍的也很详细 |
| 2006-11-30 |
13:52:40 |
伟民 |
现在发给您的是2.0版本的教程 |
| 2006-11-30 |
13:52:53 |
伟民 |
会不断升级 |
| 2006-11-30 |
13:53:02 |
yaolei |
多谢 |
| 2006-11-30 |
13:53:23 |
yaolei |
爱晶是你自己开的公司吗 |
| 2006-11-30 |
13:54:13 |
伟民 |
等下再发送2.0版本的配套例程，100%调试通过的 |
| 2006-11-30 |
13:54:53 |
伟民 |
目前还是一个工作室，努力向公司方向发展 |
| 2006-11-30 |
13:54:56 |
yaolei |
太好了，再次谢了 |
| 2006-11-30 |
13:55:19 |
|
传输“PIC单片机实践教程V20.pdf”完成。 |
| 2006-11-30 |
13:55:38 |
|
伟民 发送 D:\pic项目\3epic项目正式文本\3ePIC
Lessons VER20.rar |
| 2006-11-30 |
13:56:00 |
|
传输“3ePIC
Lessons VER20.rar”完成。 |
| 2006-11-30 |
13:57:03 |
yaolei |
期盼越做越大 |
| 2006-11-30 |
13:57:29 |
伟民 |
一个小小的请求 |
| 2006-11-30 |
13:57:34 |
yaolei |
店家搞电子方面应该好多年了吧 |
| 2006-11-30 |
13:57:38 |
yaolei |
？ |
| 2006-11-30 |
13:57:48 |
伟民 |
从初中开始的 |
| 2006-11-30 |
13:57:56 |
yaolei |
(Y) |
| 2006-11-30 |
13:58:18 |
伟民 |
20多年了 |
| 2006-11-30 |
13:59:30 |
伟民 |
有空的话，可否到我们论坛的评介区给个评介 |
| 2006-11-30 |
14:00:59 |
yaolei |
想写呢，但是找不到评价的地方 |
| 2006-11-30 |
14:01:23 |
yaolei |
是不是的隔天才能做评价啊 |
| 2006-11-30 |
14:02:11 |
伟民 |
您说的是淘宝上的评介？ |
| 2006-11-30 |
14:02:21 |
yaolei |
是的 |
| 2006-11-30 |
14:02:45 |
伟民 |
您得先确认收到货了 |
| 2006-11-30 |
14:03:36 |
yaolei |
确认了，状态显示的是“交易成功” |
| 2006-11-30 |
14:04:00 |
伟民 |
那就可以评介对方了 |
| 2006-11-30 |
14:04:16 |
yaolei |
上虞是属于绍兴的啊？ |
| 2006-11-30 |
14:04:27 |
伟民 |
对 |
| 2006-11-30 |
14:04:43 |
yaolei |
上虞那边的电子行业怎么样？ |
| 2006-11-30 |
14:04:57 |
伟民 |
一般 |
| 2006-11-30 |
14:05:24 |
伟民 |
化工、机械是强项 |
| 2006-11-30 |
14:05:56 |
yaolei |
我感觉温州的电子行业还是比较旺 |
| 2006-11-30 |
14:06:26 |
伟民 |
杭州也不错 |
| 2006-11-30 |
14:06:56 |
伟民 |
还有慈溪 |
| 2006-11-30 |
14:07:40 |
伟民 |
上虞就在慈溪旁边 |
| 2006-11-30 |
14:07:49 |
yaolei |
赞同。像店家经验这么丰富的，为何不出去发展一下啊 |
| 2006-11-30 |
14:07:59 |
yaolei |
明白le |
| 2006-11-30 |
14:08:35 |
伟民 |
现在就是一个尝试呀 |
| 2006-11-30 |
14:09:48 |
伟民 |
以前搞项目转让，到现在终于明白了：中国现在的现状，卖技术，还不如自己做卖产品 |
| 2006-11-30 |
14:10:29 |
yaolei |
嗯，只要有销路，真的还是自己搞好 |
| 2006-11-30 |
14:10:47 |
伟民 |
我们有许多项目都准备自己做了 |
| 2006-11-30 |
14:11:32 |
伟民 |
现在的3ePIC仅仅是一个小小的开头 |
| 2006-11-30 |
14:11:44 |
yaolei |
我家有个邻居，以前修电视，水平高了以后，自己开发产品，没一两年就发了 |
| 2006-11-30 |
14:12:14 |
伟民 |
从技术上讲，开发板难度很低 |
| 2006-11-30 |
14:12:35 |
伟民 |
他做哪方面的？ |
| 2006-11-30 |
14:12:35 |
yaolei |
3ePIC做的很好用，很不错 |
| 2006-11-30 |
14:12:53 |
yaolei |
稍等 |
| 2006-11-30 |
14:14:00 |
伟民 |
简单的东西我们也要做到极致 |
| 2006-11-30 |
14:14:19 |
伟民 |
这是我的性格使然 |
| 2006-11-30 |
14:14:37 |
yaolei |
做智能开关件 |
| 2006-11-30 |
14:15:16 |
伟民 |
能具体讲讲他的故事吗，很感兴趣 |
| 2006-11-30 |
14:15:44 |
yaolei |
哈，你做的东西比我到电子市场看到贝能的东西还要好，方便多了 |
| 2006-11-30 |
14:17:53 |
yaolei |
接触得不是很多，这几年也没见到他了，当上老板了，也不屑修电视了。也是听一个朋友偶然说起 |
| 2006-11-30 |
14:18:26 |
伟民 |
您是做哪方面的 |
| 2006-11-30 |
14:19:47 |
yaolei |
俺可不是吹你，你做的东西的性价比高啊，特别是那个芯片插槽，设计的比贝能的好用 |
| 2006-11-30 |
14:20:44 |
伟民 |
哪个芯片插槽 |
| 2006-11-30 |
14:20:53 |
yaolei |
我是做光电方面的，后来由于工作的原因，主要偏光，所以现在要把点加强一下 |
| 2006-11-30 |
14:21:09 |
yaolei |
16f877A |
| 2006-11-30 |
14:21:18 |
伟民 |
o |
| 2006-11-30 |
14:21:34 |
yaolei |
把电的加强一下 |
| 2006-11-30 |
14:28:28 |
伟民 |
有事忙去了，有空再聊 |
| 2006-11-30 |
14:28:57 |
yaolei |
好的 |
| 2006-12-4 |
9:18:02 |
yaolei |
伟民兄，您好 |
| 2006-12-4 |
9:18:13 |
伟民 |
您好 |
| 2006-12-4 |
9:18:28 |
yaolei |
试了一下你的那套实验系统，很好用 |
| 2006-12-4 |
9:18:52 |
伟民 |
准备做些什么？ |
| 2006-12-4 |
9:18:57 |
yaolei |
不知道，那个实验板能不能用28脚的 |
| 2006-12-4 |
9:19:20 |
伟民 |
4-40脚均可以 |
| 2006-12-4 |
9:19:28 |
yaolei |
做个电流控制得器 |
| 2006-12-4 |
9:20:35 |
伟民 |
如果引脚排列与877A不同，就要用实验插线来接驳各模块了 |
| 2006-12-4 |
9:20:53 |
伟民 |
不是用短路帽了 |
| 2006-12-4 |
9:22:08 |
yaolei |
实验板上得那个40脚芯片插槽是不是与其他管脚都是断开的，必须通过接驳区插线与各模块连接 |
| 2006-12-4 |
9:22:34 |
伟民 |
？ |
| 2006-12-4 |
9:24:38 |
yaolei |
我的意思是说，如果把你出厂默认设置接驳区中的40个短路帽拿掉，那么芯片插槽的引脚与其他管脚都是断开的吧 |
| 2006-12-4 |
9:24:52 |
伟民 |
对 |
| 2006-12-4 |
9:25:21 |
yaolei |
巧妙 |
| 2006-12-4 |
9:25:40 |
伟民 |
谢谢夸奖 |
| 2006-12-4 |
9:27:31 |
yaolei |
现在打算试做一个电流控制器，通过拨码盘来控制输入电流的大小，你这里有拨码盘的资料吗 |
| 2006-12-4 |
9:27:59 |
伟民 |
这个倒没有 |
| 2006-12-4 |
9:28:51 |
伟民 |
网上找一下吧 |
| 2006-12-4 |
9:29:00 |
yaolei |
嗯，谢谢， |
| 2006-12-4 |
9:30:03 |
yaolei |
实验板上的默认时钟是20M吗 |
| 2006-12-4 |
9:30:36 |
伟民 |
是根据您用的单片机的 |
| 2006-12-4 |
9:30:52 |
伟民 |
一般最高20M |
| 2006-12-4 |
9:32:29 |
yaolei |
实验教程里的霓虹灯参考程序1-3，时钟频率是多少 |
| 2006-12-4 |
9:33:36 |
伟民 |
教程里都是4M |
| 2006-12-4 |
9:37:00 |
yaolei |
看你的3epic原理图上，OSC1和OSC2接的是20M的晶振，误解了 |
| 2006-12-4 |
9:38:40 |
伟民 |
忙其他事，有问题请稍等了 |
| 2006-12-4 |
9:40:58 |
yaolei |
:D抱歉，问题太多。 |
| 2006-12-8 |
11:17:18 |
yaolei |
伟民兄，俺在调试程序中遇到怪问题 |
| 2006-12-8 |
11:17:21 |
yaolei |
能否帮俺看看 |
| 2006-12-8 |
11:17:30 |
|
yaolei 发送
neon_light.asm |
| 2006-12-8 |
11:27:44 |
|
您成功地从 yaolei
处接收了 D:\pic项目\其他\neon_light.asm。 |
| 2006-12-8 |
11:29:04 |
yaolei |
上面是俺根据张学海《PIC单片机实践》一书中的实验范例2.1，
霹雳灯。俺根据你的3epic实验板对程序稍做了修改（不知道你有这本书没）。打算实现的功能是依次点亮LE0－>LE1－>LE2－>LE3－>LE4－>LE5－>LE6－>LE7－>全熄－>LE7－>LE6－>LE5－>LE4－>LE3－>LE2－>LE1－>LE1－>全熄。在debug和烧写program中都成功了，实现了依次点亮的操作。现在的问题是在烧写program完以后，拔下插头，重新接上插头，就出问题了，只有LED7灯和LED0灯交替亮。百思不得其解 |
| 2006-12-8 |
11:30:13 |
伟民 |
看下 |
| 2006-12-8 |
11:30:37 |
yaolei |
多谢了 |
| 2006-12-8 |
11:34:56 |
yaolei |
拔下插头，重新接上插头，就出问题了，只有LED7灯和LED0灯交替亮。百思不得其解
|
| 2006-12-8 |
11:35:00 |
伟民 |
配置位是否正确？ |
| 2006-12-8 |
11:35:15 |
伟民 |
按下RESET看看 |
| 2006-12-8 |
11:35:31 |
yaolei |
按过了，没用 |
| 2006-12-8 |
11:35:55 |
yaolei |
我没修改过配置位 |
| 2006-12-8 |
11:36:17 |
yaolei |
就按你的出厂设置 |
| 2006-12-8 |
11:39:15 |
yaolei |
你那边拔下插头，重新接上插头，运转正常吗 |
| 2006-12-8 |
11:39:22 |
伟民 |
不正常 |
| 2006-12-8 |
11:39:54 |
伟民 |
试一下：在程序开头部分，设置DS1-DS4均为1，没有关闭数码管 |
| 2006-12-8 |
12:25:35 |
伟民 |
好象您的编程有问题 |
| 2006-12-8 |
12:45:58 |
伟民 |
进位C好象事先未清0 |
| 2006-12-8 |
12:51:20 |
伟民 |
问题原因找到：进位C事先未清0 |
| 2006-12-8 |
12:51:37 |
伟民 |
目前程序已正常运行 |
| 2006-12-8 |
12:52:27 |
yaolei |
:D太好了，下班回去试试， |
| 2006-12-8 |
12:53:13 |
yaolei |
非常感谢伟民兄的帮助 |
| 2006-12-8 |
12:53:13 |
伟民 |
BCF STATUS,0;进位清0
MOVLW 01H;
MOVWF PORTD
;点亮最左边的灯
BSF FLAG,0 ;LED灯左移
LOOP BTFSS STATUS,0
;判断C标志位是否进位
GOTO LOOP1 ;
COMF FLAG,1 ;修改标志位
LOOP1 BTFSS FLAG,0
GOTO LOOP2 ;跳到右移
RLF PORTD,1
;左移
GOTO LOOP3 ;调用延时
LOOP2 RRF PORTD,1 ;调用延时程序
LOOP3 CALL DELAY1S;
GOTO LOOP; |
| 2006-12-8 |
12:53:36 |
伟民 |
增加第1句 |
| 2006-12-8 |
12:53:56 |
yaolei |
明白了 |
| 2006-12-8 |
12:56:59 |
伟民 |
进位C开机后其值是随机的，若运气好是0，程序就按您的设想正常运行，运气不好为1，就是LED0和LED7交替点亮。进位C的值在你的程序中非常重要，必须事先强制清0
|
| 2006-12-8 |
13:00:18 |
yaolei |
哦原来如此，真是看书不知道，只有通过调试才发现问题。(Y) |
| 2006-12-8 |
13:00:18 |
yaolei |
那debug和烧程序的时候为什么是好的呢 |
| 2006-12-8 |
13:11:01 |
伟民 |
debug和烧程序的时候，是热启动，进位C的值始终保持上一次的，因此正常。拔掉电源再接上是冷启动，其值是完全随机的 |
| 2006-12-8 |
13:11:39 |
伟民 |
有其他事忙了，88 |
| 2006-12-8 |
13:39:58 |
yaolei |
晕还有这么多学问，有高手指点真是好啊 |
| 2006-12-8 |
13:40:20 |
伟民 |
太抬举我了 |
| 2006-12-8 |
14:00:59 |
伟民 |
如果把延时时间改短些，实验效果就更好了 |
| 2006-12-8 |
14:04:51 |
yaolei |
嗯，昨天我开始认为是延时不够，所以就把时间改长了。3epic的原理图上osc1和osc2接的是20M的晶振，你上次告诉我默认是4M的晶振，？？ |
| 2006-12-8 |
14:05:48 |
伟民 |
对 |
| 2006-12-8 |
14:06:15 |
伟民 |
用20M也可以 的 |
| 2006-12-8 |
14:06:55 |
yaolei |
从原理图上看，默认不是接osc1和osc2吗 |
| 2006-12-8 |
14:07:24 |
伟民 |
是呀 |
| 2006-12-8 |
14:08:58 |
yaolei |
而osc1和osc2是20M的晶振，所以默认的应该是20M的晶振，而不是4M想 |
| 2006-12-8 |
14:13:31 |
伟民 |
错了，可以接任何频率的晶振的，但实验板出货时实际配的是4M的，因为例程是按4M写的 |
| 2006-12-8 |
14:14:51 |
伟民 |
为什么不给配更高的 20M呢，主要是串口实验例程必须用4M |
| 2006-12-8 |
14:16:09 |
yaolei |
嗯，我想了好久，就是感觉延时不对 |
yaolei提供的有问题的程序如下：
;霓虹灯
LIST P=16F877A
INCLUDE"P16F877A.INC" ;头文件的设定
FLAG EQU 25H ;定义左移右移标志位
ORG 0000H
NOP
ST BSF STATUS,5 ;选择体1
CLRF TRISD;PTOTD设置为输出
CLRF TRISE;PROTE设置为输出
CLRF TRISB;PROTB设置为输出
BCF STATUS,5;选择体0
BCF PORTE,0;RE0清零,选通LED 14
BSF PORTB,1;关闭数码管
BSF PORTB,2;关闭数码管
BSF PORTB,3;关闭数码管
BSF PORTB,4;关闭数码管
MOVLW 01H;
MOVWF PORTD ;点亮最左边的灯
BSF FLAG,0 ;LED灯左移
LOOP BTFSS STATUS,0 ;判断C标志位是否进位
GOTO LOOP1 ;
COMF FLAG,1 ;修改标志位 20
LOOP1 BTFSS FLAG,0
GOTO LOOP2 ;跳到右移
RLF PORTD,1 ;左移
GOTO LOOP3 ;调用延时
LOOP2 RRF PORTD,1
;调用延时程序
LOOP3 CALL DELAY;
GOTO LOOP;
;-----------------------------------延时子程序
DELAY MOVLW 06H;
MOVWF 20H;
LP0 MOVLW 0FFH
MOVWF 21H
LP1 MOVLW 0FFH
MOVWF 22H
LP2 DECFSZ 22H,1;
GOTO LP2;
DECFSZ 21H,1;
GOTO LP1;
DECFSZ 20H;
GOTO LP0
RETURN
;---------------------------------------------------
END
;----------------------------------
我们修正后可正常运行的程序如下：
;------------------------------------------------------------------------------------------
;双向流水灯
;------------------------------------------------------------------------------------------
STATUS EQU 03H ;特殊功能寄存器定义
TRISD EQU 88H ;特殊功能寄存器定义
PORTD EQU 08H ;特殊功能寄存器定义
TRISE EQU 89H ;特殊功能寄存器定义
PORTE EQU 09H ;特殊功能寄存器定义
FLAG EQU 25H ;定义左移右移标志位
ORG 0000H ;复位地址
NOP ;MPLAB专用语句
ST BSF STATUS,5 ;选择体1
CLRF TRISD ;PORTD设置为输出
CLRF TRISE ;PORTE设置为输出
BCF STATUS,5 ;选择体0
CLRF PORTD ;PORTD清零
BCF PORTE,0 ;RE0清零,选通LED
BCF STATUS,0 ;进退位标记C清0
MOVLW 01H;
MOVWF PORTD ;点亮最左边的灯
BSF FLAG,0 ;LED灯左移
LOOP BTFSS STATUS,0 ;判断C标志位是否进位
GOTO LOOP1 ;
COMF FLAG,1 ;修改标志位
LOOP1 BTFSS FLAG,0
GOTO LOOP2 ;跳到右移
RLF PORTD,1 ;左移
GOTO LOOP3 ;调用延时
LOOP2 RRF PORTD,1 ;右移
LOOP3 CALL DELAY1S ;调用延时程
GOTO LOOP ;
;------------------------------------------------------------------------------------------
;1秒延时子程序
;------------------------------------------------------------------------------------------
DELAY1S MOVLW 06H ;外循环常数
MOVWF 20H ;外循环寄存器
LOP0 MOVLW 0EBH ;中循环常数
MOVWF 21H ;中循环寄存器
LOP1 MOVLW 0ECH ;内循环常数
MOVWF 22H ;内循环寄存器
LOP2 DECFSZ 22H ;内循环寄存器递减
GOTO LOP2 ;继续内循环
DECFSZ 21H ;中循环寄存器递减
GOTO LOP1 ;继续中循环
DECFSZ 20H ;外循环寄存器递减
GOTO LOP0 ;继续外循环
RETURN ;返回
;------------------------------------------------------------------------------------------
END
;------------------------------------------------------------------------------------------
|
