免电源的电话使用计时器

2007-03-09 19:03:27来源: 互联网
前言: 在通讯沟通频繁的今日,相信家家户户都有一台以上的电话机,您家必定发生过打完电话后未挂好而造成电话无法打进的困扰吧。或者您的家人或同事或朋友打电话一打就打了许久又不自知吧。 下面为您介绍一款DIY制作「免电源电话使用计时器」供您避免上述现象之产生,总共才用了12个元件(单片机1个,LED七字显示数码管2个,电容3个,电阻1个,桥式整流子1个,电感1个,石英晶体1个,稳压二极管1个,按键1个),相信只需要20多元及1个休息日即可组装完成做出一个前所未有的趣味电子产品了。  特点说明: DIY制作基本上要有着三个特点: 一看就懂:指电路简单明了。 一买就有:指电路容易取得。 一做就成:指制作成功率高。 当您看完本篇文章之后一定会有种跃跃欲试的感觉,那么请跟着感觉走是不会错的。整个DIY制作虽然小小的,不过特点倒是挺多项。 免用外部电源,整个DIY电子产品是利用电话线电压来工作的,故可免除许多烦人的事(指怕停电,浪费电,体积大,成本高,配线难),在使用上没有任何不适的感觉,也不须担心电信局测试。 对通话品质无影响,所谓的无影响其实有着二个含意,一为无杂讯干扰,一为通话音量不增减。大家都知道多位数的LED七段显示得用扫描方式,如此一来会有脉冲电流杂讯产生,这点对听觉灵敏的耳朵而言是不可忽视的。另外整个电路的AC阻抗得非常的低,以免除声音的衰减。针对这二个要求,这里介绍一个简单又实用的电源取得电路供您参考。 LED七段显示,非常适合夜晚来使用,同时由于亮度很够,即使在白天也是清清楚楚,这点就是LCD显示望尘莫及的。 LED显示不但能做使用时间的显示之外,也能表示电话线正被使用中,故可当未挂好话筒之提醒指示之用。 LED显示采用最省元件的互补式,即一个LED七段显示器为共阴,另一为共阳,如此即可直接用单片机四个I/O直接推动而得到最高亮度了。 利用OTP型单片机EM78P156来做核心控制,整个程序小小的,若您想更改或增加功能都是非常容易的。  功能说明: 当您的电话使用后没有放置好,或者是打电话聊长天的时候给您显示通话使用时间给予心理压力。基本上可算是有提醒指示及显示二大功能。  提醒指示: 只要LED七段显示器点亮则表示电话线正被使用,此时不是您正在打电话就是话筒未被放置好。  显示: 只要话筒一被拿起,电话回路被建立后单片机开始做计时及显示动作,以分为单位,最大可显示99分,之后又从0开始。若您要有精准的计时时可在电话通之后按CLR键,此时单片机清除计数从新开始计数显示。  线路图: 图1线路说明: 整个线路说实在的,太小了,不过增一分则肥,减一分则瘦。还是老老实实的交待清楚吧,那么您要购买或更换电路时才不会走冤枉路。 直接从电话线路取得工作电源,见图2 : 图2 为一简单的检波器π型滤波器及基纳稳压器所构成,经过这5个元件的打点而得到从电话端看到的是一个AC低阻抗,同时隔离了单片机扫描LED七段显示器所衍生的杂音。另外5V的稳压二极管更提供了很稳定的电源供电路使用。有二个地方需注意的是5V稳压二极管得选购5W以上的比较不会过热,同时电感得选购直流内阻低的,愈低愈不会发热。 LED七段显示器采用一共阴极,一共阳极的,故颜色及亮度最好选相近的。 见图3 图3 当PORT5输出为HIGH时,共阳极的LED七段显示器被选到,此时PORT6输出为LOW时LED被点亮,反之LED不会亮。当PORT5输出为LOW时,共阳极的LED七段显示器被选到,此时PORT6输出为HIGH时LED被点亮,反之LED不会亮。之所以要四个I/O都并联在一起是要保证有50mA的输出显示电流,不是四个并联使用的话则显示亮度会打折扣。 单片机部份,图4 图4 选用 台湾EMC 公司的EM78P156 OTP或8位单片机,不但指令少,程序撰写容易外,所需外部元件也是精简得很,我们不妨看看只需一个32768Hz的石英晶体及一个助振电容就行了,另外的1K电阻是关机泄放电流用的,可避免重置失效,而CLR按键是用来清除显示时间的。若您不再乎那拨号时间的误差则可以不用此元件的。  程序列: ; ; FILE NAME:T_CARE0.DT ; DATE :1999,5,5 ; BY :HWANG JYN_GUO ; CIRCUIT :T_CARE0.321 ; ; FUNCTION DESCRIPTION: ; USING TCC TO GET 1 SEC INTERRUPT ; 32768/(2*64*256)= 1 SEC ; CRYSTAL MODE 32768 Hz ; 2 CYCLE AND 2 CLOCK MODE ; PC == 02 RF == 03 ;STATUS FZ == 02 ;FLAG OF ZERO FC == 00 ;FLAG OF CARRY P5 == 0X05 ;PORT 5 P6 == 0X06 ;PORT 6 DL == 0X10 ;DELAY LOOP MIN == 0X11 ;MINUTE SEC == 0X12 ;SECOND DD == 0X13 ;DISPLAY DIGIT DDH == 0X14 ;DISPLAY DIGIT HIGH AB == 0X15 ;A BACK_UP RFB == 0X16 ;RF BACK_UP ORG 0 0000 JMP INIT ;PROGRAM START ORG 8 ;TCC INTERRUPT--------------------------------------------- TCCI: 0008 MOV AB,A ;AB <- A 0009 SWAP AB ;AB <- BA 000A SWAPA RF 000B MOV RFB,A ;RFB<- FR 000C INC SEC CHECK: 000D MOV A,SEC 000E SUB A,@59 ;59-SEC=A 000F JBC RF,FC 0010 JMP C_MIN 0011 CLR SEC 0012 INC MIN C_MIN: 0013 MOV A,MIN 0014 SUB A,@99 ;99-MIN=A 0015 JBS RF,FC 0016 CLR MIN TCCE: 0017 SWAPA RFB 0018 MOV RF,A ;RF<- RFB 0019 SWAPA AB ;A <- BA 001A BC 0X0F,0 ;CLEAR TCC_INT 001B RETI ;TABLE 7 SEGEMENT------------------------------------------------------ T7: 001C ADD PC,A ; GFE DCBA 001D RETL @0B01000000 ;0 0100 0000 001E RETL @0B01111001 ;1 0111 1001 001F RETL @0B00100100 ;2 0010 0100 0020 RETL @0B00110000 ;3 0011 0000 0021 RETL @0B00011001 ;4 0001 1001 0022 RETL @0B00010010 ;5 0001 0010 0023 RETL @0B00000010 ;6 0000 0010 0024 RETL @0B01011000 ;7 0101 1000 0025 RETL @0B00000000 ;8 0000 0000 0026 RETL @0B00010000 ;9 0001 0000 ;DELAY ------------------------------------------------------------------------ DELAY: 0027 MOV P5,A 0028 MOV A,@20 0029 MOV DL,A D_1: 002A DJZ DL 002B JMP D_1 002C MOV A,@0XFF 002D IOW P6 002E RET ;INIT ------------------------------------------------------------------------------ INIT: 002F MOV A,@0X00 0030 MOV MIN,A 0031 MOV SEC,A 0032 IOW 0X0E ;DISABLE WDT 0033 IOW P5 ;PORT 5 OUTPUT 0034 IOW P6 ;PORT 6 OUTPUT 0035 MOV A,@0X01 0036 IOW 0X0F ;ENABLE TCC_INT 0037 MOV A,@0X05 ;1/64 0038 CONTW 0039 ENI ;SCAN --------------------------------------------------------------------------- SCAN: 003A MOV A,MIN HTD: 003B CLR DDH H_H: 003C ADD A,@246 ;A=A-10 003D JBS RF,FC 003E JMP H_L 003F INC DDH 0040 JMP H_H H_L: 0041 ADD A,@10 0042 CALL T7 0043 IOW P6 0044 MOV P6,A 0045 MOV A,@255 ;DISPLAY DIGIT 0 0046 CALL DELAY 0047 MOV A,DDH 0048 CALL T7 0049 IOW P6 004A XOR A,@0XFF 004B MOV P6,A 004C MOV A,@00 ;DISPLAY DIGIT 1 004D CALL DELAY 004E JMP SCAN 程序说明: 程序就像日常说话一样,只要能够表达清楚意思,那么,愈短愈受人欢迎(当然得在保证有正常功能的情况下而言)。此次DIY制作的软件程序长度仅有78个指令,够短了吧,相信看懂也不难。整个程序可以分成5个段落来做说明,寄存器使用说明: DL ----- 子程序用寄存器 MIN ----- 存放分钟资料寄存器 SEC ----- 存放秒钟资料寄存器 DD ----- 存放显示位数资料寄存器 DDH ----- 存放显示资料寄存器 AB ----- 存放ACC的副本 RFB ----- 存放STATUS的副本 TCC中断子程序: 从0000--001B行为每秒发生一次的TCC中断子程序,其中0008--000B及0017--0019行为进入及离开中断子程序的ACC及STATUS保留动作。其中000C为每进入一次中断子程序就将SEC这寄存器予以进位。其中000D--0012为判断SEC寄存器是否大于59,是则将MIN寄存器予以进位并清除SEC寄存器。其中0013--0016为判断MIN寄存器是否大于99,是则将MIN寄存器予以清除,其中001A为清除TCC中断旗标。 LED字型转换程序: 从001C--0026行存放了字型转换表,可将0--9的数字转成相对的LED七字显示器的资料。 显示时间长度延迟程序: 从0028--002B延迟程序,而0027及002C--002D为启动显示及关掉显示之指令。 微控制器启始设定程序: 从002F--0039行对微控制器内部相关硬件做了必要性的设定动作。值得特别一提的是0035--0039行对TCC中断记数器予以设定成每秒中断一次。计算式如下: 系统时基/(2周期模式%26;#215;1秒%26;#215;256进位)而得预除数为64。 5.LED七字显示器扫描主程序: 从003A--004E行为本软件程序之主程序部份,又可分三部份。003C--0040行为取得MIN的拾位数之值。0042--0046行显示MIN的个位数资料到共阳极的LED七字显示器上。0047--004D行为显示MIN的拾位数资料到共阴极的LED七字显示器上。希望这短短的程序难不倒您才是。 程序撰写步骤: 许多人习惯上撰写程序的过程是依照「先小而大」,「先难后繁」,「边测边写」 等三项原则来从事的,底下便将电话使用计时器程序分成八个段落来完成。 1.先给予心跳: 一般撰写程序碰到计时的工作时不外乎三个方式来解决: 「用TIMER计数器来产生中断来计时」「用POLLING TIMER计数器来计时」 「用计算程序指令个数来计时」 这三个方式中以方式一最为简单也最为准确,故这里打算最重要之秒的进位问题就交给TIMER计数器中断方式来解决了。 TC0.ICE ; ; FILE NAME:TC0.DT ; DATE :1999,5,5 ; BY :HWANG JYN_GUO ; ; FUNCTION DESCRIPTION: ; USING TCC TO GET 1 SEC INTERRUPT ; 32768/(2*64*256)= 1 SEC ; CRYSTAL MODE 32768 Hz ; 2 CYCLE AND 2 CLOCK MODE ; P5 == 0X05 ;PORT 5 P6 == 0X06 ;PORT 6 ORG 0 0000 JMP INIT ;PROGRAM START ORG 8 ;TCC INTERRUPT------------------------------------------------------- TCCI: 0008 COM P6 TCCE: 0009 BC 0X0F,0 ;CLEAR TCC_INT 000A RETI ;INIT ------------------------------------------------------------------------- INIT: 000B MOV A,@0X00 000C MOV P6,A ;PORT 6 = 0 000D IOW 0X0E ;DISABLE WDT 000E IOW P5 ;PORT 5 OUTPUT 000F IOW P6 ;PORT 6 OUTPUT 0010 MOV A,@0X01 0011 IOW 0X0F ;ENABLE TCC_INT 0012 MOV A,@0X05 ;1/64 0013 CONTW 0014 ENI ;SCAN ----------------------------------------------------------------------- SCAN: 0015 JMP SCAN 这程序的目的是欲了解TCC中断能否满足秒的进位问题。 程序说明: 中断子程序: 从0008--000A行为简单的中断子程序,每做一次就将PORT6反向一次,离开前顺便清除中断FLAG。 微控制器起始设定程序: 起始设定是每个程序一开始必须做的,主要功能是将一些会用到的硬件部份做一起始状态的设定以发挥充分的掌控能力。 从000B"0013行为起始设定程序 000B MOV A, @0x00 ;将A内放置零 000C MOV P6, A ;将P6内放置零 000D IOW 0x0E ;将WDT功能除能 000E IOW P5 ;将P5设为OUTPUT 000F IOW P6 ;将P6设为OUTPUT 在EM78系列中有所谓的MEMORY及I/O两大空间,一些MEMORY空间的寄存器处理时可用MOV、BS、BC、XOR、OR……等指令,而另一些I/O空间的控制寄存器处理时可用IOW、IOR等指令,这点不要弄混了才是。 0010 MOV A, @0x01 ;将A内放置1 0011 IOW 0x0F ;仅致能TCC中断能力 在EM78156中原本能有WDT中断、外部中断及TCC中断等三种能力,如今我们只保留TCC中断来使用。 0012 MOV A, @0x05 ;将A内放置5 0013 CONTW ;设定TCC控制寄存器 0014 ENI ;启动中断能力 TCC是一个很好用也很复杂的硬件线路,下面仅列出局部有关的地方于附录供大家参考。由于系统时基是采用32768Hz的石英晶体,故本制作之准确度应该不被怀疑才是。当选用2 CYCLE及2 CLOCK的状态时,若再将TCC设成除以64,那刚好每一秒钟TCC发生溢位中断一次。 扫描程序: 从0015--0015行,总共1行,仅做跳跃自身之用。 效果观察: 程序写到此时,倘若您手上的线路没焊错的话,那么您将会看到七字显示屏幕显示8并且以1秒亮1秒灭的速度亮灭着。 到此总共用315个指令,恭喜您的宝宝已经有心跳产生了。 2.具有七段显示能力: 有了秒的心跳之后,接下来就是加强扫描能力,使它有着正确的显示数字的能力。 TC1.ICE ; ; FILE NAME:TC1.DT ; DATE :1999,5,5 ; BY :HWANG JYN_GUO ; ; FUNCTION DESCRIPTION: ; USING TCC TO GET 1 SEC INTERRUPT ; 32768/(2*64*256)= 1 SEC ; CRYSTAL MODE 32768 Hz ; 2 CYCLE AND 2 CLOCK MODE ; PC == 02 RF == 03 ;STATUS FZ == 02 ;FLAG OF ZERO FC == 00 ;FLAG OF CARRY P5 == 0X05 ;PORT 5 P6 == 0X06 ;PORT 6 SEC == 0X10 ;SECOND ORG 0 0000 JMP INIT ;PROGRAM START ORG 8 ;TCC INTERRUPT---------------------------------------------- TCCI: 0008 INC SEC TCCE: 0009 BC 0X0F,0 ;CLEAR TCC_INT 000A RETI ;TABLE 7 SEGEMENT------------------------------------------- T7: 000B ADD PC,A ; GFE DCBA 000C RETL @0B01000000 ;0 0100 0000 000D RETL @0B01111001 ;1 0111 1001 000E RETL @0B00100100 ;2 0010 0100 000F RETL @0B00110000 ;3 0011 0000 0010 RETL @0B00011001 ;4 0001 1001 0011 RETL @0B00010010 ;5 0001 0010 0012 RETL @0B00000010 ;6 0000 0010 0013 RETL @0B01011000 ;7 0101 1000 0014 RETL @0B00000000 ;8 0000 0000 0015 RETL @0B00010000 ;9 0001 0000 ;INIT ----------------------------------------------------------------- INIT: 0016 MOV A,@0X00 0017 MOV SEC,A 0018 IOW 0X0E ;DISABLE WDT 0019 IOW P5 ;PORT 5 OUTPUT 001A IOW P6 PORT 6 OUTPUT 001B MOV A,@0X01 001C IOW 0X0F ;ENABLE TCC_INT 001D MOV A,@0X05 ;1/64 001E CONTW 001F ENI ;SCAN --------------------------------------------------------------- SCAN: 0020 MOV A,SEC 0021 CALL T7 0022 IOW P6 0023 MOV P6,A 0024 MOV A,@255 ;DISPLAY DIGIT 0 0025 MOV P5,A 0026 JMP SCAN 整个程序与TC0.ICE最大的差异就是增加了SEC计数的显示能力,故有三处改动: 中断子程序中有了INC SEC指令来做每秒进位的动作。 增加了LED显示屏幕七段转换表,从000B--0015行即为0到9的转换表。 扫描程序功能加强: 从0020--0026行所做之事为重覆的将SEC数字经过查表后丢到P6上。为了方便了解,此时仅对数字0有做显示动作。 效果观察: 程序到此时您会看到个位数的七字显示屏幕从0→9每秒进位一次。到9以后程序将会错乱(?Why?)。 3.具有二位数的显示能力: 能够做七段显示之后,各位最想看到的当然是二位数字的显示了,由于这里采用一共阴、一共阳的七段显示器,故处理起来还得稍费脑筋。 TC2.ICE ; ; FILE NAME:TC2.DT ; DATE :1999,5,5 ; BY :HWANG JYN_GUO ; ; FUNCTION DESCRIPTION: ; USING TCC TO GET 1 SEC INTERRUPT ; 32768/(2*64*256)= 1 SEC ; CRYSTAL MODE 32768 Hz ; 2 CYCLE AND 2 CLOCK MODE ; PC == 02 P5 == 0X05 ;PORT 5 P6 == 0X06 ;PORT 6 SEC == 0X10 ;SECOND ORG 0 0000 JMP INIT ;PROGRAM START ORG 8 ;TCC INTERRUPT------------------------------------------------- TCCI: 0008 INC SEC TCCE: 0009 BC 0X0F,0 ;CLEAR TCC_INT 000A RETI ;TABLE 7 SEGEMENT----------------------------------------- T7: 000B ADD PC,A ; GFE DCBA 000C RETL @0B01000000 ;0 0100 0000 000D RETL @0B01111001 ;1 0111 1001 000E RETL @0B00100100 ;2 0010 0100 000F RETL @0B00110000 ;3 0011 0000 0010 RETL @0B00011001 ;4 0001 1001 0011 RETL @0B00010010 ;5 0001 0010 0012 RETL @0B00000010 ;6 0000 0010 0013 RETL @0B01011000 ;7 0101 1000 0014 RETL @0B00000000 ;8 0000 0000 0015 RETL @0B00010000 ;9 0001 0000 ;INIT ----------------------------------------------------------------- INIT: 0016 MOV A,@0X00 0017 MOV SEC,A 0018 IOW 0X0E ;DISABLE WDT 0019 IOW P5 ;PORT 5 OUTPUT 001A IOW P6 ;PORT 6 OUTPUT 001B MOV A,@0X01 001C IOW 0X0F ;ENABLE TCC_INT 001D MOV A,@0X05 ;1/64 001E CONTW 001F ENI ;SCAN -------------------------------------------------------------- SCAN: 0020 MOV A,SEC 0021 CALL T7 0022 IOW P6 0023 MOV P6,A 0024 MOV A,@255 ;DISPLAY DIGIT 0 0025 MOV P5,A 0026 MOV A,SEC 0027 CALL T7 0028 IOW P6 0029 XOR A,@0XFF 002A MOV P6,A 002B MOV A,@00 ;DISPLAY DIGIT 1 002C MOV P5,A 002D JMP SCAN 程序与TC1.ICE差异之处仅在扫描动作上不同罢了。 若要扫共阳的位数时,必须将PORT5外设为高电位输出,而要亮的字划,在PORT6外设为低电位输入即可。若要扫共阴的位数1时,必须将PORT5外设为低电位输出即可,而要亮的字划,在PORT6外设为高电位输出即可。故有了0020--0025行,位数0的显示处理及0026--002C行,位数1的显示处理。 效果观察: 程序到此时您会看到二位数的七字显示屏幕,同时从0→9每秒进位一次,到9以后程序将会错乱(?Why?)。 具有限数能力: 以上的程序对SEC(秒)都不予限数,当然会造成CALL TABLE RETEW错误发生,故底下增加MIN(分)并对SEC、MIN做59及99的限数动作。 TC3.ICE ; ; FILE NAME:TC3.DT ; DATE :1999,5,5 ; BY :HWANG JYN_GUO ; ; FUNCTION DESCRIPTION: ; USING TCC TO GET 1 SEC INTERRUPT ; 32768/(2*64*256)= 1 SEC ; CRYSTAL MODE 32768 Hz ; 2 CYCLE AND 2 CLOCK MODE ; PC == 02 RF == 03 ;STATUS FZ == 02 ;FLAG OF ZERO FC == 00 ;FLAG OF CARRY P5 == 0X05 ;PORT 5 P6 == 0X06 ;PORT 6 MIN == 0X10 ;MINUTE SEC == 0X11 ;SECOND DD == 0X12 ;DISPLAY DIGIT DDH == 0X13 ;DISPLAY DIGIT HIGH AB == 0X14 ;A BACK_UP RFB == 0X15 ;RF BACK_UP ORG 0 0000 JMP INIT ;PROGRAM START ORG 8 ;TCC INTERRUPT--------------------------------------- TCCI: 0008 MOV AB,A ;AB <- A 0009 MOV A,RF ;A <- RF 000A MOV RFB,A ;RFB<- RF 000B INC SEC CHECK: 000C MOV A,SEC ;比较59秒 000D SUB A,@59 ;59-SEC=A 000E JBC RF,FC 000F JMP C_MIN 0010 CLR SEC 0011 INC MIN C_MIN: 0012 MOV A,MIN ;比较99分 0013 SUB A,@99 ;99-MIN=A 0014 JBS RF,FC 0015 CLR MIN TCCE: 0016 MOV A,RFB ;A <- RFB 0017 MOV RF,A ;RF<- RFB 0018 MOV A,AB ;A <- AB 0019 BC 0X0F,0 ;CLEAR TCC_INT 001A RETI ;TABLE 7 SEGEMENT----------------------------------- T7: 001B ADD PC,A ; GFE DCBA 001C RETL @0B01000000 ;0 0100 0000 001D RETL @0B01111001 ;1 0111 1001 001E RETL @0B00100100 ;2 0010 0100 001F RETL @0B00110000 ;3 0011 0000 0020 RETL @0B00011001 ;4 0001 1001 0021 RETL @0B00010010 ;5 0001 0010 0022 RETL @0B00000010 ;6 0000 0010 0023 RETL @0B01011000 ;7 0101 1000 0024 RETL @0B00000000 ;8 0000 0000 0025 RETL @0B00010000 ;9 0001 0000 ;INIT ----------------------------------------------- INIT: 0026 MOV A,@0X00 0027 MOV MIN,A 0028 MOV SEC,A 0029 IOW 0X0E ;DISABLE WDT 002A IOW P5 ;PORT 5 OUTPUT 002B IOW P6 ;PORT 6 OUTPUT 002C MOV A,@0X01 002D IOW 0X0F ;ENABLE TCC_INT 002E MOV A,@0X05 ;1/64 002F CONTW 0030 ENI ;SCAN ----------------------------------------------- SCAN: 0031 MOV A,MIN HTD: 0032 CLR DDH H_H: 0033 ADD A,@246 ;A=A-10 16进制转10进制 0034 JBS RF,FC 0035 JMP H_L 0036 INC DDH 0037 JMP H_H H_L: 0038 ADD A,@10 0039 CALL T7 ;显示个位 003A IOW P6 003B MOV P6,A 003C MOV A,@255 ;DISPLAY DIGIT 0 003D MOV P5,A 003E MOV A,DDH ;显示十位 003F CALL T7 0040 IOW P6 0041 XOR A,@0XFF 0042 MOV P6,A 0043 MOV A,@00 ;DISPLAY DIGIT 1 0044 MOV P5,A 0045 JMP SCAN 程序与TC2.ICE差异之处有下: TCC中断子程序部份增加了A,R3的暂存动作及SEC、MIN的限数动作。0008--000A及0016--0018行系对A及R3做暂存及复原的动作。 000C--0011行系对秒做59的比较动作,SEC比59大则SEC=0,MIN=MIN+1。 0012--0015行系对分做99的比较动作,若MIN比99大则MIN=0。 此处为何要对中断子程序做A及R3的暂存及复原的动作呢?这是因为在主程序(SCAN)内时时会用到A及R3,及中断子程序中也会用到A及R3之故,若不在中断前后将A及R3的数值维持不变,那么主程序将会有错乱的情形产生。 在扫描程序部份增加了16进制变成10进制的动作。纵然二位数字来显示MIN(分)的讯息是可行的,然将16进制变成10进制才能符合人类的习性。0033--0038行即在做16进制转10进制的动作,将MIN的数值拆成个位数及拾位数,并在0039--003D时显示个位数,而在003E--0044时显示拾位数。 效果观察: 程序到此为止,理论上已做完该完成的所有行为了。但执行起来….为何….为何….忽好忽坏呢??? 完成正确功能: 将TC3.ICE程序左看右看,上看下看,怎么看也看不出破绽出来,但为何程序跑起来很不稳定,忽好忽坏的呢?是ICE不稳呢?还是程序错误呢?答案当然是程序错误。 TC4.ICE ; ; FILE NAME:TC4.DT ; DATE :1999,5,5 ; BY :HWANG JYN_GUO ; ; FUNCTION DESCRIPTION: ; USING TCC TO GET 1 SEC INTERRUPT ; 32768/(2*64*256)= 1 SEC ; CRYSTAL MODE 32768 Hz ; 2 CYCLE AND 2 CLOCK MODE ; PC == 02 RF == 03 ;STATUS FZ == 02 ;FLAG OF ZERO FC == 00 ;FLAG OF CARRY P5 == 0X05 ;PORT 5 P6 == 0X06 ;PORT 6 MIN == 0X10 ;MINUTE SEC == 0X11 ;SECOND DD == 0X12 ;DISPLAY DIGIT DDH == 0X13 ;DISPLAY DIGIT HIGH AB == 0X14 ;A BACK_UP RFB == 0X15 ;RF BACK_UP ORG 0 0000 JMP INIT ;PROGRAM START ORG 8 ;TCC INTERRUPT------------------------------------------------------------- TCCI: 0008 MOV AB,A ;AB <- A 0009 SWAP AB ;AB <- BA 000A SWAPA RF 000B MOV RFB,A ;RFB<- FR 000C INC SEC CHECK: 000D MOV A,SEC 000E SUB A,@59 ;59-SEC=A 000F JBC RF,FC 0010 JMP C_MIN 0011 CLR SEC 0012 INC MIN C_MIN: 0013 MOV A,MIN 0014 SUB A,@99 ;99-MIN=A 0015 JBS RF,FC 0016 CLR MIN TCCE: 0017 SWAPA RFB 0018 MOV RF,A ;RF<- RFB 0019 SWAPA AB ;A <- BA 001A BC 0X0F,0 ;CLEAR TCC_INT 001B RETI ;TABLE 7 SEGEMENT----------------------------------------------------- T7: 001C ADD PC,A ; GFE DCBA 001D RETL @0B01000000 ;0 0100 0000 001E RETL @0B01111001 ;1 0111 1001 001F RETL @0B00100100 ;2 0010 0100 0020 RETL @0B00110000 ;3 0011 0000 0021 RETL @0B00011001 ;4 0001 1001 0022 RETL @0B00010010 ;5 0001 0010 0023 RETL @0B00000010 ;6 0000 0010 0024 RETL @0B01011000 ;7 0101 1000 0025 RETL @0B00000000 ;8 0000 0000 0026 RETL @0B00010000 ;9 0001 0000 ;INIT --------------------------------------------------------------------------- INIT: 0027 MOV A,@0X00 0028 MOV MIN,A 0029 MOV SEC,A 002A IOW 0X0E ;DISABLE WDT 002B IOW P5 ;PORT 5 OUTPUT 002C IOW P6 ;PORT 6 OUTPUT 002D MOV A,@0X01 002E IOW 0X0F ;ENABLE TCC_INT 002F MOV A,@0X05 ;1/64 0030 CONTW 0031 ENI ;SCAN ------------------------------------------------------------------------- SCAN: 0032 MOV A,MIN HTD: 0033 CLR DDH H_H: 0034 ADD A,@246 ;A=A-10 0035 JBS RF,FC 0036 JMP H_L 0037 INC DDH 0038 JMP H_H H_L: 0039 ADD A,@10 003A CALL T7 003B IOW P6 003C MOV P6,A 003D MOV A,@255 ;DISPLAY DIGIT 0 003E MOV P5,A 003F MOV A,DDH 0040 CALL T7 0041 IOW P6 0042 XOR A,@0XFF 0043 MOV P6,A 0044 MOV A,@00 ;DISPLAY DIGIT 1 0045 MOV P5,A 0046 JMP SCAN 原来问题就在中断子程序的A及R3暂存及复原这部份。 原来程序在A及R3的暂存部份: 0008 MOV AB, A ;AB←A 0009 MOV A, RF ;A←RF 000A MOV RFB, A ;RFB←RF 错就错在0009时MOV A, RF指令会破坏ZERO FLAG的资料。故改变指令的用法即可恢复正常,新的程序在A及R3的暂存部份: 0008 MOV AB, A ;AB←A 0009 SWAP AB 000A SWAPA RF 000B MOV RFB, A ;RFB←FR 新的程序在A及R3的复原部份: 0017 SWAPA RFB 0018 MOV RF, A ;RF←RFB 0019 SWAPA AB ;A←BA 动作有点别扭,但是好用得很,请尽量用。 效果观察: 此时此刻的您一定是欢喜异常,眼睛看着分钟一分一分的增加又不死机,刚才紧绷的心情顿时得到解脱,一切的心血总算有了回报了。 增加花招: 拿着半成品把玩半天总觉得有些不够完美的,原来是一分钟才变化一次会让人觉得成品好像没在正常工作,总是怀疑成品是死的,好吧,再动些手脚将秒的闪烁呈现在七段的小数点上以满足动感要求。 TC5.ICE ; ; FILE NAME:TC5.DT ; DATE :1999,5,5 ; BY :HWANG JYN_GUO ; ; FUNCTION DESCRIPTION: ; USING TCC TO GET 1 SEC INTERRUPT ; 32768/(2*64*256)= 1 SEC ; CRYSTAL MODE 32768 Hz ; 2 CYCLE AND 2 CLOCK MODE ; PC == 02 RF == 03 ;STATUS FZ == 02 ;FLAG OF ZERO FC == 00 ;FLAG OF CARRY P5 == 0X05 ;PORT 5 P6 == 0X06 ;PORT 6 DL == 0X10 ;DELAY LOOP MIN == 0X11 ;MINUTE SEC == 0X12 ;SECOND DD == 0X13 ;DISPLAY DIGIT DDH == 0X14 ;DISPLAY DIGIT HIGH AB == 0X15 ;A BACK_UP RFB == 0X16 ;RF BACK_UP FG == 0X17 ;FLAG ORG 0 0000 JMP INIT ;PROGRAM START ORG 8 ;TCC INTERRUPT--------------------------------------------------------------- TCCI: 0008 MOV AB,A ;AB <- A 0009 SWAP AB ;AB <- BA 000A SWAPA RF 000B MOV RFB,A ;RFB<- FR 000C COM FG 000D INC SEC CHECK: 000E MOV A,SEC 000F SUB A,@59 ;59-SEC=A 0010 JBC RF,FC 0011 JMP C_MIN 0012 CLR SEC 0013 INC MIN C_MIN: 0014 MOV A,MIN 0015 SUB A,@99 ;99-MIN=A 0016 JBS RF,FC 0017 CLR MIN TCCE: 0018 SWAPA RFB 0019 MOV RF,A ;RF<- RFB 001A SWAPA AB ;A <- BA 001B BC 0X0F,0 ;CLEAR TCC_INT 001C RETI ;TABLE 7 SEGEMENT------------------------------------------------------ T7: 001D CALL TABLE ;用来增加小数点闪烁 001E JBC FG,00 001F XOR A,@0X80 0020 RET ;TABLE ------------------------------------------------------------------------- TABLE: 0021 ADD PC,A ; GFE DCBA 0022 RETL @0B01000000 ;0 0100 0000 0023 RETL @0B01111001 ;1 0111 1001 0024 RETL @0B00100100 ;2 0010 0100 0025 RETL @0B00110000 ;3 0011 0000 0026 RETL @0B00011001 ;4 0001 1001 0027 RETL @0B00010010 ;5 0001 0010 0028 RETL @0B00000010 ;6 0000 0010 0029 RETL @0B01011000 ;7 0101 1000 002A RETL @0B00000000 ;8 0000 0000 002B RETL @0B00010000 ;9 0001 0000 ;INIT ----------------------------------------------------------------------------- INIT: 002C MOV A,@0X00 002D MOV MIN,A 002E MOV SEC,A 002F IOW 0X0E ;DISABLE WDT 0030 IOW P5 ;PORT 5 OUTPUT 0031 IOW P6 ;PORT 6 OUTPUT 0032 MOV A,@0X01 0033 IOW 0X0F ;ENABLE TCC_INT 0034 MOV A,@0X05 ;1/64 0035 CONTW 0036 ENI ;SCAN ------------------------------------------------------------------------------ SCAN: 0037 MOV A,MIN HTD: 0038 CLR DDH H_H: 0039 ADD A,@246 ;A=A-10 003A JBS RF,FC 003B JMP H_L 003C INC DDH 003D JMP H_H H_L: 003E ADD A,@10 003F CALL T7 0040 IOW P6 0041 MOV P6,A 0042 MOV A,@255 ;DISPLAY DIGIT 0 0043 MOV P5,A 0044 MOV A,DDH 0045 CALL T7 0046 IOW P6 0047 XOR A,@0XFF 0048 MOV P6,A 0049 MOV A,@00 ;DISPLAY DIGIT 1 004A MOV P5,A 004B JMP SCAN 要如何增加小数点秒的闪烁呢?其实看结果一点也不困难(话虽如此却也着实的伤了好几条的脑筋)。 增加001D"0020这四行程序就可迎刃而解了。 效果观察: 看着一秒亮一秒灭的成品,此时此刻仅可用一个”爽”字来形容心情,愈来愈觉得其实单片机制作并不是高不可及啊! 7.好上加好: 如果用示波器来看看制作成果的良好程度时,可以看到显示周期比才近50%左右,让人总觉得可惜,倘若能够让显示周期比接近100%不亦快哉! 再动手改吧. TC6.ICE ; ; FILE NAME:TC6.DT ; DATE :1999,5,5 ; BY :HWANG JYN_GUO ; ; FUNCTION DESCRIPTION: ; USING TCC TO GET 1 SEC INTERRUPT ; 32768/(2*64*256)= 1 SEC ; CRYSTAL MODE 32768 Hz ; 2 CYCLE AND 2 CLOCK MODE ; PC == 02 RF == 03 ;STATUS FZ == 02 ;FLAG OF ZERO FC == 00 ;FLAG OF CARRY P5 == 0X05 ;PORT 5 P6 == 0X06 ;PORT 6 DL == 0X10 ;DELAY LOOP MIN == 0X11 ;MINUTE SEC == 0X12 ;SECOND DD == 0X13 ;DISPLAY DIGIT DDH == 0X14 ;DISPLAY DIGIT HIGH AB == 0X15 ;A BACK_UP RFB == 0X16 ;RF BACK_UP FG == 0X17 ;FLAG ORG 0 0000 JMP INIT ;PROGRAM START ORG 8 ;TCC INTERRUPT----------------------------------------------------------------- TCCI: 0008 MOV AB,A ;AB <- A 0009 SWAP AB ;AB <- BA 000A SWAPA RF 000B MOV RFB,A ;RFB<- FR 000C COM FG 000D INC SEC CHECK: 000E MOV A,SEC 000F SUB A,@59 ;59-SEC=A 0010 JBC RF,FC 0011 JMP C_MIN 0012 CLR SEC 0013 INC MIN C_MIN: 0014 MOV A,MIN 0015 SUB A,@99 ;99-MIN=A 0016 JBS RF,FC 0017 CLR MIN TCCE: 0018 SWAPA RFB 0019 MOV RF,A ;RF<- RFB 001A SWAPA AB ;A <- BA 001B BC 0X0F,0 ;CLEAR TCC_INT 001C RETI ;TABLE 7 SEGEMENT-------------------------------------------------------- T7: 001D CALL TABLE 001E JBC FG,00 001F XOR A,@0X80 0020 RET ;TABLE ---------------------------------------------------------------------------- TABLE: 0021 ADD PC,A ; GFE DCBA 0022 RETL @0B01000000 ;0 0100 0000 0023 RETL @0B01111001 ;1 0111 1001 0024 RETL @0B00100100 ;2 0010 0100 0025 RETL @0B00110000 ;3 0011 0000 0026 RETL @0B00011001 ;4 0001 1001 0027 RETL @0B00010010 ;5 0001 0010 0028 RETL @0B00000010 ;6 0000 0010 0029 RETL @0B01011000 ;7 0101 1000 002A RETL @0B00000000 ;8 0000 0000 002B RETL @0B00010000 ;9 0001 0000 ;DELAY ---------------------------------------------------------------------------- DELAY: 002C MOV P5,A ;增加显示时间之比 002D MOV A,@20 002E MOV DL,A D_1: 002F DJZ DL 0030 JMP D_1 0031 MOV A,@0XFF 0032 IOW P6 0033 RET ;INIT -------------------------------------------------------------------------------- INIT: 0034 MOV A,@0X00 0035 MOV MIN,A 0036 MOV SEC,A 0037 IOW 0X0E ;DISABLE WDT 0038 IOW P5 ;PORT 5 OUTPUT 0039 IOW P6 ;PORT 6 OUTPUT 003A MOV A,@0X01 003B IOW 0X0F ;ENABLE TCC_INT 003C MOV A,@0X05 ;1/64 003D CONTW 003E ENI ;SCAN ----------------------------------------------------------------------------- SCAN: 003F MOV A,MIN HTD: 0040 CLR DDH H_H: 0041 ADD A,@246 ;A=A-10 0042 JBS RF,FC 0043 JMP H_L 0044 INC DDH 0045 JMP H_H H_L: 0046 ADD A,@10 0047 CALL T7 0048 IOW P6 0049 MOV P6,A 004A MOV A,@255 ;DISPLAY DIGIT 0 004B CALL DELAY 004C MOV A,DDH 004D CALL T7 004E IOW P6 004F XOR A,@0XFF 0050 MOV P6,A 0051 MOV A,@00 ;DISPLAY DIGIT 1 0052 CALL DELAY 0053 JMP SCAN 人的眼眼睛实在很容易被欺骗,只要扫描频率大于30Hz其实已经看不到闪烁的现象,故在不产生闪烁的现象中如何增加显示周期比呢? 增加显示时之时间,故这里增加了一个DELAY子程序(002C--0033行所示)供扫描显示时呼叫之用。固定的在个位数及拾位数显示时各呼叫一次来增加显示周期比。 效果观察: 增加了DELAY子程序之后约可提升亮度一倍左右。 8.要善始善终-----永不死机: 正当要关掉ICE准备烧写OTP的时候,仔细想想程序才那么小小的,留那么多的空白做什么?不妨拿来「增加稳定度」之用。 还要动手.? TC7.ICE ; ; FILE NAME:TC7.DT ; DATE :1999,5,5 ; BY :HWANG JYN_GUO ; ; FUNCTION DESCRIPTION: ; USING TCC TO GET 1 SEC INTERRUPT ; 32768/(2*64*256)= 1 SEC ; CRYSTAL MODE 32768 Hz ; 2 CYCLE AND 2 CLOCK MODE ; IAR == 00 ;INDIRECT AR PC == 02 RF == 03 ;STATUS RSR == 04 ;RAM SELECTOR FZ == 02 ;FLAG OF ZERO FC == 00 ;FLAG OF CARRY P5 == 0X05 ;PORT 5 P6 == 0X06 ;PORT 6 DL == 0X10 ;DELAY LOOP MIN == 0X11 ;MINUTE SEC == 0X12 ;SECOND DD == 0X13 ;DISPLAY DIGIT DG == 0X14 ;DISPLAY DIGIT HIGH DG=DD=DDH AB == 0X15 ;A BACK_UP RFB == 0X16 ;RF BACK_UP FG == 0X17 ;FLAG ORG 0 0000 JMP INIT ;PROGRAM START // // // // 0007 JMP INIT ;PROGRAM START ;TCC INTERRUPT------------------------------------------------------------- TCCI: 0008 MOV AB,A ;AB <- A 0009 SWAP AB ;AB <- BA 000A SWAPA RF 000B MOV RFB,A ;RFB<- FR 000C COM FG 000D INC SEC CHECK: 000E MOV A,SEC 000F SUB A,@59 ;59-SEC=A 0010 JBC RF,FC 0011 JMP C_MIN 0012 CLR SEC 0013 INC MIN C_MIN: 0014 MOV A,MIN 0015 SUB A,@99 ;99-MIN=A 0016 JBS RF,FC 0017 CLR MIN TCCE: 0018 SWAPA RFB 0019 MOV RF,A ;RF<- RFB 001A SWAPA AB ;A <- BA 001B BC 0X0F,0 ;CLEAR TCC_INT 001C RETI 001D JMP INIT ;PROGRAM START // // // // 0028 JMP INIT ;PROGRAM START ;TABLE 7 SEGEMENT------------------------------------------------------- T7: 0029 CALL TABLE 002A JBC FG,00 002B XOR A,@0X80 002C RET 002D JMP INIT ;PROGRAM START // // // // 003B JMP INIT ;PROGRAM START ;TABLE --------------------------------------------------------------------------- TABLE: 003C ADD PC,A ; GFE DCBA 003D RETL @0B01000000 ;0 0100 0000 003E RETL @0B01111001 ;1 0111 1001 003F RETL @0B00100100 ;2 0010 0100 0040 RETL @0B00110000 ;3 0011 0000 0041 RETL @0B00011001 ;4 0001 1001 0042 RETL @0B00010010 ;5 0001 0010 0043 RETL @0B00000010 ;6 0000 0010 0044 RETL @0B01011000 ;7 0101 1000 0045 RETL @0B00000000 ;8 0000 0000 0046 RETL @0B00010000 ;9 0001 0000 0047 JMP INIT ;PROGRAM START // // // // 0055 JMP INIT ;PROGRAM START ;DELAY --------------------------------------------------------------------------- DELAY: 0056 WDTC 0057 MOV P5,A 0058 MOV A,@00 0059 IOW P5 005A MOV A,@0X3F 005B MOV RSR,A 005C MOV A,@0X1F 005D MOV DL,A 005E CLRA DELAY1: 005F ADD A,IAR 0060 DEC RSR 0061 DJZ DL 0062 JMP DELAY1 0063 OR A,@00 0064 JBS RF,FZ 0065 JMP INIT ;PROGRAM START 0066 MOV A,@0XFF 0067 IOW P6 0068 RET 0069 JMP INIT ;PROGRAM START // // // // 007F JMP INIT ;PROGRAM START ;INIT ------------------------------------------------------------------------------- INIT: 0080 MOV A,@0X3F 0081 MOV RSR,A 0082 MOV A,@0X2F 0083 MOV DL,A INIT1: 0084 CLR IAR 0085 DEC RSR 0086 DJZ DL 0087 JMP INIT1 0088 MOV A,@0X00 0089 IOW P5 ;PORT 5 OUTPUT 008A IOW P6 ;PORT 6 OUTPUT 008B MOV A,@0X80 008C IOW 0X0E ;ENABLE WDT 008D MOV A,@0X01 008E IOW 0X0F ;ENABLE TCC_INT 008F MOV A,@0X05 ;1/64 0090 CONTW 0091 ENI 0092 JMP SCAN 0093 JMP INIT ;PROGRAM START // // // // 00B8 JMP INIT ;PROGRAM START ;SCAN ----------------------------------------------------------------------------- SCAN: 00B9 MOV A,MIN HTD: 00BA CLR DG H_H: 00BB ADD A,@246 ;A=A-10 00BC JBS RF,FC 00BD JMP H_L 00BE INC DDH 00BF JMP H_H H_L: 00C0 ADD A,@10 00C1 CALL T7 00C2 IOW P6 00C3 MOV P6,A 00C4 MOV A,@255 ;DISPLAY DIGIT 0 00C5 CALL DELAY 00C6 MOV A,DG 00C7 CALL T7 00C8 IOW P6 00C9 XOR A,@0XFF 00CA MOV P6,A 00CB MOV A,@00 ;DISPLAY DIGIT 1 00CC CALL DELAY 00CD JMP SCAN 00CE JMP INIT ;PROGRAM START // // // // 03FF JMP INIT ;PROGRAM START 与TC6.ICE程序的差异之处: 在每个程序的段落「加入JMP INIT」指令。 在程序节结尾以后「加入JMP INIT」指令。 如此一来,不论IC何时死机错乱都会跳到开始来执行了。 加入WATCH DOG TIMER: 来避免程序的错误而造成死LOOP现象。 加入错误侦测能力: 利用剩余的寄存器来做引子,随时去读取这些寄存器,若和不为零则代表错误发生了,应该重新开始。 效果观察: 不论如何故意的去弄死机都会从头开始正常执行程序了,大功告成。可以加上您认为漂亮合适的外壳,投入使用了。 附源程序:dhsyjsq.dt ; ; FILE NAME:dhsyjsq.dt ; DATE :1999,5,5 ; BY :HWANG JYN_GUO ; ; FUNCTION DESCRIPTION: ; USING TCC TO GET 1 SEC INTERRUPT ; 32768/(2*64*256)= 1 SEC ; CRYSTAL MODE 32768 Hz ; 2 CYCLE AND 2 CLOCK MODE ; IAR == 00 ;INDIRECT AR PC == 02 RF == 03 ;STATUS RSR == 04 ;RAM SELECTOR FZ == 02 ;FLAG OF ZERO FC == 00 ;FLAG OF CARRY P5 == 0X05 ;PORT 5 P6 == 0X06 ;PORT 6 DL == 0X10 ;DELAY LOOP MIN == 0X11 ;MINUTE SEC == 0X12 ;SECOND DD == 0X13 ;DISPLAY DIGIT DG == 0X14 ;DISPLAY DIGIT HIGH DG=DD=DDH AB == 0X15 ;A BACK_UP RFB == 0X16 ;RF BACK_UP FG == 0X17 ;FLAG ORG 0000 JMP INIT ;PROGRAM START JMP INIT ;PROGRAM START ;TCC INTERRUPT------------------------------------------------------------- TCCI: MOV AB,A ;AB <- A SWAP AB ;AB <- BA SWAPA RF MOV RFB,A ;RFB<- FR COM FG INC SEC CHECK: MOV A,SEC SUB A,@59 ;59-SEC=A JBC RF,FC JMP C_MIN CLR SEC INC MIN C_MIN: MOV A,MIN SUB A,@99 ;99-MIN=A JBS RF,FC CLR MIN TCCE: SWAPA RFB MOV RF,A ;RF<- RFB SWAPA AB ;A <- BA BC 0X0F,0 ;CLEAR TCC_INT RETI JMP INIT ;PROGRAM START JMP INIT ;PROGRAM START ;TABLE 7 SEGEMENT------------------------------------------------------- T7: CALL TABLE JBC FG,00 XOR A,@0X80 RET JMP INIT ;PROGRAM START JMP INIT ;PROGRAM START ;TABLE --------------------------------------------------------------------------- TABLE: ADD PC,A ; GFE DCBA RETL @0B01000000 ;0 0100 0000 RETL @0B01111001 ;1 0111 1001 RETL @0B00100100 ;2 0010 0100 RETL @0B00110000 ;3 0011 0000 RETL @0B00011001 ;4 0001 1001 RETL @0B00010010 ;5 0001 0010 RETL @0B00000010 ;6 0000 0010 RETL @0B01011000 ;7 0101 1000 RETL @0B00000000 ;8 0000 0000 RETL @0B00010000 ;9 0001 0000 JMP INIT ;PROGRAM START JMP INIT ;PROGRAM START ;DELAY --------------------------------------------------------------------------- DELAY: WDTC MOV P5,A MOV A,@00 IOW P5 MOV A,@0X3F MOV RSR,A MOV A,@0X1F MOV DL,A CLRA DELAY1: ADD A,IAR DEC RSR DJZ DL JMP DELAY1 OR A,@00 JBS RF,FZ JMP INIT ;PROGRAM START MOV A,@0XFF IOW P6 RET JMP INIT ;PROGRAM START JMP INIT ;PROGRAM START ;INIT ------------------------------------------------------------------------------- INIT: MOV A,@0X3F MOV RSR,A MOV A,@0X2F MOV DL,A INIT1: CLR IAR DEC RSR DJZ DL JMP INIT1 MOV A,@0X00 IOW P5 ;PORT 5 OUTPUT IOW P6 ;PORT 6 OUTPUT MOV A,@0X80 IOW 0X0E ;ENABLE WDT MOV A,@0X01 IOW 0X0F ;ENABLE TCC_INT MOV A,@0X05 ;1/64 CONTW ENI JMP SCAN JMP INIT ;PROGRAM START JMP INIT ;PROGRAM START ;SCAN ----------------------------------------------------------------------------- SCAN: MOV A,MIN HTD: CLR DG H_H: ADD A,@246 ;A=A-10 JBS RF,FC JMP H_L INC DDH JMP H_H H_L: ADD A,@10 CALL T7 IOW P6 MOV P6,A MOV A,@255 ;DISPLAY DIGIT 0 CALL DELAY MOV A,DG CALL T7 IOW P6 XOR A,@0XFF MOV P6,A MOV A,@00 ;DISPLAY DIGIT 1 CALL DELAY JMP SCAN JMP INIT ;PROGRAM START JMP INIT ;PROGRAM START
编辑: 引用地址:http://www.eeworld.com.cn/designarticles/mcu/200703/11258.html
本网站转载的所有的文章、图片、音频视频文件等资料的版权归版权所有人所有,本站采用的非本站原创文章及图片等内容无法一一联系确认版权者。如果本网所选内容的文章作者及编辑认为其作品不宜公开自由传播,或不应无偿使用,请及时通过电子邮件或电话通知我们,以迅速采取适当措施,避免给双方造成不必要的经济损失。
论坛活动 E手掌握
微信扫一扫加关注
论坛活动 E手掌握
芯片资讯 锐利解读
微信扫一扫加关注
芯片资讯 锐利解读
推荐阅读
全部

小广播

About Us 关于我们 客户服务 联系方式 器件索引 网站地图 最新更新 手机版

站点相关: 安防电子 医疗电子 工业控制

北京市海淀区知春路23号集成电路设计园量子银座1305 电话:(010)82350740 邮编:100191

电子工程世界版权所有 京ICP证060456号 京ICP备10001474号 电信业务审批[2006]字第258号函 京公海网安备110108001534 Copyright © 2005-2016 EEWORLD.com.cn, Inc. All rights reserved