找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 4933|回復: 1
打印 上一主題 下一主題
收起左側(cè)

用于單片機跑馬燈的匯編語言程序

[復制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:236592 發(fā)表于 2017-9-29 15:55 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
一個有多功能的跑馬燈

  1.         ORG    0000H
  2. LJMP MAIN1

  4. ORG 0040H
  5. MAIN1: MOV A,#0001H
  6.            MOV 10H,#0001H
  7.        MOV 40H,#0003H
  8.            MOV 50H,#0007H
  9.              MOV 60H,#000FH
  10.            SETB EX0
  11.        SETB ET0
  12.        SETB EA
  13.            MOV R0,#30H
  14.            MOV R1,#70H
  15.            MOV 30H,#00H
  16.            MOV R5,#00H
  17.            MOV R6,#00H
  18.           
  19. MAIN2:
  20.           
  21.             MOV @R0,P0
  22.         ANL 30H,#0003H
  23.         CJNE R6,#0001H,LOOP2

  25. LOOP1:MOV A,10H
  26.     CJNE @R0,#0003H,CC11
  27.         MOV P2,A    ;將控制字送端口
  28.     RL A    ;控制字循環(huán)左移
  29.                 MOV 10H,A
  30.     LCALL DELAY    ;延時
  31.         LJMP MAIN2
  32. LOOP2: MOV A,10H
  33.   CJNE @R0,#0003H,CC21
  34. MOV P2,A
  35.      RR A
  36.            MOV 10H,A
  37.      LCALL DELAY
  38.      LJMP MAIN2


  41. CC11:  
  42. MOV A,40H
  43. CJNE @R0,#0002H,CC12
  44.         MOV P2,A
  45.         RL A
  46.         MOV 40H,A
  47.     LCALL DELAY    ;延時
  48.         LJMP MAIN2
  49. CC12:
  50. MOV A,50H
  51. CJNE @R0,#0001H,CC13
  52.          MOV P2,A
  53.          RL A
  54.          MOV 50H,A
  55.     LCALL DELAY    ;延時
  56.         LJMP MAIN2
  57. CC13:
  58. MOV A,60H
  59.          MOV P2,A
  60.          RL A
  61.          MOV 60H,A
  62.     LCALL DELAY    ;延時
  63.         LJMP MAIN2
  64. CC21:
  65.      MOV A,40H
  66.      CJNE @R0,#0002H,CC22
  67.          MOV P2,A
  68.      RR A
  69.          MOV 40H,A
  70.      LCALL DELAY
  71.      LJMP MAIN2
  72. CC22:  MOV A,50H
  73. CJNE @R0,#0001H,CC23
  74.           MOV P2,A
  75.      RR A
  76.          MOV 50H,A
  77.      LCALL DELAY
  78.      LJMP MAIN2
  79. CC23: MOV A,60H
  80.          MOV P2,A
  81.          RR A
  82.          MOV 60H,A
  83.     LCALL DELAY    ;延時
  84.         LJMP MAIN2

  86. DELAY:     ;延時大概1秒
  87. MOV        @R1,P0
  88. ANL 70H,#000CH
  89. CJNE @R1,#000CH,DD1
  90. MOV R2,#10
  91. DLY1:
  92.     MOV R3,#200
  93. DLY2:
  94.     MOV R4,#250
  95.     DJNZ R4,$
  96.     DJNZ R3,DLY2
  97.     DJNZ R2,DLY1
  98.     RET
  99. DD1:CJNE @R1,#0008H,DD2
  100.   MOV R2,#5
  101. DLY3:
  102.     MOV R3,#100
  103. DLY4:
  104.     MOV R4,#250
  105.     DJNZ R4,$
  106.     DJNZ R3,DLY4
  107.     DJNZ R2,DLY3
  108.     RET

  110. DD2:  CJNE @R1,#0004H,DD3
  111.         MOV R2,#5
  112. DLY5:
  113.     MOV R3,#100
  114. DLY6:
  115.     MOV R4,#100
  116.     DJNZ R4,$
  117.     DJNZ R3,DLY6
  118.     DJNZ R2,DLY5
  119.     RET
  120. DD3:
  121.                  MOV R2,#20
  122. DLY7:
  123.     MOV R3,#250
  124. DLY8:
  125.     MOV R4,#250
  126.     DJNZ R4,$
  127.     DJNZ R3,DLY8
  128.     DJNZ R2,DLY7
  129.     RET


  132.        
  133.         END
復制代碼


paomadeng.zip

718 Bytes, 下載次數(shù): 5, 下載積分: 黑幣 -5

asm
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂頂 踩踩
回復

使用道具 舉報

沙發(fā)
ID:151845 發(fā)表于 2017-9-29 21:43 | 只看該作者
剛學了單片機�？吹絽R編不錯，謝謝分享
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復 返回頂部 返回列表