Microprosesor AVR Studio 4 - Contoh Program 2

PROGRAM MENYALAKAN LED DARI LSB KE MSB HINGGA SEMUA LED MENYALA, DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

ser r16                ; set register 16 jadi logika 1 semua
out porta, r16
clc                ; carry di set jadi 0

ldi r17,0x01
ldi r18,0x09            ; untuk perulangan


ulangi:
    cp r18, r17        ; bandingkan r18 dengan r17
    brlo mulai        ; juka r18 < r17, maka jump ke mulai (di set kondisi awal)

    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    lsl r16            ; geser logika 0 ke lsb, dan msb masuk ke carry

    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

PROGRAM MENYALAKAN LED DARI MSB KE LSB HINGGA SEMUA LED MENYALA, DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

out porta, r16
clc                ; carry di set jadi 0

ldi r17,0x01
ldi r18,0x09            ; untuk perulangan
ser r16                ; set register 16 jadi logika 1 semua
out porta, r16
clc                ; carry di set jadi 0

ldi r17,0x01
ldi r18,0x09            ; untuk perulangan


ulangi:
    cp r18, r17        ; bandingkan r18 dengan r17
    brlo mulai        ; juka r18 < r17, maka jump ke mulai (di set kondisi awal)

    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    lsr r16            ; geser logika 0 ke lsb, dan msb masuk ke carry

    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

PROGRAM MEMATIKAN LED DARI LSB DAN BERPINDAH HINGGA KE MSB, DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

ldi r16, 0x00            ; set register 16 jadi logika 0 semua
out porta, r16            ; menyalin r16 kle porta (berarti semua porta dalam keadanaan menyala)
sec                ; set carry menjadi berlogika 1
ulangi:

    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    rol r16            ; rotasi logika nilai carry ke lsb, dan msb masuk ke carry
    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

PROGRAM MEMATIKAN LED DARI MSB DAN BERPINDAH KE LSB, DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

ldi r16, 0x00            ; set register 16 jadi logika 0 semua
out porta, r16            ; menyalin r16 kle porta (berarti semua porta dalam keadanaan menyala)
sec                ; set carry menjadi berlogika 1
ulangi:

    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    roR r16            ; rotasi logika nilai carry ke lsb, dan msb masuk ke carry
    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

PROGRAM MENYALAKAN LED DARI LSB DAN BERPINDAH HINGGA KE MSB DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

ldi r16, 0xFF            ; set register 16 jadi logika 1 semua
out porta, r16            ; menyalin r16 kle porta (berarti semua porta dalam keadanaan menyala)
clc                ; set carry menjadi berlogika 1

ulangi:
    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    roL r16            ; rotasi logika nilai carry ke lsb, dan msb masuk ke carry
    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

PROGRAM MENYALAKAN LED DARI MSB DAN BERPINDAH HINGGA KE LSB DAN SETERUSNYA

.include"8535def.inc"
.org 0x0000
rjmp mulai

mulai:

ldi r16, 0xFF            ; set register 16 jadi logika 1 semua
out porta, r16            ; menyalin r16 kle porta (berarti semua porta dalam keadanaan menyala)
clc                ; set carry menjadi berlogika 1
ulangi:

    out porta, r16        ; salin r16 ke port a (nilai r16 yang menjadikan led menyala)
    roR r16            ; rotasi logika nilai carry ke lsb, dan msb masuk ke carry
    dec r18            ; perulangan berkurang 1

rjmp ulangi            ; jump ke ulangi

akhir:
rjmp akhir

Microprosesor AVR Studio 4 - Contoh Program

.include"8535def.inc"
.org 0x0000
rjmp pertama

pertama:
ldi r16,0xff
ldi r17,0x00
out portb,r17
out portc,r16
out portd,r17

in r18,porta
cp r18,r16
breq set1

cp r18,r17
breq set2

set3:
in r19,porta
cp r19,r16
breq set1
cp r19, r17
breq set2
in r18,porta
out portd, r18
rjmp set3

set1:
out portd,r17
out portb,r18
in r18,porta
cp r18,r16
brne pertama
rjmp set1

set2:
out portd,r17
out portc,r18
in r18,porta
cp r18,r17
brne pertama

rjmp set2

akhir:
rjmp akhir

Penjelasan.

1. input dengan melihat keadaan PortA, apakah keadaannya high semua, low semua, atau tidak kedua duanya.
2. jika PortA dalam keadaan High semua, maka kondisi di PortA akan disalin ke PortB
3. jika PortA dalam keadaan Low semua, maka kondisi di PortA akan disalin ke PortC
4. jika keadaan pada no.2 dan no.3 tidak terpenuhi, maka kondisi di PortA akan disalin ke PortD

• karena PortB akan diberikan nilai PortA yang berlogika High, maka sebelumnya kondisi default untuk PortB adalah Low
• karena PortC akan diberikan nilai PortA yang berlogika Low, maka sebelumnya kondisi default untuk PortC adalah High
• untuk PortD, diberikan kondisi default Low.

Sarasvati - Story of Peter

Story of Peter


Sad eyed boy in his silly pants
Sometimes his there sometimes he hides
Pale fair skin and his tiny hands
Waving from distance in black and white


Nobody sees him when his around
But his beside me whenever im down
Run about and play around my silky dress
Now I could never forget his face





I don't know who you are
And I don't know where your from
Give me your hands
Lets find a light
Leave all this behind
And forget the world


So the silly peter disappear
Now his nowhere to be seen
His not those shades that I fear
And many things remind me of him


Cut and Paste


I hear voices at my back
Disturbing peace for my years sake
I need a rest to hear the air
Ive been deaf for you is it fair?


There is a girl with a million lust
She does things to get it fast
Shes only good in cut and paste
A silly girl who think shes the best


There is something in your mind
force my every single line
Should I dancing in your stage
Just like your cat in your cage


There is no light theres only dark
in your heart I see no art
im like a busker in the park
I sing I cry I play my part


Question


Stop the world from shouting
They're burning up my ears
Let me live a daydream
Those fantasies she feels
It's made of copper from the air
It's black charcoal that's golden fair
What am i suppose to feel?


I only see
And what i want, can not be
Does she always walk on bended knees
Yet soars up high
On happy seas


A silent question in my head
In hers a poetry openly read
She is not of being like mine
She does not seek what she can not find


Stop the world from shouting
They're burning up my ears
Let me live a daydream
Those fantasies she feels
It's made of copper from the air
It's black charcoal that's golden fair
What am i suppose to feel?


Fighting Club


We are happy family
We don't think to equally
Na na na na na na
Na na na na na na
Im the one who win the bread
Youre all eating from my plate




Im living in an orphanage
You're living in Cambridge
You adored me and adopted me
Now your divorcing me
Im the one who win the bread
You're all eating from my plate


I wont search the reason why…you blamed me… uuuh
I don't see why I should feel..an sympathy….uuuh
Don't send any flowers for me…cause im gloomy…uuuh
So this is the end of our journey…if theres any…uuuh


Bilur


Selendang bersulam sutra, biduri lembayung jingga
Saksi mati tuk bersaksi, gelimang pesona diri
Belia usia dulu, ruap cinta tlah menggebu
Samar kulihat dunia, tak sadar semua fana


Semerbak dupa iringi kumelangkah
Cungkupku hanya tanah
Bilur hati merambah
Dan akan datangkah bagiku kesempatan
Bila tak ada titian diri yang rupawan


Sekilas lihatlah mega, anugerah tiada tara
Ini tak adil untukku, halimun hitam merasuk
Ceracau getir ibunda, gemertak sengap hatinya
Firasat tak pernah salah, hanya kuberbuat ulah


Semerbak dupa iringi kumelangkah
Cungkupku hanya tanah
Bilur hati merambah
Dan akan datangkah bagiku kesempatan
Bila tak ada titian jalan yang rupawan


Oh I Never Know


I don't care, if you don't wanna know what it is
Cause the time just wont stop to understand
Im scared too scared to believe what I want
Im shy too shy to tell the truth


I want to know, your feeling to clear this mess
I do believe theres no word to explain your heart
Don't be scared don't get scared to believe what you want
Don't be shy don't be shy
To tell the truth


I wanna know what you feel when I am with you
Yes, my heart beat cant stop when I am with you
Im shy so shy yes shy so shy
You never let me know what I wanna hear
You never show me the love that I want from you
Im scared so scared yes scared so scared


Perjalanan


Dengan kereta malam kupulang sendiri
Mengikuti rasa rindu
Pada kampung halamanku
Pada ayah yang menunggu
Pada ibu yang selalu mengasihiku


Duduk dihadapanku seorang ibu
Dengan wajah sendu, sendu kelabu
Penuh rasa haru dia menatapku, penuh rasa haru dia menatapku
Seakan ingin memeluk diriku


Dia lalu bercerita tentang
Anak gadisnya yang telah tiada
Karena sakit dan tak terobati
Yang wajahnya mirip denganku, yang wajahnya mirip denganku