Tanımlamalarda osc ( çalışma frekansı ) belirtilmemişse pic in genel
kullanılan 4 mhz değerini atar. Devrede kristal kullanılacaksa XT_OSC
tanımını yazın. Eğer kristalsiz devreyi çalıştırmak istiyorsanız,
XT_OSC yi silin yerine INTRC_OSC_NOCLKOUt yazın. 16F628 serisi mikro
işlemciler kristalsiz çalışmayı destekler.
Include "modedefs.bas"
'DEFINE LOADER_USED 1
define osc 4
'@ DEVICE pic16F628a, XT_OSC,PROTECT_OFF,WDT_OFF,PWRT_ON,PROTECT_OFF
@ DEVICE pic16F628a, INTRC_OSC_NOCLKOUt,MCLR_Off
'@ DEVICE pic16F628a, INTRC_OSC_NOCLKOUt
BAS:
LCDOUT $FE,1, " SINASI YAVUZ "
PAUSE 1000
'LCDOUT $FE,1
LCDOUT $FE,$C0,"WYATTS EKRANI TEST.."
PAUSE 1000
'LCDOUT $FE,1
LCDOUT $FE, $94,"YAZI GORUNUYORSA. "
PAUSE 1000
'LCDOUT $FE,1
LCDOUT $FE, $D4,"SORUN YOKTUR........"
PAUSE 1000
LCDOUT $FE, 1
PAUSE 1000
LCDOUT $FE,1, "MIKROISLEMCI CALISMA"
PAUSE 1000
LCDOUT $FE,$C0,"LARI DEVAM EDIYOR "
PAUSE 1000
LCDOUT $FE, $94,"YAZAN SINASI YAVUZ "
PAUSE 1000
LCDOUT $FE, 1
PAUSE 1000
GOTO BAS
Return
Pic Basic Pro MCS kurulumu