Розмір відео: 1280 X 720853 X 480640 X 360
Показувати елементи керування програвачем
Автоматичне відтворення
Автоповтор
; free sample code! (copy and paste) LIST P=PIC16F684 include P16f684.inc __CONFIG _CP_OFF & _WDT_OFF & _BOD_OFF & _PWRTE_OFF & _INTRC_OSC_NOCLKOUT & _CPD_OFF org 0x00reset: goto start org 0x04start: bcf STATUS, RP0 ;Bank 0 bcf STATUS, RP1 clrf PORTC ;Clear PORTC bsf STATUS, RP0 clrf TRISC ;PORTC is OUTPUT bcf STATUS, RP0loop: bsf PORTC,0X05 call delay bcf PORTC,0X05 call delay goto loop delay: movlw 0xFF movwf 0x51CONT1: movlw 0xFF movwf 0x52CONT2: decfsz 0x52,f goto CONT2 decfsz 0x51,f goto CONT1 return end
Note to self to read: jetholt.com/micro/a-guide-to-pic-paging/ on page switching.
; free sample code! (copy and paste)
LIST P=PIC16F684
include P16f684.inc
__CONFIG _CP_OFF & _WDT_OFF & _BOD_OFF & _PWRTE_OFF & _INTRC_OSC_NOCLKOUT & _CPD_OFF
org 0x00
reset:
goto start
org 0x04
start: bcf STATUS, RP0 ;Bank 0
bcf STATUS, RP1
clrf PORTC ;Clear PORTC
bsf STATUS, RP0
clrf TRISC ;PORTC is OUTPUT
bcf STATUS, RP0
loop:
bsf PORTC,0X05
call delay
bcf PORTC,0X05
call delay
goto loop
delay:
movlw 0xFF
movwf 0x51
CONT1: movlw 0xFF
movwf 0x52
CONT2: decfsz 0x52,f
goto CONT2
decfsz 0x51,f
goto CONT1
return
end
Note to self to read: jetholt.com/micro/a-guide-to-pic-paging/ on page switching.