generalfun.lis

GP32启动程序

 0000           //[GeneralFun.s]通用子程序------------------------------*
 0000           //本文件包含:                                           *
 0000           //    (1)_DelayHX:延时约为HX*1000时钟周期(T)            *
 0000           //------------------------------------------------------*
 0000           
 0000           //_DelayHX:延时子程序-----------------------------------*
 0000           //功能:用程序的方法,延时约为HX*1000时钟周期(T)          *
 0000           //入口:HX(0-65535)                                      *
 0000           //出口: 无                                              *
 0000           //说明:                                                 *
 0000           //    (1)忽略进入与退出部分指令的执行时间               *
 0000           //    (2)这种延时方法,实际延时的长短与总线周期有关      *
 0000           //------------------------------------------------------*
 0000           _DelayHX::
 0000 87            PSHA    //A进栈(保护寄存器A)
 0001 650000        CPHX  #0
 0004 270D          BEQ   _DelayHX_Exit
 0006               //延时约HX * 1000(T)=========
 0006           _DelayHX_1:
 0006               //延时约200 * 5 = 1000(T)----
 0006 A6C8          LDA   #200
 0008           _DelayHX_2:
 0008 9D            NOP                 //(1T)
 0009 9D            NOP                 //(1T)
 000A 4BFC          DBNZA _DelayHX_2    //(3T)
 000C               //---------------------------
 000C AFFF          AIX   #-1
 000E 650000        CPHX  #0
 0011 26F3          BNE   _DelayHX_1
 0013               //===========================
 0013           _DelayHX_Exit:
 0013 86            PULA    //A出栈(恢复寄存器A)
 0014 81         RTS