Merhaba,

Öncelik sitenin amacı konusunda açıklık getirmeliyim. Siteyi inceleyen çoğu arkadaş içeriği beğendi, bazı arkadaşlar ise açıklamaların daha detaylı olmasını istiyorlar. Bu sitede benim amacım: mpasm, asm30, C30, keil , arm7 assembly veya C dil ve programlarını detaylıca anlatmak olmadığı için, isteyen arkadaş devam etmek istediği program ve/veya dil(leri) araştırıp öğrenmenlidir. Fakat tavsiye isteyen arkadaşlara tabii ki elimden geldiğince yardımcı olamaya çalışacağım. Elektronik donanım tasarımı olsun, bilgisayar veya programlama dilleri olsun hepsinin öğrenmek için tek bir ortak noktası vardır. İngilizce, bu dil mesleğimizde ilerleyebilmek için şarttır. Şimdi uygulamamıza geçelim.

Bu uygulamızda LPC2148′in uart1′inden 19200bps ile data gonderimi yapacağız. Bunun için bize gerekenler.

* Keil C compiler

* LPC2148 development board

* ISP programlayıcı (in circuit serial programmer)

* Hiper terminal veya rs232′den alınan verilerimizi gözlemliyebileceğimiz başka bir program
Ben bu örnekte Ersin Keçiş adlı bir arkadaşımızın geliştirdiği rs232 tester adlı programı kullanacağım.
http://ersinkecis.com/RS232_Tester.zip (Böyle faydalı bir program hazırladığı için Ersin Keçiş’e teşekkürler)

Program resmi ve programın kendisi aşağıdadır.

/*****************************************************************************/
#include <LPC214x.h>
//#include "port_pinleri.h"

void  sistem_setup(void);
void  DLY_MS(long ms);
void  uart1_setup(void);
void  u1_karakter_gonder(char ch);
void  u1_string_gonder(const char *ch);

const char kutay[]={"UART1 ile, 19200bps'de data gonderiyoruz\r\n"};

int
main(void){
   sistem_setup();
   SCS = 0x03;			// fast I/O moduna geelim
   uart1_setup();			// uart1,19200bps,1 stop bit, parity yok
   while (1){
      u1_string_gonder(&kutay[0]);	// uart1'den 19200bps'de diziyi gonder
      DLY_MS(1000);
      u1_string_gonder("www.uicroarm.com");
      DLY_MS(1000);
   }
}

// Uart1 baudrate = PCLK(VPB Clock) / 16*(16*U1DLM+U1DLL) ile bulunur
// Yukaridaki formul bazi durumlarda tam olarak baudrate ayarini yapamiyabilir
// yani sonu kesirli ikabilir , o zaman kesirli bolme islemlerini yapabilen
// U1FDR registeride kullanilmalidir. (U1 fractional divider register)
void
uart1_setup(void){
   PINSEL0|=0x50000;       // RxD1 ve TxD1 pinleri enable
   U1LCR=0x83;    			// 8 bits, Parity yok, 1 Stop bit
   U1DLL = 97;             // 19200 Baud Rate ,
   U1DLM = 0;
   U1LCR = 0x03;           // baudrate ayarlandi
}

void
u1_karakter_gonder (char ch){    	// Karakteri seri porta yaz
   while (!(U1LSR & 0x20));	   // bus idle oluncaya kadar bekle
   U1THR=ch;			     // karakter bus'a
}

void
u1_string_gonder(const char *ch){	   	// string yazilacak
   while(*ch)					   		//
      u1_karakter_gonder(*ch++);
}

void
sistem_setup(void){
// Processor clock=5*12Mhz=60Hz
   PLL0CFG=0x24;	 	// MSEL = 4(multiplier =5),PSEL(PLL divider) = 2
// PLLCON ve PLLCFG registerleri ierigi degistirildiginde , asagidaki
// proses uygulanir, 1) PLL0FEED=0xAA ve 2)PLL0FEED=0x55
   PLL0FEED=0xAA;	 	// Feed process
   PLL0FEED=0x55;

   PLL0CON=0x1;  		// PLL'i enable	et
   PLL0FEED=0xAA;		// Feed process
   PLL0FEED=0x55;
   while(!(PLL0STAT & 0x400)) ;   // PLL kitleninceye kadar bekle (5*12Mhz=60Mhz'e kitlenir)

   PLL0CON=0x3;	 	// PLL'i clock kaynagi gibi bagla
   PLL0FEED=0xAA;	 	// Feed process
   PLL0FEED=0x55;

   MAMCR=0x2;	  		// MAM full Enable
   MAMTIM=0x4;			// MAM fetch cycles = 4CCLK

   VPBDIV=0x02;	 	// PCLK = 30 MHz (Pclk=Peripheral Clock)
}

// CCLK=60MHz iken 1ms
void
DLY_MS(long ms){
   long i;
   unsigned int j;
   for (i = 0; i < ms; i++ )
      for (j = 0; j < 7500; j++ );
}

/*****************************************************************************/

Bu program ile elde ettiğimiz sonuç:

Merhaba,

Bu yazımızda microchip asm30 ile uart haberleşmesini gerçekleştireceğiz. Bu bölümde port değiştirme (led veya role sürme) gibi bir uygulamadan başlamak istemedim. Microchip asm30 derleyicisini ve dsPIC,PIC24 serinin registerlerini C optimizasyonu için özel olarak ayarlamış. C’deki while, do-while, işlemlerini yapan asm30 komutları ve regsiterleri var. Küçük bir örnek olarak asm30 “repeat #k” komutu kendisinden sonraki komutu k+1 kez çalıştırır. Bu yapı C’deki while{} yapısına benzer.

Aslında Microchip projelerimde C30 kullanıyorum ama şimdiye kadar intenette de doğru düzgün asm30 kod görmediğim için referans olması açısından bir kaç uygulama eklemek isteyorum. Açıkçası Microchip’in PIC24 ve dsPIC serisini beğendim.PIC24 serisinde özellikle kullanmak istediğin modulun port çıkışlarını seçmek için registerler koymaları çok iyi, bu pcb çizenlere de kolaylık sağlar. dsPIC’te ise 40bitlik çarpma işlemlerini gerçekleştirebilen bir donanıma sahip.

Burada yazdığım kodları yukarıda resmini verdiğim dsPIC30F4011 geliştirme boardunda denedim. Geliştirme board’unuda 2006′da ben hazırlamıştım. Resim üzerinde yine daha önce yaptığım nokia lcd üzerinde animasyon ve kayan yazı uygulamasından küçük örnek var. (LQFP kılıf uc olan board LPC2148 board’u)

/*********************************************************/
Aykut ULUSAN, Elektronik Mühendisi, IZMIR

Aşağıda 38400bps ile 0,5 saniyede bir KUTAY table'ı uart1'den gönderilir.

/*********************************************************/

.equ __30F3010, 1				             ; kullanılacak işlemci
.include "p30fxxxx.inc"
config	__FOSC, CSW_FSCM_OFF &XT_PLL8    ; 10Mhz*8 =80Mhz
config	__FWDT, WDT_OFF				         ;  WDT off
config	__FBORPOR, MCLR_EN &PBOR_OFF &PWRT_16	; Brown-out off, MCLR enable, Power_up timer 16msn
config 	__FGS, CODE_PROT_OFF			       ; Kod koruması off

.equiv	flag_bit, 0					; zamanın dolduğunu bildirir
.equiv	FCY, 20000000				    ; Osc 80Mhz / FCY=20Mhz =20MIPS
.equiv	BAUDRATE, 38400				  ; RS232 baudrate 38400

.macro 	MOVFF	F1,F2				   ; F1, F2'ye atılır
mov	\F1,wreg
mov	wreg,\F2
.endm

.macro	MOVLF	L,F					; Literal file'a atılır
mov	\L,w0
mov	w0,\F
.endm

;=============================================================================================
; global atamalar yapılır, C30 içinde kullanacağımız tüm altprogramlar global olmalı
;=============================================================================================

.global	__reset					; Device resetten sonra hemen  __reset etiketini gördüğü yere gider, linker içinde tanımlanmıştır.
.global	__T1Interrupt			      ; Artık asm içinde  interrupt,

.section 	.const, "r"  				; PSV içinde Kutay adlı bir table tutalım, r=read only data
KUTAY:
.asciz	"asm30 ile uart1, 38400bps by EEMKUTAY"	; asciz, zero ile sonlanır

.text							; program buradan başlar, code yazma başlangıcı

__T1Interrupt:						; işlemci 0,5 sn'de bir buraya gelir
bclr  	IFS0, #T1IF				; flag'i sil
bset	W1, #flag_bit				; RS232 flag biti set et
retfie						    ; interrupt'an geri dön

__reset:
mov	#__SP_init, W15				; __SP_init , işlemciye göre linker içinde tanımlı, W15 stack pointer
MOVLF	#__SPLIM_init,SPLIM			; Stack Pointer limiti gir, linker içinde tanımlı
nop						        ; SPLIM ayarlanması için bir nop gerekli
; Şimdi working registerleri clear edeceğiz
clr	W0					      ; W0
mov	W0, W14 				; W14, adres pointer  oldu  ve  W14=0 adresini gösterir(adres pointer) yani W0'ın adresini
repeat	#12                                        ; next komut 13 kez repeat
mov	W0, [++W14]				; W1 - W13'ü clear yapar
clr	W14					; Counter'i silelim, W14=0

rcall	PORTLARI_HAZIRLA			; portları hazırla
rcall	INIT_TIMER1				; timer1'i  0,5 saniye için ayarla
rcall	INIT_UART1				; uart1 hazırlanır
bclr	W1, #flag_bit				; 0,5sn dolmadan table'ı gönderme
; table okuma ve yazma komutlarıyla , string okuyalım
mov	#tblpage(KUTAY),w0			;Kutay table'ın  page’ını w0’a at
mov	w0, _TBLPAG

main_loop:
btss	W1, #flag_bit				; 0,5 sn doluncaya kadar bekle
bra	main_loop				; zaman dolmamış
bclr	W1, #flag_bit				; zaman dolmuş flag'i clear et
mov	#tbloffset(KUTAY), W2 ; w2'yi pointer olarak kullanacağız (w2, KUTAY table'ın adresini tutuyor)
clr		W0				; w0=0 yap çünkü byte yükleyeceğiz (bit15-8 arası 0 olsun)

wrt_loop:
mov.b	[W2++], W0				; harfi W0'a yükle (byte modunda Program counter 1 artar)
cp0	W0					     ; karakter 0 ise string sonu
bra	z, main_loop				   ; Z=1 ise main loop'a git
mov	W0, U1TXREG				; harfi buffer'a at
xmt_loop:
btss	U1STA, #TRMT				; gönderildi mi?( gönderilince 1 olur)
bra	$-2					       ; Gönderilinceye kadar bekle
bra	wrt_loop				     ; next harfi gönder

PORTLARI_HAZIRLA:
clr	LATF					; portu temizle
mov	#0xFF,w0
mov	w0,TRISF
return

; Instruction cycle = 20MIPS
; ds30f3010 üzerinde TMR1 A tipi timerdır. (50ns x prescale x PR1 = zaman)
; zaman =0,5sn için, prescale=1/256  (0,5sn= 500ms=500 000us)
; 50nsx256=12580ns=12,8us
; PR1 = 500 000us / 12,8us = 39765=0x9B41
INIT_TIMER1:
clr	TMR1
MOVLF	#0x9B41,PR1				; PR1'e yükle
MOVLF	#0x8030, T1CON				; 1:256 prescale ve timer1 on
bclr	IFS0, #T1IF				; TMR1 interrupt flag clear
bset	IEC0, #T1IE				; TMR1 interrupt set
return

INIT_UART1:
clr 	U1MODE					; Uart mode clear et, bit ile ayarlayacağız
clr 	U1STA					; status biti clear et,  bit ile ayarlayacağız
;	bset	U1MODE, #ALTIO				; U1ATX/U1ARX pinlerini kullan
bset 	U1MODE, #UARTEN 			; Enable UART
mov 	#(((FCY/BAUDRATE) / 16) - 1), w0
mov 	w0, U1BRG				; BRG ayarla
return

.end

/*********************************************************/