Archive for Februari 2011

CARA KERJA HANDPHONE


Telepon seluler atau yang lebih dikenal dengan ponsel dari duIu sampai sekarang telah mengalami perubahan baik teknologinya yang dulu hanya dapat untuk berbicara sekarang sudah dapat dipakai untuk bertukar data atau bahkan untuk memotret, sedangkan dari bentuk fisiknya mulai dari berat dan besar hingga yang seukuran korek api. Dari semua perkembangan tersebut tetap saja dipertahankan teknologi dasarnya yaitu bagaimana ponsel menerima sinyal dan mengirim sinyal. Lantas bagaimana cara kerja ponsel dengan segala aplikasi yang diusungnya tersebut. Beberapa hal seputar ponsel antara lain sebagai berikut :
>>Teknologi seluler
>> Protokol komunikasi
>> Aplikasi handphone
>> Fitur handphone


TEKNOLOGI SELULER
Teknologi seluler kalau dirunut merupakan gabungan teknologi dari beberapa penemuan teknologi-teknologi sebelumnya. Antara lain dari penemuan telepon oleh Alexander Graham Bell pada tahun 1876, sedangkan radio oleh Nikolai Tesla (1880) yang kemudian pada tahun 1894 secara formal dikenalkan orang Italia bernama Guglielmo Marconi.

Kenapa Disebut Telepon Seluler?
Ponsel bekerja dengan mengandalkan sinyal yang dipancarkan dari sebuah pemancar dengan frekuensi tertentu. Untuk membagi-bagi daerah agar terdapat frekuensi yang merata pada daerah tersebut maka sebuah daerah atau kota dibagi menjadi seperti sebuah irisan yang digambarkan sebagai irisan berbentuk hexagonal atau disebut dengan sel (cell). Masing-masing sel tersebut dapat mempunyai frekuensi sebanyak 800 dan mempunyai cakupan kisaran sekitar 26 kilometer bujur sangkar. Masing-masing sel mempunyai suatu menara dan suatu bangunan kecil yang berisi peralatan. Saat kita sedang berjalan dengan mengendarai kendaraan, sinyal akan dipancarkan dari sel ke sel oleh suatu tower atau menara dari tiap sel tersebut.


Kode Pada Ponsel

Semua ponsel mempunyai kode khusus yang berhubungan dengan pemiliknya atau operator teleponnya. Secara umum terdapat 3 pokok kode yang terdapat pada ponsel antara lain:
  1. Electronic Serial Number (ESN), suatu nomor 32-bit yang unik diprogramkan ke dalam telepon saat dibuat (kita kenal dengan istilah nomor IMEI)
  2. Mobile Identification Number (MIN), l0 digit nomor dari nomor telepon
  3. System Identification Code (SID), 5 digit nomor yang dikeluarkan oleh badan resmi dunia yang menangani bidang telekomunikasi (FCC)
ROAMING
Istilaih roaming biasa kita sebut saat menggunakan ponsel. Biasanya istilah roaming dihubungkan dengan penerimaan panggilan saat kita berada diluar area nomor telepon kita, hal tersebut biasanya dihitung dengan biaya tertentu. Roaming dapat terjadi karena System Identification Code (SID) pada telepon kita tidak sesuai dengan SID yang dikenal pada pengendali saluran saat kita berada. Hal tersebut membuat Mobile Telephone Switching Office (MTSO) atau kantor operator seluler terdekat mengontak MTSO asal nomor kita dan mencocokkan dengan data yang ada di MTSO asal dan segera melacak keberadaan posisi kita dengan cepat
PROTOKOL KOMUNIKASI
Ada tiga teknologi umum yang digunakan oleh jaringan ponsel untuk memancarkan informasi:
A. Frequency Division Multiple Access ( FDMA)
B. Time Division Muluple Access ( TDMA)
C. Code Division Multiple Access ( CDMA)


A. Frequency Division Multiple Access ( FDMA)
Untuk memahami FDMA, bisa dianalogikan tentang stasiun radio, stasiun radio mengirimkan sinyalnya pada frekuensi yang berbeda pada kanal yang tersedia kepada tiap-tiap pengguna ponsel. FDMA digunakan sebagian besar untuk transmisi analog. Saat untuk membawa informasi digital, FDMA sudah tidak efisien lagi.
B. Time Division Muluple Access ( TDMA)
Penggunaan saluran frekuensi menggunakan batasan waktu. Suara yang masuk kedalam saluran/kanal dikompresi kedalam format digital dan mempunyai ukuran yang kecil. Secara kapasitas TDMA mempunyai daya tampung menerima panggilan yang lebih luas dibanding mode1 analog pada FDMA. TDMA beroperasi pada frekwensi 800 MHz atau 1900 MHz.
TDMA sama dengan GSM. Teknologi TDMA kadang disebut juga dengan Global System for Communication Mobile (GSM). GSM menggunakan enkripsi pada pemakaiannya sehingga lebih terjamin keamanannya. GSM beroperasi pada 900 - 1800 MHz. Pengguna GSM cukup menggunakan SIM (subscriber identification mobile).

C. Code Division Multiple Access ( CDMA)
Sebuah ponsel mengirimkan data (voice) yang masuk kedalam saluran/kanal dan akan dipecah-pecah menjadi potongan yang kecil-kecil dan masuk kedalam saluran frekuensi yang terpisah-pisah, kemudian paket data yang kecil-kecil tersebut akan disebarkan dengan kode yang unik dan hanya dapat diterima pada penerima yang mempunyai kesesuaian data yang akan diambil.
APLIKASI HANDPHONE
Berbagai inovasi terus dikembangkan dalam dunia ponsel, perkembangan inovasi tersebut akhirnya memungkinkan ponsel tak lagi hanya berfungsi untuk komunikasi suara, namun juga bisa berfungsi untuk berbagai keperluan antara lain:
  • SMS (Short Message Service)
  • MMS (Multimedia Message Service)
  • Video Streaming
>> SMS/MMS
SMS merupakan salah satu aplikasi pengiriman pesan yang ditetapkan oleh standart ETSI (www.etsi.org), pada dokumentasi GSM 03.40 dan GSM 03.38. Aplikasi SMS ataupun MMS mempunyai cara kerja yang sama hanya terdapat perbedaan jenis data yang dibawa SMS pesan yang bersifat text sedangkan MMS dapat berisi suara, gambar, movie (multimedia).


Bagaimana SMS/MMS bekerja?
Saat kita menerima pesan SMS/MSM dari handphone (mobile originated) pesan tersebut tidak langsung dikirimkan ke handphone tujuan (mobile terminated), akan tetapi dikirim terlebih dahulu ke SMS Center (SMSC) yang biasanya berada di kantor operator telepon, baru kemudian pesan tersebut diteruskan ke handphone tujuan.
Dengan adanya SMSC, kita dapat mengetahui status dari pesan SMS yang telah dikirim, apakah telah sampai atau gagal. Apabila handphone tujuan dalam keadaan aktif dan dapat menerima pesan SMS yang dikirim, ia akan mengirimkan kembali pesan konfirmasi ke SMSC yang menyatakan bahwa pesan telah diterima. Kemudian SMSC mengirimkan kembali status tersebut kepada si pengirim. Jika handphone tujuan dalam keadaan mati, pesan yang kita kirimkan akan disimpan pada SMSC sampai period-validity terpenuhi. Period-validity artinya tenggang waktu yang diberikan si pengirim pesan sampai pesan dapat diterima oleh si penerima, hal ini dapat kita atur pada ponsel kita mulai dari 1 jam – lebih dari 1 hari.

>> Video Streaming
Aplikasi ini merupakan teknologi terkini yang diusung oleh sebuah ponsel. Dengan adanya layanan yang diberikan oleh operator seluler, informasi yang sifatnya real time dapat kita peroleh semisal berita dari televisi atau bahkan kondisi lalu lintas ditempat-tempat tertentu. Aplikasi inimerupakan gambaran teknologi seluler yang orang kadang menyebutnya dengan teknologi 2,5G. Video streaming merupakan layanan multimedia yang dapat diakses oleh pengguna ponsel dengan teknologi komunikasi data bergerak
Bagaimana Video Streaming Bekerja?
Aplikasi ini kalau dalam teknologi komputer dikategorikan sebagai jaringan client-server. Artinya client (pengguna ponsel) melakukan permintaan (request) kepada server (operator) untuk dikirimi data dalam hal ini materi yang bersifat multimedia (audio, video). Materi (content) dari operator atau penyedia jasa layanan memasang materinya kedalam aplikasi-aplikasi layanannya yang kemudian dapat diakses oleh ponsel pengguna. Materi ini dapat berupa file audio video yang bersifat real time artinya kejadiannya berlangsung juga saat diakses seperti kondisi lalu lintas di jalan raya di Jakarta yang telah dipasang kamera dan dipancarkan ke kantor operator yang kemudian diakses oleh pengguna ponsel. Untuk dapat mengaksesnya diperlukan ponsel dengan sistem operasi seperti symbian, ada aplikasi GPRS dan RealOne Flayer, dan registrasi ke operator ponsel seperti IM3 (http://www.im3-access.com/)





FITUR HANDPHONE
Untuk melengkapi kebutuhan penggunanya ponsel saat ini dilengkapi dengan fitur-fitur yang mengagumkan Dari ponsel yang hanya dipakai untuk komunikasi sekarang ponsel dapat untuk mengakses internet bahkan dapat juga dipakai untuk merekam gambar tak ubahnya sebuah kamera atau handycam. Beberapa litur ponsel yang menjadi trend terkini antara lain :
  • GPRS
  • Bluetooth
  • Infra Red
  • Game Java
>> General Packet Radio Services (GPRS)
Merupakan teknologi komunikasi data yang melengkapi network GSM dan memungkinkan komunikasi data pada kecepatan maksimal 115 kbps. GPRS dapat digunakan sebagai media mengakses beberapa service, antara lain: WAP (Wireless Application Protocol), Internet, MMS (Multimedia Messaging Service) dan SMS. Dalam penggunaan GPRS untuk koneksi ke internet lewat ponsel, model perhitungan biaya yang dilakukan tidak berdasarkan pada durasi atau lama waktu pemakaian tetapi besamya data yang didownload (hitungan kilobyte). Agar bisa koneksi ke internet melalui GPRS, ada 3 hal yang perlu diperhatikan:
1. Operator
Operator telekomunikasi yang dipakai harus bisa mendukung (support) teknologi GPRS. Saat ini semua operator GSM di Indonesia sudah mcndukung layanan GPRS untuk kartu pascabayar.

2. Handphone
Handphone yang digunakan tentu harus mendukung GPRS. Coba lihat buku manualnya atau bisa tanya ke penjual handphone.

3. Registrasi dan konfigurasi
Jika handphone dan operator sudah mendukung, kemudian perlu meregistrasi nomor agar bisa mendapat layanan GPRS. Setelah itu perlu mengkonfigurasi di ponsel sesuai petunjuk dari tiap operator. Ada yang meminta mengkonfigurasi secara manual atau secara otomatis hanya dengan mengirimkan sms ke nomor operator. Masing-masing operator memiliki cara tersendiri.

>> Bluetooth
Bluetooth adalah sebuah microchip yang dilengkapi transmiter radio yang dapat mengrimkan data dalam jumlah besar, di antara piranti-piranti yang sesuai. Bluetooth adalah nama yang berasal dari raja Norwegia yang menyatukan Swedia dan Denmark, ide penyatuan tersebut menjadi dasar penamaan bluetooth sebagai perangkat yang dapat saling menyatukan dengan perangkat lain dan saling berkomunikasi. Dengan mengaktifkan bluetooth pada ponsel maka pada radius 10 meter bahkan 100 meter, semua perangkat seperti ponsel, PDA, laptop, pc yang dilengkapi dan diaktifkan bluetoothnya akan terdeteksi pada ponsel kita. Setelah itu kita dapat melakukan komunikasi dengan mereka. Dengan mengaktifkan bluetooth pada ponsel dengan GPRS terkoneksi ke internet serta bluelooth pada laptop maka kita dapat browsing internet lewat laptop kita.
>> Infra Red
Infra red merupakan salah satu fitur yang didapat pada hampir semua ponsel. Secara fungsional infra red tidak ubahnya seperti bluteooth, hanya saja perbedaanya infra red hanya dapat saling berkomunikasi dengan 1 perangkat saja semisal ponsel dengan laptop, ponsel dengan ponsel dan tidak mengenal perangkat lain yang tidak kita arahkan langsung. Dari sisi jarak infra red mempunyai kisaran untuk dapat saling berkomunikasi dari 1-100 cm, adapun kecepatan transfernya kecepatan infra red: 115.2 KB, 57.6 KB , 38.4 KB, 19.2 KB, 9.6 KB. Untuk mengetahui ada tidaknya infra red pada ponsel kita, dapat dilihat dari fisik ponsel yaitu dengan ditandai adanya lampu yang berbentuk oval, kecil, dan berwarna merah. Untuk mengaktifkannya tinggal diseting dari menu ponsel. Ada banyak hal yang dilakukan dengan infra red antara lain:
·         Edit / update / syncronize phonebook antara komputer dan handphone (Syncronize ke MS Outlook and Outlook Express)
·         SMS Editor dan menambah signature pada SMS
·         Kirim hasil photo dari ponsel ke komputer dan sebaliknya
·         Transfer lagu seperti MP3, WAV dari komputer ke ponsel
·         Transfer video/movie dari komputer ke ponsel
·         Install games, aplikasi, image
·         Mengirim pesan ke handphone pribadi / handphone lain, berupa SMS, Ringtone, Picture Message, Logo Operator
·         Ringtone Composer (Monophonic Tones / Polyphonic Tones)
·         Untuk internet connection via notebook / PC
>> JAVA
Nama JAVA sudah banyak dikenal sebagai bahasa pemrograman yang paling banyak digunakan orang. Nama JAVA dipakai oleh penemunya (http://www.sun.com/) dari ketidaksengajaan saat mereka akan memberikan aplikasi yang sedang mereka kerjakan disuatu kedai kopi, mereka menyebut kopi dengan kata JAVA dan akhimya memberi nama aplikasi tersebut dengan JAVA, versi lain mengatakan JAVA adalah nama depan dari nama mereka. JAVA terkenal karena kehandalannya untuk menjalankan aplikasi mulai dari perangkat sekelas server hingga peralatan mikro antara lain ponsel. Orang banyak menyebut program JAVA pada ponsel dengan midlet (http://www.midlet.org/), beberapa aplikasi yang sering dijumpai pada perangkat mobile seperti ponsel antara lain game, koneksi internet atau aplikasi lainnya.
Menjalankan JAVA
Untuk menjalankan aplikasi JAVA semisal game pada ponsel, pertama-tama adalah mengenali apakah ponsel sudah terdapat apiikasi JAVAnya. Pada ponsel SIEMENS sudah dapat diketahui adanya aplikasi JAVA dari folder pada menunya. Aplikasi yang dibuat dengan JAVA bersifat mikro artinya didesain untuk perangkat yang bersifat mikro (display, sumber daya dan parangkatnya). Untuk menjalankan sebuah game JAVA pada ponsel SIEMENS cukup mengkopikan file dari game tersebut kedalam folder di menu ponsel yang filenya biasanya berekstensi .jad dan .jar, game-game tersebut dapat didownload gratis di http://www.midlet.org/. Beberapa aplikasi JAVA sudah disertakan pada ponsel seperti kalkulator, kalender serta aplikasi lainnya.


Sabtu, 26 Februari 2011
Posted by blogger binawiyata
Tag :

program

$mod51
baris equ p0
dta bit p2.0
mrst bit p2.2
clock bit p2.4

jkl equ 24

start: mov p0,#127
  mov dptr,#ud1
  call upi
  call fl
  call lr
  mov dptr,#BINA
  call dni
  call fl
  call lr
  mov dptr,#wyt
  call rs
  mov dptr,#tbl
  call lr
  mov dptr,#ud1
  call fl
  call upo
  mov dptr,#ud1
  call dni
  call fl
  call lr
  mov dptr,#ud1
  call upi
  call upo
  mov dptr,#bina
  call lr
  mov dptr,#ud1
  call dno
  call dni
  call fl
  call lr
  jmp start

;geser kiri
lr:
lr3:  mov r7,#20
lr2:  call rst
  mov r6,#0
lr1:  mov a,R6
  movc a,@a+dptr
  cjne a,#255,ljt
  ret
ljt:  mov baris,a
  call tunda
  mov baris,#127
  call clk
  inc r6
  cjne r6,#jkl,lr1
  djnz r7,lr2
  inc dptr
  jmp lr3
;geser kanan
rs:  mov b,#0ffh
masih:  inc b
  mov a,b
  movc a,@a+dptr

 cjne a,#255,masih
rl3: mov r7,#20
rl2: call rst
 mov r6,#0
rl1: mov a,r6
 add a,b
 movc a,@a+dptr
 mov Baris,a
 call tunda
 mov Baris,#127
 call clk
 inc r6
 cjne r6,#jkl,rl1
 djnz r7,rl2
 djnz b,rl3
 ret
 
;flash
fl: mov r5,#7
fl3: mov r7,#50
fl2: call rst
 mov r6,#0
fl1: mov a,r6
 movc a,@a+dptr
 mov Baris,a
 call tunda
 mov Baris,#127
 call clk
 inc r6
 cjne r6,#jkl,fl1
 djnz r7,fl2
 mov r4,#50
fl4: mov r3,#jkl
fl5: call tunda
 djnz r3,fl5
 djnz r4,fl4
 djnz r5,fl3
 ret

;up in
upi: mov r4,#255
 mov r5,#0
up4: inc r5
 mov a,r4
 clr c
 rlc a
 mov r4,a
 mov r7,#40
up3: mov baris,#127
 call rst
 mov r6,#0
up2: mov a,r6
 movc a,@a+dptr
 setb acc.7
 mov b,r5
up1: rl a
 djnz b,up1
 orl a,r4
 mov Baris,a
 call tunda
 mov Baris,#127
 call clk
 inc r6
 cjne r6,#jkl,up2
 djnz r7,up3
 cjne r5,#8,up4
 ret

;up out
upo: mov r4,#0

  mov r5,#0
uo4:  inc r5
  mov r7,#40
uo3:  mov baris,#127
  call rst
  mov r6,#0
uo2:  mov a,r6
  movc a,@a+dptr
  rr a
  mov b,r5
uo1:  rl a
  djnz b,uo1
  orl a,r4
  mov baris,a
  call tunda
  mov baris,#127
  call clk
  inc r6
  cjne r6,#jkl,uo2
  djnz r7,uo3
  mov a,r4
  setb c
  rlc a
  mov r4,a
  cjne r5,#8,uo4
  ret

;down in
dni:  mov r4,#255
  mov r5,#0
dn4:  inc r5
  mov a,r4
  clr c
  rrc a
  mov r4,a
  mov r7,#40
dn3:  mov baris,#127
  call rst
  mov r6,#0
dn2:  mov a,r6
  movc a,@a+dptr
  setb acc.7
  mov b,r5
dn1:  rr a
  djnz b,dn1
  orl a,r4
  mov baris,a
  call tunda
  mov baris,#127
  call clk
  inc r6
  cjne r6,#jkl,dn2
  djnz r7,dn3
  cjne r5,#8,dn4
  ret

;down out
dno:  mov r4,#0
  mov r5,#0
do4:  inc r5
  mov r7,#40
do3:  mov baris,#127
  call rst
  mov r6,#0
do2:  mov a,r6
  movc a,@a+dptr
  setb acc.7
  mov b,r5
do1:  rr a
  djnz b,do1

 orl a,r4
 mov baris,A
 call tunda
 mov baris,#127
 call clk
 inc r6
 cjne r6,#jkl,do2
 djnz r7,do3
 mov a,r4
 setb c
 rrc a
 mov r4,a
 cjne r5,#8,do4
 ret

sdata: SETB dta
 call clk
 clr dta
 ret

rst: clr mrst
 nop
 setb p2.2
 call sdata
 ret

clk: setb clock
 nop
 clr clock
 ret

tunda: push b
 mov b,#45
 djnz b,$
 pop b
 ret

;smk = 3 chr
ud1: db 127,127,127,127,89,54,54,54,77,127,0,125,115,125,0,127,0,119,107,98,62,127
 db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,255
tlr: db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127
 db 0,125,123,119,0,95,43,43,43,7,123,123,64,59,59,95,43,43,43,7,127,65,063,127

;BINA = 4 chr
BINA: db 127,0,54,54,54,73,127,127,62,0,62,127,127,0,125,123,119,0,127
 db 1,118,118,118,1,127,127,127,127,127,127,127,127,127,127,127,255

;WIYATA = 6 chr
wyt: db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,
 db 64,63,71,63,64,127,127,62,0,62,127,127,120,199,15,119,120,127
 db 1,118,118,118,1,127,126,126,0,126,126,127,1,118,118,118,1,127
 db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,
 db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,255

;smk binawiyata karangmalang sragen  Alamat:jln.Abimanyu No.18 Taman Asri Sr = 80 chr
tbl: db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,
 db 89,54,54,54,77,127,0,125,115,125,0,127,0,119,107,93,62,127,
 db 127,127,127,127,127,127,0,54,54,54,73,127,127,59,2,63,127,127
 db 3,119,123,123,7,127,95,43,43,43,7,127,67,63,79,63,67,127
 db 127,59,2,63,127,127,123,119,15,119,123,127,95,43,43,43,7,127
 db 123,123,64,59,59,127,95,43,43,43,7,127,127,127,127,127,127,127
 db 0,119,107,93,62,127,95,43,43,43,7,127,3,119,123,123,119,127 
 db 95, 43, 43, 43, 7, 127, 3, 119, 123, 123 ,7, 127, 119, 43, 43, 43, 67, 127
 db 3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127, 127, 62, 0, 63, 127, 127
 db 95, 43, 43, 43, 7, 127, 3, 119, 123, 123, 7, 127, 119, 43, 43, 43, 67, 127
 db 127, 127, 127, 127, 127, 127, 89, 54, 54, 54, 77, 127, 3, 119, 123, 123, 119, 127
 db 95, 43, 43, 43, 7, 127, 119, 43, 43, 43, 67, 127, 71, 43, 43, 43, 103, 127
 db 3, 119, 123, 123, 7, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127
 db 127, 127, 127, 127, 127, 127, 127,127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127
 db 127, 127, 127, 127, 127, 127, 127,127, 127, 127, 127, 127, 1, 118, 118, 118, 1, 127
 db 127, 62, 0, 63, 127, 127, 95, 43, 43, 43, 7, 127, 3, 123, 3, 123, 7, 127
 db 95, 43, 43, 43, 7, 127, 123, 123, 64, 59, 59, 127, 127, 73, 73, 127, 127, 127
 db 95, 63, 62, 62, 64, 127, 127, 62, 0, 63, 127, 127, 3, 119, 123, 123, 7, 127
 db 127, 31, 31, 127, 127, 127, 1, 118, 118, 118, 1, 127, 0, 59, 59, 59, 71, 127
 db 127, 59, 2, 63, 127, 127, 3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127
 db 3, 119, 123, 123, 7, 127, 123, 119, 15, 119, 123, 127, 67, 63, 63, 95, 3, 127
 db 127, 127, 127, 127, 127, 127, 0, 125, 123, 119, 0, 127, 71, 59, 59, 59, 71, 127
 db 127, 31, 31, 127, 127, 127, 127, 61, 0, 63, 127, 127, 73, 54, 54, 54, 73, 127
 db 127, 127, 127, 127, 127, 127, 126, 126, 0, 126, 126, 127, 95, 43, 43, 43, 7, 127
 db 3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127, 3, 119, 123, 123, 7, 127
 db 127, 127, 127, 127, 127, 127, 1, 118, 118, 118, 1, 127, 55, 43, 43, 43, 91, 127
 db 3, 119, 123, 123, 119, 127, 127, 59, 2, 63, 127, 127, 127, 127, 127, 127, 127, 127
 db 89, 54, 54, 54, 77, 127, 3, 119, 123, 123, 119, 127, 
 db 95, 43, 43, 43, 7, 127, 119, 43, 43, 43, 67, 127, 71, 43, 43, 43, 103, 127
 db 3, 119, 123, 123, 7, 127, 127, 127, 127, 127, 127, 127, 56, 58, 58, 58, 70, 127
 db 126, 14, 118, 122, 124, 127, 61, 30, 46, 54, 57, 127, 61, 30, 46, 54, 57, 127
 db 127, 61, 0, 63, 127, 127, 127, 127, 127, 127, 127, 127, 126, 126, 0, 126, 126, 127
 db 71, 43, 43, 43, 103, 127, 127, 62, 0, 63, 127, 127, 3, 107, 107, 107, 119, 127
 db 127, 31, 31, 127, 127, 127, 99, 93, 62, 127, 127, 127, 65, 62, 62, 62, 65, 127
 db 61, 30, 46, 54, 57, 127, 126, 14, 118, 122, 124, 127, 127, 61, 0, 63, 127, 127
 db 127, 127,   62, 93, 99, 127, 73, 54, 54, 54, 73, 127, 89, 54, 54, 54, 65, 127
 db 127, 61, 0, 63, 127, 127, 73, 54, 54, 54, 73, 127, 127, 61, 0, 63, 127, 127
 db 73, 54, 54, 54, 73, 127, 127, 127, 127, 127, 127, 127, 127, 0, 54, 54, 54, 62, 127
 db 119, 119, 119, 119, 119, 127, 3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127
 db 127, 59, 2, 63, 127, 127, 127, 62, 0, 63, 127, 127, 127, 73, 73, 127, 127, 127
 db 55, 43, 43, 43, 91, 127, 3, 123, 3, 123, 7, 127, 0, 111, 87, 59, 127, 127
 db 0, 59, 59, 59, 71, 127, 67, 63, 79, 63, 67, 127, 63, 63, 63, 63, 63, 127
 db 55, 43, 43, 43, 91, 127, 3, 119, 123, 123, 119, 127, 119, 43, 43, 43, 67, 127
 db 65, 62, 34, 42, 33, 127, 123, 119, 15, 119, 123, 127, 95, 43, 43, 43, 7, 127
 db 0, 119, 123, 123, 7, 127, 71, 59, 59, 59, 71, 127, 71, 59, 59, 59, 71, 127
 db 127, 31, 31, 127, 127, 127, 71, 59, 59, 59, 59, 127, 71, 59, 59, 59, 71, 127
 db 3, 123, 3, 123, 7, 127, 127, 127, 127, 127, 127, 127, 64, 63, 71, 63, 64, 127
 db 71, 43, 43, 43, 103, 127, 0, 59, 59, 59, 71, 127, 55, 43, 43, 43, 91, 127
 db 127, 59, 2, 63, 127, 127, 123, 123, 64, 59, 59, 127, 71, 43, 43, 43, 103, 127
 db 127, 73, 73, 127, 127, 127, 127, 127, 127, 127, 127, 127, 0, 119, 123, 123, 7, 127
 db 123, 123, 64, 59, 59, 127, 123, 123, 64, 59, 59, 127, 3, 107, 107,107, 119, 127
 db 127, 73, 73, 127, 127, 127, 95, 111, 119, 33, 125, 127, 95, 111, 119, 123, 125, 127
 db 55, 43, 43, 43, 91, 127, 3, 123, 3, 123, 7, 127, 0, 111, 87, 59, 127, 127
 db 0, 59, 59, 59, 71, 127, 127, 59, 2, 63, 127, 127, 3, 119, 123, 123, 7, 127
 db 95, 43, 43, 43, 7, 127, 67, 63, 79, 63, 67, 127
 db 127, 59, 2, 63, 127, 127, 123, 119, 15, 119, 123, 127, 95, 43, 43, 43, 7, 127
 db 123, 123, 64, 59, 59, 123, 95, 43, 43, 43, 7, 127, 127, 31, 31, 127, 127, 127
 db 55, 43, 43, 43, 91, 127, 71, 59, 59, 59, 59, 127, 0, 119, 123, 123, 7, 127
 db 127, 31, 31, 127, 127, 127, 127, 59, 2, 63, 127, 127, 71, 59, 59, 59, 0, 127
 db 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 255

end    

Kamis, 17 Februari 2011
Posted by blogger binawiyata

program

$mod51
baris    equ    p0
dta    bit    p2.0
mrst    bit    p2.2
clock    bit    p2.4

jkl    equ    24

start:    mov    p0,#127
        mov    dptr,#ud1
        call    upi
        call    fl
        call    lr
        mov    dptr,#BINA
        call    dni
        call    fl
        call    lr
        mov    dptr,#wyt
        call    rs
        mov    dptr,#tbl
        call    lr
        mov    dptr,#ud1
        call    fl
        call    upo
        mov    dptr,#ud1
        call    dni
        call    fl
        call    lr
        mov    dptr,#ud1
        call    upi
        call    upo
        mov    dptr,#bina
        call    lr
        mov    dptr,#ud1
        call    dno
        call    dni
        call    fl
        call    lr
        jmp    start

;geser kiri
lr:
lr3:        mov    r7,#20
lr2:        call    rst
        mov    r6,#0
lr1:        mov    a,R6
        movc    a,@a+dptr
        cjne    a,#255,ljt
        ret
ljt:        mov    baris,a
        call    tunda
        mov    baris,#127
        call    clk
        inc    r6
        cjne    r6,#jkl,lr1
        djnz    r7,lr2
        inc    dptr
        jmp    lr3
;geser kanan
rs:        mov    b,#0ffh
masih:        inc    b
        mov    a,b
        movc    a,@a+dptr

    cjne    a,#255,masih
rl3:    mov    r7,#20
rl2:    call    rst
    mov    r6,#0
rl1:    mov    a,r6
    add    a,b
    movc    a,@a+dptr
    mov    Baris,a
    call    tunda
    mov    Baris,#127
    call    clk
    inc    r6
    cjne    r6,#jkl,rl1
    djnz    r7,rl2
    djnz    b,rl3
    ret
   
;flash
fl:    mov    r5,#7
fl3:    mov    r7,#50
fl2:    call    rst
    mov    r6,#0
fl1:    mov    a,r6
    movc    a,@a+dptr
    mov    Baris,a
    call    tunda
    mov    Baris,#127
    call    clk
    inc    r6
    cjne    r6,#jkl,fl1
    djnz    r7,fl2
    mov    r4,#50
fl4:    mov    r3,#jkl
fl5:    call    tunda
    djnz    r3,fl5
    djnz    r4,fl4
    djnz    r5,fl3
    ret

;up    in
upi:    mov    r4,#255
    mov    r5,#0
up4:    inc    r5
    mov    a,r4
    clr    c
    rlc    a
    mov    r4,a
    mov    r7,#40
up3:    mov    baris,#127
    call    rst
    mov    r6,#0
up2:    mov    a,r6
    movc    a,@a+dptr
    setb    acc.7
    mov    b,r5
up1:    rl    a
    djnz    b,up1
    orl    a,r4
    mov    Baris,a
    call    tunda
    mov    Baris,#127
    call    clk
    inc    r6
    cjne    r6,#jkl,up2
    djnz    r7,up3
    cjne    r5,#8,up4
    ret

;up    out
upo:    mov    r4,#0

        mov r5,#0
uo4:        inc r5
        mov r7,#40
uo3:        mov baris,#127
        call rst
        mov r6,#0
uo2:        mov a,r6
        movc a,@a+dptr
        rr a
        mov b,r5
uo1:        rl a
        djnz b,uo1
        orl a,r4
        mov baris,a
        call tunda
        mov baris,#127
        call clk
        inc r6
        cjne r6,#jkl,uo2
        djnz r7,uo3
        mov a,r4
        setb c
        rlc a
        mov r4,a
        cjne r5,#8,uo4
        ret

;down in
dni:        mov r4,#255
        mov r5,#0
dn4:        inc r5
        mov a,r4
        clr c
        rrc a
        mov r4,a
        mov r7,#40
dn3:        mov baris,#127
        call rst
        mov r6,#0
dn2:        mov a,r6
        movc a,@a+dptr
        setb acc.7
        mov b,r5
dn1:        rr a
        djnz b,dn1
        orl a,r4
        mov baris,a
        call tunda
        mov baris,#127
        call clk
        inc r6
        cjne r6,#jkl,dn2
        djnz r7,dn3
        cjne r5,#8,dn4
        ret

;down out
dno:        mov r4,#0
        mov r5,#0
do4:        inc r5
        mov r7,#40
do3:        mov baris,#127
        call rst
        mov r6,#0
do2:        mov a,r6
        movc a,@a+dptr
        setb acc.7
        mov b,r5
do1:        rr a
        djnz b,do1

    orl    a,r4
    mov    baris,A
    call    tunda
    mov    baris,#127
    call    clk
    inc    r6
    cjne    r6,#jkl,do2
    djnz    r7,do3
    mov    a,r4
    setb    c
    rrc    a
    mov    r4,a
    cjne    r5,#8,do4
    ret

sdata:    SETB    dta
    call    clk
    clr    dta
    ret

rst:    clr    mrst
    nop
    setb    p2.2
    call    sdata
    ret

clk:    setb    clock
    nop
    clr    clock
    ret

tunda:    push    b
    mov    b,#45
    djnz    b,$
    pop    b
    ret

;smk    =    3 chr
ud1:    db 127,127,127,127,89,54,54,54,77,127,0,125,115,125,0,127,0,119,107,98,62,127
    db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,255
tlr:    db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127
    db 0,125,123,119,0,95,43,43,43,7,123,123,64,59,59,95,43,43,43,7,127,65,063,127

;BINA = 4 chr
BINA:    db    127,0,54,54,54,73,127,127,62,0,62,127,127,0,125,123,119,0,127
    db    1,118,118,118,1,127,127,127,127,127,127,127,127,127,127,127,255

;WIYATA = 6 chr
wyt:    db    127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,
    db    64,63,71,63,64,127,127,62,0,62,127,127,120,199,15,119,120,127
    db    1,118,118,118,1,127,126,126,0,126,126,127,1,118,118,118,1,127
    db    127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,
    db    127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,255

;smk binawiyata karangmalang sragen        Alamat:jln.Abimanyu No.18 Taman Asri Sr = 80 chr
tbl:    db    127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,
    db    89,54,54,54,77,127,0,125,115,125,0,127,0,119,107,93,62,127,
    db    127,127,127,127,127,127,0,54,54,54,73,127,127,59,2,63,127,127
    db    3,119,123,123,7,127,95,43,43,43,7,127,67,63,79,63,67,127
    db    127,59,2,63,127,127,123,119,15,119,123,127,95,43,43,43,7,127
    db    123,123,64,59,59,127,95,43,43,43,7,127,127,127,127,127,127,127
    db    0,119,107,93,62,127,95,43,43,43,7,127,3,119,123,123,119,127
    db    95, 43, 43, 43, 7, 127, 3, 119, 123, 123 ,7, 127, 119, 43, 43, 43, 67, 127
    db    3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127, 127, 62, 0, 63, 127, 127
    db    95, 43, 43, 43, 7, 127, 3, 119, 123, 123, 7, 127, 119, 43, 43, 43, 67, 127
    db    127, 127, 127, 127, 127, 127, 89, 54, 54, 54, 77, 127, 3, 119, 123, 123, 119, 127
    db    95, 43, 43, 43, 7, 127, 119, 43, 43, 43, 67, 127, 71, 43, 43, 43, 103, 127
    db    3, 119, 123, 123, 7, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127
    db    127, 127, 127, 127, 127, 127, 127,127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127
    db    127, 127, 127, 127, 127, 127, 127,127, 127, 127, 127, 127, 1, 118, 118, 118, 1, 127
    db    127, 62, 0, 63, 127, 127, 95, 43, 43, 43, 7, 127, 3, 123, 3, 123, 7, 127
    db    95, 43, 43, 43, 7, 127, 123, 123, 64, 59, 59, 127, 127, 73, 73, 127, 127, 127
    db    95, 63, 62, 62, 64, 127, 127, 62, 0, 63, 127, 127, 3, 119, 123, 123, 7, 127
    db    127, 31, 31, 127, 127, 127, 1, 118, 118, 118, 1, 127, 0, 59, 59, 59, 71, 127
    db    127, 59, 2, 63, 127, 127, 3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127
    db    3, 119, 123, 123, 7, 127, 123, 119, 15, 119, 123, 127, 67, 63, 63, 95, 3, 127
    db    127, 127, 127, 127, 127, 127, 0, 125, 123, 119, 0, 127, 71, 59, 59, 59, 71, 127
    db    127, 31, 31, 127, 127, 127, 127, 61, 0, 63, 127, 127, 73, 54, 54, 54, 73, 127
    db    127, 127, 127, 127, 127, 127, 126, 126, 0, 126, 126, 127, 95, 43, 43, 43, 7, 127
    db    3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127, 3, 119, 123, 123, 7, 127
    db    127, 127, 127, 127, 127, 127, 1, 118, 118, 118, 1, 127, 55, 43, 43, 43, 91, 127
    db    3, 119, 123, 123, 119, 127, 127, 59, 2, 63, 127, 127, 127, 127, 127, 127, 127, 127
    db    89, 54, 54, 54, 77, 127, 3, 119, 123, 123, 119, 127,
    db    95, 43, 43, 43, 7, 127, 119, 43, 43, 43, 67, 127, 71, 43, 43, 43, 103, 127
    db    3, 119, 123, 123, 7, 127, 127, 127, 127, 127, 127, 127, 56, 58, 58, 58, 70, 127
    db    126, 14, 118, 122, 124, 127, 61, 30, 46, 54, 57, 127, 61, 30, 46, 54, 57, 127
    db    127, 61, 0, 63, 127, 127, 127, 127, 127, 127, 127, 127, 126, 126, 0, 126, 126, 127
    db    71, 43, 43, 43, 103, 127, 127, 62, 0, 63, 127, 127, 3, 107, 107, 107, 119, 127
    db    127, 31, 31, 127, 127, 127, 99, 93, 62, 127, 127, 127, 65, 62, 62, 62, 65, 127
    db    61, 30, 46, 54, 57, 127, 126, 14, 118, 122, 124, 127, 127, 61, 0, 63, 127, 127
    db    127, 127,   62, 93, 99, 127, 73, 54, 54, 54, 73, 127, 89, 54, 54, 54, 65, 127
    db    127, 61, 0, 63, 127, 127, 73, 54, 54, 54, 73, 127, 127, 61, 0, 63, 127, 127
    db    73, 54, 54, 54, 73, 127, 127, 127, 127, 127, 127, 127, 127, 0, 54, 54, 54, 62, 127
    db    119, 119, 119, 119, 119, 127, 3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127
    db    127, 59, 2, 63, 127, 127, 127, 62, 0, 63, 127, 127, 127, 73, 73, 127, 127, 127
    db    55, 43, 43, 43, 91, 127, 3, 123, 3, 123, 7, 127, 0, 111, 87, 59, 127, 127
    db    0, 59, 59, 59, 71, 127, 67, 63, 79, 63, 67, 127, 63, 63, 63, 63, 63, 127
    db    55, 43, 43, 43, 91, 127, 3, 119, 123, 123, 119, 127, 119, 43, 43, 43, 67, 127
    db    65, 62, 34, 42, 33, 127, 123, 119, 15, 119, 123, 127, 95, 43, 43, 43, 7, 127
    db    0, 119, 123, 123, 7, 127, 71, 59, 59, 59, 71, 127, 71, 59, 59, 59, 71, 127
    db    127, 31, 31, 127, 127, 127, 71, 59, 59, 59, 59, 127, 71, 59, 59, 59, 71, 127
    db    3, 123, 3, 123, 7, 127, 127, 127, 127, 127, 127, 127, 64, 63, 71, 63, 64, 127
    db    71, 43, 43, 43, 103, 127, 0, 59, 59, 59, 71, 127, 55, 43, 43, 43, 91, 127
    db    127, 59, 2, 63, 127, 127, 123, 123, 64, 59, 59, 127, 71, 43, 43, 43, 103, 127
    db    127, 73, 73, 127, 127, 127, 127, 127, 127, 127, 127, 127, 0, 119, 123, 123, 7, 127
    db    123, 123, 64, 59, 59, 127, 123, 123, 64, 59, 59, 127, 3, 107, 107,107, 119, 127
    db    127, 73, 73, 127, 127, 127, 95, 111, 119, 33, 125, 127, 95, 111, 119, 123, 125, 127
    db    55, 43, 43, 43, 91, 127, 3, 123, 3, 123, 7, 127, 0, 111, 87, 59, 127, 127
    db    0, 59, 59, 59, 71, 127, 127, 59, 2, 63, 127, 127, 3, 119, 123, 123, 7, 127
    db    95, 43, 43, 43, 7, 127, 67, 63, 79, 63, 67, 127
    db    127, 59, 2, 63, 127, 127, 123, 119, 15, 119, 123, 127, 95, 43, 43, 43, 7, 127
    db    123, 123, 64, 59, 59, 123, 95, 43, 43, 43, 7, 127, 127, 31, 31, 127, 127, 127
    db    55, 43, 43, 43, 91, 127, 71, 59, 59, 59, 59, 127, 0, 119, 123, 123, 7, 127
    db    127, 31, 31, 127, 127, 127, 127, 59, 2, 63, 127, 127, 71, 59, 59, 59, 0, 127
    db    127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 255

end   

Posted by blogger binawiyata

Popular Post

My Friend

- Copyright © Blogger Binawiyata -Metrominimalist- Powered by Blogger - Designed by Johanes Djogan -