main.s

摩托罗拉的脉冲信号输出的原代码

	.module main.c
	.area text
;           Duty -> 0,X
;         Period -> 2,X
_main::
	ais #-4
	tsx
; /*-----------------------------------------------------*
; *工 程 名:PWM.prj                                      *
; *硬件接线:PTD.4,即定时器1通道0(21脚)接指示灯或蜂鸣器   *
; *程序描述:通过对PWM占空比的调节实现现指示灯的渐亮的功能*
; *         当占空比为100％时再从0％逐渐增加             *
; *目    的:学习HC08系列定时器脉宽调制功能               *
; *---------《嵌入式应用技术基础教程》教学实例----------*/
; /*[头文件]*/
; #include "GP32C.H"               //包含头文件
; #include "KB.h"               //键盘中断头文件
; /*函数声明*/
; void PWMInit(unsigned int );     //PWM初始化
; void PWMconf(unsigned int);      //PWM设置
; extern void Delay_ms(unsigned char );   //延时
; extern void hmusic(void);
; extern void Lmusic(void);
; unsigned char KB_valve;
; 
; /*主程序*/
; void main()
; {      unsigned int  Period;   //PWM周期
;       unsigned int  Duty;     //PWM占空比
;         
;      KB_Init();
	jsr _KB_Init
	tsx
	bra L3
L2:
	lda #14
	sta 0x25
	jsr _Lmusic
	jsr _hmusic
	tsx
L3:
; 	      
;        //[主循环]
;       while(1)
	bra L2
X0:
L1:
	ais #4
	.dbline 0 ; func end
	rts
;           Temp -> 0,X
;         Period -> 4,X
_PWMInit::
	ais #-2
	tsx
;      {   T1SC0=0x0E;  
;       Lmusic();
;       hmusic();
;       
;       
; 
; 
;       }             
;    }
; /*PWMconf:PWM初始化设置--------------------------------*
; * 功  能:PWM脉冲周期、占空比的设置                     *
; * 参  数:rate=脉宽时钟数,cyc=脉冲周期时钟数            *
; * 返  回:无                                            *
; *-----------------------------------------------------*/
; void PWMInit(unsigned int Period)
; {   
;     unsigned int Temp=Period;
	lda 4,X
	sta ,X
	lda 5,X
	sta 1,X
;     //不允许溢出中断,不启动计数,分频因子=64,置位TSTOP,TRST
;     T1SC = 0x36;        
	lda #54
	sta 0x20
;     //[设置PWM周期]
;     T1MODH = (Temp>>8);     
	lda ,X
	sta 0x23
;     T1MODL = Period;      
	lda 5,X
	sta 0x24
;     //[初始化设置PWM脉宽为0]        
;     T1CH0H = 0x00;       
	clr 0x26
;     T1CH0L = 0x00;  
	clr 0x27
;     //设为PWM模式,不允许输出比较中断,输出低电平，不带缓冲 
;     T1SC0  = 0x1E;      
	lda #30
	sta 0x25
;     //允许定时器1计数寄存器计数           
;     T1SC  &= 0xDF;     
	lda 0x20
	and #-33
	sta 0x20
L5:
	ais #2
	.dbline 0 ; func end
	rts
	.area bss
_KB_valve::
	.blkb 1