Code: Select all
begin
TRISIO:=%00010000;
GPIO:=0;
while true do
begin
GPIO:=%11101100;
Delay_ms(500);
GPIO:=%00000000;
Delay_ms(500);
end;
end.
тоже но на асме
Code: Select all
_main:
;pic12f629.mpas,2 :: begin
;pic12f629.mpas,3 :: TRISIO:=%00010000;
MOVLW 16
MOVWF TRISIO+0
;pic12f629.mpas,4 :: GPIO:=0;
CLRF GPIO+0
;pic12f629.mpas,5 :: while true do
L__main2:
;pic12f629.mpas,7 :: GPIO:=%11101100;
MOVLW 236
MOVWF GPIO+0
;pic12f629.mpas,8 :: Delay_ms(500);
MOVLW 3
MOVWF R11+0
MOVLW 138
MOVWF R12+0
MOVLW 85
MOVWF R13+0
L__main6:
DECFSZ R13+0, 1
GOTO L__main6
DECFSZ R12+0, 1
GOTO L__main6
DECFSZ R11+0, 1
GOTO L__main6
NOP
NOP
;pic12f629.mpas,9 :: GPIO:=%00000000;
CLRF GPIO+0
;pic12f629.mpas,10 :: Delay_ms(500);
MOVLW 3
MOVWF R11+0
MOVLW 138
MOVWF R12+0
MOVLW 85
MOVWF R13+0
L__main7:
DECFSZ R13+0, 1
GOTO L__main7
DECFSZ R12+0, 1
GOTO L__main7
DECFSZ R11+0, 1
GOTO L__main7
NOP
NOP
;pic12f629.mpas,11 :: end;
GOTO L__main2
;pic12f629.mpas,12 :: end.
L_end_main:
GOTO $+0
; end of _main
проблема в том что нормально работают только 2 вывода GP2 и GP5
(в протеусе вообще не работает) (в битах ставлю внутренний кварц и 2 ноги в I/O) в чем может быть проблема ? может отключить аналоговый компаратор иль подобную ерунду?
даташит.....
http://www.google.by/url?sa=t&rct=j&q=p ... GOpXZ0fFOw