Program Edsim Keypad

Program Edsim Keypad

Berjumpa kembali npgprogram akan memposting program edsim yang berkaitan dengan Keypad. Semoga   postingan kali ini dapat berguna untuk penggemar program edsim. Programnya mungkin sedikit sulit tapi kalau sudah di pelajari mudah dimengerti. Langsung saja kelisting programnya.

start:

MOV R0, #0 ; membersihkan R0 – tombol pertama adalah 0

; scan row0

SETB P0.3 ; set baris 3

CLR P0.0 ; Membersihkan baris 0

CALL npgprogram ; Memanggil kolom dan memindai subroutine

JB F0, finish ; | Jika F0 di set, jump ke akhir program 

; | (karena tombol yang ditekan telah ditemukan dan ditransfer ke R0

; scan row1

SETB P0.0 ; set baris 0

CLR P0.1 ; Membersihkan baris 1

CALL npgprogram ; Memanggil kolom dan memindai subroutine

JB F0, finish ; | Jika F0 di set, jump ke akhir program 

; | (karena tombol yang ditekan telah ditemukan dan ditransfer ke R0

; scan row2

SETB P0.1 ; set baris 1

CLR P0.2 ; Membersihkan baris 2

CALL npgprogram ; Memanggil kolom dan memindai subroutine

JB F0, finish ; | Jika F0 di set, jump ke akhir program 

; | (karena tombol yang ditekan telah ditemukan dan ditransfer ke R0

; scan row3

SETB P0.2 ; set baris 2

CLR P0.3 ; Membersihkan baris 3

CALL npgprogram ; Memanggil kolom dan memindai subroutine

JB F0, finish ; | Jika F0 di set, jump ke akhir program 

; | (karena tombol yang ditekan telah ditemukan dan ditransfer ke R0

JMP start ; | Kembali memindai baris 0

; | ((Inilah kenapa baris 3 diset pada awal program berjalan

                                ; | Ketika program kembali ke start, baris 3 telah selesai di pindai

finish:

JMP $ ; Eksekusi program sampai disini ketika tombol ditekan, dan tidak melakukan proses apapun

; column-scan subroutine

npgprogram :

JNB P0.4, npg ; Jika kolom 0 dibersihkan – key ditemukan

INC R0 ; Selain itu juga beralih ke key berikutnya.

JNB P0.5, npg ; Jika kolom 1 dibersihkan – key ditemukan

INC R0 ; Selain itu juga beralih ke key berikutnya

JNB P0.6, npg ; Jika kolom 2 dibersihkan – key ditemukan

INC R0 ; Selain itu juga beralih ke key berikutnya

RET ; kembali dari subroutine - key tidak ditemukan

npg:

SETB F0 ; key ditemukan - set F0

RET

Semoga artikel ini dapat bermanfaat bagi semua orang dan jangan lupa untuk mengisi buku tamu yang ada di pojok kanan atas serta jangan lupa untuk berkomentar demi kemajuan blog ini. Silakan copas artikel ini tetapi jangan lupa menyertakan alamat judul posting ini sebagai berikut :http://npgprogram.blogspot.com/2013/01/program-edsim-keypad.html. Untuk Sumber Artikel. Dan juga sobat semua harus hati-hati karena blog ini sudah terlindungi DCMA jadi kalu mau COPAS harus menyertakan alamat sumbernya.

Selamat menikmati.

ttd

npgprogram.blogspot.com