>
首 页文章中心单片机论坛电脑援救中心杀毒软件下载电子元件速查集成电路速查客户留言下载中心商品展示频道繁體中文
设为首页
加入收藏
联系我们
您当前的位置:中国单片机网 -> 经典软件 -> 文章内容 退出登录 用户管理
栏目导航
· 经典软件 · 单片机讲座
· 电源技术 · 称重技术
· 硬件与电路 · 资料下载
· 淘宝商品 · 轻松一刻
· 金华电大资讯 · 胡老师招生
· l
热门文章
· [图文] 本站承接单片..
· 金华广播电视大学(金..
· 关于金华广播电视大..
· 关于金华广播电视大..
· [组图] 三极管s8050管..
· [组图] 9014三极管管..
· [组图] 三极管9012引..
· [组图] 中央广播电视..
· [组图] 三极管9013管..
· [组图] 万用表的使用..
相关文章
· 1518
· 1418
· 1318
· 1218
· 1189
· 1188
· 1187
· 1186
· 1185
· 1184
1818.ASM
作者:本站  来源:本站整理  发布时间:2007-5-10 10:16:58  发布人:admin

减小字体 增大字体

1818.ASM

       ORG 0000H
     AJMP MAIN
        ORG     001BH
        AJMP    SERVE
  MAIN:
       A8279_1 EQU    7FFFH
       A8279_2 EQU     7FFEH
       MOV      DPTR,#A8279_1
       MOV      A,#0D1H
       MOVX     @DPTR,A
 WAIT1:MOVX     A,@DPTR
       JB       ACC.7,WAIT1
       MOV      A,#00H
       MOVX     @DPTR,A
       MOV      A,#2CH
       MOVX     @DPTR,A

       MOV     TMOD,#10H
       MOV     20H,#14H
       CLR  A
       MOV 30H,A
       MOV 31H,A
       MOV 32H,A
       MOV 33H,A
       SETB  ET1
       SETB  EA
        MOV     TL1,#00H
        MOV     TH1,#4CH
        SETB    TR1
        ACALL  TRANS
 ACALL  LED
        SJMP    $

  SERVE:PUSH PSW
        PUSH ACC
 LCALL  TRANS
 LCALL  LED

        MOV     TL1,#00H
        MOV     TH1,#4CH
        DJNZ    20H,RETUNT
        MOV     20H,#14H

        MOV A,#01H
        ADD A,33H
        DA A
     MOV 33H,A
        XRL A,#60H
     JNZ RETUNT
        MOV 33H,#00H

        MOV A,#01H
        ADD A,32H
        DA A
 MOV 32H,A
        XRL A,#60H
 JNZ RETUNT
        MOV 32H,#00H

       MOV A,#01H
       ADD A,31H
       DA A
       MOV 31H,A
       XRL A,#25H
       JNZ RETUNT
       MOV 31H,#00H

       MOV A,#01H
       ADD A,30H
       DA A
       MOV 30H,A
       XRL A,#31H
       JNZ RETUNT
       MOV 30H,#00H

RETUNT:ACALL SEACH1
       POP ACC
       POP PSW
       RETI

TRANS: MOV R0,#33H
       MOV R1,#40H
       MOV R6,#04H
  LAST:MOV      A,@R0
       ANL      A,#0FH
       MOV      @R1,A
       MOV      A,@R0
       ANL      A,#0F0H
       SWAP     A
       INC  R1
       MOV      @R1,A
       INC  R1
       DEC R0
       DJNZ R6,LAST
       RET

 


   LED:MOV      DPTR,#A8279_1
       MOV      A,#90H
       MOVX      @DPTR,A
       MOV      R1,#40H

       MOV      R7,#08H
       MOV      DPTR,#7FFEH
  LOOP:MOV      A,@R1
       ADD      A,#17H
       MOVC     A,@A+PC
       MOV      @R1,A
       INC      R1
       DJNZ     R7,LOOP
       MOV      R7,#08H
       MOV      R1,#40H
       ORL   42H,#80H
       ORL   44H,#80H
       ORL   46H,#80H
 LOOP3:MOV  A,@R1
       MOVX @DPTR,A
       INC  R1
       DJNZ R7,LOOP3

       RET
       DB       3FH,06H,5BH,4FH,66H,6DH
       DB       7DH,07H,7FH,6FH


   KEY:MOV  DPTR ,#A8279_1
 MOV  A,#40H
 MOVX @DPTR,A
 MOV DPTR,#7FFEH
 MOVX A,@DPTR
 ANL A,#3FH

        CJNE A,#0CH,KEY1
        CLR  A
        MOV 30H,A
        MOV 31H,A
        MOV 32H,A
        MOV 33H,A
        AJMP RETUN

   KEY1:CJNE A,#0AH,KEY2
        ACALL SEACH2
        MOV DPTR ,#A8279_2
        MOVX A,@DPTR
        ANL A,#3FH
        CJNE A,#06H,PTF1
   PTF1:JC NEXT2
        MOV 33H,#00H
        AJMP RETUN
  NEXT2:SWAP A
        MOV 33H,A
        ACALL SEACH2
        MOV DPTR, #A8279_2
        MOVX A,@DPTR
        ANL A,#3FH
        CJNE A,#0AH,PTF2
   PTF2:JC NEXT3
        MOV 33H,#00H
        AJMP RETUN
   NEXT3:ORL 33H,A
        AJMP RETUN

   KEY2:CJNE A,#0BH,KEY3
        ACALL SEACH2
        MOV DPTR ,#A8279_2
        MOVX A,@DPTR
        ANL A,#3FH
        CJNE A,#06H,PTF3
   PTF3:JC NEXT4
        MOV 32H,#00H
        AJMP RETUN
  NEXT4:SWAP A
        MOV 32H,A
        ACALL SEACH2
        MOV DPTR ,#A8279_2
        MOVX A,@DPTR
        ANL A,#3FH
        CJNE A,#0AH,PTF4
   PTF4:JC NEXT5
        MOV 32H,#00H
        AJMP RETUN
   NEXT5:ORL 32H,A
        AJMP RETUN

   KEY3:CJNE A,#0DH,KEY4
        ACALL SEACH2
        MOV DPTR ,#A8279_2
        MOVX A,@DPTR
        ANL A,#3FH
        SWAP A
        MOV 31H,A
        ACALL SEACH2
        MOV DPTR ,#A8279_2
        MOVX A,@DPTR
        ANL A,#3FH
        ORL 31H,A
        MOV A,31H
        CJNE A,#25H,PTF6
   PTF6:JC RETUN
        MOV 31H,#00H
        AJMP RETUN

   KEY4:CJNE A,#0EH,RETUN
        ACALL SEACH2
        MOV DPTR,#A8279_2
        MOVX A,@DPTR
        ANL A,#3FH
        SWAP A
        MOV 30H,A
        ACALL SEACH2
        MOV DPTR ,#A8279_2
        MOVX A,@DPTR
        ANL A,#3FH
        ORL 30H,A
        MOV A,30H
        CJNE A,#31H,PTF7
   PTF7:JC RETUN
        MOV 30H,#00H

  RETUN:RET

SEACH1:MOV      DPTR,#A8279_1
       MOVX     A,@DPTR
       ANL A,#07H
       JZ  RETUN4
       LJMP KEY
 RETUN4:RET
SEACH2:MOV      DPTR,#A8279_1
       MOVX     A,@DPTR
       ANL A,#07H
       JNZ  RETUN3
       SJMP SEACH2
 RETUN3:RET
END

[] [返回上一页] [打 印] [收 藏]
下一篇文章:78.asm
∷相关文章评论∷    (评论内容只代表网友观点,与本站立场无关!) [更多评论…]
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - 管理登录
Copyright © 2002-2009 www.chinadpj.com. All Rights Reserved. 浙ICP备06040125号
Powered by:NewAsp SiteManageSystem Version 2.1 SP1 1030