58led.asm

单片机的程序

;实验  数码管动态扫描显示01234567
;********************************************************************************
;*  日期:  2007-3-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳学林电子有限公司     专业8051单片机教学站                        *
;*  邮箱: [e-mail]                                                       *
;*  网站： http://www.51c51.com     http://www.8951.com    更多例程请登陆网站   *
;********************************************************************************
;*  硬件：此程序在本公司xlisp系列单片机实验仪运行通过                           *
;********************************************************************************
;* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com  All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;********************************************************************************
ORG  0000H
AJMP MAIN
ORG  0030H
MAIN:
      CLR P2.0           	;选中第一个数码管
      MOV P0,#28H             	;显示0
      LCALL    DELAY          	; 调用延时
      MOV P0,#0FFH            	;关显示
      SETB P2.0
      CLR P2.1          	;选中第二个数码管
      MOV P0,#7EH             	;显示1
      LCALL    DELAY
      MOV P0,#0FFH
      SETB     P2.1
      CLR P2.2           	;选中第三个数码管
      MOV P0,#0A2H            	;显示2
      LCALL    DELAY
      MOV P0,#0FFH
      SETB     P2.2
      CLR P2.3          	;选中第四个数码管
      MOV P0,#62H             	;显示3
      LCALL    DELAY
      MOV P0,#0FFH
      SETB     P2.3
      CLR      P2.4        	;选中第五个数码管
      MOV P0,#74H            	;显示4
      LCALL    DELAY
      MOV P0,#0FFH
      SETB     P2.4
      CLR P2.5          	;选中第六个数码管
      MOV P0,#61H            	; 显示5
      LCALL    DELAY
      MOV P0,#0FFH
      SETB P2.5
      CLR P2.6          	;选中第七个数码管
      MOV P0,#21H            	; 显示6
      LCALL    DELAY
      MOV P0,#0FFH
      SETB     P2.6
      CLR P2.7          	;选中第八个数码管
      MOV P0,#7AH            	; 显示7
      LCALL    DELAY
      SETB     P2.7
      MOV P0,#0FFH
      AJMP MAIN               	;重新开始
DELAY:                      	;延时子程序
      MOV  R7,#2
      D1:  MOV  R6,#25
      D2:  DJNZ R6,D2
      DJNZ R7,D1
      RET
      END