pwm2.asm

以比较匹配A达到时交替输出高低电平及写入其维持 时间常数之方法实现脉宽调制输出

;清单51              ;以比较匹配A达到时交替输出高低电平及写入其维持
;时间常数之方法实现脉宽调制输出
        .include "m128def.inc"
	   .ORG     $000
STRT41: RJMP    RST41       ;5.008MS(高):10.000MS(低) 晶振4MHZ
       .ORG     $0018
        RJMP    T1_CMPA      ;USE 8535
       .ORG     $040
RST41:  LDI     R16,HIGH(RAMEND)
        OUT     SPH,R16
        LDI     R16,LOW(RAMEND)
        OUT     SPL,R16
        LDI     R16,$80      ;T/C1比较匹配A达到时，清除输出脚oc1a
        OUT     TCCR1A,R16
        LDI     R16,$0B      ;64分频 ctc1=1 比较匹配达到清tcnt1
        OUT     TCCR1B,R16
        SBI     DDRB,5
        SBI     PORTB,5      ;pd5(oc1a)初始化输出为高
        CLR     R16
        OUT     TCNT1H,R16   ;予清除tcnt1
        OUT     TCNT1L,R16
        LDI     R16,1
        OUT     OCR1AH,R16
        LDI     R16,$39      ;写比较匹配寄存器(313*0.25*64=5.008MS)
        OUT     OCR1AL,R16
        LDI     R16,$10
        OUT     TIMSK,R16    ;允许比较匹配A中断		
        SEI
HH41:   RJMP    HH41         ;背景程序略
T1_CMPA:IN      R5,SREG
        IN      R16,TCCR1A
        SBRS    R16,6       
        RJMP    OUTLOW       ;当前输出低电平，转
        LDI     R16,1
        OUT     OCR1AH,R16
        LDI     R16,$39      ;写入高电平维持时间313
        OUT     OCR1AL,R16
        LDI     R16,$80      ;比较匹配A达到时，OC1A输出为低
        OUT     TCCR1A,R16
        OUT     SREG,R5
        RETI
OUTLOW: LDI     R16,2
        OUT     OCR1AH,R16
        LDI    R16,$71      ;写入低电平维持时间625(=$271) (625*0.25*64=10.000MS)
        OUT     OCR1AL,R16
        LDI     R16,$C0      ;比较匹配A达到时，OC1A输出为高
        OUT     TCCR1A,R16
        OUT     SREG,R5
        RETI