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

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

天气预报
百宝日历
载入中...

百宝专栏

载入中...
最新货色

载入中...

粉丝评论

载入中...

载入中...



百宝信息

载入中...

百宝流量

(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号位 [投放]


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

广告3号位 [投放]

站内搜索


站外搜索


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

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

     
     

    匠人原创

    往日酷贴

     
     
     

    大千八卦

    友情连接

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

     [更多酷站连接]

     

     

    [欢迎交换连接]

    [百宝箱之与非门分舵]

    [电脑圈圈的家当]

    [IC921的博客]

    [柔月阁]

    [八楼的呼吸]

    [hotpower 的水潭]

    [xwj的文君阁]

    [所长的BLOG]

    [阿摆手记]

    [电子伙伴]

    [unaided的笔记]

    [小飞的笔记]

    [单片机开发联盟]

    [网址之家]

    [好东西网址大全]

    [美萍中文精选]

    [数字电视之家]

    [SMARTCODE电子书斋]

    [软件开发之窗]

    [Armoric]

    [我爱研发网]

    [infernal的笔记]

    [雄鹰的空中加油站]

    [SunK]

    [逍遥电子]

    [ningpanda的博客]

    [C-Design]

    [一网见天下]

    [海边淘沙]

    [