*******************主程序*******************
;*******************************************************************
;* INVERT7.ASM   PIC PWM DC->AC Inverter Controller
;*         Generates 60Hz PWM waveform for primary of inverter Xfrm
;*         Begins at 0.5 max. width and uses ADC to sample average
;*         AC output voltage.  Also controls main power relays and
;*         corrects load power factor
;*
;* M. Csele  original version: 96/12/04  version 7: 98/12  
;*
;* Hardware: Adapted for PIC Applications PCB with on-board ADC0831
;*
;*           RA0 = ADC DATA Line
;*           RA1 = ADC CLK Line
;*           RA2 = ADC CS Line
;*           RA3 = Alarm Beeper Output
;*                 (Used to announce startup and shutdown)  
;*           RA4 = [FUTURE OPTION] Shutdown Input (Active Low)  
;*
;*           RB0 = [FUTURE OPTION] Serial Receive/Transmit
;*           RB1 = Power Factor Correction capacitor relay
;*                 (Switches in PF capacitor above 500VA load)
;*           RB2 = Error LED Output
;*                 (Error code when shutdown due to fault)
;*           RB3 = OverLoad LED Output
;*                 (Fast Blink = permissive overload)
;*                 (Constant   = Vout < 115V at max pulse width)
;*                 (Slow Blink = shutdown after 6 secs of overload)
;*           RB4 = PWM Change Status LED Output
;*                 (Lights when PW changing due to voltage error > 2)
;*           RB5 = Main driver bank Relay ON Output
;*                 (Controls main power relays for xfmrs)    
;*           RB6 = Phase 2 Output to driver transistors (ACTIVE LOW)
;*           RB7 = Phase 1 Output to driver transistors (ACTIVE LOW)
;*******************************************************************

        LIST    p=16C84       ;PIC16C84 is the target processor
        INCLUDE "P16C84.INC"  ;Include file with register defines

;Register Defines
Temp       equ    2F       ;temp storage during misc functions
ADCresult  equ    2E       ;stores ADC reading
ADCCtr     equ    2D       ;stores count for reading 8 bits from serial ADC
PulseWidth equ    2C       ;Width of var. part of pulse in 10uS increments
Timer      equ    2B       ;Used as a count-down timer
ErrorValue    equ   2A
ErrorTimerLo  equ   29
ErrorTimerHi  equ   28
LedBlinkTimer equ   27     ;Used for blinking LED during max. load    

;PORT A Defines
ADCCLK    equ    1
ADCDAT    equ    0
ADCCS     equ    2
BEEP      equ    3

;PORT B Defines
PHASE1    equ    7
PHASE2    equ    6
PWRRELAY  equ    5
LEDPWM    equ    4
LEDOVERLD equ    3
LEDERROR  equ    2
PFCRELAY  equ    1

Main
        movlw   b'00000001'   ;Port B all outputs except unused RB0
        tris    PORTB
        movlw   b'11000000'   ;All Outputs LOW except drivers OFF (high)
        movwf   PORTB

        movlw   b'00010001'   ;Port A all inputs except RA4 and RA0 (DATA)
        tris    PORTA
        movlw   b'00000000'   ;All Outputs LOW
        movwf   PORTA

        movlw   .0          ;Initialize Pulse Width to 0.5 Max. (Min)
        movwf   PulseWidth

        movlw   b'10000110'   ;Set timer 0 to overflow at 240Hz.  7200Hz in =
                              ;Internal clock, Divide by 128 prescaler
        bsf     STATUS,RP0    ;select Page 1
        movwf   OPTION_REG
        bcf     STATUS,RP0    ;select Page 0
        clrwdt

        movlw   .226          ;Initialize timer for 240Hz overflow
        movwf   TMR0

        bsf     PORTA,BEEP    ;Beep for 1 second
        movlw   .240          ;1 second delay using timer
        movwf   Timer
NextDly
        call    WaitForTmr
        decfsz  Timer,f
        goto    NextDly
        bcf     PORTA,BEEP

        bsf     PORTB,PHASE1   ;Turn Phases OFF
        bsf     PORTB,PHASE2
        bsf     PORTB,PWRRELAY ;Main Power Relay ON
        bcf     PORTB,PFCRELAY ;Power Factor Correction OFF
        
        ;Starting Value: Minimum pulse width
        movlw   .1
        movwf   PulseWidth

;** Inverter main loop: Generate 60Hz PWMed Sine Wave and check system
MainLoop
        ;Phase A half-cycle output
        ;Generate fixed width pulse of 1/240th sec.
        bcf     PORTB,PHASE1  ;Phase A ON (active low)

        ;During Phase A fixed delay, check output voltage and adjust
        ;Pulse Width Accordingly for the next cycle
        call    ReadADC
        call    AdjustPulseWidth

        call    WaitForTmr    ;Wait for 1/240th second to elapse

        ;Generate variable width pulse of 0 to 1/240th sec
        movfw   PulseWidth
        movwf   Timer
NextPhaseADly
        call    Delay10uS     ;Generate from 1 to 255 10uS delays
        decfsz  Timer,f
        goto    NextPhaseADly    

        bsf     PORTB,PHASE1  ;Phase A OFF
        call    WaitForTmr    ;Wait for rest of 1/240th sec period

        ;Phase B half-cycle output
        ;Generate fixed width pulse of 1/240th sec.
        bcf     PORTB,PHASE2  ;Phase B ON (active low)
        call    WaitForTmr    ;Wait for 1/240th second to elapse

        ;Generate variable width pulse of 0 to 1/240th sec
        movfw   PulseWidth
        movwf   Timer
NextPhaseBDly
        call    Delay10uS     ;Generate from 1 to 255 10uS delays
        decfsz  Timer,f
        goto    NextPhaseBDly    

        bsf     PORTB,PHASE2  ;Phase B OFF
        call    WaitForTmr    ;Wait for rest of 1/240th sec period

        goto    MainLoop

太麻煩了,我覺得用帶AD的單片機來設(shè)計更簡單,更重要是可以節(jié)省銀子.

dddddd