lxa0 发表于 2012-4-12 22:52:11

[原创diy]试验2051与74HC573的驱动能力







lxa0 发表于 2012-4-12 22:52:37

参考原代码:

;实验74HC573和2051驱动共阴能力
;最后修改于2007-11-11


org 0000h
ajmp mm
org 000bh
ajmp ttxx
org 0013h
ajmp tt1

;主程序*********************************************************
org 0100h
mm:nop
mov p1,#0ffh
clr p3.5
mov th0,#07dh         ;T0设初始值
mov tl0,#0cbh         ;TH0=3ch,TL0=bdh
mov tmod,#91h         ;T0设方式1
mov tcon,#14h         ;T0设控制方式
mov ie,#86h         ;设中断允许
mov ip,#04h         ;设中断优先级别
mov sp,#5fh         ;设堆栈入口
mov r6,#00h         ;0.5秒延时用
mov r7,#00h         ;备用
mov 08h,#2fh          ;解码转换用
mov 09h,#07h          ;解码转换用
mov 10h,#30h          ;读红外波头存放首址
mov 11h,#2fh          ;读红外波头48个
mov 20h,#00h      
mov 21h,#00h      
mov 22h,#00h         
mov 23h,#0feh         
mov 24h,#00h          ;保留
mov 25h,#00h          ;保留
mov 26h,#00h          ;保留
mov 27h,#00h   
mov 28h,#00h   
mov 29h,#00h   
mov 2ah,#00h   
mov 2bh,#00h   
mov 2ch,#00h   
mov 2dh,#00h   
mov 2eh,#00h   
mov 2fh,#00h      
m0:nop
acall xsz   
nop      
acall xsz      
nop
acall xsz
sjmp m0

;显示xsz子程序<占用区0>********************************************
org 0020h
xsz:push dph
push dpl
push acc
push psw             ;保护现场
mov p1,23h         ;显示8个led的
setb p3.5
clr p3.5
ss:djnz r6,ss
mov p1,#0ffh
setb p3.5
clr p3.5
mov dptr,#00e0h      ;显示数字的
mov a,2ah
movc a,@a+dptr
mov p1,a
clr p3.7
ss1:djnz r6,ss1
setb p3.7
pop psw            ;回复现场
pop acc
pop dph
pop dpl
ret                  ;返回

org 00e0h
db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh    ;共阴代码

wkman 发表于 2012-4-12 23:09:53

{:sweat:} asm。。。。

dianzichina 发表于 2012-4-13 20:51:47

AsM有这么恐怖吗?先标记,下周有空了再试验一下。

lxa0 发表于 2012-4-13 21:26:08

wkman 发表于 2012-4-12 23:09 static/image/common/back.gif
asm。。。。

asm怎么了?
我玩着很顺手呀~~~~~~~~~~

zhenglu891028 发表于 2012-4-14 10:07:17

收藏学习!
页: [1]
查看完整版本: [原创diy]试验2051与74HC573的驱动能力