AVR'den PIC'e

[kafa1500]

Selamlar, nette dolaşırken aşağıdaki kodları buldum. Devrede nokia 3310 lcdsi kullanılmış. Yanlış anlamadıysam kodlar avr tipi bir işlemci için yazılmış. Acaba bunu pic'e göre (örneğin F628 veya F84) nasıl uyarlayabilirim?

$Device= m128				' used device
$Stack = 32                	' stack size
$Clock = 10
$GLCD Nokia3310, SCLK=PORTA.0, SDIN=PORTA.1, DC=PORTA.2, SCE=PORTA.3
$Def RES=PORTA.4
$LeadChar=" ", Format(3,0)

Dim s As String*15
Dim ss As String*15
Dim n As Byte, m As Byte
Dim x As Byte, y As Byte
Dim Clown As Flash Byte
Dim F2HD As Flash Byte
Dim Sclk1616HD As Flash Byte

Set DDRA.4: Nop 3: Set RES

GLcdInit
ImgSet(0, 0), Clown
FontSet F2HD

Do
	For n=0 To 255
		GLcd(60, 0), n
		ImgSet(68, 2, m), Sclk1616HD
		Incr m
		If m>7 Then m=0
		WaitMs 250
		x=n mod 20
		If x=0 Then
			Inverse(0)
		ElseIf x=10 Then
			Inverse(1)
		End If
	Next
Loop

$Include "Sclk1616HD.bas"
$Include "Clown.bas"
$Include "F2HD.bas"

[Cetinal]

evet bunlar bascomla derlenmiş ve atmega128 içindir
komutların benzeri zaten pic basicte vardır tek sorun olacak olan şey 3310 için library bulmak o da vardır mutlaka hazırı

[teknikelektronikci]

bence bu program proton ile yazilmis .yoksa bu kadar benziormu bu proton ile bascom?

[Cetinal]

zaten ikiside basic temelli bazı özel fpnksiyonlar için olan kodlar farklıdır ama gerisi aynıdır