;*************************************************************** title "PIC Sample code: PIC16F88 program" subtitle "Version 1.1 (c) Jay.slovak" ;Designed for 16F88 @4Mhz ;*************************************************************** list p=16F88 #include __CONFIG _CONFIG1, _CP_OFF & _CCP1_RB0 & _DEBUG_OFF & _WRT_PROTECT_OFF & _CPD_OFF & _LVP_OFF & _BODEN_OFF & _MCLR_ON & _PWRTE_ON & _WDT_OFF & _INTRC_IO ERRORLEVEL -302 ;*************************************************************** z1 equ 20h z2 equ 21h z3 equ 22h z4 equ 23h ;*************************************************************** org 0x0000 goto INIT NOP NOP NOP NOP org 0x0005 INIT CLRF PORTA CLRF PORTB BSF STATUS,RP0 ;Select Bank 1 CLRF ANSEL ;All pins are Digital BSF OSCCON,6 ;Set oscilator to 4Mhz BSF OSCCON,5 MOVLW H'07' MOVWF CMCON ;Turn off comparators 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