miksi ei voi toimia PIC 12F675?

[elcielo]

Käytän CCS-C-kääntäjän.
plz auttaa we.

# include <12f675.h>
# sulakkeet INTRC_IO, PUT, NOWDT, NOPROTECT, NOMCLR, BROWNOUT
# käytön viive (kello = 4000000)
/ / define IO nastat
# bit VS = 0x05.5
# bit VA = 0x05.4
# bit gpio3 = 0x05.3
# bit gpio2 = 0x05.2
# bit gpio1 = 0x05.1
# bit gpio0 = 0x05.0
# käytä fast_io ()

# tavu ADCON0 = 0x1F
# tavu Ansel = 0x9F
# tavu CMCON = 0x19

# rom 0x3ff = (0x3470) / / input kalibrointi-koodi

main ()
(

ADCON0 = 0x00; / / setup_adc_ports (NO_ANALOG); ADC pois
Ansel = 0x00; / / GPIO nastaa 0,1,2 ja 4 asetetaan kaikki digitaaliset
CMCON = 0x07; / / setup_comparator (NC_NC_NC_NC); Comparators pois

/ / setup I / O
set_tris_a (0b001111), / / GP0, 1,2,3 tulo, 4,5 lähtö
VS = 0; VA = 0, / / poista LED

while (true)
(
if ((gpio0 & gpio1 & gpio2) == 1)
(
delay_ms (1500);
VA = 1;
delay_ms (700);
VS = 1;
)

if ((gpio0 | gpio1 | gpio2) == 0)
(
VA = 0;
delay_ms (10);
VS = 0;
)
)
)

 

[btbass]

Kokeile käsittelyssä koko sataman

if ((GPIO & 0x07) == 0x07)
(
)
if (! (GPIO & 0x07))
(
)