;*************************************************************** title "PIC Sample code: PIC16F628 program" subtitle "Version 1.0 (c) Jay.slovak" ;Designed for 16F628 @4Mhz ;*************************************************************** list p=16F628 #include __CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _BODEN_OFF &_INTRC_OSC_NOCLKOUT & _MCLRE_ON & _LVP_OFF ERRORLEVEL -302 ;*************************************************************** z1 equ 2Ah z2 equ 2Bh z3 equ 2Ch z4 equ 2Dh ;*************************************************************** org 0x0000 goto INIT NOP NOP NOP NOP org 0x0005 INIT MOVLW H'07' MOVWF CMCON CLRF PORTA CLRF PORTB BSF STATUS,RP0 ;Select Bank 1 CLRF TRISA ;Port A is output CLRF TRISB ;Port B is output BCF STATUS,RP0 ;Select Bank 0 Start MOVLW 0xFF MOVWF PORTA MOVWF PORTB CALL Delay CLRF PORTA CLRF PORTB CALL Delay GOTO Start ;*************************************************************** ;*************************************************************** subtitle "Delay subprogram" Delay movlw D'3' movwf z3 movlw D'137' movwf z2 decfsz z1,f goto $-1 decfsz z2,f goto $-3 decfsz z3,f goto $-5 return END