四位共阳极数码管 编程

四位共阳极数码管 编程

;参数定义 DBUF0 DATA 40H ;显示返渗岩缓冲区首址DBUF1 DATA 41HDBUF2 DATA 42HDBUF3 DATA 43HSPBM DATA 60H ;堆栈指针初值 ;程序开始 ORG 0000H LJMP MAIN ORG 0100H ;程序从0100H单元开始存放MAIN: MOV SP,#SPBM;给堆栈指喊帆针赋初值 MOV DBUF0, #1 ; 要显示内容 MOV DBUF1, #2 MOV DBUF2, #3 MOV DBUF3, #4 DS: ACALL DISPLAY AJMP DS ;继续 DISPLAY: MOV R2, #08H ;给位码初值(p2.3为高) MOV R0, #DBUF0 ;给显示缓冲区首值ZCQ: MOV A, @R0 LCALL TAB ;查表取段码 MOV P0,A ;送段码输漏御出 MOV A, R2 ;取位码 MOV P2, A ;送P2 LCALL DELAY ;调延时子程序 MOV P2,#0 ;关显示,防闪烁 INC R0 ;指向下一显示缓冲区 MOV A, R2 RR A ;位选码右移一位 MOV R2, A CJNE R0, #44H, ZCQ ;4位显示完吗? MOV P2, #0 ;完,关显示 RET延时子程序DELAY: MOV R7,#50HDELAY0: MOV R6,#10HDELAY1: DJNZ R6,DELAY1 DJNZ R7,DELAY0 RET ;查表子程序TAB: INC A ;基地址加一 MOVC A, @A+PC ;查段码表，取其相应的段码 RETDB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H,80H,090H,088H,083H,0c6H,0a1H,86H,8eH,0bfH,89H,8cH,0FFH ;(0-9 A-F)共阳段码表 END注：P2.3---P2.0,对应最高位---最低位数码管.