generalfun.s

GP32启动程序

//[GeneralFun.s]通用子程序------------------------------*
//本文件包含:                                           *
//    (1)_DelayHX:延时约为HX*1000时钟周期(T)            *
//------------------------------------------------------*

//_DelayHX:延时子程序-----------------------------------*
//功能:用程序的方法,延时约为HX*1000时钟周期(T)          *
//入口:HX(0-65535)                                      *
//出口: 无                                              *
//说明:                                                 *
//    (1)忽略进入与退出部分指令的执行时间               *
//    (2)这种延时方法,实际延时的长短与总线周期有关      *
//------------------------------------------------------*
_DelayHX::
    PSHA    //A进栈(保护寄存器A)
    CPHX  #0
    BEQ   _DelayHX_Exit
    //延时约HX * 1000(T)=========
_DelayHX_1:
    //延时约200 * 5 = 1000(T)----
    LDA   #200
_DelayHX_2:
    NOP                 //(1T)
    NOP                 //(1T)
    DBNZA _DelayHX_2    //(3T)
    //---------------------------
    AIX   #-1
    CPHX  #0
    BNE   _DelayHX_1
    //===========================
_DelayHX_Exit:
    PULA    //A出栈(恢复寄存器A)
 RTS