PIR1 = %00000000 PIE1 = %00000000 VRCON = %00000000 'ÐÅÃÈÑÒÎÐ ÂÛÁÎÐÀ ÈÑÒÎ×ÍÈÊÀ ÎÏÎÐÍÎÃÎ ÍÀÏÐßÆÅÍÈß INTCON = %00000000 CMCON = %00100101 'ðàáîòà âûõîäíûìè ïîðòàìè ÷åèåç C1OUT AND C2OUT TRISA = %11111111 TRISB = %00000000 PORTA = %00000000 PORTB = %00000000 A VAR BIT B VAR WORD A=0 B=9300 main: IF PORTA.0=0 THEN B=B+1 IF B>=9300 THEN B=B-1 ENDIF ENDIF IF PORTA.3=0 THEN B=B-1 IF B=1100 THEN B=B+1 ENDIF ENDIF If CMCON.7 = 1 AND A=0 Then PAUSEUS B PORTB.0=1 IF B<9300 AND 8300 THEN PORTB.1=1 PORTB.2=0 PORTB.3=0 PORTB.4=0 PORTB.5=0 PORTB.6=0 PORTB.7=0 ENDIF IF B<8300 AND B>7100 THEN PORTB.1=1 PORTB.2=1 PORTB.3=0 PORTB.4=0 PORTB.5=0 PORTB.6=0 PORTB.7=0 ENDIF IF B<7100 AND B>5900 THEN PORTB.1=1 PORTB.2=1 PORTB.3=1 PORTB.4=0 PORTB.5=0 PORTB.6=0 PORTB.7=0 ENDIF IF B<5900 AND B>4700 THEN PORTB.1=1 PORTB.2=1 PORTB.3=1 PORTB.4=1 PORTB.5=0 PORTB.6=0 PORTB.7=0 ENDIF IF B<4700 AND B>3500 THEN PORTB.1=1 PORTB.2=1 PORTB.3=1 PORTB.4=1 PORTB.5=1 PORTB.6=0 PORTB.7=0 ENDIF IF B<3500 AND B>2300 THEN PORTB.1=1 PORTB.2=1 PORTB.3=1 PORTB.4=1 PORTB.5=1 PORTB.6=1 PORTB.7=0 ENDIF IF B<2300 AND B>1100 THEN PORTB.1=1 PORTB.2=1 PORTB.3=1 PORTB.4=1 PORTB.5=1 PORTB.6=1 PORTB.7=1 ENDIF PAUSEUS 100 PORTB.0=0 A=1 EndIf IF CMCON.7=0 AND A=1 THEN PAUSEUS B PORTB.0=1 IF B<9300 AND 8300 THEN PORTB.1=1 PORTB.2=0 PORTB.3=0 PORTB.4=0 PORTB.5=0 PORTB.6=0 PORTB.7=0 ENDIF IF B<8300 AND B>7100 THEN PORTB.1=1 PORTB.2=1 PORTB.3=0 PORTB.4=0 PORTB.5=0 PORTB.6=0 PORTB.7=0 ENDIF IF B<7100 AND B>5900 THEN PORTB.1=1 PORTB.2=1 PORTB.3=1 PORTB.4=0 PORTB.5=0 PORTB.6=0 PORTB.7=0 ENDIF IF B<5900 AND B>4700 THEN PORTB.1=1 PORTB.2=1 PORTB.3=1 PORTB.4=1 PORTB.5=0 PORTB.6=0 PORTB.7=0 ENDIF IF B<4700 AND B>3500 THEN PORTB.1=1 PORTB.2=1 PORTB.3=1 PORTB.4=1 PORTB.5=1 PORTB.6=0 PORTB.7=0 ENDIF IF B<3500 AND B>2300 THEN PORTB.1=1 PORTB.2=1 PORTB.3=1 PORTB.4=1 PORTB.5=1 PORTB.6=1 PORTB.7=0 ENDIF IF B<2300 AND B>1100 THEN PORTB.1=1 PORTB.2=1 PORTB.3=1 PORTB.4=1 PORTB.5=1 PORTB.6=1 PORTB.7=1 ENDIF PAUSEUS 100 PORTB.0=0 A=0 ENDIF GoTo main: