标题: 走马灯汇编源程序 [打印本页]

作者: xcc1500    时间: 2018-6-15 10:42
标题: 走马灯汇编源程序
走马灯汇编源程序
  1.         ORG         0000H
  2.         AJMP        MAIN
  3.         ORG         0013H
  4.         LJMP        IN11

  5.         ORG         0030H
  6. MAIN:   SETB        EA
  7.         SETB        EX1
  8.         CLR         PX1
  9.         SETB        IT1     
  10.         MOV         R1,#00H
  11.         SJMP        $
  12.         
  13.         ORG         0200H
  14. IN11:   INC         R1
  15.         LCALL       NEXT
  16.         RETI

  17. NEXT:   MOV         A,R1
  18.         MOV         B,#2
  19.         DIV         AB
  20.         MOV         A,B
  21.         JZ          LOOP1
  22.         LCALL       NEXT1
  23.         RET

  24. NEXT1:  MOV         A,#0FEH
  25.         MOV         R2,#8
  26. DO:     MOV         P1,A
  27.         RL          A
  28.         LCALL       DELY1S
  29.         DJNZ        R2,DO      
  30.         RET

  31. LOOP1:  MOV         A,#7FH
  32.         MOV         R2,#8
  33. NEXT2:  MOV         P1,A
  34.         RR          A
  35.         LCALL       DELY1S
  36.         DJNZ        R2,NEXT2
  37.         RET
  38. DELY1S: MOV         R5,#5
  39. D2:     MOV         R6,#200
  40. D1:     MOV         R7,#248
  41.         DJNZ        R7,$
  42.         DJNZ        R6,D1
  43.         DJNZ        R5,D2
  44.         RET

  45.         END
复制代码


走马灯汇编源程序.zip

637 Bytes, 下载次数: 2, 下载积分: 黑币 -5






欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1