Code:
:
#CONFIG
;----- CONFIG1 Options --------------------------------------------------
__config _CONFIG1, _FOSC_INTOSC & _WDTE_OFF & _PWRTE_ON & _MCLRE_ON & _CP_OFF & _CPD_OFF & _BOREN_ON & _CLKOUTEN_OFF & _IESO_ON & _FCMEN_ON
;----- CONFIG2 Options --------------------------------------------------
__config _CONFIG2, _WRT_OFF & _PLLEN_ON & _STVREN_ON & _BORV_19 & _LVP_OFF
#ENDCONFIG
' ************************************************** ******************
' SYSTEM INITIALIZATION
' ************************************************** ******************
clear
'PORTA = %00000000
TRISA = %00001101 ' Make A0,A2,A3 inputs,A1,A4,A5 outputs
OSCCON = %11110000 'PLL ENABLED,8Mhz,FSOSC<2:0>
OSCTUNE = %00000000 ' Internal osc Adjustment
WHILE !OSCSTAT.3 ' Wait for stable OSC ...
WEND
INTCON = %00000000 'CLEAR GIE,PEIE,TMR0IE,INTE,RBIE,TMR0IF,INTF,RBIF
PIE1 = %00000000 'CLEAR ALL INTERRUPT ENABLE BITS
PIR1 = %00000000 'CLEAR ALL INTERRUPT FLAGS
PIE2 = %00000000 'CLEAR ALL INTERRUPT ENABLE BITS
PIR2 = %00000000 'CLEAR ALL INTERRUPT FLAGS
APFCON = %00000000 'ALL DEFAULTS
ANSELA = %00000000 'Select all digital
CPSCON0 = %11001100 'ENABLE CAP SENSE,DAC/FVR,HIGH RANGE
WPUA = %00000000 'weak pull ups disabled
ADCON0 = %00000000 'CHS2:0,GO/DONE,ADOFF
ADCON1 = %11100000 'RIGHT JUSTIFIED,FOSC/64,VSS,VDD
SRCON0 = %00000000
SRCON1 = %00000000
CM1CON0 = %00000000 'CLEAR/DISABLE COMPARATOR
CM1CON1 = %00000000 'CLEAR/DISABLE COMPARATOR
CMOUT = %00000000 'DISABLE OUTPUT REGISTER
DACCON0 = %11001000 'ENABLE DAC,ENABLE POS REFERENCE,SOURCE IS FVR
DACCON1 = %00001000 'SET FOR 1/4 SCALE (8) ~ 1.024
FVRCON = %10001100 'ENABLE VOLTAGE REFERENCE,4,096
OPTION_REG = %00000000 'INTEDG,T0CS,T0SE,PSA,PS
T1CON = %11000001 'CAPOSC INPUT,PRESCALER 1/1,START TIMER 1
T1GCON = %00000000 'NO GATE CONTROL
T2CON = %00000000 'POSTSCALER 1/1,STOP,PRESCALER 1
TMR2 = 0 'CLEAR TMR2 MODULE REGISTER
PR2 = 255 'SET PERIOD ((((1 / 32,000,000)*4) * 1 PRESCALE) * (1+255 PR2)) = 31.25 KHZ.
CCP1CON = %00000000 'PLACE CCP1 INTO DISABLE MODE
CCPR1L = $00 'CLEAR CCP1 LOWER 8 BITS
CCPR1H = $00 'CLEAR CCP1 UPPER 2 BITS
PSTR1CON = %00000001'DEFAULT
FVRCON = 0 'Fixed voltage reference disabled
DEFINE OSC 32
initialise:
serout2 PORTA.5,16468,["Waiting for X200",13,10]
pause 1000
goto initialise
Bookmarks