《匠人手记》推荐网上购书渠道:
EDN网(ednchina)购书入口   >>>
互动出版网(china-pub)购书入口   >>>
当当网(dangdang)购书入口   >>>
淘宝网(taobao)购书入口   >>>
更多购书渠道……   >>> 

设为首页加入收藏联系匠人管理入口21IC首页21IC博客21IC社区侃单片机回复的贴参与的贴

天气预报
百宝日历

百宝专栏

  • 首页 相册 标签
  • 电脑应用(65)
  • 供需信息(22)
  • 写书近况(82)
  • 匠人文集(115)
  • 硬件技术(171)
  • 匠人公告(86)
  • 与非门专栏(545)
  • 匠人笔记(115)
  • 团队撰写(96)
  • 汽车电子(52)
  • 编程技巧(465)
  • 程序宝典(476)
  • 网络酷文(472)
  • 开发工具(19)
  • 资料宝藏(274)
  • 项目管理(11)
  • 藏经宝阁(42)
  • 趣味设计(5)
  • 社区热贴(2)
  • 比尔盖茨熊专栏(0) 
  • 百宝信息

    载入中...

    百宝流量

    (2006-07-01开始)



    匠人手记

    TOSHIBA遥控嚣的程序
    程序匠人 发表于 2005-8-17 18:11:00  阅读全文 | 回复(0) | 引用通告 | 编辑

    TOSHIBA遥控嚣的程序

          作者:佚名  
          ;FILENAME : REMOTE.ASM
            ;      .SYMBOLS ON
            ;      .CODE
          ;
          L0000:  LJMP    L000E
          L0003:  MOV     R7,A
                  MOV     R7,A
                  MOV     R7,A
                  MOV     R7,A
                  MOV     R7,A
                  MOV     R7,A
                  MOV     R7,A
                  MOV     R7,A
          L000B:  LJMP    L01CA
          L000E:


                  MOV     R4,#02H
                  MOV     30H,#00H
                  MOV     31H,#00H
                  MOV     32H,#00H
          L001B:  MOV     33H,#00H
                  ORL     TMOD,#01H
                  MOV     TH0,#00H
                  MOV     TL0,#00H
                  SETB    IE.1
                  SETB    IE.7
          L002B:  SETB    TCON.4

                  MOV     R7,#08H
          L002F:  MOV     R6,#0E6H
          L0031:
                  JB      P1.0,L002B

                  DJNZ    R6,L0031
                  DJNZ    R7,L002F

          L0038:
                  JNB     P1.0,L0038
                  MOV     TH0,#00H
                  MOV     TL0,#00H
                  MOV     R4,#02H
                  MOV     R7,#03H
          L0045:  MOV     R6,#0E6H
          L0047:

                  JNB     P1.0,L002B

                  DJNZ    R6,L0047
                  DJNZ    R7,L0045

          L004E:
                  JB      P1.0,L004E


                  MOV     R0,#33H
                  LCALL   L01AB
                  DEC     R0
                  LCALL   L01AB
                  DEC     R0
                  LCALL   L01AB
                  DEC     R0
                  LCALL   L01AB
                  MOV     A,31H
                  CLR     TCON.4
                  MOV     R3,31H

                  mov     a,33h
                  cjne    a,#40h,ppp


                  CJNE    R3,#12H,L0072
                  CPL     P1.1
                  LCALL   L019E
          ppp:
                  SJMP    L002B
          L0072:  CJNE    R3,#15H,L007C
                  CPL     P1.2
                  LCALL   L019E
                  SJMP    L002B
          L007C:  CJNE    R3,#16H,L0086
                  CPL     P1.3
                  LCALL   L019E
                  SJMP    L002B
          L0086:  CJNE    R3,#1CH,L0090
                  CPL     P1.4
          L008B:  LCALL   L019E
                  SJMP    L002B
          L0090:  CJNE    R3,#11H,L009A
                  CPL     P1.5
                  LCALL   L019E
                  SJMP    L002B
          L009A:
                  CJNE    R3,#14H,L00A4
                  CPL     P1.6
                  LCALL   L019E
                  SJMP    L002B
          L00A4:  CJNE    R3,#0CH,L00AE
                  CPL     P1.7
                  LCALL   L019E
                  AJMP    L002B
          L00AE:  CJNE    R3,#18H,L00B8
                  CPL     P3.0
                  LCALL   L019E
                  AJMP    L002B
          L00B8:  CJNE    R3,#03H,L00C2
                  CPL     P3.1
                  LCALL   L019E
                  AJMP    L002B
          L00C2:  CJNE    R3,#02H,L00CC
                  CPL     P3.2
                  LCALL   L019E
                  AJMP    L002B
          L00CC:  CJNE    R3,#01H,L00D6
                  CPL     P3.3
                  LCALL   L019E
                  AJMP    L002B
          L00D6:  CJNE    R3,#0FH,L00E0
                  CPL     P3.4
                  LCALL   L019E
                  AJMP    L002B
          L00E0:  CJNE    R3,#06H,L00EA
                  CPL     P3.5
                  LCALL   L019E
                  AJMP    L002B
          L00EA:  CJNE    R3,#05H,L00F4
                  CPL     P3.6
                  LCALL   L019E
                  AJMP    L002B
          L00F4:  CJNE    R3,#04H,L00FE
                  CPL     P3.7
                  LCALL   L019E
                  AJMP    L002B
          L00FE:  CJNE    R3,#13H,L0108
                  CPL     P0.0
                  LCALL   L019E
                  AJMP    L002B
          L0108:  CJNE    R3,#09H,L0112
                  CPL     P0.1
                  LCALL   L019E
                  AJMP    L002B
          L0112:  CJNE    R3,#08H,L011C
                  CPL     P0.2
                  LCALL   L019E
                  AJMP    L002B
          L011C:  CJNE    R3,#07H,L0126
                  CPL     P0.3
                  LCALL   L019E
                  AJMP    L002B
          L0126:  CJNE    R3,#10H,L0130
                  CPL     P0.4
                  LCALL   L019E
                  AJMP    L002B
          L0130:  CJNE    R3,#17H,L013A
                  CPL     P0.5
                  LCALL   L019E
                  AJMP    L002B
          L013A:  CJNE    R3,#00H,L0144
                  CPL     P0.6
                  LCALL   L019E
                  AJMP    L002B
          L0144:  CJNE    R3,#0AH,L014E
                  CPL     P0.7
                  LCALL   L019E
                  AJMP    L002B
          L014E:  CJNE    R3,#1AH,L0158
                  CPL     P2.0
                  LCALL   L019E
                  AJMP    L002B
          L0158:  CJNE    R3,#1BH,L0162
                  CPL     P2.1
                  LCALL   L019E
                  AJMP    L002B
          L0162:  CJNE    R3,#0EH,L016C
                  CPL     P2.2
                  LCALL   L019E
                  AJMP    L002B
          L016C:  CJNE    R3,#0DH,L0176
                  CPL     P2.3
                  LCALL   L019E
                  AJMP    L002B
          L0176:  CJNE    R3,#1EH,L0180
                  CPL     P2.4
                  LCALL   L019E
                  AJMP    L002B
          L0180:  CJNE    R3,#1FH,L018A
                  CPL     P2.5
                  LCALL   L019E
                  AJMP    L002B
          L018A:  CJNE    R3,#19H,L0194
                  CPL     P2.6
                  LCALL   L019E
                  AJMP    L002B
          L0194:  CJNE    R3,#1DH,L019C
                  CPL     P2.7
                  LCALL   L019E
          L019C:  AJMP    L002B
          L019E:  MOV     R5,#02H
          L01A0:  MOV     R6,#0FAH
          L01A2:  MOV     R7,#0C8H
          L01A4:  DJNZ    R7,L01A4
                  DJNZ    R6,L01A2
                  DJNZ    R5,L01A0
                  RET


          L01AB:
                  MOV     R5,#08H
          L01AD:  MOV     R7,#02H
          L01AF:

                  JNB     P1.0,L01AF
          L01B2:  MOV     R6,#0E6H
          L01B4:
                  JNB     P1.0,L01BB
                  DJNZ    R6,L01B4
                  DJNZ    R7,L01B2
          L01BB:  DEC     R7
                  DEC     R7
                  CJNE    R7,#00H,L01C3
                  CLR     C
                  SJMP    L01C4
          L01C3:  SETB    C
          L01C4:  MOV     A,@R0
                  RRC     A
                  MOV     @R0,A
                  DJNZ    R5,L01AD
                  RET


          L01CA:  DJNZ    R4,L01CE
                  MOV     R4,#02H
          L01CE:  RETI
                  END

          ;; 你能帮我分析一下如何写接收如下程序吗?020---87116400 韦成解

          SDA     BIT     P3.5
          SCL     BIT     P3.2

                  ORG     0000H
                  LJMP    START
                  ORG     0003H
          ;       LJMP    EXTRL
                  RETI
                  ORG     000BH
                  RETI
                  ORG     0013H
                  RETI
                  ORG     001BH
                  RETI
                  ORG     0023H
                  RETI

                  ORG     0050H
          START:
                  CLR     A
                  MOV     R0,#7FH
          CLEAR:
                  MOV     @R0,A
                  DJNZ    R0,CLEAR
                  MOV     SP,#68H
                  MOV     IE,#0H            ; 关中断
                  MOV     P3,#0FFH


          LOOP:
                   MOV      A,#03H
                   LCALL    Q7D30            ;; (43---46)

                   LCALL    Q7DFF
                   LJMP    $
          ;======== ;送数据到数码管显示 (33h) < 8fh,显示 mask
          ===================================
          ;
          Q7DFF:             MOV   R0,#43H
                             CLR   EA
                             MOV   R3,#23H
                             CLR   SDA           ;显示数据线拉低。
          Q7E07:             SETB  SCL
                             CLR   SCL
                             DJNZ  R3,Q7E07       ; 35 个 SCL  clk 信号

                             SETB  SDA            ;显示数据线变高。
                             SETB  SCL
                             CLR   SCL
                             SETB  EA

          ;;----------- 四个数码长管
                             MOV   R3,#04H
          Q7E17:
          Q7E1B:

                             MOV   A,@R0
          Q7E1E:             LCALL Q7E54          ;送数据到数码显示。SDA=data, SCL=clr
                             INC   R0
                             DJNZ  R3,Q7E17
          ;-----------------------------------------
                             MOV   A,35H
                             CLR   C
                             JB    25H.4,Q7E2F
                             JB    ACC.0,Q7E2F
                             MOV   C,25H.3
          Q7E2F:             CLR   EA
                             MOV   SDA,C          ;显示板上的 LED 1
                             SETB  SCL
                             CLR   SCL
                             SETB  EA
                             CLR   C
                             JB    ACC.0,Q7E3F
                             MOV   C,25H.4         ;显示板上的 LED 2
          Q7E3F:             CLR   EA
                             MOV   SDA,C
                             SETB  SCL
                             CLR   SCL

                             CLR   SDA
                             SETB  SCL
                             CLR   SCL

                             SETB  SCL
                             CLR   SCL

                             SETB  EA
                             RET

          ;===== ;送数据到数码显示。SDA=data, SCL=clr  =================
          Q7E54:             MOV   R2,#08H
          Q7E56:             RRC   A
                             CLR   EA
                             MOV   SDA,C
                             SETB  SCL
                             CLR   SCL
                             SETB  EA
                             DJNZ  R2,Q7E56
                             RET

          ;========= 查表取数据 ==================================
          Q7E64:             INC   A
                             MOVC  A,@A+PC      ;; 取表格 Q7E67 要数据。
                             RET
          ;===========================================
          Q7E67:        DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H    ;?.Ofm}.
                  DB 7FH,6FH,77H,7CH,39H,5EH,79H,71H    ;ow|9^yq

          ;;;-----

          ;;;------- 字符表,8421 码。(BCD
          Q7E77:
          ;;A=00H
                  DB 00H,00H,00H,00H           ;; 00h 不亮
          ;;A=01H
                          DB 39H,73H,3FH,00H         ; CPO
          ;;A=02H
                  DB 78H,79H,6DH,78H           ; tESt
          ;;A=03H
                          DB 39H,3FH,6DH,78H           ; COST
          ;;A=04H
                  DB 3FH,73H,78H,6DH           ; opts
          ;;A=05H
                          DB 3FH,73H,78H,5BH         ; opt2
          ;;A=06H
                  DB 6DH,6DH,6DH,00H           ; sss
          ;;A=07H
                          DB 6DH,6DH,6DH,6DH         ; ssss
          ;;A=08H
                  DB 78H,39H,78H,38H           ; tctl
          ;;A=09H
                          DB 54H,5CH,54H,79H         ; nonE
          ;;A=0AH
                  DB 58H,58H,5CH,00H           ; cco
          ;;A=0BH
                          DB 78H,1CH,7CH,79H         ; tubE
          ;;A=0CH
                  DB 04H,58H,7CH,00H           ; icb
          ;;A=0DH
                          DB 79H,6DH,39H,00H           ; ESC
          ;;A=0EH
                  DB 1EH,77H,00H,00H           ; JA
          ;;A=0FH
                          DB 38H,5CH,00H,00H         ; Lo
          ;;A=10H
                  DB 7CH,1EH,00H,00H           ; bJ
          ;;A=11H
                          DB 7CH,06H,38H,38H         ; bill
          ;;A=12H
                  DB 7CH,6DH,00H,00H           ; bs
          ;;A=13H
                          DB 7CH,3FH,73H,37H         ; bopn
          ;;A=14H
                  DB 7CH,50H,39H,76H           ; brch
          ;;A=15H
                          DB 7CH,71H,3EH,38H         ; bFUl
          ;;A=16H
                  DB 6DH,3FH,38H,5EH           ; SOLD
          ;;A=17H
                          DB 3FH,1CH,78H,00H           ; OUT
          ;;A=18H
                  DB 39H,77H,6DH,76H           ; CASH
          ;;A=19H
                          DB 39H,77H,54H,6DH           ; CAnH
          ;;A=1AH
                  DB 6DH,50H,00H,00H           ;  Sr
          ;;A=1BH
                          DB 00H,54H,5CH,00H         ;  no
          ;;A=1CH
                  DB 6EH,79H,6DH,00H           ; yES
          ;;A=1DH
                          DB 6DH,78H,50H,78H         ; Strt
          ;;A=1EH
                  DB 5EH,5CH,54H,79H           ; done
          ;;A=1FH
                          DB 6DH,50H,54H,5CH         ; Srno
          ;;A=20H
                  DB 71H,78H,6DH,78H           ; Ftst
          ;;A=21H
                          DB 38H,3FH,39H,00H         ; LOC
          ;;A=22H
                  DB 06H,00H,0EDH,06H          ; 1  5.1
          ;;A=23H
                          DB 3FH,3FH,3FH,3FH           ; 0000
          ;;A=24H
                  DB 49H,78H,50H,79H           ; 二tSe
          ;;A=25H
                          DB 49H,6DH,58H,74H           ; 二Sch
          ;;A=26H
                  DB 49H,78H,04H,58H           ; 二t1c
          ;;A=27H
                          DB 49H,6DH,06H,3FH         ; 二S1U
          ;;A=28H
                  DB 49H,79H,77H,00H           ; 二eA
          ;;A=29H
                          DB 49H,71H,3EH,38H         ; 二FU
          ;;A=2AH
                  DB 71H,50H,79H,79H           ; FrEE


          ;========== ;查表取4个数据存进 (43h,44h,45h,46h) =================================
          Q7D30:             MOV   R0,#43H
          Q7D32:             RL    A
                             RL    A
                             MOV   R3,A
                             MOV   DPTR,#Q7E77
                             MOV   R2,#04H
          Q7D3A:             MOV   A,R3
                             MOVC  A,@A+DPTR
                             MOV   @R0,A
                             INC   R0
                             INC   R3
                             DJNZ  R2,Q7D3A
                             RET


                 NOP
                 NOP
                 NOP
                 NOP
                 NOP
                 NOP
          ;;;       LJMP    LOOP
                 END

     

    看《匠人手记》,与匠人同行!北航出版,正在热卖!

    发表评论:
    载入中...

    芯片专题

    器件专题

    软件专题

    硬件专题

    综合专题

    项目专题

    原创专题

    器件检测
    LCD LED
    按键 触摸键
    E2PROM
    电池 电机
    电阻 电容 电感

    指令系统
    软件算法
    编程规范
    滤波算法
    串行通讯

    PCB设计
    I2C PWM
    红外遥控
    充电技术
    中断 ADC 

    匠人手记
    匠人夜话
    网络心路
    一周热点串烧
    从零开始玩PIC
    DIY旋转时钟

    广告5号位 [投放]


    学习板、开发板、编程器、下载器、仿真器(查看详情……)

    站内搜索


    站外搜索


    百度  google
    mp3  歌词 
    图片  FLASH 
    知道  文档
    新闻  词典 
    地图  mp3 
    软件  天网 
    雅虎  爱问 
    搜狗  讯雷 
    网讯  华军 
    天空 

    21IC器件搜索
    百宝箱分站
  • 《匠人的百宝箱》21IC站
  • 《匠人的百宝箱》21IC笔记团队
  • 《匠人的百宝箱》MCUBLOG站
  • 《匠人的百宝箱》MCUBLOG笔记团队
  • 《匠人的百宝箱》EDN站
  • 《匠人手记》EDN书友会
  • 《匠人的百宝箱》与非网站
  • 《匠人的百宝箱》新浪站
  • 《匠人的百宝箱》百度站
  • 《匠人的百宝箱》网易126站
  • 《匠人的百宝箱》网易163站
  • 《匠人的百宝箱》互动出版网站
  • 广告4号位 [投放]

     
     
     

    新鲜货色

    匠人手记

    近期动态

    载入中...

      《匠人手记》购书全攻略 
     书友近况:淘书手记答疑与讨论:什么是散转程序 
     《匠人手记》新书艳照
     EDN《匠人手记》签名售书优惠活动开始报名啦!
     欢迎加入《匠人手记》EDN书友会
     欢迎加入《匠人手记》书友会Q群
     《匠人手记》终稿目录
     《匠人手记》封面,请大家先睹为快
     上周六收到了北航寄来的《匠人手记》清样,让大家先睹为快

    匠人原创

    粉丝评论

    往日酷贴

    载入中...

    载入中...



     网络酷文:博客,改变的不仅仅是图书 
     网络酷文:C语言宏定义技巧C语言 条件编译详解

      21IC上海2008-04聚会报名进行中。。。 
     两分钟让你明白什么是ERP![转]
      神奇的Duff's Device 算法
      实用一线通讯电路及软件设计方法
      程序员的“七年之痒”
      史上最短但最精彩的武侠小说
      网络无厘头文学《缺钙水浒》(爆笑)

     你的博客还能持续多久(转贴)
     电动车无刷电机控制器软件设计要点(作者:谢渊斌)

    大千八卦

    友情连接

    新浪新闻:
    新浪财经:
    AK58新闻:
    新浪股票:
    新浪股票:
    证券之星:

     [更多酷站连接]

     

     

    [欢迎交换连接]

    [百宝箱之与非门分舵]

    [电脑圈圈的家当]

    [IC921的博客]

    [柔月阁]

    [八楼的呼吸]

    [hotpower 的水潭]

    [xwj的文君阁]

    [所长的BLOG]

    [阿摆手记]

    [电子伙伴]

    [unaided的笔记]

    [小飞的笔记]

    [单片机开发联盟]

    [网址之家]

    [好东西网址大全]

    [美萍中文精选]

    [数字电视之家]

    [SMARTCODE电子书斋]

    [软件开发之窗]

    [Armoric]

    [我爱研发网]

    [infernal的笔记]

    [雄鹰的空中加油站]

    [SunK]

    [逍遥电子]

    [ningpanda的博客]

    [C-Design]

    [一网见天下]

    [海边淘沙]

    [嵌入式365]

    [水牛的仓库]

    [股剩是怎样炼成的]

    [PIC论坛]

    [ICC AVR开发网]

    [中国高校自动化网]

     

     

     

    MCU博客-中国电子工程师博客网 

    大学生电子网 

     

     

     

     

     

    !!! 《匠人的百宝箱》 !!!