Имам проблем. Един дребен пик 12F629 не ще да ме слуша.
Програмата ми започва така:
 | | |
| Код: movlw 80h banksel OPTION_REG movwf OPTION_REG ; bank1 banksel WPU clrf WPU ;21 ;??? movlw 37h ; 0011 0111 movwf WPU banksel TRISIO clrf TRISIO ; bank1 ;GP1 - input, the rest output. GP3 - always input bsf TRISIO, GP1 ; bank1 | |
| | |
T.e. разрешил съм pul-up на всички GPIO (GP3 няма такава опция). GP1 - вход. Всички останали - изходи. На теория GP1 трябва да се чете 1, а се чете ту като 1, ту като 0.
Някакви идеи?
На GP0 има зелен светодиод, а на GP2 е червен ... или обратното (диода е 1, двуцветен). Св. диода трябва да мига червено или зелено в зависимост дали GP1 е свързан към маса, но става цветомузика - всички цветове се редуват
пълен код на програмата (прекъсванията временно са изключени):
| | |
| Код: list p=12F629 #include p12F629.inc #DEFINE DISABLE_INT ;__config _XT_OSC & _PWRTE_ON & _WDT_OFF & _CP_OFF & _CPD_OFF & _BODEN_OFF & _MCLRE_OFF __config H'1F81' __idlocs 0x0001 cblock 0x20 dtime smalld vsd pdelay status_temp W_temp fsr_temp color endc org H'0000' goto main org H'0004' goto handle_interrupts org H'0005' handle_interrupts ;push: movwf W_temp ;save W register swapf STATUS, W ;movf STATUS,W movwf status_temp ; (1tcy) banksel FSR movf FSR,W movwf fsr_temp bcf STATUS, RP0 ; select bank 0 banksel INTCON btfsc INTCON, GPIF goto gp_int goto end_interrupts ;a port state changed gp_int banksel GPIO movlw GP0 btfsc GPIO, GP1 movlw GP2 movwf color ;BANKSEL PIR1 ; (2tcy) select correct SFR bank ;btfss INTCON,GPIF ; (2tcy) did a Timer1 overflow occur? goto end_interrupts ; (2tcy) no, check another interrupt source end_interrupts ;POP: banksel FSR MOVF fsr_temp,W MOVWF FSR SWAPF status_temp,W MOVWF STATUS SWAPF W_temp, F SWAPF W_temp,W retfie ;delay time = 4*(cntr-1)+10 delay bcf STATUS,RP0 ;movlw 255 movwf dtime delay_loop movlw 0FFh movwf smalld small_loop movlw 0FFh movwf vsd vsl decfsz vsd,f goto vsl decfsz smalld,f goto small_loop bcf STATUS,RP0 decfsz dtime,f goto delay_loop return main movlw 80h banksel OPTION_REG movwf OPTION_REG ; bank1 banksel WPU clrf WPU ;21 ;??? movlw 37h movwf WPU banksel TRISIO clrf TRISIO ; bank1 ;GP1 - input, the rest output. GP3 - always input bsf TRISIO, GP1 ; bank1 IFNDEF __12F629 clrf ANSEL, 0 ;bank 1 ENDIF IFNDEF DISABLE_INT banksel IOC ;Enable interrupt on change for port 1: 00010 bsf IOC, GP1 ; bank 1 ENDIF banksel GPIO ;movlw 1 movlw 0 bcf STATUS, RP0 ; 3,5 movwf GPIO ;bank 0 banksel CMCON movlw 7 movwf CMCON ; bank 0 IFNDEF DISABLE_INT banksel INTCON clrf INTCON ; 11 ;volatile bsf INTCON, GIE bsf INTCON, GPIE ENDIF banksel pdelay movlw 2 movwf pdelay bcf STATUS, RP0 ; 3,5 movlw 04h ;; 0000 0100 movwf color ;movlw -2 ;movlw FE ;bsf STATUS,RP0 ; 3,5 ;movwf GPIO main_loop banksel GPIO movlw 04h btfsc GPIO, GP1 movlw 01h movwf color bcf STATUS, RP0 ; 3,5 movf color,W iorwf GPIO ;movlw 1 movf pdelay,w call delay bcf STATUS, RP0 ; 3,5 ;clear bit in color comf color,W andwf GPIO,F ;movlw 1 movf pdelay,w call delay goto main_loop end | |
| | |
