×

各种读写演示与汉字显示程序集合

消耗积分:0 | 格式:rar | 大小:0.2 MB | 2017-09-06

分享资料个

1、93C46读写演示程序

                           
;*              93C46读写演示程序                                                          
;           S1      接    P3.3    ;
;         S2      接    P3.4    ;
;         S3      接    P3.5    ;
;         S4      接    P3.6    ;                                                           READ    EQU    0       ;93C46读
                WRITE   EQU    2       ;93C46写
                EWEN    EQU    4       ;93C46写使能
                EWDS    EQU    6       ;93C46写禁止
                FLG0    EQU    21H.0   ;标志
                CS      BIT    P2.3    ;93C46引脚
                CLK     BIT    P2.2    ;
                DI      BIT    P2.1    ;
                DO      BIT    P2.0    ;
                ADR46   EQU    20H     ;93c46的地址RAM
;------------------------------------------------------------------
                DATA1   EQU    30H     ;
         DATA2   EQU    31H     ;
                DATA3   EQU    32H     ;
         DATA4   EQU    33H     ;
           S1      BIT    P3.3    ;
         S2      BIT    P3.4    ;
         S3      BIT    P3.5    ;
         S4      BIT    P3.6    ;
;*******************************************************************               
                ORG     0000H        ;程序执行开始地址
                LJMP    START        ;跳至START
                ORG     0003H        ;外中断0中断程序入口
                RETI         ;跳至INTEX0中断服务程序
                ORG     000BH        ;定时器T0中断程序入口
                RETI         ;中断返回
                ORG     0013H        ;外中断1中断入口
                RETI         ;跳至INTEX1中断服务程序
                ORG     001BH        ;定时器T1中断程序入口
                RETI         ;跳至INTT1中断服务程序
                ORG     0023H        ;串口中断入口地址
                RETI         ;中断返回
                ORG     002BH        ;定时器T2中断入口地址
                RETI         ;中断返回
  ORG     0030H          ;
;********************************************************************            
START:        
               MOV     SP,#60H         ;
;*******************************************
;*             读串行E2PROM                 *
;*******************************************
               MOV     R2,#02H         ;将93c46 01,02地址的4个数字存入30H-33H
               MOV     R0,#33H         ;
               MOV     ADR46,#01       ;
A1:            MOV     A,#READ         ;93C46读
               ACALL   TO9346          ;
               MOV     @R0,3CH         ;
               DEC     R0              ;
               MOV     @R0,3DH         ;
               DEC     R0              ;
               INC     ADR46           ;
               DJNZ    R2,A1           ;
               ACALL   DELAY1MS        ;
;*********************************************************************
;*********************************************************************
MAIN:
                CALL    DISP           ;调显示子程序
         CALL    KEY            ;
         AJMP    MAIN           ;
;**********************************************************************
 
;********************************************************************
KEY:            MOV     P3,#78H        ;
                MOV     A, P3          ;
                ANL     A, #01111000B  ;
                XRL     A, #01111000B  ;
                JZ      EXIT           ;A=0 跳至 EXIT
                CALL    DISP           ;
                MOV     P3,#78H        ;
                MOV     A, P3          ;
                ANL     A, #01111000B  ;
                XRL     A, #01111000B  ;
                JNZ     KEY1           ;A不等于0 跳至 KEY1
EXIT: 
                RET                    ;  
;------------------------------------------
KEY1:           JNB     S1,S11         ;
                JNB     S2,S12         ;
         JNB     S3,S13         ;
         JNB     S4,S14         ;
                AJMP    EXIT           ;
;------------------------------------------
S11:
                INC     DATA1          ;
            MOV     A,DATA1        ;
         CJNE    A,#0AH,S1_1    ;
         MOV     DATA1,#00H     ;
S1_1:
                AJMP    KEY_EXIT       ;
;------------------------------------------
S12:
                INC     DATA2          ;
           MOV     A,DATA2        ;
          CJNE    A,#0AH,S2_1    ;
         MOV     DATA2,#00H     ;
S2_1:
                AJMP    KEY_EXIT       ;
;------------------------------------------
S13:
                INC     DATA3          ;
          MOV     A,DATA3        ;
         CJNE    A,#0AH,S3_1    ;
         MOV     DATA3,#00H     ;
S3_1:
                MOV     DATA4,DATA3    ;
                AJMP    KEY_EXIT       ;
;------------------------------------------
S14:
;*******************************************
;*            写串行E2PROM                 *
;*******************************************
E3:             MOV     R0,#33H        ;将30H--35H 密码值存入93C46 01-03H地址
                MOV     ADR46,#01H     ;
                MOV     R2,#02         ;
E4:             MOV     A,#EWEN        ;93C46写使能
                ACALL   TO9346
                MOV     3CH,@R0        ;密码存入(3CH)
                DEC     R0             ;下一个密码存入(3DH)
                MOV     3DH,@R0
                MOV     A,#WRITE       ;93C46写
                ACALL   TO9346         ;
                MOV     A,#EWDS        ;93C46写禁止
                ACALL   TO9346
                DEC     R0             ;写入下一组密码
                INC     ADR46          ;
                DJNZ    R2,E4          ;
S4_1:
                AJMP    KEY_EXIT       ;
;------------------------------------------
KEY_EXIT:
                CALL    DISP           ;
                MOV     P3,#78H        ;
                MOV     A, P3          ;
                ANL     A, #01111000B  ;
                XRL     A, #01111000B  ;
                JNZ     KEY_EXIT       ;   
                AJMP    EXIT           ;
;********************************************************************
DISP:
         MOV A,DATA1        ;
                MOV     DPTR,#TABLE    ;  
         MOVC A,@A+DPTR      ;取数据表数据
         MOV P0,A           ;DATA1 显示代码传送到P0口
         CLR P1.0           ;
         LCALL DELAY1MS       ;
         SETB P1.0           ;
         MOV A,DATA2        ;
            MOVC A,@A+DPTR      ;取数据表数据
         MOV P0,A           ;DATA2 显示代码传送到P0口
         CLR P1.1           ;
         LCALL DELAY1MS       ;
         SETB P1.1           ;
         MOV A,DATA3        ;
          MOVC A,@A+DPTR      ;取数据表数据
         MOV P0,A           ;DATA3 显示代码传送到P0口
         CLR P1.2           ;
         LCALL DELAY1MS       ;
         SETB P1.2           ;
         MOV A,DATA4        ;
          MOVC A,@A+DPTR      ;取数据表数据
         MOV P0,A           ;DATA4 显示代码传送到P0口
         CLR P1.3           ;
         LCALL DELAY1MS       ;
         SETB P1.3           ;
         RET                    ;
;*******************************************
DELAY1MS: 
         MOV R4,#2          ;延时子程序
DEL1:
         MOV R5,#250        ;
         DJNZ R5,$           ;
         DJNZ R4,DEL1        ;
                RET                    ;
;*********************************************
;延时10MS子程序,用於消除按键抖动而产生误动作            
;*********************************************
DELAY10MS:
          MOV     R4,#20         ;
DEL2:
         MOV     R5,#250        ;
         DJNZ    R5,$           ;
         DJNZ    R4,DEL2        ;
                RET                    ;
;******************************************************************

;******************************************************************
TO9346:
               CLR      CLK            ;CLK=0
               SETB     CS             ;93C46 CS=1
               SETB     DI             ;DI=1
               SETB     CLK            ;CLK=1
               ACALL    DELAY1         ;启动位
               CLR      CLK            ;CLK=0
               ACALL    DELAY2
               MOV      DPTR,#JPTBL46
               JMP      @A+DPTR        ;依ACC值跳至相关地址
JPTBL46:       AJMP     SREAD          ;读
               AJMP     SWRITE         ;写
               AJMP     SEWEN          ;写使能
               AJMP     SEWDS          ;写禁止
SREAD:         MOV      A,ADR46        ;载入93C46地址
               ADD      A,#80H         ;10******操作码
               ACALL    SDT46          ;读入地址(DI)
               ACALL    RDT46          ;读出数据(DO),存入3CH
               MOV      3CH,A
               ACALL    RDT46          ;读出数据(DO),存入3CH
               MOV      3DH,A
               JMP      EX9346
;**************************************************************
SWRITE:        MOV      A,ADR46        ;载入93C46地址
               ADD      A,#40H         ;01******操作码
               ACALL    SDT46          ;读入地址
               MOV      A,3CH          ;写入(3CH)的数据
               ACALL    SDT46
               MOV      A,3DH          ;写入(3DH)的数据
               ACALL    SDT46
               JMP      EX9346         ;
SEWEN:         MOV      A,#30H         ;写使能操作码
               ACALL    SDT46
               JMP      EX9346
;**************************************************************
SEWDS:         CLR      A              ;写禁止操作码
               ACALL    SDT46
EX9346:        CLR      CS             ;CS=0
               RET
;**************************************************************
SDT46:         MOV      22H,#8         ;左移8次
SD1:           RLC      A
               MOV      DI,C           ;从DI读入
               SETB     CLK
               ACALL    DELAY1
               CLR      CLK
               ACALL    DELAY2
               DJNZ     22H,SD1
               RET
;**************************************************************
RDT46:         MOV      22H,#8         ;左移8次
RD1:           SETB     CLK
               ACALL    DELAY1
               CLR      CLK
               ACALL    DELAY2
               MOV      C,DO           ;从DO读出
               RLC      A
               DJNZ     22H,RD1
               RET
;**************************************************************
DELAY1:        MOV      R7,#08H
               DJNZ     R7,$
               RET
;**************************************************************
DELAY2:        MOV      R7,#1FH
               DJNZ     R7,$
               RET
;**************************************************************

;**************************************************************
TABLE:
         DB 11000000B      ;0
         DB 11111001B      ;1
         DB 10100100B      ;2
         DB 10110000B      ;3
         DB 10011001B      ;4
         DB 10010010B      ;5
          DB 10000010B      ;6
               DB 11111000B      ;7
         DB 10000000B      ;8
         DB 10010000B      ;9
                END                    ;程序结束
;**************************************************************
下载并关注上传者 低至0.43元/天 开通VIP 免费下载

声明：本文内容及配图由入驻作者撰写或者入驻合作网站授权转载。文章观点仅代表作者本人，不代表电子发烧友网立场。文章及其配图仅供工程师学习之用，如有内容侵权或者其他违规问题，请联系本站处理。 举报投诉

评论(0)
发评论

下载排行榜

全部0条评论

快来发表一下你的评论吧 !

'+ '

'+ '

'+ ''+ '
'+ ''+ ''+ '
'+ ''+ '' ); $.get('/article/vipdownload/aid/'+webid,function(data){ if(data.code ==5){ $(pop_this).attr('href',"/login/index.html"); return false } if(data.code == 2){ //跳转到VIP升级页面 window.location.href="//m.obk20.com/vip/index?aid=" + webid return false } //是会员 if (data.code > 0) { $('body').append(htmlSetNormalDownload); var getWidth=$("#poplayer").width(); $("#poplayer").css("margin-left","-"+getWidth/2+"px"); $('#tips').html(data.msg) $('.download_confirm').click(function(){ $('#dialog').remove(); }) } else { var down_url = $('#vipdownload').attr('data-url'); isBindAnalysisForm(pop_this, down_url, 1) } }); }); //是否开通VIP $.get('/article/vipdownload/aid/'+webid,function(data){ if(data.code == 2 || data.code ==5){ //跳转到VIP升级页面 $('#vipdownload>span').text("开通VIP 免费下载") return false }else{ // 待续费 if(data.code == 3) { vipExpiredInfo.ifVipExpired = true vipExpiredInfo.vipExpiredDate = data.data.endoftime } $('#vipdownload .icon-vip-tips').remove() $('#vipdownload>span').text("VIP免积分下载") } }); }).on("click",".download_cancel",function(){ $('#dialog').remove(); }) var setWeixinShare={};//定义默认的微信分享信息，页面如果要自定义分享，直接更改此变量即可 if(window.navigator.userAgent.toLowerCase().match(/MicroMessenger/i) == 'micromessenger'){ var d={ title:'各种读写演示与汉字显示程序集合',//标题 desc:$('[name=description]').attr("content"), //描述 imgUrl:'https://'+location.host+'/static/images/ele-logo.png',// 分享图标,默认是logo link:'',//链接 type:'',// 分享类型,music、video或link，不填默认为link dataUrl:'',//如果type是music或video，则要提供数据链接，默认为空 success:'', // 用户确认分享后执行的回调函数 cancel:''// 用户取消分享后执行的回调函数 } setWeixinShare=$.extend(d,setWeixinShare); $.ajax({ url:"//www.obk20.com/app/wechat/index.php?s=Home/ShareConfig/index", data:"share_url="+encodeURIComponent(location.href)+"&format=jsonp&domain=m", type:'get', dataType:'jsonp', success:function(res){ if(res.status!="successed"){ return false; } $.getScript('https://res.wx.qq.com/open/js/jweixin-1.0.0.js',function(result,status){ if(status!="success"){ return false; } var getWxCfg=res.data; wx.config({ //debug: true, // 开启调试模式,调用的所有api的返回值会在客户端alert出来，若要查看传入的参数，可以在pc端打开，参数信息会通过log打出，仅在pc端时才会打印。 appId:getWxCfg.appId, // 必填，公众号的唯一标识 timestamp:getWxCfg.timestamp, // 必填，生成签名的时间戳 nonceStr:getWxCfg.nonceStr, // 必填，生成签名的随机串 signature:getWxCfg.signature,// 必填，签名，见附录1 jsApiList:['onMenuShareTimeline','onMenuShareAppMessage','onMenuShareQQ','onMenuShareWeibo','onMenuShareQZone'] // 必填，需要使用的JS接口列表，所有JS接口列表见附录2 }); wx.ready(function(){ //获取“分享到朋友圈”按钮点击状态及自定义分享内容接口 wx.onMenuShareTimeline({ title: setWeixinShare.title, // 分享标题 link: setWeixinShare.link, // 分享链接 imgUrl: setWeixinShare.imgUrl, // 分享图标 success: function () { setWeixinShare.success; // 用户确认分享后执行的回调函数 }, cancel: function () { setWeixinShare.cancel; // 用户取消分享后执行的回调函数 } }); //获取“分享给朋友”按钮点击状态及自定义分享内容接口 wx.onMenuShareAppMessage({ title: setWeixinShare.title, // 分享标题 desc: setWeixinShare.desc, // 分享描述 link: setWeixinShare.link, // 分享链接 imgUrl: setWeixinShare.imgUrl, // 分享图标 type: setWeixinShare.type, // 分享类型,music、video或link，不填默认为link dataUrl: setWeixinShare.dataUrl, // 如果type是music或video，则要提供数据链接，默认为空 success: function () { setWeixinShare.success; // 用户确认分享后执行的回调函数 }, cancel: function () { setWeixinShare.cancel; // 用户取消分享后执行的回调函数 } }); //获取“分享到QQ”按钮点击状态及自定义分享内容接口 wx.onMenuShareQQ({ title: setWeixinShare.title, // 分享标题 desc: setWeixinShare.desc, // 分享描述 link: setWeixinShare.link, // 分享链接 imgUrl: setWeixinShare.imgUrl, // 分享图标 success: function () { setWeixinShare.success; // 用户确认分享后执行的回调函数 }, cancel: function () { setWeixinShare.cancel; // 用户取消分享后执行的回调函数 } }); //获取“分享到腾讯微博”按钮点击状态及自定义分享内容接口 wx.onMenuShareWeibo({ title: setWeixinShare.title, // 分享标题 desc: setWeixinShare.desc, // 分享描述 link: setWeixinShare.link, // 分享链接 imgUrl: setWeixinShare.imgUrl, // 分享图标 success: function () { setWeixinShare.success; // 用户确认分享后执行的回调函数 }, cancel: function () { setWeixinShare.cancel; // 用户取消分享后执行的回调函数 } }); //获取“分享到QQ空间”按钮点击状态及自定义分享内容接口 wx.onMenuShareQZone({ title: setWeixinShare.title, // 分享标题 desc: setWeixinShare.desc, // 分享描述 link: setWeixinShare.link, // 分享链接 imgUrl: setWeixinShare.imgUrl, // 分享图标 success: function () { setWeixinShare.success; // 用户确认分享后执行的回调函数 }, cancel: function () { setWeixinShare.cancel; // 用户取消分享后执行的回调函数 } }); }); }); } }); } function openX_ad(posterid, htmlid, width, height) { if ($(htmlid).length > 0) { var randomnumber = Math.random(); var now_url = encodeURIComponent(window.location.href); var ga = document.createElement('iframe'); ga.src = 'https://www1.elecfans.com/www/delivery/myafr.php?target=_blank&cb=' + randomnumber + '&zoneid=' + posterid+'&prefer='+now_url; ga.width = width; ga.height = height; ga.frameBorder = 0; ga.scrolling = 'no'; var s = $(htmlid).append(ga); } } openX_ad(828, '#berry-300', 300, 250);