I have made some code to produce two pwm's to let two led's fade in
and fade out.
It looks to work but the outputs are never been set. Am i missing
somethin?
The PIC used is a 16F685 and i am using MPLAB IDE 8.30 as development
tool.

[code]
    movlw    d'2'        ; init slope counter
    movwf    ACC_COUNT

    movlw   0x0F
    movwf   CV545
    movlw   0x03
    movwf   CV515
    clrf    PWM1A
    clrf    PWM1B
;
----------------------------------------------------------------------
MainLoop:

F1A_Set:                    ; If B is on then fade out
                            ; then fade A in else A in
    clrf     SPEED1B        ; turn off
    bcf      DIR_UP,OUT1B
    bcf      LIGHT_UP,OUT1B
    btfss    DIR_UP,OUT1A    ; if lights, nothing to do
    bsf      LIGHT_UP,OUT1A  ; next light this
    call     DoLight1
F1B_Set
    clrf     SPEED1A         ; turn off
    bcf      DIR_UP,OUT1A
    bcf      LIGHT_UP,OUT1A
    btfss    DIR_UP,OUT1B    ; if lights nothing to do
    bsf      LIGHT_UP,OUT1B  ; next light this
    call     DoLight1
    goto     MainLoop
 
DoLight1:
    decfsz   ACC_COUNT,f      ; slope
    goto     SpeedOn

    movf     CV545,w          ; load slope from CV
    movwf    ACC_COUNT

    movf     PWM1A,w          ; all off?
    iorwf    PWM1B,w
    btfss    STATUS,Z
    goto     DoPWM1A
DoLight1A:
    btfss    LIGHT_UP,OUT1A      ; realy do lightA
    goto     DoLight1B
    bcf      LIGHT_UP,OUT1A
    bsf      DIR_UP,OUT1A    ; If so set max light
    movf     CV515,w
    movwf    SPEED1A
DoLight1B:    
    btfss    LIGHT_UP,OUT1B      ; realy do LightB
    goto     DoPWM1A
    bcf      LIGHT_UP,OUT1B
    bsf      DIR_UP,OUT1B    ; If so set max light
    movf     CV515,w
    movwf    SPEED1B

DoPWM1A:
    movf     PWM1A,w        ; calc PWM acc/dec
    xorwf    SPEED1A,w
    btfsc    STATUS,Z
    goto     DoPWM1B
    movlw    0x01
    btfss    DIR_UP,OUT1A
    movlw    0xFF
    addwf    PWM1A,f
DoPWM1B:
    movf     PWM1B,w
    xorwf    SPEED1B,w
    btfsc    STATUS,Z
    goto     DoLight1
    movlw    0x01
    btfss    DIR_UP,OUT1B
    movlw    0xFF
    addwf    PWM1B,f
    goto     DoLight1

SpeedOn:
    clrf     OUTPUT        ; do PWM of outputs
    rrf      TMR1H,w
    rrf      TMR1L,w
    movwf    TIMER
    bcf      STATUS,C
    rrf      TIMER,w
    btfsc    TMR1H,1
    iorlw    0x80
    iorlw    0x0F

    movwf    TIMER
    addwf    PWM1A,w
    btfsc    STATUS,C
    bsf      OUTPUT,OUT1A
    movf     TIMER,w
    addwf    PWM1B,w
    btfsc    STATUS,C
    bsf      OUTPUT,OUT1B
    movf     OUTPUT,W
    xorwf    PORTC, W
    andlw    (1<<OUT1A)|(1<<OUT1B)
    xorwf    PORTC, F        ;

    movf     PWM1A,w         ; If either one is zero
    iorwf    PWM1B,w
    btfsc    STATUS,Z        ; do it again
    goto     DoLight1
    
    movf     CV518,w         ; where doing PWM now
    xorwf    PWM1A,w         ; and keep doing so until
    xorwf    PWM1B,w         ; the value in CV518 is
    btfsc    STATUS,Z        ; reached
    return                   ; Light should be on
    goto     DoLight1
[/code]

Any help would be welkom. Regards

Harry

-- 
http://www.piclist.com PIC/SX FAQ & list archive
View/change your membership options at
http://mailman.mit.edu/mailman/listinfo/piclist