![]() |
|||
|
Catatan (untuk pembelian online): Dapatkan discount untuk pembelian dengan jumlah 10 kit |
Percobaan 2.2. Putar Kanan-Kiri Pada percobaan ini, LED akan berjalan kekanan atau kekiri mengikuti
penekanan tombol P2.0 atau P2.1. org 0h
CekP20: JB P2.0,CekP21 ; Menguji bit P2.0, apakah adalah logika '1'
call RLeft ; Jika P2.0=0, maka LED putar kiri
CekP21: JB P2.1,CekP20 ; Menguji bit P2.1, apakah adalah logika '1'
call RRight ; Jika P2.1=0, maka LED putar kanan
sjmp CekP20 ; jump forever to CekP2.0
;========================================
;Subrutin ini digunakan untuk menggerakkan LED Ke Kanan
;========================================
RLeft: mov A,#11111110b;send data to Acc
RLeft1: mov P0,A ;send data to P0
call delay ;call delay time
JB P2.1,RLeft2 ;Menguji bit P2.1, apakah adalah logika '1'
sjmp EndRLeft ;Jika P2.1=0, maka lompat ke EndRLeft
RLeft2: RL A
sjmp RLeft1
EndRLeft: ret
;
;======================================
;Subrutin ini digunakan untuk menggerakkan LED Ke Kiri
;======================================
RRight: mov A,#01111111b;send data to Acc
RRight1: mov P0,A ;send data to P0
call delay ;call delay time
JB P2.0,RRight2 ;Menguji bit P2.0, apakah adalah logika '1'
sjmp EndRRight ;Jika P2.0=0, maka lompat ke EndRRight
RRight2: RR A
sjmp RRight1
EndRRight: ret
;=======================================
;subroutine delay time
;=======================================
delay: mov R1,#255
del1: mov R2,#255
del2: djnz R2,del2
djnz R1,del1
ret
end
5. Simpanlah program yang anda ketik dan beri nama : prog22a.asm
Komentar, pertanyaan dan diskusi tentang topik tersebut. Klik disini
|
||