generalfun.s

来自「项目是为日本瑞萨工作所做的BAKE炉温控系统 整个文件夹包括设计文档」· S 代码 · 共 64 行

	.module GeneralFun.c
	.area text
	.dbfile GeneralFun.c
	.dbfunc e Delay _Delay fV
;              u -> 0,X
;              k -> 4,X
_Delay::
	.dbline -1
	ais #-2
	tsx
	.dbline 14
; //[GenneralFun.c]通用函数--------------------------------------------------*
; //本文件包含:                                                              *  
; //(1)Delay:延时函数                                                        *
; //-------------------------------------------------------------------------*
; 
; #include "GeneralFun.h"       //该头文件中包含了类型别名定义
; 
; //Delay:延时函数-----------------------------------------------------------*
; //功  能:用程序的方法延时一段时间                                          *
; //参  数:k=延时长度(0-65535)                                               *
; //返  回:无                                                                *	
; //-------------------------------------------------------------------------*
; void Delay(INT16U k)
; { 
	.dbline 16
	clr 1,X
	clr ,X
	bra L5
L2:
	.dbline 16
L3:
	.dbline 16
	lda 1,X
	add #1
	sta 1,X
	lda ,X
	adc #0
	sta ,X
L5:
	.dbline 16
;     INT16U u;
;     for(u=0;u<=k;u++);
	lda 5,X
	sta *__r1
	lda 4,X
	sta *__r0
	lda 1,X
	sta *__r3
	lda ,X
	sta *__r2
	ldhx *__r2
	cphx *__r0
	tsx
	bls L2
	.dbline -2
L1:
	ais #2
	.dbline 0 ; func end
	rts
	.dbsym l u 0 i
	.dbsym l k 4 i
	.dbend