led.asm

51单片机测温程序

//======================================================
//  The information contained herein is the exclusive property of
//  Sunnnorth Technology Co. And shall not be distributed, reproduced,
//  or disclosed in whole in part without prior written permission.
//             (C) COPYRIGHT 2003  SUNNORTH TECHNOLOGY CO.
//                          ALL RIGHTS RESERVED
//  The entire notice above must be reproduced on all authorized copies.
//========================================================
//============================================================
// 文件名称：led.asm
// 实现功能：共阴数码管显示驱动程序
// 日期：    2005/11/28
//============================================================
.INCLUDE hardware.inc
.EXTERNAL  _guiLED_Value
.RAM
.PUBLIC LED_No
.VAR  LED_No = 0

.IRAM
.DATA
    C_Address: .DW 0x003f,0x0006,0x005b,0x004f, 0x0066,0x006d,0x007c,0x0007,0x007f,0x006f;、
    				//'0''1''2''3''4''5''6''7''8''9'的代码
    C_Dig:     .DW 0x0001,0x0002,0x0004,0x1000,0x2000,0x4000;
    				//LED位选
.CODE
    
//============================================================================================
//函数: F_Show()
//语法：void F_Show(int A,int B)
//描述：点亮LED
//参数：A,LED的位数（C_Dig）,B,LED的显示值
//返回：无
//============================================================================================  
.PUBLIC _LED_Show
.PUBLIC F_LED_Show
_LED_Show:
F_LED_Show:
    PUSH r1,r5 TO  [sp]  		    //弹出入口参数共两个入口参数
L_Loop:       
    bp  = [LED_No] 
    r1  = bp + _guiLED_Value
    r1 = [r1]
    r2 =  bp + C_Dig             	//取LED管的片选地址     
    r2  = [r2]   
    r4 =  r1 + C_Address         	//取显示数据的地址 
    r4 = [r4]
    R4 = R4 LSL 4
    R4 = R4 LSL 4
    cmp bp, 1						//取小数点
    jne  l 
    r4 |= 0x8000   
l:  
    r1 = [P_IOA_Buffer]
    r1 &= 0x00ff
    r1 |=  r4   
    [P_IOA_Buffer] = r1       
    r1 = [P_IOB_Buffer]
    r1 &= 0xfff0
    r2 |= r1
    [P_IOB_Data] = r2				//送位码信号  
    bp = bp + 1						//更改位码，指向下一次显示位
    cmp bp,3						//显示到最后一位
    je l2							//是
l1: [LED_No]  = bp					//否，
    POP r1,r5 FROM [sp]
    RETF
l2: bp = 0
    jmp l1