找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 1557|回复: 0
打印 上一主题 下一主题
收起左侧

51单片机生日快乐汇编程序

[复制链接]
跳转到指定楼层
楼主
ID:339402 发表于 2018-5-27 22:40 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
单片机源程序如下:
  1.    ORG 0000H
  2.    LJMP MAIN
  3.    ORG 000BH
  4.    LJMP TIM0
  5.    ORG 0030H
  6. MAIN:    MOV TMOD,#01H
  7.          MOV IE,#82H
  8.    MOV 30H,#00H
  9. NEXT:    MOV A,30H
  10.          MOV DPTR,#TABLE
  11.    MOVC A,@A+DPTR
  12.    MOV R2,A
  13.    JZ END0
  14.    ANL A,#0FH
  15.    MOV R5,A
  16.    MOV A,R2
  17.    SWAP A
  18.    ANL A,#0FH
  19.    JNZ SING
  20.    CLR TR0
  21.    LJMP D1
  22. SING:    DEC A
  23.          MOV 22H,A
  24.    RL A
  25.    MOV DPTR,#TABLE1
  26.    MOVC A,@A+DPTR
  27.    MOV TH0,A
  28.    MOV 21H,A
  29.    MOV A,22H
  30.    RL A
  31.    INC A
  32.    MOVC A,@A+DPTR
  33.    MOV TL0,A
  34.    MOV 20H,A
  35.    SETB TR0
  36. D1:      LCALL DELAY
  37.          INC 30H
  38.    LJMP NEXT
  39. END0:    CLR TR0
  40.          LJMP MAIN
  41. TIM0:    PUSH ACC
  42.          PUSH PSW
  43.    MOV TL0,20H
  44.    MOV TH0,21H
  45.    CPL P1.0
  46.    POP PSW
  47.    POP ACC
  48.    RETI
  49. DELAY:   MOV R7,#02H
  50. D2:       MOV R4,#187
  51. D3:      MOV R3,#248
  52.          DJNZ R3,$
  53.    DJNZ R4,D3
  54.    DJNZ R7,D2
  55.    DJNZ R5,DELAY
  56.    RET
  57. TABLE1:  DW 64260,64400,64521,64580
  58.          DW 64684,64777,64820,64898
  59.    DW 64968,65030,65058,65110
  60.    DW 65157,65178,65217
  61. TABLE:   DB 82H,01H,81H,94H,84H
  62.          DB 0B4H,0A4H,04H
  63.    DB 82H,01H,81H,94H,84H
  64.    DB 0C4H,0B4H,04H
  65.    
  66.    DB 82H,01H,81H,0F4H,0D4H
  67.    DB 0B4H,0A4H,04H
  68.    DB 0E2H,01H,0E1H,0D4H,0B4H
  69.    DB 0C4H,0B4H,04H
  70.    DB 82H,01H,81H,94H,84H
  71.    DB 0B4H,0A4H,04H
  72.    DB 82H,01H,81H,94H,84H
  73.    DB 0C4H,0B4H,04H
  74.    DB 82H,01H,81H,0F4H,0D4H
  75.    DB 0B4H,0A4H,94H
  76.    DB 0E2H,01H,0E1H,0D4H,0B4H
  77.    DB 0C4H,0B4H,04H
  78.    DB 00H
  79. END
复制代码

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶 踩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表